module Network.Google.Resource.DFAReporting.Campaigns.Insert
(
CampaignsInsertResource
, campaignsInsert
, CampaignsInsert
, camProFileId
, camPayload
, camDefaultLandingPageURL
, camDefaultLandingPageName
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type CampaignsInsertResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"campaigns" :>
QueryParam "defaultLandingPageName" Text :>
QueryParam "defaultLandingPageUrl" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Campaign :> Post '[JSON] Campaign
data CampaignsInsert = CampaignsInsert'
{ _camProFileId :: !(Textual Int64)
, _camPayload :: !Campaign
, _camDefaultLandingPageURL :: !Text
, _camDefaultLandingPageName :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
campaignsInsert
:: Int64
-> Campaign
-> Text
-> Text
-> CampaignsInsert
campaignsInsert pCamProFileId_ pCamPayload_ pCamDefaultLandingPageURL_ pCamDefaultLandingPageName_ =
CampaignsInsert'
{ _camProFileId = _Coerce # pCamProFileId_
, _camPayload = pCamPayload_
, _camDefaultLandingPageURL = pCamDefaultLandingPageURL_
, _camDefaultLandingPageName = pCamDefaultLandingPageName_
}
camProFileId :: Lens' CampaignsInsert Int64
camProFileId
= lens _camProFileId (\ s a -> s{_camProFileId = a})
. _Coerce
camPayload :: Lens' CampaignsInsert Campaign
camPayload
= lens _camPayload (\ s a -> s{_camPayload = a})
camDefaultLandingPageURL :: Lens' CampaignsInsert Text
camDefaultLandingPageURL
= lens _camDefaultLandingPageURL
(\ s a -> s{_camDefaultLandingPageURL = a})
camDefaultLandingPageName :: Lens' CampaignsInsert Text
camDefaultLandingPageName
= lens _camDefaultLandingPageName
(\ s a -> s{_camDefaultLandingPageName = a})
instance GoogleRequest CampaignsInsert where
type Rs CampaignsInsert = Campaign
type Scopes CampaignsInsert =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient CampaignsInsert'{..}
= go _camProFileId (Just _camDefaultLandingPageName)
(Just _camDefaultLandingPageURL)
(Just AltJSON)
_camPayload
dFAReportingService
where go
= buildClient
(Proxy :: Proxy CampaignsInsertResource)
mempty