{-# 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.Tags.List
(
AccountsContainersWorkspacesTagsListResource
, accountsContainersWorkspacesTagsList
, AccountsContainersWorkspacesTagsList
, acwtlParent
, acwtlPageToken
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersWorkspacesTagsListResource =
"tagmanager" :>
"v2" :>
Capture "parent" Text :>
"tags" :>
QueryParam "pageToken" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListTagsResponse
data AccountsContainersWorkspacesTagsList = AccountsContainersWorkspacesTagsList'
{ _acwtlParent :: !Text
, _acwtlPageToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersWorkspacesTagsList
:: Text
-> AccountsContainersWorkspacesTagsList
accountsContainersWorkspacesTagsList pAcwtlParent_ =
AccountsContainersWorkspacesTagsList'
{ _acwtlParent = pAcwtlParent_
, _acwtlPageToken = Nothing
}
acwtlParent :: Lens' AccountsContainersWorkspacesTagsList Text
acwtlParent
= lens _acwtlParent (\ s a -> s{_acwtlParent = a})
acwtlPageToken :: Lens' AccountsContainersWorkspacesTagsList (Maybe Text)
acwtlPageToken
= lens _acwtlPageToken
(\ s a -> s{_acwtlPageToken = a})
instance GoogleRequest
AccountsContainersWorkspacesTagsList where
type Rs AccountsContainersWorkspacesTagsList =
ListTagsResponse
type Scopes AccountsContainersWorkspacesTagsList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient
AccountsContainersWorkspacesTagsList'{..}
= go _acwtlParent _acwtlPageToken (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersWorkspacesTagsListResource)
mempty