{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.AppStream.UpdateDirectoryConfig
(
updateDirectoryConfig
, UpdateDirectoryConfig
, udcServiceAccountCredentials
, udcOrganizationalUnitDistinguishedNames
, udcDirectoryName
, updateDirectoryConfigResponse
, UpdateDirectoryConfigResponse
, udcrsDirectoryConfig
, udcrsResponseStatus
) where
import Network.AWS.AppStream.Types
import Network.AWS.AppStream.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateDirectoryConfig = UpdateDirectoryConfig'
{ _udcServiceAccountCredentials :: !(Maybe ServiceAccountCredentials)
, _udcOrganizationalUnitDistinguishedNames :: !(Maybe [Text])
, _udcDirectoryName :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
updateDirectoryConfig
:: Text
-> UpdateDirectoryConfig
updateDirectoryConfig pDirectoryName_ =
UpdateDirectoryConfig'
{ _udcServiceAccountCredentials = Nothing
, _udcOrganizationalUnitDistinguishedNames = Nothing
, _udcDirectoryName = pDirectoryName_
}
udcServiceAccountCredentials :: Lens' UpdateDirectoryConfig (Maybe ServiceAccountCredentials)
udcServiceAccountCredentials = lens _udcServiceAccountCredentials (\ s a -> s{_udcServiceAccountCredentials = a})
udcOrganizationalUnitDistinguishedNames :: Lens' UpdateDirectoryConfig [Text]
udcOrganizationalUnitDistinguishedNames = lens _udcOrganizationalUnitDistinguishedNames (\ s a -> s{_udcOrganizationalUnitDistinguishedNames = a}) . _Default . _Coerce
udcDirectoryName :: Lens' UpdateDirectoryConfig Text
udcDirectoryName = lens _udcDirectoryName (\ s a -> s{_udcDirectoryName = a})
instance AWSRequest UpdateDirectoryConfig where
type Rs UpdateDirectoryConfig =
UpdateDirectoryConfigResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
UpdateDirectoryConfigResponse' <$>
(x .?> "DirectoryConfig") <*> (pure (fromEnum s)))
instance Hashable UpdateDirectoryConfig where
instance NFData UpdateDirectoryConfig where
instance ToHeaders UpdateDirectoryConfig where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.UpdateDirectoryConfig" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateDirectoryConfig where
toJSON UpdateDirectoryConfig'{..}
= object
(catMaybes
[("ServiceAccountCredentials" .=) <$>
_udcServiceAccountCredentials,
("OrganizationalUnitDistinguishedNames" .=) <$>
_udcOrganizationalUnitDistinguishedNames,
Just ("DirectoryName" .= _udcDirectoryName)])
instance ToPath UpdateDirectoryConfig where
toPath = const "/"
instance ToQuery UpdateDirectoryConfig where
toQuery = const mempty
data UpdateDirectoryConfigResponse = UpdateDirectoryConfigResponse'
{ _udcrsDirectoryConfig :: !(Maybe DirectoryConfig)
, _udcrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
updateDirectoryConfigResponse
:: Int
-> UpdateDirectoryConfigResponse
updateDirectoryConfigResponse pResponseStatus_ =
UpdateDirectoryConfigResponse'
{_udcrsDirectoryConfig = Nothing, _udcrsResponseStatus = pResponseStatus_}
udcrsDirectoryConfig :: Lens' UpdateDirectoryConfigResponse (Maybe DirectoryConfig)
udcrsDirectoryConfig = lens _udcrsDirectoryConfig (\ s a -> s{_udcrsDirectoryConfig = a})
udcrsResponseStatus :: Lens' UpdateDirectoryConfigResponse Int
udcrsResponseStatus = lens _udcrsResponseStatus (\ s a -> s{_udcrsResponseStatus = a})
instance NFData UpdateDirectoryConfigResponse where