{-# 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.DFAReporting.EventTags.Update
(
EventTagsUpdateResource
, eventTagsUpdate
, EventTagsUpdate
, etuProFileId
, etuPayload
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type EventTagsUpdateResource =
"dfareporting" :>
"v3.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"eventTags" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] EventTag :> Put '[JSON] EventTag
data EventTagsUpdate = EventTagsUpdate'
{ _etuProFileId :: !(Textual Int64)
, _etuPayload :: !EventTag
} deriving (Eq,Show,Data,Typeable,Generic)
eventTagsUpdate
:: Int64
-> EventTag
-> EventTagsUpdate
eventTagsUpdate pEtuProFileId_ pEtuPayload_ =
EventTagsUpdate'
{ _etuProFileId = _Coerce # pEtuProFileId_
, _etuPayload = pEtuPayload_
}
etuProFileId :: Lens' EventTagsUpdate Int64
etuProFileId
= lens _etuProFileId (\ s a -> s{_etuProFileId = a})
. _Coerce
etuPayload :: Lens' EventTagsUpdate EventTag
etuPayload
= lens _etuPayload (\ s a -> s{_etuPayload = a})
instance GoogleRequest EventTagsUpdate where
type Rs EventTagsUpdate = EventTag
type Scopes EventTagsUpdate =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient EventTagsUpdate'{..}
= go _etuProFileId (Just AltJSON) _etuPayload
dFAReportingService
where go
= buildClient
(Proxy :: Proxy EventTagsUpdateResource)
mempty