module Network.Google.Resource.DFAReporting.Placements.Generatetags
(
PlacementsGeneratetagsResource
, placementsGeneratetags
, PlacementsGeneratetags
, pgsTagFormats
, pgsCampaignId
, pgsProFileId
, pgsPlacementIds
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type PlacementsGeneratetagsResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"placements" :>
"generatetags" :>
QueryParams "tagFormats"
PlacementsGeneratetagsTagFormats
:>
QueryParam "campaignId" (Textual Int64) :>
QueryParams "placementIds" (Textual Int64) :>
QueryParam "alt" AltJSON :>
Post '[JSON] PlacementsGenerateTagsResponse
data PlacementsGeneratetags = PlacementsGeneratetags'
{ _pgsTagFormats :: !(Maybe [PlacementsGeneratetagsTagFormats])
, _pgsCampaignId :: !(Maybe (Textual Int64))
, _pgsProFileId :: !(Textual Int64)
, _pgsPlacementIds :: !(Maybe [Textual Int64])
} deriving (Eq,Show,Data,Typeable,Generic)
placementsGeneratetags
:: Int64
-> PlacementsGeneratetags
placementsGeneratetags pPgsProFileId_ =
PlacementsGeneratetags'
{ _pgsTagFormats = Nothing
, _pgsCampaignId = Nothing
, _pgsProFileId = _Coerce # pPgsProFileId_
, _pgsPlacementIds = Nothing
}
pgsTagFormats :: Lens' PlacementsGeneratetags [PlacementsGeneratetagsTagFormats]
pgsTagFormats
= lens _pgsTagFormats
(\ s a -> s{_pgsTagFormats = a})
. _Default
. _Coerce
pgsCampaignId :: Lens' PlacementsGeneratetags (Maybe Int64)
pgsCampaignId
= lens _pgsCampaignId
(\ s a -> s{_pgsCampaignId = a})
. mapping _Coerce
pgsProFileId :: Lens' PlacementsGeneratetags Int64
pgsProFileId
= lens _pgsProFileId (\ s a -> s{_pgsProFileId = a})
. _Coerce
pgsPlacementIds :: Lens' PlacementsGeneratetags [Int64]
pgsPlacementIds
= lens _pgsPlacementIds
(\ s a -> s{_pgsPlacementIds = a})
. _Default
. _Coerce
instance GoogleRequest PlacementsGeneratetags where
type Rs PlacementsGeneratetags =
PlacementsGenerateTagsResponse
type Scopes PlacementsGeneratetags =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient PlacementsGeneratetags'{..}
= go _pgsProFileId (_pgsTagFormats ^. _Default)
_pgsCampaignId
(_pgsPlacementIds ^. _Default)
(Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy PlacementsGeneratetagsResource)
mempty