{-# 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.CloudDirectory.ListDirectories
(
listDirectories
, ListDirectories
, ldState
, ldNextToken
, ldMaxResults
, listDirectoriesResponse
, ListDirectoriesResponse
, ldrsNextToken
, ldrsResponseStatus
, ldrsDirectories
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListDirectories = ListDirectories'
{ _ldState :: !(Maybe DirectoryState)
, _ldNextToken :: !(Maybe Text)
, _ldMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDirectories
:: ListDirectories
listDirectories =
ListDirectories'
{_ldState = Nothing, _ldNextToken = Nothing, _ldMaxResults = Nothing}
ldState :: Lens' ListDirectories (Maybe DirectoryState)
ldState = lens _ldState (\ s a -> s{_ldState = a})
ldNextToken :: Lens' ListDirectories (Maybe Text)
ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})
ldMaxResults :: Lens' ListDirectories (Maybe Natural)
ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a}) . mapping _Nat
instance AWSPager ListDirectories where
page rq rs
| stop (rs ^. ldrsNextToken) = Nothing
| stop (rs ^. ldrsDirectories) = Nothing
| otherwise =
Just $ rq & ldNextToken .~ rs ^. ldrsNextToken
instance AWSRequest ListDirectories where
type Rs ListDirectories = ListDirectoriesResponse
request = postJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
ListDirectoriesResponse' <$>
(x .?> "NextToken") <*> (pure (fromEnum s)) <*>
(x .?> "Directories" .!@ mempty))
instance Hashable ListDirectories where
instance NFData ListDirectories where
instance ToHeaders ListDirectories where
toHeaders = const mempty
instance ToJSON ListDirectories where
toJSON ListDirectories'{..}
= object
(catMaybes
[("state" .=) <$> _ldState,
("NextToken" .=) <$> _ldNextToken,
("MaxResults" .=) <$> _ldMaxResults])
instance ToPath ListDirectories where
toPath
= const
"/amazonclouddirectory/2017-01-11/directory/list"
instance ToQuery ListDirectories where
toQuery = const mempty
data ListDirectoriesResponse = ListDirectoriesResponse'
{ _ldrsNextToken :: !(Maybe Text)
, _ldrsResponseStatus :: !Int
, _ldrsDirectories :: ![Directory]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDirectoriesResponse
:: Int
-> ListDirectoriesResponse
listDirectoriesResponse pResponseStatus_ =
ListDirectoriesResponse'
{ _ldrsNextToken = Nothing
, _ldrsResponseStatus = pResponseStatus_
, _ldrsDirectories = mempty
}
ldrsNextToken :: Lens' ListDirectoriesResponse (Maybe Text)
ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})
ldrsResponseStatus :: Lens' ListDirectoriesResponse Int
ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})
ldrsDirectories :: Lens' ListDirectoriesResponse [Directory]
ldrsDirectories = lens _ldrsDirectories (\ s a -> s{_ldrsDirectories = a}) . _Coerce
instance NFData ListDirectoriesResponse where