module Network.Google.Resource.TagManager.Accounts.Containers.Versions.List
(
AccountsContainersVersionsListResource
, accountsContainersVersionsList
, AccountsContainersVersionsList
, acvlContainerId
, acvlHeaders
, acvlAccountId
, acvlIncludeDeleted
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsListResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"versions" :>
QueryParam "headers" Bool :>
QueryParam "includeDeleted" Bool :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListContainerVersionsResponse
data AccountsContainersVersionsList = AccountsContainersVersionsList'
{ _acvlContainerId :: !Text
, _acvlHeaders :: !Bool
, _acvlAccountId :: !Text
, _acvlIncludeDeleted :: !Bool
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionsList
:: Text
-> Text
-> AccountsContainersVersionsList
accountsContainersVersionsList pAcvlContainerId_ pAcvlAccountId_ =
AccountsContainersVersionsList'
{ _acvlContainerId = pAcvlContainerId_
, _acvlHeaders = False
, _acvlAccountId = pAcvlAccountId_
, _acvlIncludeDeleted = False
}
acvlContainerId :: Lens' AccountsContainersVersionsList Text
acvlContainerId
= lens _acvlContainerId
(\ s a -> s{_acvlContainerId = a})
acvlHeaders :: Lens' AccountsContainersVersionsList Bool
acvlHeaders
= lens _acvlHeaders (\ s a -> s{_acvlHeaders = a})
acvlAccountId :: Lens' AccountsContainersVersionsList Text
acvlAccountId
= lens _acvlAccountId
(\ s a -> s{_acvlAccountId = a})
acvlIncludeDeleted :: Lens' AccountsContainersVersionsList Bool
acvlIncludeDeleted
= lens _acvlIncludeDeleted
(\ s a -> s{_acvlIncludeDeleted = a})
instance GoogleRequest AccountsContainersVersionsList
where
type Rs AccountsContainersVersionsList =
ListContainerVersionsResponse
type Scopes AccountsContainersVersionsList =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.edit.containerversions",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersVersionsList'{..}
= go _acvlAccountId _acvlContainerId
(Just _acvlHeaders)
(Just _acvlIncludeDeleted)
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsListResource)
mempty