{-# 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.Zones.Update
(
AccountsContainersWorkspacesZonesUpdateResource
, accountsContainersWorkspacesZonesUpdate
, AccountsContainersWorkspacesZonesUpdate
, acwzuPath
, acwzuFingerprint
, acwzuPayload
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersWorkspacesZonesUpdateResource
=
"tagmanager" :>
"v2" :>
Capture "path" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Zone :> Put '[JSON] Zone
data AccountsContainersWorkspacesZonesUpdate =
AccountsContainersWorkspacesZonesUpdate'
{ _acwzuPath :: !Text
, _acwzuFingerprint :: !(Maybe Text)
, _acwzuPayload :: !Zone
}
deriving (Eq, Show, Data, Typeable, Generic)
accountsContainersWorkspacesZonesUpdate
:: Text
-> Zone
-> AccountsContainersWorkspacesZonesUpdate
accountsContainersWorkspacesZonesUpdate pAcwzuPath_ pAcwzuPayload_ =
AccountsContainersWorkspacesZonesUpdate'
{ _acwzuPath = pAcwzuPath_
, _acwzuFingerprint = Nothing
, _acwzuPayload = pAcwzuPayload_
}
acwzuPath :: Lens' AccountsContainersWorkspacesZonesUpdate Text
acwzuPath
= lens _acwzuPath (\ s a -> s{_acwzuPath = a})
acwzuFingerprint :: Lens' AccountsContainersWorkspacesZonesUpdate (Maybe Text)
acwzuFingerprint
= lens _acwzuFingerprint
(\ s a -> s{_acwzuFingerprint = a})
acwzuPayload :: Lens' AccountsContainersWorkspacesZonesUpdate Zone
acwzuPayload
= lens _acwzuPayload (\ s a -> s{_acwzuPayload = a})
instance GoogleRequest
AccountsContainersWorkspacesZonesUpdate
where
type Rs AccountsContainersWorkspacesZonesUpdate =
Zone
type Scopes AccountsContainersWorkspacesZonesUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient
AccountsContainersWorkspacesZonesUpdate'{..}
= go _acwzuPath _acwzuFingerprint (Just AltJSON)
_acwzuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy
AccountsContainersWorkspacesZonesUpdateResource)
mempty