diff --git a/CHANGELOG.md b/CHANGELOG.md --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,9 @@ # Change Log +## 0.26.2 + +* Update resource specification document to version 2.10.0 + ## 0.26.1 * Remove dependency on `aeson-qq` diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs @@ -0,0 +1,55 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-directoryconfig-serviceaccountcredentials.html + +module Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for +-- AppStreamDirectoryConfigServiceAccountCredentials. See +-- 'appStreamDirectoryConfigServiceAccountCredentials' for a more convenient +-- constructor. +data AppStreamDirectoryConfigServiceAccountCredentials = + AppStreamDirectoryConfigServiceAccountCredentials + { _appStreamDirectoryConfigServiceAccountCredentialsAccountName :: Val Text + , _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword :: Val Text + } deriving (Show, Eq) + +instance ToJSON AppStreamDirectoryConfigServiceAccountCredentials where + toJSON AppStreamDirectoryConfigServiceAccountCredentials{..} = + object $ + catMaybes + [ (Just . ("AccountName",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentialsAccountName + , (Just . ("AccountPassword",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword + ] + +instance FromJSON AppStreamDirectoryConfigServiceAccountCredentials where + parseJSON (Object obj) = + AppStreamDirectoryConfigServiceAccountCredentials <$> + (obj .: "AccountName") <*> + (obj .: "AccountPassword") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamDirectoryConfigServiceAccountCredentials' +-- containing required fields as arguments. +appStreamDirectoryConfigServiceAccountCredentials + :: Val Text -- ^ 'asdcsacAccountName' + -> Val Text -- ^ 'asdcsacAccountPassword' + -> AppStreamDirectoryConfigServiceAccountCredentials +appStreamDirectoryConfigServiceAccountCredentials accountNamearg accountPasswordarg = + AppStreamDirectoryConfigServiceAccountCredentials + { _appStreamDirectoryConfigServiceAccountCredentialsAccountName = accountNamearg + , _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword = accountPasswordarg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-directoryconfig-serviceaccountcredentials.html#cfn-appstream-directoryconfig-serviceaccountcredentials-accountname +asdcsacAccountName :: Lens' AppStreamDirectoryConfigServiceAccountCredentials (Val Text) +asdcsacAccountName = lens _appStreamDirectoryConfigServiceAccountCredentialsAccountName (\s a -> s { _appStreamDirectoryConfigServiceAccountCredentialsAccountName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-directoryconfig-serviceaccountcredentials.html#cfn-appstream-directoryconfig-serviceaccountcredentials-accountpassword +asdcsacAccountPassword :: Lens' AppStreamDirectoryConfigServiceAccountCredentials (Val Text) +asdcsacAccountPassword = lens _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword (\s a -> s { _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs @@ -0,0 +1,44 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-computecapacity.html + +module Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamFleetComputeCapacity. See +-- 'appStreamFleetComputeCapacity' for a more convenient constructor. +data AppStreamFleetComputeCapacity = + AppStreamFleetComputeCapacity + { _appStreamFleetComputeCapacityDesiredInstances :: Val Integer + } deriving (Show, Eq) + +instance ToJSON AppStreamFleetComputeCapacity where + toJSON AppStreamFleetComputeCapacity{..} = + object $ + catMaybes + [ (Just . ("DesiredInstances",) . toJSON . fmap Integer') _appStreamFleetComputeCapacityDesiredInstances + ] + +instance FromJSON AppStreamFleetComputeCapacity where + parseJSON (Object obj) = + AppStreamFleetComputeCapacity <$> + fmap (fmap unInteger') (obj .: "DesiredInstances") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamFleetComputeCapacity' containing required +-- fields as arguments. +appStreamFleetComputeCapacity + :: Val Integer -- ^ 'asfccDesiredInstances' + -> AppStreamFleetComputeCapacity +appStreamFleetComputeCapacity desiredInstancesarg = + AppStreamFleetComputeCapacity + { _appStreamFleetComputeCapacityDesiredInstances = desiredInstancesarg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-computecapacity.html#cfn-appstream-fleet-computecapacity-desiredinstances +asfccDesiredInstances :: Lens' AppStreamFleetComputeCapacity (Val Integer) +asfccDesiredInstances = lens _appStreamFleetComputeCapacityDesiredInstances (\s a -> s { _appStreamFleetComputeCapacityDesiredInstances = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-domainjoininfo.html + +module Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamFleetDomainJoinInfo. See +-- 'appStreamFleetDomainJoinInfo' for a more convenient constructor. +data AppStreamFleetDomainJoinInfo = + AppStreamFleetDomainJoinInfo + { _appStreamFleetDomainJoinInfoDirectoryName :: Maybe (Val Text) + , _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName :: Maybe (Val Text) + } deriving (Show, Eq) + +instance ToJSON AppStreamFleetDomainJoinInfo where + toJSON AppStreamFleetDomainJoinInfo{..} = + object $ + catMaybes + [ fmap (("DirectoryName",) . toJSON) _appStreamFleetDomainJoinInfoDirectoryName + , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName + ] + +instance FromJSON AppStreamFleetDomainJoinInfo where + parseJSON (Object obj) = + AppStreamFleetDomainJoinInfo <$> + (obj .:? "DirectoryName") <*> + (obj .:? "OrganizationalUnitDistinguishedName") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamFleetDomainJoinInfo' containing required fields +-- as arguments. +appStreamFleetDomainJoinInfo + :: AppStreamFleetDomainJoinInfo +appStreamFleetDomainJoinInfo = + AppStreamFleetDomainJoinInfo + { _appStreamFleetDomainJoinInfoDirectoryName = Nothing + , _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-domainjoininfo.html#cfn-appstream-fleet-domainjoininfo-directoryname +asfdjiDirectoryName :: Lens' AppStreamFleetDomainJoinInfo (Maybe (Val Text)) +asfdjiDirectoryName = lens _appStreamFleetDomainJoinInfoDirectoryName (\s a -> s { _appStreamFleetDomainJoinInfoDirectoryName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-domainjoininfo.html#cfn-appstream-fleet-domainjoininfo-organizationalunitdistinguishedname +asfdjiOrganizationalUnitDistinguishedName :: Lens' AppStreamFleetDomainJoinInfo (Maybe (Val Text)) +asfdjiOrganizationalUnitDistinguishedName = lens _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName (\s a -> s { _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-vpcconfig.html + +module Stratosphere.ResourceProperties.AppStreamFleetVpcConfig where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamFleetVpcConfig. See +-- 'appStreamFleetVpcConfig' for a more convenient constructor. +data AppStreamFleetVpcConfig = + AppStreamFleetVpcConfig + { _appStreamFleetVpcConfigSecurityGroupIds :: Maybe (ValList Text) + , _appStreamFleetVpcConfigSubnetIds :: Maybe (ValList Text) + } deriving (Show, Eq) + +instance ToJSON AppStreamFleetVpcConfig where + toJSON AppStreamFleetVpcConfig{..} = + object $ + catMaybes + [ fmap (("SecurityGroupIds",) . toJSON) _appStreamFleetVpcConfigSecurityGroupIds + , fmap (("SubnetIds",) . toJSON) _appStreamFleetVpcConfigSubnetIds + ] + +instance FromJSON AppStreamFleetVpcConfig where + parseJSON (Object obj) = + AppStreamFleetVpcConfig <$> + (obj .:? "SecurityGroupIds") <*> + (obj .:? "SubnetIds") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamFleetVpcConfig' containing required fields as +-- arguments. +appStreamFleetVpcConfig + :: AppStreamFleetVpcConfig +appStreamFleetVpcConfig = + AppStreamFleetVpcConfig + { _appStreamFleetVpcConfigSecurityGroupIds = Nothing + , _appStreamFleetVpcConfigSubnetIds = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-vpcconfig.html#cfn-appstream-fleet-vpcconfig-securitygroupids +asfvcSecurityGroupIds :: Lens' AppStreamFleetVpcConfig (Maybe (ValList Text)) +asfvcSecurityGroupIds = lens _appStreamFleetVpcConfigSecurityGroupIds (\s a -> s { _appStreamFleetVpcConfigSecurityGroupIds = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-vpcconfig.html#cfn-appstream-fleet-vpcconfig-subnetids +asfvcSubnetIds :: Lens' AppStreamFleetVpcConfig (Maybe (ValList Text)) +asfvcSubnetIds = lens _appStreamFleetVpcConfigSubnetIds (\s a -> s { _appStreamFleetVpcConfigSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-domainjoininfo.html + +module Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamImageBuilderDomainJoinInfo. See +-- 'appStreamImageBuilderDomainJoinInfo' for a more convenient constructor. +data AppStreamImageBuilderDomainJoinInfo = + AppStreamImageBuilderDomainJoinInfo + { _appStreamImageBuilderDomainJoinInfoDirectoryName :: Maybe (Val Text) + , _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName :: Maybe (Val Text) + } deriving (Show, Eq) + +instance ToJSON AppStreamImageBuilderDomainJoinInfo where + toJSON AppStreamImageBuilderDomainJoinInfo{..} = + object $ + catMaybes + [ fmap (("DirectoryName",) . toJSON) _appStreamImageBuilderDomainJoinInfoDirectoryName + , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName + ] + +instance FromJSON AppStreamImageBuilderDomainJoinInfo where + parseJSON (Object obj) = + AppStreamImageBuilderDomainJoinInfo <$> + (obj .:? "DirectoryName") <*> + (obj .:? "OrganizationalUnitDistinguishedName") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamImageBuilderDomainJoinInfo' containing required +-- fields as arguments. +appStreamImageBuilderDomainJoinInfo + :: AppStreamImageBuilderDomainJoinInfo +appStreamImageBuilderDomainJoinInfo = + AppStreamImageBuilderDomainJoinInfo + { _appStreamImageBuilderDomainJoinInfoDirectoryName = Nothing + , _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-domainjoininfo.html#cfn-appstream-imagebuilder-domainjoininfo-directoryname +asibdjiDirectoryName :: Lens' AppStreamImageBuilderDomainJoinInfo (Maybe (Val Text)) +asibdjiDirectoryName = lens _appStreamImageBuilderDomainJoinInfoDirectoryName (\s a -> s { _appStreamImageBuilderDomainJoinInfoDirectoryName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-domainjoininfo.html#cfn-appstream-imagebuilder-domainjoininfo-organizationalunitdistinguishedname +asibdjiOrganizationalUnitDistinguishedName :: Lens' AppStreamImageBuilderDomainJoinInfo (Maybe (Val Text)) +asibdjiOrganizationalUnitDistinguishedName = lens _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName (\s a -> s { _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-vpcconfig.html + +module Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamImageBuilderVpcConfig. See +-- 'appStreamImageBuilderVpcConfig' for a more convenient constructor. +data AppStreamImageBuilderVpcConfig = + AppStreamImageBuilderVpcConfig + { _appStreamImageBuilderVpcConfigSecurityGroupIds :: Maybe (ValList Text) + , _appStreamImageBuilderVpcConfigSubnetIds :: Maybe (ValList Text) + } deriving (Show, Eq) + +instance ToJSON AppStreamImageBuilderVpcConfig where + toJSON AppStreamImageBuilderVpcConfig{..} = + object $ + catMaybes + [ fmap (("SecurityGroupIds",) . toJSON) _appStreamImageBuilderVpcConfigSecurityGroupIds + , fmap (("SubnetIds",) . toJSON) _appStreamImageBuilderVpcConfigSubnetIds + ] + +instance FromJSON AppStreamImageBuilderVpcConfig where + parseJSON (Object obj) = + AppStreamImageBuilderVpcConfig <$> + (obj .:? "SecurityGroupIds") <*> + (obj .:? "SubnetIds") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamImageBuilderVpcConfig' containing required +-- fields as arguments. +appStreamImageBuilderVpcConfig + :: AppStreamImageBuilderVpcConfig +appStreamImageBuilderVpcConfig = + AppStreamImageBuilderVpcConfig + { _appStreamImageBuilderVpcConfigSecurityGroupIds = Nothing + , _appStreamImageBuilderVpcConfigSubnetIds = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-vpcconfig.html#cfn-appstream-imagebuilder-vpcconfig-securitygroupids +asibvcSecurityGroupIds :: Lens' AppStreamImageBuilderVpcConfig (Maybe (ValList Text)) +asibvcSecurityGroupIds = lens _appStreamImageBuilderVpcConfigSecurityGroupIds (\s a -> s { _appStreamImageBuilderVpcConfigSecurityGroupIds = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-vpcconfig.html#cfn-appstream-imagebuilder-vpcconfig-subnetids +asibvcSubnetIds :: Lens' AppStreamImageBuilderVpcConfig (Maybe (ValList Text)) +asibvcSubnetIds = lens _appStreamImageBuilderVpcConfigSubnetIds (\s a -> s { _appStreamImageBuilderVpcConfigSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs @@ -0,0 +1,52 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-applicationsettings.html + +module Stratosphere.ResourceProperties.AppStreamStackApplicationSettings where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamStackApplicationSettings. See +-- 'appStreamStackApplicationSettings' for a more convenient constructor. +data AppStreamStackApplicationSettings = + AppStreamStackApplicationSettings + { _appStreamStackApplicationSettingsEnabled :: Val Bool + , _appStreamStackApplicationSettingsSettingsGroup :: Maybe (Val Text) + } deriving (Show, Eq) + +instance ToJSON AppStreamStackApplicationSettings where + toJSON AppStreamStackApplicationSettings{..} = + object $ + catMaybes + [ (Just . ("Enabled",) . toJSON . fmap Bool') _appStreamStackApplicationSettingsEnabled + , fmap (("SettingsGroup",) . toJSON) _appStreamStackApplicationSettingsSettingsGroup + ] + +instance FromJSON AppStreamStackApplicationSettings where + parseJSON (Object obj) = + AppStreamStackApplicationSettings <$> + fmap (fmap unBool') (obj .: "Enabled") <*> + (obj .:? "SettingsGroup") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamStackApplicationSettings' containing required +-- fields as arguments. +appStreamStackApplicationSettings + :: Val Bool -- ^ 'assasEnabled' + -> AppStreamStackApplicationSettings +appStreamStackApplicationSettings enabledarg = + AppStreamStackApplicationSettings + { _appStreamStackApplicationSettingsEnabled = enabledarg + , _appStreamStackApplicationSettingsSettingsGroup = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-applicationsettings.html#cfn-appstream-stack-applicationsettings-enabled +assasEnabled :: Lens' AppStreamStackApplicationSettings (Val Bool) +assasEnabled = lens _appStreamStackApplicationSettingsEnabled (\s a -> s { _appStreamStackApplicationSettingsEnabled = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-applicationsettings.html#cfn-appstream-stack-applicationsettings-settingsgroup +assasSettingsGroup :: Lens' AppStreamStackApplicationSettings (Maybe (Val Text)) +assasSettingsGroup = lens _appStreamStackApplicationSettingsSettingsGroup (\s a -> s { _appStreamStackApplicationSettingsSettingsGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs @@ -0,0 +1,60 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html + +module Stratosphere.ResourceProperties.AppStreamStackStorageConnector where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamStackStorageConnector. See +-- 'appStreamStackStorageConnector' for a more convenient constructor. +data AppStreamStackStorageConnector = + AppStreamStackStorageConnector + { _appStreamStackStorageConnectorConnectorType :: Val Text + , _appStreamStackStorageConnectorDomains :: Maybe (ValList Text) + , _appStreamStackStorageConnectorResourceIdentifier :: Maybe (Val Text) + } deriving (Show, Eq) + +instance ToJSON AppStreamStackStorageConnector where + toJSON AppStreamStackStorageConnector{..} = + object $ + catMaybes + [ (Just . ("ConnectorType",) . toJSON) _appStreamStackStorageConnectorConnectorType + , fmap (("Domains",) . toJSON) _appStreamStackStorageConnectorDomains + , fmap (("ResourceIdentifier",) . toJSON) _appStreamStackStorageConnectorResourceIdentifier + ] + +instance FromJSON AppStreamStackStorageConnector where + parseJSON (Object obj) = + AppStreamStackStorageConnector <$> + (obj .: "ConnectorType") <*> + (obj .:? "Domains") <*> + (obj .:? "ResourceIdentifier") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamStackStorageConnector' containing required +-- fields as arguments. +appStreamStackStorageConnector + :: Val Text -- ^ 'assscConnectorType' + -> AppStreamStackStorageConnector +appStreamStackStorageConnector connectorTypearg = + AppStreamStackStorageConnector + { _appStreamStackStorageConnectorConnectorType = connectorTypearg + , _appStreamStackStorageConnectorDomains = Nothing + , _appStreamStackStorageConnectorResourceIdentifier = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html#cfn-appstream-stack-storageconnector-connectortype +assscConnectorType :: Lens' AppStreamStackStorageConnector (Val Text) +assscConnectorType = lens _appStreamStackStorageConnectorConnectorType (\s a -> s { _appStreamStackStorageConnectorConnectorType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html#cfn-appstream-stack-storageconnector-domains +assscDomains :: Lens' AppStreamStackStorageConnector (Maybe (ValList Text)) +assscDomains = lens _appStreamStackStorageConnectorDomains (\s a -> s { _appStreamStackStorageConnectorDomains = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html#cfn-appstream-stack-storageconnector-resourceidentifier +assscResourceIdentifier :: Lens' AppStreamStackStorageConnector (Maybe (Val Text)) +assscResourceIdentifier = lens _appStreamStackStorageConnectorResourceIdentifier (\s a -> s { _appStreamStackStorageConnectorResourceIdentifier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs @@ -0,0 +1,53 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-usersetting.html + +module Stratosphere.ResourceProperties.AppStreamStackUserSetting where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamStackUserSetting. See +-- 'appStreamStackUserSetting' for a more convenient constructor. +data AppStreamStackUserSetting = + AppStreamStackUserSetting + { _appStreamStackUserSettingAction :: Val Text + , _appStreamStackUserSettingPermission :: Val Text + } deriving (Show, Eq) + +instance ToJSON AppStreamStackUserSetting where + toJSON AppStreamStackUserSetting{..} = + object $ + catMaybes + [ (Just . ("Action",) . toJSON) _appStreamStackUserSettingAction + , (Just . ("Permission",) . toJSON) _appStreamStackUserSettingPermission + ] + +instance FromJSON AppStreamStackUserSetting where + parseJSON (Object obj) = + AppStreamStackUserSetting <$> + (obj .: "Action") <*> + (obj .: "Permission") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamStackUserSetting' containing required fields as +-- arguments. +appStreamStackUserSetting + :: Val Text -- ^ 'assusAction' + -> Val Text -- ^ 'assusPermission' + -> AppStreamStackUserSetting +appStreamStackUserSetting actionarg permissionarg = + AppStreamStackUserSetting + { _appStreamStackUserSettingAction = actionarg + , _appStreamStackUserSettingPermission = permissionarg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-usersetting.html#cfn-appstream-stack-usersetting-action +assusAction :: Lens' AppStreamStackUserSetting (Val Text) +assusAction = lens _appStreamStackUserSettingAction (\s a -> s { _appStreamStackUserSettingAction = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-usersetting.html#cfn-appstream-stack-usersetting-permission +assusPermission :: Lens' AppStreamStackUserSetting (Val Text) +assusPermission = lens _appStreamStackUserSettingPermission (\s a -> s { _appStreamStackUserSettingPermission = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs b/library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs @@ -0,0 +1,59 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html + +module Stratosphere.ResourceProperties.EventsEventBusPolicyCondition where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for EventsEventBusPolicyCondition. See +-- 'eventsEventBusPolicyCondition' for a more convenient constructor. +data EventsEventBusPolicyCondition = + EventsEventBusPolicyCondition + { _eventsEventBusPolicyConditionKey :: Maybe (Val Text) + , _eventsEventBusPolicyConditionType :: Maybe (Val Text) + , _eventsEventBusPolicyConditionValue :: Maybe (Val Text) + } deriving (Show, Eq) + +instance ToJSON EventsEventBusPolicyCondition where + toJSON EventsEventBusPolicyCondition{..} = + object $ + catMaybes + [ fmap (("Key",) . toJSON) _eventsEventBusPolicyConditionKey + , fmap (("Type",) . toJSON) _eventsEventBusPolicyConditionType + , fmap (("Value",) . toJSON) _eventsEventBusPolicyConditionValue + ] + +instance FromJSON EventsEventBusPolicyCondition where + parseJSON (Object obj) = + EventsEventBusPolicyCondition <$> + (obj .:? "Key") <*> + (obj .:? "Type") <*> + (obj .:? "Value") + parseJSON _ = mempty + +-- | Constructor for 'EventsEventBusPolicyCondition' containing required +-- fields as arguments. +eventsEventBusPolicyCondition + :: EventsEventBusPolicyCondition +eventsEventBusPolicyCondition = + EventsEventBusPolicyCondition + { _eventsEventBusPolicyConditionKey = Nothing + , _eventsEventBusPolicyConditionType = Nothing + , _eventsEventBusPolicyConditionValue = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html#cfn-events-eventbuspolicy-condition-key +eebpcKey :: Lens' EventsEventBusPolicyCondition (Maybe (Val Text)) +eebpcKey = lens _eventsEventBusPolicyConditionKey (\s a -> s { _eventsEventBusPolicyConditionKey = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html#cfn-events-eventbuspolicy-condition-type +eebpcType :: Lens' EventsEventBusPolicyCondition (Maybe (Val Text)) +eebpcType = lens _eventsEventBusPolicyConditionType (\s a -> s { _eventsEventBusPolicyConditionType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html#cfn-events-eventbuspolicy-condition-value +eebpcValue :: Lens' EventsEventBusPolicyCondition (Maybe (Val Text)) +eebpcValue = lens _eventsEventBusPolicyConditionValue (\s a -> s { _eventsEventBusPolicyConditionValue = a }) diff --git a/library-gen/Stratosphere/Resources.hs b/library-gen/Stratosphere/Resources.hs --- a/library-gen/Stratosphere/Resources.hs +++ b/library-gen/Stratosphere/Resources.hs @@ -68,6 +68,13 @@ import Stratosphere.Resources.ApiGatewayUsagePlan as X import Stratosphere.Resources.ApiGatewayUsagePlanKey as X import Stratosphere.Resources.ApiGatewayVpcLink as X +import Stratosphere.Resources.AppStreamDirectoryConfig as X +import Stratosphere.Resources.AppStreamFleet as X +import Stratosphere.Resources.AppStreamImageBuilder as X +import Stratosphere.Resources.AppStreamStack as X +import Stratosphere.Resources.AppStreamStackFleetAssociation as X +import Stratosphere.Resources.AppStreamStackUserAssociation as X +import Stratosphere.Resources.AppStreamUser as X import Stratosphere.Resources.AppSyncApiKey as X import Stratosphere.Resources.AppSyncDataSource as X import Stratosphere.Resources.AppSyncGraphQLApi as X @@ -202,6 +209,7 @@ import Stratosphere.Resources.ElasticLoadBalancingV2LoadBalancer as X import Stratosphere.Resources.ElasticLoadBalancingV2TargetGroup as X import Stratosphere.Resources.ElasticsearchDomain as X +import Stratosphere.Resources.EventsEventBusPolicy as X import Stratosphere.Resources.EventsRule as X import Stratosphere.Resources.GameLiftAlias as X import Stratosphere.Resources.GameLiftBuild as X @@ -371,6 +379,15 @@ import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings as X import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings as X +import Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials as X +import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity as X +import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo as X +import Stratosphere.ResourceProperties.AppStreamFleetVpcConfig as X +import Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo as X +import Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig as X +import Stratosphere.ResourceProperties.AppStreamStackApplicationSettings as X +import Stratosphere.ResourceProperties.AppStreamStackStorageConnector as X +import Stratosphere.ResourceProperties.AppStreamStackUserSetting as X import Stratosphere.ResourceProperties.AppSyncDataSourceDynamoDBConfig as X import Stratosphere.ResourceProperties.AppSyncDataSourceElasticsearchConfig as X import Stratosphere.ResourceProperties.AppSyncDataSourceHttpConfig as X @@ -697,6 +714,7 @@ import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions as X import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions as X +import Stratosphere.ResourceProperties.EventsEventBusPolicyCondition as X import Stratosphere.ResourceProperties.EventsRuleEcsParameters as X import Stratosphere.ResourceProperties.EventsRuleInputTransformer as X import Stratosphere.ResourceProperties.EventsRuleKinesisParameters as X @@ -987,6 +1005,13 @@ | ApiGatewayUsagePlanProperties ApiGatewayUsagePlan | ApiGatewayUsagePlanKeyProperties ApiGatewayUsagePlanKey | ApiGatewayVpcLinkProperties ApiGatewayVpcLink + | AppStreamDirectoryConfigProperties AppStreamDirectoryConfig + | AppStreamFleetProperties AppStreamFleet + | AppStreamImageBuilderProperties AppStreamImageBuilder + | AppStreamStackProperties AppStreamStack + | AppStreamStackFleetAssociationProperties AppStreamStackFleetAssociation + | AppStreamStackUserAssociationProperties AppStreamStackUserAssociation + | AppStreamUserProperties AppStreamUser | AppSyncApiKeyProperties AppSyncApiKey | AppSyncDataSourceProperties AppSyncDataSource | AppSyncGraphQLApiProperties AppSyncGraphQLApi @@ -1121,6 +1146,7 @@ | ElasticLoadBalancingV2LoadBalancerProperties ElasticLoadBalancingV2LoadBalancer | ElasticLoadBalancingV2TargetGroupProperties ElasticLoadBalancingV2TargetGroup | ElasticsearchDomainProperties ElasticsearchDomain + | EventsEventBusPolicyProperties EventsEventBusPolicy | EventsRuleProperties EventsRule | GameLiftAliasProperties GameLiftAlias | GameLiftBuildProperties GameLiftBuild @@ -1364,6 +1390,20 @@ [ "Type" .= ("AWS::ApiGateway::UsagePlanKey" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ApiGatewayVpcLinkProperties x) = [ "Type" .= ("AWS::ApiGateway::VpcLink" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamDirectoryConfigProperties x) = + [ "Type" .= ("AWS::AppStream::DirectoryConfig" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamFleetProperties x) = + [ "Type" .= ("AWS::AppStream::Fleet" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamImageBuilderProperties x) = + [ "Type" .= ("AWS::AppStream::ImageBuilder" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamStackProperties x) = + [ "Type" .= ("AWS::AppStream::Stack" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamStackFleetAssociationProperties x) = + [ "Type" .= ("AWS::AppStream::StackFleetAssociation" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamStackUserAssociationProperties x) = + [ "Type" .= ("AWS::AppStream::StackUserAssociation" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (AppStreamUserProperties x) = + [ "Type" .= ("AWS::AppStream::User" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (AppSyncApiKeyProperties x) = [ "Type" .= ("AWS::AppSync::ApiKey" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (AppSyncDataSourceProperties x) = @@ -1632,6 +1672,8 @@ [ "Type" .= ("AWS::ElasticLoadBalancingV2::TargetGroup" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (ElasticsearchDomainProperties x) = [ "Type" .= ("AWS::Elasticsearch::Domain" :: String), "Properties" .= toJSON x] +resourcePropertiesJSON (EventsEventBusPolicyProperties x) = + [ "Type" .= ("AWS::Events::EventBusPolicy" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (EventsRuleProperties x) = [ "Type" .= ("AWS::Events::Rule" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (GameLiftAliasProperties x) = @@ -1951,6 +1993,13 @@ "AWS::ApiGateway::UsagePlan" -> ApiGatewayUsagePlanProperties <$> (o .: "Properties") "AWS::ApiGateway::UsagePlanKey" -> ApiGatewayUsagePlanKeyProperties <$> (o .: "Properties") "AWS::ApiGateway::VpcLink" -> ApiGatewayVpcLinkProperties <$> (o .: "Properties") + "AWS::AppStream::DirectoryConfig" -> AppStreamDirectoryConfigProperties <$> (o .: "Properties") + "AWS::AppStream::Fleet" -> AppStreamFleetProperties <$> (o .: "Properties") + "AWS::AppStream::ImageBuilder" -> AppStreamImageBuilderProperties <$> (o .: "Properties") + "AWS::AppStream::Stack" -> AppStreamStackProperties <$> (o .: "Properties") + "AWS::AppStream::StackFleetAssociation" -> AppStreamStackFleetAssociationProperties <$> (o .: "Properties") + "AWS::AppStream::StackUserAssociation" -> AppStreamStackUserAssociationProperties <$> (o .: "Properties") + "AWS::AppStream::User" -> AppStreamUserProperties <$> (o .: "Properties") "AWS::AppSync::ApiKey" -> AppSyncApiKeyProperties <$> (o .: "Properties") "AWS::AppSync::DataSource" -> AppSyncDataSourceProperties <$> (o .: "Properties") "AWS::AppSync::GraphQLApi" -> AppSyncGraphQLApiProperties <$> (o .: "Properties") @@ -2085,6 +2134,7 @@ "AWS::ElasticLoadBalancingV2::LoadBalancer" -> ElasticLoadBalancingV2LoadBalancerProperties <$> (o .: "Properties") "AWS::ElasticLoadBalancingV2::TargetGroup" -> ElasticLoadBalancingV2TargetGroupProperties <$> (o .: "Properties") "AWS::Elasticsearch::Domain" -> ElasticsearchDomainProperties <$> (o .: "Properties") + "AWS::Events::EventBusPolicy" -> EventsEventBusPolicyProperties <$> (o .: "Properties") "AWS::Events::Rule" -> EventsRuleProperties <$> (o .: "Properties") "AWS::GameLift::Alias" -> GameLiftAliasProperties <$> (o .: "Properties") "AWS::GameLift::Build" -> GameLiftBuildProperties <$> (o .: "Properties") diff --git a/library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs b/library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs @@ -0,0 +1,62 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html + +module Stratosphere.Resources.AppStreamDirectoryConfig where + +import Stratosphere.ResourceImports +import Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials + +-- | Full data type definition for AppStreamDirectoryConfig. See +-- 'appStreamDirectoryConfig' for a more convenient constructor. +data AppStreamDirectoryConfig = + AppStreamDirectoryConfig + { _appStreamDirectoryConfigDirectoryName :: Val Text + , _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames :: ValList Text + , _appStreamDirectoryConfigServiceAccountCredentials :: AppStreamDirectoryConfigServiceAccountCredentials + } deriving (Show, Eq) + +instance ToJSON AppStreamDirectoryConfig where + toJSON AppStreamDirectoryConfig{..} = + object $ + catMaybes + [ (Just . ("DirectoryName",) . toJSON) _appStreamDirectoryConfigDirectoryName + , (Just . ("OrganizationalUnitDistinguishedNames",) . toJSON) _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames + , (Just . ("ServiceAccountCredentials",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentials + ] + +instance FromJSON AppStreamDirectoryConfig where + parseJSON (Object obj) = + AppStreamDirectoryConfig <$> + (obj .: "DirectoryName") <*> + (obj .: "OrganizationalUnitDistinguishedNames") <*> + (obj .: "ServiceAccountCredentials") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamDirectoryConfig' containing required fields as +-- arguments. +appStreamDirectoryConfig + :: Val Text -- ^ 'asdcDirectoryName' + -> ValList Text -- ^ 'asdcOrganizationalUnitDistinguishedNames' + -> AppStreamDirectoryConfigServiceAccountCredentials -- ^ 'asdcServiceAccountCredentials' + -> AppStreamDirectoryConfig +appStreamDirectoryConfig directoryNamearg organizationalUnitDistinguishedNamesarg serviceAccountCredentialsarg = + AppStreamDirectoryConfig + { _appStreamDirectoryConfigDirectoryName = directoryNamearg + , _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames = organizationalUnitDistinguishedNamesarg + , _appStreamDirectoryConfigServiceAccountCredentials = serviceAccountCredentialsarg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html#cfn-appstream-directoryconfig-directoryname +asdcDirectoryName :: Lens' AppStreamDirectoryConfig (Val Text) +asdcDirectoryName = lens _appStreamDirectoryConfigDirectoryName (\s a -> s { _appStreamDirectoryConfigDirectoryName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html#cfn-appstream-directoryconfig-organizationalunitdistinguishednames +asdcOrganizationalUnitDistinguishedNames :: Lens' AppStreamDirectoryConfig (ValList Text) +asdcOrganizationalUnitDistinguishedNames = lens _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames (\s a -> s { _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html#cfn-appstream-directoryconfig-serviceaccountcredentials +asdcServiceAccountCredentials :: Lens' AppStreamDirectoryConfig AppStreamDirectoryConfigServiceAccountCredentials +asdcServiceAccountCredentials = lens _appStreamDirectoryConfigServiceAccountCredentials (\s a -> s { _appStreamDirectoryConfigServiceAccountCredentials = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamFleet.hs b/library-gen/Stratosphere/Resources/AppStreamFleet.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamFleet.hs @@ -0,0 +1,142 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html + +module Stratosphere.Resources.AppStreamFleet where + +import Stratosphere.ResourceImports +import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity +import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo +import Stratosphere.ResourceProperties.AppStreamFleetVpcConfig + +-- | Full data type definition for AppStreamFleet. See 'appStreamFleet' for a +-- more convenient constructor. +data AppStreamFleet = + AppStreamFleet + { _appStreamFleetComputeCapacity :: AppStreamFleetComputeCapacity + , _appStreamFleetDescription :: Maybe (Val Text) + , _appStreamFleetDisconnectTimeoutInSeconds :: Maybe (Val Integer) + , _appStreamFleetDisplayName :: Maybe (Val Text) + , _appStreamFleetDomainJoinInfo :: Maybe AppStreamFleetDomainJoinInfo + , _appStreamFleetEnableDefaultInternetAccess :: Maybe (Val Bool) + , _appStreamFleetFleetType :: Maybe (Val Text) + , _appStreamFleetImageArn :: Maybe (Val Text) + , _appStreamFleetImageName :: Maybe (Val Text) + , _appStreamFleetInstanceType :: Val Text + , _appStreamFleetMaxUserDurationInSeconds :: Maybe (Val Integer) + , _appStreamFleetName :: Maybe (Val Text) + , _appStreamFleetVpcConfig :: Maybe AppStreamFleetVpcConfig + } deriving (Show, Eq) + +instance ToJSON AppStreamFleet where + toJSON AppStreamFleet{..} = + object $ + catMaybes + [ (Just . ("ComputeCapacity",) . toJSON) _appStreamFleetComputeCapacity + , fmap (("Description",) . toJSON) _appStreamFleetDescription + , fmap (("DisconnectTimeoutInSeconds",) . toJSON . fmap Integer') _appStreamFleetDisconnectTimeoutInSeconds + , fmap (("DisplayName",) . toJSON) _appStreamFleetDisplayName + , fmap (("DomainJoinInfo",) . toJSON) _appStreamFleetDomainJoinInfo + , fmap (("EnableDefaultInternetAccess",) . toJSON . fmap Bool') _appStreamFleetEnableDefaultInternetAccess + , fmap (("FleetType",) . toJSON) _appStreamFleetFleetType + , fmap (("ImageArn",) . toJSON) _appStreamFleetImageArn + , fmap (("ImageName",) . toJSON) _appStreamFleetImageName + , (Just . ("InstanceType",) . toJSON) _appStreamFleetInstanceType + , fmap (("MaxUserDurationInSeconds",) . toJSON . fmap Integer') _appStreamFleetMaxUserDurationInSeconds + , fmap (("Name",) . toJSON) _appStreamFleetName + , fmap (("VpcConfig",) . toJSON) _appStreamFleetVpcConfig + ] + +instance FromJSON AppStreamFleet where + parseJSON (Object obj) = + AppStreamFleet <$> + (obj .: "ComputeCapacity") <*> + (obj .:? "Description") <*> + fmap (fmap (fmap unInteger')) (obj .:? "DisconnectTimeoutInSeconds") <*> + (obj .:? "DisplayName") <*> + (obj .:? "DomainJoinInfo") <*> + fmap (fmap (fmap unBool')) (obj .:? "EnableDefaultInternetAccess") <*> + (obj .:? "FleetType") <*> + (obj .:? "ImageArn") <*> + (obj .:? "ImageName") <*> + (obj .: "InstanceType") <*> + fmap (fmap (fmap unInteger')) (obj .:? "MaxUserDurationInSeconds") <*> + (obj .:? "Name") <*> + (obj .:? "VpcConfig") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamFleet' containing required fields as arguments. +appStreamFleet + :: AppStreamFleetComputeCapacity -- ^ 'asfComputeCapacity' + -> Val Text -- ^ 'asfInstanceType' + -> AppStreamFleet +appStreamFleet computeCapacityarg instanceTypearg = + AppStreamFleet + { _appStreamFleetComputeCapacity = computeCapacityarg + , _appStreamFleetDescription = Nothing + , _appStreamFleetDisconnectTimeoutInSeconds = Nothing + , _appStreamFleetDisplayName = Nothing + , _appStreamFleetDomainJoinInfo = Nothing + , _appStreamFleetEnableDefaultInternetAccess = Nothing + , _appStreamFleetFleetType = Nothing + , _appStreamFleetImageArn = Nothing + , _appStreamFleetImageName = Nothing + , _appStreamFleetInstanceType = instanceTypearg + , _appStreamFleetMaxUserDurationInSeconds = Nothing + , _appStreamFleetName = Nothing + , _appStreamFleetVpcConfig = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-computecapacity +asfComputeCapacity :: Lens' AppStreamFleet AppStreamFleetComputeCapacity +asfComputeCapacity = lens _appStreamFleetComputeCapacity (\s a -> s { _appStreamFleetComputeCapacity = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-description +asfDescription :: Lens' AppStreamFleet (Maybe (Val Text)) +asfDescription = lens _appStreamFleetDescription (\s a -> s { _appStreamFleetDescription = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-disconnecttimeoutinseconds +asfDisconnectTimeoutInSeconds :: Lens' AppStreamFleet (Maybe (Val Integer)) +asfDisconnectTimeoutInSeconds = lens _appStreamFleetDisconnectTimeoutInSeconds (\s a -> s { _appStreamFleetDisconnectTimeoutInSeconds = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-displayname +asfDisplayName :: Lens' AppStreamFleet (Maybe (Val Text)) +asfDisplayName = lens _appStreamFleetDisplayName (\s a -> s { _appStreamFleetDisplayName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-domainjoininfo +asfDomainJoinInfo :: Lens' AppStreamFleet (Maybe AppStreamFleetDomainJoinInfo) +asfDomainJoinInfo = lens _appStreamFleetDomainJoinInfo (\s a -> s { _appStreamFleetDomainJoinInfo = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-enabledefaultinternetaccess +asfEnableDefaultInternetAccess :: Lens' AppStreamFleet (Maybe (Val Bool)) +asfEnableDefaultInternetAccess = lens _appStreamFleetEnableDefaultInternetAccess (\s a -> s { _appStreamFleetEnableDefaultInternetAccess = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-fleettype +asfFleetType :: Lens' AppStreamFleet (Maybe (Val Text)) +asfFleetType = lens _appStreamFleetFleetType (\s a -> s { _appStreamFleetFleetType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-imagearn +asfImageArn :: Lens' AppStreamFleet (Maybe (Val Text)) +asfImageArn = lens _appStreamFleetImageArn (\s a -> s { _appStreamFleetImageArn = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-imagename +asfImageName :: Lens' AppStreamFleet (Maybe (Val Text)) +asfImageName = lens _appStreamFleetImageName (\s a -> s { _appStreamFleetImageName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-instancetype +asfInstanceType :: Lens' AppStreamFleet (Val Text) +asfInstanceType = lens _appStreamFleetInstanceType (\s a -> s { _appStreamFleetInstanceType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-maxuserdurationinseconds +asfMaxUserDurationInSeconds :: Lens' AppStreamFleet (Maybe (Val Integer)) +asfMaxUserDurationInSeconds = lens _appStreamFleetMaxUserDurationInSeconds (\s a -> s { _appStreamFleetMaxUserDurationInSeconds = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-name +asfName :: Lens' AppStreamFleet (Maybe (Val Text)) +asfName = lens _appStreamFleetName (\s a -> s { _appStreamFleetName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-vpcconfig +asfVpcConfig :: Lens' AppStreamFleet (Maybe AppStreamFleetVpcConfig) +asfVpcConfig = lens _appStreamFleetVpcConfig (\s a -> s { _appStreamFleetVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs b/library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs @@ -0,0 +1,117 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html + +module Stratosphere.Resources.AppStreamImageBuilder where + +import Stratosphere.ResourceImports +import Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo +import Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig + +-- | Full data type definition for AppStreamImageBuilder. See +-- 'appStreamImageBuilder' for a more convenient constructor. +data AppStreamImageBuilder = + AppStreamImageBuilder + { _appStreamImageBuilderAppstreamAgentVersion :: Maybe (Val Text) + , _appStreamImageBuilderDescription :: Maybe (Val Text) + , _appStreamImageBuilderDisplayName :: Maybe (Val Text) + , _appStreamImageBuilderDomainJoinInfo :: Maybe AppStreamImageBuilderDomainJoinInfo + , _appStreamImageBuilderEnableDefaultInternetAccess :: Maybe (Val Bool) + , _appStreamImageBuilderImageArn :: Maybe (Val Text) + , _appStreamImageBuilderImageName :: Maybe (Val Text) + , _appStreamImageBuilderInstanceType :: Val Text + , _appStreamImageBuilderName :: Maybe (Val Text) + , _appStreamImageBuilderVpcConfig :: Maybe AppStreamImageBuilderVpcConfig + } deriving (Show, Eq) + +instance ToJSON AppStreamImageBuilder where + toJSON AppStreamImageBuilder{..} = + object $ + catMaybes + [ fmap (("AppstreamAgentVersion",) . toJSON) _appStreamImageBuilderAppstreamAgentVersion + , fmap (("Description",) . toJSON) _appStreamImageBuilderDescription + , fmap (("DisplayName",) . toJSON) _appStreamImageBuilderDisplayName + , fmap (("DomainJoinInfo",) . toJSON) _appStreamImageBuilderDomainJoinInfo + , fmap (("EnableDefaultInternetAccess",) . toJSON . fmap Bool') _appStreamImageBuilderEnableDefaultInternetAccess + , fmap (("ImageArn",) . toJSON) _appStreamImageBuilderImageArn + , fmap (("ImageName",) . toJSON) _appStreamImageBuilderImageName + , (Just . ("InstanceType",) . toJSON) _appStreamImageBuilderInstanceType + , fmap (("Name",) . toJSON) _appStreamImageBuilderName + , fmap (("VpcConfig",) . toJSON) _appStreamImageBuilderVpcConfig + ] + +instance FromJSON AppStreamImageBuilder where + parseJSON (Object obj) = + AppStreamImageBuilder <$> + (obj .:? "AppstreamAgentVersion") <*> + (obj .:? "Description") <*> + (obj .:? "DisplayName") <*> + (obj .:? "DomainJoinInfo") <*> + fmap (fmap (fmap unBool')) (obj .:? "EnableDefaultInternetAccess") <*> + (obj .:? "ImageArn") <*> + (obj .:? "ImageName") <*> + (obj .: "InstanceType") <*> + (obj .:? "Name") <*> + (obj .:? "VpcConfig") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamImageBuilder' containing required fields as +-- arguments. +appStreamImageBuilder + :: Val Text -- ^ 'asibInstanceType' + -> AppStreamImageBuilder +appStreamImageBuilder instanceTypearg = + AppStreamImageBuilder + { _appStreamImageBuilderAppstreamAgentVersion = Nothing + , _appStreamImageBuilderDescription = Nothing + , _appStreamImageBuilderDisplayName = Nothing + , _appStreamImageBuilderDomainJoinInfo = Nothing + , _appStreamImageBuilderEnableDefaultInternetAccess = Nothing + , _appStreamImageBuilderImageArn = Nothing + , _appStreamImageBuilderImageName = Nothing + , _appStreamImageBuilderInstanceType = instanceTypearg + , _appStreamImageBuilderName = Nothing + , _appStreamImageBuilderVpcConfig = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-appstreamagentversion +asibAppstreamAgentVersion :: Lens' AppStreamImageBuilder (Maybe (Val Text)) +asibAppstreamAgentVersion = lens _appStreamImageBuilderAppstreamAgentVersion (\s a -> s { _appStreamImageBuilderAppstreamAgentVersion = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-description +asibDescription :: Lens' AppStreamImageBuilder (Maybe (Val Text)) +asibDescription = lens _appStreamImageBuilderDescription (\s a -> s { _appStreamImageBuilderDescription = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-displayname +asibDisplayName :: Lens' AppStreamImageBuilder (Maybe (Val Text)) +asibDisplayName = lens _appStreamImageBuilderDisplayName (\s a -> s { _appStreamImageBuilderDisplayName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-domainjoininfo +asibDomainJoinInfo :: Lens' AppStreamImageBuilder (Maybe AppStreamImageBuilderDomainJoinInfo) +asibDomainJoinInfo = lens _appStreamImageBuilderDomainJoinInfo (\s a -> s { _appStreamImageBuilderDomainJoinInfo = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-enabledefaultinternetaccess +asibEnableDefaultInternetAccess :: Lens' AppStreamImageBuilder (Maybe (Val Bool)) +asibEnableDefaultInternetAccess = lens _appStreamImageBuilderEnableDefaultInternetAccess (\s a -> s { _appStreamImageBuilderEnableDefaultInternetAccess = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-imagearn +asibImageArn :: Lens' AppStreamImageBuilder (Maybe (Val Text)) +asibImageArn = lens _appStreamImageBuilderImageArn (\s a -> s { _appStreamImageBuilderImageArn = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-imagename +asibImageName :: Lens' AppStreamImageBuilder (Maybe (Val Text)) +asibImageName = lens _appStreamImageBuilderImageName (\s a -> s { _appStreamImageBuilderImageName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-instancetype +asibInstanceType :: Lens' AppStreamImageBuilder (Val Text) +asibInstanceType = lens _appStreamImageBuilderInstanceType (\s a -> s { _appStreamImageBuilderInstanceType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-name +asibName :: Lens' AppStreamImageBuilder (Maybe (Val Text)) +asibName = lens _appStreamImageBuilderName (\s a -> s { _appStreamImageBuilderName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-vpcconfig +asibVpcConfig :: Lens' AppStreamImageBuilder (Maybe AppStreamImageBuilderVpcConfig) +asibVpcConfig = lens _appStreamImageBuilderVpcConfig (\s a -> s { _appStreamImageBuilderVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamStack.hs b/library-gen/Stratosphere/Resources/AppStreamStack.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamStack.hs @@ -0,0 +1,116 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html + +module Stratosphere.Resources.AppStreamStack where + +import Stratosphere.ResourceImports +import Stratosphere.ResourceProperties.AppStreamStackApplicationSettings +import Stratosphere.ResourceProperties.AppStreamStackStorageConnector +import Stratosphere.ResourceProperties.AppStreamStackUserSetting + +-- | Full data type definition for AppStreamStack. See 'appStreamStack' for a +-- more convenient constructor. +data AppStreamStack = + AppStreamStack + { _appStreamStackApplicationSettings :: Maybe AppStreamStackApplicationSettings + , _appStreamStackAttributesToDelete :: Maybe (ValList Text) + , _appStreamStackDeleteStorageConnectors :: Maybe (Val Bool) + , _appStreamStackDescription :: Maybe (Val Text) + , _appStreamStackDisplayName :: Maybe (Val Text) + , _appStreamStackFeedbackURL :: Maybe (Val Text) + , _appStreamStackName :: Maybe (Val Text) + , _appStreamStackRedirectURL :: Maybe (Val Text) + , _appStreamStackStorageConnectors :: Maybe [AppStreamStackStorageConnector] + , _appStreamStackUserSettings :: Maybe [AppStreamStackUserSetting] + } deriving (Show, Eq) + +instance ToJSON AppStreamStack where + toJSON AppStreamStack{..} = + object $ + catMaybes + [ fmap (("ApplicationSettings",) . toJSON) _appStreamStackApplicationSettings + , fmap (("AttributesToDelete",) . toJSON) _appStreamStackAttributesToDelete + , fmap (("DeleteStorageConnectors",) . toJSON . fmap Bool') _appStreamStackDeleteStorageConnectors + , fmap (("Description",) . toJSON) _appStreamStackDescription + , fmap (("DisplayName",) . toJSON) _appStreamStackDisplayName + , fmap (("FeedbackURL",) . toJSON) _appStreamStackFeedbackURL + , fmap (("Name",) . toJSON) _appStreamStackName + , fmap (("RedirectURL",) . toJSON) _appStreamStackRedirectURL + , fmap (("StorageConnectors",) . toJSON) _appStreamStackStorageConnectors + , fmap (("UserSettings",) . toJSON) _appStreamStackUserSettings + ] + +instance FromJSON AppStreamStack where + parseJSON (Object obj) = + AppStreamStack <$> + (obj .:? "ApplicationSettings") <*> + (obj .:? "AttributesToDelete") <*> + fmap (fmap (fmap unBool')) (obj .:? "DeleteStorageConnectors") <*> + (obj .:? "Description") <*> + (obj .:? "DisplayName") <*> + (obj .:? "FeedbackURL") <*> + (obj .:? "Name") <*> + (obj .:? "RedirectURL") <*> + (obj .:? "StorageConnectors") <*> + (obj .:? "UserSettings") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamStack' containing required fields as arguments. +appStreamStack + :: AppStreamStack +appStreamStack = + AppStreamStack + { _appStreamStackApplicationSettings = Nothing + , _appStreamStackAttributesToDelete = Nothing + , _appStreamStackDeleteStorageConnectors = Nothing + , _appStreamStackDescription = Nothing + , _appStreamStackDisplayName = Nothing + , _appStreamStackFeedbackURL = Nothing + , _appStreamStackName = Nothing + , _appStreamStackRedirectURL = Nothing + , _appStreamStackStorageConnectors = Nothing + , _appStreamStackUserSettings = Nothing + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-applicationsettings +assApplicationSettings :: Lens' AppStreamStack (Maybe AppStreamStackApplicationSettings) +assApplicationSettings = lens _appStreamStackApplicationSettings (\s a -> s { _appStreamStackApplicationSettings = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-attributestodelete +assAttributesToDelete :: Lens' AppStreamStack (Maybe (ValList Text)) +assAttributesToDelete = lens _appStreamStackAttributesToDelete (\s a -> s { _appStreamStackAttributesToDelete = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-deletestorageconnectors +assDeleteStorageConnectors :: Lens' AppStreamStack (Maybe (Val Bool)) +assDeleteStorageConnectors = lens _appStreamStackDeleteStorageConnectors (\s a -> s { _appStreamStackDeleteStorageConnectors = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-description +assDescription :: Lens' AppStreamStack (Maybe (Val Text)) +assDescription = lens _appStreamStackDescription (\s a -> s { _appStreamStackDescription = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-displayname +assDisplayName :: Lens' AppStreamStack (Maybe (Val Text)) +assDisplayName = lens _appStreamStackDisplayName (\s a -> s { _appStreamStackDisplayName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-feedbackurl +assFeedbackURL :: Lens' AppStreamStack (Maybe (Val Text)) +assFeedbackURL = lens _appStreamStackFeedbackURL (\s a -> s { _appStreamStackFeedbackURL = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-name +assName :: Lens' AppStreamStack (Maybe (Val Text)) +assName = lens _appStreamStackName (\s a -> s { _appStreamStackName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-redirecturl +assRedirectURL :: Lens' AppStreamStack (Maybe (Val Text)) +assRedirectURL = lens _appStreamStackRedirectURL (\s a -> s { _appStreamStackRedirectURL = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-storageconnectors +assStorageConnectors :: Lens' AppStreamStack (Maybe [AppStreamStackStorageConnector]) +assStorageConnectors = lens _appStreamStackStorageConnectors (\s a -> s { _appStreamStackStorageConnectors = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-usersettings +assUserSettings :: Lens' AppStreamStack (Maybe [AppStreamStackUserSetting]) +assUserSettings = lens _appStreamStackUserSettings (\s a -> s { _appStreamStackUserSettings = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs b/library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs @@ -0,0 +1,53 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackfleetassociation.html + +module Stratosphere.Resources.AppStreamStackFleetAssociation where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamStackFleetAssociation. See +-- 'appStreamStackFleetAssociation' for a more convenient constructor. +data AppStreamStackFleetAssociation = + AppStreamStackFleetAssociation + { _appStreamStackFleetAssociationFleetName :: Val Text + , _appStreamStackFleetAssociationStackName :: Val Text + } deriving (Show, Eq) + +instance ToJSON AppStreamStackFleetAssociation where + toJSON AppStreamStackFleetAssociation{..} = + object $ + catMaybes + [ (Just . ("FleetName",) . toJSON) _appStreamStackFleetAssociationFleetName + , (Just . ("StackName",) . toJSON) _appStreamStackFleetAssociationStackName + ] + +instance FromJSON AppStreamStackFleetAssociation where + parseJSON (Object obj) = + AppStreamStackFleetAssociation <$> + (obj .: "FleetName") <*> + (obj .: "StackName") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamStackFleetAssociation' containing required +-- fields as arguments. +appStreamStackFleetAssociation + :: Val Text -- ^ 'assfaFleetName' + -> Val Text -- ^ 'assfaStackName' + -> AppStreamStackFleetAssociation +appStreamStackFleetAssociation fleetNamearg stackNamearg = + AppStreamStackFleetAssociation + { _appStreamStackFleetAssociationFleetName = fleetNamearg + , _appStreamStackFleetAssociationStackName = stackNamearg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackfleetassociation.html#cfn-appstream-stackfleetassociation-fleetname +assfaFleetName :: Lens' AppStreamStackFleetAssociation (Val Text) +assfaFleetName = lens _appStreamStackFleetAssociationFleetName (\s a -> s { _appStreamStackFleetAssociationFleetName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackfleetassociation.html#cfn-appstream-stackfleetassociation-stackname +assfaStackName :: Lens' AppStreamStackFleetAssociation (Val Text) +assfaStackName = lens _appStreamStackFleetAssociationStackName (\s a -> s { _appStreamStackFleetAssociationStackName = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs b/library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs @@ -0,0 +1,70 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html + +module Stratosphere.Resources.AppStreamStackUserAssociation where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamStackUserAssociation. See +-- 'appStreamStackUserAssociation' for a more convenient constructor. +data AppStreamStackUserAssociation = + AppStreamStackUserAssociation + { _appStreamStackUserAssociationAuthenticationType :: Val Text + , _appStreamStackUserAssociationSendEmailNotification :: Maybe (Val Bool) + , _appStreamStackUserAssociationStackName :: Val Text + , _appStreamStackUserAssociationUserName :: Val Text + } deriving (Show, Eq) + +instance ToJSON AppStreamStackUserAssociation where + toJSON AppStreamStackUserAssociation{..} = + object $ + catMaybes + [ (Just . ("AuthenticationType",) . toJSON) _appStreamStackUserAssociationAuthenticationType + , fmap (("SendEmailNotification",) . toJSON . fmap Bool') _appStreamStackUserAssociationSendEmailNotification + , (Just . ("StackName",) . toJSON) _appStreamStackUserAssociationStackName + , (Just . ("UserName",) . toJSON) _appStreamStackUserAssociationUserName + ] + +instance FromJSON AppStreamStackUserAssociation where + parseJSON (Object obj) = + AppStreamStackUserAssociation <$> + (obj .: "AuthenticationType") <*> + fmap (fmap (fmap unBool')) (obj .:? "SendEmailNotification") <*> + (obj .: "StackName") <*> + (obj .: "UserName") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamStackUserAssociation' containing required +-- fields as arguments. +appStreamStackUserAssociation + :: Val Text -- ^ 'assuaAuthenticationType' + -> Val Text -- ^ 'assuaStackName' + -> Val Text -- ^ 'assuaUserName' + -> AppStreamStackUserAssociation +appStreamStackUserAssociation authenticationTypearg stackNamearg userNamearg = + AppStreamStackUserAssociation + { _appStreamStackUserAssociationAuthenticationType = authenticationTypearg + , _appStreamStackUserAssociationSendEmailNotification = Nothing + , _appStreamStackUserAssociationStackName = stackNamearg + , _appStreamStackUserAssociationUserName = userNamearg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-authenticationtype +assuaAuthenticationType :: Lens' AppStreamStackUserAssociation (Val Text) +assuaAuthenticationType = lens _appStreamStackUserAssociationAuthenticationType (\s a -> s { _appStreamStackUserAssociationAuthenticationType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-sendemailnotification +assuaSendEmailNotification :: Lens' AppStreamStackUserAssociation (Maybe (Val Bool)) +assuaSendEmailNotification = lens _appStreamStackUserAssociationSendEmailNotification (\s a -> s { _appStreamStackUserAssociationSendEmailNotification = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-stackname +assuaStackName :: Lens' AppStreamStackUserAssociation (Val Text) +assuaStackName = lens _appStreamStackUserAssociationStackName (\s a -> s { _appStreamStackUserAssociationStackName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-username +assuaUserName :: Lens' AppStreamStackUserAssociation (Val Text) +assuaUserName = lens _appStreamStackUserAssociationUserName (\s a -> s { _appStreamStackUserAssociationUserName = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamUser.hs b/library-gen/Stratosphere/Resources/AppStreamUser.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/AppStreamUser.hs @@ -0,0 +1,76 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html + +module Stratosphere.Resources.AppStreamUser where + +import Stratosphere.ResourceImports + + +-- | Full data type definition for AppStreamUser. See 'appStreamUser' for a +-- more convenient constructor. +data AppStreamUser = + AppStreamUser + { _appStreamUserAuthenticationType :: Val Text + , _appStreamUserFirstName :: Maybe (Val Text) + , _appStreamUserLastName :: Maybe (Val Text) + , _appStreamUserMessageAction :: Maybe (Val Text) + , _appStreamUserUserName :: Val Text + } deriving (Show, Eq) + +instance ToJSON AppStreamUser where + toJSON AppStreamUser{..} = + object $ + catMaybes + [ (Just . ("AuthenticationType",) . toJSON) _appStreamUserAuthenticationType + , fmap (("FirstName",) . toJSON) _appStreamUserFirstName + , fmap (("LastName",) . toJSON) _appStreamUserLastName + , fmap (("MessageAction",) . toJSON) _appStreamUserMessageAction + , (Just . ("UserName",) . toJSON) _appStreamUserUserName + ] + +instance FromJSON AppStreamUser where + parseJSON (Object obj) = + AppStreamUser <$> + (obj .: "AuthenticationType") <*> + (obj .:? "FirstName") <*> + (obj .:? "LastName") <*> + (obj .:? "MessageAction") <*> + (obj .: "UserName") + parseJSON _ = mempty + +-- | Constructor for 'AppStreamUser' containing required fields as arguments. +appStreamUser + :: Val Text -- ^ 'asuAuthenticationType' + -> Val Text -- ^ 'asuUserName' + -> AppStreamUser +appStreamUser authenticationTypearg userNamearg = + AppStreamUser + { _appStreamUserAuthenticationType = authenticationTypearg + , _appStreamUserFirstName = Nothing + , _appStreamUserLastName = Nothing + , _appStreamUserMessageAction = Nothing + , _appStreamUserUserName = userNamearg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-authenticationtype +asuAuthenticationType :: Lens' AppStreamUser (Val Text) +asuAuthenticationType = lens _appStreamUserAuthenticationType (\s a -> s { _appStreamUserAuthenticationType = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-firstname +asuFirstName :: Lens' AppStreamUser (Maybe (Val Text)) +asuFirstName = lens _appStreamUserFirstName (\s a -> s { _appStreamUserFirstName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-lastname +asuLastName :: Lens' AppStreamUser (Maybe (Val Text)) +asuLastName = lens _appStreamUserLastName (\s a -> s { _appStreamUserLastName = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-messageaction +asuMessageAction :: Lens' AppStreamUser (Maybe (Val Text)) +asuMessageAction = lens _appStreamUserMessageAction (\s a -> s { _appStreamUserMessageAction = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-username +asuUserName :: Lens' AppStreamUser (Val Text) +asuUserName = lens _appStreamUserUserName (\s a -> s { _appStreamUserUserName = a }) diff --git a/library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs b/library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs new file mode 100644 --- /dev/null +++ b/library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs @@ -0,0 +1,70 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html + +module Stratosphere.Resources.EventsEventBusPolicy where + +import Stratosphere.ResourceImports +import Stratosphere.ResourceProperties.EventsEventBusPolicyCondition + +-- | Full data type definition for EventsEventBusPolicy. See +-- 'eventsEventBusPolicy' for a more convenient constructor. +data EventsEventBusPolicy = + EventsEventBusPolicy + { _eventsEventBusPolicyAction :: Val Text + , _eventsEventBusPolicyCondition :: Maybe EventsEventBusPolicyCondition + , _eventsEventBusPolicyPrincipal :: Val Text + , _eventsEventBusPolicyStatementId :: Val Text + } deriving (Show, Eq) + +instance ToJSON EventsEventBusPolicy where + toJSON EventsEventBusPolicy{..} = + object $ + catMaybes + [ (Just . ("Action",) . toJSON) _eventsEventBusPolicyAction + , fmap (("Condition",) . toJSON) _eventsEventBusPolicyCondition + , (Just . ("Principal",) . toJSON) _eventsEventBusPolicyPrincipal + , (Just . ("StatementId",) . toJSON) _eventsEventBusPolicyStatementId + ] + +instance FromJSON EventsEventBusPolicy where + parseJSON (Object obj) = + EventsEventBusPolicy <$> + (obj .: "Action") <*> + (obj .:? "Condition") <*> + (obj .: "Principal") <*> + (obj .: "StatementId") + parseJSON _ = mempty + +-- | Constructor for 'EventsEventBusPolicy' containing required fields as +-- arguments. +eventsEventBusPolicy + :: Val Text -- ^ 'eebpAction' + -> Val Text -- ^ 'eebpPrincipal' + -> Val Text -- ^ 'eebpStatementId' + -> EventsEventBusPolicy +eventsEventBusPolicy actionarg principalarg statementIdarg = + EventsEventBusPolicy + { _eventsEventBusPolicyAction = actionarg + , _eventsEventBusPolicyCondition = Nothing + , _eventsEventBusPolicyPrincipal = principalarg + , _eventsEventBusPolicyStatementId = statementIdarg + } + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-action +eebpAction :: Lens' EventsEventBusPolicy (Val Text) +eebpAction = lens _eventsEventBusPolicyAction (\s a -> s { _eventsEventBusPolicyAction = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-condition +eebpCondition :: Lens' EventsEventBusPolicy (Maybe EventsEventBusPolicyCondition) +eebpCondition = lens _eventsEventBusPolicyCondition (\s a -> s { _eventsEventBusPolicyCondition = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-principal +eebpPrincipal :: Lens' EventsEventBusPolicy (Val Text) +eebpPrincipal = lens _eventsEventBusPolicyPrincipal (\s a -> s { _eventsEventBusPolicyPrincipal = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-statementid +eebpStatementId :: Lens' EventsEventBusPolicy (Val Text) +eebpStatementId = lens _eventsEventBusPolicyStatementId (\s a -> s { _eventsEventBusPolicyStatementId = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyDetector.hs b/library-gen/Stratosphere/Resources/GuardDutyDetector.hs --- a/library-gen/Stratosphere/Resources/GuardDutyDetector.hs +++ b/library-gen/Stratosphere/Resources/GuardDutyDetector.hs @@ -14,6 +14,7 @@ data GuardDutyDetector = GuardDutyDetector { _guardDutyDetectorEnable :: Val Bool + , _guardDutyDetectorFindingPublishingFrequency :: Maybe (Val Text) } deriving (Show, Eq) instance ToJSON GuardDutyDetector where @@ -21,12 +22,14 @@ object $ catMaybes [ (Just . ("Enable",) . toJSON . fmap Bool') _guardDutyDetectorEnable + , fmap (("FindingPublishingFrequency",) . toJSON) _guardDutyDetectorFindingPublishingFrequency ] instance FromJSON GuardDutyDetector where parseJSON (Object obj) = GuardDutyDetector <$> - fmap (fmap unBool') (obj .: "Enable") + fmap (fmap unBool') (obj .: "Enable") <*> + (obj .:? "FindingPublishingFrequency") parseJSON _ = mempty -- | Constructor for 'GuardDutyDetector' containing required fields as @@ -37,8 +40,13 @@ guardDutyDetector enablearg = GuardDutyDetector { _guardDutyDetectorEnable = enablearg + , _guardDutyDetectorFindingPublishingFrequency = Nothing } -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html#cfn-guardduty-detector-enable gddEnable :: Lens' GuardDutyDetector (Val Bool) gddEnable = lens _guardDutyDetectorEnable (\s a -> s { _guardDutyDetectorEnable = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html#cfn-guardduty-detector-findingpublishingfrequency +gddFindingPublishingFrequency :: Lens' GuardDutyDetector (Maybe (Val Text)) +gddFindingPublishingFrequency = lens _guardDutyDetectorFindingPublishingFrequency (\s a -> s { _guardDutyDetectorFindingPublishingFrequency = a }) diff --git a/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs b/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs --- a/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs +++ b/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs @@ -25,6 +25,7 @@ , _sSMPatchBaselineOperatingSystem :: Maybe (Val Text) , _sSMPatchBaselinePatchGroups :: Maybe (ValList Text) , _sSMPatchBaselineRejectedPatches :: Maybe (ValList Text) + , _sSMPatchBaselineRejectedPatchesAction :: Maybe (Val Text) , _sSMPatchBaselineSources :: Maybe [SSMPatchBaselinePatchSource] } deriving (Show, Eq) @@ -42,6 +43,7 @@ , fmap (("OperatingSystem",) . toJSON) _sSMPatchBaselineOperatingSystem , fmap (("PatchGroups",) . toJSON) _sSMPatchBaselinePatchGroups , fmap (("RejectedPatches",) . toJSON) _sSMPatchBaselineRejectedPatches + , fmap (("RejectedPatchesAction",) . toJSON) _sSMPatchBaselineRejectedPatchesAction , fmap (("Sources",) . toJSON) _sSMPatchBaselineSources ] @@ -58,6 +60,7 @@ (obj .:? "OperatingSystem") <*> (obj .:? "PatchGroups") <*> (obj .:? "RejectedPatches") <*> + (obj .:? "RejectedPatchesAction") <*> (obj .:? "Sources") parseJSON _ = mempty @@ -78,6 +81,7 @@ , _sSMPatchBaselineOperatingSystem = Nothing , _sSMPatchBaselinePatchGroups = Nothing , _sSMPatchBaselineRejectedPatches = Nothing + , _sSMPatchBaselineRejectedPatchesAction = Nothing , _sSMPatchBaselineSources = Nothing } @@ -120,6 +124,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-rejectedpatches ssmpbRejectedPatches :: Lens' SSMPatchBaseline (Maybe (ValList Text)) ssmpbRejectedPatches = lens _sSMPatchBaselineRejectedPatches (\s a -> s { _sSMPatchBaselineRejectedPatches = a }) + +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-rejectedpatchesaction +ssmpbRejectedPatchesAction :: Lens' SSMPatchBaseline (Maybe (Val Text)) +ssmpbRejectedPatchesAction = lens _sSMPatchBaselineRejectedPatchesAction (\s a -> s { _sSMPatchBaselineRejectedPatchesAction = a }) -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-sources ssmpbSources :: Lens' SSMPatchBaseline (Maybe [SSMPatchBaselinePatchSource]) diff --git a/stratosphere.cabal b/stratosphere.cabal --- a/stratosphere.cabal +++ b/stratosphere.cabal @@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack -- --- hash: 6902720cc395da955d08f5dff4d08bdd8a1ae475a06a7452c2d55b931843e4f2 +-- hash: e322b34ff8eb22429d5d71e02048122ef8a857182b1ea5f17cc4d29d7409e165 name: stratosphere -version: 0.26.1 +version: 0.26.2 synopsis: EDSL for AWS CloudFormation description: EDSL for AWS CloudFormation category: AWS, Cloud @@ -78,6 +78,15 @@ Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration + Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials + Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity + Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo + Stratosphere.ResourceProperties.AppStreamFleetVpcConfig + Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo + Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig + Stratosphere.ResourceProperties.AppStreamStackApplicationSettings + Stratosphere.ResourceProperties.AppStreamStackStorageConnector + Stratosphere.ResourceProperties.AppStreamStackUserSetting Stratosphere.ResourceProperties.AppSyncDataSourceDynamoDBConfig Stratosphere.ResourceProperties.AppSyncDataSourceElasticsearchConfig Stratosphere.ResourceProperties.AppSyncDataSourceHttpConfig @@ -396,6 +405,7 @@ Stratosphere.ResourceProperties.EMRInstanceGroupConfigVolumeSpecification Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig Stratosphere.ResourceProperties.EMRStepKeyValue + Stratosphere.ResourceProperties.EventsEventBusPolicyCondition Stratosphere.ResourceProperties.EventsRuleEcsParameters Stratosphere.ResourceProperties.EventsRuleInputTransformer Stratosphere.ResourceProperties.EventsRuleKinesisParameters @@ -678,6 +688,13 @@ Stratosphere.Resources.ApiGatewayVpcLink Stratosphere.Resources.ApplicationAutoScalingScalableTarget Stratosphere.Resources.ApplicationAutoScalingScalingPolicy + Stratosphere.Resources.AppStreamDirectoryConfig + Stratosphere.Resources.AppStreamFleet + Stratosphere.Resources.AppStreamImageBuilder + Stratosphere.Resources.AppStreamStack + Stratosphere.Resources.AppStreamStackFleetAssociation + Stratosphere.Resources.AppStreamStackUserAssociation + Stratosphere.Resources.AppStreamUser Stratosphere.Resources.AppSyncApiKey Stratosphere.Resources.AppSyncDataSource Stratosphere.Resources.AppSyncGraphQLApi @@ -810,6 +827,7 @@ Stratosphere.Resources.EMRInstanceGroupConfig Stratosphere.Resources.EMRSecurityConfiguration Stratosphere.Resources.EMRStep + Stratosphere.Resources.EventsEventBusPolicy Stratosphere.Resources.EventsRule Stratosphere.Resources.GameLiftAlias Stratosphere.Resources.GameLiftBuild