{-# 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.VersionHeaders.List
(
AccountsContainersVersionHeadersListResource
, accountsContainersVersionHeadersList
, AccountsContainersVersionHeadersList
, aParent
, aPageToken
, aIncludeDeleted
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionHeadersListResource =
"tagmanager" :>
"v2" :>
Capture "parent" Text :>
"version_headers" :>
QueryParam "pageToken" Text :>
QueryParam "includeDeleted" Bool :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListContainerVersionsResponse
data AccountsContainersVersionHeadersList = AccountsContainersVersionHeadersList'
{ _aParent :: !Text
, _aPageToken :: !(Maybe Text)
, _aIncludeDeleted :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionHeadersList
:: Text
-> AccountsContainersVersionHeadersList
accountsContainersVersionHeadersList pAParent_ =
AccountsContainersVersionHeadersList'
{ _aParent = pAParent_
, _aPageToken = Nothing
, _aIncludeDeleted = Nothing
}
aParent :: Lens' AccountsContainersVersionHeadersList Text
aParent = lens _aParent (\ s a -> s{_aParent = a})
aPageToken :: Lens' AccountsContainersVersionHeadersList (Maybe Text)
aPageToken
= lens _aPageToken (\ s a -> s{_aPageToken = a})
aIncludeDeleted :: Lens' AccountsContainersVersionHeadersList (Maybe Bool)
aIncludeDeleted
= lens _aIncludeDeleted
(\ s a -> s{_aIncludeDeleted = a})
instance GoogleRequest
AccountsContainersVersionHeadersList where
type Rs AccountsContainersVersionHeadersList =
ListContainerVersionsResponse
type Scopes AccountsContainersVersionHeadersList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.edit.containerversions",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient
AccountsContainersVersionHeadersList'{..}
= go _aParent _aPageToken _aIncludeDeleted
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionHeadersListResource)
mempty