module Network.Google.Resource.DFAReporting.EventTags.List
(
EventTagsListResource
, eventTagsList
, EventTagsList
, etlDefinitionsOnly
, etlEventTagTypes
, etlEnabled
, etlAdvertiserId
, etlSearchString
, etlCampaignId
, etlIds
, etlProFileId
, etlSortOrder
, etlAdId
, etlSortField
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type EventTagsListResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"eventTags" :>
QueryParam "definitionsOnly" Bool :>
QueryParams "eventTagTypes"
EventTagsListEventTagTypes
:>
QueryParam "enabled" Bool :>
QueryParam "advertiserId" (Textual Int64) :>
QueryParam "searchString" Text :>
QueryParam "campaignId" (Textual Int64) :>
QueryParams "ids" (Textual Int64) :>
QueryParam "sortOrder" EventTagsListSortOrder :>
QueryParam "adId" (Textual Int64) :>
QueryParam "sortField" EventTagsListSortField
:>
QueryParam "alt" AltJSON :>
Get '[JSON] EventTagsListResponse
data EventTagsList = EventTagsList'
{ _etlDefinitionsOnly :: !(Maybe Bool)
, _etlEventTagTypes :: !(Maybe [EventTagsListEventTagTypes])
, _etlEnabled :: !(Maybe Bool)
, _etlAdvertiserId :: !(Maybe (Textual Int64))
, _etlSearchString :: !(Maybe Text)
, _etlCampaignId :: !(Maybe (Textual Int64))
, _etlIds :: !(Maybe [Textual Int64])
, _etlProFileId :: !(Textual Int64)
, _etlSortOrder :: !(Maybe EventTagsListSortOrder)
, _etlAdId :: !(Maybe (Textual Int64))
, _etlSortField :: !(Maybe EventTagsListSortField)
} deriving (Eq,Show,Data,Typeable,Generic)
eventTagsList
:: Int64
-> EventTagsList
eventTagsList pEtlProFileId_ =
EventTagsList'
{ _etlDefinitionsOnly = Nothing
, _etlEventTagTypes = Nothing
, _etlEnabled = Nothing
, _etlAdvertiserId = Nothing
, _etlSearchString = Nothing
, _etlCampaignId = Nothing
, _etlIds = Nothing
, _etlProFileId = _Coerce # pEtlProFileId_
, _etlSortOrder = Nothing
, _etlAdId = Nothing
, _etlSortField = Nothing
}
etlDefinitionsOnly :: Lens' EventTagsList (Maybe Bool)
etlDefinitionsOnly
= lens _etlDefinitionsOnly
(\ s a -> s{_etlDefinitionsOnly = a})
etlEventTagTypes :: Lens' EventTagsList [EventTagsListEventTagTypes]
etlEventTagTypes
= lens _etlEventTagTypes
(\ s a -> s{_etlEventTagTypes = a})
. _Default
. _Coerce
etlEnabled :: Lens' EventTagsList (Maybe Bool)
etlEnabled
= lens _etlEnabled (\ s a -> s{_etlEnabled = a})
etlAdvertiserId :: Lens' EventTagsList (Maybe Int64)
etlAdvertiserId
= lens _etlAdvertiserId
(\ s a -> s{_etlAdvertiserId = a})
. mapping _Coerce
etlSearchString :: Lens' EventTagsList (Maybe Text)
etlSearchString
= lens _etlSearchString
(\ s a -> s{_etlSearchString = a})
etlCampaignId :: Lens' EventTagsList (Maybe Int64)
etlCampaignId
= lens _etlCampaignId
(\ s a -> s{_etlCampaignId = a})
. mapping _Coerce
etlIds :: Lens' EventTagsList [Int64]
etlIds
= lens _etlIds (\ s a -> s{_etlIds = a}) . _Default .
_Coerce
etlProFileId :: Lens' EventTagsList Int64
etlProFileId
= lens _etlProFileId (\ s a -> s{_etlProFileId = a})
. _Coerce
etlSortOrder :: Lens' EventTagsList (Maybe EventTagsListSortOrder)
etlSortOrder
= lens _etlSortOrder (\ s a -> s{_etlSortOrder = a})
etlAdId :: Lens' EventTagsList (Maybe Int64)
etlAdId
= lens _etlAdId (\ s a -> s{_etlAdId = a}) .
mapping _Coerce
etlSortField :: Lens' EventTagsList (Maybe EventTagsListSortField)
etlSortField
= lens _etlSortField (\ s a -> s{_etlSortField = a})
instance GoogleRequest EventTagsList where
type Rs EventTagsList = EventTagsListResponse
type Scopes EventTagsList =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient EventTagsList'{..}
= go _etlProFileId _etlDefinitionsOnly
(_etlEventTagTypes ^. _Default)
_etlEnabled
_etlAdvertiserId
_etlSearchString
_etlCampaignId
(_etlIds ^. _Default)
_etlSortOrder
_etlAdId
_etlSortField
(Just AltJSON)
dFAReportingService
where go
= buildClient (Proxy :: Proxy EventTagsListResource)
mempty