module Network.Google.Resource.TagManager.Accounts.Containers.Folders.List
(
AccountsContainersFoldersListResource
, accountsContainersFoldersList
, AccountsContainersFoldersList
, acflContainerId
, acflAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersFoldersListResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"folders" :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListFoldersResponse
data AccountsContainersFoldersList = AccountsContainersFoldersList'
{ _acflContainerId :: !Text
, _acflAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersFoldersList
:: Text
-> Text
-> AccountsContainersFoldersList
accountsContainersFoldersList pAcflContainerId_ pAcflAccountId_ =
AccountsContainersFoldersList'
{ _acflContainerId = pAcflContainerId_
, _acflAccountId = pAcflAccountId_
}
acflContainerId :: Lens' AccountsContainersFoldersList Text
acflContainerId
= lens _acflContainerId
(\ s a -> s{_acflContainerId = a})
acflAccountId :: Lens' AccountsContainersFoldersList Text
acflAccountId
= lens _acflAccountId
(\ s a -> s{_acflAccountId = a})
instance GoogleRequest AccountsContainersFoldersList
where
type Rs AccountsContainersFoldersList =
ListFoldersResponse
type Scopes AccountsContainersFoldersList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersFoldersList'{..}
= go _acflAccountId _acflContainerId (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersFoldersListResource)
mempty