{-# 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.BuiltInVariables.Revert
(
AccountsContainersWorkspacesBuiltInVariablesRevertResource
, accountsContainersWorkspacesBuiltInVariablesRevert
, AccountsContainersWorkspacesBuiltInVariablesRevert
, acwbivrPath
, acwbivrType
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersWorkspacesBuiltInVariablesRevertResource
=
"tagmanager" :>
"v2" :>
Capture "path" Text :>
"built_in_variables:revert" :>
QueryParam "type"
AccountsContainersWorkspacesBuilt_in_variablesRevertType
:>
QueryParam "alt" AltJSON :>
Post '[JSON] RevertBuiltInVariableResponse
data AccountsContainersWorkspacesBuiltInVariablesRevert = AccountsContainersWorkspacesBuiltInVariablesRevert'
{ _acwbivrPath :: !Text
, _acwbivrType :: !(Maybe AccountsContainersWorkspacesBuilt_in_variablesRevertType)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersWorkspacesBuiltInVariablesRevert
:: Text
-> AccountsContainersWorkspacesBuiltInVariablesRevert
accountsContainersWorkspacesBuiltInVariablesRevert pAcwbivrPath_ =
AccountsContainersWorkspacesBuiltInVariablesRevert'
{ _acwbivrPath = pAcwbivrPath_
, _acwbivrType = Nothing
}
acwbivrPath :: Lens' AccountsContainersWorkspacesBuiltInVariablesRevert Text
acwbivrPath
= lens _acwbivrPath (\ s a -> s{_acwbivrPath = a})
acwbivrType :: Lens' AccountsContainersWorkspacesBuiltInVariablesRevert (Maybe AccountsContainersWorkspacesBuilt_in_variablesRevertType)
acwbivrType
= lens _acwbivrType (\ s a -> s{_acwbivrType = a})
instance GoogleRequest
AccountsContainersWorkspacesBuiltInVariablesRevert
where
type Rs
AccountsContainersWorkspacesBuiltInVariablesRevert
= RevertBuiltInVariableResponse
type Scopes
AccountsContainersWorkspacesBuiltInVariablesRevert
=
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersWorkspacesBuiltInVariablesRevert'{..}
= go _acwbivrPath _acwbivrType (Just AltJSON)
tagManagerService
where go
= buildClient
(Proxy ::
Proxy
AccountsContainersWorkspacesBuiltInVariablesRevertResource)
mempty