stratosphere 0.26.1 → 0.26.2

raw patch · 23 files changed

+1324/−3 lines, 23 files

Files

CHANGELOG.md +4/−0
library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs +55/−0
library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs +44/−0
library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs +51/−0
library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs +51/−0
library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs +51/−0
library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs +51/−0
library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs +52/−0
library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs +60/−0
library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs +53/−0
library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs +59/−0
library-gen/Stratosphere/Resources.hs +50/−0
library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs +62/−0
library-gen/Stratosphere/Resources/AppStreamFleet.hs +142/−0
library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs +117/−0
library-gen/Stratosphere/Resources/AppStreamStack.hs +116/−0
library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs +53/−0
library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs +70/−0
library-gen/Stratosphere/Resources/AppStreamUser.hs +76/−0
library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs +70/−0
library-gen/Stratosphere/Resources/GuardDutyDetector.hs +9/−1
library-gen/Stratosphere/Resources/SSMPatchBaseline.hs +8/−0
stratosphere.cabal +20/−2

CHANGELOG.md view

@@ -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`

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

library-gen/Stratosphere/Resources.hs view

@@ -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")

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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 })

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

@@ -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])

stratosphere.cabal view

@@ -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