module Network.Google.Resource.TagManager.Accounts.Containers.Tags.Delete
(
AccountsContainersTagsDeleteResource
, accountsContainersTagsDelete
, AccountsContainersTagsDelete
, actdcContainerId
, actdcAccountId
, actdcTagId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTagsDeleteResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"tags" :>
Capture "tagId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data AccountsContainersTagsDelete = AccountsContainersTagsDelete'
{ _actdcContainerId :: !Text
, _actdcAccountId :: !Text
, _actdcTagId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTagsDelete
:: Text
-> Text
-> Text
-> AccountsContainersTagsDelete
accountsContainersTagsDelete pActdcContainerId_ pActdcAccountId_ pActdcTagId_ =
AccountsContainersTagsDelete'
{ _actdcContainerId = pActdcContainerId_
, _actdcAccountId = pActdcAccountId_
, _actdcTagId = pActdcTagId_
}
actdcContainerId :: Lens' AccountsContainersTagsDelete Text
actdcContainerId
= lens _actdcContainerId
(\ s a -> s{_actdcContainerId = a})
actdcAccountId :: Lens' AccountsContainersTagsDelete Text
actdcAccountId
= lens _actdcAccountId
(\ s a -> s{_actdcAccountId = a})
actdcTagId :: Lens' AccountsContainersTagsDelete Text
actdcTagId
= lens _actdcTagId (\ s a -> s{_actdcTagId = a})
instance GoogleRequest AccountsContainersTagsDelete
where
type Rs AccountsContainersTagsDelete = ()
type Scopes AccountsContainersTagsDelete =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersTagsDelete'{..}
= go _actdcAccountId _actdcContainerId _actdcTagId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy :: Proxy AccountsContainersTagsDeleteResource)
mempty