{-# 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.FloodlightActivityGroups.Update
(
FloodlightActivityGroupsUpdateResource
, floodlightActivityGroupsUpdate
, FloodlightActivityGroupsUpdate
, faguProFileId
, faguPayload
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type FloodlightActivityGroupsUpdateResource =
"dfareporting" :>
"v3.3" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"floodlightActivityGroups" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] FloodlightActivityGroup :>
Put '[JSON] FloodlightActivityGroup
data FloodlightActivityGroupsUpdate =
FloodlightActivityGroupsUpdate'
{ _faguProFileId :: !(Textual Int64)
, _faguPayload :: !FloodlightActivityGroup
}
deriving (Eq, Show, Data, Typeable, Generic)
floodlightActivityGroupsUpdate
:: Int64
-> FloodlightActivityGroup
-> FloodlightActivityGroupsUpdate
floodlightActivityGroupsUpdate pFaguProFileId_ pFaguPayload_ =
FloodlightActivityGroupsUpdate'
{_faguProFileId = _Coerce # pFaguProFileId_, _faguPayload = pFaguPayload_}
faguProFileId :: Lens' FloodlightActivityGroupsUpdate Int64
faguProFileId
= lens _faguProFileId
(\ s a -> s{_faguProFileId = a})
. _Coerce
faguPayload :: Lens' FloodlightActivityGroupsUpdate FloodlightActivityGroup
faguPayload
= lens _faguPayload (\ s a -> s{_faguPayload = a})
instance GoogleRequest FloodlightActivityGroupsUpdate
where
type Rs FloodlightActivityGroupsUpdate =
FloodlightActivityGroup
type Scopes FloodlightActivityGroupsUpdate =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient FloodlightActivityGroupsUpdate'{..}
= go _faguProFileId (Just AltJSON) _faguPayload
dFAReportingService
where go
= buildClient
(Proxy ::
Proxy FloodlightActivityGroupsUpdateResource)
mempty