module Network.Google.Resource.TagManager.Accounts.Containers.Variables.Update
(
AccountsContainersVariablesUpdateResource
, accountsContainersVariablesUpdate
, AccountsContainersVariablesUpdate
, acvuContainerId
, acvuFingerprint
, acvuVariableId
, acvuPayload
, acvuAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersVariablesUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"variables" :>
Capture "variableId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Variable :> Put '[JSON] Variable
data AccountsContainersVariablesUpdate = AccountsContainersVariablesUpdate'
{ _acvuContainerId :: !Text
, _acvuFingerprint :: !(Maybe Text)
, _acvuVariableId :: !Text
, _acvuPayload :: !Variable
, _acvuAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersVariablesUpdate
:: Text
-> Text
-> Variable
-> Text
-> AccountsContainersVariablesUpdate
accountsContainersVariablesUpdate pAcvuContainerId_ pAcvuVariableId_ pAcvuPayload_ pAcvuAccountId_ =
AccountsContainersVariablesUpdate'
{ _acvuContainerId = pAcvuContainerId_
, _acvuFingerprint = Nothing
, _acvuVariableId = pAcvuVariableId_
, _acvuPayload = pAcvuPayload_
, _acvuAccountId = pAcvuAccountId_
}
acvuContainerId :: Lens' AccountsContainersVariablesUpdate Text
acvuContainerId
= lens _acvuContainerId
(\ s a -> s{_acvuContainerId = a})
acvuFingerprint :: Lens' AccountsContainersVariablesUpdate (Maybe Text)
acvuFingerprint
= lens _acvuFingerprint
(\ s a -> s{_acvuFingerprint = a})
acvuVariableId :: Lens' AccountsContainersVariablesUpdate Text
acvuVariableId
= lens _acvuVariableId
(\ s a -> s{_acvuVariableId = a})
acvuPayload :: Lens' AccountsContainersVariablesUpdate Variable
acvuPayload
= lens _acvuPayload (\ s a -> s{_acvuPayload = a})
acvuAccountId :: Lens' AccountsContainersVariablesUpdate Text
acvuAccountId
= lens _acvuAccountId
(\ s a -> s{_acvuAccountId = a})
instance GoogleRequest
AccountsContainersVariablesUpdate where
type Rs AccountsContainersVariablesUpdate = Variable
type Scopes AccountsContainersVariablesUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersVariablesUpdate'{..}
= go _acvuAccountId _acvuContainerId _acvuVariableId
_acvuFingerprint
(Just AltJSON)
_acvuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersVariablesUpdateResource)
mempty