{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.TagManager.Accounts.Containers.Workspaces.Tags.Revert
(
AccountsContainersWorkspacesTagsRevertResource
, accountsContainersWorkspacesTagsRevert
, AccountsContainersWorkspacesTagsRevert
, acwtrcPath
, acwtrcFingerprint
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersWorkspacesTagsRevertResource =
"tagmanager" :>
"v2" :>
CaptureMode "path" "revert" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
Post '[JSON] RevertTagResponse
data AccountsContainersWorkspacesTagsRevert = AccountsContainersWorkspacesTagsRevert'
{ _acwtrcPath :: !Text
, _acwtrcFingerprint :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersWorkspacesTagsRevert
:: Text
-> AccountsContainersWorkspacesTagsRevert
accountsContainersWorkspacesTagsRevert pAcwtrcPath_ =
AccountsContainersWorkspacesTagsRevert'
{ _acwtrcPath = pAcwtrcPath_
, _acwtrcFingerprint = Nothing
}
acwtrcPath :: Lens' AccountsContainersWorkspacesTagsRevert Text
acwtrcPath
= lens _acwtrcPath (\ s a -> s{_acwtrcPath = a})
acwtrcFingerprint :: Lens' AccountsContainersWorkspacesTagsRevert (Maybe Text)
acwtrcFingerprint
= lens _acwtrcFingerprint
(\ s a -> s{_acwtrcFingerprint = a})
instance GoogleRequest
AccountsContainersWorkspacesTagsRevert where
type Rs AccountsContainersWorkspacesTagsRevert =
RevertTagResponse
type Scopes AccountsContainersWorkspacesTagsRevert =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersWorkspacesTagsRevert'{..}
= go _acwtrcPath _acwtrcFingerprint (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersWorkspacesTagsRevertResource)
mempty