{-# 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.UserPermissions.List
(
AccountsUserPermissionsListResource
, accountsUserPermissionsList
, AccountsUserPermissionsList
, auplParent
, auplPageToken
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsUserPermissionsListResource =
"tagmanager" :>
"v2" :>
Capture "parent" Text :>
"user_permissions" :>
QueryParam "pageToken" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListUserPermissionsResponse
data AccountsUserPermissionsList =
AccountsUserPermissionsList'
{ _auplParent :: !Text
, _auplPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
accountsUserPermissionsList
:: Text
-> AccountsUserPermissionsList
accountsUserPermissionsList pAuplParent_ =
AccountsUserPermissionsList'
{_auplParent = pAuplParent_, _auplPageToken = Nothing}
auplParent :: Lens' AccountsUserPermissionsList Text
auplParent
= lens _auplParent (\ s a -> s{_auplParent = a})
auplPageToken :: Lens' AccountsUserPermissionsList (Maybe Text)
auplPageToken
= lens _auplPageToken
(\ s a -> s{_auplPageToken = a})
instance GoogleRequest AccountsUserPermissionsList
where
type Rs AccountsUserPermissionsList =
ListUserPermissionsResponse
type Scopes AccountsUserPermissionsList =
'["https://www.googleapis.com/auth/tagmanager.manage.users"]
requestClient AccountsUserPermissionsList'{..}
= go _auplParent _auplPageToken (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsUserPermissionsListResource)
mempty