module Network.Google.Resource.DFAReporting.LandingPages.Update
(
LandingPagesUpdateResource
, landingPagesUpdate
, LandingPagesUpdate
, lpuCampaignId
, lpuProFileId
, lpuPayload
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type LandingPagesUpdateResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"campaigns" :>
Capture "campaignId" (Textual Int64) :>
"landingPages" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] LandingPage :>
Put '[JSON] LandingPage
data LandingPagesUpdate = LandingPagesUpdate'
{ _lpuCampaignId :: !(Textual Int64)
, _lpuProFileId :: !(Textual Int64)
, _lpuPayload :: !LandingPage
} deriving (Eq,Show,Data,Typeable,Generic)
landingPagesUpdate
:: Int64
-> Int64
-> LandingPage
-> LandingPagesUpdate
landingPagesUpdate pLpuCampaignId_ pLpuProFileId_ pLpuPayload_ =
LandingPagesUpdate'
{ _lpuCampaignId = _Coerce # pLpuCampaignId_
, _lpuProFileId = _Coerce # pLpuProFileId_
, _lpuPayload = pLpuPayload_
}
lpuCampaignId :: Lens' LandingPagesUpdate Int64
lpuCampaignId
= lens _lpuCampaignId
(\ s a -> s{_lpuCampaignId = a})
. _Coerce
lpuProFileId :: Lens' LandingPagesUpdate Int64
lpuProFileId
= lens _lpuProFileId (\ s a -> s{_lpuProFileId = a})
. _Coerce
lpuPayload :: Lens' LandingPagesUpdate LandingPage
lpuPayload
= lens _lpuPayload (\ s a -> s{_lpuPayload = a})
instance GoogleRequest LandingPagesUpdate where
type Rs LandingPagesUpdate = LandingPage
type Scopes LandingPagesUpdate =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient LandingPagesUpdate'{..}
= go _lpuProFileId _lpuCampaignId (Just AltJSON)
_lpuPayload
dFAReportingService
where go
= buildClient
(Proxy :: Proxy LandingPagesUpdateResource)
mempty