module Network.Google.Resource.TagManager.Accounts.Containers.Folders.Entities.List
(
AccountsContainersFoldersEntitiesListResource
, accountsContainersFoldersEntitiesList
, AccountsContainersFoldersEntitiesList
, acfelContainerId
, acfelFolderId
, acfelAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersFoldersEntitiesListResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"folders" :>
Capture "folderId" Text :>
"entities" :>
QueryParam "alt" AltJSON :>
Get '[JSON] FolderEntities
data AccountsContainersFoldersEntitiesList = AccountsContainersFoldersEntitiesList'
{ _acfelContainerId :: !Text
, _acfelFolderId :: !Text
, _acfelAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersFoldersEntitiesList
:: Text
-> Text
-> Text
-> AccountsContainersFoldersEntitiesList
accountsContainersFoldersEntitiesList pAcfelContainerId_ pAcfelFolderId_ pAcfelAccountId_ =
AccountsContainersFoldersEntitiesList'
{ _acfelContainerId = pAcfelContainerId_
, _acfelFolderId = pAcfelFolderId_
, _acfelAccountId = pAcfelAccountId_
}
acfelContainerId :: Lens' AccountsContainersFoldersEntitiesList Text
acfelContainerId
= lens _acfelContainerId
(\ s a -> s{_acfelContainerId = a})
acfelFolderId :: Lens' AccountsContainersFoldersEntitiesList Text
acfelFolderId
= lens _acfelFolderId
(\ s a -> s{_acfelFolderId = a})
acfelAccountId :: Lens' AccountsContainersFoldersEntitiesList Text
acfelAccountId
= lens _acfelAccountId
(\ s a -> s{_acfelAccountId = a})
instance GoogleRequest
AccountsContainersFoldersEntitiesList where
type Rs AccountsContainersFoldersEntitiesList =
FolderEntities
type Scopes AccountsContainersFoldersEntitiesList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient
AccountsContainersFoldersEntitiesList'{..}
= go _acfelAccountId _acfelContainerId _acfelFolderId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersFoldersEntitiesListResource)
mempty