packages feed

stratosphere 0.49.0 → 0.50.0

raw patch · 149 files changed

+7372/−32 lines, 149 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.50.0++* Update resource specification document to version 11.4.0+ ## 0.49.0  * Fixed `ImportValue` not allowing `Val` as argument (thanks @mbj!)
+ library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityCrlConfiguration.hs view
@@ -0,0 +1,60 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityRevocationConfiguration.hs view
@@ -0,0 +1,40 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthoritySubject.hs view
@@ -0,0 +1,129 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ACMPCACertificateValidity.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigApplicationTags.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileTags.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileValidators.hs view
@@ -0,0 +1,46 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentStrategyTags.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentTags.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentMonitors.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentTags.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackendDefaults.hs view
@@ -0,0 +1,38 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicy.hs view
@@ -0,0 +1,38 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicyTls.hs view
@@ -0,0 +1,53 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListener.hs view
@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping+import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls  -- | Full data type definition for AppMeshVirtualNodeListener. See -- 'appMeshVirtualNodeListener' for a more convenient constructor.@@ -17,6 +18,7 @@   AppMeshVirtualNodeListener   { _appMeshVirtualNodeListenerHealthCheck :: Maybe AppMeshVirtualNodeHealthCheck   , _appMeshVirtualNodeListenerPortMapping :: AppMeshVirtualNodePortMapping+  , _appMeshVirtualNodeListenerTLS :: Maybe AppMeshVirtualNodeListenerTls   } deriving (Show, Eq)  instance ToJSON AppMeshVirtualNodeListener where@@ -25,6 +27,7 @@     catMaybes     [ fmap (("HealthCheck",) . toJSON) _appMeshVirtualNodeListenerHealthCheck     , (Just . ("PortMapping",) . toJSON) _appMeshVirtualNodeListenerPortMapping+    , fmap (("TLS",) . toJSON) _appMeshVirtualNodeListenerTLS     ]  -- | Constructor for 'AppMeshVirtualNodeListener' containing required fields@@ -36,6 +39,7 @@   AppMeshVirtualNodeListener   { _appMeshVirtualNodeListenerHealthCheck = Nothing   , _appMeshVirtualNodeListenerPortMapping = portMappingarg+  , _appMeshVirtualNodeListenerTLS = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-healthcheck@@ -45,3 +49,7 @@ -- | 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTls.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsAcmCertificate.hs view
@@ -0,0 +1,41 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsCertificate.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsFileCertificate.hs view
@@ -0,0 +1,49 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContext.hs view
@@ -0,0 +1,40 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextAcmTrust.hs view
@@ -0,0 +1,41 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextFileTrust.hs view
@@ -0,0 +1,41 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextTrust.hs view
@@ -0,0 +1,48 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualNodeSpec.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackendDefaults import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener import Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging@@ -17,7 +18,8 @@ -- 'appMeshVirtualNodeVirtualNodeSpec' for a more convenient constructor. data AppMeshVirtualNodeVirtualNodeSpec =   AppMeshVirtualNodeVirtualNodeSpec-  { _appMeshVirtualNodeVirtualNodeSpecBackends :: Maybe [AppMeshVirtualNodeBackend]+  { _appMeshVirtualNodeVirtualNodeSpecBackendDefaults :: Maybe AppMeshVirtualNodeBackendDefaults+  , _appMeshVirtualNodeVirtualNodeSpecBackends :: Maybe [AppMeshVirtualNodeBackend]   , _appMeshVirtualNodeVirtualNodeSpecListeners :: Maybe [AppMeshVirtualNodeListener]   , _appMeshVirtualNodeVirtualNodeSpecLogging :: Maybe AppMeshVirtualNodeLogging   , _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery :: Maybe AppMeshVirtualNodeServiceDiscovery@@ -27,7 +29,8 @@   toJSON AppMeshVirtualNodeVirtualNodeSpec{..} =     object $     catMaybes-    [ fmap (("Backends",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecBackends+    [ fmap (("BackendDefaults",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecBackendDefaults+    , fmap (("Backends",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecBackends     , fmap (("Listeners",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecListeners     , fmap (("Logging",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecLogging     , fmap (("ServiceDiscovery",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery@@ -39,11 +42,16 @@   :: AppMeshVirtualNodeVirtualNodeSpec appMeshVirtualNodeVirtualNodeSpec  =   AppMeshVirtualNodeVirtualNodeSpec-  { _appMeshVirtualNodeVirtualNodeSpecBackends = Nothing+  { _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])
library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualServiceBackend.hs view
@@ -8,21 +8,23 @@ 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-  { _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName :: Val Text+  { _appMeshVirtualNodeVirtualServiceBackendClientPolicy :: Maybe AppMeshVirtualNodeClientPolicy+  , _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName :: Val Text   } deriving (Show, Eq)  instance ToJSON AppMeshVirtualNodeVirtualServiceBackend where   toJSON AppMeshVirtualNodeVirtualServiceBackend{..} =     object $     catMaybes-    [ (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName+    [ fmap (("ClientPolicy",) . toJSON) _appMeshVirtualNodeVirtualServiceBackendClientPolicy+    , (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName     ]  -- | Constructor for 'AppMeshVirtualNodeVirtualServiceBackend' containing@@ -32,8 +34,13 @@   -> AppMeshVirtualNodeVirtualServiceBackend appMeshVirtualNodeVirtualServiceBackend virtualServiceNamearg =   AppMeshVirtualNodeVirtualServiceBackend-  { _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName = virtualServiceNamearg+  { _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)
+ library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupEncryptionConfiguration.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfiguration.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfigurationUpdates.hs view
@@ -0,0 +1,60 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupTags.hs view
@@ -0,0 +1,38 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfiguration.hs view
@@ -0,0 +1,67 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfigurationUpdates.hs view
@@ -0,0 +1,75 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupRuleResourceType.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.BackupBackupPlanBackupRuleResourceType where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.BackupBackupPlanCopyActionResourceType import Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType  -- | Full data type definition for BackupBackupPlanBackupRuleResourceType. See@@ -16,6 +17,7 @@ data BackupBackupPlanBackupRuleResourceType =   BackupBackupPlanBackupRuleResourceType   { _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes :: Maybe (Val Double)+  , _backupBackupPlanBackupRuleResourceTypeCopyActions :: Maybe [BackupBackupPlanCopyActionResourceType]   , _backupBackupPlanBackupRuleResourceTypeLifecycle :: Maybe BackupBackupPlanLifecycleResourceType   , _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags :: Maybe Object   , _backupBackupPlanBackupRuleResourceTypeRuleName :: Val Text@@ -29,6 +31,7 @@     object $     catMaybes     [ fmap (("CompletionWindowMinutes",) . toJSON) _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes+    , fmap (("CopyActions",) . toJSON) _backupBackupPlanBackupRuleResourceTypeCopyActions     , fmap (("Lifecycle",) . toJSON) _backupBackupPlanBackupRuleResourceTypeLifecycle     , fmap (("RecoveryPointTags",) . toJSON) _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags     , (Just . ("RuleName",) . toJSON) _backupBackupPlanBackupRuleResourceTypeRuleName@@ -46,6 +49,7 @@ backupBackupPlanBackupRuleResourceType ruleNamearg targetBackupVaultarg =   BackupBackupPlanBackupRuleResourceType   { _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes = Nothing+  , _backupBackupPlanBackupRuleResourceTypeCopyActions = Nothing   , _backupBackupPlanBackupRuleResourceTypeLifecycle = Nothing   , _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags = Nothing   , _backupBackupPlanBackupRuleResourceTypeRuleName = ruleNamearg@@ -57,6 +61,10 @@ -- | 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)
+ library-gen/Stratosphere/ResourceProperties/BackupBackupPlanCopyActionResourceType.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectFileSystemLocation.hs view
@@ -0,0 +1,71 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUsernameConfiguration.hs view
@@ -0,0 +1,38 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ConfigConformancePackConformancePackInputParameter.hs view
@@ -0,0 +1,49 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConformancePackConformancePackInputParameter.hs view
@@ -0,0 +1,50 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateData.hs view
@@ -18,6 +18,7 @@ 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@@ -44,6 +45,7 @@   , _eC2LaunchTemplateLaunchTemplateDataKernelId :: Maybe (Val Text)   , _eC2LaunchTemplateLaunchTemplateDataKeyName :: Maybe (Val Text)   , _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications :: Maybe [EC2LaunchTemplateLicenseSpecification]+  , _eC2LaunchTemplateLaunchTemplateDataMetadataOptions :: Maybe EC2LaunchTemplateMetadataOptions   , _eC2LaunchTemplateLaunchTemplateDataMonitoring :: Maybe EC2LaunchTemplateMonitoring   , _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces :: Maybe [EC2LaunchTemplateNetworkInterface]   , _eC2LaunchTemplateLaunchTemplateDataPlacement :: Maybe EC2LaunchTemplatePlacement@@ -75,6 +77,7 @@     , 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@@ -108,6 +111,7 @@   , _eC2LaunchTemplateLaunchTemplateDataKernelId = Nothing   , _eC2LaunchTemplateLaunchTemplateDataKeyName = Nothing   , _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications = Nothing+  , _eC2LaunchTemplateLaunchTemplateDataMetadataOptions = Nothing   , _eC2LaunchTemplateLaunchTemplateDataMonitoring = Nothing   , _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces = Nothing   , _eC2LaunchTemplateLaunchTemplateDataPlacement = Nothing@@ -185,6 +189,10 @@ -- | 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)
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator.hs view
@@ -16,14 +16,16 @@ -- convenient constructor. data EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator =   EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator-  { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType :: Maybe (Val Text)+  { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount :: Maybe (Val Integer)+  , _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where   toJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator{..} =     object $     catMaybes-    [ fmap (("Type",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType+    [ fmap (("Count",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount+    , fmap (("Type",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType     ]  -- | Constructor for@@ -33,8 +35,13 @@   :: EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator  =   EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator-  { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType = Nothing+  { _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))
+ library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMetadataOptions.hs view
@@ -0,0 +1,52 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePlacement.hs view
@@ -18,6 +18,9 @@   , _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) @@ -29,6 +32,9 @@     , 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     ] @@ -42,6 +48,9 @@   , _eC2LaunchTemplatePlacementAvailabilityZone = Nothing   , _eC2LaunchTemplatePlacementGroupName = Nothing   , _eC2LaunchTemplatePlacementHostId = Nothing+  , _eC2LaunchTemplatePlacementHostResourceGroupArn = Nothing+  , _eC2LaunchTemplatePlacementPartitionNumber = Nothing+  , _eC2LaunchTemplatePlacementSpreadDomain = Nothing   , _eC2LaunchTemplatePlacementTenancy = Nothing   } @@ -60,6 +69,18 @@ -- | 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))
+ library-gen/Stratosphere/ResourceProperties/EC2LocalGatewayRouteTableVPCAssociationTags.hs view
@@ -0,0 +1,40 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/EKSClusterEncryptionConfig.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/EKSClusterProvider.hs view
@@ -0,0 +1,38 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAction.hs view
@@ -11,6 +11,7 @@ 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@@ -20,6 +21,7 @@   { _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig :: Maybe ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig   , _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig :: Maybe ElasticLoadBalancingV2ListenerAuthenticateOidcConfig   , _elasticLoadBalancingV2ListenerActionFixedResponseConfig :: Maybe ElasticLoadBalancingV2ListenerFixedResponseConfig+  , _elasticLoadBalancingV2ListenerActionForwardConfig :: Maybe ElasticLoadBalancingV2ListenerForwardConfig   , _elasticLoadBalancingV2ListenerActionOrder :: Maybe (Val Integer)   , _elasticLoadBalancingV2ListenerActionRedirectConfig :: Maybe ElasticLoadBalancingV2ListenerRedirectConfig   , _elasticLoadBalancingV2ListenerActionTargetGroupArn :: Maybe (Val Text)@@ -33,6 +35,7 @@     [ 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@@ -49,6 +52,7 @@   { _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig = Nothing   , _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig = Nothing   , _elasticLoadBalancingV2ListenerActionFixedResponseConfig = Nothing+  , _elasticLoadBalancingV2ListenerActionForwardConfig = Nothing   , _elasticLoadBalancingV2ListenerActionOrder = Nothing   , _elasticLoadBalancingV2ListenerActionRedirectConfig = Nothing   , _elasticLoadBalancingV2ListenerActionTargetGroupArn = Nothing@@ -66,6 +70,10 @@ -- | 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))
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerForwardConfig.hs view
@@ -0,0 +1,48 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAction.hs view
@@ -11,6 +11,7 @@ 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.@@ -21,6 +22,7 @@   { _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig :: Maybe ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig   , _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig :: Maybe ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig   , _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig :: Maybe ElasticLoadBalancingV2ListenerRuleFixedResponseConfig+  , _elasticLoadBalancingV2ListenerRuleActionForwardConfig :: Maybe ElasticLoadBalancingV2ListenerRuleForwardConfig   , _elasticLoadBalancingV2ListenerRuleActionOrder :: Maybe (Val Integer)   , _elasticLoadBalancingV2ListenerRuleActionRedirectConfig :: Maybe ElasticLoadBalancingV2ListenerRuleRedirectConfig   , _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn :: Maybe (Val Text)@@ -34,6 +36,7 @@     [ 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@@ -50,6 +53,7 @@   { _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig = Nothing   , _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig = Nothing   , _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig = Nothing+  , _elasticLoadBalancingV2ListenerRuleActionForwardConfig = Nothing   , _elasticLoadBalancingV2ListenerRuleActionOrder = Nothing   , _elasticLoadBalancingV2ListenerRuleActionRedirectConfig = Nothing   , _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn = Nothing@@ -67,6 +71,10 @@ -- | 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))
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleForwardConfig.hs view
@@ -0,0 +1,48 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig.hs view
@@ -0,0 +1,48 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupTuple.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig.hs view
@@ -0,0 +1,48 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupTuple.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/FMSPolicyIEMap.hs view
@@ -0,0 +1,37 @@+{-# 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)+  } deriving (Show, Eq)++instance ToJSON FMSPolicyIEMap where+  toJSON FMSPolicyIEMap{..} =+    object $+    catMaybes+    [ fmap (("ACCOUNT",) . toJSON) _fMSPolicyIEMapACCOUNT+    ]++-- | Constructor for 'FMSPolicyIEMap' containing required fields as arguments.+fmsPolicyIEMap+  :: FMSPolicyIEMap+fmsPolicyIEMap  =+  FMSPolicyIEMap+  { _fMSPolicyIEMapACCOUNT = 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 })
+ library-gen/Stratosphere/ResourceProperties/FMSPolicyPolicyTag.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/FMSPolicyResourceTag.hs view
@@ -0,0 +1,46 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs view
@@ -14,9 +14,11 @@ -- 'fSxFileSystemLustreConfiguration' for a more convenient constructor. data FSxFileSystemLustreConfiguration =   FSxFileSystemLustreConfiguration-  { _fSxFileSystemLustreConfigurationExportPath :: Maybe (Val Text)+  { _fSxFileSystemLustreConfigurationDeploymentType :: 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) @@ -24,9 +26,11 @@   toJSON FSxFileSystemLustreConfiguration{..} =     object $     catMaybes-    [ fmap (("ExportPath",) . toJSON) _fSxFileSystemLustreConfigurationExportPath+    [ fmap (("DeploymentType",) . toJSON) _fSxFileSystemLustreConfigurationDeploymentType+    , fmap (("ExportPath",) . toJSON) _fSxFileSystemLustreConfigurationExportPath     , fmap (("ImportPath",) . toJSON) _fSxFileSystemLustreConfigurationImportPath     , fmap (("ImportedFileChunkSize",) . toJSON) _fSxFileSystemLustreConfigurationImportedFileChunkSize+    , fmap (("PerUnitStorageThroughput",) . toJSON) _fSxFileSystemLustreConfigurationPerUnitStorageThroughput     , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime     ] @@ -36,12 +40,18 @@   :: FSxFileSystemLustreConfiguration fSxFileSystemLustreConfiguration  =   FSxFileSystemLustreConfiguration-  { _fSxFileSystemLustreConfigurationExportPath = Nothing+  { _fSxFileSystemLustreConfigurationDeploymentType = 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-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-exportpath fsfslcExportPath :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) fsfslcExportPath = lens _fSxFileSystemLustreConfigurationExportPath (\s a -> s { _fSxFileSystemLustreConfigurationExportPath = a })@@ -53,6 +63,10 @@ -- | 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))
+ library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDownloadOwnerSetting.hs view
@@ -0,0 +1,50 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionS3MachineLearningModelResourceData.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.GreengrassResourceDefinitionS3MachineLearningModelResourceData where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting  -- | Full data type definition for -- GreengrassResourceDefinitionS3MachineLearningModelResourceData. See@@ -17,6 +17,7 @@ data GreengrassResourceDefinitionS3MachineLearningModelResourceData =   GreengrassResourceDefinitionS3MachineLearningModelResourceData   { _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath :: Val Text+  , _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionResourceDownloadOwnerSetting   , _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri :: Val Text   } deriving (Show, Eq) @@ -25,6 +26,7 @@     object $     catMaybes     [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath+    , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting     , (Just . ("S3Uri",) . toJSON) _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri     ] @@ -38,12 +40,17 @@ 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)
library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting  -- | Full data type definition for -- GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData.@@ -18,6 +18,7 @@ data GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData =   GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData   { _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath :: Val Text+  , _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionResourceDownloadOwnerSetting   , _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn :: Val Text   } deriving (Show, Eq) @@ -26,6 +27,7 @@     object $     catMaybes     [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath+    , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting     , (Just . ("SageMakerJobArn",) . toJSON) _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn     ] @@ -39,12 +41,17 @@ 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)
+ library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting.hs view
@@ -0,0 +1,50 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting  -- | Full data type definition for -- GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData.@@ -18,6 +18,7 @@ data GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData =   GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData   { _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath :: Val Text+  , _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting   , _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri :: Val Text   } deriving (Show, Eq) @@ -26,6 +27,7 @@     object $     catMaybes     [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath+    , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting     , (Just . ("S3Uri",) . toJSON) _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri     ] @@ -39,12 +41,17 @@ 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)
library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting  -- | Full data type definition for -- GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData.@@ -18,6 +18,7 @@ data GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData =   GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData   { _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath :: Val Text+  , _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting   , _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn :: Val Text   } deriving (Show, Eq) @@ -26,6 +27,7 @@     object $     catMaybes     [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath+    , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting     , (Just . ("SageMakerJobArn",) . toJSON) _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn     ] @@ -39,12 +41,17 @@ 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)
+ library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMultiplexProgramChannelDestinationSettings.hs view
@@ -0,0 +1,48 @@+{-# 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 })
library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestination.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.MediaLiveChannelMediaPackageOutputDestinationSettings+import Stratosphere.ResourceProperties.MediaLiveChannelMultiplexProgramChannelDestinationSettings import Stratosphere.ResourceProperties.MediaLiveChannelOutputDestinationSettings  -- | Full data type definition for MediaLiveChannelOutputDestination. See@@ -17,6 +18,7 @@   MediaLiveChannelOutputDestination   { _mediaLiveChannelOutputDestinationId :: Maybe (Val Text)   , _mediaLiveChannelOutputDestinationMediaPackageSettings :: Maybe [MediaLiveChannelMediaPackageOutputDestinationSettings]+  , _mediaLiveChannelOutputDestinationMultiplexSettings :: Maybe MediaLiveChannelMultiplexProgramChannelDestinationSettings   , _mediaLiveChannelOutputDestinationSettings :: Maybe [MediaLiveChannelOutputDestinationSettings]   } deriving (Show, Eq) @@ -26,6 +28,7 @@     catMaybes     [ fmap (("Id",) . toJSON) _mediaLiveChannelOutputDestinationId     , fmap (("MediaPackageSettings",) . toJSON) _mediaLiveChannelOutputDestinationMediaPackageSettings+    , fmap (("MultiplexSettings",) . toJSON) _mediaLiveChannelOutputDestinationMultiplexSettings     , fmap (("Settings",) . toJSON) _mediaLiveChannelOutputDestinationSettings     ] @@ -37,6 +40,7 @@   MediaLiveChannelOutputDestination   { _mediaLiveChannelOutputDestinationId = Nothing   , _mediaLiveChannelOutputDestinationMediaPackageSettings = Nothing+  , _mediaLiveChannelOutputDestinationMultiplexSettings = Nothing   , _mediaLiveChannelOutputDestinationSettings = Nothing   } @@ -47,6 +51,10 @@ -- | 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])
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementOne.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementTwo.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupByteMatchStatement.hs view
@@ -0,0 +1,71 @@+{-# 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 :: 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+    , (Just . ("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'+  -> Val Text -- ^ 'wafrgbmsSearchString'+  -> [WAFv2RuleGroupTextTransformation] -- ^ 'wafrgbmsTextTransformations'+  -> WAFv2RuleGroupByteMatchStatement+waFv2RuleGroupByteMatchStatement fieldToMatcharg positionalConstraintarg searchStringarg textTransformationsarg =+  WAFv2RuleGroupByteMatchStatement+  { _wAFv2RuleGroupByteMatchStatementFieldToMatch = fieldToMatcharg+  , _wAFv2RuleGroupByteMatchStatementPositionalConstraint = positionalConstraintarg+  , _wAFv2RuleGroupByteMatchStatementSearchString = searchStringarg+  , _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 (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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupFieldToMatch.hs view
@@ -0,0 +1,80 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupGeoMatchStatement.hs view
@@ -0,0 +1,38 @@+{-# 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+++-- | Full data type definition for WAFv2RuleGroupGeoMatchStatement. See+-- 'waFv2RuleGroupGeoMatchStatement' for a more convenient constructor.+data WAFv2RuleGroupGeoMatchStatement =+  WAFv2RuleGroupGeoMatchStatement+  { _wAFv2RuleGroupGeoMatchStatementCountryCodes :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON WAFv2RuleGroupGeoMatchStatement where+  toJSON WAFv2RuleGroupGeoMatchStatement{..} =+    object $+    catMaybes+    [ fmap (("CountryCodes",) . toJSON) _wAFv2RuleGroupGeoMatchStatementCountryCodes+    ]++-- | Constructor for 'WAFv2RuleGroupGeoMatchStatement' containing required+-- fields as arguments.+waFv2RuleGroupGeoMatchStatement+  :: WAFv2RuleGroupGeoMatchStatement+waFv2RuleGroupGeoMatchStatement  =+  WAFv2RuleGroupGeoMatchStatement+  { _wAFv2RuleGroupGeoMatchStatementCountryCodes = 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetReferenceStatement.hs view
@@ -0,0 +1,40 @@+{-# 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+++-- | Full data type definition for WAFv2RuleGroupIPSetReferenceStatement. See+-- 'waFv2RuleGroupIPSetReferenceStatement' for a more convenient+-- constructor.+data WAFv2RuleGroupIPSetReferenceStatement =+  WAFv2RuleGroupIPSetReferenceStatement+  { _wAFv2RuleGroupIPSetReferenceStatementArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON WAFv2RuleGroupIPSetReferenceStatement where+  toJSON WAFv2RuleGroupIPSetReferenceStatement{..} =+    object $+    catMaybes+    [ (Just . ("Arn",) . toJSON) _wAFv2RuleGroupIPSetReferenceStatementArn+    ]++-- | Constructor for 'WAFv2RuleGroupIPSetReferenceStatement' containing+-- required fields as arguments.+waFv2RuleGroupIPSetReferenceStatement+  :: Val Text -- ^ 'wafrgipsrsArn'+  -> WAFv2RuleGroupIPSetReferenceStatement+waFv2RuleGroupIPSetReferenceStatement arnarg =+  WAFv2RuleGroupIPSetReferenceStatement+  { _wAFv2RuleGroupIPSetReferenceStatementArn = arnarg+  }++-- | 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementOne.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementTwo.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementOne.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementTwo.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementOne.hs view
@@ -0,0 +1,54 @@+{-# 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.WAFv2RuleGroupStatementTwo++-- | Full data type definition for WAFv2RuleGroupRateBasedStatementOne. See+-- 'waFv2RuleGroupRateBasedStatementOne' for a more convenient constructor.+data WAFv2RuleGroupRateBasedStatementOne =+  WAFv2RuleGroupRateBasedStatementOne+  { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType :: Val Text+  , _wAFv2RuleGroupRateBasedStatementOneLimit :: Val Integer+  , _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement :: Maybe WAFv2RuleGroupStatementTwo+  } deriving (Show, Eq)++instance ToJSON WAFv2RuleGroupRateBasedStatementOne where+  toJSON WAFv2RuleGroupRateBasedStatementOne{..} =+    object $+    catMaybes+    [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType+    , (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+  , _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-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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementTwo.hs view
@@ -0,0 +1,54 @@+{-# 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.WAFv2RuleGroupStatementThree++-- | Full data type definition for WAFv2RuleGroupRateBasedStatementTwo. See+-- 'waFv2RuleGroupRateBasedStatementTwo' for a more convenient constructor.+data WAFv2RuleGroupRateBasedStatementTwo =+  WAFv2RuleGroupRateBasedStatementTwo+  { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType :: Val Text+  , _wAFv2RuleGroupRateBasedStatementTwoLimit :: Val Integer+  , _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement :: Maybe WAFv2RuleGroupStatementThree+  } deriving (Show, Eq)++instance ToJSON WAFv2RuleGroupRateBasedStatementTwo where+  toJSON WAFv2RuleGroupRateBasedStatementTwo{..} =+    object $+    catMaybes+    [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType+    , (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+  , _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-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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRegexPatternSetReferenceStatement.hs view
@@ -0,0 +1,58 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRule.hs view
@@ -0,0 +1,72 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRuleAction.hs view
@@ -0,0 +1,52 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSizeConstraintStatement.hs view
@@ -0,0 +1,65 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSqliMatchStatement.hs view
@@ -0,0 +1,48 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementOne.hs view
@@ -0,0 +1,118 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementThree.hs view
@@ -0,0 +1,86 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementTwo.hs view
@@ -0,0 +1,118 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupTextTransformation.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupVisibilityConfig.hs view
@@ -0,0 +1,55 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupXssMatchStatement.hs view
@@ -0,0 +1,48 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementOne.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementTwo.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLByteMatchStatement.hs view
@@ -0,0 +1,71 @@+{-# 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 :: 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+    , (Just . ("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'+  -> Val Text -- ^ 'wafwaclbmsSearchString'+  -> [WAFv2WebACLTextTransformation] -- ^ 'wafwaclbmsTextTransformations'+  -> WAFv2WebACLByteMatchStatement+waFv2WebACLByteMatchStatement fieldToMatcharg positionalConstraintarg searchStringarg textTransformationsarg =+  WAFv2WebACLByteMatchStatement+  { _wAFv2WebACLByteMatchStatementFieldToMatch = fieldToMatcharg+  , _wAFv2WebACLByteMatchStatementPositionalConstraint = positionalConstraintarg+  , _wAFv2WebACLByteMatchStatementSearchString = searchStringarg+  , _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 (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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLDefaultAction.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLExcludedRule.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLFieldToMatch.hs view
@@ -0,0 +1,80 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLGeoMatchStatement.hs view
@@ -0,0 +1,38 @@+{-# 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+++-- | Full data type definition for WAFv2WebACLGeoMatchStatement. See+-- 'waFv2WebACLGeoMatchStatement' for a more convenient constructor.+data WAFv2WebACLGeoMatchStatement =+  WAFv2WebACLGeoMatchStatement+  { _wAFv2WebACLGeoMatchStatementCountryCodes :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON WAFv2WebACLGeoMatchStatement where+  toJSON WAFv2WebACLGeoMatchStatement{..} =+    object $+    catMaybes+    [ fmap (("CountryCodes",) . toJSON) _wAFv2WebACLGeoMatchStatementCountryCodes+    ]++-- | Constructor for 'WAFv2WebACLGeoMatchStatement' containing required fields+-- as arguments.+waFv2WebACLGeoMatchStatement+  :: WAFv2WebACLGeoMatchStatement+waFv2WebACLGeoMatchStatement  =+  WAFv2WebACLGeoMatchStatement+  { _wAFv2WebACLGeoMatchStatementCountryCodes = 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetReferenceStatement.hs view
@@ -0,0 +1,39 @@+{-# 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+++-- | Full data type definition for WAFv2WebACLIPSetReferenceStatement. See+-- 'waFv2WebACLIPSetReferenceStatement' for a more convenient constructor.+data WAFv2WebACLIPSetReferenceStatement =+  WAFv2WebACLIPSetReferenceStatement+  { _wAFv2WebACLIPSetReferenceStatementArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON WAFv2WebACLIPSetReferenceStatement where+  toJSON WAFv2WebACLIPSetReferenceStatement{..} =+    object $+    catMaybes+    [ (Just . ("Arn",) . toJSON) _wAFv2WebACLIPSetReferenceStatementArn+    ]++-- | Constructor for 'WAFv2WebACLIPSetReferenceStatement' containing required+-- fields as arguments.+waFv2WebACLIPSetReferenceStatement+  :: Val Text -- ^ 'wafwaclipsrsArn'+  -> WAFv2WebACLIPSetReferenceStatement+waFv2WebACLIPSetReferenceStatement arnarg =+  WAFv2WebACLIPSetReferenceStatement+  { _wAFv2WebACLIPSetReferenceStatementArn = arnarg+  }++-- | 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLManagedRuleGroupStatement.hs view
@@ -0,0 +1,54 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementOne.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementTwo.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementOne.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementTwo.hs view
@@ -0,0 +1,39 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOverrideAction.hs view
@@ -0,0 +1,45 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementOne.hs view
@@ -0,0 +1,54 @@+{-# 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.WAFv2WebACLStatementTwo++-- | Full data type definition for WAFv2WebACLRateBasedStatementOne. See+-- 'waFv2WebACLRateBasedStatementOne' for a more convenient constructor.+data WAFv2WebACLRateBasedStatementOne =+  WAFv2WebACLRateBasedStatementOne+  { _wAFv2WebACLRateBasedStatementOneAggregateKeyType :: Val Text+  , _wAFv2WebACLRateBasedStatementOneLimit :: Val Integer+  , _wAFv2WebACLRateBasedStatementOneScopeDownStatement :: Maybe WAFv2WebACLStatementTwo+  } deriving (Show, Eq)++instance ToJSON WAFv2WebACLRateBasedStatementOne where+  toJSON WAFv2WebACLRateBasedStatementOne{..} =+    object $+    catMaybes+    [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2WebACLRateBasedStatementOneAggregateKeyType+    , (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+  , _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-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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementTwo.hs view
@@ -0,0 +1,54 @@+{-# 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.WAFv2WebACLStatementThree++-- | Full data type definition for WAFv2WebACLRateBasedStatementTwo. See+-- 'waFv2WebACLRateBasedStatementTwo' for a more convenient constructor.+data WAFv2WebACLRateBasedStatementTwo =+  WAFv2WebACLRateBasedStatementTwo+  { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType :: Val Text+  , _wAFv2WebACLRateBasedStatementTwoLimit :: Val Integer+  , _wAFv2WebACLRateBasedStatementTwoScopeDownStatement :: Maybe WAFv2WebACLStatementThree+  } deriving (Show, Eq)++instance ToJSON WAFv2WebACLRateBasedStatementTwo where+  toJSON WAFv2WebACLRateBasedStatementTwo{..} =+    object $+    catMaybes+    [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2WebACLRateBasedStatementTwoAggregateKeyType+    , (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+  , _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-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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRegexPatternSetReferenceStatement.hs view
@@ -0,0 +1,58 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRule.hs view
@@ -0,0 +1,80 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleAction.hs view
@@ -0,0 +1,52 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleGroupReferenceStatement.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSizeConstraintStatement.hs view
@@ -0,0 +1,64 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSqliMatchStatement.hs view
@@ -0,0 +1,48 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementOne.hs view
@@ -0,0 +1,134 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementThree.hs view
@@ -0,0 +1,102 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementTwo.hs view
@@ -0,0 +1,134 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLTextTransformation.hs view
@@ -0,0 +1,47 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLVisibilityConfig.hs view
@@ -0,0 +1,55 @@+{-# 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 })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLXssMatchStatement.hs view
@@ -0,0 +1,48 @@+{-# 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 })
library-gen/Stratosphere/Resources.hs view
@@ -84,6 +84,11 @@ import Stratosphere.Resources.ApiGatewayV2Route as X import Stratosphere.Resources.ApiGatewayV2RouteResponse as X import Stratosphere.Resources.ApiGatewayV2Stage 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.AppMeshMesh as X import Stratosphere.Resources.AppMeshRoute as X import Stratosphere.Resources.AppMeshVirtualNode as X@@ -106,6 +111,7 @@ import Stratosphere.Resources.ApplicationAutoScalingScalableTarget as X import Stratosphere.Resources.ApplicationAutoScalingScalingPolicy 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@@ -120,6 +126,7 @@ import Stratosphere.Resources.BatchJobQueue as X import Stratosphere.Resources.BudgetsBudget 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@@ -132,6 +139,7 @@ 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@@ -145,6 +153,7 @@ 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@@ -162,8 +171,10 @@ 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@@ -200,6 +211,8 @@ 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@@ -280,6 +293,8 @@ 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@@ -529,8 +544,17 @@ 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@@ -575,6 +599,13 @@ 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.AppMeshMeshEgressFilter as X import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec as X import Stratosphere.ResourceProperties.AppMeshRouteDuration as X@@ -599,13 +630,24 @@ 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.AppMeshVirtualNodeFileAccessLog as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener 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.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@@ -653,6 +695,12 @@ import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration 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@@ -680,6 +728,7 @@ 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@@ -745,6 +794,7 @@ import Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig 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@@ -815,6 +865,7 @@ 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.CognitoUserPoolDomainCustomDomainConfigType as X@@ -834,9 +885,11 @@ 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@@ -918,12 +971,14 @@ 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@@ -994,6 +1049,8 @@ import Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry 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.EKSNodegroupRemoteAccess as X import Stratosphere.ResourceProperties.EKSNodegroupScalingConfig as X@@ -1067,12 +1124,16 @@ 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@@ -1082,6 +1143,8 @@ 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@@ -1112,6 +1175,9 @@ 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@@ -1204,6 +1270,7 @@ 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@@ -1212,6 +1279,7 @@ 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@@ -1453,6 +1521,7 @@ 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@@ -1698,6 +1767,57 @@ 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.WAFv2RuleGroupGeoMatchStatement 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.WAFv2WebACLGeoMatchStatement 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
library-gen/Stratosphere/Resources/ACMPCACertificate.hs view
@@ -8,7 +8,7 @@ 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.@@ -18,7 +18,7 @@   , _aCMPCACertificateCertificateSigningRequest :: Val Text   , _aCMPCACertificateSigningAlgorithm :: Val Text   , _aCMPCACertificateTemplateArn :: Maybe (Val Text)-  , _aCMPCACertificateValidity :: Object+  , _aCMPCACertificateValidity :: ACMPCACertificateValidity   } deriving (Show, Eq)  instance ToResourceProperties ACMPCACertificate where@@ -41,7 +41,7 @@   :: Val Text -- ^ 'acmpcacCertificateAuthorityArn'   -> Val Text -- ^ 'acmpcacCertificateSigningRequest'   -> Val Text -- ^ 'acmpcacSigningAlgorithm'-  -> Object -- ^ 'acmpcacValidity'+  -> ACMPCACertificateValidity -- ^ 'acmpcacValidity'   -> ACMPCACertificate acmpcaCertificate certificateAuthorityArnarg certificateSigningRequestarg signingAlgorithmarg validityarg =   ACMPCACertificate@@ -69,5 +69,5 @@ 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 Object+acmpcacValidity :: Lens' ACMPCACertificate ACMPCACertificateValidity acmpcacValidity = lens _aCMPCACertificateValidity (\s a -> s { _aCMPCACertificateValidity = a })
library-gen/Stratosphere/Resources/ACMPCACertificateAuthority.hs view
@@ -8,6 +8,8 @@ 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@@ -15,9 +17,9 @@ data ACMPCACertificateAuthority =   ACMPCACertificateAuthority   { _aCMPCACertificateAuthorityKeyAlgorithm :: Val Text-  , _aCMPCACertificateAuthorityRevocationConfiguration :: Maybe Object+  , _aCMPCACertificateAuthorityRevocationConfiguration :: Maybe ACMPCACertificateAuthorityRevocationConfiguration   , _aCMPCACertificateAuthoritySigningAlgorithm :: Val Text-  , _aCMPCACertificateAuthoritySubject :: Object+  , _aCMPCACertificateAuthoritySubject :: ACMPCACertificateAuthoritySubject   , _aCMPCACertificateAuthorityTags :: Maybe [Tag]   , _aCMPCACertificateAuthorityType :: Val Text   } deriving (Show, Eq)@@ -42,7 +44,7 @@ acmpcaCertificateAuthority   :: Val Text -- ^ 'acmpcacaKeyAlgorithm'   -> Val Text -- ^ 'acmpcacaSigningAlgorithm'-  -> Object -- ^ 'acmpcacaSubject'+  -> ACMPCACertificateAuthoritySubject -- ^ 'acmpcacaSubject'   -> Val Text -- ^ 'acmpcacaType'   -> ACMPCACertificateAuthority acmpcaCertificateAuthority keyAlgorithmarg signingAlgorithmarg subjectarg typearg =@@ -60,7 +62,7 @@ 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 Object)+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@@ -68,7 +70,7 @@ 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 Object+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
+ library-gen/Stratosphere/Resources/AppConfigApplication.hs view
@@ -0,0 +1,56 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/AppConfigConfigurationProfile.hs view
@@ -0,0 +1,87 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/AppConfigDeployment.hs view
@@ -0,0 +1,88 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/AppConfigDeploymentStrategy.hs view
@@ -0,0 +1,94 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/AppConfigEnvironment.hs view
@@ -0,0 +1,72 @@+{-# 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 =+        hashMapFromList $ 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 })
library-gen/Stratosphere/Resources/AppSyncGraphQLApi.hs view
@@ -25,6 +25,7 @@   , _appSyncGraphQLApiOpenIDConnectConfig :: Maybe AppSyncGraphQLApiOpenIDConnectConfig   , _appSyncGraphQLApiTags :: Maybe [Tag]   , _appSyncGraphQLApiUserPoolConfig :: Maybe AppSyncGraphQLApiUserPoolConfig+  , _appSyncGraphQLApiXrayEnabled :: Maybe (Val Bool)   } deriving (Show, Eq)  instance ToResourceProperties AppSyncGraphQLApi where@@ -40,6 +41,7 @@         , fmap (("OpenIDConnectConfig",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfig         , fmap (("Tags",) . toJSON) _appSyncGraphQLApiTags         , fmap (("UserPoolConfig",) . toJSON) _appSyncGraphQLApiUserPoolConfig+        , fmap (("XrayEnabled",) . toJSON) _appSyncGraphQLApiXrayEnabled         ]     } @@ -58,6 +60,7 @@   , _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@@ -87,3 +90,7 @@ -- | 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 })
+ library-gen/Stratosphere/Resources/AthenaWorkGroup.hs view
@@ -0,0 +1,86 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/ChatbotSlackChannelConfiguration.hs view
@@ -0,0 +1,87 @@+{-# 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+  { _chatbotSlackChannelConfigurationArn :: Maybe (Val Text)+  , _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 =+        hashMapFromList $ catMaybes+        [ fmap (("Arn",) . toJSON) _chatbotSlackChannelConfigurationArn+        , (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+  { _chatbotSlackChannelConfigurationArn = Nothing+  , _chatbotSlackChannelConfigurationConfigurationName = configurationNamearg+  , _chatbotSlackChannelConfigurationIamRoleArn = iamRoleArnarg+  , _chatbotSlackChannelConfigurationLoggingLevel = Nothing+  , _chatbotSlackChannelConfigurationSlackChannelId = slackChannelIdarg+  , _chatbotSlackChannelConfigurationSlackWorkspaceId = slackWorkspaceIdarg+  , _chatbotSlackChannelConfigurationSnsTopicArns = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-arn+csccArn :: Lens' ChatbotSlackChannelConfiguration (Maybe (Val Text))+csccArn = lens _chatbotSlackChannelConfigurationArn (\s a -> s { _chatbotSlackChannelConfigurationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-configurationname+csccConfigurationName :: Lens' ChatbotSlackChannelConfiguration (Val Text)+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 })
+ library-gen/Stratosphere/Resources/CloudWatchCompositeAlarm.hs view
@@ -0,0 +1,85 @@+{-# 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 =+        hashMapFromList $ 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 })
library-gen/Stratosphere/Resources/CodeBuildProject.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment+import Stratosphere.ResourceProperties.CodeBuildProjectProjectFileSystemLocation import Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig import Stratosphere.ResourceProperties.CodeBuildProjectProjectSourceVersion import Stratosphere.ResourceProperties.CodeBuildProjectSource@@ -28,6 +29,7 @@   , _codeBuildProjectDescription :: Maybe (Val Text)   , _codeBuildProjectEncryptionKey :: Maybe (Val Text)   , _codeBuildProjectEnvironment :: CodeBuildProjectEnvironment+  , _codeBuildProjectFileSystemLocations :: Maybe [CodeBuildProjectProjectFileSystemLocation]   , _codeBuildProjectLogsConfig :: Maybe CodeBuildProjectLogsConfig   , _codeBuildProjectName :: Maybe (Val Text)   , _codeBuildProjectQueuedTimeoutInMinutes :: Maybe (Val Integer)@@ -55,6 +57,7 @@         , 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@@ -87,6 +90,7 @@   , _codeBuildProjectDescription = Nothing   , _codeBuildProjectEncryptionKey = Nothing   , _codeBuildProjectEnvironment = environmentarg+  , _codeBuildProjectFileSystemLocations = Nothing   , _codeBuildProjectLogsConfig = Nothing   , _codeBuildProjectName = Nothing   , _codeBuildProjectQueuedTimeoutInMinutes = Nothing@@ -125,6 +129,10 @@ -- | 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)
+ library-gen/Stratosphere/Resources/CodeStarConnectionsConnection.hs view
@@ -0,0 +1,50 @@+{-# 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+++-- | Full data type definition for CodeStarConnectionsConnection. See+-- 'codeStarConnectionsConnection' for a more convenient constructor.+data CodeStarConnectionsConnection =+  CodeStarConnectionsConnection+  { _codeStarConnectionsConnectionConnectionName :: Val Text+  , _codeStarConnectionsConnectionProviderType :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties CodeStarConnectionsConnection where+  toResourceProperties CodeStarConnectionsConnection{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::CodeStarConnections::Connection"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ConnectionName",) . toJSON) _codeStarConnectionsConnectionConnectionName+        , (Just . ("ProviderType",) . toJSON) _codeStarConnectionsConnectionProviderType+        ]+    }++-- | Constructor for 'CodeStarConnectionsConnection' containing required+-- fields as arguments.+codeStarConnectionsConnection+  :: Val Text -- ^ 'csccConnectionName'+  -> Val Text -- ^ 'csccProviderType'+  -> CodeStarConnectionsConnection+codeStarConnectionsConnection connectionNamearg providerTypearg =+  CodeStarConnectionsConnection+  { _codeStarConnectionsConnectionConnectionName = connectionNamearg+  , _codeStarConnectionsConnectionProviderType = providerTypearg+  }++-- | 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-providertype+csccProviderType :: Lens' CodeStarConnectionsConnection (Val Text)+csccProviderType = lens _codeStarConnectionsConnectionProviderType (\s a -> s { _codeStarConnectionsConnectionProviderType = a })
library-gen/Stratosphere/Resources/CognitoUserPool.hs view
@@ -17,6 +17,7 @@ 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@@ -43,6 +44,7 @@   , _cognitoUserPoolUserPoolName :: Maybe (Val Text)   , _cognitoUserPoolUserPoolTags :: Maybe Object   , _cognitoUserPoolUsernameAttributes :: Maybe (ValList Text)+  , _cognitoUserPoolUsernameConfiguration :: Maybe CognitoUserPoolUsernameConfiguration   , _cognitoUserPoolVerificationMessageTemplate :: Maybe CognitoUserPoolVerificationMessageTemplate   } deriving (Show, Eq) @@ -72,6 +74,7 @@         , fmap (("UserPoolName",) . toJSON) _cognitoUserPoolUserPoolName         , fmap (("UserPoolTags",) . toJSON) _cognitoUserPoolUserPoolTags         , fmap (("UsernameAttributes",) . toJSON) _cognitoUserPoolUsernameAttributes+        , fmap (("UsernameConfiguration",) . toJSON) _cognitoUserPoolUsernameConfiguration         , fmap (("VerificationMessageTemplate",) . toJSON) _cognitoUserPoolVerificationMessageTemplate         ]     }@@ -102,6 +105,7 @@   , _cognitoUserPoolUserPoolName = Nothing   , _cognitoUserPoolUserPoolTags = Nothing   , _cognitoUserPoolUsernameAttributes = Nothing+  , _cognitoUserPoolUsernameConfiguration = Nothing   , _cognitoUserPoolVerificationMessageTemplate = Nothing   } @@ -184,6 +188,10 @@ -- | 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)
library-gen/Stratosphere/Resources/ConfigAggregationAuthorization.hs view
@@ -8,7 +8,7 @@ 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.@@ -16,6 +16,7 @@   ConfigAggregationAuthorization   { _configAggregationAuthorizationAuthorizedAccountId :: Val Text   , _configAggregationAuthorizationAuthorizedAwsRegion :: Val Text+  , _configAggregationAuthorizationTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ConfigAggregationAuthorization where@@ -26,6 +27,7 @@         hashMapFromList $ catMaybes         [ (Just . ("AuthorizedAccountId",) . toJSON) _configAggregationAuthorizationAuthorizedAccountId         , (Just . ("AuthorizedAwsRegion",) . toJSON) _configAggregationAuthorizationAuthorizedAwsRegion+        , fmap (("Tags",) . toJSON) _configAggregationAuthorizationTags         ]     } @@ -39,6 +41,7 @@   ConfigAggregationAuthorization   { _configAggregationAuthorizationAuthorizedAccountId = authorizedAccountIdarg   , _configAggregationAuthorizationAuthorizedAwsRegion = authorizedAwsRegionarg+  , _configAggregationAuthorizationTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html#cfn-config-aggregationauthorization-authorizedaccountid@@ -48,3 +51,7 @@ -- | 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 })
library-gen/Stratosphere/Resources/ConfigConfigurationAggregator.hs view
@@ -10,6 +10,7 @@ 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.@@ -18,6 +19,7 @@   { _configConfigurationAggregatorAccountAggregationSources :: Maybe [ConfigConfigurationAggregatorAccountAggregationSource]   , _configConfigurationAggregatorConfigurationAggregatorName :: Val Text   , _configConfigurationAggregatorOrganizationAggregationSource :: Maybe ConfigConfigurationAggregatorOrganizationAggregationSource+  , _configConfigurationAggregatorTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ConfigConfigurationAggregator where@@ -29,6 +31,7 @@         [ fmap (("AccountAggregationSources",) . toJSON) _configConfigurationAggregatorAccountAggregationSources         , (Just . ("ConfigurationAggregatorName",) . toJSON) _configConfigurationAggregatorConfigurationAggregatorName         , fmap (("OrganizationAggregationSource",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSource+        , fmap (("Tags",) . toJSON) _configConfigurationAggregatorTags         ]     } @@ -42,6 +45,7 @@   { _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@@ -55,3 +59,7 @@ -- | 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 })
+ library-gen/Stratosphere/Resources/ConfigConformancePack.hs view
@@ -0,0 +1,78 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/ConfigOrganizationConformancePack.hs view
@@ -0,0 +1,85 @@+{-# 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 =+        hashMapFromList $ 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 })
library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs view
@@ -25,6 +25,7 @@   , _eC2ClientVpnEndpointSplitTunnel :: Maybe (Val Bool)   , _eC2ClientVpnEndpointTagSpecifications :: Maybe [EC2ClientVpnEndpointTagSpecification]   , _eC2ClientVpnEndpointTransportProtocol :: Maybe (Val Text)+  , _eC2ClientVpnEndpointVpnPort :: Maybe (Val Integer)   } deriving (Show, Eq)  instance ToResourceProperties EC2ClientVpnEndpoint where@@ -42,6 +43,7 @@         , fmap (("SplitTunnel",) . toJSON) _eC2ClientVpnEndpointSplitTunnel         , fmap (("TagSpecifications",) . toJSON) _eC2ClientVpnEndpointTagSpecifications         , fmap (("TransportProtocol",) . toJSON) _eC2ClientVpnEndpointTransportProtocol+        , fmap (("VpnPort",) . toJSON) _eC2ClientVpnEndpointVpnPort         ]     } @@ -64,6 +66,7 @@   , _eC2ClientVpnEndpointSplitTunnel = Nothing   , _eC2ClientVpnEndpointTagSpecifications = Nothing   , _eC2ClientVpnEndpointTransportProtocol = Nothing+  , _eC2ClientVpnEndpointVpnPort = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-authenticationoptions@@ -101,3 +104,7 @@ -- | 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-vpnport+eccveVpnPort :: Lens' EC2ClientVpnEndpoint (Maybe (Val Integer))+eccveVpnPort = lens _eC2ClientVpnEndpointVpnPort (\s a -> s { _eC2ClientVpnEndpointVpnPort = a })
+ library-gen/Stratosphere/Resources/EC2LocalGatewayRoute.hs view
@@ -0,0 +1,58 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/EC2LocalGatewayRouteTableVPCAssociation.hs view
@@ -0,0 +1,58 @@+{-# 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 =+        hashMapFromList $ 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 })
library-gen/Stratosphere/Resources/EKSCluster.hs view
@@ -8,13 +8,15 @@ 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-  { _eKSClusterName :: Maybe (Val Text)+  { _eKSClusterEncryptionConfig :: Maybe [EKSClusterEncryptionConfig]+  , _eKSClusterName :: Maybe (Val Text)   , _eKSClusterResourcesVpcConfig :: EKSClusterResourcesVpcConfig   , _eKSClusterRoleArn :: Val Text   , _eKSClusterVersion :: Maybe (Val Text)@@ -26,7 +28,8 @@     { resourcePropertiesType = "AWS::EKS::Cluster"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("Name",) . toJSON) _eKSClusterName+        [ fmap (("EncryptionConfig",) . toJSON) _eKSClusterEncryptionConfig+        , fmap (("Name",) . toJSON) _eKSClusterName         , (Just . ("ResourcesVpcConfig",) . toJSON) _eKSClusterResourcesVpcConfig         , (Just . ("RoleArn",) . toJSON) _eKSClusterRoleArn         , fmap (("Version",) . toJSON) _eKSClusterVersion@@ -40,11 +43,16 @@   -> EKSCluster eksCluster resourcesVpcConfigarg roleArnarg =   EKSCluster-  { _eKSClusterName = Nothing+  { _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))
+ library-gen/Stratosphere/Resources/FMSNotificationChannel.hs view
@@ -0,0 +1,50 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/FMSPolicy.hs view
@@ -0,0 +1,117 @@+{-# 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 =+        hashMapFromList $ 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 })
library-gen/Stratosphere/Resources/NeptuneDBCluster.hs view
@@ -19,7 +19,9 @@   , _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)@@ -42,7 +44,9 @@         , 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@@ -66,7 +70,9 @@   , _neptuneDBClusterDBClusterIdentifier = Nothing   , _neptuneDBClusterDBClusterParameterGroupName = Nothing   , _neptuneDBClusterDBSubnetGroupName = Nothing+  , _neptuneDBClusterDeletionProtection = Nothing   , _neptuneDBClusterEnableCloudwatchLogsExports = Nothing+  , _neptuneDBClusterEngineVersion = Nothing   , _neptuneDBClusterIamAuthEnabled = Nothing   , _neptuneDBClusterKmsKeyId = Nothing   , _neptuneDBClusterPort = Nothing@@ -98,9 +104,17 @@ 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))
library-gen/Stratosphere/Resources/OpsWorksCMServer.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.OpsWorksCMServerEngineAttribute+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for OpsWorksCMServer. See 'opsWorksCMServer' -- for a more convenient constructor.@@ -34,6 +35,7 @@   , _opsWorksCMServerServerName :: Maybe (Val Text)   , _opsWorksCMServerServiceRoleArn :: Val Text   , _opsWorksCMServerSubnetIds :: Maybe (ValList Text)+  , _opsWorksCMServerTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties OpsWorksCMServer where@@ -62,6 +64,7 @@         , fmap (("ServerName",) . toJSON) _opsWorksCMServerServerName         , (Just . ("ServiceRoleArn",) . toJSON) _opsWorksCMServerServiceRoleArn         , fmap (("SubnetIds",) . toJSON) _opsWorksCMServerSubnetIds+        , fmap (("Tags",) . toJSON) _opsWorksCMServerTags         ]     } @@ -94,6 +97,7 @@   , _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@@ -175,3 +179,7 @@ -- | 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 })
+ library-gen/Stratosphere/Resources/WAFv2IPSet.hs view
@@ -0,0 +1,78 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/WAFv2RegexPatternSet.hs view
@@ -0,0 +1,71 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/WAFv2RuleGroup.hs view
@@ -0,0 +1,87 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/WAFv2WebACL.hs view
@@ -0,0 +1,88 @@+{-# 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 =+        hashMapFromList $ 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 })
+ library-gen/Stratosphere/Resources/WAFv2WebACLAssociation.hs view
@@ -0,0 +1,50 @@+{-# 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 =+        hashMapFromList $ 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 })
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 86fbe8bab846642c04ef17e1c4f57bf87cc8d612b354efd1c2b90e7202dd23d4+-- hash: ee57ccca1e9a4f1356e456333df8d21a6fff47a4909fb4e4f029bfbe0316e85e  name:           stratosphere-version:        0.49.0+version:        0.50.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -51,6 +51,10 @@       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.AmazonMQBrokerLogList@@ -93,6 +97,13 @@       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@@ -126,13 +137,24 @@       Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute       Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapServiceDiscovery       Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend+      Stratosphere.ResourceProperties.AppMeshVirtualNodeBackendDefaults+      Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy+      Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls       Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery       Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog       Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck       Stratosphere.ResourceProperties.AppMeshVirtualNodeListener+      Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls+      Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate+      Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate+      Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsFileCertificate       Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging       Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping       Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery+      Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext+      Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust+      Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust+      Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextTrust       Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec       Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend       Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping@@ -174,6 +196,12 @@       Stratosphere.ResourceProperties.ASKSkillAuthenticationConfiguration       Stratosphere.ResourceProperties.ASKSkillOverrides       Stratosphere.ResourceProperties.ASKSkillSkillPackage+      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@@ -201,6 +229,7 @@       Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration       Stratosphere.ResourceProperties.BackupBackupPlanBackupPlanResourceType       Stratosphere.ResourceProperties.BackupBackupPlanBackupRuleResourceType+      Stratosphere.ResourceProperties.BackupBackupPlanCopyActionResourceType       Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType       Stratosphere.ResourceProperties.BackupBackupSelectionBackupSelectionResourceType       Stratosphere.ResourceProperties.BackupBackupSelectionConditionResourceType@@ -266,6 +295,7 @@       Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig       Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig       Stratosphere.ResourceProperties.CodeBuildProjectProjectCache+      Stratosphere.ResourceProperties.CodeBuildProjectProjectFileSystemLocation       Stratosphere.ResourceProperties.CodeBuildProjectProjectSourceVersion       Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers       Stratosphere.ResourceProperties.CodeBuildProjectRegistryCredential@@ -347,6 +377,7 @@       Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration       Stratosphere.ResourceProperties.CognitoUserPoolStringAttributeConstraints       Stratosphere.ResourceProperties.CognitoUserPoolUserAttributeType+      Stratosphere.ResourceProperties.CognitoUserPoolUsernameConfiguration       Stratosphere.ResourceProperties.CognitoUserPoolUserPoolAddOns       Stratosphere.ResourceProperties.CognitoUserPoolVerificationMessageTemplate       Stratosphere.ResourceProperties.ConfigConfigRuleScope@@ -355,9 +386,11 @@       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@@ -439,12 +472,14 @@       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@@ -515,6 +550,8 @@       Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry       Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag       Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy+      Stratosphere.ResourceProperties.EKSClusterEncryptionConfig+      Stratosphere.ResourceProperties.EKSClusterProvider       Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig       Stratosphere.ResourceProperties.EKSNodegroupRemoteAccess       Stratosphere.ResourceProperties.EKSNodegroupScalingConfig@@ -542,11 +579,13 @@       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@@ -556,6 +595,10 @@       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@@ -633,6 +676,9 @@       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@@ -725,6 +771,7 @@       Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalVolumeResourceData       Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDataContainer       Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDefinitionVersion+      Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting       Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceInstance       Stratosphere.ResourceProperties.GreengrassResourceDefinitionS3MachineLearningModelResourceData       Stratosphere.ResourceProperties.GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData@@ -733,6 +780,7 @@       Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalDeviceResourceData       Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalVolumeResourceData       Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDataContainer+      Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting       Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceInstance       Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData       Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData@@ -961,6 +1009,7 @@       Stratosphere.ResourceProperties.MediaLiveChannelInputSettings       Stratosphere.ResourceProperties.MediaLiveChannelInputSpecification       Stratosphere.ResourceProperties.MediaLiveChannelMediaPackageOutputDestinationSettings+      Stratosphere.ResourceProperties.MediaLiveChannelMultiplexProgramChannelDestinationSettings       Stratosphere.ResourceProperties.MediaLiveChannelNetworkInputSettings       Stratosphere.ResourceProperties.MediaLiveChannelOutputDestination       Stratosphere.ResourceProperties.MediaLiveChannelOutputDestinationSettings@@ -1216,6 +1265,57 @@       Stratosphere.ResourceProperties.WAFSizeConstraintSetSizeConstraint       Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetFieldToMatch       Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetSqlInjectionMatchTuple+      Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementOne+      Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo+      Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement+      Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch+      Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement+      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.WAFv2WebACLGeoMatchStatement+      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@@ -1262,6 +1362,11 @@       Stratosphere.Resources.ApiGatewayV2RouteResponse       Stratosphere.Resources.ApiGatewayV2Stage       Stratosphere.Resources.ApiGatewayVpcLink+      Stratosphere.Resources.AppConfigApplication+      Stratosphere.Resources.AppConfigConfigurationProfile+      Stratosphere.Resources.AppConfigDeployment+      Stratosphere.Resources.AppConfigDeploymentStrategy+      Stratosphere.Resources.AppConfigEnvironment       Stratosphere.Resources.ApplicationAutoScalingScalableTarget       Stratosphere.Resources.ApplicationAutoScalingScalingPolicy       Stratosphere.Resources.AppMeshMesh@@ -1285,6 +1390,7 @@       Stratosphere.Resources.AppSyncResolver       Stratosphere.Resources.ASKSkill       Stratosphere.Resources.AthenaNamedQuery+      Stratosphere.Resources.AthenaWorkGroup       Stratosphere.Resources.AutoScalingAutoScalingGroup       Stratosphere.Resources.AutoScalingLaunchConfiguration       Stratosphere.Resources.AutoScalingLifecycleHook@@ -1299,6 +1405,7 @@       Stratosphere.Resources.BatchJobQueue       Stratosphere.Resources.BudgetsBudget       Stratosphere.Resources.CertificateManagerCertificate+      Stratosphere.Resources.ChatbotSlackChannelConfiguration       Stratosphere.Resources.Cloud9EnvironmentEC2       Stratosphere.Resources.CloudFormationCustomResource       Stratosphere.Resources.CloudFormationMacro@@ -1311,6 +1418,7 @@       Stratosphere.Resources.CloudTrailTrail       Stratosphere.Resources.CloudWatchAlarm       Stratosphere.Resources.CloudWatchAnomalyDetector+      Stratosphere.Resources.CloudWatchCompositeAlarm       Stratosphere.Resources.CloudWatchDashboard       Stratosphere.Resources.CloudWatchInsightRule       Stratosphere.Resources.CodeBuildProject@@ -1323,6 +1431,7 @@       Stratosphere.Resources.CodePipelineCustomActionType       Stratosphere.Resources.CodePipelinePipeline       Stratosphere.Resources.CodePipelineWebhook+      Stratosphere.Resources.CodeStarConnectionsConnection       Stratosphere.Resources.CodeStarGitHubRepository       Stratosphere.Resources.CodeStarNotificationsNotificationRule       Stratosphere.Resources.CognitoIdentityPool@@ -1341,8 +1450,10 @@       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@@ -1379,6 +1490,8 @@       Stratosphere.Resources.EC2Instance       Stratosphere.Resources.EC2InternetGateway       Stratosphere.Resources.EC2LaunchTemplate+      Stratosphere.Resources.EC2LocalGatewayRoute+      Stratosphere.Resources.EC2LocalGatewayRouteTableVPCAssociation       Stratosphere.Resources.EC2NatGateway       Stratosphere.Resources.EC2NetworkAcl       Stratosphere.Resources.EC2NetworkAclEntry@@ -1459,6 +1572,8 @@       Stratosphere.Resources.EventsEventBus       Stratosphere.Resources.EventsEventBusPolicy       Stratosphere.Resources.EventsRule+      Stratosphere.Resources.FMSNotificationChannel+      Stratosphere.Resources.FMSPolicy       Stratosphere.Resources.FSxFileSystem       Stratosphere.Resources.GameLiftAlias       Stratosphere.Resources.GameLiftBuild@@ -1706,6 +1821,11 @@       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