{-# 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.List
(
AccountsContainersWorkspacesListResource
, accountsContainersWorkspacesList
, AccountsContainersWorkspacesList
, acwlParent
, acwlPageToken
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersWorkspacesListResource =
"tagmanager" :>
"v2" :>
Capture "parent" Text :>
"workspaces" :>
QueryParam "pageToken" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListWorkspacesResponse
data AccountsContainersWorkspacesList =
AccountsContainersWorkspacesList'
{ _acwlParent :: !Text
, _acwlPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
accountsContainersWorkspacesList
:: Text
-> AccountsContainersWorkspacesList
accountsContainersWorkspacesList pAcwlParent_ =
AccountsContainersWorkspacesList'
{_acwlParent = pAcwlParent_, _acwlPageToken = Nothing}
acwlParent :: Lens' AccountsContainersWorkspacesList Text
acwlParent
= lens _acwlParent (\ s a -> s{_acwlParent = a})
acwlPageToken :: Lens' AccountsContainersWorkspacesList (Maybe Text)
acwlPageToken
= lens _acwlPageToken
(\ s a -> s{_acwlPageToken = a})
instance GoogleRequest
AccountsContainersWorkspacesList
where
type Rs AccountsContainersWorkspacesList =
ListWorkspacesResponse
type Scopes AccountsContainersWorkspacesList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersWorkspacesList'{..}
= go _acwlParent _acwlPageToken (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersWorkspacesListResource)
mempty