module Network.Google.Resource.TagManager.Accounts.Containers.Environments.List
(
AccountsContainersEnvironmentsListResource
, accountsContainersEnvironmentsList
, AccountsContainersEnvironmentsList
, acelContainerId
, acelAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersEnvironmentsListResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"environments" :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListEnvironmentsResponse
data AccountsContainersEnvironmentsList = AccountsContainersEnvironmentsList'
{ _acelContainerId :: !Text
, _acelAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersEnvironmentsList
:: Text
-> Text
-> AccountsContainersEnvironmentsList
accountsContainersEnvironmentsList pAcelContainerId_ pAcelAccountId_ =
AccountsContainersEnvironmentsList'
{ _acelContainerId = pAcelContainerId_
, _acelAccountId = pAcelAccountId_
}
acelContainerId :: Lens' AccountsContainersEnvironmentsList Text
acelContainerId
= lens _acelContainerId
(\ s a -> s{_acelContainerId = a})
acelAccountId :: Lens' AccountsContainersEnvironmentsList Text
acelAccountId
= lens _acelAccountId
(\ s a -> s{_acelAccountId = 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 _acelAccountId _acelContainerId (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersEnvironmentsListResource)
mempty