module Network.Google.Resource.DFAReporting.LandingPages.Patch
(
LandingPagesPatchResource
, landingPagesPatch
, LandingPagesPatch
, lppCampaignId
, lppProFileId
, lppPayload
, lppId
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type LandingPagesPatchResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"campaigns" :>
Capture "campaignId" (Textual Int64) :>
"landingPages" :>
QueryParam "id" (Textual Int64) :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] LandingPage :>
Patch '[JSON] LandingPage
data LandingPagesPatch = LandingPagesPatch'
{ _lppCampaignId :: !(Textual Int64)
, _lppProFileId :: !(Textual Int64)
, _lppPayload :: !LandingPage
, _lppId :: !(Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
landingPagesPatch
:: Int64
-> Int64
-> LandingPage
-> Int64
-> LandingPagesPatch
landingPagesPatch pLppCampaignId_ pLppProFileId_ pLppPayload_ pLppId_ =
LandingPagesPatch'
{ _lppCampaignId = _Coerce # pLppCampaignId_
, _lppProFileId = _Coerce # pLppProFileId_
, _lppPayload = pLppPayload_
, _lppId = _Coerce # pLppId_
}
lppCampaignId :: Lens' LandingPagesPatch Int64
lppCampaignId
= lens _lppCampaignId
(\ s a -> s{_lppCampaignId = a})
. _Coerce
lppProFileId :: Lens' LandingPagesPatch Int64
lppProFileId
= lens _lppProFileId (\ s a -> s{_lppProFileId = a})
. _Coerce
lppPayload :: Lens' LandingPagesPatch LandingPage
lppPayload
= lens _lppPayload (\ s a -> s{_lppPayload = a})
lppId :: Lens' LandingPagesPatch Int64
lppId
= lens _lppId (\ s a -> s{_lppId = a}) . _Coerce
instance GoogleRequest LandingPagesPatch where
type Rs LandingPagesPatch = LandingPage
type Scopes LandingPagesPatch =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient LandingPagesPatch'{..}
= go _lppProFileId _lppCampaignId (Just _lppId)
(Just AltJSON)
_lppPayload
dFAReportingService
where go
= buildClient
(Proxy :: Proxy LandingPagesPatchResource)
mempty