module Network.Google.Resource.TagManager.Accounts.Containers.Environments.Delete
(
AccountsContainersEnvironmentsDeleteResource
, accountsContainersEnvironmentsDelete
, AccountsContainersEnvironmentsDelete
, acedContainerId
, acedAccountId
, acedEnvironmentId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersEnvironmentsDeleteResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"environments" :>
Capture "environmentId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data AccountsContainersEnvironmentsDelete = AccountsContainersEnvironmentsDelete'
{ _acedContainerId :: !Text
, _acedAccountId :: !Text
, _acedEnvironmentId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersEnvironmentsDelete
:: Text
-> Text
-> Text
-> AccountsContainersEnvironmentsDelete
accountsContainersEnvironmentsDelete pAcedContainerId_ pAcedAccountId_ pAcedEnvironmentId_ =
AccountsContainersEnvironmentsDelete'
{ _acedContainerId = pAcedContainerId_
, _acedAccountId = pAcedAccountId_
, _acedEnvironmentId = pAcedEnvironmentId_
}
acedContainerId :: Lens' AccountsContainersEnvironmentsDelete Text
acedContainerId
= lens _acedContainerId
(\ s a -> s{_acedContainerId = a})
acedAccountId :: Lens' AccountsContainersEnvironmentsDelete Text
acedAccountId
= lens _acedAccountId
(\ s a -> s{_acedAccountId = a})
acedEnvironmentId :: Lens' AccountsContainersEnvironmentsDelete Text
acedEnvironmentId
= lens _acedEnvironmentId
(\ s a -> s{_acedEnvironmentId = a})
instance GoogleRequest
AccountsContainersEnvironmentsDelete where
type Rs AccountsContainersEnvironmentsDelete = ()
type Scopes AccountsContainersEnvironmentsDelete =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersEnvironmentsDelete'{..}
= go _acedAccountId _acedContainerId
_acedEnvironmentId
(Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersEnvironmentsDeleteResource)
mempty