{-# 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.Environments.List
(
AccountsContainersEnvironmentsListResource
, accountsContainersEnvironmentsList
, AccountsContainersEnvironmentsList
, acelParent
, acelPageToken
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersEnvironmentsListResource =
"tagmanager" :>
"v2" :>
Capture "parent" Text :>
"environments" :>
QueryParam "pageToken" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListEnvironmentsResponse
data AccountsContainersEnvironmentsList =
AccountsContainersEnvironmentsList'
{ _acelParent :: !Text
, _acelPageToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
accountsContainersEnvironmentsList
:: Text
-> AccountsContainersEnvironmentsList
accountsContainersEnvironmentsList pAcelParent_ =
AccountsContainersEnvironmentsList'
{_acelParent = pAcelParent_, _acelPageToken = Nothing}
acelParent :: Lens' AccountsContainersEnvironmentsList Text
acelParent
= lens _acelParent (\ s a -> s{_acelParent = a})
acelPageToken :: Lens' AccountsContainersEnvironmentsList (Maybe Text)
acelPageToken
= lens _acelPageToken
(\ s a -> s{_acelPageToken = a})
instance GoogleRequest
AccountsContainersEnvironmentsList
where
type Rs AccountsContainersEnvironmentsList =
ListEnvironmentsResponse
type Scopes AccountsContainersEnvironmentsList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersEnvironmentsList'{..}
= go _acelParent _acelPageToken (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersEnvironmentsListResource)
mempty