packages feed

stratosphere 0.55.0 → 0.56.0

raw patch · 95 files changed

+2887/−138 lines, 95 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.56.0++* Update resource specification document to version 16.2.0+ ## 0.55.0  * Update resource specification document to version 15.3.0
+ library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerInterBrokerCred.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-interbrokercred.html++module Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmazonMQBrokerInterBrokerCred. See+-- 'amazonMQBrokerInterBrokerCred' for a more convenient constructor.+data AmazonMQBrokerInterBrokerCred =+  AmazonMQBrokerInterBrokerCred+  { _amazonMQBrokerInterBrokerCredPassword :: Val Text+  , _amazonMQBrokerInterBrokerCredUsername :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmazonMQBrokerInterBrokerCred where+  toJSON AmazonMQBrokerInterBrokerCred{..} =+    object $+    catMaybes+    [ (Just . ("Password",) . toJSON) _amazonMQBrokerInterBrokerCredPassword+    , (Just . ("Username",) . toJSON) _amazonMQBrokerInterBrokerCredUsername+    ]++-- | Constructor for 'AmazonMQBrokerInterBrokerCred' containing required+-- fields as arguments.+amazonMQBrokerInterBrokerCred+  :: Val Text -- ^ 'amqbibcPassword'+  -> Val Text -- ^ 'amqbibcUsername'+  -> AmazonMQBrokerInterBrokerCred+amazonMQBrokerInterBrokerCred passwordarg usernamearg =+  AmazonMQBrokerInterBrokerCred+  { _amazonMQBrokerInterBrokerCredPassword = passwordarg+  , _amazonMQBrokerInterBrokerCredUsername = usernamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-interbrokercred.html#cfn-amazonmq-broker-interbrokercred-password+amqbibcPassword :: Lens' AmazonMQBrokerInterBrokerCred (Val Text)+amqbibcPassword = lens _amazonMQBrokerInterBrokerCredPassword (\s a -> s { _amazonMQBrokerInterBrokerCredPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-interbrokercred.html#cfn-amazonmq-broker-interbrokercred-username+amqbibcUsername :: Lens' AmazonMQBrokerInterBrokerCred (Val Text)+amqbibcUsername = lens _amazonMQBrokerInterBrokerCredUsername (\s a -> s { _amazonMQBrokerInterBrokerCredUsername = a })
+ library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapMetadata.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapmetadata.html++module Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred+import Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata++-- | Full data type definition for AmazonMQBrokerLdapMetadata. See+-- 'amazonMQBrokerLdapMetadata' for a more convenient constructor.+data AmazonMQBrokerLdapMetadata =+  AmazonMQBrokerLdapMetadata+  { _amazonMQBrokerLdapMetadataInterBrokerCreds :: Maybe [AmazonMQBrokerInterBrokerCred]+  , _amazonMQBrokerLdapMetadataServerMetadata :: AmazonMQBrokerServerMetadata+  } deriving (Show, Eq)++instance ToJSON AmazonMQBrokerLdapMetadata where+  toJSON AmazonMQBrokerLdapMetadata{..} =+    object $+    catMaybes+    [ fmap (("InterBrokerCreds",) . toJSON) _amazonMQBrokerLdapMetadataInterBrokerCreds+    , (Just . ("ServerMetadata",) . toJSON) _amazonMQBrokerLdapMetadataServerMetadata+    ]++-- | Constructor for 'AmazonMQBrokerLdapMetadata' containing required fields+-- as arguments.+amazonMQBrokerLdapMetadata+  :: AmazonMQBrokerServerMetadata -- ^ 'amqblmServerMetadata'+  -> AmazonMQBrokerLdapMetadata+amazonMQBrokerLdapMetadata serverMetadataarg =+  AmazonMQBrokerLdapMetadata+  { _amazonMQBrokerLdapMetadataInterBrokerCreds = Nothing+  , _amazonMQBrokerLdapMetadataServerMetadata = serverMetadataarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapmetadata.html#cfn-amazonmq-broker-ldapmetadata-interbrokercreds+amqblmInterBrokerCreds :: Lens' AmazonMQBrokerLdapMetadata (Maybe [AmazonMQBrokerInterBrokerCred])+amqblmInterBrokerCreds = lens _amazonMQBrokerLdapMetadataInterBrokerCreds (\s a -> s { _amazonMQBrokerLdapMetadataInterBrokerCreds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapmetadata.html#cfn-amazonmq-broker-ldapmetadata-servermetadata+amqblmServerMetadata :: Lens' AmazonMQBrokerLdapMetadata AmazonMQBrokerServerMetadata+amqblmServerMetadata = lens _amazonMQBrokerLdapMetadataServerMetadata (\s a -> s { _amazonMQBrokerLdapMetadataServerMetadata = a })
+ library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapServerMetadata.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html++module Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmazonMQBrokerLdapServerMetadata. See+-- 'amazonMQBrokerLdapServerMetadata' for a more convenient constructor.+data AmazonMQBrokerLdapServerMetadata =+  AmazonMQBrokerLdapServerMetadata+  { _amazonMQBrokerLdapServerMetadataHosts :: ValList Text+  , _amazonMQBrokerLdapServerMetadataRoleBase :: Val Text+  , _amazonMQBrokerLdapServerMetadataRoleName :: Maybe (Val Text)+  , _amazonMQBrokerLdapServerMetadataRoleSearchMatching :: Val Text+  , _amazonMQBrokerLdapServerMetadataRoleSearchSubtree :: Maybe (Val Bool)+  , _amazonMQBrokerLdapServerMetadataServiceAccountPassword :: Val Text+  , _amazonMQBrokerLdapServerMetadataServiceAccountUsername :: Val Text+  , _amazonMQBrokerLdapServerMetadataUserBase :: Val Text+  , _amazonMQBrokerLdapServerMetadataUserRoleName :: Maybe (Val Text)+  , _amazonMQBrokerLdapServerMetadataUserSearchMatching :: Val Text+  , _amazonMQBrokerLdapServerMetadataUserSearchSubtree :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON AmazonMQBrokerLdapServerMetadata where+  toJSON AmazonMQBrokerLdapServerMetadata{..} =+    object $+    catMaybes+    [ (Just . ("Hosts",) . toJSON) _amazonMQBrokerLdapServerMetadataHosts+    , (Just . ("RoleBase",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleBase+    , fmap (("RoleName",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleName+    , (Just . ("RoleSearchMatching",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleSearchMatching+    , fmap (("RoleSearchSubtree",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleSearchSubtree+    , (Just . ("ServiceAccountPassword",) . toJSON) _amazonMQBrokerLdapServerMetadataServiceAccountPassword+    , (Just . ("ServiceAccountUsername",) . toJSON) _amazonMQBrokerLdapServerMetadataServiceAccountUsername+    , (Just . ("UserBase",) . toJSON) _amazonMQBrokerLdapServerMetadataUserBase+    , fmap (("UserRoleName",) . toJSON) _amazonMQBrokerLdapServerMetadataUserRoleName+    , (Just . ("UserSearchMatching",) . toJSON) _amazonMQBrokerLdapServerMetadataUserSearchMatching+    , fmap (("UserSearchSubtree",) . toJSON) _amazonMQBrokerLdapServerMetadataUserSearchSubtree+    ]++-- | Constructor for 'AmazonMQBrokerLdapServerMetadata' containing required+-- fields as arguments.+amazonMQBrokerLdapServerMetadata+  :: ValList Text -- ^ 'amqblsmHosts'+  -> Val Text -- ^ 'amqblsmRoleBase'+  -> Val Text -- ^ 'amqblsmRoleSearchMatching'+  -> Val Text -- ^ 'amqblsmServiceAccountPassword'+  -> Val Text -- ^ 'amqblsmServiceAccountUsername'+  -> Val Text -- ^ 'amqblsmUserBase'+  -> Val Text -- ^ 'amqblsmUserSearchMatching'+  -> AmazonMQBrokerLdapServerMetadata+amazonMQBrokerLdapServerMetadata hostsarg roleBasearg roleSearchMatchingarg serviceAccountPasswordarg serviceAccountUsernamearg userBasearg userSearchMatchingarg =+  AmazonMQBrokerLdapServerMetadata+  { _amazonMQBrokerLdapServerMetadataHosts = hostsarg+  , _amazonMQBrokerLdapServerMetadataRoleBase = roleBasearg+  , _amazonMQBrokerLdapServerMetadataRoleName = Nothing+  , _amazonMQBrokerLdapServerMetadataRoleSearchMatching = roleSearchMatchingarg+  , _amazonMQBrokerLdapServerMetadataRoleSearchSubtree = Nothing+  , _amazonMQBrokerLdapServerMetadataServiceAccountPassword = serviceAccountPasswordarg+  , _amazonMQBrokerLdapServerMetadataServiceAccountUsername = serviceAccountUsernamearg+  , _amazonMQBrokerLdapServerMetadataUserBase = userBasearg+  , _amazonMQBrokerLdapServerMetadataUserRoleName = Nothing+  , _amazonMQBrokerLdapServerMetadataUserSearchMatching = userSearchMatchingarg+  , _amazonMQBrokerLdapServerMetadataUserSearchSubtree = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-hosts+amqblsmHosts :: Lens' AmazonMQBrokerLdapServerMetadata (ValList Text)+amqblsmHosts = lens _amazonMQBrokerLdapServerMetadataHosts (\s a -> s { _amazonMQBrokerLdapServerMetadataHosts = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolebase+amqblsmRoleBase :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text)+amqblsmRoleBase = lens _amazonMQBrokerLdapServerMetadataRoleBase (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleBase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolename+amqblsmRoleName :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Text))+amqblsmRoleName = lens _amazonMQBrokerLdapServerMetadataRoleName (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolesearchmatching+amqblsmRoleSearchMatching :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text)+amqblsmRoleSearchMatching = lens _amazonMQBrokerLdapServerMetadataRoleSearchMatching (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleSearchMatching = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolesearchsubtree+amqblsmRoleSearchSubtree :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Bool))+amqblsmRoleSearchSubtree = lens _amazonMQBrokerLdapServerMetadataRoleSearchSubtree (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleSearchSubtree = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-serviceaccountpassword+amqblsmServiceAccountPassword :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text)+amqblsmServiceAccountPassword = lens _amazonMQBrokerLdapServerMetadataServiceAccountPassword (\s a -> s { _amazonMQBrokerLdapServerMetadataServiceAccountPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-serviceaccountusername+amqblsmServiceAccountUsername :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text)+amqblsmServiceAccountUsername = lens _amazonMQBrokerLdapServerMetadataServiceAccountUsername (\s a -> s { _amazonMQBrokerLdapServerMetadataServiceAccountUsername = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-userbase+amqblsmUserBase :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text)+amqblsmUserBase = lens _amazonMQBrokerLdapServerMetadataUserBase (\s a -> s { _amazonMQBrokerLdapServerMetadataUserBase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-userrolename+amqblsmUserRoleName :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Text))+amqblsmUserRoleName = lens _amazonMQBrokerLdapServerMetadataUserRoleName (\s a -> s { _amazonMQBrokerLdapServerMetadataUserRoleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-usersearchmatching+amqblsmUserSearchMatching :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text)+amqblsmUserSearchMatching = lens _amazonMQBrokerLdapServerMetadataUserSearchMatching (\s a -> s { _amazonMQBrokerLdapServerMetadataUserSearchMatching = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-usersearchsubtree+amqblsmUserSearchSubtree :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Bool))+amqblsmUserSearchSubtree = lens _amazonMQBrokerLdapServerMetadataUserSearchSubtree (\s a -> s { _amazonMQBrokerLdapServerMetadataUserSearchSubtree = a })
+ library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerServerMetadata.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html++module Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmazonMQBrokerServerMetadata. See+-- 'amazonMQBrokerServerMetadata' for a more convenient constructor.+data AmazonMQBrokerServerMetadata =+  AmazonMQBrokerServerMetadata+  { _amazonMQBrokerServerMetadataHosts :: ValList Text+  , _amazonMQBrokerServerMetadataRoleBase :: Val Text+  , _amazonMQBrokerServerMetadataRoleName :: Maybe (Val Text)+  , _amazonMQBrokerServerMetadataRoleSearchMatching :: Val Text+  , _amazonMQBrokerServerMetadataRoleSearchSubtree :: Maybe (Val Bool)+  , _amazonMQBrokerServerMetadataServiceAccountPassword :: Val Text+  , _amazonMQBrokerServerMetadataServiceAccountUsername :: Val Text+  , _amazonMQBrokerServerMetadataUserBase :: Val Text+  , _amazonMQBrokerServerMetadataUserRoleName :: Maybe (Val Text)+  , _amazonMQBrokerServerMetadataUserSearchMatching :: Val Text+  , _amazonMQBrokerServerMetadataUserSearchSubtree :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON AmazonMQBrokerServerMetadata where+  toJSON AmazonMQBrokerServerMetadata{..} =+    object $+    catMaybes+    [ (Just . ("Hosts",) . toJSON) _amazonMQBrokerServerMetadataHosts+    , (Just . ("RoleBase",) . toJSON) _amazonMQBrokerServerMetadataRoleBase+    , fmap (("RoleName",) . toJSON) _amazonMQBrokerServerMetadataRoleName+    , (Just . ("RoleSearchMatching",) . toJSON) _amazonMQBrokerServerMetadataRoleSearchMatching+    , fmap (("RoleSearchSubtree",) . toJSON) _amazonMQBrokerServerMetadataRoleSearchSubtree+    , (Just . ("ServiceAccountPassword",) . toJSON) _amazonMQBrokerServerMetadataServiceAccountPassword+    , (Just . ("ServiceAccountUsername",) . toJSON) _amazonMQBrokerServerMetadataServiceAccountUsername+    , (Just . ("UserBase",) . toJSON) _amazonMQBrokerServerMetadataUserBase+    , fmap (("UserRoleName",) . toJSON) _amazonMQBrokerServerMetadataUserRoleName+    , (Just . ("UserSearchMatching",) . toJSON) _amazonMQBrokerServerMetadataUserSearchMatching+    , fmap (("UserSearchSubtree",) . toJSON) _amazonMQBrokerServerMetadataUserSearchSubtree+    ]++-- | Constructor for 'AmazonMQBrokerServerMetadata' containing required fields+-- as arguments.+amazonMQBrokerServerMetadata+  :: ValList Text -- ^ 'amqbsmHosts'+  -> Val Text -- ^ 'amqbsmRoleBase'+  -> Val Text -- ^ 'amqbsmRoleSearchMatching'+  -> Val Text -- ^ 'amqbsmServiceAccountPassword'+  -> Val Text -- ^ 'amqbsmServiceAccountUsername'+  -> Val Text -- ^ 'amqbsmUserBase'+  -> Val Text -- ^ 'amqbsmUserSearchMatching'+  -> AmazonMQBrokerServerMetadata+amazonMQBrokerServerMetadata hostsarg roleBasearg roleSearchMatchingarg serviceAccountPasswordarg serviceAccountUsernamearg userBasearg userSearchMatchingarg =+  AmazonMQBrokerServerMetadata+  { _amazonMQBrokerServerMetadataHosts = hostsarg+  , _amazonMQBrokerServerMetadataRoleBase = roleBasearg+  , _amazonMQBrokerServerMetadataRoleName = Nothing+  , _amazonMQBrokerServerMetadataRoleSearchMatching = roleSearchMatchingarg+  , _amazonMQBrokerServerMetadataRoleSearchSubtree = Nothing+  , _amazonMQBrokerServerMetadataServiceAccountPassword = serviceAccountPasswordarg+  , _amazonMQBrokerServerMetadataServiceAccountUsername = serviceAccountUsernamearg+  , _amazonMQBrokerServerMetadataUserBase = userBasearg+  , _amazonMQBrokerServerMetadataUserRoleName = Nothing+  , _amazonMQBrokerServerMetadataUserSearchMatching = userSearchMatchingarg+  , _amazonMQBrokerServerMetadataUserSearchSubtree = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-hosts+amqbsmHosts :: Lens' AmazonMQBrokerServerMetadata (ValList Text)+amqbsmHosts = lens _amazonMQBrokerServerMetadataHosts (\s a -> s { _amazonMQBrokerServerMetadataHosts = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolebase+amqbsmRoleBase :: Lens' AmazonMQBrokerServerMetadata (Val Text)+amqbsmRoleBase = lens _amazonMQBrokerServerMetadataRoleBase (\s a -> s { _amazonMQBrokerServerMetadataRoleBase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolename+amqbsmRoleName :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Text))+amqbsmRoleName = lens _amazonMQBrokerServerMetadataRoleName (\s a -> s { _amazonMQBrokerServerMetadataRoleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolesearchmatching+amqbsmRoleSearchMatching :: Lens' AmazonMQBrokerServerMetadata (Val Text)+amqbsmRoleSearchMatching = lens _amazonMQBrokerServerMetadataRoleSearchMatching (\s a -> s { _amazonMQBrokerServerMetadataRoleSearchMatching = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolesearchsubtree+amqbsmRoleSearchSubtree :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Bool))+amqbsmRoleSearchSubtree = lens _amazonMQBrokerServerMetadataRoleSearchSubtree (\s a -> s { _amazonMQBrokerServerMetadataRoleSearchSubtree = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-serviceaccountpassword+amqbsmServiceAccountPassword :: Lens' AmazonMQBrokerServerMetadata (Val Text)+amqbsmServiceAccountPassword = lens _amazonMQBrokerServerMetadataServiceAccountPassword (\s a -> s { _amazonMQBrokerServerMetadataServiceAccountPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-serviceaccountusername+amqbsmServiceAccountUsername :: Lens' AmazonMQBrokerServerMetadata (Val Text)+amqbsmServiceAccountUsername = lens _amazonMQBrokerServerMetadataServiceAccountUsername (\s a -> s { _amazonMQBrokerServerMetadataServiceAccountUsername = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-userbase+amqbsmUserBase :: Lens' AmazonMQBrokerServerMetadata (Val Text)+amqbsmUserBase = lens _amazonMQBrokerServerMetadataUserBase (\s a -> s { _amazonMQBrokerServerMetadataUserBase = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-userrolename+amqbsmUserRoleName :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Text))+amqbsmUserRoleName = lens _amazonMQBrokerServerMetadataUserRoleName (\s a -> s { _amazonMQBrokerServerMetadataUserRoleName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-usersearchmatching+amqbsmUserSearchMatching :: Lens' AmazonMQBrokerServerMetadata (Val Text)+amqbsmUserSearchMatching = lens _amazonMQBrokerServerMetadataUserSearchMatching (\s a -> s { _amazonMQBrokerServerMetadataUserSearchMatching = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-usersearchsubtree+amqbsmUserSearchSubtree :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Bool))+amqbsmUserSearchSubtree = lens _amazonMQBrokerServerMetadataUserSearchSubtree (\s a -> s { _amazonMQBrokerServerMetadataUserSearchSubtree = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings.html++module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings. See+-- 'apiGatewayV2ApiGatewayManagedOverridesAccessLogSettings' for a more+-- convenient constructor.+data ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings =+  ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+  { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings where+  toJSON ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings{..} =+    object $+    catMaybes+    [ fmap (("DestinationArn",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn+    , fmap (("Format",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat+    ]++-- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings'+-- containing required fields as arguments.+apiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+  :: ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+apiGatewayV2ApiGatewayManagedOverridesAccessLogSettings  =+  ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+  { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings-destinationarn+agvagmoalsDestinationArn :: Lens' ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings (Maybe (Val Text))+agvagmoalsDestinationArn = lens _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings-format+agvagmoalsFormat :: Lens' ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings (Maybe (Val Text))+agvagmoalsFormat = lens _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html++module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides. See+-- 'apiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides' for a more+-- convenient constructor.+data ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides =+  ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides where+  toJSON ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides{..} =+    object $+    catMaybes+    [ fmap (("Description",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription+    , fmap (("IntegrationMethod",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod+    , fmap (("PayloadFormatVersion",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion+    , fmap (("TimeoutInMillis",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis+    ]++-- | Constructor for+-- 'ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides' containing+-- required fields as arguments.+apiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+  :: ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+apiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides  =+  ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-description+agvagmoioDescription :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Text))+agvagmoioDescription = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-integrationmethod+agvagmoioIntegrationMethod :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Text))+agvagmoioIntegrationMethod = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-payloadformatversion+agvagmoioPayloadFormatVersion :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Text))+agvagmoioPayloadFormatVersion = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-timeoutinmillis+agvagmoioTimeoutInMillis :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Integer))+agvagmoioTimeoutInMillis = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html++module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides. See+-- 'apiGatewayV2ApiGatewayManagedOverridesRouteOverrides' for a more+-- convenient constructor.+data ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides =+  ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes :: Maybe (ValList Text)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides where+  toJSON ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides{..} =+    object $+    catMaybes+    [ fmap (("AuthorizationScopes",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes+    , fmap (("AuthorizationType",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType+    , fmap (("AuthorizerId",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId+    , fmap (("OperationName",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName+    , fmap (("Target",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget+    ]++-- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides'+-- containing required fields as arguments.+apiGatewayV2ApiGatewayManagedOverridesRouteOverrides+  :: ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides+apiGatewayV2ApiGatewayManagedOverridesRouteOverrides  =+  ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-authorizationscopes+agvagmoroAuthorizationScopes :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (ValList Text))+agvagmoroAuthorizationScopes = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-authorizationtype+agvagmoroAuthorizationType :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text))+agvagmoroAuthorizationType = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-authorizerid+agvagmoroAuthorizerId :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text))+agvagmoroAuthorizerId = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-operationname+agvagmoroOperationName :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text))+agvagmoroOperationName = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-target+agvagmoroTarget :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text))+agvagmoroTarget = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteSettings.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html++module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings where++import Stratosphere.ResourceImports+import Stratosphere.Types++-- | Full data type definition for+-- ApiGatewayV2ApiGatewayManagedOverridesRouteSettings. See+-- 'apiGatewayV2ApiGatewayManagedOverridesRouteSettings' for a more+-- convenient constructor.+data ApiGatewayV2ApiGatewayManagedOverridesRouteSettings =+  ApiGatewayV2ApiGatewayManagedOverridesRouteSettings+  { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled :: Maybe (Val Bool)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled :: Maybe (Val Bool)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel :: Maybe (Val LoggingLevel)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit :: Maybe (Val Integer)+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit :: Maybe (Val Double)+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesRouteSettings where+  toJSON ApiGatewayV2ApiGatewayManagedOverridesRouteSettings{..} =+    object $+    catMaybes+    [ fmap (("DataTraceEnabled",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled+    , fmap (("DetailedMetricsEnabled",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled+    , fmap (("LoggingLevel",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel+    , fmap (("ThrottlingBurstLimit",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit+    , fmap (("ThrottlingRateLimit",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit+    ]++-- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesRouteSettings'+-- containing required fields as arguments.+apiGatewayV2ApiGatewayManagedOverridesRouteSettings+  :: ApiGatewayV2ApiGatewayManagedOverridesRouteSettings+apiGatewayV2ApiGatewayManagedOverridesRouteSettings  =+  ApiGatewayV2ApiGatewayManagedOverridesRouteSettings+  { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-datatraceenabled+agvagmorsDataTraceEnabled :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Bool))+agvagmorsDataTraceEnabled = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-detailedmetricsenabled+agvagmorsDetailedMetricsEnabled :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Bool))+agvagmorsDetailedMetricsEnabled = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-logginglevel+agvagmorsLoggingLevel :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val LoggingLevel))+agvagmorsLoggingLevel = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-throttlingburstlimit+agvagmorsThrottlingBurstLimit :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Integer))+agvagmorsThrottlingBurstLimit = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-throttlingratelimit+agvagmorsThrottlingRateLimit :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Double))+agvagmorsThrottlingRateLimit = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit = a })
+ library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesStageOverrides.hs view
@@ -0,0 +1,76 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html++module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings++-- | Full data type definition for+-- ApiGatewayV2ApiGatewayManagedOverridesStageOverrides. See+-- 'apiGatewayV2ApiGatewayManagedOverridesStageOverrides' for a more+-- convenient constructor.+data ApiGatewayV2ApiGatewayManagedOverridesStageOverrides =+  ApiGatewayV2ApiGatewayManagedOverridesStageOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings :: Maybe ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy :: Maybe (Val Bool)+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings :: Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteSettings+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription :: Maybe (Val Text)+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings :: Maybe Object+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesStageOverrides where+  toJSON ApiGatewayV2ApiGatewayManagedOverridesStageOverrides{..} =+    object $+    catMaybes+    [ fmap (("AccessLogSettings",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings+    , fmap (("AutoDeploy",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy+    , fmap (("DefaultRouteSettings",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings+    , fmap (("Description",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription+    , fmap (("RouteSettings",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings+    , fmap (("StageVariables",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables+    ]++-- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesStageOverrides'+-- containing required fields as arguments.+apiGatewayV2ApiGatewayManagedOverridesStageOverrides+  :: ApiGatewayV2ApiGatewayManagedOverridesStageOverrides+apiGatewayV2ApiGatewayManagedOverridesStageOverrides  =+  ApiGatewayV2ApiGatewayManagedOverridesStageOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-accesslogsettings+agvagmosoAccessLogSettings :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings)+agvagmosoAccessLogSettings = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-autodeploy+agvagmosoAutoDeploy :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe (Val Bool))+agvagmosoAutoDeploy = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-defaultroutesettings+agvagmosoDefaultRouteSettings :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteSettings)+agvagmosoDefaultRouteSettings = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-description+agvagmosoDescription :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe (Val Text))+agvagmosoDescription = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-routesettings+agvagmosoRouteSettings :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe Object)+agvagmosoRouteSettings = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-stagevariables+agvagmosoStageVariables :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe Object)+agvagmosoStageVariables = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables = a })
library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRoute.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch import Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy+import Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout  -- | Full data type definition for AppMeshRouteGrpcRoute. See -- 'appMeshRouteGrpcRoute' for a more convenient constructor.@@ -19,6 +20,7 @@   { _appMeshRouteGrpcRouteAction :: AppMeshRouteGrpcRouteAction   , _appMeshRouteGrpcRouteMatch :: AppMeshRouteGrpcRouteMatch   , _appMeshRouteGrpcRouteRetryPolicy :: Maybe AppMeshRouteGrpcRetryPolicy+  , _appMeshRouteGrpcRouteTimeout :: Maybe AppMeshRouteGrpcTimeout   } deriving (Show, Eq)  instance ToJSON AppMeshRouteGrpcRoute where@@ -28,6 +30,7 @@     [ (Just . ("Action",) . toJSON) _appMeshRouteGrpcRouteAction     , (Just . ("Match",) . toJSON) _appMeshRouteGrpcRouteMatch     , fmap (("RetryPolicy",) . toJSON) _appMeshRouteGrpcRouteRetryPolicy+    , fmap (("Timeout",) . toJSON) _appMeshRouteGrpcRouteTimeout     ]  -- | Constructor for 'AppMeshRouteGrpcRoute' containing required fields as@@ -41,6 +44,7 @@   { _appMeshRouteGrpcRouteAction = actionarg   , _appMeshRouteGrpcRouteMatch = matcharg   , _appMeshRouteGrpcRouteRetryPolicy = Nothing+  , _appMeshRouteGrpcRouteTimeout = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-action@@ -54,3 +58,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-retrypolicy amrgrRetryPolicy :: Lens' AppMeshRouteGrpcRoute (Maybe AppMeshRouteGrpcRetryPolicy) amrgrRetryPolicy = lens _appMeshRouteGrpcRouteRetryPolicy (\s a -> s { _appMeshRouteGrpcRouteRetryPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-timeout+amrgrTimeout :: Lens' AppMeshRouteGrpcRoute (Maybe AppMeshRouteGrpcTimeout)+amrgrTimeout = lens _appMeshRouteGrpcRouteTimeout (\s a -> s { _appMeshRouteGrpcRouteTimeout = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcTimeout.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpctimeout.html++module Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteDuration++-- | Full data type definition for AppMeshRouteGrpcTimeout. See+-- 'appMeshRouteGrpcTimeout' for a more convenient constructor.+data AppMeshRouteGrpcTimeout =+  AppMeshRouteGrpcTimeout+  { _appMeshRouteGrpcTimeoutIdle :: Maybe AppMeshRouteDuration+  , _appMeshRouteGrpcTimeoutPerRequest :: Maybe AppMeshRouteDuration+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteGrpcTimeout where+  toJSON AppMeshRouteGrpcTimeout{..} =+    object $+    catMaybes+    [ fmap (("Idle",) . toJSON) _appMeshRouteGrpcTimeoutIdle+    , fmap (("PerRequest",) . toJSON) _appMeshRouteGrpcTimeoutPerRequest+    ]++-- | Constructor for 'AppMeshRouteGrpcTimeout' containing required fields as+-- arguments.+appMeshRouteGrpcTimeout+  :: AppMeshRouteGrpcTimeout+appMeshRouteGrpcTimeout  =+  AppMeshRouteGrpcTimeout+  { _appMeshRouteGrpcTimeoutIdle = Nothing+  , _appMeshRouteGrpcTimeoutPerRequest = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpctimeout.html#cfn-appmesh-route-grpctimeout-idle+amrgtIdle :: Lens' AppMeshRouteGrpcTimeout (Maybe AppMeshRouteDuration)+amrgtIdle = lens _appMeshRouteGrpcTimeoutIdle (\s a -> s { _appMeshRouteGrpcTimeoutIdle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpctimeout.html#cfn-appmesh-route-grpctimeout-perrequest+amrgtPerRequest :: Lens' AppMeshRouteGrpcTimeout (Maybe AppMeshRouteDuration)+amrgtPerRequest = lens _appMeshRouteGrpcTimeoutPerRequest (\s a -> s { _appMeshRouteGrpcTimeoutPerRequest = a })
library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRoute.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy+import Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout  -- | Full data type definition for AppMeshRouteHttpRoute. See -- 'appMeshRouteHttpRoute' for a more convenient constructor.@@ -19,6 +20,7 @@   { _appMeshRouteHttpRouteAction :: AppMeshRouteHttpRouteAction   , _appMeshRouteHttpRouteMatch :: AppMeshRouteHttpRouteMatch   , _appMeshRouteHttpRouteRetryPolicy :: Maybe AppMeshRouteHttpRetryPolicy+  , _appMeshRouteHttpRouteTimeout :: Maybe AppMeshRouteHttpTimeout   } deriving (Show, Eq)  instance ToJSON AppMeshRouteHttpRoute where@@ -28,6 +30,7 @@     [ (Just . ("Action",) . toJSON) _appMeshRouteHttpRouteAction     , (Just . ("Match",) . toJSON) _appMeshRouteHttpRouteMatch     , fmap (("RetryPolicy",) . toJSON) _appMeshRouteHttpRouteRetryPolicy+    , fmap (("Timeout",) . toJSON) _appMeshRouteHttpRouteTimeout     ]  -- | Constructor for 'AppMeshRouteHttpRoute' containing required fields as@@ -41,6 +44,7 @@   { _appMeshRouteHttpRouteAction = actionarg   , _appMeshRouteHttpRouteMatch = matcharg   , _appMeshRouteHttpRouteRetryPolicy = Nothing+  , _appMeshRouteHttpRouteTimeout = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-action@@ -54,3 +58,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-retrypolicy amrhrRetryPolicy :: Lens' AppMeshRouteHttpRoute (Maybe AppMeshRouteHttpRetryPolicy) amrhrRetryPolicy = lens _appMeshRouteHttpRouteRetryPolicy (\s a -> s { _appMeshRouteHttpRouteRetryPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-timeout+amrhrTimeout :: Lens' AppMeshRouteHttpRoute (Maybe AppMeshRouteHttpTimeout)+amrhrTimeout = lens _appMeshRouteHttpRouteTimeout (\s a -> s { _appMeshRouteHttpRouteTimeout = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpTimeout.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httptimeout.html++module Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteDuration++-- | Full data type definition for AppMeshRouteHttpTimeout. See+-- 'appMeshRouteHttpTimeout' for a more convenient constructor.+data AppMeshRouteHttpTimeout =+  AppMeshRouteHttpTimeout+  { _appMeshRouteHttpTimeoutIdle :: Maybe AppMeshRouteDuration+  , _appMeshRouteHttpTimeoutPerRequest :: Maybe AppMeshRouteDuration+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHttpTimeout where+  toJSON AppMeshRouteHttpTimeout{..} =+    object $+    catMaybes+    [ fmap (("Idle",) . toJSON) _appMeshRouteHttpTimeoutIdle+    , fmap (("PerRequest",) . toJSON) _appMeshRouteHttpTimeoutPerRequest+    ]++-- | Constructor for 'AppMeshRouteHttpTimeout' containing required fields as+-- arguments.+appMeshRouteHttpTimeout+  :: AppMeshRouteHttpTimeout+appMeshRouteHttpTimeout  =+  AppMeshRouteHttpTimeout+  { _appMeshRouteHttpTimeoutIdle = Nothing+  , _appMeshRouteHttpTimeoutPerRequest = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httptimeout.html#cfn-appmesh-route-httptimeout-idle+amrhtIdle :: Lens' AppMeshRouteHttpTimeout (Maybe AppMeshRouteDuration)+amrhtIdle = lens _appMeshRouteHttpTimeoutIdle (\s a -> s { _appMeshRouteHttpTimeoutIdle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httptimeout.html#cfn-appmesh-route-httptimeout-perrequest+amrhtPerRequest :: Lens' AppMeshRouteHttpTimeout (Maybe AppMeshRouteDuration)+amrhtPerRequest = lens _appMeshRouteHttpTimeoutPerRequest (\s a -> s { _appMeshRouteHttpTimeoutPerRequest = a })
library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRoute.hs view
@@ -9,12 +9,14 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction+import Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout  -- | Full data type definition for AppMeshRouteTcpRoute. See -- 'appMeshRouteTcpRoute' for a more convenient constructor. data AppMeshRouteTcpRoute =   AppMeshRouteTcpRoute   { _appMeshRouteTcpRouteAction :: AppMeshRouteTcpRouteAction+  , _appMeshRouteTcpRouteTimeout :: Maybe AppMeshRouteTcpTimeout   } deriving (Show, Eq)  instance ToJSON AppMeshRouteTcpRoute where@@ -22,6 +24,7 @@     object $     catMaybes     [ (Just . ("Action",) . toJSON) _appMeshRouteTcpRouteAction+    , fmap (("Timeout",) . toJSON) _appMeshRouteTcpRouteTimeout     ]  -- | Constructor for 'AppMeshRouteTcpRoute' containing required fields as@@ -32,8 +35,13 @@ appMeshRouteTcpRoute actionarg =   AppMeshRouteTcpRoute   { _appMeshRouteTcpRouteAction = actionarg+  , _appMeshRouteTcpRouteTimeout = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html#cfn-appmesh-route-tcproute-action amrtrAction :: Lens' AppMeshRouteTcpRoute AppMeshRouteTcpRouteAction amrtrAction = lens _appMeshRouteTcpRouteAction (\s a -> s { _appMeshRouteTcpRouteAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html#cfn-appmesh-route-tcproute-timeout+amrtrTimeout :: Lens' AppMeshRouteTcpRoute (Maybe AppMeshRouteTcpTimeout)+amrtrTimeout = lens _appMeshRouteTcpRouteTimeout (\s a -> s { _appMeshRouteTcpRouteTimeout = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpTimeout.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-route-tcptimeout.html++module Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteDuration++-- | Full data type definition for AppMeshRouteTcpTimeout. See+-- 'appMeshRouteTcpTimeout' for a more convenient constructor.+data AppMeshRouteTcpTimeout =+  AppMeshRouteTcpTimeout+  { _appMeshRouteTcpTimeoutIdle :: Maybe AppMeshRouteDuration+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteTcpTimeout where+  toJSON AppMeshRouteTcpTimeout{..} =+    object $+    catMaybes+    [ fmap (("Idle",) . toJSON) _appMeshRouteTcpTimeoutIdle+    ]++-- | Constructor for 'AppMeshRouteTcpTimeout' containing required fields as+-- arguments.+appMeshRouteTcpTimeout+  :: AppMeshRouteTcpTimeout+appMeshRouteTcpTimeout  =+  AppMeshRouteTcpTimeout+  { _appMeshRouteTcpTimeoutIdle = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcptimeout.html#cfn-appmesh-route-tcptimeout-idle+amrttIdle :: Lens' AppMeshRouteTcpTimeout (Maybe AppMeshRouteDuration)+amrttIdle = lens _appMeshRouteTcpTimeoutIdle (\s a -> s { _appMeshRouteTcpTimeoutIdle = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDuration.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-duration.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodeDuration. See+-- 'appMeshVirtualNodeDuration' for a more convenient constructor.+data AppMeshVirtualNodeDuration =+  AppMeshVirtualNodeDuration+  { _appMeshVirtualNodeDurationUnit :: Val Text+  , _appMeshVirtualNodeDurationValue :: Val Integer+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeDuration where+  toJSON AppMeshVirtualNodeDuration{..} =+    object $+    catMaybes+    [ (Just . ("Unit",) . toJSON) _appMeshVirtualNodeDurationUnit+    , (Just . ("Value",) . toJSON) _appMeshVirtualNodeDurationValue+    ]++-- | Constructor for 'AppMeshVirtualNodeDuration' containing required fields+-- as arguments.+appMeshVirtualNodeDuration+  :: Val Text -- ^ 'amvndUnit'+  -> Val Integer -- ^ 'amvndValue'+  -> AppMeshVirtualNodeDuration+appMeshVirtualNodeDuration unitarg valuearg =+  AppMeshVirtualNodeDuration+  { _appMeshVirtualNodeDurationUnit = unitarg+  , _appMeshVirtualNodeDurationValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-duration.html#cfn-appmesh-virtualnode-duration-unit+amvndUnit :: Lens' AppMeshVirtualNodeDuration (Val Text)+amvndUnit = lens _appMeshVirtualNodeDurationUnit (\s a -> s { _appMeshVirtualNodeDurationUnit = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-duration.html#cfn-appmesh-virtualnode-duration-value+amvndValue :: Lens' AppMeshVirtualNodeDuration (Val Integer)+amvndValue = lens _appMeshVirtualNodeDurationValue (\s a -> s { _appMeshVirtualNodeDurationValue = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeGrpcTimeout.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-grpctimeout.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration++-- | Full data type definition for AppMeshVirtualNodeGrpcTimeout. See+-- 'appMeshVirtualNodeGrpcTimeout' for a more convenient constructor.+data AppMeshVirtualNodeGrpcTimeout =+  AppMeshVirtualNodeGrpcTimeout+  { _appMeshVirtualNodeGrpcTimeoutIdle :: Maybe AppMeshVirtualNodeDuration+  , _appMeshVirtualNodeGrpcTimeoutPerRequest :: Maybe AppMeshVirtualNodeDuration+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeGrpcTimeout where+  toJSON AppMeshVirtualNodeGrpcTimeout{..} =+    object $+    catMaybes+    [ fmap (("Idle",) . toJSON) _appMeshVirtualNodeGrpcTimeoutIdle+    , fmap (("PerRequest",) . toJSON) _appMeshVirtualNodeGrpcTimeoutPerRequest+    ]++-- | Constructor for 'AppMeshVirtualNodeGrpcTimeout' containing required+-- fields as arguments.+appMeshVirtualNodeGrpcTimeout+  :: AppMeshVirtualNodeGrpcTimeout+appMeshVirtualNodeGrpcTimeout  =+  AppMeshVirtualNodeGrpcTimeout+  { _appMeshVirtualNodeGrpcTimeoutIdle = Nothing+  , _appMeshVirtualNodeGrpcTimeoutPerRequest = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-grpctimeout.html#cfn-appmesh-virtualnode-grpctimeout-idle+amvngtIdle :: Lens' AppMeshVirtualNodeGrpcTimeout (Maybe AppMeshVirtualNodeDuration)+amvngtIdle = lens _appMeshVirtualNodeGrpcTimeoutIdle (\s a -> s { _appMeshVirtualNodeGrpcTimeoutIdle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-grpctimeout.html#cfn-appmesh-virtualnode-grpctimeout-perrequest+amvngtPerRequest :: Lens' AppMeshVirtualNodeGrpcTimeout (Maybe AppMeshVirtualNodeDuration)+amvngtPerRequest = lens _appMeshVirtualNodeGrpcTimeoutPerRequest (\s a -> s { _appMeshVirtualNodeGrpcTimeoutPerRequest = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHttpTimeout.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-httptimeout.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration++-- | Full data type definition for AppMeshVirtualNodeHttpTimeout. See+-- 'appMeshVirtualNodeHttpTimeout' for a more convenient constructor.+data AppMeshVirtualNodeHttpTimeout =+  AppMeshVirtualNodeHttpTimeout+  { _appMeshVirtualNodeHttpTimeoutIdle :: Maybe AppMeshVirtualNodeDuration+  , _appMeshVirtualNodeHttpTimeoutPerRequest :: Maybe AppMeshVirtualNodeDuration+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeHttpTimeout where+  toJSON AppMeshVirtualNodeHttpTimeout{..} =+    object $+    catMaybes+    [ fmap (("Idle",) . toJSON) _appMeshVirtualNodeHttpTimeoutIdle+    , fmap (("PerRequest",) . toJSON) _appMeshVirtualNodeHttpTimeoutPerRequest+    ]++-- | Constructor for 'AppMeshVirtualNodeHttpTimeout' containing required+-- fields as arguments.+appMeshVirtualNodeHttpTimeout+  :: AppMeshVirtualNodeHttpTimeout+appMeshVirtualNodeHttpTimeout  =+  AppMeshVirtualNodeHttpTimeout+  { _appMeshVirtualNodeHttpTimeoutIdle = Nothing+  , _appMeshVirtualNodeHttpTimeoutPerRequest = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-httptimeout.html#cfn-appmesh-virtualnode-httptimeout-idle+amvnhtIdle :: Lens' AppMeshVirtualNodeHttpTimeout (Maybe AppMeshVirtualNodeDuration)+amvnhtIdle = lens _appMeshVirtualNodeHttpTimeoutIdle (\s a -> s { _appMeshVirtualNodeHttpTimeoutIdle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-httptimeout.html#cfn-appmesh-virtualnode-httptimeout-perrequest+amvnhtPerRequest :: Lens' AppMeshVirtualNodeHttpTimeout (Maybe AppMeshVirtualNodeDuration)+amvnhtPerRequest = lens _appMeshVirtualNodeHttpTimeoutPerRequest (\s a -> s { _appMeshVirtualNodeHttpTimeoutPerRequest = a })
library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListener.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls+import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout  -- | Full data type definition for AppMeshVirtualNodeListener. See -- 'appMeshVirtualNodeListener' for a more convenient constructor.@@ -19,6 +20,7 @@   { _appMeshVirtualNodeListenerHealthCheck :: Maybe AppMeshVirtualNodeHealthCheck   , _appMeshVirtualNodeListenerPortMapping :: AppMeshVirtualNodePortMapping   , _appMeshVirtualNodeListenerTLS :: Maybe AppMeshVirtualNodeListenerTls+  , _appMeshVirtualNodeListenerTimeout :: Maybe AppMeshVirtualNodeListenerTimeout   } deriving (Show, Eq)  instance ToJSON AppMeshVirtualNodeListener where@@ -28,6 +30,7 @@     [ fmap (("HealthCheck",) . toJSON) _appMeshVirtualNodeListenerHealthCheck     , (Just . ("PortMapping",) . toJSON) _appMeshVirtualNodeListenerPortMapping     , fmap (("TLS",) . toJSON) _appMeshVirtualNodeListenerTLS+    , fmap (("Timeout",) . toJSON) _appMeshVirtualNodeListenerTimeout     ]  -- | Constructor for 'AppMeshVirtualNodeListener' containing required fields@@ -40,6 +43,7 @@   { _appMeshVirtualNodeListenerHealthCheck = Nothing   , _appMeshVirtualNodeListenerPortMapping = portMappingarg   , _appMeshVirtualNodeListenerTLS = Nothing+  , _appMeshVirtualNodeListenerTimeout = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-healthcheck@@ -53,3 +57,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-tls amvnlTLS :: Lens' AppMeshVirtualNodeListener (Maybe AppMeshVirtualNodeListenerTls) amvnlTLS = lens _appMeshVirtualNodeListenerTLS (\s a -> s { _appMeshVirtualNodeListenerTLS = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-timeout+amvnlTimeout :: Lens' AppMeshVirtualNodeListener (Maybe AppMeshVirtualNodeListenerTimeout)+amvnlTimeout = lens _appMeshVirtualNodeListenerTimeout (\s a -> s { _appMeshVirtualNodeListenerTimeout = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTimeout.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout+import Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout+import Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout++-- | Full data type definition for AppMeshVirtualNodeListenerTimeout. See+-- 'appMeshVirtualNodeListenerTimeout' for a more convenient constructor.+data AppMeshVirtualNodeListenerTimeout =+  AppMeshVirtualNodeListenerTimeout+  { _appMeshVirtualNodeListenerTimeoutGRPC :: Maybe AppMeshVirtualNodeGrpcTimeout+  , _appMeshVirtualNodeListenerTimeoutHTTP :: Maybe AppMeshVirtualNodeHttpTimeout+  , _appMeshVirtualNodeListenerTimeoutHTTP2 :: Maybe AppMeshVirtualNodeHttpTimeout+  , _appMeshVirtualNodeListenerTimeoutTCP :: Maybe AppMeshVirtualNodeTcpTimeout+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeListenerTimeout where+  toJSON AppMeshVirtualNodeListenerTimeout{..} =+    object $+    catMaybes+    [ fmap (("GRPC",) . toJSON) _appMeshVirtualNodeListenerTimeoutGRPC+    , fmap (("HTTP",) . toJSON) _appMeshVirtualNodeListenerTimeoutHTTP+    , fmap (("HTTP2",) . toJSON) _appMeshVirtualNodeListenerTimeoutHTTP2+    , fmap (("TCP",) . toJSON) _appMeshVirtualNodeListenerTimeoutTCP+    ]++-- | Constructor for 'AppMeshVirtualNodeListenerTimeout' containing required+-- fields as arguments.+appMeshVirtualNodeListenerTimeout+  :: AppMeshVirtualNodeListenerTimeout+appMeshVirtualNodeListenerTimeout  =+  AppMeshVirtualNodeListenerTimeout+  { _appMeshVirtualNodeListenerTimeoutGRPC = Nothing+  , _appMeshVirtualNodeListenerTimeoutHTTP = Nothing+  , _appMeshVirtualNodeListenerTimeoutHTTP2 = Nothing+  , _appMeshVirtualNodeListenerTimeoutTCP = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-grpc+amvnltGRPC :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeGrpcTimeout)+amvnltGRPC = lens _appMeshVirtualNodeListenerTimeoutGRPC (\s a -> s { _appMeshVirtualNodeListenerTimeoutGRPC = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-http+amvnltHTTP :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeHttpTimeout)+amvnltHTTP = lens _appMeshVirtualNodeListenerTimeoutHTTP (\s a -> s { _appMeshVirtualNodeListenerTimeoutHTTP = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-http2+amvnltHTTP2 :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeHttpTimeout)+amvnltHTTP2 = lens _appMeshVirtualNodeListenerTimeoutHTTP2 (\s a -> s { _appMeshVirtualNodeListenerTimeoutHTTP2 = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-tcp+amvnltTCP :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeTcpTimeout)+amvnltTCP = lens _appMeshVirtualNodeListenerTimeoutTCP (\s a -> s { _appMeshVirtualNodeListenerTimeoutTCP = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTcpTimeout.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-tcptimeout.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration++-- | Full data type definition for AppMeshVirtualNodeTcpTimeout. See+-- 'appMeshVirtualNodeTcpTimeout' for a more convenient constructor.+data AppMeshVirtualNodeTcpTimeout =+  AppMeshVirtualNodeTcpTimeout+  { _appMeshVirtualNodeTcpTimeoutIdle :: Maybe AppMeshVirtualNodeDuration+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeTcpTimeout where+  toJSON AppMeshVirtualNodeTcpTimeout{..} =+    object $+    catMaybes+    [ fmap (("Idle",) . toJSON) _appMeshVirtualNodeTcpTimeoutIdle+    ]++-- | Constructor for 'AppMeshVirtualNodeTcpTimeout' containing required fields+-- as arguments.+appMeshVirtualNodeTcpTimeout+  :: AppMeshVirtualNodeTcpTimeout+appMeshVirtualNodeTcpTimeout  =+  AppMeshVirtualNodeTcpTimeout+  { _appMeshVirtualNodeTcpTimeoutIdle = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tcptimeout.html#cfn-appmesh-virtualnode-tcptimeout-idle+amvnttIdle :: Lens' AppMeshVirtualNodeTcpTimeout (Maybe AppMeshVirtualNodeDuration)+amvnttIdle = lens _appMeshVirtualNodeTcpTimeoutIdle (\s a -> s { _appMeshVirtualNodeTcpTimeoutIdle = a })
+ library-gen/Stratosphere/ResourceProperties/AthenaDataCatalogTags.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-datacatalog-tags.html++module Stratosphere.ResourceProperties.AthenaDataCatalogTags where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for AthenaDataCatalogTags. See+-- 'athenaDataCatalogTags' for a more convenient constructor.+data AthenaDataCatalogTags =+  AthenaDataCatalogTags+  { _athenaDataCatalogTagsTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON AthenaDataCatalogTags where+  toJSON AthenaDataCatalogTags{..} =+    object $+    catMaybes+    [ fmap (("Tags",) . toJSON) _athenaDataCatalogTagsTags+    ]++-- | Constructor for 'AthenaDataCatalogTags' containing required fields as+-- arguments.+athenaDataCatalogTags+  :: AthenaDataCatalogTags+athenaDataCatalogTags  =+  AthenaDataCatalogTags+  { _athenaDataCatalogTagsTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-datacatalog-tags.html#cfn-athena-datacatalog-tags-tags+adctTags :: Lens' AthenaDataCatalogTags (Maybe [Tag])+adctTags = lens _athenaDataCatalogTagsTags (\s a -> s { _athenaDataCatalogTagsTags = a })
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs view
@@ -16,14 +16,16 @@ data CloudFrontDistributionCacheBehavior =   CloudFrontDistributionCacheBehavior   { _cloudFrontDistributionCacheBehaviorAllowedMethods :: Maybe (ValList Text)+  , _cloudFrontDistributionCacheBehaviorCachePolicyId :: Maybe (Val Text)   , _cloudFrontDistributionCacheBehaviorCachedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionCacheBehaviorCompress :: Maybe (Val Bool)   , _cloudFrontDistributionCacheBehaviorDefaultTTL :: Maybe (Val Double)   , _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId :: Maybe (Val Text)-  , _cloudFrontDistributionCacheBehaviorForwardedValues :: CloudFrontDistributionForwardedValues+  , _cloudFrontDistributionCacheBehaviorForwardedValues :: Maybe CloudFrontDistributionForwardedValues   , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation]   , _cloudFrontDistributionCacheBehaviorMaxTTL :: Maybe (Val Double)   , _cloudFrontDistributionCacheBehaviorMinTTL :: Maybe (Val Double)+  , _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId :: Maybe (Val Text)   , _cloudFrontDistributionCacheBehaviorPathPattern :: Val Text   , _cloudFrontDistributionCacheBehaviorSmoothStreaming :: Maybe (Val Bool)   , _cloudFrontDistributionCacheBehaviorTargetOriginId :: Val Text@@ -36,14 +38,16 @@     object $     catMaybes     [ fmap (("AllowedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorAllowedMethods+    , fmap (("CachePolicyId",) . toJSON) _cloudFrontDistributionCacheBehaviorCachePolicyId     , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorCachedMethods     , fmap (("Compress",) . toJSON) _cloudFrontDistributionCacheBehaviorCompress     , fmap (("DefaultTTL",) . toJSON) _cloudFrontDistributionCacheBehaviorDefaultTTL     , fmap (("FieldLevelEncryptionId",) . toJSON) _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId-    , (Just . ("ForwardedValues",) . toJSON) _cloudFrontDistributionCacheBehaviorForwardedValues+    , fmap (("ForwardedValues",) . toJSON) _cloudFrontDistributionCacheBehaviorForwardedValues     , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations     , fmap (("MaxTTL",) . toJSON) _cloudFrontDistributionCacheBehaviorMaxTTL     , fmap (("MinTTL",) . toJSON) _cloudFrontDistributionCacheBehaviorMinTTL+    , fmap (("OriginRequestPolicyId",) . toJSON) _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId     , (Just . ("PathPattern",) . toJSON) _cloudFrontDistributionCacheBehaviorPathPattern     , fmap (("SmoothStreaming",) . toJSON) _cloudFrontDistributionCacheBehaviorSmoothStreaming     , (Just . ("TargetOriginId",) . toJSON) _cloudFrontDistributionCacheBehaviorTargetOriginId@@ -54,22 +58,23 @@ -- | Constructor for 'CloudFrontDistributionCacheBehavior' containing required -- fields as arguments. cloudFrontDistributionCacheBehavior-  :: CloudFrontDistributionForwardedValues -- ^ 'cfdcbForwardedValues'-  -> Val Text -- ^ 'cfdcbPathPattern'+  :: Val Text -- ^ 'cfdcbPathPattern'   -> Val Text -- ^ 'cfdcbTargetOriginId'   -> Val Text -- ^ 'cfdcbViewerProtocolPolicy'   -> CloudFrontDistributionCacheBehavior-cloudFrontDistributionCacheBehavior forwardedValuesarg pathPatternarg targetOriginIdarg viewerProtocolPolicyarg =+cloudFrontDistributionCacheBehavior pathPatternarg targetOriginIdarg viewerProtocolPolicyarg =   CloudFrontDistributionCacheBehavior   { _cloudFrontDistributionCacheBehaviorAllowedMethods = Nothing+  , _cloudFrontDistributionCacheBehaviorCachePolicyId = Nothing   , _cloudFrontDistributionCacheBehaviorCachedMethods = Nothing   , _cloudFrontDistributionCacheBehaviorCompress = Nothing   , _cloudFrontDistributionCacheBehaviorDefaultTTL = Nothing   , _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId = Nothing-  , _cloudFrontDistributionCacheBehaviorForwardedValues = forwardedValuesarg+  , _cloudFrontDistributionCacheBehaviorForwardedValues = Nothing   , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations = Nothing   , _cloudFrontDistributionCacheBehaviorMaxTTL = Nothing   , _cloudFrontDistributionCacheBehaviorMinTTL = Nothing+  , _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId = Nothing   , _cloudFrontDistributionCacheBehaviorPathPattern = pathPatternarg   , _cloudFrontDistributionCacheBehaviorSmoothStreaming = Nothing   , _cloudFrontDistributionCacheBehaviorTargetOriginId = targetOriginIdarg@@ -81,6 +86,10 @@ cfdcbAllowedMethods :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) cfdcbAllowedMethods = lens _cloudFrontDistributionCacheBehaviorAllowedMethods (\s a -> s { _cloudFrontDistributionCacheBehaviorAllowedMethods = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-cachepolicyid+cfdcbCachePolicyId :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text))+cfdcbCachePolicyId = lens _cloudFrontDistributionCacheBehaviorCachePolicyId (\s a -> s { _cloudFrontDistributionCacheBehaviorCachePolicyId = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-cachedmethods cfdcbCachedMethods :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) cfdcbCachedMethods = lens _cloudFrontDistributionCacheBehaviorCachedMethods (\s a -> s { _cloudFrontDistributionCacheBehaviorCachedMethods = a })@@ -98,7 +107,7 @@ cfdcbFieldLevelEncryptionId = lens _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId (\s a -> s { _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-forwardedvalues-cfdcbForwardedValues :: Lens' CloudFrontDistributionCacheBehavior CloudFrontDistributionForwardedValues+cfdcbForwardedValues :: Lens' CloudFrontDistributionCacheBehavior (Maybe CloudFrontDistributionForwardedValues) cfdcbForwardedValues = lens _cloudFrontDistributionCacheBehaviorForwardedValues (\s a -> s { _cloudFrontDistributionCacheBehaviorForwardedValues = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-lambdafunctionassociations@@ -112,6 +121,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-minttl cfdcbMinTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) cfdcbMinTTL = lens _cloudFrontDistributionCacheBehaviorMinTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorMinTTL = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-originrequestpolicyid+cfdcbOriginRequestPolicyId :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text))+cfdcbOriginRequestPolicyId = lens _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId (\s a -> s { _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-pathpattern cfdcbPathPattern :: Lens' CloudFrontDistributionCacheBehavior (Val Text)
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs view
@@ -17,14 +17,16 @@ data CloudFrontDistributionDefaultCacheBehavior =   CloudFrontDistributionDefaultCacheBehavior   { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods :: Maybe (ValList Text)+  , _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId :: Maybe (Val Text)   , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods :: Maybe (ValList Text)   , _cloudFrontDistributionDefaultCacheBehaviorCompress :: Maybe (Val Bool)   , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL :: Maybe (Val Double)   , _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId :: Maybe (Val Text)-  , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues :: CloudFrontDistributionForwardedValues+  , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues :: Maybe CloudFrontDistributionForwardedValues   , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation]   , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL :: Maybe (Val Double)   , _cloudFrontDistributionDefaultCacheBehaviorMinTTL :: Maybe (Val Double)+  , _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId :: Maybe (Val Text)   , _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming :: Maybe (Val Bool)   , _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId :: Val Text   , _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners :: Maybe (ValList Text)@@ -36,14 +38,16 @@     object $     catMaybes     [ fmap (("AllowedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods+    , fmap (("CachePolicyId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId     , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCachedMethods     , fmap (("Compress",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCompress     , fmap (("DefaultTTL",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL     , fmap (("FieldLevelEncryptionId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId-    , (Just . ("ForwardedValues",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorForwardedValues+    , fmap (("ForwardedValues",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorForwardedValues     , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations     , fmap (("MaxTTL",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorMaxTTL     , fmap (("MinTTL",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorMinTTL+    , fmap (("OriginRequestPolicyId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId     , fmap (("SmoothStreaming",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming     , (Just . ("TargetOriginId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId     , fmap (("TrustedSigners",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners@@ -53,21 +57,22 @@ -- | Constructor for 'CloudFrontDistributionDefaultCacheBehavior' containing -- required fields as arguments. cloudFrontDistributionDefaultCacheBehavior-  :: CloudFrontDistributionForwardedValues -- ^ 'cfddcbForwardedValues'-  -> Val Text -- ^ 'cfddcbTargetOriginId'+  :: Val Text -- ^ 'cfddcbTargetOriginId'   -> Val Text -- ^ 'cfddcbViewerProtocolPolicy'   -> CloudFrontDistributionDefaultCacheBehavior-cloudFrontDistributionDefaultCacheBehavior forwardedValuesarg targetOriginIdarg viewerProtocolPolicyarg =+cloudFrontDistributionDefaultCacheBehavior targetOriginIdarg viewerProtocolPolicyarg =   CloudFrontDistributionDefaultCacheBehavior   { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods = Nothing+  , _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorCompress = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId = Nothing-  , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = forwardedValuesarg+  , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorMinTTL = Nothing+  , _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming = Nothing   , _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId = targetOriginIdarg   , _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners = Nothing@@ -78,6 +83,10 @@ cfddcbAllowedMethods :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) cfddcbAllowedMethods = lens _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-cachepolicyid+cfddcbCachePolicyId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text))+cfddcbCachePolicyId = lens _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-cachedmethods cfddcbCachedMethods :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) cfddcbCachedMethods = lens _cloudFrontDistributionDefaultCacheBehaviorCachedMethods (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCachedMethods = a })@@ -95,7 +104,7 @@ cfddcbFieldLevelEncryptionId = lens _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-forwardedvalues-cfddcbForwardedValues :: Lens' CloudFrontDistributionDefaultCacheBehavior CloudFrontDistributionForwardedValues+cfddcbForwardedValues :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe CloudFrontDistributionForwardedValues) cfddcbForwardedValues = lens _cloudFrontDistributionDefaultCacheBehaviorForwardedValues (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-lambdafunctionassociations@@ -109,6 +118,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-minttl cfddcbMinTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) cfddcbMinTTL = lens _cloudFrontDistributionDefaultCacheBehaviorMinTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorMinTTL = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-originrequestpolicyid+cfddcbOriginRequestPolicyId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text))+cfddcbOriginRequestPolicyId = lens _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-smoothstreaming cfddcbSmoothStreaming :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Bool))
+ library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBuildStatusConfig.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-buildstatusconfig.html++module Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for CodeBuildProjectBuildStatusConfig. See+-- 'codeBuildProjectBuildStatusConfig' for a more convenient constructor.+data CodeBuildProjectBuildStatusConfig =+  CodeBuildProjectBuildStatusConfig+  { _codeBuildProjectBuildStatusConfigContext :: Maybe (Val Text)+  , _codeBuildProjectBuildStatusConfigTargetUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON CodeBuildProjectBuildStatusConfig where+  toJSON CodeBuildProjectBuildStatusConfig{..} =+    object $+    catMaybes+    [ fmap (("Context",) . toJSON) _codeBuildProjectBuildStatusConfigContext+    , fmap (("TargetUrl",) . toJSON) _codeBuildProjectBuildStatusConfigTargetUrl+    ]++-- | Constructor for 'CodeBuildProjectBuildStatusConfig' containing required+-- fields as arguments.+codeBuildProjectBuildStatusConfig+  :: CodeBuildProjectBuildStatusConfig+codeBuildProjectBuildStatusConfig  =+  CodeBuildProjectBuildStatusConfig+  { _codeBuildProjectBuildStatusConfigContext = Nothing+  , _codeBuildProjectBuildStatusConfigTargetUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-buildstatusconfig.html#cfn-codebuild-project-buildstatusconfig-context+cbpbscContext :: Lens' CodeBuildProjectBuildStatusConfig (Maybe (Val Text))+cbpbscContext = lens _codeBuildProjectBuildStatusConfigContext (\s a -> s { _codeBuildProjectBuildStatusConfigContext = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-buildstatusconfig.html#cfn-codebuild-project-buildstatusconfig-targeturl+cbpbscTargetUrl :: Lens' CodeBuildProjectBuildStatusConfig (Maybe (Val Text))+cbpbscTargetUrl = lens _codeBuildProjectBuildStatusConfigTargetUrl (\s a -> s { _codeBuildProjectBuildStatusConfigTargetUrl = a })
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth+import Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig import Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig  -- | Full data type definition for CodeBuildProjectSource. See@@ -17,6 +18,7 @@   CodeBuildProjectSource   { _codeBuildProjectSourceAuth :: Maybe CodeBuildProjectSourceAuth   , _codeBuildProjectSourceBuildSpec :: Maybe (Val Text)+  , _codeBuildProjectSourceBuildStatusConfig :: Maybe CodeBuildProjectBuildStatusConfig   , _codeBuildProjectSourceGitCloneDepth :: Maybe (Val Integer)   , _codeBuildProjectSourceGitSubmodulesConfig :: Maybe CodeBuildProjectGitSubmodulesConfig   , _codeBuildProjectSourceInsecureSsl :: Maybe (Val Bool)@@ -32,6 +34,7 @@     catMaybes     [ fmap (("Auth",) . toJSON) _codeBuildProjectSourceAuth     , fmap (("BuildSpec",) . toJSON) _codeBuildProjectSourceBuildSpec+    , fmap (("BuildStatusConfig",) . toJSON) _codeBuildProjectSourceBuildStatusConfig     , fmap (("GitCloneDepth",) . toJSON) _codeBuildProjectSourceGitCloneDepth     , fmap (("GitSubmodulesConfig",) . toJSON) _codeBuildProjectSourceGitSubmodulesConfig     , fmap (("InsecureSsl",) . toJSON) _codeBuildProjectSourceInsecureSsl@@ -50,6 +53,7 @@   CodeBuildProjectSource   { _codeBuildProjectSourceAuth = Nothing   , _codeBuildProjectSourceBuildSpec = Nothing+  , _codeBuildProjectSourceBuildStatusConfig = Nothing   , _codeBuildProjectSourceGitCloneDepth = Nothing   , _codeBuildProjectSourceGitSubmodulesConfig = Nothing   , _codeBuildProjectSourceInsecureSsl = Nothing@@ -66,6 +70,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-buildspec cbpsBuildSpec :: Lens' CodeBuildProjectSource (Maybe (Val Text)) cbpsBuildSpec = lens _codeBuildProjectSourceBuildSpec (\s a -> s { _codeBuildProjectSourceBuildSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-buildstatusconfig+cbpsBuildStatusConfig :: Lens' CodeBuildProjectSource (Maybe CodeBuildProjectBuildStatusConfig)+cbpsBuildStatusConfig = lens _codeBuildProjectSourceBuildStatusConfig (\s a -> s { _codeBuildProjectSourceBuildStatusConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-gitclonedepth cbpsGitCloneDepth :: Lens' CodeBuildProjectSource (Maybe (Val Integer))
+ library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html++module Stratosphere.ResourceProperties.EC2PrefixListEntry where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2PrefixListEntry. See+-- 'ec2PrefixListEntry' for a more convenient constructor.+data EC2PrefixListEntry =+  EC2PrefixListEntry+  { _eC2PrefixListEntryCidr :: Val Text+  , _eC2PrefixListEntryDescription :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON EC2PrefixListEntry where+  toJSON EC2PrefixListEntry{..} =+    object $+    catMaybes+    [ (Just . ("Cidr",) . toJSON) _eC2PrefixListEntryCidr+    , fmap (("Description",) . toJSON) _eC2PrefixListEntryDescription+    ]++-- | Constructor for 'EC2PrefixListEntry' containing required fields as+-- arguments.+ec2PrefixListEntry+  :: Val Text -- ^ 'ecpleCidr'+  -> EC2PrefixListEntry+ec2PrefixListEntry cidrarg =+  EC2PrefixListEntry+  { _eC2PrefixListEntryCidr = cidrarg+  , _eC2PrefixListEntryDescription = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html#cfn-ec2-prefixlist-entry-cidr+ecpleCidr :: Lens' EC2PrefixListEntry (Val Text)+ecpleCidr = lens _eC2PrefixListEntryCidr (\s a -> s { _eC2PrefixListEntryCidr = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-prefixlist-entry.html#cfn-ec2-prefixlist-entry-description+ecpleDescription :: Lens' EC2PrefixListEntry (Maybe (Val Text))+ecpleDescription = lens _eC2PrefixListEntryDescription (\s a -> s { _eC2PrefixListEntryDescription = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDependency.hs view
@@ -14,34 +14,32 @@ -- 'ecsTaskDefinitionContainerDependency' for a more convenient constructor. data ECSTaskDefinitionContainerDependency =   ECSTaskDefinitionContainerDependency-  { _eCSTaskDefinitionContainerDependencyCondition :: Val Text-  , _eCSTaskDefinitionContainerDependencyContainerName :: Val Text+  { _eCSTaskDefinitionContainerDependencyCondition :: Maybe (Val Text)+  , _eCSTaskDefinitionContainerDependencyContainerName :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON ECSTaskDefinitionContainerDependency where   toJSON ECSTaskDefinitionContainerDependency{..} =     object $     catMaybes-    [ (Just . ("Condition",) . toJSON) _eCSTaskDefinitionContainerDependencyCondition-    , (Just . ("ContainerName",) . toJSON) _eCSTaskDefinitionContainerDependencyContainerName+    [ fmap (("Condition",) . toJSON) _eCSTaskDefinitionContainerDependencyCondition+    , fmap (("ContainerName",) . toJSON) _eCSTaskDefinitionContainerDependencyContainerName     ]  -- | Constructor for 'ECSTaskDefinitionContainerDependency' containing -- required fields as arguments. ecsTaskDefinitionContainerDependency-  :: Val Text -- ^ 'ecstdcdCondition'-  -> Val Text -- ^ 'ecstdcdContainerName'-  -> ECSTaskDefinitionContainerDependency-ecsTaskDefinitionContainerDependency conditionarg containerNamearg =+  :: ECSTaskDefinitionContainerDependency+ecsTaskDefinitionContainerDependency  =   ECSTaskDefinitionContainerDependency-  { _eCSTaskDefinitionContainerDependencyCondition = conditionarg-  , _eCSTaskDefinitionContainerDependencyContainerName = containerNamearg+  { _eCSTaskDefinitionContainerDependencyCondition = Nothing+  , _eCSTaskDefinitionContainerDependencyContainerName = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdependency.html#cfn-ecs-taskdefinition-containerdependency-condition-ecstdcdCondition :: Lens' ECSTaskDefinitionContainerDependency (Val Text)+ecstdcdCondition :: Lens' ECSTaskDefinitionContainerDependency (Maybe (Val Text)) ecstdcdCondition = lens _eCSTaskDefinitionContainerDependencyCondition (\s a -> s { _eCSTaskDefinitionContainerDependencyCondition = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdependency.html#cfn-ecs-taskdefinition-containerdependency-containername-ecstdcdContainerName :: Lens' ECSTaskDefinitionContainerDependency (Val Text)+ecstdcdContainerName :: Lens' ECSTaskDefinitionContainerDependency (Maybe (Val Text)) ecstdcdContainerName = lens _eCSTaskDefinitionContainerDependencyContainerName (\s a -> s { _eCSTaskDefinitionContainerDependencyContainerName = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs view
@@ -15,7 +15,7 @@ data ECSTaskDefinitionDevice =   ECSTaskDefinitionDevice   { _eCSTaskDefinitionDeviceContainerPath :: Maybe (Val Text)-  , _eCSTaskDefinitionDeviceHostPath :: Val Text+  , _eCSTaskDefinitionDeviceHostPath :: Maybe (Val Text)   , _eCSTaskDefinitionDevicePermissions :: Maybe (ValList Text)   } deriving (Show, Eq) @@ -24,19 +24,18 @@     object $     catMaybes     [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionDeviceContainerPath-    , (Just . ("HostPath",) . toJSON) _eCSTaskDefinitionDeviceHostPath+    , fmap (("HostPath",) . toJSON) _eCSTaskDefinitionDeviceHostPath     , fmap (("Permissions",) . toJSON) _eCSTaskDefinitionDevicePermissions     ]  -- | Constructor for 'ECSTaskDefinitionDevice' containing required fields as -- arguments. ecsTaskDefinitionDevice-  :: Val Text -- ^ 'ecstddHostPath'-  -> ECSTaskDefinitionDevice-ecsTaskDefinitionDevice hostPatharg =+  :: ECSTaskDefinitionDevice+ecsTaskDefinitionDevice  =   ECSTaskDefinitionDevice   { _eCSTaskDefinitionDeviceContainerPath = Nothing-  , _eCSTaskDefinitionDeviceHostPath = hostPatharg+  , _eCSTaskDefinitionDeviceHostPath = Nothing   , _eCSTaskDefinitionDevicePermissions = Nothing   } @@ -45,7 +44,7 @@ ecstddContainerPath = lens _eCSTaskDefinitionDeviceContainerPath (\s a -> s { _eCSTaskDefinitionDeviceContainerPath = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-hostpath-ecstddHostPath :: Lens' ECSTaskDefinitionDevice (Val Text)+ecstddHostPath :: Lens' ECSTaskDefinitionDevice (Maybe (Val Text)) ecstddHostPath = lens _eCSTaskDefinitionDeviceHostPath (\s a -> s { _eCSTaskDefinitionDeviceHostPath = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-permissions
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHealthCheck.hs view
@@ -14,7 +14,7 @@ -- 'ecsTaskDefinitionHealthCheck' for a more convenient constructor. data ECSTaskDefinitionHealthCheck =   ECSTaskDefinitionHealthCheck-  { _eCSTaskDefinitionHealthCheckCommand :: ValList Text+  { _eCSTaskDefinitionHealthCheckCommand :: Maybe (ValList Text)   , _eCSTaskDefinitionHealthCheckInterval :: Maybe (Val Integer)   , _eCSTaskDefinitionHealthCheckRetries :: Maybe (Val Integer)   , _eCSTaskDefinitionHealthCheckStartPeriod :: Maybe (Val Integer)@@ -25,7 +25,7 @@   toJSON ECSTaskDefinitionHealthCheck{..} =     object $     catMaybes-    [ (Just . ("Command",) . toJSON) _eCSTaskDefinitionHealthCheckCommand+    [ fmap (("Command",) . toJSON) _eCSTaskDefinitionHealthCheckCommand     , fmap (("Interval",) . toJSON) _eCSTaskDefinitionHealthCheckInterval     , fmap (("Retries",) . toJSON) _eCSTaskDefinitionHealthCheckRetries     , fmap (("StartPeriod",) . toJSON) _eCSTaskDefinitionHealthCheckStartPeriod@@ -35,11 +35,10 @@ -- | Constructor for 'ECSTaskDefinitionHealthCheck' containing required fields -- as arguments. ecsTaskDefinitionHealthCheck-  :: ValList Text -- ^ 'ecstdhcCommand'-  -> ECSTaskDefinitionHealthCheck-ecsTaskDefinitionHealthCheck commandarg =+  :: ECSTaskDefinitionHealthCheck+ecsTaskDefinitionHealthCheck  =   ECSTaskDefinitionHealthCheck-  { _eCSTaskDefinitionHealthCheckCommand = commandarg+  { _eCSTaskDefinitionHealthCheckCommand = Nothing   , _eCSTaskDefinitionHealthCheckInterval = Nothing   , _eCSTaskDefinitionHealthCheckRetries = Nothing   , _eCSTaskDefinitionHealthCheckStartPeriod = Nothing@@ -47,7 +46,7 @@   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-command-ecstdhcCommand :: Lens' ECSTaskDefinitionHealthCheck (ValList Text)+ecstdhcCommand :: Lens' ECSTaskDefinitionHealthCheck (Maybe (ValList Text)) ecstdhcCommand = lens _eCSTaskDefinitionHealthCheckCommand (\s a -> s { _eCSTaskDefinitionHealthCheckCommand = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-interval
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostEntry.hs view
@@ -14,34 +14,32 @@ -- 'ecsTaskDefinitionHostEntry' for a more convenient constructor. data ECSTaskDefinitionHostEntry =   ECSTaskDefinitionHostEntry-  { _eCSTaskDefinitionHostEntryHostname :: Val Text-  , _eCSTaskDefinitionHostEntryIpAddress :: Val Text+  { _eCSTaskDefinitionHostEntryHostname :: Maybe (Val Text)+  , _eCSTaskDefinitionHostEntryIpAddress :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON ECSTaskDefinitionHostEntry where   toJSON ECSTaskDefinitionHostEntry{..} =     object $     catMaybes-    [ (Just . ("Hostname",) . toJSON) _eCSTaskDefinitionHostEntryHostname-    , (Just . ("IpAddress",) . toJSON) _eCSTaskDefinitionHostEntryIpAddress+    [ fmap (("Hostname",) . toJSON) _eCSTaskDefinitionHostEntryHostname+    , fmap (("IpAddress",) . toJSON) _eCSTaskDefinitionHostEntryIpAddress     ]  -- | Constructor for 'ECSTaskDefinitionHostEntry' containing required fields -- as arguments. ecsTaskDefinitionHostEntry-  :: Val Text -- ^ 'ecstdheHostname'-  -> Val Text -- ^ 'ecstdheIpAddress'-  -> ECSTaskDefinitionHostEntry-ecsTaskDefinitionHostEntry hostnamearg ipAddressarg =+  :: ECSTaskDefinitionHostEntry+ecsTaskDefinitionHostEntry  =   ECSTaskDefinitionHostEntry-  { _eCSTaskDefinitionHostEntryHostname = hostnamearg-  , _eCSTaskDefinitionHostEntryIpAddress = ipAddressarg+  { _eCSTaskDefinitionHostEntryHostname = Nothing+  , _eCSTaskDefinitionHostEntryIpAddress = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-hostentry.html#cfn-ecs-taskdefinition-containerdefinition-hostentry-hostname-ecstdheHostname :: Lens' ECSTaskDefinitionHostEntry (Val Text)+ecstdheHostname :: Lens' ECSTaskDefinitionHostEntry (Maybe (Val Text)) ecstdheHostname = lens _eCSTaskDefinitionHostEntryHostname (\s a -> s { _eCSTaskDefinitionHostEntryHostname = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-hostentry.html#cfn-ecs-taskdefinition-containerdefinition-hostentry-ipaddress-ecstdheIpAddress :: Lens' ECSTaskDefinitionHostEntry (Val Text)+ecstdheIpAddress :: Lens' ECSTaskDefinitionHostEntry (Maybe (Val Text)) ecstdheIpAddress = lens _eCSTaskDefinitionHostEntryIpAddress (\s a -> s { _eCSTaskDefinitionHostEntryIpAddress = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSystemControl.hs view
@@ -14,34 +14,32 @@ -- 'ecsTaskDefinitionSystemControl' for a more convenient constructor. data ECSTaskDefinitionSystemControl =   ECSTaskDefinitionSystemControl-  { _eCSTaskDefinitionSystemControlNamespace :: Val Text-  , _eCSTaskDefinitionSystemControlValue :: Val Text+  { _eCSTaskDefinitionSystemControlNamespace :: Maybe (Val Text)+  , _eCSTaskDefinitionSystemControlValue :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON ECSTaskDefinitionSystemControl where   toJSON ECSTaskDefinitionSystemControl{..} =     object $     catMaybes-    [ (Just . ("Namespace",) . toJSON) _eCSTaskDefinitionSystemControlNamespace-    , (Just . ("Value",) . toJSON) _eCSTaskDefinitionSystemControlValue+    [ fmap (("Namespace",) . toJSON) _eCSTaskDefinitionSystemControlNamespace+    , fmap (("Value",) . toJSON) _eCSTaskDefinitionSystemControlValue     ]  -- | Constructor for 'ECSTaskDefinitionSystemControl' containing required -- fields as arguments. ecsTaskDefinitionSystemControl-  :: Val Text -- ^ 'ecstdscNamespace'-  -> Val Text -- ^ 'ecstdscValue'-  -> ECSTaskDefinitionSystemControl-ecsTaskDefinitionSystemControl namespacearg valuearg =+  :: ECSTaskDefinitionSystemControl+ecsTaskDefinitionSystemControl  =   ECSTaskDefinitionSystemControl-  { _eCSTaskDefinitionSystemControlNamespace = namespacearg-  , _eCSTaskDefinitionSystemControlValue = valuearg+  { _eCSTaskDefinitionSystemControlNamespace = Nothing+  , _eCSTaskDefinitionSystemControlValue = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html#cfn-ecs-taskdefinition-systemcontrol-namespace-ecstdscNamespace :: Lens' ECSTaskDefinitionSystemControl (Val Text)+ecstdscNamespace :: Lens' ECSTaskDefinitionSystemControl (Maybe (Val Text)) ecstdscNamespace = lens _eCSTaskDefinitionSystemControlNamespace (\s a -> s { _eCSTaskDefinitionSystemControlNamespace = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html#cfn-ecs-taskdefinition-systemcontrol-value-ecstdscValue :: Lens' ECSTaskDefinitionSystemControl (Val Text)+ecstdscValue :: Lens' ECSTaskDefinitionSystemControl (Maybe (Val Text)) ecstdscValue = lens _eCSTaskDefinitionSystemControlValue (\s a -> s { _eCSTaskDefinitionSystemControlValue = a })
+ library-gen/Stratosphere/ResourceProperties/EFSFileSystemBackupPolicy.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-backuppolicy.html++module Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy where++import Stratosphere.ResourceImports+++-- | Full data type definition for EFSFileSystemBackupPolicy. See+-- 'efsFileSystemBackupPolicy' for a more convenient constructor.+data EFSFileSystemBackupPolicy =+  EFSFileSystemBackupPolicy+  { _eFSFileSystemBackupPolicyStatus :: Val Text+  } deriving (Show, Eq)++instance ToJSON EFSFileSystemBackupPolicy where+  toJSON EFSFileSystemBackupPolicy{..} =+    object $+    catMaybes+    [ (Just . ("Status",) . toJSON) _eFSFileSystemBackupPolicyStatus+    ]++-- | Constructor for 'EFSFileSystemBackupPolicy' containing required fields as+-- arguments.+efsFileSystemBackupPolicy+  :: Val Text -- ^ 'efsfsbpStatus'+  -> EFSFileSystemBackupPolicy+efsFileSystemBackupPolicy statusarg =+  EFSFileSystemBackupPolicy+  { _eFSFileSystemBackupPolicyStatus = statusarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-backuppolicy.html#cfn-efs-filesystem-backuppolicy-status+efsfsbpStatus :: Lens' EFSFileSystemBackupPolicy (Val Text)+efsfsbpStatus = lens _eFSFileSystemBackupPolicyStatus (\s a -> s { _eFSFileSystemBackupPolicyStatus = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainAdvancedSecurityOptionsInput.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html++module Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions++-- | Full data type definition for+-- ElasticsearchDomainAdvancedSecurityOptionsInput. See+-- 'elasticsearchDomainAdvancedSecurityOptionsInput' for a more convenient+-- constructor.+data ElasticsearchDomainAdvancedSecurityOptionsInput =+  ElasticsearchDomainAdvancedSecurityOptionsInput+  { _elasticsearchDomainAdvancedSecurityOptionsInputEnabled :: Maybe (Val Bool)+  , _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled :: Maybe (Val Bool)+  , _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions :: Maybe ElasticsearchDomainMasterUserOptions+  } deriving (Show, Eq)++instance ToJSON ElasticsearchDomainAdvancedSecurityOptionsInput where+  toJSON ElasticsearchDomainAdvancedSecurityOptionsInput{..} =+    object $+    catMaybes+    [ fmap (("Enabled",) . toJSON) _elasticsearchDomainAdvancedSecurityOptionsInputEnabled+    , fmap (("InternalUserDatabaseEnabled",) . toJSON) _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled+    , fmap (("MasterUserOptions",) . toJSON) _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions+    ]++-- | Constructor for 'ElasticsearchDomainAdvancedSecurityOptionsInput'+-- containing required fields as arguments.+elasticsearchDomainAdvancedSecurityOptionsInput+  :: ElasticsearchDomainAdvancedSecurityOptionsInput+elasticsearchDomainAdvancedSecurityOptionsInput  =+  ElasticsearchDomainAdvancedSecurityOptionsInput+  { _elasticsearchDomainAdvancedSecurityOptionsInputEnabled = Nothing+  , _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled = Nothing+  , _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html#cfn-elasticsearch-domain-advancedsecurityoptionsinput-enabled+edasoiEnabled :: Lens' ElasticsearchDomainAdvancedSecurityOptionsInput (Maybe (Val Bool))+edasoiEnabled = lens _elasticsearchDomainAdvancedSecurityOptionsInputEnabled (\s a -> s { _elasticsearchDomainAdvancedSecurityOptionsInputEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html#cfn-elasticsearch-domain-advancedsecurityoptionsinput-internaluserdatabaseenabled+edasoiInternalUserDatabaseEnabled :: Lens' ElasticsearchDomainAdvancedSecurityOptionsInput (Maybe (Val Bool))+edasoiInternalUserDatabaseEnabled = lens _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled (\s a -> s { _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html#cfn-elasticsearch-domain-advancedsecurityoptionsinput-masteruseroptions+edasoiMasterUserOptions :: Lens' ElasticsearchDomainAdvancedSecurityOptionsInput (Maybe ElasticsearchDomainMasterUserOptions)+edasoiMasterUserOptions = lens _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions (\s a -> s { _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainDomainEndpointOptions.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-domainendpointoptions.html++module Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for ElasticsearchDomainDomainEndpointOptions.+-- See 'elasticsearchDomainDomainEndpointOptions' for a more convenient+-- constructor.+data ElasticsearchDomainDomainEndpointOptions =+  ElasticsearchDomainDomainEndpointOptions+  { _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS :: Maybe (Val Bool)+  , _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ElasticsearchDomainDomainEndpointOptions where+  toJSON ElasticsearchDomainDomainEndpointOptions{..} =+    object $+    catMaybes+    [ fmap (("EnforceHTTPS",) . toJSON) _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS+    , fmap (("TLSSecurityPolicy",) . toJSON) _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy+    ]++-- | Constructor for 'ElasticsearchDomainDomainEndpointOptions' containing+-- required fields as arguments.+elasticsearchDomainDomainEndpointOptions+  :: ElasticsearchDomainDomainEndpointOptions+elasticsearchDomainDomainEndpointOptions  =+  ElasticsearchDomainDomainEndpointOptions+  { _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS = Nothing+  , _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-domainendpointoptions.html#cfn-elasticsearch-domain-domainendpointoptions-enforcehttps+eddeoEnforceHTTPS :: Lens' ElasticsearchDomainDomainEndpointOptions (Maybe (Val Bool))+eddeoEnforceHTTPS = lens _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS (\s a -> s { _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-domainendpointoptions.html#cfn-elasticsearch-domain-domainendpointoptions-tlssecuritypolicy+eddeoTLSSecurityPolicy :: Lens' ElasticsearchDomainDomainEndpointOptions (Maybe (Val Text))+eddeoTLSSecurityPolicy = lens _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy (\s a -> s { _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainMasterUserOptions.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html++module Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for ElasticsearchDomainMasterUserOptions. See+-- 'elasticsearchDomainMasterUserOptions' for a more convenient constructor.+data ElasticsearchDomainMasterUserOptions =+  ElasticsearchDomainMasterUserOptions+  { _elasticsearchDomainMasterUserOptionsMasterUserARN :: Maybe (Val Text)+  , _elasticsearchDomainMasterUserOptionsMasterUserName :: Maybe (Val Text)+  , _elasticsearchDomainMasterUserOptionsMasterUserPassword :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ElasticsearchDomainMasterUserOptions where+  toJSON ElasticsearchDomainMasterUserOptions{..} =+    object $+    catMaybes+    [ fmap (("MasterUserARN",) . toJSON) _elasticsearchDomainMasterUserOptionsMasterUserARN+    , fmap (("MasterUserName",) . toJSON) _elasticsearchDomainMasterUserOptionsMasterUserName+    , fmap (("MasterUserPassword",) . toJSON) _elasticsearchDomainMasterUserOptionsMasterUserPassword+    ]++-- | Constructor for 'ElasticsearchDomainMasterUserOptions' containing+-- required fields as arguments.+elasticsearchDomainMasterUserOptions+  :: ElasticsearchDomainMasterUserOptions+elasticsearchDomainMasterUserOptions  =+  ElasticsearchDomainMasterUserOptions+  { _elasticsearchDomainMasterUserOptionsMasterUserARN = Nothing+  , _elasticsearchDomainMasterUserOptionsMasterUserName = Nothing+  , _elasticsearchDomainMasterUserOptionsMasterUserPassword = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html#cfn-elasticsearch-domain-masteruseroptions-masteruserarn+edmuoMasterUserARN :: Lens' ElasticsearchDomainMasterUserOptions (Maybe (Val Text))+edmuoMasterUserARN = lens _elasticsearchDomainMasterUserOptionsMasterUserARN (\s a -> s { _elasticsearchDomainMasterUserOptionsMasterUserARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html#cfn-elasticsearch-domain-masteruseroptions-masterusername+edmuoMasterUserName :: Lens' ElasticsearchDomainMasterUserOptions (Maybe (Val Text))+edmuoMasterUserName = lens _elasticsearchDomainMasterUserOptionsMasterUserName (\s a -> s { _elasticsearchDomainMasterUserOptionsMasterUserName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html#cfn-elasticsearch-domain-masteruseroptions-masteruserpassword+edmuoMasterUserPassword :: Lens' ElasticsearchDomainMasterUserOptions (Maybe (Val Text))+edmuoMasterUserPassword = lens _elasticsearchDomainMasterUserOptionsMasterUserPassword (\s a -> s { _elasticsearchDomainMasterUserOptionsMasterUserPassword = a })
library-gen/Stratosphere/ResourceProperties/FMSPolicyIEMap.hs view
@@ -15,6 +15,7 @@ data FMSPolicyIEMap =   FMSPolicyIEMap   { _fMSPolicyIEMapACCOUNT :: Maybe (ValList Text)+  , _fMSPolicyIEMapORGUNIT :: Maybe (ValList Text)   } deriving (Show, Eq)  instance ToJSON FMSPolicyIEMap where@@ -22,6 +23,7 @@     object $     catMaybes     [ fmap (("ACCOUNT",) . toJSON) _fMSPolicyIEMapACCOUNT+    , fmap (("ORGUNIT",) . toJSON) _fMSPolicyIEMapORGUNIT     ]  -- | Constructor for 'FMSPolicyIEMap' containing required fields as arguments.@@ -30,8 +32,13 @@ fmsPolicyIEMap  =   FMSPolicyIEMap   { _fMSPolicyIEMapACCOUNT = Nothing+  , _fMSPolicyIEMapORGUNIT = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-iemap.html#cfn-fms-policy-iemap-account fmspiemACCOUNT :: Lens' FMSPolicyIEMap (Maybe (ValList Text)) fmspiemACCOUNT = lens _fMSPolicyIEMapACCOUNT (\s a -> s { _fMSPolicyIEMapACCOUNT = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-iemap.html#cfn-fms-policy-iemap-orgunit+fmspiemORGUNIT :: Lens' FMSPolicyIEMap (Maybe (ValList Text))+fmspiemORGUNIT = lens _fMSPolicyIEMapORGUNIT (\s a -> s { _fMSPolicyIEMapORGUNIT = a })
library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs view
@@ -14,7 +14,10 @@ -- 'fSxFileSystemLustreConfiguration' for a more convenient constructor. data FSxFileSystemLustreConfiguration =   FSxFileSystemLustreConfiguration-  { _fSxFileSystemLustreConfigurationDeploymentType :: Maybe (Val Text)+  { _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays :: Maybe (Val Integer)+  , _fSxFileSystemLustreConfigurationCopyTagsToBackups :: Maybe (Val Bool)+  , _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime :: Maybe (Val Text)+  , _fSxFileSystemLustreConfigurationDeploymentType :: Maybe (Val Text)   , _fSxFileSystemLustreConfigurationExportPath :: Maybe (Val Text)   , _fSxFileSystemLustreConfigurationImportPath :: Maybe (Val Text)   , _fSxFileSystemLustreConfigurationImportedFileChunkSize :: Maybe (Val Integer)@@ -26,7 +29,10 @@   toJSON FSxFileSystemLustreConfiguration{..} =     object $     catMaybes-    [ fmap (("DeploymentType",) . toJSON) _fSxFileSystemLustreConfigurationDeploymentType+    [ fmap (("AutomaticBackupRetentionDays",) . toJSON) _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays+    , fmap (("CopyTagsToBackups",) . toJSON) _fSxFileSystemLustreConfigurationCopyTagsToBackups+    , fmap (("DailyAutomaticBackupStartTime",) . toJSON) _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime+    , fmap (("DeploymentType",) . toJSON) _fSxFileSystemLustreConfigurationDeploymentType     , fmap (("ExportPath",) . toJSON) _fSxFileSystemLustreConfigurationExportPath     , fmap (("ImportPath",) . toJSON) _fSxFileSystemLustreConfigurationImportPath     , fmap (("ImportedFileChunkSize",) . toJSON) _fSxFileSystemLustreConfigurationImportedFileChunkSize@@ -40,13 +46,28 @@   :: FSxFileSystemLustreConfiguration fSxFileSystemLustreConfiguration  =   FSxFileSystemLustreConfiguration-  { _fSxFileSystemLustreConfigurationDeploymentType = Nothing+  { _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays = Nothing+  , _fSxFileSystemLustreConfigurationCopyTagsToBackups = Nothing+  , _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime = 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-automaticbackupretentiondays+fsfslcAutomaticBackupRetentionDays :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Integer))+fsfslcAutomaticBackupRetentionDays = lens _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays (\s a -> s { _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-copytagstobackups+fsfslcCopyTagsToBackups :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Bool))+fsfslcCopyTagsToBackups = lens _fSxFileSystemLustreConfigurationCopyTagsToBackups (\s a -> s { _fSxFileSystemLustreConfigurationCopyTagsToBackups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-dailyautomaticbackupstarttime+fsfslcDailyAutomaticBackupStartTime :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text))+fsfslcDailyAutomaticBackupStartTime = lens _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime (\s a -> s { _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-deploymenttype fsfslcDeploymentType :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text))
library-gen/Stratosphere/ResourceProperties/ImageBuilderDistributionConfigurationDistribution.hs view
@@ -18,7 +18,7 @@   ImageBuilderDistributionConfigurationDistribution   { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration :: Maybe Object   , _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns :: Maybe (ValList Text)-  , _imageBuilderDistributionConfigurationDistributionRegion :: Maybe (Val Text)+  , _imageBuilderDistributionConfigurationDistributionRegion :: Val Text   } deriving (Show, Eq)  instance ToJSON ImageBuilderDistributionConfigurationDistribution where@@ -27,18 +27,19 @@     catMaybes     [ fmap (("AmiDistributionConfiguration",) . toJSON) _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration     , fmap (("LicenseConfigurationArns",) . toJSON) _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns-    , fmap (("Region",) . toJSON) _imageBuilderDistributionConfigurationDistributionRegion+    , (Just . ("Region",) . toJSON) _imageBuilderDistributionConfigurationDistributionRegion     ]  -- | Constructor for 'ImageBuilderDistributionConfigurationDistribution' -- containing required fields as arguments. imageBuilderDistributionConfigurationDistribution-  :: ImageBuilderDistributionConfigurationDistribution-imageBuilderDistributionConfigurationDistribution  =+  :: Val Text -- ^ 'ibdcdRegion'+  -> ImageBuilderDistributionConfigurationDistribution+imageBuilderDistributionConfigurationDistribution regionarg =   ImageBuilderDistributionConfigurationDistribution   { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration = Nothing   , _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns = Nothing-  , _imageBuilderDistributionConfigurationDistributionRegion = Nothing+  , _imageBuilderDistributionConfigurationDistributionRegion = regionarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-amidistributionconfiguration@@ -50,5 +51,5 @@ ibdcdLicenseConfigurationArns = lens _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns (\s a -> s { _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-region-ibdcdRegion :: Lens' ImageBuilderDistributionConfigurationDistribution (Maybe (Val Text))+ibdcdRegion :: Lens' ImageBuilderDistributionConfigurationDistribution (Val Text) ibdcdRegion = lens _imageBuilderDistributionConfigurationDistributionRegion (\s a -> s { _imageBuilderDistributionConfigurationDistributionRegion = a })
+ library-gen/Stratosphere/ResourceProperties/LambdaFunctionFileSystemConfig.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-filesystemconfig.html++module Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for LambdaFunctionFileSystemConfig. See+-- 'lambdaFunctionFileSystemConfig' for a more convenient constructor.+data LambdaFunctionFileSystemConfig =+  LambdaFunctionFileSystemConfig+  { _lambdaFunctionFileSystemConfigArn :: Val Text+  , _lambdaFunctionFileSystemConfigLocalMountPath :: Val Text+  } deriving (Show, Eq)++instance ToJSON LambdaFunctionFileSystemConfig where+  toJSON LambdaFunctionFileSystemConfig{..} =+    object $+    catMaybes+    [ (Just . ("Arn",) . toJSON) _lambdaFunctionFileSystemConfigArn+    , (Just . ("LocalMountPath",) . toJSON) _lambdaFunctionFileSystemConfigLocalMountPath+    ]++-- | Constructor for 'LambdaFunctionFileSystemConfig' containing required+-- fields as arguments.+lambdaFunctionFileSystemConfig+  :: Val Text -- ^ 'lffscArn'+  -> Val Text -- ^ 'lffscLocalMountPath'+  -> LambdaFunctionFileSystemConfig+lambdaFunctionFileSystemConfig arnarg localMountPatharg =+  LambdaFunctionFileSystemConfig+  { _lambdaFunctionFileSystemConfigArn = arnarg+  , _lambdaFunctionFileSystemConfigLocalMountPath = localMountPatharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-filesystemconfig.html#cfn-lambda-function-filesystemconfig-arn+lffscArn :: Lens' LambdaFunctionFileSystemConfig (Val Text)+lffscArn = lens _lambdaFunctionFileSystemConfigArn (\s a -> s { _lambdaFunctionFileSystemConfigArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-filesystemconfig.html#cfn-lambda-function-filesystemconfig-localmountpath+lffscLocalMountPath :: Lens' LambdaFunctionFileSystemConfig (Val Text)+lffscLocalMountPath = lens _lambdaFunctionFileSystemConfigLocalMountPath (\s a -> s { _lambdaFunctionFileSystemConfigLocalMountPath = a })
+ library-gen/Stratosphere/ResourceProperties/QLDBStreamKinesisConfiguration.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-qldb-stream-kinesisconfiguration.html++module Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for QLDBStreamKinesisConfiguration. See+-- 'qldbStreamKinesisConfiguration' for a more convenient constructor.+data QLDBStreamKinesisConfiguration =+  QLDBStreamKinesisConfiguration+  { _qLDBStreamKinesisConfigurationAggregationEnabled :: Maybe (Val Bool)+  , _qLDBStreamKinesisConfigurationStreamArn :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON QLDBStreamKinesisConfiguration where+  toJSON QLDBStreamKinesisConfiguration{..} =+    object $+    catMaybes+    [ fmap (("AggregationEnabled",) . toJSON) _qLDBStreamKinesisConfigurationAggregationEnabled+    , fmap (("StreamArn",) . toJSON) _qLDBStreamKinesisConfigurationStreamArn+    ]++-- | Constructor for 'QLDBStreamKinesisConfiguration' containing required+-- fields as arguments.+qldbStreamKinesisConfiguration+  :: QLDBStreamKinesisConfiguration+qldbStreamKinesisConfiguration  =+  QLDBStreamKinesisConfiguration+  { _qLDBStreamKinesisConfigurationAggregationEnabled = Nothing+  , _qLDBStreamKinesisConfigurationStreamArn = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-qldb-stream-kinesisconfiguration.html#cfn-qldb-stream-kinesisconfiguration-aggregationenabled+qldbskcAggregationEnabled :: Lens' QLDBStreamKinesisConfiguration (Maybe (Val Bool))+qldbskcAggregationEnabled = lens _qLDBStreamKinesisConfigurationAggregationEnabled (\s a -> s { _qLDBStreamKinesisConfigurationAggregationEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-qldb-stream-kinesisconfiguration.html#cfn-qldb-stream-kinesisconfiguration-streamarn+qldbskcStreamArn :: Lens' QLDBStreamKinesisConfiguration (Maybe (Val Text))+qldbskcStreamArn = lens _qLDBStreamKinesisConfigurationStreamArn (\s a -> s { _qLDBStreamKinesisConfigurationStreamArn = a })
+ library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureContentTypeHeader.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader.html++module Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- SageMakerEndpointConfigCaptureContentTypeHeader. See+-- 'sageMakerEndpointConfigCaptureContentTypeHeader' for a more convenient+-- constructor.+data SageMakerEndpointConfigCaptureContentTypeHeader =+  SageMakerEndpointConfigCaptureContentTypeHeader+  { _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes :: Maybe (ValList Text)+  , _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON SageMakerEndpointConfigCaptureContentTypeHeader where+  toJSON SageMakerEndpointConfigCaptureContentTypeHeader{..} =+    object $+    catMaybes+    [ fmap (("CsvContentTypes",) . toJSON) _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes+    , fmap (("JsonContentTypes",) . toJSON) _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes+    ]++-- | Constructor for 'SageMakerEndpointConfigCaptureContentTypeHeader'+-- containing required fields as arguments.+sageMakerEndpointConfigCaptureContentTypeHeader+  :: SageMakerEndpointConfigCaptureContentTypeHeader+sageMakerEndpointConfigCaptureContentTypeHeader  =+  SageMakerEndpointConfigCaptureContentTypeHeader+  { _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes = Nothing+  , _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader.html#cfn-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader-csvcontenttypes+smecccthCsvContentTypes :: Lens' SageMakerEndpointConfigCaptureContentTypeHeader (Maybe (ValList Text))+smecccthCsvContentTypes = lens _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes (\s a -> s { _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader.html#cfn-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader-jsoncontenttypes+smecccthJsonContentTypes :: Lens' SageMakerEndpointConfigCaptureContentTypeHeader (Maybe (ValList Text))+smecccthJsonContentTypes = lens _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes (\s a -> s { _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes = a })
+ library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureOption.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-captureoption.html++module Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption where++import Stratosphere.ResourceImports+++-- | Full data type definition for SageMakerEndpointConfigCaptureOption. See+-- 'sageMakerEndpointConfigCaptureOption' for a more convenient constructor.+data SageMakerEndpointConfigCaptureOption =+  SageMakerEndpointConfigCaptureOption+  { _sageMakerEndpointConfigCaptureOptionCaptureMode :: Val Text+  } deriving (Show, Eq)++instance ToJSON SageMakerEndpointConfigCaptureOption where+  toJSON SageMakerEndpointConfigCaptureOption{..} =+    object $+    catMaybes+    [ (Just . ("CaptureMode",) . toJSON) _sageMakerEndpointConfigCaptureOptionCaptureMode+    ]++-- | Constructor for 'SageMakerEndpointConfigCaptureOption' containing+-- required fields as arguments.+sageMakerEndpointConfigCaptureOption+  :: Val Text -- ^ 'smeccoCaptureMode'+  -> SageMakerEndpointConfigCaptureOption+sageMakerEndpointConfigCaptureOption captureModearg =+  SageMakerEndpointConfigCaptureOption+  { _sageMakerEndpointConfigCaptureOptionCaptureMode = captureModearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-captureoption.html#cfn-sagemaker-endpointconfig-captureoption-capturemode+smeccoCaptureMode :: Lens' SageMakerEndpointConfigCaptureOption (Val Text)+smeccoCaptureMode = lens _sageMakerEndpointConfigCaptureOptionCaptureMode (\s a -> s { _sageMakerEndpointConfigCaptureOptionCaptureMode = a })
+ library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigDataCaptureConfig.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html++module Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader+import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption++-- | Full data type definition for SageMakerEndpointConfigDataCaptureConfig.+-- See 'sageMakerEndpointConfigDataCaptureConfig' for a more convenient+-- constructor.+data SageMakerEndpointConfigDataCaptureConfig =+  SageMakerEndpointConfigDataCaptureConfig+  { _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader :: Maybe SageMakerEndpointConfigCaptureContentTypeHeader+  , _sageMakerEndpointConfigDataCaptureConfigCaptureOptions :: [SageMakerEndpointConfigCaptureOption]+  , _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri :: Val Text+  , _sageMakerEndpointConfigDataCaptureConfigEnableCapture :: Maybe (Val Bool)+  , _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage :: Val Integer+  , _sageMakerEndpointConfigDataCaptureConfigKmsKeyId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SageMakerEndpointConfigDataCaptureConfig where+  toJSON SageMakerEndpointConfigDataCaptureConfig{..} =+    object $+    catMaybes+    [ fmap (("CaptureContentTypeHeader",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader+    , (Just . ("CaptureOptions",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigCaptureOptions+    , (Just . ("DestinationS3Uri",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri+    , fmap (("EnableCapture",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigEnableCapture+    , (Just . ("InitialSamplingPercentage",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage+    , fmap (("KmsKeyId",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigKmsKeyId+    ]++-- | Constructor for 'SageMakerEndpointConfigDataCaptureConfig' containing+-- required fields as arguments.+sageMakerEndpointConfigDataCaptureConfig+  :: [SageMakerEndpointConfigCaptureOption] -- ^ 'smecdccCaptureOptions'+  -> Val Text -- ^ 'smecdccDestinationS3Uri'+  -> Val Integer -- ^ 'smecdccInitialSamplingPercentage'+  -> SageMakerEndpointConfigDataCaptureConfig+sageMakerEndpointConfigDataCaptureConfig captureOptionsarg destinationS3Uriarg initialSamplingPercentagearg =+  SageMakerEndpointConfigDataCaptureConfig+  { _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader = Nothing+  , _sageMakerEndpointConfigDataCaptureConfigCaptureOptions = captureOptionsarg+  , _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri = destinationS3Uriarg+  , _sageMakerEndpointConfigDataCaptureConfigEnableCapture = Nothing+  , _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage = initialSamplingPercentagearg+  , _sageMakerEndpointConfigDataCaptureConfigKmsKeyId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader+smecdccCaptureContentTypeHeader :: Lens' SageMakerEndpointConfigDataCaptureConfig (Maybe SageMakerEndpointConfigCaptureContentTypeHeader)+smecdccCaptureContentTypeHeader = lens _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-captureoptions+smecdccCaptureOptions :: Lens' SageMakerEndpointConfigDataCaptureConfig [SageMakerEndpointConfigCaptureOption]+smecdccCaptureOptions = lens _sageMakerEndpointConfigDataCaptureConfigCaptureOptions (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigCaptureOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-destinations3uri+smecdccDestinationS3Uri :: Lens' SageMakerEndpointConfigDataCaptureConfig (Val Text)+smecdccDestinationS3Uri = lens _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-enablecapture+smecdccEnableCapture :: Lens' SageMakerEndpointConfigDataCaptureConfig (Maybe (Val Bool))+smecdccEnableCapture = lens _sageMakerEndpointConfigDataCaptureConfigEnableCapture (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigEnableCapture = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-initialsamplingpercentage+smecdccInitialSamplingPercentage :: Lens' SageMakerEndpointConfigDataCaptureConfig (Val Integer)+smecdccInitialSamplingPercentage = lens _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-kmskeyid+smecdccKmsKeyId :: Lens' SageMakerEndpointConfigDataCaptureConfig (Maybe (Val Text))+smecdccKmsKeyId = lens _sageMakerEndpointConfigDataCaptureConfigKmsKeyId (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigKmsKeyId = a })
library-gen/Stratosphere/ResourceProperties/SageMakerModelContainerDefinition.hs view
@@ -16,9 +16,10 @@   SageMakerModelContainerDefinition   { _sageMakerModelContainerDefinitionContainerHostname :: Maybe (Val Text)   , _sageMakerModelContainerDefinitionEnvironment :: Maybe Object-  , _sageMakerModelContainerDefinitionImage :: Val Text+  , _sageMakerModelContainerDefinitionImage :: Maybe (Val Text)   , _sageMakerModelContainerDefinitionMode :: Maybe (Val Text)   , _sageMakerModelContainerDefinitionModelDataUrl :: Maybe (Val Text)+  , _sageMakerModelContainerDefinitionModelPackageName :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToJSON SageMakerModelContainerDefinition where@@ -27,23 +28,24 @@     catMaybes     [ fmap (("ContainerHostname",) . toJSON) _sageMakerModelContainerDefinitionContainerHostname     , fmap (("Environment",) . toJSON) _sageMakerModelContainerDefinitionEnvironment-    , (Just . ("Image",) . toJSON) _sageMakerModelContainerDefinitionImage+    , fmap (("Image",) . toJSON) _sageMakerModelContainerDefinitionImage     , fmap (("Mode",) . toJSON) _sageMakerModelContainerDefinitionMode     , fmap (("ModelDataUrl",) . toJSON) _sageMakerModelContainerDefinitionModelDataUrl+    , fmap (("ModelPackageName",) . toJSON) _sageMakerModelContainerDefinitionModelPackageName     ]  -- | Constructor for 'SageMakerModelContainerDefinition' containing required -- fields as arguments. sageMakerModelContainerDefinition-  :: Val Text -- ^ 'smmcdImage'-  -> SageMakerModelContainerDefinition-sageMakerModelContainerDefinition imagearg =+  :: SageMakerModelContainerDefinition+sageMakerModelContainerDefinition  =   SageMakerModelContainerDefinition   { _sageMakerModelContainerDefinitionContainerHostname = Nothing   , _sageMakerModelContainerDefinitionEnvironment = Nothing-  , _sageMakerModelContainerDefinitionImage = imagearg+  , _sageMakerModelContainerDefinitionImage = Nothing   , _sageMakerModelContainerDefinitionMode = Nothing   , _sageMakerModelContainerDefinitionModelDataUrl = Nothing+  , _sageMakerModelContainerDefinitionModelPackageName = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-containerhostname@@ -55,7 +57,7 @@ smmcdEnvironment = lens _sageMakerModelContainerDefinitionEnvironment (\s a -> s { _sageMakerModelContainerDefinitionEnvironment = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-image-smmcdImage :: Lens' SageMakerModelContainerDefinition (Val Text)+smmcdImage :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) smmcdImage = lens _sageMakerModelContainerDefinitionImage (\s a -> s { _sageMakerModelContainerDefinitionImage = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-mode@@ -65,3 +67,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-modeldataurl smmcdModelDataUrl :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) smmcdModelDataUrl = lens _sageMakerModelContainerDefinitionModelDataUrl (\s a -> s { _sageMakerModelContainerDefinitionModelDataUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-modelpackagename+smmcdModelPackageName :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text))+smmcdModelPackageName = lens _sageMakerModelContainerDefinitionModelPackageName (\s a -> s { _sageMakerModelContainerDefinitionModelPackageName = a })
+ library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleHostedRotationLambda.hs view
@@ -0,0 +1,83 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html++module Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- SecretsManagerRotationScheduleHostedRotationLambda. See+-- 'secretsManagerRotationScheduleHostedRotationLambda' for a more+-- convenient constructor.+data SecretsManagerRotationScheduleHostedRotationLambda =+  SecretsManagerRotationScheduleHostedRotationLambda+  { _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn :: Maybe (Val Text)+  , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn :: Maybe (Val Text)+  , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn :: Maybe (Val Text)+  , _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName :: Maybe (Val Text)+  , _secretsManagerRotationScheduleHostedRotationLambdaRotationType :: Val Text+  , _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds :: Maybe (Val Text)+  , _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON SecretsManagerRotationScheduleHostedRotationLambda where+  toJSON SecretsManagerRotationScheduleHostedRotationLambda{..} =+    object $+    catMaybes+    [ fmap (("KmsKeyArn",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn+    , fmap (("MasterSecretArn",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn+    , fmap (("MasterSecretKmsKeyArn",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn+    , fmap (("RotationLambdaName",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName+    , (Just . ("RotationType",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaRotationType+    , fmap (("VpcSecurityGroupIds",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds+    , fmap (("VpcSubnetIds",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds+    ]++-- | Constructor for 'SecretsManagerRotationScheduleHostedRotationLambda'+-- containing required fields as arguments.+secretsManagerRotationScheduleHostedRotationLambda+  :: Val Text -- ^ 'smrshrlRotationType'+  -> SecretsManagerRotationScheduleHostedRotationLambda+secretsManagerRotationScheduleHostedRotationLambda rotationTypearg =+  SecretsManagerRotationScheduleHostedRotationLambda+  { _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn = Nothing+  , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn = Nothing+  , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn = Nothing+  , _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName = Nothing+  , _secretsManagerRotationScheduleHostedRotationLambdaRotationType = rotationTypearg+  , _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds = Nothing+  , _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-kmskeyarn+smrshrlKmsKeyArn :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text))+smrshrlKmsKeyArn = lens _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-mastersecretarn+smrshrlMasterSecretArn :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text))+smrshrlMasterSecretArn = lens _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-mastersecretkmskeyarn+smrshrlMasterSecretKmsKeyArn :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text))+smrshrlMasterSecretKmsKeyArn = lens _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-rotationlambdaname+smrshrlRotationLambdaName :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text))+smrshrlRotationLambdaName = lens _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-rotationtype+smrshrlRotationType :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Val Text)+smrshrlRotationType = lens _secretsManagerRotationScheduleHostedRotationLambdaRotationType (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaRotationType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-vpcsecuritygroupids+smrshrlVpcSecurityGroupIds :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text))+smrshrlVpcSecurityGroupIds = lens _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-vpcsubnetids+smrshrlVpcSubnetIds :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text))+smrshrlVpcSubnetIds = lens _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds = a })
library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningParameter.hs view
@@ -16,33 +16,35 @@ -- a more convenient constructor. data ServiceCatalogCloudFormationProvisionedProductProvisioningParameter =   ServiceCatalogCloudFormationProvisionedProductProvisioningParameter-  { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey :: Maybe (Val Text)-  , _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue :: Maybe (Val Text)+  { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey :: Val Text+  , _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue :: Val Text   } deriving (Show, Eq)  instance ToJSON ServiceCatalogCloudFormationProvisionedProductProvisioningParameter where   toJSON ServiceCatalogCloudFormationProvisionedProductProvisioningParameter{..} =     object $     catMaybes-    [ fmap (("Key",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey-    , fmap (("Value",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue+    [ (Just . ("Key",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey+    , (Just . ("Value",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue     ]  -- | Constructor for -- 'ServiceCatalogCloudFormationProvisionedProductProvisioningParameter' -- containing required fields as arguments. serviceCatalogCloudFormationProvisionedProductProvisioningParameter-  :: ServiceCatalogCloudFormationProvisionedProductProvisioningParameter-serviceCatalogCloudFormationProvisionedProductProvisioningParameter  =+  :: Val Text -- ^ 'sccfppppKey'+  -> Val Text -- ^ 'sccfppppValue'+  -> ServiceCatalogCloudFormationProvisionedProductProvisioningParameter+serviceCatalogCloudFormationProvisionedProductProvisioningParameter keyarg valuearg =   ServiceCatalogCloudFormationProvisionedProductProvisioningParameter-  { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey = Nothing-  , _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue = Nothing+  { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey = keyarg+  , _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue = valuearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningparameter.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningparameter-key-sccfppppKey :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningParameter (Maybe (Val Text))+sccfppppKey :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningParameter (Val Text) sccfppppKey = lens _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningparameter.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningparameter-value-sccfppppValue :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningParameter (Maybe (Val Text))+sccfppppValue :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningParameter (Val Text) sccfppppValue = lens _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue = a })
+ library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTracingConfiguration.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tracingconfiguration.html++module Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- StepFunctionsStateMachineTracingConfiguration. See+-- 'stepFunctionsStateMachineTracingConfiguration' for a more convenient+-- constructor.+data StepFunctionsStateMachineTracingConfiguration =+  StepFunctionsStateMachineTracingConfiguration+  { _stepFunctionsStateMachineTracingConfigurationEnabled :: Val Bool+  } deriving (Show, Eq)++instance ToJSON StepFunctionsStateMachineTracingConfiguration where+  toJSON StepFunctionsStateMachineTracingConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Enabled",) . toJSON) _stepFunctionsStateMachineTracingConfigurationEnabled+    ]++-- | Constructor for 'StepFunctionsStateMachineTracingConfiguration'+-- containing required fields as arguments.+stepFunctionsStateMachineTracingConfiguration+  :: Val Bool -- ^ 'sfsmtcEnabled'+  -> StepFunctionsStateMachineTracingConfiguration+stepFunctionsStateMachineTracingConfiguration enabledarg =+  StepFunctionsStateMachineTracingConfiguration+  { _stepFunctionsStateMachineTracingConfigurationEnabled = enabledarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tracingconfiguration.html#cfn-stepfunctions-statemachine-tracingconfiguration-enabled+sfsmtcEnabled :: Lens' StepFunctionsStateMachineTracingConfiguration (Val Bool)+sfsmtcEnabled = lens _stepFunctionsStateMachineTracingConfigurationEnabled (\s a -> s { _stepFunctionsStateMachineTracingConfigurationEnabled = a })
library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryRunConfig.hs view
@@ -14,14 +14,16 @@ -- 'syntheticsCanaryRunConfig' for a more convenient constructor. data SyntheticsCanaryRunConfig =   SyntheticsCanaryRunConfig-  { _syntheticsCanaryRunConfigTimeoutInSeconds :: Val Integer+  { _syntheticsCanaryRunConfigMemoryInMB :: Maybe (Val Integer)+  , _syntheticsCanaryRunConfigTimeoutInSeconds :: Val Integer   } deriving (Show, Eq)  instance ToJSON SyntheticsCanaryRunConfig where   toJSON SyntheticsCanaryRunConfig{..} =     object $     catMaybes-    [ (Just . ("TimeoutInSeconds",) . toJSON) _syntheticsCanaryRunConfigTimeoutInSeconds+    [ fmap (("MemoryInMB",) . toJSON) _syntheticsCanaryRunConfigMemoryInMB+    , (Just . ("TimeoutInSeconds",) . toJSON) _syntheticsCanaryRunConfigTimeoutInSeconds     ]  -- | Constructor for 'SyntheticsCanaryRunConfig' containing required fields as@@ -31,8 +33,13 @@   -> SyntheticsCanaryRunConfig syntheticsCanaryRunConfig timeoutInSecondsarg =   SyntheticsCanaryRunConfig-  { _syntheticsCanaryRunConfigTimeoutInSeconds = timeoutInSecondsarg+  { _syntheticsCanaryRunConfigMemoryInMB = Nothing+  , _syntheticsCanaryRunConfigTimeoutInSeconds = timeoutInSecondsarg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-runconfig.html#cfn-synthetics-canary-runconfig-memoryinmb+scrcMemoryInMB :: Lens' SyntheticsCanaryRunConfig (Maybe (Val Integer))+scrcMemoryInMB = lens _syntheticsCanaryRunConfigMemoryInMB (\s a -> s { _syntheticsCanaryRunConfigMemoryInMB = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-runconfig.html#cfn-synthetics-canary-runconfig-timeoutinseconds scrcTimeoutInSeconds :: Lens' SyntheticsCanaryRunConfig (Val Integer)
library-gen/Stratosphere/ResourceProperties/SyntheticsCanarySchedule.hs view
@@ -14,7 +14,7 @@ -- 'syntheticsCanarySchedule' for a more convenient constructor. data SyntheticsCanarySchedule =   SyntheticsCanarySchedule-  { _syntheticsCanaryScheduleDurationInSeconds :: Val Text+  { _syntheticsCanaryScheduleDurationInSeconds :: Maybe (Val Text)   , _syntheticsCanaryScheduleExpression :: Val Text   } deriving (Show, Eq) @@ -22,24 +22,23 @@   toJSON SyntheticsCanarySchedule{..} =     object $     catMaybes-    [ (Just . ("DurationInSeconds",) . toJSON) _syntheticsCanaryScheduleDurationInSeconds+    [ fmap (("DurationInSeconds",) . toJSON) _syntheticsCanaryScheduleDurationInSeconds     , (Just . ("Expression",) . toJSON) _syntheticsCanaryScheduleExpression     ]  -- | Constructor for 'SyntheticsCanarySchedule' containing required fields as -- arguments. syntheticsCanarySchedule-  :: Val Text -- ^ 'scsDurationInSeconds'-  -> Val Text -- ^ 'scsExpression'+  :: Val Text -- ^ 'scsExpression'   -> SyntheticsCanarySchedule-syntheticsCanarySchedule durationInSecondsarg expressionarg =+syntheticsCanarySchedule expressionarg =   SyntheticsCanarySchedule-  { _syntheticsCanaryScheduleDurationInSeconds = durationInSecondsarg+  { _syntheticsCanaryScheduleDurationInSeconds = Nothing   , _syntheticsCanaryScheduleExpression = expressionarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-schedule.html#cfn-synthetics-canary-schedule-durationinseconds-scsDurationInSeconds :: Lens' SyntheticsCanarySchedule (Val Text)+scsDurationInSeconds :: Lens' SyntheticsCanarySchedule (Maybe (Val Text)) scsDurationInSeconds = lens _syntheticsCanaryScheduleDurationInSeconds (\s a -> s { _syntheticsCanaryScheduleDurationInSeconds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-schedule.html#cfn-synthetics-canary-schedule-expression
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupForwardedIPConfiguration.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-forwardedipconfiguration.html++module Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for WAFv2RuleGroupForwardedIPConfiguration. See+-- 'waFv2RuleGroupForwardedIPConfiguration' for a more convenient+-- constructor.+data WAFv2RuleGroupForwardedIPConfiguration =+  WAFv2RuleGroupForwardedIPConfiguration+  { _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior :: Val Text+  , _wAFv2RuleGroupForwardedIPConfigurationHeaderName :: Val Text+  } deriving (Show, Eq)++instance ToJSON WAFv2RuleGroupForwardedIPConfiguration where+  toJSON WAFv2RuleGroupForwardedIPConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior+    , (Just . ("HeaderName",) . toJSON) _wAFv2RuleGroupForwardedIPConfigurationHeaderName+    ]++-- | Constructor for 'WAFv2RuleGroupForwardedIPConfiguration' containing+-- required fields as arguments.+waFv2RuleGroupForwardedIPConfiguration+  :: Val Text -- ^ 'wafrgfipcFallbackBehavior'+  -> Val Text -- ^ 'wafrgfipcHeaderName'+  -> WAFv2RuleGroupForwardedIPConfiguration+waFv2RuleGroupForwardedIPConfiguration fallbackBehaviorarg headerNamearg =+  WAFv2RuleGroupForwardedIPConfiguration+  { _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg+  , _wAFv2RuleGroupForwardedIPConfigurationHeaderName = headerNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-forwardedipconfiguration.html#cfn-wafv2-rulegroup-forwardedipconfiguration-fallbackbehavior+wafrgfipcFallbackBehavior :: Lens' WAFv2RuleGroupForwardedIPConfiguration (Val Text)+wafrgfipcFallbackBehavior = lens _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-forwardedipconfiguration.html#cfn-wafv2-rulegroup-forwardedipconfiguration-headername+wafrgfipcHeaderName :: Lens' WAFv2RuleGroupForwardedIPConfiguration (Val Text)+wafrgfipcHeaderName = lens _wAFv2RuleGroupForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2RuleGroupForwardedIPConfigurationHeaderName = a })
library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupGeoMatchStatement.hs view
@@ -8,13 +8,14 @@ module Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration  -- | Full data type definition for WAFv2RuleGroupGeoMatchStatement. See -- 'waFv2RuleGroupGeoMatchStatement' for a more convenient constructor. data WAFv2RuleGroupGeoMatchStatement =   WAFv2RuleGroupGeoMatchStatement   { _wAFv2RuleGroupGeoMatchStatementCountryCodes :: Maybe (ValList Text)+  , _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig :: Maybe WAFv2RuleGroupForwardedIPConfiguration   } deriving (Show, Eq)  instance ToJSON WAFv2RuleGroupGeoMatchStatement where@@ -22,6 +23,7 @@     object $     catMaybes     [ fmap (("CountryCodes",) . toJSON) _wAFv2RuleGroupGeoMatchStatementCountryCodes+    , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig     ]  -- | Constructor for 'WAFv2RuleGroupGeoMatchStatement' containing required@@ -31,8 +33,13 @@ waFv2RuleGroupGeoMatchStatement  =   WAFv2RuleGroupGeoMatchStatement   { _wAFv2RuleGroupGeoMatchStatementCountryCodes = Nothing+  , _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-geomatchstatement.html#cfn-wafv2-rulegroup-geomatchstatement-countrycodes wafrggmsCountryCodes :: Lens' WAFv2RuleGroupGeoMatchStatement (Maybe (ValList Text)) wafrggmsCountryCodes = lens _wAFv2RuleGroupGeoMatchStatementCountryCodes (\s a -> s { _wAFv2RuleGroupGeoMatchStatementCountryCodes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-geomatchstatement.html#cfn-wafv2-rulegroup-geomatchstatement-forwardedipconfig+wafrggmsForwardedIPConfig :: Lens' WAFv2RuleGroupGeoMatchStatement (Maybe WAFv2RuleGroupForwardedIPConfiguration)+wafrggmsForwardedIPConfig = lens _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig (\s a -> s { _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig = a })
+ library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetForwardedIPConfiguration.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html++module Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- WAFv2RuleGroupIPSetForwardedIPConfiguration. See+-- 'waFv2RuleGroupIPSetForwardedIPConfiguration' for a more convenient+-- constructor.+data WAFv2RuleGroupIPSetForwardedIPConfiguration =+  WAFv2RuleGroupIPSetForwardedIPConfiguration+  { _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior :: Val Text+  , _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName :: Val Text+  , _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition :: Val Text+  } deriving (Show, Eq)++instance ToJSON WAFv2RuleGroupIPSetForwardedIPConfiguration where+  toJSON WAFv2RuleGroupIPSetForwardedIPConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior+    , (Just . ("HeaderName",) . toJSON) _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName+    , (Just . ("Position",) . toJSON) _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition+    ]++-- | Constructor for 'WAFv2RuleGroupIPSetForwardedIPConfiguration' containing+-- required fields as arguments.+waFv2RuleGroupIPSetForwardedIPConfiguration+  :: Val Text -- ^ 'wafrgipsfipcFallbackBehavior'+  -> Val Text -- ^ 'wafrgipsfipcHeaderName'+  -> Val Text -- ^ 'wafrgipsfipcPosition'+  -> WAFv2RuleGroupIPSetForwardedIPConfiguration+waFv2RuleGroupIPSetForwardedIPConfiguration fallbackBehaviorarg headerNamearg positionarg =+  WAFv2RuleGroupIPSetForwardedIPConfiguration+  { _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg+  , _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName = headerNamearg+  , _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition = positionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html#cfn-wafv2-rulegroup-ipsetforwardedipconfiguration-fallbackbehavior+wafrgipsfipcFallbackBehavior :: Lens' WAFv2RuleGroupIPSetForwardedIPConfiguration (Val Text)+wafrgipsfipcFallbackBehavior = lens _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html#cfn-wafv2-rulegroup-ipsetforwardedipconfiguration-headername+wafrgipsfipcHeaderName :: Lens' WAFv2RuleGroupIPSetForwardedIPConfiguration (Val Text)+wafrgipsfipcHeaderName = lens _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html#cfn-wafv2-rulegroup-ipsetforwardedipconfiguration-position+wafrgipsfipcPosition :: Lens' WAFv2RuleGroupIPSetForwardedIPConfiguration (Val Text)+wafrgipsfipcPosition = lens _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition (\s a -> s { _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition = a })
library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetReferenceStatement.hs view
@@ -8,7 +8,7 @@ module Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration  -- | Full data type definition for WAFv2RuleGroupIPSetReferenceStatement. See -- 'waFv2RuleGroupIPSetReferenceStatement' for a more convenient@@ -16,6 +16,7 @@ data WAFv2RuleGroupIPSetReferenceStatement =   WAFv2RuleGroupIPSetReferenceStatement   { _wAFv2RuleGroupIPSetReferenceStatementArn :: Val Text+  , _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig :: Maybe WAFv2RuleGroupIPSetForwardedIPConfiguration   } deriving (Show, Eq)  instance ToJSON WAFv2RuleGroupIPSetReferenceStatement where@@ -23,6 +24,7 @@     object $     catMaybes     [ (Just . ("Arn",) . toJSON) _wAFv2RuleGroupIPSetReferenceStatementArn+    , fmap (("IPSetForwardedIPConfig",) . toJSON) _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig     ]  -- | Constructor for 'WAFv2RuleGroupIPSetReferenceStatement' containing@@ -33,8 +35,13 @@ waFv2RuleGroupIPSetReferenceStatement arnarg =   WAFv2RuleGroupIPSetReferenceStatement   { _wAFv2RuleGroupIPSetReferenceStatementArn = arnarg+  , _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetreferencestatement.html#cfn-wafv2-rulegroup-ipsetreferencestatement-arn wafrgipsrsArn :: Lens' WAFv2RuleGroupIPSetReferenceStatement (Val Text) wafrgipsrsArn = lens _wAFv2RuleGroupIPSetReferenceStatementArn (\s a -> s { _wAFv2RuleGroupIPSetReferenceStatementArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetreferencestatement.html#cfn-wafv2-rulegroup-ipsetreferencestatement-ipsetforwardedipconfig+wafrgipsrsIPSetForwardedIPConfig :: Lens' WAFv2RuleGroupIPSetReferenceStatement (Maybe WAFv2RuleGroupIPSetForwardedIPConfiguration)+wafrgipsrsIPSetForwardedIPConfig = lens _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig (\s a -> s { _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig = a })
library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementOne.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementOne where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo  -- | Full data type definition for WAFv2RuleGroupRateBasedStatementOne. See@@ -15,6 +16,7 @@ data WAFv2RuleGroupRateBasedStatementOne =   WAFv2RuleGroupRateBasedStatementOne   { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType :: Val Text+  , _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig :: Maybe WAFv2RuleGroupForwardedIPConfiguration   , _wAFv2RuleGroupRateBasedStatementOneLimit :: Val Integer   , _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement :: Maybe WAFv2RuleGroupStatementTwo   } deriving (Show, Eq)@@ -24,6 +26,7 @@     object $     catMaybes     [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType+    , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig     , (Just . ("Limit",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneLimit     , fmap (("ScopeDownStatement",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement     ]@@ -37,6 +40,7 @@ waFv2RuleGroupRateBasedStatementOne aggregateKeyTypearg limitarg =   WAFv2RuleGroupRateBasedStatementOne   { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType = aggregateKeyTypearg+  , _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig = Nothing   , _wAFv2RuleGroupRateBasedStatementOneLimit = limitarg   , _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement = Nothing   }@@ -44,6 +48,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-aggregatekeytype wafrgrbsoAggregateKeyType :: Lens' WAFv2RuleGroupRateBasedStatementOne (Val Text) wafrgrbsoAggregateKeyType = lens _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType (\s a -> s { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-forwardedipconfig+wafrgrbsoForwardedIPConfig :: Lens' WAFv2RuleGroupRateBasedStatementOne (Maybe WAFv2RuleGroupForwardedIPConfiguration)+wafrgrbsoForwardedIPConfig = lens _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig (\s a -> s { _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-limit wafrgrbsoLimit :: Lens' WAFv2RuleGroupRateBasedStatementOne (Val Integer)
library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementTwo.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementTwo where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree  -- | Full data type definition for WAFv2RuleGroupRateBasedStatementTwo. See@@ -15,6 +16,7 @@ data WAFv2RuleGroupRateBasedStatementTwo =   WAFv2RuleGroupRateBasedStatementTwo   { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType :: Val Text+  , _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig :: Maybe WAFv2RuleGroupForwardedIPConfiguration   , _wAFv2RuleGroupRateBasedStatementTwoLimit :: Val Integer   , _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement :: Maybe WAFv2RuleGroupStatementThree   } deriving (Show, Eq)@@ -24,6 +26,7 @@     object $     catMaybes     [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType+    , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig     , (Just . ("Limit",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoLimit     , fmap (("ScopeDownStatement",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement     ]@@ -37,6 +40,7 @@ waFv2RuleGroupRateBasedStatementTwo aggregateKeyTypearg limitarg =   WAFv2RuleGroupRateBasedStatementTwo   { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType = aggregateKeyTypearg+  , _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig = Nothing   , _wAFv2RuleGroupRateBasedStatementTwoLimit = limitarg   , _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement = Nothing   }@@ -44,6 +48,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-aggregatekeytype wafrgrbstAggregateKeyType :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Val Text) wafrgrbstAggregateKeyType = lens _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType (\s a -> s { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-forwardedipconfig+wafrgrbstForwardedIPConfig :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Maybe WAFv2RuleGroupForwardedIPConfiguration)+wafrgrbstForwardedIPConfig = lens _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig (\s a -> s { _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-limit wafrgrbstLimit :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Val Integer)
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLForwardedIPConfiguration.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-forwardedipconfiguration.html++module Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for WAFv2WebACLForwardedIPConfiguration. See+-- 'waFv2WebACLForwardedIPConfiguration' for a more convenient constructor.+data WAFv2WebACLForwardedIPConfiguration =+  WAFv2WebACLForwardedIPConfiguration+  { _wAFv2WebACLForwardedIPConfigurationFallbackBehavior :: Val Text+  , _wAFv2WebACLForwardedIPConfigurationHeaderName :: Val Text+  } deriving (Show, Eq)++instance ToJSON WAFv2WebACLForwardedIPConfiguration where+  toJSON WAFv2WebACLForwardedIPConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2WebACLForwardedIPConfigurationFallbackBehavior+    , (Just . ("HeaderName",) . toJSON) _wAFv2WebACLForwardedIPConfigurationHeaderName+    ]++-- | Constructor for 'WAFv2WebACLForwardedIPConfiguration' containing required+-- fields as arguments.+waFv2WebACLForwardedIPConfiguration+  :: Val Text -- ^ 'wafwaclfipcFallbackBehavior'+  -> Val Text -- ^ 'wafwaclfipcHeaderName'+  -> WAFv2WebACLForwardedIPConfiguration+waFv2WebACLForwardedIPConfiguration fallbackBehaviorarg headerNamearg =+  WAFv2WebACLForwardedIPConfiguration+  { _wAFv2WebACLForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg+  , _wAFv2WebACLForwardedIPConfigurationHeaderName = headerNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-forwardedipconfiguration.html#cfn-wafv2-webacl-forwardedipconfiguration-fallbackbehavior+wafwaclfipcFallbackBehavior :: Lens' WAFv2WebACLForwardedIPConfiguration (Val Text)+wafwaclfipcFallbackBehavior = lens _wAFv2WebACLForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2WebACLForwardedIPConfigurationFallbackBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-forwardedipconfiguration.html#cfn-wafv2-webacl-forwardedipconfiguration-headername+wafwaclfipcHeaderName :: Lens' WAFv2WebACLForwardedIPConfiguration (Val Text)+wafwaclfipcHeaderName = lens _wAFv2WebACLForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2WebACLForwardedIPConfigurationHeaderName = a })
library-gen/Stratosphere/ResourceProperties/WAFv2WebACLGeoMatchStatement.hs view
@@ -8,13 +8,14 @@ module Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration  -- | Full data type definition for WAFv2WebACLGeoMatchStatement. See -- 'waFv2WebACLGeoMatchStatement' for a more convenient constructor. data WAFv2WebACLGeoMatchStatement =   WAFv2WebACLGeoMatchStatement   { _wAFv2WebACLGeoMatchStatementCountryCodes :: Maybe (ValList Text)+  , _wAFv2WebACLGeoMatchStatementForwardedIPConfig :: Maybe WAFv2WebACLForwardedIPConfiguration   } deriving (Show, Eq)  instance ToJSON WAFv2WebACLGeoMatchStatement where@@ -22,6 +23,7 @@     object $     catMaybes     [ fmap (("CountryCodes",) . toJSON) _wAFv2WebACLGeoMatchStatementCountryCodes+    , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2WebACLGeoMatchStatementForwardedIPConfig     ]  -- | Constructor for 'WAFv2WebACLGeoMatchStatement' containing required fields@@ -31,8 +33,13 @@ waFv2WebACLGeoMatchStatement  =   WAFv2WebACLGeoMatchStatement   { _wAFv2WebACLGeoMatchStatementCountryCodes = Nothing+  , _wAFv2WebACLGeoMatchStatementForwardedIPConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-geomatchstatement.html#cfn-wafv2-webacl-geomatchstatement-countrycodes wafwaclgmsCountryCodes :: Lens' WAFv2WebACLGeoMatchStatement (Maybe (ValList Text)) wafwaclgmsCountryCodes = lens _wAFv2WebACLGeoMatchStatementCountryCodes (\s a -> s { _wAFv2WebACLGeoMatchStatementCountryCodes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-geomatchstatement.html#cfn-wafv2-webacl-geomatchstatement-forwardedipconfig+wafwaclgmsForwardedIPConfig :: Lens' WAFv2WebACLGeoMatchStatement (Maybe WAFv2WebACLForwardedIPConfiguration)+wafwaclgmsForwardedIPConfig = lens _wAFv2WebACLGeoMatchStatementForwardedIPConfig (\s a -> s { _wAFv2WebACLGeoMatchStatementForwardedIPConfig = a })
+ library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetForwardedIPConfiguration.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html++module Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for WAFv2WebACLIPSetForwardedIPConfiguration.+-- See 'waFv2WebACLIPSetForwardedIPConfiguration' for a more convenient+-- constructor.+data WAFv2WebACLIPSetForwardedIPConfiguration =+  WAFv2WebACLIPSetForwardedIPConfiguration+  { _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior :: Val Text+  , _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName :: Val Text+  , _wAFv2WebACLIPSetForwardedIPConfigurationPosition :: Val Text+  } deriving (Show, Eq)++instance ToJSON WAFv2WebACLIPSetForwardedIPConfiguration where+  toJSON WAFv2WebACLIPSetForwardedIPConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior+    , (Just . ("HeaderName",) . toJSON) _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName+    , (Just . ("Position",) . toJSON) _wAFv2WebACLIPSetForwardedIPConfigurationPosition+    ]++-- | Constructor for 'WAFv2WebACLIPSetForwardedIPConfiguration' containing+-- required fields as arguments.+waFv2WebACLIPSetForwardedIPConfiguration+  :: Val Text -- ^ 'wafwaclipsfipcFallbackBehavior'+  -> Val Text -- ^ 'wafwaclipsfipcHeaderName'+  -> Val Text -- ^ 'wafwaclipsfipcPosition'+  -> WAFv2WebACLIPSetForwardedIPConfiguration+waFv2WebACLIPSetForwardedIPConfiguration fallbackBehaviorarg headerNamearg positionarg =+  WAFv2WebACLIPSetForwardedIPConfiguration+  { _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg+  , _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName = headerNamearg+  , _wAFv2WebACLIPSetForwardedIPConfigurationPosition = positionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html#cfn-wafv2-webacl-ipsetforwardedipconfiguration-fallbackbehavior+wafwaclipsfipcFallbackBehavior :: Lens' WAFv2WebACLIPSetForwardedIPConfiguration (Val Text)+wafwaclipsfipcFallbackBehavior = lens _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html#cfn-wafv2-webacl-ipsetforwardedipconfiguration-headername+wafwaclipsfipcHeaderName :: Lens' WAFv2WebACLIPSetForwardedIPConfiguration (Val Text)+wafwaclipsfipcHeaderName = lens _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html#cfn-wafv2-webacl-ipsetforwardedipconfiguration-position+wafwaclipsfipcPosition :: Lens' WAFv2WebACLIPSetForwardedIPConfiguration (Val Text)+wafwaclipsfipcPosition = lens _wAFv2WebACLIPSetForwardedIPConfigurationPosition (\s a -> s { _wAFv2WebACLIPSetForwardedIPConfigurationPosition = a })
library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetReferenceStatement.hs view
@@ -8,13 +8,14 @@ module Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration  -- | Full data type definition for WAFv2WebACLIPSetReferenceStatement. See -- 'waFv2WebACLIPSetReferenceStatement' for a more convenient constructor. data WAFv2WebACLIPSetReferenceStatement =   WAFv2WebACLIPSetReferenceStatement   { _wAFv2WebACLIPSetReferenceStatementArn :: Val Text+  , _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig :: Maybe WAFv2WebACLIPSetForwardedIPConfiguration   } deriving (Show, Eq)  instance ToJSON WAFv2WebACLIPSetReferenceStatement where@@ -22,6 +23,7 @@     object $     catMaybes     [ (Just . ("Arn",) . toJSON) _wAFv2WebACLIPSetReferenceStatementArn+    , fmap (("IPSetForwardedIPConfig",) . toJSON) _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig     ]  -- | Constructor for 'WAFv2WebACLIPSetReferenceStatement' containing required@@ -32,8 +34,13 @@ waFv2WebACLIPSetReferenceStatement arnarg =   WAFv2WebACLIPSetReferenceStatement   { _wAFv2WebACLIPSetReferenceStatementArn = arnarg+  , _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetreferencestatement.html#cfn-wafv2-webacl-ipsetreferencestatement-arn wafwaclipsrsArn :: Lens' WAFv2WebACLIPSetReferenceStatement (Val Text) wafwaclipsrsArn = lens _wAFv2WebACLIPSetReferenceStatementArn (\s a -> s { _wAFv2WebACLIPSetReferenceStatementArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetreferencestatement.html#cfn-wafv2-webacl-ipsetreferencestatement-ipsetforwardedipconfig+wafwaclipsrsIPSetForwardedIPConfig :: Lens' WAFv2WebACLIPSetReferenceStatement (Maybe WAFv2WebACLIPSetForwardedIPConfiguration)+wafwaclipsrsIPSetForwardedIPConfig = lens _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig (\s a -> s { _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig = a })
library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementOne.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementOne where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration import Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo  -- | Full data type definition for WAFv2WebACLRateBasedStatementOne. See@@ -15,6 +16,7 @@ data WAFv2WebACLRateBasedStatementOne =   WAFv2WebACLRateBasedStatementOne   { _wAFv2WebACLRateBasedStatementOneAggregateKeyType :: Val Text+  , _wAFv2WebACLRateBasedStatementOneForwardedIPConfig :: Maybe WAFv2WebACLForwardedIPConfiguration   , _wAFv2WebACLRateBasedStatementOneLimit :: Val Integer   , _wAFv2WebACLRateBasedStatementOneScopeDownStatement :: Maybe WAFv2WebACLStatementTwo   } deriving (Show, Eq)@@ -24,6 +26,7 @@     object $     catMaybes     [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2WebACLRateBasedStatementOneAggregateKeyType+    , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2WebACLRateBasedStatementOneForwardedIPConfig     , (Just . ("Limit",) . toJSON) _wAFv2WebACLRateBasedStatementOneLimit     , fmap (("ScopeDownStatement",) . toJSON) _wAFv2WebACLRateBasedStatementOneScopeDownStatement     ]@@ -37,6 +40,7 @@ waFv2WebACLRateBasedStatementOne aggregateKeyTypearg limitarg =   WAFv2WebACLRateBasedStatementOne   { _wAFv2WebACLRateBasedStatementOneAggregateKeyType = aggregateKeyTypearg+  , _wAFv2WebACLRateBasedStatementOneForwardedIPConfig = Nothing   , _wAFv2WebACLRateBasedStatementOneLimit = limitarg   , _wAFv2WebACLRateBasedStatementOneScopeDownStatement = Nothing   }@@ -44,6 +48,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-aggregatekeytype wafwaclrbsoAggregateKeyType :: Lens' WAFv2WebACLRateBasedStatementOne (Val Text) wafwaclrbsoAggregateKeyType = lens _wAFv2WebACLRateBasedStatementOneAggregateKeyType (\s a -> s { _wAFv2WebACLRateBasedStatementOneAggregateKeyType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-forwardedipconfig+wafwaclrbsoForwardedIPConfig :: Lens' WAFv2WebACLRateBasedStatementOne (Maybe WAFv2WebACLForwardedIPConfiguration)+wafwaclrbsoForwardedIPConfig = lens _wAFv2WebACLRateBasedStatementOneForwardedIPConfig (\s a -> s { _wAFv2WebACLRateBasedStatementOneForwardedIPConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-limit wafwaclrbsoLimit :: Lens' WAFv2WebACLRateBasedStatementOne (Val Integer)
library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementTwo.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementTwo where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration import Stratosphere.ResourceProperties.WAFv2WebACLStatementThree  -- | Full data type definition for WAFv2WebACLRateBasedStatementTwo. See@@ -15,6 +16,7 @@ data WAFv2WebACLRateBasedStatementTwo =   WAFv2WebACLRateBasedStatementTwo   { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType :: Val Text+  , _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig :: Maybe WAFv2WebACLForwardedIPConfiguration   , _wAFv2WebACLRateBasedStatementTwoLimit :: Val Integer   , _wAFv2WebACLRateBasedStatementTwoScopeDownStatement :: Maybe WAFv2WebACLStatementThree   } deriving (Show, Eq)@@ -24,6 +26,7 @@     object $     catMaybes     [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2WebACLRateBasedStatementTwoAggregateKeyType+    , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig     , (Just . ("Limit",) . toJSON) _wAFv2WebACLRateBasedStatementTwoLimit     , fmap (("ScopeDownStatement",) . toJSON) _wAFv2WebACLRateBasedStatementTwoScopeDownStatement     ]@@ -37,6 +40,7 @@ waFv2WebACLRateBasedStatementTwo aggregateKeyTypearg limitarg =   WAFv2WebACLRateBasedStatementTwo   { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType = aggregateKeyTypearg+  , _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig = Nothing   , _wAFv2WebACLRateBasedStatementTwoLimit = limitarg   , _wAFv2WebACLRateBasedStatementTwoScopeDownStatement = Nothing   }@@ -44,6 +48,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-aggregatekeytype wafwaclrbstAggregateKeyType :: Lens' WAFv2WebACLRateBasedStatementTwo (Val Text) wafwaclrbstAggregateKeyType = lens _wAFv2WebACLRateBasedStatementTwoAggregateKeyType (\s a -> s { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-forwardedipconfig+wafwaclrbstForwardedIPConfig :: Lens' WAFv2WebACLRateBasedStatementTwo (Maybe WAFv2WebACLForwardedIPConfiguration)+wafwaclrbstForwardedIPConfig = lens _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig (\s a -> s { _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-limit wafwaclrbstLimit :: Lens' WAFv2WebACLRateBasedStatementTwo (Val Integer)
library-gen/Stratosphere/Resources.hs view
@@ -74,6 +74,7 @@ import Stratosphere.Resources.ApiGatewayUsagePlanKey as X import Stratosphere.Resources.ApiGatewayVpcLink as X import Stratosphere.Resources.ApiGatewayV2Api as X+import Stratosphere.Resources.ApiGatewayV2ApiGatewayManagedOverrides as X import Stratosphere.Resources.ApiGatewayV2ApiMapping as X import Stratosphere.Resources.ApiGatewayV2Authorizer as X import Stratosphere.Resources.ApiGatewayV2Deployment as X@@ -84,6 +85,7 @@ import Stratosphere.Resources.ApiGatewayV2Route as X import Stratosphere.Resources.ApiGatewayV2RouteResponse as X import Stratosphere.Resources.ApiGatewayV2Stage as X+import Stratosphere.Resources.ApiGatewayV2VpcLink as X import Stratosphere.Resources.AppConfigApplication as X import Stratosphere.Resources.AppConfigConfigurationProfile as X import Stratosphere.Resources.AppConfigDeployment as X@@ -111,6 +113,7 @@ import Stratosphere.Resources.AppSyncResolver as X import Stratosphere.Resources.ApplicationAutoScalingScalableTarget as X import Stratosphere.Resources.ApplicationAutoScalingScalingPolicy as X+import Stratosphere.Resources.AthenaDataCatalog as X import Stratosphere.Resources.AthenaNamedQuery as X import Stratosphere.Resources.AthenaWorkGroup as X import Stratosphere.Resources.AutoScalingAutoScalingGroup as X@@ -227,6 +230,7 @@ import Stratosphere.Resources.EC2NetworkInterfaceAttachment as X import Stratosphere.Resources.EC2NetworkInterfacePermission as X import Stratosphere.Resources.EC2PlacementGroup as X+import Stratosphere.Resources.EC2PrefixList as X import Stratosphere.Resources.EC2Route as X import Stratosphere.Resources.EC2RouteTable as X import Stratosphere.Resources.EC2SecurityGroup as X@@ -470,6 +474,7 @@ import Stratosphere.Resources.PinpointEmailDedicatedIpPool as X import Stratosphere.Resources.PinpointEmailIdentity as X import Stratosphere.Resources.QLDBLedger as X+import Stratosphere.Resources.QLDBStream as X import Stratosphere.Resources.RAMResourceShare as X import Stratosphere.Resources.RDSDBCluster as X import Stratosphere.Resources.RDSDBClusterParameterGroup as X@@ -593,8 +598,12 @@ import Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerFilter as X import Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId as X import Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions as X+import Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred as X+import Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata as X+import Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata as X import Stratosphere.ResourceProperties.AmazonMQBrokerLogList as X import Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow as X+import Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata as X import Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry as X import Stratosphere.ResourceProperties.AmazonMQBrokerUser as X import Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry as X@@ -627,6 +636,11 @@ import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings as X import Stratosphere.ResourceProperties.ApiGatewayV2ApiBodyS3Location as X import Stratosphere.ResourceProperties.ApiGatewayV2ApiCors as X+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings as X+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides as X+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides as X+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings as X+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides as X import Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration as X import Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration as X import Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig as X@@ -650,16 +664,19 @@ import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch as X import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata as X import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod as X+import Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout as X import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader as X import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch as X+import Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout as X import Stratosphere.ResourceProperties.AppMeshRouteMatchRange as X import Stratosphere.ResourceProperties.AppMeshRouteRouteSpec as X import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute as X import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction as X+import Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout as X import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute as X@@ -669,9 +686,13 @@ import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate as X@@ -679,6 +700,7 @@ import Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging as X import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust as X import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust as X@@ -730,6 +752,7 @@ import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration as X import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration as X+import Stratosphere.ResourceProperties.AthenaDataCatalogTags as X import Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration as X import Stratosphere.ResourceProperties.AthenaWorkGroupResultConfiguration as X import Stratosphere.ResourceProperties.AthenaWorkGroupResultConfigurationUpdates as X@@ -833,6 +856,7 @@ import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorDimension as X import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorRange as X import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts as X+import Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment as X import Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable as X@@ -1032,6 +1056,7 @@ import Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange as X import Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address as X import Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification as X+import Stratosphere.ResourceProperties.EC2PrefixListEntry as X import Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty as X import Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty as X import Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping as X@@ -1103,6 +1128,7 @@ import Stratosphere.ResourceProperties.EFSAccessPointCreationInfo as X import Stratosphere.ResourceProperties.EFSAccessPointPosixUser as X import Stratosphere.ResourceProperties.EFSAccessPointRootDirectory as X+import Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy as X import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag as X import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy as X import Stratosphere.ResourceProperties.EKSClusterEncryptionConfig as X@@ -1206,11 +1232,14 @@ import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetDescription as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetGroupAttribute as X+import Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput as X import Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions as X+import Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig as X import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption as X+import Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions as X@@ -1570,6 +1599,7 @@ import Stratosphere.ResourceProperties.LambdaFunctionCode as X import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig as X import Stratosphere.ResourceProperties.LambdaFunctionEnvironment as X+import Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig as X import Stratosphere.ResourceProperties.LambdaFunctionTracingConfig as X import Stratosphere.ResourceProperties.LambdaFunctionVpcConfig as X import Stratosphere.ResourceProperties.LambdaLayerVersionContent as X@@ -1705,6 +1735,7 @@ import Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags as X import Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes as X import Stratosphere.ResourceProperties.PinpointEmailIdentityTags as X+import Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration as X import Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole as X import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration as X import Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole as X@@ -1830,6 +1861,9 @@ import Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource as X import Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig as X import Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty as X+import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader as X+import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption as X+import Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig as X import Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant as X import Stratosphere.ResourceProperties.SageMakerModelContainerDefinition as X import Stratosphere.ResourceProperties.SageMakerModelVpcConfig as X@@ -1837,6 +1871,7 @@ import Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition as X import Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition as X import Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration as X+import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda as X import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules as X import Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString as X import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties as X@@ -1852,6 +1887,7 @@ import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location as X import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry as X+import Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration as X import Stratosphere.ResourceProperties.SyntheticsCanaryCode as X import Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig as X import Stratosphere.ResourceProperties.SyntheticsCanarySchedule as X@@ -1889,7 +1925,9 @@ import Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo as X import Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement as X import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch as X+import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration as X import Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement as X+import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration as X import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement as X import Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementOne as X import Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementTwo as X@@ -1914,7 +1952,9 @@ import Stratosphere.ResourceProperties.WAFv2WebACLDefaultAction as X import Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule as X import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch as X+import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration as X import Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement as X+import Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration as X import Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement as X import Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement as X import Stratosphere.ResourceProperties.WAFv2WebACLNotStatementOne as X
library-gen/Stratosphere/Resources/AmazonMQBroker.hs view
@@ -10,6 +10,8 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId import Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions+import Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata+import Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata import Stratosphere.ResourceProperties.AmazonMQBrokerLogList import Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow import Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry@@ -19,7 +21,8 @@ -- more convenient constructor. data AmazonMQBroker =   AmazonMQBroker-  { _amazonMQBrokerAutoMinorVersionUpgrade :: Val Bool+  { _amazonMQBrokerAuthenticationStrategy :: Maybe (Val Text)+  , _amazonMQBrokerAutoMinorVersionUpgrade :: Val Bool   , _amazonMQBrokerBrokerName :: Val Text   , _amazonMQBrokerConfiguration :: Maybe AmazonMQBrokerConfigurationId   , _amazonMQBrokerDeploymentMode :: Val Text@@ -27,6 +30,8 @@   , _amazonMQBrokerEngineType :: Val Text   , _amazonMQBrokerEngineVersion :: Val Text   , _amazonMQBrokerHostInstanceType :: Val Text+  , _amazonMQBrokerLdapMetadata :: Maybe AmazonMQBrokerLdapMetadata+  , _amazonMQBrokerLdapServerMetadata :: Maybe AmazonMQBrokerLdapServerMetadata   , _amazonMQBrokerLogs :: Maybe AmazonMQBrokerLogList   , _amazonMQBrokerMaintenanceWindowStartTime :: Maybe AmazonMQBrokerMaintenanceWindow   , _amazonMQBrokerPubliclyAccessible :: Val Bool@@ -43,7 +48,8 @@     { resourcePropertiesType = "AWS::AmazonMQ::Broker"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ (Just . ("AutoMinorVersionUpgrade",) . toJSON) _amazonMQBrokerAutoMinorVersionUpgrade+        [ fmap (("AuthenticationStrategy",) . toJSON) _amazonMQBrokerAuthenticationStrategy+        , (Just . ("AutoMinorVersionUpgrade",) . toJSON) _amazonMQBrokerAutoMinorVersionUpgrade         , (Just . ("BrokerName",) . toJSON) _amazonMQBrokerBrokerName         , fmap (("Configuration",) . toJSON) _amazonMQBrokerConfiguration         , (Just . ("DeploymentMode",) . toJSON) _amazonMQBrokerDeploymentMode@@ -51,6 +57,8 @@         , (Just . ("EngineType",) . toJSON) _amazonMQBrokerEngineType         , (Just . ("EngineVersion",) . toJSON) _amazonMQBrokerEngineVersion         , (Just . ("HostInstanceType",) . toJSON) _amazonMQBrokerHostInstanceType+        , fmap (("LdapMetadata",) . toJSON) _amazonMQBrokerLdapMetadata+        , fmap (("LdapServerMetadata",) . toJSON) _amazonMQBrokerLdapServerMetadata         , fmap (("Logs",) . toJSON) _amazonMQBrokerLogs         , fmap (("MaintenanceWindowStartTime",) . toJSON) _amazonMQBrokerMaintenanceWindowStartTime         , (Just . ("PubliclyAccessible",) . toJSON) _amazonMQBrokerPubliclyAccessible@@ -75,7 +83,8 @@   -> AmazonMQBroker amazonMQBroker autoMinorVersionUpgradearg brokerNamearg deploymentModearg engineTypearg engineVersionarg hostInstanceTypearg publiclyAccessiblearg usersarg =   AmazonMQBroker-  { _amazonMQBrokerAutoMinorVersionUpgrade = autoMinorVersionUpgradearg+  { _amazonMQBrokerAuthenticationStrategy = Nothing+  , _amazonMQBrokerAutoMinorVersionUpgrade = autoMinorVersionUpgradearg   , _amazonMQBrokerBrokerName = brokerNamearg   , _amazonMQBrokerConfiguration = Nothing   , _amazonMQBrokerDeploymentMode = deploymentModearg@@ -83,6 +92,8 @@   , _amazonMQBrokerEngineType = engineTypearg   , _amazonMQBrokerEngineVersion = engineVersionarg   , _amazonMQBrokerHostInstanceType = hostInstanceTypearg+  , _amazonMQBrokerLdapMetadata = Nothing+  , _amazonMQBrokerLdapServerMetadata = Nothing   , _amazonMQBrokerLogs = Nothing   , _amazonMQBrokerMaintenanceWindowStartTime = Nothing   , _amazonMQBrokerPubliclyAccessible = publiclyAccessiblearg@@ -93,6 +104,10 @@   , _amazonMQBrokerUsers = usersarg   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-authenticationstrategy+amqbAuthenticationStrategy :: Lens' AmazonMQBroker (Maybe (Val Text))+amqbAuthenticationStrategy = lens _amazonMQBrokerAuthenticationStrategy (\s a -> s { _amazonMQBrokerAuthenticationStrategy = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-autominorversionupgrade amqbAutoMinorVersionUpgrade :: Lens' AmazonMQBroker (Val Bool) amqbAutoMinorVersionUpgrade = lens _amazonMQBrokerAutoMinorVersionUpgrade (\s a -> s { _amazonMQBrokerAutoMinorVersionUpgrade = a })@@ -124,6 +139,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-hostinstancetype amqbHostInstanceType :: Lens' AmazonMQBroker (Val Text) amqbHostInstanceType = lens _amazonMQBrokerHostInstanceType (\s a -> s { _amazonMQBrokerHostInstanceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-ldapmetadata+amqbLdapMetadata :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerLdapMetadata)+amqbLdapMetadata = lens _amazonMQBrokerLdapMetadata (\s a -> s { _amazonMQBrokerLdapMetadata = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-ldapservermetadata+amqbLdapServerMetadata :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerLdapServerMetadata)+amqbLdapServerMetadata = lens _amazonMQBrokerLdapServerMetadata (\s a -> s { _amazonMQBrokerLdapServerMetadata = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-logs amqbLogs :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerLogList)
library-gen/Stratosphere/Resources/AmplifyApp.hs view
@@ -24,6 +24,7 @@   , _amplifyAppBuildSpec :: Maybe (Val Text)   , _amplifyAppCustomRules :: Maybe [AmplifyAppCustomRule]   , _amplifyAppDescription :: Maybe (Val Text)+  , _amplifyAppEnableBranchAutoDeletion :: Maybe (Val Bool)   , _amplifyAppEnvironmentVariables :: Maybe [AmplifyAppEnvironmentVariable]   , _amplifyAppIAMServiceRole :: Maybe (Val Text)   , _amplifyAppName :: Val Text@@ -44,6 +45,7 @@         , fmap (("BuildSpec",) . toJSON) _amplifyAppBuildSpec         , fmap (("CustomRules",) . toJSON) _amplifyAppCustomRules         , fmap (("Description",) . toJSON) _amplifyAppDescription+        , fmap (("EnableBranchAutoDeletion",) . toJSON) _amplifyAppEnableBranchAutoDeletion         , fmap (("EnvironmentVariables",) . toJSON) _amplifyAppEnvironmentVariables         , fmap (("IAMServiceRole",) . toJSON) _amplifyAppIAMServiceRole         , (Just . ("Name",) . toJSON) _amplifyAppName@@ -65,6 +67,7 @@   , _amplifyAppBuildSpec = Nothing   , _amplifyAppCustomRules = Nothing   , _amplifyAppDescription = Nothing+  , _amplifyAppEnableBranchAutoDeletion = Nothing   , _amplifyAppEnvironmentVariables = Nothing   , _amplifyAppIAMServiceRole = Nothing   , _amplifyAppName = namearg@@ -96,6 +99,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-description aaDescription :: Lens' AmplifyApp (Maybe (Val Text)) aaDescription = lens _amplifyAppDescription (\s a -> s { _amplifyAppDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-enablebranchautodeletion+aaEnableBranchAutoDeletion :: Lens' AmplifyApp (Maybe (Val Bool))+aaEnableBranchAutoDeletion = lens _amplifyAppEnableBranchAutoDeletion (\s a -> s { _amplifyAppEnableBranchAutoDeletion = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-environmentvariables aaEnvironmentVariables :: Lens' AmplifyApp (Maybe [AmplifyAppEnvironmentVariable])
library-gen/Stratosphere/Resources/AmplifyDomain.hs view
@@ -15,7 +15,10 @@ data AmplifyDomain =   AmplifyDomain   { _amplifyDomainAppId :: Val Text+  , _amplifyDomainAutoSubDomainCreationPatterns :: Maybe (ValList Text)+  , _amplifyDomainAutoSubDomainIAMRole :: Maybe (Val Text)   , _amplifyDomainDomainName :: Val Text+  , _amplifyDomainEnableAutoSubDomain :: Maybe (Val Bool)   , _amplifyDomainSubDomainSettings :: [AmplifyDomainSubDomainSetting]   } deriving (Show, Eq) @@ -26,7 +29,10 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("AppId",) . toJSON) _amplifyDomainAppId+        , fmap (("AutoSubDomainCreationPatterns",) . toJSON) _amplifyDomainAutoSubDomainCreationPatterns+        , fmap (("AutoSubDomainIAMRole",) . toJSON) _amplifyDomainAutoSubDomainIAMRole         , (Just . ("DomainName",) . toJSON) _amplifyDomainDomainName+        , fmap (("EnableAutoSubDomain",) . toJSON) _amplifyDomainEnableAutoSubDomain         , (Just . ("SubDomainSettings",) . toJSON) _amplifyDomainSubDomainSettings         ]     }@@ -40,7 +46,10 @@ amplifyDomain appIdarg domainNamearg subDomainSettingsarg =   AmplifyDomain   { _amplifyDomainAppId = appIdarg+  , _amplifyDomainAutoSubDomainCreationPatterns = Nothing+  , _amplifyDomainAutoSubDomainIAMRole = Nothing   , _amplifyDomainDomainName = domainNamearg+  , _amplifyDomainEnableAutoSubDomain = Nothing   , _amplifyDomainSubDomainSettings = subDomainSettingsarg   } @@ -48,9 +57,21 @@ adAppId :: Lens' AmplifyDomain (Val Text) adAppId = lens _amplifyDomainAppId (\s a -> s { _amplifyDomainAppId = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-autosubdomaincreationpatterns+adAutoSubDomainCreationPatterns :: Lens' AmplifyDomain (Maybe (ValList Text))+adAutoSubDomainCreationPatterns = lens _amplifyDomainAutoSubDomainCreationPatterns (\s a -> s { _amplifyDomainAutoSubDomainCreationPatterns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-autosubdomainiamrole+adAutoSubDomainIAMRole :: Lens' AmplifyDomain (Maybe (Val Text))+adAutoSubDomainIAMRole = lens _amplifyDomainAutoSubDomainIAMRole (\s a -> s { _amplifyDomainAutoSubDomainIAMRole = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-domainname adDomainName :: Lens' AmplifyDomain (Val Text) adDomainName = lens _amplifyDomainDomainName (\s a -> s { _amplifyDomainDomainName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-enableautosubdomain+adEnableAutoSubDomain :: Lens' AmplifyDomain (Maybe (Val Bool))+adEnableAutoSubDomain = lens _amplifyDomainEnableAutoSubDomain (\s a -> s { _amplifyDomainEnableAutoSubDomain = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-subdomainsettings adSubDomainSettings :: Lens' AmplifyDomain [AmplifyDomainSubDomainSetting]
+ library-gen/Stratosphere/Resources/ApiGatewayV2ApiGatewayManagedOverrides.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html++module Stratosphere.Resources.ApiGatewayV2ApiGatewayManagedOverrides where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides+import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides++-- | Full data type definition for ApiGatewayV2ApiGatewayManagedOverrides. See+-- 'apiGatewayV2ApiGatewayManagedOverrides' for a more convenient+-- constructor.+data ApiGatewayV2ApiGatewayManagedOverrides =+  ApiGatewayV2ApiGatewayManagedOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesApiId :: Val Text+  , _apiGatewayV2ApiGatewayManagedOverridesIntegration :: Maybe ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+  , _apiGatewayV2ApiGatewayManagedOverridesRoute :: Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides+  , _apiGatewayV2ApiGatewayManagedOverridesStage :: Maybe ApiGatewayV2ApiGatewayManagedOverridesStageOverrides+  } deriving (Show, Eq)++instance ToResourceProperties ApiGatewayV2ApiGatewayManagedOverrides where+  toResourceProperties ApiGatewayV2ApiGatewayManagedOverrides{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ApiGatewayV2::ApiGatewayManagedOverrides"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApiId",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesApiId+        , fmap (("Integration",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegration+        , fmap (("Route",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRoute+        , fmap (("Stage",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStage+        ]+    }++-- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverrides' containing+-- required fields as arguments.+apiGatewayV2ApiGatewayManagedOverrides+  :: Val Text -- ^ 'agvagmoApiId'+  -> ApiGatewayV2ApiGatewayManagedOverrides+apiGatewayV2ApiGatewayManagedOverrides apiIdarg =+  ApiGatewayV2ApiGatewayManagedOverrides+  { _apiGatewayV2ApiGatewayManagedOverridesApiId = apiIdarg+  , _apiGatewayV2ApiGatewayManagedOverridesIntegration = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesRoute = Nothing+  , _apiGatewayV2ApiGatewayManagedOverridesStage = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-apiid+agvagmoApiId :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Val Text)+agvagmoApiId = lens _apiGatewayV2ApiGatewayManagedOverridesApiId (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesApiId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integration+agvagmoIntegration :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides)+agvagmoIntegration = lens _apiGatewayV2ApiGatewayManagedOverridesIntegration (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-route+agvagmoRoute :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides)+agvagmoRoute = lens _apiGatewayV2ApiGatewayManagedOverridesRoute (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRoute = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stage+agvagmoStage :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesStageOverrides)+agvagmoStage = lens _apiGatewayV2ApiGatewayManagedOverridesStage (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStage = a })
+ library-gen/Stratosphere/Resources/ApiGatewayV2VpcLink.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html++module Stratosphere.Resources.ApiGatewayV2VpcLink where++import Stratosphere.ResourceImports+++-- | Full data type definition for ApiGatewayV2VpcLink. See+-- 'apiGatewayV2VpcLink' for a more convenient constructor.+data ApiGatewayV2VpcLink =+  ApiGatewayV2VpcLink+  { _apiGatewayV2VpcLinkName :: Val Text+  , _apiGatewayV2VpcLinkSecurityGroupIds :: Maybe (ValList Text)+  , _apiGatewayV2VpcLinkSubnetIds :: ValList Text+  , _apiGatewayV2VpcLinkTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties ApiGatewayV2VpcLink where+  toResourceProperties ApiGatewayV2VpcLink{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::ApiGatewayV2::VpcLink"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("Name",) . toJSON) _apiGatewayV2VpcLinkName+        , fmap (("SecurityGroupIds",) . toJSON) _apiGatewayV2VpcLinkSecurityGroupIds+        , (Just . ("SubnetIds",) . toJSON) _apiGatewayV2VpcLinkSubnetIds+        , fmap (("Tags",) . toJSON) _apiGatewayV2VpcLinkTags+        ]+    }++-- | Constructor for 'ApiGatewayV2VpcLink' containing required fields as+-- arguments.+apiGatewayV2VpcLink+  :: Val Text -- ^ 'agvvlName'+  -> ValList Text -- ^ 'agvvlSubnetIds'+  -> ApiGatewayV2VpcLink+apiGatewayV2VpcLink namearg subnetIdsarg =+  ApiGatewayV2VpcLink+  { _apiGatewayV2VpcLinkName = namearg+  , _apiGatewayV2VpcLinkSecurityGroupIds = Nothing+  , _apiGatewayV2VpcLinkSubnetIds = subnetIdsarg+  , _apiGatewayV2VpcLinkTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-name+agvvlName :: Lens' ApiGatewayV2VpcLink (Val Text)+agvvlName = lens _apiGatewayV2VpcLinkName (\s a -> s { _apiGatewayV2VpcLinkName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-securitygroupids+agvvlSecurityGroupIds :: Lens' ApiGatewayV2VpcLink (Maybe (ValList Text))+agvvlSecurityGroupIds = lens _apiGatewayV2VpcLinkSecurityGroupIds (\s a -> s { _apiGatewayV2VpcLinkSecurityGroupIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-subnetids+agvvlSubnetIds :: Lens' ApiGatewayV2VpcLink (ValList Text)+agvvlSubnetIds = lens _apiGatewayV2VpcLinkSubnetIds (\s a -> s { _apiGatewayV2VpcLinkSubnetIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-tags+agvvlTags :: Lens' ApiGatewayV2VpcLink (Maybe Object)+agvvlTags = lens _apiGatewayV2VpcLinkTags (\s a -> s { _apiGatewayV2VpcLinkTags = a })
+ library-gen/Stratosphere/Resources/AthenaDataCatalog.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html++module Stratosphere.Resources.AthenaDataCatalog where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AthenaDataCatalogTags++-- | Full data type definition for AthenaDataCatalog. See 'athenaDataCatalog'+-- for a more convenient constructor.+data AthenaDataCatalog =+  AthenaDataCatalog+  { _athenaDataCatalogDescription :: Maybe (Val Text)+  , _athenaDataCatalogName :: Val Text+  , _athenaDataCatalogParameters :: Maybe Object+  , _athenaDataCatalogTags :: Maybe AthenaDataCatalogTags+  , _athenaDataCatalogType :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties AthenaDataCatalog where+  toResourceProperties AthenaDataCatalog{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Athena::DataCatalog"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("Description",) . toJSON) _athenaDataCatalogDescription+        , (Just . ("Name",) . toJSON) _athenaDataCatalogName+        , fmap (("Parameters",) . toJSON) _athenaDataCatalogParameters+        , fmap (("Tags",) . toJSON) _athenaDataCatalogTags+        , (Just . ("Type",) . toJSON) _athenaDataCatalogType+        ]+    }++-- | Constructor for 'AthenaDataCatalog' containing required fields as+-- arguments.+athenaDataCatalog+  :: Val Text -- ^ 'adcName'+  -> Val Text -- ^ 'adcType'+  -> AthenaDataCatalog+athenaDataCatalog namearg typearg =+  AthenaDataCatalog+  { _athenaDataCatalogDescription = Nothing+  , _athenaDataCatalogName = namearg+  , _athenaDataCatalogParameters = Nothing+  , _athenaDataCatalogTags = Nothing+  , _athenaDataCatalogType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-description+adcDescription :: Lens' AthenaDataCatalog (Maybe (Val Text))+adcDescription = lens _athenaDataCatalogDescription (\s a -> s { _athenaDataCatalogDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-name+adcName :: Lens' AthenaDataCatalog (Val Text)+adcName = lens _athenaDataCatalogName (\s a -> s { _athenaDataCatalogName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-parameters+adcParameters :: Lens' AthenaDataCatalog (Maybe Object)+adcParameters = lens _athenaDataCatalogParameters (\s a -> s { _athenaDataCatalogParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-tags+adcTags :: Lens' AthenaDataCatalog (Maybe AthenaDataCatalogTags)+adcTags = lens _athenaDataCatalogTags (\s a -> s { _athenaDataCatalogTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-type+adcType :: Lens' AthenaDataCatalog (Val Text)+adcType = lens _athenaDataCatalogType (\s a -> s { _athenaDataCatalogType = a })
library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs view
@@ -35,6 +35,7 @@   , _autoScalingAutoScalingGroupMetricsCollection :: Maybe [AutoScalingAutoScalingGroupMetricsCollection]   , _autoScalingAutoScalingGroupMinSize :: Val Text   , _autoScalingAutoScalingGroupMixedInstancesPolicy :: Maybe AutoScalingAutoScalingGroupMixedInstancesPolicy+  , _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn :: Maybe (Val Bool)   , _autoScalingAutoScalingGroupNotificationConfigurations :: Maybe [AutoScalingAutoScalingGroupNotificationConfiguration]   , _autoScalingAutoScalingGroupPlacementGroup :: Maybe (Val Text)   , _autoScalingAutoScalingGroupServiceLinkedRoleARN :: Maybe (Val Text)@@ -66,6 +67,7 @@         , fmap (("MetricsCollection",) . toJSON) _autoScalingAutoScalingGroupMetricsCollection         , (Just . ("MinSize",) . toJSON) _autoScalingAutoScalingGroupMinSize         , fmap (("MixedInstancesPolicy",) . toJSON) _autoScalingAutoScalingGroupMixedInstancesPolicy+        , fmap (("NewInstancesProtectedFromScaleIn",) . toJSON) _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn         , fmap (("NotificationConfigurations",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurations         , fmap (("PlacementGroup",) . toJSON) _autoScalingAutoScalingGroupPlacementGroup         , fmap (("ServiceLinkedRoleARN",) . toJSON) _autoScalingAutoScalingGroupServiceLinkedRoleARN@@ -100,6 +102,7 @@   , _autoScalingAutoScalingGroupMetricsCollection = Nothing   , _autoScalingAutoScalingGroupMinSize = minSizearg   , _autoScalingAutoScalingGroupMixedInstancesPolicy = Nothing+  , _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn = Nothing   , _autoScalingAutoScalingGroupNotificationConfigurations = Nothing   , _autoScalingAutoScalingGroupPlacementGroup = Nothing   , _autoScalingAutoScalingGroupServiceLinkedRoleARN = Nothing@@ -172,6 +175,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-mixedinstancespolicy asasgMixedInstancesPolicy :: Lens' AutoScalingAutoScalingGroup (Maybe AutoScalingAutoScalingGroupMixedInstancesPolicy) asasgMixedInstancesPolicy = lens _autoScalingAutoScalingGroupMixedInstancesPolicy (\s a -> s { _autoScalingAutoScalingGroupMixedInstancesPolicy = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-newinstancesprotectedfromscalein+asasgNewInstancesProtectedFromScaleIn :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Bool))+asasgNewInstancesProtectedFromScaleIn = lens _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn (\s a -> s { _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-notificationconfigurations asasgNotificationConfigurations :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupNotificationConfiguration])
library-gen/Stratosphere/Resources/CodeGuruProfilerProfilingGroup.hs view
@@ -15,6 +15,7 @@ data CodeGuruProfilerProfilingGroup =   CodeGuruProfilerProfilingGroup   { _codeGuruProfilerProfilingGroupAgentPermissions :: Maybe Object+  , _codeGuruProfilerProfilingGroupComputePlatform :: Maybe (Val Text)   , _codeGuruProfilerProfilingGroupProfilingGroupName :: Val Text   } deriving (Show, Eq) @@ -25,6 +26,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("AgentPermissions",) . toJSON) _codeGuruProfilerProfilingGroupAgentPermissions+        , fmap (("ComputePlatform",) . toJSON) _codeGuruProfilerProfilingGroupComputePlatform         , (Just . ("ProfilingGroupName",) . toJSON) _codeGuruProfilerProfilingGroupProfilingGroupName         ]     }@@ -37,12 +39,17 @@ codeGuruProfilerProfilingGroup profilingGroupNamearg =   CodeGuruProfilerProfilingGroup   { _codeGuruProfilerProfilingGroupAgentPermissions = Nothing+  , _codeGuruProfilerProfilingGroupComputePlatform = Nothing   , _codeGuruProfilerProfilingGroupProfilingGroupName = profilingGroupNamearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-agentpermissions cgppgAgentPermissions :: Lens' CodeGuruProfilerProfilingGroup (Maybe Object) cgppgAgentPermissions = lens _codeGuruProfilerProfilingGroupAgentPermissions (\s a -> s { _codeGuruProfilerProfilingGroupAgentPermissions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-computeplatform+cgppgComputePlatform :: Lens' CodeGuruProfilerProfilingGroup (Maybe (Val Text))+cgppgComputePlatform = lens _codeGuruProfilerProfilingGroupComputePlatform (\s a -> s { _codeGuruProfilerProfilingGroupComputePlatform = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-profilinggroupname cgppgProfilingGroupName :: Lens' CodeGuruProfilerProfilingGroup (Val Text)
library-gen/Stratosphere/Resources/CodeStarConnectionsConnection.hs view
@@ -15,7 +15,8 @@ data CodeStarConnectionsConnection =   CodeStarConnectionsConnection   { _codeStarConnectionsConnectionConnectionName :: Val Text-  , _codeStarConnectionsConnectionProviderType :: Val Text+  , _codeStarConnectionsConnectionHostArn :: Maybe (Val Text)+  , _codeStarConnectionsConnectionProviderType :: Maybe (Val Text)   , _codeStarConnectionsConnectionTags :: Maybe [Tag]   } deriving (Show, Eq) @@ -26,7 +27,8 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("ConnectionName",) . toJSON) _codeStarConnectionsConnectionConnectionName-        , (Just . ("ProviderType",) . toJSON) _codeStarConnectionsConnectionProviderType+        , fmap (("HostArn",) . toJSON) _codeStarConnectionsConnectionHostArn+        , fmap (("ProviderType",) . toJSON) _codeStarConnectionsConnectionProviderType         , fmap (("Tags",) . toJSON) _codeStarConnectionsConnectionTags         ]     }@@ -35,12 +37,12 @@ -- fields as arguments. codeStarConnectionsConnection   :: Val Text -- ^ 'csccConnectionName'-  -> Val Text -- ^ 'csccProviderType'   -> CodeStarConnectionsConnection-codeStarConnectionsConnection connectionNamearg providerTypearg =+codeStarConnectionsConnection connectionNamearg =   CodeStarConnectionsConnection   { _codeStarConnectionsConnectionConnectionName = connectionNamearg-  , _codeStarConnectionsConnectionProviderType = providerTypearg+  , _codeStarConnectionsConnectionHostArn = Nothing+  , _codeStarConnectionsConnectionProviderType = Nothing   , _codeStarConnectionsConnectionTags = Nothing   } @@ -48,8 +50,12 @@ csccConnectionName :: Lens' CodeStarConnectionsConnection (Val Text) csccConnectionName = lens _codeStarConnectionsConnectionConnectionName (\s a -> s { _codeStarConnectionsConnectionConnectionName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-hostarn+csccHostArn :: Lens' CodeStarConnectionsConnection (Maybe (Val Text))+csccHostArn = lens _codeStarConnectionsConnectionHostArn (\s a -> s { _codeStarConnectionsConnectionHostArn = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-providertype-csccProviderType :: Lens' CodeStarConnectionsConnection (Val Text)+csccProviderType :: Lens' CodeStarConnectionsConnection (Maybe (Val Text)) csccProviderType = lens _codeStarConnectionsConnectionProviderType (\s a -> s { _codeStarConnectionsConnectionProviderType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-tags
library-gen/Stratosphere/Resources/DataPipelinePipeline.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.DataPipelinePipelineParameterObject+import Stratosphere.ResourceProperties.DataPipelinePipelineParameterValue import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineObject import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineTag @@ -20,6 +21,7 @@   , _dataPipelinePipelineDescription :: Maybe (Val Text)   , _dataPipelinePipelineName :: Val Text   , _dataPipelinePipelineParameterObjects :: [DataPipelinePipelineParameterObject]+  , _dataPipelinePipelineParameterValues :: Maybe [DataPipelinePipelineParameterValue]   , _dataPipelinePipelinePipelineObjects :: Maybe [DataPipelinePipelinePipelineObject]   , _dataPipelinePipelinePipelineTags :: Maybe [DataPipelinePipelinePipelineTag]   } deriving (Show, Eq)@@ -34,6 +36,7 @@         , fmap (("Description",) . toJSON) _dataPipelinePipelineDescription         , (Just . ("Name",) . toJSON) _dataPipelinePipelineName         , (Just . ("ParameterObjects",) . toJSON) _dataPipelinePipelineParameterObjects+        , fmap (("ParameterValues",) . toJSON) _dataPipelinePipelineParameterValues         , fmap (("PipelineObjects",) . toJSON) _dataPipelinePipelinePipelineObjects         , fmap (("PipelineTags",) . toJSON) _dataPipelinePipelinePipelineTags         ]@@ -51,6 +54,7 @@   , _dataPipelinePipelineDescription = Nothing   , _dataPipelinePipelineName = namearg   , _dataPipelinePipelineParameterObjects = parameterObjectsarg+  , _dataPipelinePipelineParameterValues = Nothing   , _dataPipelinePipelinePipelineObjects = Nothing   , _dataPipelinePipelinePipelineTags = Nothing   }@@ -70,6 +74,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-parameterobjects dppParameterObjects :: Lens' DataPipelinePipeline [DataPipelinePipelineParameterObject] dppParameterObjects = lens _dataPipelinePipelineParameterObjects (\s a -> s { _dataPipelinePipelineParameterObjects = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-parametervalues+dppParameterValues :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelineParameterValue])+dppParameterValues = lens _dataPipelinePipelineParameterValues (\s a -> s { _dataPipelinePipelineParameterValues = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-pipelineobjects dppPipelineObjects :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelinePipelineObject])
library-gen/Stratosphere/Resources/EC2FlowLog.hs view
@@ -8,7 +8,7 @@ module Stratosphere.Resources.EC2FlowLog where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for EC2FlowLog. See 'ec2FlowLog' for a more -- convenient constructor.@@ -17,9 +17,12 @@   { _eC2FlowLogDeliverLogsPermissionArn :: Maybe (Val Text)   , _eC2FlowLogLogDestination :: Maybe (Val Text)   , _eC2FlowLogLogDestinationType :: Maybe (Val Text)+  , _eC2FlowLogLogFormat :: Maybe (Val Text)   , _eC2FlowLogLogGroupName :: Maybe (Val Text)+  , _eC2FlowLogMaxAggregationInterval :: Maybe (Val Integer)   , _eC2FlowLogResourceId :: Val Text   , _eC2FlowLogResourceType :: Val Text+  , _eC2FlowLogTags :: Maybe [Tag]   , _eC2FlowLogTrafficType :: Val Text   } deriving (Show, Eq) @@ -32,9 +35,12 @@         [ fmap (("DeliverLogsPermissionArn",) . toJSON) _eC2FlowLogDeliverLogsPermissionArn         , fmap (("LogDestination",) . toJSON) _eC2FlowLogLogDestination         , fmap (("LogDestinationType",) . toJSON) _eC2FlowLogLogDestinationType+        , fmap (("LogFormat",) . toJSON) _eC2FlowLogLogFormat         , fmap (("LogGroupName",) . toJSON) _eC2FlowLogLogGroupName+        , fmap (("MaxAggregationInterval",) . toJSON) _eC2FlowLogMaxAggregationInterval         , (Just . ("ResourceId",) . toJSON) _eC2FlowLogResourceId         , (Just . ("ResourceType",) . toJSON) _eC2FlowLogResourceType+        , fmap (("Tags",) . toJSON) _eC2FlowLogTags         , (Just . ("TrafficType",) . toJSON) _eC2FlowLogTrafficType         ]     }@@ -50,9 +56,12 @@   { _eC2FlowLogDeliverLogsPermissionArn = Nothing   , _eC2FlowLogLogDestination = Nothing   , _eC2FlowLogLogDestinationType = Nothing+  , _eC2FlowLogLogFormat = Nothing   , _eC2FlowLogLogGroupName = Nothing+  , _eC2FlowLogMaxAggregationInterval = Nothing   , _eC2FlowLogResourceId = resourceIdarg   , _eC2FlowLogResourceType = resourceTypearg+  , _eC2FlowLogTags = Nothing   , _eC2FlowLogTrafficType = trafficTypearg   } @@ -68,10 +77,18 @@ ecflLogDestinationType :: Lens' EC2FlowLog (Maybe (Val Text)) ecflLogDestinationType = lens _eC2FlowLogLogDestinationType (\s a -> s { _eC2FlowLogLogDestinationType = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-logformat+ecflLogFormat :: Lens' EC2FlowLog (Maybe (Val Text))+ecflLogFormat = lens _eC2FlowLogLogFormat (\s a -> s { _eC2FlowLogLogFormat = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-loggroupname ecflLogGroupName :: Lens' EC2FlowLog (Maybe (Val Text)) ecflLogGroupName = lens _eC2FlowLogLogGroupName (\s a -> s { _eC2FlowLogLogGroupName = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-maxaggregationinterval+ecflMaxAggregationInterval :: Lens' EC2FlowLog (Maybe (Val Integer))+ecflMaxAggregationInterval = lens _eC2FlowLogMaxAggregationInterval (\s a -> s { _eC2FlowLogMaxAggregationInterval = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-resourceid ecflResourceId :: Lens' EC2FlowLog (Val Text) ecflResourceId = lens _eC2FlowLogResourceId (\s a -> s { _eC2FlowLogResourceId = a })@@ -79,6 +96,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-resourcetype ecflResourceType :: Lens' EC2FlowLog (Val Text) ecflResourceType = lens _eC2FlowLogResourceType (\s a -> s { _eC2FlowLogResourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-tags+ecflTags :: Lens' EC2FlowLog (Maybe [Tag])+ecflTags = lens _eC2FlowLogTags (\s a -> s { _eC2FlowLogTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-traffictype ecflTrafficType :: Lens' EC2FlowLog (Val Text)
+ library-gen/Stratosphere/Resources/EC2PrefixList.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html++module Stratosphere.Resources.EC2PrefixList where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2PrefixListEntry+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for EC2PrefixList. See 'ec2PrefixList' for a+-- more convenient constructor.+data EC2PrefixList =+  EC2PrefixList+  { _eC2PrefixListAddressFamily :: Val Text+  , _eC2PrefixListEntries :: Maybe [EC2PrefixListEntry]+  , _eC2PrefixListMaxEntries :: Val Integer+  , _eC2PrefixListPrefixListName :: Val Text+  , _eC2PrefixListTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties EC2PrefixList where+  toResourceProperties EC2PrefixList{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::PrefixList"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("AddressFamily",) . toJSON) _eC2PrefixListAddressFamily+        , fmap (("Entries",) . toJSON) _eC2PrefixListEntries+        , (Just . ("MaxEntries",) . toJSON) _eC2PrefixListMaxEntries+        , (Just . ("PrefixListName",) . toJSON) _eC2PrefixListPrefixListName+        , fmap (("Tags",) . toJSON) _eC2PrefixListTags+        ]+    }++-- | Constructor for 'EC2PrefixList' containing required fields as arguments.+ec2PrefixList+  :: Val Text -- ^ 'ecplAddressFamily'+  -> Val Integer -- ^ 'ecplMaxEntries'+  -> Val Text -- ^ 'ecplPrefixListName'+  -> EC2PrefixList+ec2PrefixList addressFamilyarg maxEntriesarg prefixListNamearg =+  EC2PrefixList+  { _eC2PrefixListAddressFamily = addressFamilyarg+  , _eC2PrefixListEntries = Nothing+  , _eC2PrefixListMaxEntries = maxEntriesarg+  , _eC2PrefixListPrefixListName = prefixListNamearg+  , _eC2PrefixListTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-addressfamily+ecplAddressFamily :: Lens' EC2PrefixList (Val Text)+ecplAddressFamily = lens _eC2PrefixListAddressFamily (\s a -> s { _eC2PrefixListAddressFamily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-entries+ecplEntries :: Lens' EC2PrefixList (Maybe [EC2PrefixListEntry])+ecplEntries = lens _eC2PrefixListEntries (\s a -> s { _eC2PrefixListEntries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-maxentries+ecplMaxEntries :: Lens' EC2PrefixList (Val Integer)+ecplMaxEntries = lens _eC2PrefixListMaxEntries (\s a -> s { _eC2PrefixListMaxEntries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-prefixlistname+ecplPrefixListName :: Lens' EC2PrefixList (Val Text)+ecplPrefixListName = lens _eC2PrefixListPrefixListName (\s a -> s { _eC2PrefixListPrefixListName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-prefixlist.html#cfn-ec2-prefixlist-tags+ecplTags :: Lens' EC2PrefixList (Maybe [Tag])+ecplTags = lens _eC2PrefixListTags (\s a -> s { _eC2PrefixListTags = a })
library-gen/Stratosphere/Resources/ECSTaskDefinition.hs view
@@ -32,6 +32,7 @@   , _eCSTaskDefinitionProxyConfiguration :: Maybe ECSTaskDefinitionProxyConfiguration   , _eCSTaskDefinitionRequiresCompatibilities :: Maybe (ValList Text)   , _eCSTaskDefinitionTags :: Maybe [Tag]+  , _eCSTaskDefinitionTaskDefinitionStatus :: Maybe (Val Text)   , _eCSTaskDefinitionTaskRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionVolumes :: Maybe [ECSTaskDefinitionVolume]   } deriving (Show, Eq)@@ -55,6 +56,7 @@         , fmap (("ProxyConfiguration",) . toJSON) _eCSTaskDefinitionProxyConfiguration         , fmap (("RequiresCompatibilities",) . toJSON) _eCSTaskDefinitionRequiresCompatibilities         , fmap (("Tags",) . toJSON) _eCSTaskDefinitionTags+        , fmap (("TaskDefinitionStatus",) . toJSON) _eCSTaskDefinitionTaskDefinitionStatus         , fmap (("TaskRoleArn",) . toJSON) _eCSTaskDefinitionTaskRoleArn         , fmap (("Volumes",) . toJSON) _eCSTaskDefinitionVolumes         ]@@ -79,6 +81,7 @@   , _eCSTaskDefinitionProxyConfiguration = Nothing   , _eCSTaskDefinitionRequiresCompatibilities = Nothing   , _eCSTaskDefinitionTags = Nothing+  , _eCSTaskDefinitionTaskDefinitionStatus = Nothing   , _eCSTaskDefinitionTaskRoleArn = Nothing   , _eCSTaskDefinitionVolumes = Nothing   }@@ -134,6 +137,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-tags ecstdTags :: Lens' ECSTaskDefinition (Maybe [Tag]) ecstdTags = lens _eCSTaskDefinitionTags (\s a -> s { _eCSTaskDefinitionTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskdefinitionstatus+ecstdTaskDefinitionStatus :: Lens' ECSTaskDefinition (Maybe (Val Text))+ecstdTaskDefinitionStatus = lens _eCSTaskDefinitionTaskDefinitionStatus (\s a -> s { _eCSTaskDefinitionTaskDefinitionStatus = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskrolearn ecstdTaskRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text))
library-gen/Stratosphere/Resources/EFSFileSystem.hs view
@@ -8,6 +8,7 @@ module Stratosphere.Resources.EFSFileSystem where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy @@ -15,7 +16,8 @@ -- more convenient constructor. data EFSFileSystem =   EFSFileSystem-  { _eFSFileSystemEncrypted :: Maybe (Val Bool)+  { _eFSFileSystemBackupPolicy :: Maybe EFSFileSystemBackupPolicy+  , _eFSFileSystemEncrypted :: Maybe (Val Bool)   , _eFSFileSystemFileSystemPolicy :: Maybe Object   , _eFSFileSystemFileSystemTags :: Maybe [EFSFileSystemElasticFileSystemTag]   , _eFSFileSystemKmsKeyId :: Maybe (Val Text)@@ -31,7 +33,8 @@     { resourcePropertiesType = "AWS::EFS::FileSystem"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("Encrypted",) . toJSON) _eFSFileSystemEncrypted+        [ fmap (("BackupPolicy",) . toJSON) _eFSFileSystemBackupPolicy+        , fmap (("Encrypted",) . toJSON) _eFSFileSystemEncrypted         , fmap (("FileSystemPolicy",) . toJSON) _eFSFileSystemFileSystemPolicy         , fmap (("FileSystemTags",) . toJSON) _eFSFileSystemFileSystemTags         , fmap (("KmsKeyId",) . toJSON) _eFSFileSystemKmsKeyId@@ -47,7 +50,8 @@   :: EFSFileSystem efsFileSystem  =   EFSFileSystem-  { _eFSFileSystemEncrypted = Nothing+  { _eFSFileSystemBackupPolicy = Nothing+  , _eFSFileSystemEncrypted = Nothing   , _eFSFileSystemFileSystemPolicy = Nothing   , _eFSFileSystemFileSystemTags = Nothing   , _eFSFileSystemKmsKeyId = Nothing@@ -56,6 +60,10 @@   , _eFSFileSystemProvisionedThroughputInMibps = Nothing   , _eFSFileSystemThroughputMode = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-backuppolicy+efsfsBackupPolicy :: Lens' EFSFileSystem (Maybe EFSFileSystemBackupPolicy)+efsfsBackupPolicy = lens _eFSFileSystemBackupPolicy (\s a -> s { _eFSFileSystemBackupPolicy = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-encrypted efsfsEncrypted :: Lens' EFSFileSystem (Maybe (Val Bool))
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2Listener.hs view
@@ -15,7 +15,8 @@ -- 'elasticLoadBalancingV2Listener' for a more convenient constructor. data ElasticLoadBalancingV2Listener =   ElasticLoadBalancingV2Listener-  { _elasticLoadBalancingV2ListenerCertificates :: Maybe [ElasticLoadBalancingV2ListenerCertificate]+  { _elasticLoadBalancingV2ListenerAlpnPolicy :: Maybe (ValList Text)+  , _elasticLoadBalancingV2ListenerCertificates :: Maybe [ElasticLoadBalancingV2ListenerCertificate]   , _elasticLoadBalancingV2ListenerDefaultActions :: [ElasticLoadBalancingV2ListenerAction]   , _elasticLoadBalancingV2ListenerLoadBalancerArn :: Val Text   , _elasticLoadBalancingV2ListenerPort :: Val Integer@@ -29,7 +30,8 @@     { resourcePropertiesType = "AWS::ElasticLoadBalancingV2::Listener"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("Certificates",) . toJSON) _elasticLoadBalancingV2ListenerCertificates+        [ fmap (("AlpnPolicy",) . toJSON) _elasticLoadBalancingV2ListenerAlpnPolicy+        , fmap (("Certificates",) . toJSON) _elasticLoadBalancingV2ListenerCertificates         , (Just . ("DefaultActions",) . toJSON) _elasticLoadBalancingV2ListenerDefaultActions         , (Just . ("LoadBalancerArn",) . toJSON) _elasticLoadBalancingV2ListenerLoadBalancerArn         , (Just . ("Port",) . toJSON) _elasticLoadBalancingV2ListenerPort@@ -48,13 +50,18 @@   -> ElasticLoadBalancingV2Listener elasticLoadBalancingV2Listener defaultActionsarg loadBalancerArnarg portarg protocolarg =   ElasticLoadBalancingV2Listener-  { _elasticLoadBalancingV2ListenerCertificates = Nothing+  { _elasticLoadBalancingV2ListenerAlpnPolicy = Nothing+  , _elasticLoadBalancingV2ListenerCertificates = Nothing   , _elasticLoadBalancingV2ListenerDefaultActions = defaultActionsarg   , _elasticLoadBalancingV2ListenerLoadBalancerArn = loadBalancerArnarg   , _elasticLoadBalancingV2ListenerPort = portarg   , _elasticLoadBalancingV2ListenerProtocol = protocolarg   , _elasticLoadBalancingV2ListenerSslPolicy = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-alpnpolicy+elbvlAlpnPolicy :: Lens' ElasticLoadBalancingV2Listener (Maybe (ValList Text))+elbvlAlpnPolicy = lens _elasticLoadBalancingV2ListenerAlpnPolicy (\s a -> s { _elasticLoadBalancingV2ListenerAlpnPolicy = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-certificates elbvlCertificates :: Lens' ElasticLoadBalancingV2Listener (Maybe [ElasticLoadBalancingV2ListenerCertificate])
library-gen/Stratosphere/Resources/ElasticsearchDomain.hs view
@@ -8,7 +8,9 @@ module Stratosphere.Resources.ElasticsearchDomain where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput import Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions+import Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions@@ -24,7 +26,9 @@   ElasticsearchDomain   { _elasticsearchDomainAccessPolicies :: Maybe Object   , _elasticsearchDomainAdvancedOptions :: Maybe Object+  , _elasticsearchDomainAdvancedSecurityOptions :: Maybe ElasticsearchDomainAdvancedSecurityOptionsInput   , _elasticsearchDomainCognitoOptions :: Maybe ElasticsearchDomainCognitoOptions+  , _elasticsearchDomainDomainEndpointOptions :: Maybe ElasticsearchDomainDomainEndpointOptions   , _elasticsearchDomainDomainName :: Maybe (Val Text)   , _elasticsearchDomainEBSOptions :: Maybe ElasticsearchDomainEBSOptions   , _elasticsearchDomainElasticsearchClusterConfig :: Maybe ElasticsearchDomainElasticsearchClusterConfig@@ -45,7 +49,9 @@         hashMapFromList $ catMaybes         [ fmap (("AccessPolicies",) . toJSON) _elasticsearchDomainAccessPolicies         , fmap (("AdvancedOptions",) . toJSON) _elasticsearchDomainAdvancedOptions+        , fmap (("AdvancedSecurityOptions",) . toJSON) _elasticsearchDomainAdvancedSecurityOptions         , fmap (("CognitoOptions",) . toJSON) _elasticsearchDomainCognitoOptions+        , fmap (("DomainEndpointOptions",) . toJSON) _elasticsearchDomainDomainEndpointOptions         , fmap (("DomainName",) . toJSON) _elasticsearchDomainDomainName         , fmap (("EBSOptions",) . toJSON) _elasticsearchDomainEBSOptions         , fmap (("ElasticsearchClusterConfig",) . toJSON) _elasticsearchDomainElasticsearchClusterConfig@@ -67,7 +73,9 @@   ElasticsearchDomain   { _elasticsearchDomainAccessPolicies = Nothing   , _elasticsearchDomainAdvancedOptions = Nothing+  , _elasticsearchDomainAdvancedSecurityOptions = Nothing   , _elasticsearchDomainCognitoOptions = Nothing+  , _elasticsearchDomainDomainEndpointOptions = Nothing   , _elasticsearchDomainDomainName = Nothing   , _elasticsearchDomainEBSOptions = Nothing   , _elasticsearchDomainElasticsearchClusterConfig = Nothing@@ -88,9 +96,17 @@ edAdvancedOptions :: Lens' ElasticsearchDomain (Maybe Object) edAdvancedOptions = lens _elasticsearchDomainAdvancedOptions (\s a -> s { _elasticsearchDomainAdvancedOptions = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-advancedsecurityoptions+edAdvancedSecurityOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainAdvancedSecurityOptionsInput)+edAdvancedSecurityOptions = lens _elasticsearchDomainAdvancedSecurityOptions (\s a -> s { _elasticsearchDomainAdvancedSecurityOptions = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-cognitooptions edCognitoOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainCognitoOptions) edCognitoOptions = lens _elasticsearchDomainCognitoOptions (\s a -> s { _elasticsearchDomainCognitoOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-domainendpointoptions+edDomainEndpointOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainDomainEndpointOptions)+edDomainEndpointOptions = lens _elasticsearchDomainDomainEndpointOptions (\s a -> s { _elasticsearchDomainDomainEndpointOptions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-domainname edDomainName :: Lens' ElasticsearchDomain (Maybe (Val Text))
library-gen/Stratosphere/Resources/ImageBuilderComponent.hs view
@@ -20,6 +20,7 @@   , _imageBuilderComponentKmsKeyId :: Maybe (Val Text)   , _imageBuilderComponentName :: Val Text   , _imageBuilderComponentPlatform :: Val Text+  , _imageBuilderComponentSupportedOsVersions :: Maybe (ValList Text)   , _imageBuilderComponentTags :: Maybe Object   , _imageBuilderComponentUri :: Maybe (Val Text)   , _imageBuilderComponentVersion :: Val Text@@ -37,6 +38,7 @@         , fmap (("KmsKeyId",) . toJSON) _imageBuilderComponentKmsKeyId         , (Just . ("Name",) . toJSON) _imageBuilderComponentName         , (Just . ("Platform",) . toJSON) _imageBuilderComponentPlatform+        , fmap (("SupportedOsVersions",) . toJSON) _imageBuilderComponentSupportedOsVersions         , fmap (("Tags",) . toJSON) _imageBuilderComponentTags         , fmap (("Uri",) . toJSON) _imageBuilderComponentUri         , (Just . ("Version",) . toJSON) _imageBuilderComponentVersion@@ -58,6 +60,7 @@   , _imageBuilderComponentKmsKeyId = Nothing   , _imageBuilderComponentName = namearg   , _imageBuilderComponentPlatform = platformarg+  , _imageBuilderComponentSupportedOsVersions = Nothing   , _imageBuilderComponentTags = Nothing   , _imageBuilderComponentUri = Nothing   , _imageBuilderComponentVersion = versionarg@@ -86,6 +89,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-platform ibcPlatform :: Lens' ImageBuilderComponent (Val Text) ibcPlatform = lens _imageBuilderComponentPlatform (\s a -> s { _imageBuilderComponentPlatform = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-supportedosversions+ibcSupportedOsVersions :: Lens' ImageBuilderComponent (Maybe (ValList Text))+ibcSupportedOsVersions = lens _imageBuilderComponentSupportedOsVersions (\s a -> s { _imageBuilderComponentSupportedOsVersions = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-tags ibcTags :: Lens' ImageBuilderComponent (Maybe Object)
library-gen/Stratosphere/Resources/ImageBuilderImage.hs view
@@ -15,6 +15,7 @@ data ImageBuilderImage =   ImageBuilderImage   { _imageBuilderImageDistributionConfigurationArn :: Maybe (Val Text)+  , _imageBuilderImageEnhancedImageMetadataEnabled :: Maybe (Val Bool)   , _imageBuilderImageImageRecipeArn :: Val Text   , _imageBuilderImageImageTestsConfiguration :: Maybe ImageBuilderImageImageTestsConfiguration   , _imageBuilderImageInfrastructureConfigurationArn :: Val Text@@ -28,6 +29,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("DistributionConfigurationArn",) . toJSON) _imageBuilderImageDistributionConfigurationArn+        , fmap (("EnhancedImageMetadataEnabled",) . toJSON) _imageBuilderImageEnhancedImageMetadataEnabled         , (Just . ("ImageRecipeArn",) . toJSON) _imageBuilderImageImageRecipeArn         , fmap (("ImageTestsConfiguration",) . toJSON) _imageBuilderImageImageTestsConfiguration         , (Just . ("InfrastructureConfigurationArn",) . toJSON) _imageBuilderImageInfrastructureConfigurationArn@@ -44,6 +46,7 @@ imageBuilderImage imageRecipeArnarg infrastructureConfigurationArnarg =   ImageBuilderImage   { _imageBuilderImageDistributionConfigurationArn = Nothing+  , _imageBuilderImageEnhancedImageMetadataEnabled = Nothing   , _imageBuilderImageImageRecipeArn = imageRecipeArnarg   , _imageBuilderImageImageTestsConfiguration = Nothing   , _imageBuilderImageInfrastructureConfigurationArn = infrastructureConfigurationArnarg@@ -53,6 +56,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-distributionconfigurationarn ibiDistributionConfigurationArn :: Lens' ImageBuilderImage (Maybe (Val Text)) ibiDistributionConfigurationArn = lens _imageBuilderImageDistributionConfigurationArn (\s a -> s { _imageBuilderImageDistributionConfigurationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-enhancedimagemetadataenabled+ibiEnhancedImageMetadataEnabled :: Lens' ImageBuilderImage (Maybe (Val Bool))+ibiEnhancedImageMetadataEnabled = lens _imageBuilderImageEnhancedImageMetadataEnabled (\s a -> s { _imageBuilderImageEnhancedImageMetadataEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-imagerecipearn ibiImageRecipeArn :: Lens' ImageBuilderImage (Val Text)
library-gen/Stratosphere/Resources/ImageBuilderImagePipeline.hs view
@@ -17,6 +17,7 @@   ImageBuilderImagePipeline   { _imageBuilderImagePipelineDescription :: Maybe (Val Text)   , _imageBuilderImagePipelineDistributionConfigurationArn :: Maybe (Val Text)+  , _imageBuilderImagePipelineEnhancedImageMetadataEnabled :: Maybe (Val Bool)   , _imageBuilderImagePipelineImageRecipeArn :: Val Text   , _imageBuilderImagePipelineImageTestsConfiguration :: Maybe ImageBuilderImagePipelineImageTestsConfiguration   , _imageBuilderImagePipelineInfrastructureConfigurationArn :: Val Text@@ -34,6 +35,7 @@         hashMapFromList $ catMaybes         [ fmap (("Description",) . toJSON) _imageBuilderImagePipelineDescription         , fmap (("DistributionConfigurationArn",) . toJSON) _imageBuilderImagePipelineDistributionConfigurationArn+        , fmap (("EnhancedImageMetadataEnabled",) . toJSON) _imageBuilderImagePipelineEnhancedImageMetadataEnabled         , (Just . ("ImageRecipeArn",) . toJSON) _imageBuilderImagePipelineImageRecipeArn         , fmap (("ImageTestsConfiguration",) . toJSON) _imageBuilderImagePipelineImageTestsConfiguration         , (Just . ("InfrastructureConfigurationArn",) . toJSON) _imageBuilderImagePipelineInfrastructureConfigurationArn@@ -55,6 +57,7 @@   ImageBuilderImagePipeline   { _imageBuilderImagePipelineDescription = Nothing   , _imageBuilderImagePipelineDistributionConfigurationArn = Nothing+  , _imageBuilderImagePipelineEnhancedImageMetadataEnabled = Nothing   , _imageBuilderImagePipelineImageRecipeArn = imageRecipeArnarg   , _imageBuilderImagePipelineImageTestsConfiguration = Nothing   , _imageBuilderImagePipelineInfrastructureConfigurationArn = infrastructureConfigurationArnarg@@ -71,6 +74,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-distributionconfigurationarn ibipDistributionConfigurationArn :: Lens' ImageBuilderImagePipeline (Maybe (Val Text)) ibipDistributionConfigurationArn = lens _imageBuilderImagePipelineDistributionConfigurationArn (\s a -> s { _imageBuilderImagePipelineDistributionConfigurationArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-enhancedimagemetadataenabled+ibipEnhancedImageMetadataEnabled :: Lens' ImageBuilderImagePipeline (Maybe (Val Bool))+ibipEnhancedImageMetadataEnabled = lens _imageBuilderImagePipelineEnhancedImageMetadataEnabled (\s a -> s { _imageBuilderImagePipelineEnhancedImageMetadataEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-imagerecipearn ibipImageRecipeArn :: Lens' ImageBuilderImagePipeline (Val Text)
library-gen/Stratosphere/Resources/ImageBuilderImageRecipe.hs view
@@ -22,6 +22,7 @@   , _imageBuilderImageRecipeParentImage :: Val Text   , _imageBuilderImageRecipeTags :: Maybe Object   , _imageBuilderImageRecipeVersion :: Val Text+  , _imageBuilderImageRecipeWorkingDirectory :: Maybe (Val Text)   } deriving (Show, Eq)  instance ToResourceProperties ImageBuilderImageRecipe where@@ -37,6 +38,7 @@         , (Just . ("ParentImage",) . toJSON) _imageBuilderImageRecipeParentImage         , fmap (("Tags",) . toJSON) _imageBuilderImageRecipeTags         , (Just . ("Version",) . toJSON) _imageBuilderImageRecipeVersion+        , fmap (("WorkingDirectory",) . toJSON) _imageBuilderImageRecipeWorkingDirectory         ]     } @@ -57,6 +59,7 @@   , _imageBuilderImageRecipeParentImage = parentImagearg   , _imageBuilderImageRecipeTags = Nothing   , _imageBuilderImageRecipeVersion = versionarg+  , _imageBuilderImageRecipeWorkingDirectory = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-blockdevicemappings@@ -86,3 +89,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-version ibirVersion :: Lens' ImageBuilderImageRecipe (Val Text) ibirVersion = lens _imageBuilderImageRecipeVersion (\s a -> s { _imageBuilderImageRecipeVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-workingdirectory+ibirWorkingDirectory :: Lens' ImageBuilderImageRecipe (Maybe (Val Text))+ibirWorkingDirectory = lens _imageBuilderImageRecipeWorkingDirectory (\s a -> s { _imageBuilderImageRecipeWorkingDirectory = a })
library-gen/Stratosphere/Resources/ImageBuilderInfrastructureConfiguration.hs view
@@ -21,6 +21,7 @@   , _imageBuilderInfrastructureConfigurationKeyPair :: Maybe (Val Text)   , _imageBuilderInfrastructureConfigurationLogging :: Maybe Object   , _imageBuilderInfrastructureConfigurationName :: Val Text+  , _imageBuilderInfrastructureConfigurationResourceTags :: Maybe Object   , _imageBuilderInfrastructureConfigurationSecurityGroupIds :: Maybe (ValList Text)   , _imageBuilderInfrastructureConfigurationSnsTopicArn :: Maybe (Val Text)   , _imageBuilderInfrastructureConfigurationSubnetId :: Maybe (Val Text)@@ -40,6 +41,7 @@         , fmap (("KeyPair",) . toJSON) _imageBuilderInfrastructureConfigurationKeyPair         , fmap (("Logging",) . toJSON) _imageBuilderInfrastructureConfigurationLogging         , (Just . ("Name",) . toJSON) _imageBuilderInfrastructureConfigurationName+        , fmap (("ResourceTags",) . toJSON) _imageBuilderInfrastructureConfigurationResourceTags         , fmap (("SecurityGroupIds",) . toJSON) _imageBuilderInfrastructureConfigurationSecurityGroupIds         , fmap (("SnsTopicArn",) . toJSON) _imageBuilderInfrastructureConfigurationSnsTopicArn         , fmap (("SubnetId",) . toJSON) _imageBuilderInfrastructureConfigurationSubnetId@@ -62,6 +64,7 @@   , _imageBuilderInfrastructureConfigurationKeyPair = Nothing   , _imageBuilderInfrastructureConfigurationLogging = Nothing   , _imageBuilderInfrastructureConfigurationName = namearg+  , _imageBuilderInfrastructureConfigurationResourceTags = Nothing   , _imageBuilderInfrastructureConfigurationSecurityGroupIds = Nothing   , _imageBuilderInfrastructureConfigurationSnsTopicArn = Nothing   , _imageBuilderInfrastructureConfigurationSubnetId = Nothing@@ -92,6 +95,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-name ibicName :: Lens' ImageBuilderInfrastructureConfiguration (Val Text) ibicName = lens _imageBuilderInfrastructureConfigurationName (\s a -> s { _imageBuilderInfrastructureConfigurationName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-resourcetags+ibicResourceTags :: Lens' ImageBuilderInfrastructureConfiguration (Maybe Object)+ibicResourceTags = lens _imageBuilderInfrastructureConfigurationResourceTags (\s a -> s { _imageBuilderInfrastructureConfigurationResourceTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-securitygroupids ibicSecurityGroupIds :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (ValList Text))
library-gen/Stratosphere/Resources/LambdaFunction.hs view
@@ -12,6 +12,7 @@ import Stratosphere.ResourceProperties.LambdaFunctionCode import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig import Stratosphere.ResourceProperties.LambdaFunctionEnvironment+import Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.LambdaFunctionTracingConfig import Stratosphere.ResourceProperties.LambdaFunctionVpcConfig@@ -24,6 +25,7 @@   , _lambdaFunctionDeadLetterConfig :: Maybe LambdaFunctionDeadLetterConfig   , _lambdaFunctionDescription :: Maybe (Val Text)   , _lambdaFunctionEnvironment :: Maybe LambdaFunctionEnvironment+  , _lambdaFunctionFileSystemConfigs :: Maybe [LambdaFunctionFileSystemConfig]   , _lambdaFunctionFunctionName :: Maybe (Val Text)   , _lambdaFunctionHandler :: Val Text   , _lambdaFunctionKmsKeyArn :: Maybe (Val Text)@@ -48,6 +50,7 @@         , fmap (("DeadLetterConfig",) . toJSON) _lambdaFunctionDeadLetterConfig         , fmap (("Description",) . toJSON) _lambdaFunctionDescription         , fmap (("Environment",) . toJSON) _lambdaFunctionEnvironment+        , fmap (("FileSystemConfigs",) . toJSON) _lambdaFunctionFileSystemConfigs         , fmap (("FunctionName",) . toJSON) _lambdaFunctionFunctionName         , (Just . ("Handler",) . toJSON) _lambdaFunctionHandler         , fmap (("KmsKeyArn",) . toJSON) _lambdaFunctionKmsKeyArn@@ -76,6 +79,7 @@   , _lambdaFunctionDeadLetterConfig = Nothing   , _lambdaFunctionDescription = Nothing   , _lambdaFunctionEnvironment = Nothing+  , _lambdaFunctionFileSystemConfigs = Nothing   , _lambdaFunctionFunctionName = Nothing   , _lambdaFunctionHandler = handlerarg   , _lambdaFunctionKmsKeyArn = Nothing@@ -105,6 +109,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-environment lfEnvironment :: Lens' LambdaFunction (Maybe LambdaFunctionEnvironment) lfEnvironment = lens _lambdaFunctionEnvironment (\s a -> s { _lambdaFunctionEnvironment = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-filesystemconfigs+lfFileSystemConfigs :: Lens' LambdaFunction (Maybe [LambdaFunctionFileSystemConfig])+lfFileSystemConfigs = lens _lambdaFunctionFileSystemConfigs (\s a -> s { _lambdaFunctionFileSystemConfigs = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-functionname lfFunctionName :: Lens' LambdaFunction (Maybe (Val Text))
+ library-gen/Stratosphere/Resources/QLDBStream.hs view
@@ -0,0 +1,88 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html++module Stratosphere.Resources.QLDBStream where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for QLDBStream. See 'qldbStream' for a more+-- convenient constructor.+data QLDBStream =+  QLDBStream+  { _qLDBStreamExclusiveEndTime :: Maybe (Val Text)+  , _qLDBStreamInclusiveStartTime :: Val Text+  , _qLDBStreamKinesisConfiguration :: QLDBStreamKinesisConfiguration+  , _qLDBStreamLedgerName :: Val Text+  , _qLDBStreamRoleArn :: Val Text+  , _qLDBStreamStreamName :: Val Text+  , _qLDBStreamTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties QLDBStream where+  toResourceProperties QLDBStream{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::QLDB::Stream"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("ExclusiveEndTime",) . toJSON) _qLDBStreamExclusiveEndTime+        , (Just . ("InclusiveStartTime",) . toJSON) _qLDBStreamInclusiveStartTime+        , (Just . ("KinesisConfiguration",) . toJSON) _qLDBStreamKinesisConfiguration+        , (Just . ("LedgerName",) . toJSON) _qLDBStreamLedgerName+        , (Just . ("RoleArn",) . toJSON) _qLDBStreamRoleArn+        , (Just . ("StreamName",) . toJSON) _qLDBStreamStreamName+        , fmap (("Tags",) . toJSON) _qLDBStreamTags+        ]+    }++-- | Constructor for 'QLDBStream' containing required fields as arguments.+qldbStream+  :: Val Text -- ^ 'qldbsInclusiveStartTime'+  -> QLDBStreamKinesisConfiguration -- ^ 'qldbsKinesisConfiguration'+  -> Val Text -- ^ 'qldbsLedgerName'+  -> Val Text -- ^ 'qldbsRoleArn'+  -> Val Text -- ^ 'qldbsStreamName'+  -> QLDBStream+qldbStream inclusiveStartTimearg kinesisConfigurationarg ledgerNamearg roleArnarg streamNamearg =+  QLDBStream+  { _qLDBStreamExclusiveEndTime = Nothing+  , _qLDBStreamInclusiveStartTime = inclusiveStartTimearg+  , _qLDBStreamKinesisConfiguration = kinesisConfigurationarg+  , _qLDBStreamLedgerName = ledgerNamearg+  , _qLDBStreamRoleArn = roleArnarg+  , _qLDBStreamStreamName = streamNamearg+  , _qLDBStreamTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-exclusiveendtime+qldbsExclusiveEndTime :: Lens' QLDBStream (Maybe (Val Text))+qldbsExclusiveEndTime = lens _qLDBStreamExclusiveEndTime (\s a -> s { _qLDBStreamExclusiveEndTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-inclusivestarttime+qldbsInclusiveStartTime :: Lens' QLDBStream (Val Text)+qldbsInclusiveStartTime = lens _qLDBStreamInclusiveStartTime (\s a -> s { _qLDBStreamInclusiveStartTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-kinesisconfiguration+qldbsKinesisConfiguration :: Lens' QLDBStream QLDBStreamKinesisConfiguration+qldbsKinesisConfiguration = lens _qLDBStreamKinesisConfiguration (\s a -> s { _qLDBStreamKinesisConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-ledgername+qldbsLedgerName :: Lens' QLDBStream (Val Text)+qldbsLedgerName = lens _qLDBStreamLedgerName (\s a -> s { _qLDBStreamLedgerName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-rolearn+qldbsRoleArn :: Lens' QLDBStream (Val Text)+qldbsRoleArn = lens _qLDBStreamRoleArn (\s a -> s { _qLDBStreamRoleArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-streamname+qldbsStreamName :: Lens' QLDBStream (Val Text)+qldbsStreamName = lens _qLDBStreamStreamName (\s a -> s { _qLDBStreamStreamName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-tags+qldbsTags :: Lens' QLDBStream (Maybe [Tag])+qldbsTags = lens _qLDBStreamTags (\s a -> s { _qLDBStreamTags = a })
library-gen/Stratosphere/Resources/RDSDBProxyTargetGroup.hs view
@@ -18,6 +18,7 @@   , _rDSDBProxyTargetGroupDBClusterIdentifiers :: Maybe (ValList Text)   , _rDSDBProxyTargetGroupDBInstanceIdentifiers :: Maybe (ValList Text)   , _rDSDBProxyTargetGroupDBProxyName :: Val Text+  , _rDSDBProxyTargetGroupTargetGroupName :: Val Text   } deriving (Show, Eq)  instance ToResourceProperties RDSDBProxyTargetGroup where@@ -30,6 +31,7 @@         , fmap (("DBClusterIdentifiers",) . toJSON) _rDSDBProxyTargetGroupDBClusterIdentifiers         , fmap (("DBInstanceIdentifiers",) . toJSON) _rDSDBProxyTargetGroupDBInstanceIdentifiers         , (Just . ("DBProxyName",) . toJSON) _rDSDBProxyTargetGroupDBProxyName+        , (Just . ("TargetGroupName",) . toJSON) _rDSDBProxyTargetGroupTargetGroupName         ]     } @@ -37,13 +39,15 @@ -- arguments. rdsdbProxyTargetGroup   :: Val Text -- ^ 'rdsdbptgDBProxyName'+  -> Val Text -- ^ 'rdsdbptgTargetGroupName'   -> RDSDBProxyTargetGroup-rdsdbProxyTargetGroup dBProxyNamearg =+rdsdbProxyTargetGroup dBProxyNamearg targetGroupNamearg =   RDSDBProxyTargetGroup   { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo = Nothing   , _rDSDBProxyTargetGroupDBClusterIdentifiers = Nothing   , _rDSDBProxyTargetGroupDBInstanceIdentifiers = Nothing   , _rDSDBProxyTargetGroupDBProxyName = dBProxyNamearg+  , _rDSDBProxyTargetGroupTargetGroupName = targetGroupNamearg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-connectionpoolconfigurationinfo@@ -61,3 +65,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-dbproxyname rdsdbptgDBProxyName :: Lens' RDSDBProxyTargetGroup (Val Text) rdsdbptgDBProxyName = lens _rDSDBProxyTargetGroupDBProxyName (\s a -> s { _rDSDBProxyTargetGroupDBProxyName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-targetgroupname+rdsdbptgTargetGroupName :: Lens' RDSDBProxyTargetGroup (Val Text)+rdsdbptgTargetGroupName = lens _rDSDBProxyTargetGroupTargetGroupName (\s a -> s { _rDSDBProxyTargetGroupTargetGroupName = a })
library-gen/Stratosphere/Resources/SSMAssociation.hs view
@@ -15,7 +15,8 @@ -- more convenient constructor. data SSMAssociation =   SSMAssociation-  { _sSMAssociationAssociationName :: Maybe (Val Text)+  { _sSMAssociationApplyOnlyAtCronInterval :: Maybe (Val Bool)+  , _sSMAssociationAssociationName :: Maybe (Val Text)   , _sSMAssociationAutomationTargetParameterName :: Maybe (Val Text)   , _sSMAssociationComplianceSeverity :: Maybe (Val Text)   , _sSMAssociationDocumentVersion :: Maybe (Val Text)@@ -36,7 +37,8 @@     { resourcePropertiesType = "AWS::SSM::Association"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("AssociationName",) . toJSON) _sSMAssociationAssociationName+        [ fmap (("ApplyOnlyAtCronInterval",) . toJSON) _sSMAssociationApplyOnlyAtCronInterval+        , fmap (("AssociationName",) . toJSON) _sSMAssociationAssociationName         , fmap (("AutomationTargetParameterName",) . toJSON) _sSMAssociationAutomationTargetParameterName         , fmap (("ComplianceSeverity",) . toJSON) _sSMAssociationComplianceSeverity         , fmap (("DocumentVersion",) . toJSON) _sSMAssociationDocumentVersion@@ -58,7 +60,8 @@   -> SSMAssociation ssmAssociation namearg =   SSMAssociation-  { _sSMAssociationAssociationName = Nothing+  { _sSMAssociationApplyOnlyAtCronInterval = Nothing+  , _sSMAssociationAssociationName = Nothing   , _sSMAssociationAutomationTargetParameterName = Nothing   , _sSMAssociationComplianceSeverity = Nothing   , _sSMAssociationDocumentVersion = Nothing@@ -72,6 +75,10 @@   , _sSMAssociationTargets = Nothing   , _sSMAssociationWaitForSuccessTimeoutSeconds = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-applyonlyatcroninterval+ssmaApplyOnlyAtCronInterval :: Lens' SSMAssociation (Maybe (Val Bool))+ssmaApplyOnlyAtCronInterval = lens _sSMAssociationApplyOnlyAtCronInterval (\s a -> s { _sSMAssociationApplyOnlyAtCronInterval = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-associationname ssmaAssociationName :: Lens' SSMAssociation (Maybe (Val Text))
library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs view
@@ -21,6 +21,7 @@   , _sSMMaintenanceWindowEndDate :: Maybe (Val Text)   , _sSMMaintenanceWindowName :: Val Text   , _sSMMaintenanceWindowSchedule :: Val Text+  , _sSMMaintenanceWindowScheduleOffset :: Maybe (Val Integer)   , _sSMMaintenanceWindowScheduleTimezone :: Maybe (Val Text)   , _sSMMaintenanceWindowStartDate :: Maybe (Val Text)   , _sSMMaintenanceWindowTags :: Maybe [Tag]@@ -39,6 +40,7 @@         , fmap (("EndDate",) . toJSON) _sSMMaintenanceWindowEndDate         , (Just . ("Name",) . toJSON) _sSMMaintenanceWindowName         , (Just . ("Schedule",) . toJSON) _sSMMaintenanceWindowSchedule+        , fmap (("ScheduleOffset",) . toJSON) _sSMMaintenanceWindowScheduleOffset         , fmap (("ScheduleTimezone",) . toJSON) _sSMMaintenanceWindowScheduleTimezone         , fmap (("StartDate",) . toJSON) _sSMMaintenanceWindowStartDate         , fmap (("Tags",) . toJSON) _sSMMaintenanceWindowTags@@ -63,6 +65,7 @@   , _sSMMaintenanceWindowEndDate = Nothing   , _sSMMaintenanceWindowName = namearg   , _sSMMaintenanceWindowSchedule = schedulearg+  , _sSMMaintenanceWindowScheduleOffset = Nothing   , _sSMMaintenanceWindowScheduleTimezone = Nothing   , _sSMMaintenanceWindowStartDate = Nothing   , _sSMMaintenanceWindowTags = Nothing@@ -95,6 +98,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-schedule ssmmwSchedule :: Lens' SSMMaintenanceWindow (Val Text) ssmmwSchedule = lens _sSMMaintenanceWindowSchedule (\s a -> s { _sSMMaintenanceWindowSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-scheduleoffset+ssmmwScheduleOffset :: Lens' SSMMaintenanceWindow (Maybe (Val Integer))+ssmmwScheduleOffset = lens _sSMMaintenanceWindowScheduleOffset (\s a -> s { _sSMMaintenanceWindowScheduleOffset = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-scheduletimezone ssmmwScheduleTimezone :: Lens' SSMMaintenanceWindow (Maybe (Val Text))
library-gen/Stratosphere/Resources/SageMakerEndpointConfig.hs view
@@ -8,6 +8,7 @@ module Stratosphere.Resources.SageMakerEndpointConfig where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig import Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant import Stratosphere.ResourceProperties.Tag @@ -15,7 +16,8 @@ -- 'sageMakerEndpointConfig' for a more convenient constructor. data SageMakerEndpointConfig =   SageMakerEndpointConfig-  { _sageMakerEndpointConfigEndpointConfigName :: Maybe (Val Text)+  { _sageMakerEndpointConfigDataCaptureConfig :: Maybe SageMakerEndpointConfigDataCaptureConfig+  , _sageMakerEndpointConfigEndpointConfigName :: Maybe (Val Text)   , _sageMakerEndpointConfigKmsKeyId :: Maybe (Val Text)   , _sageMakerEndpointConfigProductionVariants :: [SageMakerEndpointConfigProductionVariant]   , _sageMakerEndpointConfigTags :: Maybe [Tag]@@ -27,7 +29,8 @@     { resourcePropertiesType = "AWS::SageMaker::EndpointConfig"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("EndpointConfigName",) . toJSON) _sageMakerEndpointConfigEndpointConfigName+        [ fmap (("DataCaptureConfig",) . toJSON) _sageMakerEndpointConfigDataCaptureConfig+        , fmap (("EndpointConfigName",) . toJSON) _sageMakerEndpointConfigEndpointConfigName         , fmap (("KmsKeyId",) . toJSON) _sageMakerEndpointConfigKmsKeyId         , (Just . ("ProductionVariants",) . toJSON) _sageMakerEndpointConfigProductionVariants         , fmap (("Tags",) . toJSON) _sageMakerEndpointConfigTags@@ -41,11 +44,16 @@   -> SageMakerEndpointConfig sageMakerEndpointConfig productionVariantsarg =   SageMakerEndpointConfig-  { _sageMakerEndpointConfigEndpointConfigName = Nothing+  { _sageMakerEndpointConfigDataCaptureConfig = Nothing+  , _sageMakerEndpointConfigEndpointConfigName = Nothing   , _sageMakerEndpointConfigKmsKeyId = Nothing   , _sageMakerEndpointConfigProductionVariants = productionVariantsarg   , _sageMakerEndpointConfigTags = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig+smecDataCaptureConfig :: Lens' SageMakerEndpointConfig (Maybe SageMakerEndpointConfigDataCaptureConfig)+smecDataCaptureConfig = lens _sageMakerEndpointConfigDataCaptureConfig (\s a -> s { _sageMakerEndpointConfigDataCaptureConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-endpointconfigname smecEndpointConfigName :: Lens' SageMakerEndpointConfig (Maybe (Val Text))
library-gen/Stratosphere/Resources/SecretsManagerRotationSchedule.hs view
@@ -8,13 +8,15 @@ module Stratosphere.Resources.SecretsManagerRotationSchedule where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules  -- | Full data type definition for SecretsManagerRotationSchedule. See -- 'secretsManagerRotationSchedule' for a more convenient constructor. data SecretsManagerRotationSchedule =   SecretsManagerRotationSchedule-  { _secretsManagerRotationScheduleRotationLambdaARN :: Maybe (Val Text)+  { _secretsManagerRotationScheduleHostedRotationLambda :: Maybe SecretsManagerRotationScheduleHostedRotationLambda+  , _secretsManagerRotationScheduleRotationLambdaARN :: Maybe (Val Text)   , _secretsManagerRotationScheduleRotationRules :: Maybe SecretsManagerRotationScheduleRotationRules   , _secretsManagerRotationScheduleSecretId :: Val Text   } deriving (Show, Eq)@@ -25,7 +27,8 @@     { resourcePropertiesType = "AWS::SecretsManager::RotationSchedule"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("RotationLambdaARN",) . toJSON) _secretsManagerRotationScheduleRotationLambdaARN+        [ fmap (("HostedRotationLambda",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambda+        , fmap (("RotationLambdaARN",) . toJSON) _secretsManagerRotationScheduleRotationLambdaARN         , fmap (("RotationRules",) . toJSON) _secretsManagerRotationScheduleRotationRules         , (Just . ("SecretId",) . toJSON) _secretsManagerRotationScheduleSecretId         ]@@ -38,10 +41,15 @@   -> SecretsManagerRotationSchedule secretsManagerRotationSchedule secretIdarg =   SecretsManagerRotationSchedule-  { _secretsManagerRotationScheduleRotationLambdaARN = Nothing+  { _secretsManagerRotationScheduleHostedRotationLambda = Nothing+  , _secretsManagerRotationScheduleRotationLambdaARN = Nothing   , _secretsManagerRotationScheduleRotationRules = Nothing   , _secretsManagerRotationScheduleSecretId = secretIdarg   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda+smrsHostedRotationLambda :: Lens' SecretsManagerRotationSchedule (Maybe SecretsManagerRotationScheduleHostedRotationLambda)+smrsHostedRotationLambda = lens _secretsManagerRotationScheduleHostedRotationLambda (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambda = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-rotationlambdaarn smrsRotationLambdaARN :: Lens' SecretsManagerRotationSchedule (Maybe (Val Text))
library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry+import Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration  -- | Full data type definition for StepFunctionsStateMachine. See -- 'stepFunctionsStateMachine' for a more convenient constructor.@@ -23,6 +24,7 @@   , _stepFunctionsStateMachineStateMachineName :: Maybe (Val Text)   , _stepFunctionsStateMachineStateMachineType :: Maybe (Val Text)   , _stepFunctionsStateMachineTags :: Maybe [StepFunctionsStateMachineTagsEntry]+  , _stepFunctionsStateMachineTracingConfiguration :: Maybe StepFunctionsStateMachineTracingConfiguration   } deriving (Show, Eq)  instance ToResourceProperties StepFunctionsStateMachine where@@ -38,6 +40,7 @@         , fmap (("StateMachineName",) . toJSON) _stepFunctionsStateMachineStateMachineName         , fmap (("StateMachineType",) . toJSON) _stepFunctionsStateMachineStateMachineType         , fmap (("Tags",) . toJSON) _stepFunctionsStateMachineTags+        , fmap (("TracingConfiguration",) . toJSON) _stepFunctionsStateMachineTracingConfiguration         ]     } @@ -55,6 +58,7 @@   , _stepFunctionsStateMachineStateMachineName = Nothing   , _stepFunctionsStateMachineStateMachineType = Nothing   , _stepFunctionsStateMachineTags = Nothing+  , _stepFunctionsStateMachineTracingConfiguration = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-definitions3location@@ -84,3 +88,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-tags sfsmTags :: Lens' StepFunctionsStateMachine (Maybe [StepFunctionsStateMachineTagsEntry]) sfsmTags = lens _stepFunctionsStateMachineTags (\s a -> s { _stepFunctionsStateMachineTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-tracingconfiguration+sfsmTracingConfiguration :: Lens' StepFunctionsStateMachine (Maybe StepFunctionsStateMachineTracingConfiguration)+sfsmTracingConfiguration = lens _stepFunctionsStateMachineTracingConfiguration (\s a -> s { _stepFunctionsStateMachineTracingConfiguration = a })
library-gen/Stratosphere/Resources/SyntheticsCanary.hs view
@@ -23,7 +23,7 @@   , _syntheticsCanaryExecutionRoleArn :: Val Text   , _syntheticsCanaryFailureRetentionPeriod :: Maybe (Val Integer)   , _syntheticsCanaryName :: Val Text-  , _syntheticsCanaryRunConfig :: SyntheticsCanaryRunConfig+  , _syntheticsCanaryRunConfig :: Maybe SyntheticsCanaryRunConfig   , _syntheticsCanaryRuntimeVersion :: Val Text   , _syntheticsCanarySchedule :: SyntheticsCanarySchedule   , _syntheticsCanaryStartCanaryAfterCreation :: Val Bool@@ -43,7 +43,7 @@         , (Just . ("ExecutionRoleArn",) . toJSON) _syntheticsCanaryExecutionRoleArn         , fmap (("FailureRetentionPeriod",) . toJSON) _syntheticsCanaryFailureRetentionPeriod         , (Just . ("Name",) . toJSON) _syntheticsCanaryName-        , (Just . ("RunConfig",) . toJSON) _syntheticsCanaryRunConfig+        , fmap (("RunConfig",) . toJSON) _syntheticsCanaryRunConfig         , (Just . ("RuntimeVersion",) . toJSON) _syntheticsCanaryRuntimeVersion         , (Just . ("Schedule",) . toJSON) _syntheticsCanarySchedule         , (Just . ("StartCanaryAfterCreation",) . toJSON) _syntheticsCanaryStartCanaryAfterCreation@@ -60,19 +60,18 @@   -> SyntheticsCanaryCode -- ^ 'scCode'   -> Val Text -- ^ 'scExecutionRoleArn'   -> Val Text -- ^ 'scName'-  -> SyntheticsCanaryRunConfig -- ^ 'scRunConfig'   -> Val Text -- ^ 'scRuntimeVersion'   -> SyntheticsCanarySchedule -- ^ 'scSchedule'   -> Val Bool -- ^ 'scStartCanaryAfterCreation'   -> SyntheticsCanary-syntheticsCanary artifactS3Locationarg codearg executionRoleArnarg namearg runConfigarg runtimeVersionarg schedulearg startCanaryAfterCreationarg =+syntheticsCanary artifactS3Locationarg codearg executionRoleArnarg namearg runtimeVersionarg schedulearg startCanaryAfterCreationarg =   SyntheticsCanary   { _syntheticsCanaryArtifactS3Location = artifactS3Locationarg   , _syntheticsCanaryCode = codearg   , _syntheticsCanaryExecutionRoleArn = executionRoleArnarg   , _syntheticsCanaryFailureRetentionPeriod = Nothing   , _syntheticsCanaryName = namearg-  , _syntheticsCanaryRunConfig = runConfigarg+  , _syntheticsCanaryRunConfig = Nothing   , _syntheticsCanaryRuntimeVersion = runtimeVersionarg   , _syntheticsCanarySchedule = schedulearg   , _syntheticsCanaryStartCanaryAfterCreation = startCanaryAfterCreationarg@@ -102,7 +101,7 @@ scName = lens _syntheticsCanaryName (\s a -> s { _syntheticsCanaryName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-runconfig-scRunConfig :: Lens' SyntheticsCanary SyntheticsCanaryRunConfig+scRunConfig :: Lens' SyntheticsCanary (Maybe SyntheticsCanaryRunConfig) scRunConfig = lens _syntheticsCanaryRunConfig (\s a -> s { _syntheticsCanaryRunConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-runtimeversion
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 0f3595917beabb179bd54f483b5f0bf8fd232482a243e91153db9f49d64f6c0f+-- hash: 75b46048b970d5d4fe69f7e229e225106bbd2db14435f795fdd1ca4456efdf0a  name:           stratosphere-version:        0.55.0+version:        0.56.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -57,8 +57,12 @@       Stratosphere.ResourceProperties.ACMPCACertificateValidity       Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId       Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions+      Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred+      Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata+      Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata       Stratosphere.ResourceProperties.AmazonMQBrokerLogList       Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow+      Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata       Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry       Stratosphere.ResourceProperties.AmazonMQBrokerUser       Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId@@ -91,6 +95,11 @@       Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings       Stratosphere.ResourceProperties.ApiGatewayV2ApiBodyS3Location       Stratosphere.ResourceProperties.ApiGatewayV2ApiCors+      Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings+      Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides+      Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides+      Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings+      Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides       Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration       Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration       Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig@@ -123,16 +132,19 @@       Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch       Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata       Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod+      Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout       Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod       Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy       Stratosphere.ResourceProperties.AppMeshRouteHttpRoute       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader       Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch+      Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout       Stratosphere.ResourceProperties.AppMeshRouteMatchRange       Stratosphere.ResourceProperties.AppMeshRouteRouteSpec       Stratosphere.ResourceProperties.AppMeshRouteTcpRoute       Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction+      Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout       Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget       Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog       Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute@@ -142,9 +154,13 @@       Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy       Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls       Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery+      Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration       Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog+      Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout       Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck+      Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout       Stratosphere.ResourceProperties.AppMeshVirtualNodeListener+      Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout       Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls       Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate       Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate@@ -152,6 +168,7 @@       Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging       Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping       Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery+      Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout       Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext       Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust       Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust@@ -197,6 +214,7 @@       Stratosphere.ResourceProperties.ASKSkillAuthenticationConfiguration       Stratosphere.ResourceProperties.ASKSkillOverrides       Stratosphere.ResourceProperties.ASKSkillSkillPackage+      Stratosphere.ResourceProperties.AthenaDataCatalogTags       Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration       Stratosphere.ResourceProperties.AthenaWorkGroupResultConfiguration       Stratosphere.ResourceProperties.AthenaWorkGroupResultConfigurationUpdates@@ -300,6 +318,7 @@       Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorDimension       Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorRange       Stratosphere.ResourceProperties.CodeBuildProjectArtifacts+      Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig       Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig       Stratosphere.ResourceProperties.CodeBuildProjectEnvironment       Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable@@ -499,6 +518,7 @@       Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange       Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address       Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification+      Stratosphere.ResourceProperties.EC2PrefixListEntry       Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty       Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty       Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping@@ -570,6 +590,7 @@       Stratosphere.ResourceProperties.EFSAccessPointCreationInfo       Stratosphere.ResourceProperties.EFSAccessPointPosixUser       Stratosphere.ResourceProperties.EFSAccessPointRootDirectory+      Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy       Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag       Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy       Stratosphere.ResourceProperties.EKSClusterEncryptionConfig@@ -626,11 +647,14 @@       Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher       Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetDescription       Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetGroupAttribute+      Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput       Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions+      Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions       Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions       Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig       Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions       Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption+      Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions       Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions       Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions       Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions@@ -1037,6 +1061,7 @@       Stratosphere.ResourceProperties.LambdaFunctionCode       Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig       Stratosphere.ResourceProperties.LambdaFunctionEnvironment+      Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig       Stratosphere.ResourceProperties.LambdaFunctionTracingConfig       Stratosphere.ResourceProperties.LambdaFunctionVpcConfig       Stratosphere.ResourceProperties.LambdaLayerVersionContent@@ -1172,6 +1197,7 @@       Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups       Stratosphere.ResourceProperties.PinpointSegmentSetDimension       Stratosphere.ResourceProperties.PinpointSegmentSourceSegments+      Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration       Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole       Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration       Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole@@ -1259,6 +1285,9 @@       Stratosphere.ResourceProperties.S3BucketVersioningConfiguration       Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration       Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig+      Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader+      Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption+      Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig       Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant       Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty       Stratosphere.ResourceProperties.SageMakerModelContainerDefinition@@ -1267,6 +1296,7 @@       Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition       Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition       Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration+      Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda       Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules       Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString       Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties@@ -1319,6 +1349,7 @@       Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration       Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location       Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry+      Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration       Stratosphere.ResourceProperties.SyntheticsCanaryCode       Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig       Stratosphere.ResourceProperties.SyntheticsCanarySchedule@@ -1353,7 +1384,9 @@       Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo       Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement       Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch+      Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration       Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement+      Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration       Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement       Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementOne       Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementTwo@@ -1378,7 +1411,9 @@       Stratosphere.ResourceProperties.WAFv2WebACLDefaultAction       Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule       Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch+      Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration       Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement+      Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration       Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement       Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement       Stratosphere.ResourceProperties.WAFv2WebACLNotStatementOne@@ -1435,6 +1470,7 @@       Stratosphere.Resources.ApiGatewayUsagePlan       Stratosphere.Resources.ApiGatewayUsagePlanKey       Stratosphere.Resources.ApiGatewayV2Api+      Stratosphere.Resources.ApiGatewayV2ApiGatewayManagedOverrides       Stratosphere.Resources.ApiGatewayV2ApiMapping       Stratosphere.Resources.ApiGatewayV2Authorizer       Stratosphere.Resources.ApiGatewayV2Deployment@@ -1445,6 +1481,7 @@       Stratosphere.Resources.ApiGatewayV2Route       Stratosphere.Resources.ApiGatewayV2RouteResponse       Stratosphere.Resources.ApiGatewayV2Stage+      Stratosphere.Resources.ApiGatewayV2VpcLink       Stratosphere.Resources.ApiGatewayVpcLink       Stratosphere.Resources.AppConfigApplication       Stratosphere.Resources.AppConfigConfigurationProfile@@ -1474,6 +1511,7 @@       Stratosphere.Resources.AppSyncGraphQLSchema       Stratosphere.Resources.AppSyncResolver       Stratosphere.Resources.ASKSkill+      Stratosphere.Resources.AthenaDataCatalog       Stratosphere.Resources.AthenaNamedQuery       Stratosphere.Resources.AthenaWorkGroup       Stratosphere.Resources.AutoScalingAutoScalingGroup@@ -1590,6 +1628,7 @@       Stratosphere.Resources.EC2NetworkInterfaceAttachment       Stratosphere.Resources.EC2NetworkInterfacePermission       Stratosphere.Resources.EC2PlacementGroup+      Stratosphere.Resources.EC2PrefixList       Stratosphere.Resources.EC2Route       Stratosphere.Resources.EC2RouteTable       Stratosphere.Resources.EC2SecurityGroup@@ -1833,6 +1872,7 @@       Stratosphere.Resources.PinpointSmsTemplate       Stratosphere.Resources.PinpointVoiceChannel       Stratosphere.Resources.QLDBLedger+      Stratosphere.Resources.QLDBStream       Stratosphere.Resources.RAMResourceShare       Stratosphere.Resources.RDSDBCluster       Stratosphere.Resources.RDSDBClusterParameterGroup