{-# 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.WorkDocs.DescribeRootFolders
(
describeRootFolders
, DescribeRootFolders
, drfMarker
, drfLimit
, drfAuthenticationToken
, describeRootFoldersResponse
, DescribeRootFoldersResponse
, drfrsFolders
, drfrsMarker
, drfrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkDocs.Types
import Network.AWS.WorkDocs.Types.Product
data DescribeRootFolders = DescribeRootFolders'
{ _drfMarker :: !(Maybe Text)
, _drfLimit :: !(Maybe Nat)
, _drfAuthenticationToken :: !(Sensitive Text)
} deriving (Eq, Show, Data, Typeable, Generic)
describeRootFolders
:: Text
-> DescribeRootFolders
describeRootFolders pAuthenticationToken_ =
DescribeRootFolders'
{ _drfMarker = Nothing
, _drfLimit = Nothing
, _drfAuthenticationToken = _Sensitive # pAuthenticationToken_
}
drfMarker :: Lens' DescribeRootFolders (Maybe Text)
drfMarker = lens _drfMarker (\ s a -> s{_drfMarker = a})
drfLimit :: Lens' DescribeRootFolders (Maybe Natural)
drfLimit = lens _drfLimit (\ s a -> s{_drfLimit = a}) . mapping _Nat
drfAuthenticationToken :: Lens' DescribeRootFolders Text
drfAuthenticationToken = lens _drfAuthenticationToken (\ s a -> s{_drfAuthenticationToken = a}) . _Sensitive
instance AWSRequest DescribeRootFolders where
type Rs DescribeRootFolders =
DescribeRootFoldersResponse
request = get workDocs
response
= receiveJSON
(\ s h x ->
DescribeRootFoldersResponse' <$>
(x .?> "Folders" .!@ mempty) <*> (x .?> "Marker") <*>
(pure (fromEnum s)))
instance Hashable DescribeRootFolders where
instance NFData DescribeRootFolders where
instance ToHeaders DescribeRootFolders where
toHeaders DescribeRootFolders'{..}
= mconcat
["Authentication" =# _drfAuthenticationToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToPath DescribeRootFolders where
toPath = const "/api/v1/me/root"
instance ToQuery DescribeRootFolders where
toQuery DescribeRootFolders'{..}
= mconcat
["marker" =: _drfMarker, "limit" =: _drfLimit]
data DescribeRootFoldersResponse = DescribeRootFoldersResponse'
{ _drfrsFolders :: !(Maybe [FolderMetadata])
, _drfrsMarker :: !(Maybe Text)
, _drfrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeRootFoldersResponse
:: Int
-> DescribeRootFoldersResponse
describeRootFoldersResponse pResponseStatus_ =
DescribeRootFoldersResponse'
{ _drfrsFolders = Nothing
, _drfrsMarker = Nothing
, _drfrsResponseStatus = pResponseStatus_
}
drfrsFolders :: Lens' DescribeRootFoldersResponse [FolderMetadata]
drfrsFolders = lens _drfrsFolders (\ s a -> s{_drfrsFolders = a}) . _Default . _Coerce
drfrsMarker :: Lens' DescribeRootFoldersResponse (Maybe Text)
drfrsMarker = lens _drfrsMarker (\ s a -> s{_drfrsMarker = a})
drfrsResponseStatus :: Lens' DescribeRootFoldersResponse Int
drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a})
instance NFData DescribeRootFoldersResponse where