AppStreamDirectoryConfig.hs

{-# 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 })