module Network.Google.Resource.DFAReporting.LandingPages.Get
(
LandingPagesGetResource
, landingPagesGet
, LandingPagesGet
, lpgCampaignId
, lpgProFileId
, lpgId
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type LandingPagesGetResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"campaigns" :>
Capture "campaignId" (Textual Int64) :>
"landingPages" :>
Capture "id" (Textual Int64) :>
QueryParam "alt" AltJSON :> Get '[JSON] LandingPage
data LandingPagesGet = LandingPagesGet'
{ _lpgCampaignId :: !(Textual Int64)
, _lpgProFileId :: !(Textual Int64)
, _lpgId :: !(Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
landingPagesGet
:: Int64
-> Int64
-> Int64
-> LandingPagesGet
landingPagesGet pLpgCampaignId_ pLpgProFileId_ pLpgId_ =
LandingPagesGet'
{ _lpgCampaignId = _Coerce # pLpgCampaignId_
, _lpgProFileId = _Coerce # pLpgProFileId_
, _lpgId = _Coerce # pLpgId_
}
lpgCampaignId :: Lens' LandingPagesGet Int64
lpgCampaignId
= lens _lpgCampaignId
(\ s a -> s{_lpgCampaignId = a})
. _Coerce
lpgProFileId :: Lens' LandingPagesGet Int64
lpgProFileId
= lens _lpgProFileId (\ s a -> s{_lpgProFileId = a})
. _Coerce
lpgId :: Lens' LandingPagesGet Int64
lpgId
= lens _lpgId (\ s a -> s{_lpgId = a}) . _Coerce
instance GoogleRequest LandingPagesGet where
type Rs LandingPagesGet = LandingPage
type Scopes LandingPagesGet =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient LandingPagesGet'{..}
= go _lpgProFileId _lpgCampaignId _lpgId
(Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy LandingPagesGetResource)
mempty