module Network.Google.Resource.TagManager.Accounts.Containers.Triggers.Update
(
AccountsContainersTriggersUpdateResource
, accountsContainersTriggersUpdate
, AccountsContainersTriggersUpdate
, actuContainerId
, actuTriggerId
, actuFingerprint
, actuPayload
, actuAccountId
) where
import Network.Google.Prelude
import Network.Google.TagManager.Types
type AccountsContainersTriggersUpdateResource =
"tagmanager" :>
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"containers" :>
Capture "containerId" Text :>
"triggers" :>
Capture "triggerId" Text :>
QueryParam "fingerprint" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Trigger :> Put '[JSON] Trigger
data AccountsContainersTriggersUpdate = AccountsContainersTriggersUpdate'
{ _actuContainerId :: !Text
, _actuTriggerId :: !Text
, _actuFingerprint :: !(Maybe Text)
, _actuPayload :: !Trigger
, _actuAccountId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
accountsContainersTriggersUpdate
:: Text
-> Text
-> Trigger
-> Text
-> AccountsContainersTriggersUpdate
accountsContainersTriggersUpdate pActuContainerId_ pActuTriggerId_ pActuPayload_ pActuAccountId_ =
AccountsContainersTriggersUpdate'
{ _actuContainerId = pActuContainerId_
, _actuTriggerId = pActuTriggerId_
, _actuFingerprint = Nothing
, _actuPayload = pActuPayload_
, _actuAccountId = pActuAccountId_
}
actuContainerId :: Lens' AccountsContainersTriggersUpdate Text
actuContainerId
= lens _actuContainerId
(\ s a -> s{_actuContainerId = a})
actuTriggerId :: Lens' AccountsContainersTriggersUpdate Text
actuTriggerId
= lens _actuTriggerId
(\ s a -> s{_actuTriggerId = a})
actuFingerprint :: Lens' AccountsContainersTriggersUpdate (Maybe Text)
actuFingerprint
= lens _actuFingerprint
(\ s a -> s{_actuFingerprint = a})
actuPayload :: Lens' AccountsContainersTriggersUpdate Trigger
actuPayload
= lens _actuPayload (\ s a -> s{_actuPayload = a})
actuAccountId :: Lens' AccountsContainersTriggersUpdate Text
actuAccountId
= lens _actuAccountId
(\ s a -> s{_actuAccountId = a})
instance GoogleRequest
AccountsContainersTriggersUpdate where
type Rs AccountsContainersTriggersUpdate = Trigger
type Scopes AccountsContainersTriggersUpdate =
'["https://www.googleapis.com/auth/tagmanager.edit.containers"]
requestClient AccountsContainersTriggersUpdate'{..}
= go _actuAccountId _actuContainerId _actuTriggerId
_actuFingerprint
(Just AltJSON)
_actuPayload
tagManagerService
where go
= buildClient
(Proxy ::
Proxy AccountsContainersTriggersUpdateResource)
mempty