module Network.Google.Resource.TagManager.Accounts.Containers.Tags.Get
(
AccountsContainersTagsGetResource
, accountsContainersTagsGet
, AccountsContainersTagsGet
, actgContainerId
, actgAccountId
, actgTagId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTagsGetResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"tags" :>
Capture "tagId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Tag
data AccountsContainersTagsGet = AccountsContainersTagsGet'
{ _actgContainerId :: !Text
, _actgAccountId :: !Text
, _actgTagId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTagsGet
:: Text
-> Text
-> Text
-> AccountsContainersTagsGet
accountsContainersTagsGet pActgContainerId_ pActgAccountId_ pActgTagId_ =
AccountsContainersTagsGet'
{ _actgContainerId = pActgContainerId_
, _actgAccountId = pActgAccountId_
, _actgTagId = pActgTagId_
}
actgContainerId :: Lens' AccountsContainersTagsGet Text
actgContainerId
= lens _actgContainerId
(\ s a -> s{_actgContainerId = a})
actgAccountId :: Lens' AccountsContainersTagsGet Text
actgAccountId
= lens _actgAccountId
(\ s a -> s{_actgAccountId = a})
actgTagId :: Lens' AccountsContainersTagsGet Text
actgTagId
= lens _actgTagId (\ s a -> s{_actgTagId = a})
instance GoogleRequest AccountsContainersTagsGet
where
type Rs AccountsContainersTagsGet = Tag
type Scopes AccountsContainersTagsGet =
'["https://www.googleapis.com/auth/tagmanager.edit.containers",
"https://www.googleapis.com/auth/tagmanager.readonly"]
requestClient AccountsContainersTagsGet'{..}
= go _actgAccountId _actgContainerId _actgTagId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersTagsGetResource)
mempty