{-# 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.ListObjectParents
(
listObjectParents
, ListObjectParents
, lopConsistencyLevel
, lopNextToken
, lopMaxResults
, lopDirectoryARN
, lopObjectReference
, listObjectParentsResponse
, ListObjectParentsResponse
, lrsNextToken
, lrsParents
, lrsResponseStatus
) 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 ListObjectParents = ListObjectParents'
{ _lopConsistencyLevel :: !(Maybe ConsistencyLevel)
, _lopNextToken :: !(Maybe Text)
, _lopMaxResults :: !(Maybe Nat)
, _lopDirectoryARN :: !Text
, _lopObjectReference :: !ObjectReference
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listObjectParents
:: Text
-> ObjectReference
-> ListObjectParents
listObjectParents pDirectoryARN_ pObjectReference_ =
ListObjectParents'
{ _lopConsistencyLevel = Nothing
, _lopNextToken = Nothing
, _lopMaxResults = Nothing
, _lopDirectoryARN = pDirectoryARN_
, _lopObjectReference = pObjectReference_
}
lopConsistencyLevel :: Lens' ListObjectParents (Maybe ConsistencyLevel)
lopConsistencyLevel = lens _lopConsistencyLevel (\ s a -> s{_lopConsistencyLevel = a})
lopNextToken :: Lens' ListObjectParents (Maybe Text)
lopNextToken = lens _lopNextToken (\ s a -> s{_lopNextToken = a})
lopMaxResults :: Lens' ListObjectParents (Maybe Natural)
lopMaxResults = lens _lopMaxResults (\ s a -> s{_lopMaxResults = a}) . mapping _Nat
lopDirectoryARN :: Lens' ListObjectParents Text
lopDirectoryARN = lens _lopDirectoryARN (\ s a -> s{_lopDirectoryARN = a})
lopObjectReference :: Lens' ListObjectParents ObjectReference
lopObjectReference = lens _lopObjectReference (\ s a -> s{_lopObjectReference = a})
instance AWSRequest ListObjectParents where
type Rs ListObjectParents = ListObjectParentsResponse
request = postJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
ListObjectParentsResponse' <$>
(x .?> "NextToken") <*> (x .?> "Parents" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListObjectParents where
instance NFData ListObjectParents where
instance ToHeaders ListObjectParents where
toHeaders ListObjectParents'{..}
= mconcat
["x-amz-consistency-level" =# _lopConsistencyLevel,
"x-amz-data-partition" =# _lopDirectoryARN]
instance ToJSON ListObjectParents where
toJSON ListObjectParents'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lopNextToken,
("MaxResults" .=) <$> _lopMaxResults,
Just ("ObjectReference" .= _lopObjectReference)])
instance ToPath ListObjectParents where
toPath
= const
"/amazonclouddirectory/2017-01-11/object/parent"
instance ToQuery ListObjectParents where
toQuery = const mempty
data ListObjectParentsResponse = ListObjectParentsResponse'
{ _lrsNextToken :: !(Maybe Text)
, _lrsParents :: !(Maybe (Map Text Text))
, _lrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listObjectParentsResponse
:: Int
-> ListObjectParentsResponse
listObjectParentsResponse pResponseStatus_ =
ListObjectParentsResponse'
{ _lrsNextToken = Nothing
, _lrsParents = Nothing
, _lrsResponseStatus = pResponseStatus_
}
lrsNextToken :: Lens' ListObjectParentsResponse (Maybe Text)
lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a})
lrsParents :: Lens' ListObjectParentsResponse (HashMap Text Text)
lrsParents = lens _lrsParents (\ s a -> s{_lrsParents = a}) . _Default . _Map
lrsResponseStatus :: Lens' ListObjectParentsResponse Int
lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})
instance NFData ListObjectParentsResponse where