{-# 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.DescribeDirectoryConfigs
(
describeDirectoryConfigs
, DescribeDirectoryConfigs
, ddcNextToken
, ddcDirectoryNames
, ddcMaxResults
, describeDirectoryConfigsResponse
, DescribeDirectoryConfigsResponse
, ddcrsNextToken
, ddcrsDirectoryConfigs
, ddcrsResponseStatus
) 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 DescribeDirectoryConfigs = DescribeDirectoryConfigs'
{ _ddcNextToken :: !(Maybe Text)
, _ddcDirectoryNames :: !(Maybe [Text])
, _ddcMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDirectoryConfigs
:: DescribeDirectoryConfigs
describeDirectoryConfigs =
DescribeDirectoryConfigs'
{ _ddcNextToken = Nothing
, _ddcDirectoryNames = Nothing
, _ddcMaxResults = Nothing
}
ddcNextToken :: Lens' DescribeDirectoryConfigs (Maybe Text)
ddcNextToken = lens _ddcNextToken (\ s a -> s{_ddcNextToken = a})
ddcDirectoryNames :: Lens' DescribeDirectoryConfigs [Text]
ddcDirectoryNames = lens _ddcDirectoryNames (\ s a -> s{_ddcDirectoryNames = a}) . _Default . _Coerce
ddcMaxResults :: Lens' DescribeDirectoryConfigs (Maybe Int)
ddcMaxResults = lens _ddcMaxResults (\ s a -> s{_ddcMaxResults = a})
instance AWSRequest DescribeDirectoryConfigs where
type Rs DescribeDirectoryConfigs =
DescribeDirectoryConfigsResponse
request = postJSON appStream
response
= receiveJSON
(\ s h x ->
DescribeDirectoryConfigsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "DirectoryConfigs" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeDirectoryConfigs where
instance NFData DescribeDirectoryConfigs where
instance ToHeaders DescribeDirectoryConfigs where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.DescribeDirectoryConfigs"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeDirectoryConfigs where
toJSON DescribeDirectoryConfigs'{..}
= object
(catMaybes
[("NextToken" .=) <$> _ddcNextToken,
("DirectoryNames" .=) <$> _ddcDirectoryNames,
("MaxResults" .=) <$> _ddcMaxResults])
instance ToPath DescribeDirectoryConfigs where
toPath = const "/"
instance ToQuery DescribeDirectoryConfigs where
toQuery = const mempty
data DescribeDirectoryConfigsResponse = DescribeDirectoryConfigsResponse'
{ _ddcrsNextToken :: !(Maybe Text)
, _ddcrsDirectoryConfigs :: !(Maybe [DirectoryConfig])
, _ddcrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeDirectoryConfigsResponse
:: Int
-> DescribeDirectoryConfigsResponse
describeDirectoryConfigsResponse pResponseStatus_ =
DescribeDirectoryConfigsResponse'
{ _ddcrsNextToken = Nothing
, _ddcrsDirectoryConfigs = Nothing
, _ddcrsResponseStatus = pResponseStatus_
}
ddcrsNextToken :: Lens' DescribeDirectoryConfigsResponse (Maybe Text)
ddcrsNextToken = lens _ddcrsNextToken (\ s a -> s{_ddcrsNextToken = a})
ddcrsDirectoryConfigs :: Lens' DescribeDirectoryConfigsResponse [DirectoryConfig]
ddcrsDirectoryConfigs = lens _ddcrsDirectoryConfigs (\ s a -> s{_ddcrsDirectoryConfigs = a}) . _Default . _Coerce
ddcrsResponseStatus :: Lens' DescribeDirectoryConfigsResponse Int
ddcrsResponseStatus = lens _ddcrsResponseStatus (\ s a -> s{_ddcrsResponseStatus = a})
instance NFData DescribeDirectoryConfigsResponse
where