module Network.Google.Resource.TagManager.Accounts.Containers.Folders.Get
(
AccountsContainersFoldersGetResource
, accountsContainersFoldersGet
, AccountsContainersFoldersGet
, acfgContainerId
, acfgFolderId
, acfgAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersFoldersGetResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"folders" :>
Capture "folderId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Folder
data AccountsContainersFoldersGet = AccountsContainersFoldersGet'
{ _acfgContainerId :: !Text
, _acfgFolderId :: !Text
, _acfgAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersFoldersGet
:: Text
-> Text
-> Text
-> AccountsContainersFoldersGet
accountsContainersFoldersGet pAcfgContainerId_ pAcfgFolderId_ pAcfgAccountId_ =
AccountsContainersFoldersGet'
{ _acfgContainerId = pAcfgContainerId_
, _acfgFolderId = pAcfgFolderId_
, _acfgAccountId = pAcfgAccountId_
}
acfgContainerId :: Lens' AccountsContainersFoldersGet Text
acfgContainerId
= lens _acfgContainerId
(\ s a -> s{_acfgContainerId = a})
acfgFolderId :: Lens' AccountsContainersFoldersGet Text
acfgFolderId
= lens _acfgFolderId (\ s a -> s{_acfgFolderId = a})
acfgAccountId :: Lens' AccountsContainersFoldersGet Text
acfgAccountId
= lens _acfgAccountId
(\ s a -> s{_acfgAccountId = a})
instance GoogleRequest AccountsContainersFoldersGet
where
type Rs AccountsContainersFoldersGet = Folder
type Scopes AccountsContainersFoldersGet =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersFoldersGet'{..}
= go _acfgAccountId _acfgContainerId _acfgFolderId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersFoldersGetResource)
mempty