{-# 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.ListObjectChildren
(
listObjectChildren
, ListObjectChildren
, locConsistencyLevel
, locNextToken
, locMaxResults
, locDirectoryARN
, locObjectReference
, listObjectChildrenResponse
, ListObjectChildrenResponse
, locrsChildren
, locrsNextToken
, locrsResponseStatus
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListObjectChildren = ListObjectChildren'
{ _locConsistencyLevel :: !(Maybe ConsistencyLevel)
, _locNextToken :: !(Maybe Text)
, _locMaxResults :: !(Maybe Nat)
, _locDirectoryARN :: !Text
, _locObjectReference :: !ObjectReference
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listObjectChildren
:: Text
-> ObjectReference
-> ListObjectChildren
listObjectChildren pDirectoryARN_ pObjectReference_ =
ListObjectChildren'
{ _locConsistencyLevel = Nothing
, _locNextToken = Nothing
, _locMaxResults = Nothing
, _locDirectoryARN = pDirectoryARN_
, _locObjectReference = pObjectReference_
}
locConsistencyLevel :: Lens' ListObjectChildren (Maybe ConsistencyLevel)
locConsistencyLevel = lens _locConsistencyLevel (\ s a -> s{_locConsistencyLevel = a})
locNextToken :: Lens' ListObjectChildren (Maybe Text)
locNextToken = lens _locNextToken (\ s a -> s{_locNextToken = a})
locMaxResults :: Lens' ListObjectChildren (Maybe Natural)
locMaxResults = lens _locMaxResults (\ s a -> s{_locMaxResults = a}) . mapping _Nat
locDirectoryARN :: Lens' ListObjectChildren Text
locDirectoryARN = lens _locDirectoryARN (\ s a -> s{_locDirectoryARN = a})
locObjectReference :: Lens' ListObjectChildren ObjectReference
locObjectReference = lens _locObjectReference (\ s a -> s{_locObjectReference = a})
instance AWSRequest ListObjectChildren where
type Rs ListObjectChildren =
ListObjectChildrenResponse
request = postJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
ListObjectChildrenResponse' <$>
(x .?> "Children" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListObjectChildren where
instance NFData ListObjectChildren where
instance ToHeaders ListObjectChildren where
toHeaders ListObjectChildren'{..}
= mconcat
["x-amz-consistency-level" =# _locConsistencyLevel,
"x-amz-data-partition" =# _locDirectoryARN]
instance ToJSON ListObjectChildren where
toJSON ListObjectChildren'{..}
= object
(catMaybes
[("NextToken" .=) <$> _locNextToken,
("MaxResults" .=) <$> _locMaxResults,
Just ("ObjectReference" .= _locObjectReference)])
instance ToPath ListObjectChildren where
toPath
= const
"/amazonclouddirectory/2017-01-11/object/children"
instance ToQuery ListObjectChildren where
toQuery = const mempty
data ListObjectChildrenResponse = ListObjectChildrenResponse'
{ _locrsChildren :: !(Maybe (Map Text Text))
, _locrsNextToken :: !(Maybe Text)
, _locrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listObjectChildrenResponse
:: Int
-> ListObjectChildrenResponse
listObjectChildrenResponse pResponseStatus_ =
ListObjectChildrenResponse'
{ _locrsChildren = Nothing
, _locrsNextToken = Nothing
, _locrsResponseStatus = pResponseStatus_
}
locrsChildren :: Lens' ListObjectChildrenResponse (HashMap Text Text)
locrsChildren = lens _locrsChildren (\ s a -> s{_locrsChildren = a}) . _Default . _Map
locrsNextToken :: Lens' ListObjectChildrenResponse (Maybe Text)
locrsNextToken = lens _locrsNextToken (\ s a -> s{_locrsNextToken = a})
locrsResponseStatus :: Lens' ListObjectChildrenResponse Int
locrsResponseStatus = lens _locrsResponseStatus (\ s a -> s{_locrsResponseStatus = a})
instance NFData ListObjectChildrenResponse where