module Network.Google.Resource.TagManager.Accounts.Containers.Versions.Get
(
AccountsContainersVersionsGetResource
, accountsContainersVersionsGet
, AccountsContainersVersionsGet
, acvgcContainerId
, acvgcContainerVersionId
, acvgcAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVersionsGetResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"versions" :>
Capture "containerVersionId" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ContainerVersion
data AccountsContainersVersionsGet = AccountsContainersVersionsGet'
{ _acvgcContainerId :: !Text
, _acvgcContainerVersionId :: !Text
, _acvgcAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVersionsGet
:: Text
-> Text
-> Text
-> AccountsContainersVersionsGet
accountsContainersVersionsGet pAcvgcContainerId_ pAcvgcContainerVersionId_ pAcvgcAccountId_ =
AccountsContainersVersionsGet'
{ _acvgcContainerId = pAcvgcContainerId_
, _acvgcContainerVersionId = pAcvgcContainerVersionId_
, _acvgcAccountId = pAcvgcAccountId_
}
acvgcContainerId :: Lens' AccountsContainersVersionsGet Text
acvgcContainerId
= lens _acvgcContainerId
(\ s a -> s{_acvgcContainerId = a})
acvgcContainerVersionId :: Lens' AccountsContainersVersionsGet Text
acvgcContainerVersionId
= lens _acvgcContainerVersionId
(\ s a -> s{_acvgcContainerVersionId = a})
acvgcAccountId :: Lens' AccountsContainersVersionsGet Text
acvgcAccountId
= lens _acvgcAccountId
(\ s a -> s{_acvgcAccountId = a})
instance GoogleRequest AccountsContainersVersionsGet
where
type Rs AccountsContainersVersionsGet =
ContainerVersion
type Scopes AccountsContainersVersionsGet =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.edit.containerversions",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersVersionsGet'{..}
= go _acvgcAccountId _acvgcContainerId
_acvgcContainerVersionId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVersionsGetResource)
mempty