{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.TagManager.Accounts.Containers.Workspaces.Folders.List
(
AccountsContainersWorkspacesFoldersListResource
, accountsContainersWorkspacesFoldersList
, AccountsContainersWorkspacesFoldersList
, acwflParent
, acwflPageToken
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersWorkspacesFoldersListResource
=
"tagmanager" :>
"v2" :>
Capture "parent" Text :>
"folders" :>
QueryParam "pageToken" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListFoldersResponse
data AccountsContainersWorkspacesFoldersList = AccountsContainersWorkspacesFoldersList'
{ _acwflParent :: !Text
, _acwflPageToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersWorkspacesFoldersList
:: Text
-> AccountsContainersWorkspacesFoldersList
accountsContainersWorkspacesFoldersList pAcwflParent_ =
AccountsContainersWorkspacesFoldersList'
{ _acwflParent = pAcwflParent_
, _acwflPageToken = Nothing
}
acwflParent :: Lens' AccountsContainersWorkspacesFoldersList Text
acwflParent
= lens _acwflParent (\ s a -> s{_acwflParent = a})
acwflPageToken :: Lens' AccountsContainersWorkspacesFoldersList (Maybe Text)
acwflPageToken
= lens _acwflPageToken
(\ s a -> s{_acwflPageToken = a})
instance GoogleRequest
AccountsContainersWorkspacesFoldersList where
type Rs AccountsContainersWorkspacesFoldersList =
ListFoldersResponse
type Scopes AccountsContainersWorkspacesFoldersList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient
AccountsContainersWorkspacesFoldersList'{..}
= go _acwflParent _acwflPageToken (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy
AccountsContainersWorkspacesFoldersListResource)
mempty