@@ -18,227 +18,6 @@ module Network.Google.AdExchangeBuyer.Types.Product where
1818import Network.Google.AdExchangeBuyer.Types.Sum
1919import Network.Google.Prelude
2020
21−--
22−-- /See:/ 'bidderLocationItem' smart constructor.
23−data BidderLocationItem = BidderLocationItem
24− { _bliURL :: !(Maybe Text)
25− , _bliMaximumQps :: !(Maybe Int32)
26− , _bliRegion :: !(Maybe Text)
27− } deriving (Eq,Show,Data,Typeable,Generic)
28−
29−-- | Creates a value of 'BidderLocationItem' with the minimum fields required to make a request.
30−--
31−-- Use one of the following lenses to modify other fields as desired:
32−--
33−-- * 'bliURL'
34−--
35−-- * 'bliMaximumQps'
36−--
37−-- * 'bliRegion'
38−bidderLocationItem
39− :: BidderLocationItem
40−bidderLocationItem =
41− BidderLocationItem
42− { _bliURL = Nothing
43− , _bliMaximumQps = Nothing
44− , _bliRegion = Nothing
45− }
46−
47−-- | The URL to which the Ad Exchange will send bid requests.
48−bliURL :: Lens' BidderLocationItem (Maybe Text)
49−bliURL = lens _bliURL (\ s a -> s{_bliURL = a})
50−
51−-- | The maximum queries per second the Ad Exchange will send.
52−bliMaximumQps :: Lens' BidderLocationItem (Maybe Int32)
53−bliMaximumQps
54− = lens _bliMaximumQps
55− (\ s a -> s{_bliMaximumQps = a})
56−
57−-- | The geographical region the Ad Exchange should send requests from. Only
58−-- used by some quota systems, but always setting the value is recommended.
59−-- Allowed values: - ASIA - EUROPE - US_EAST - US_WEST
60−bliRegion :: Lens' BidderLocationItem (Maybe Text)
61−bliRegion
62− = lens _bliRegion (\ s a -> s{_bliRegion = a})
63−
64−instance FromJSON BidderLocationItem where
65− parseJSON
66− = withObject "BidderLocationItem"
67− (\ o ->
68− BidderLocationItem <$>
69− (o .:? "url") <*> (o .:? "maximumQps") <*>
70− (o .:? "region"))
71−
72−instance ToJSON BidderLocationItem where
73− toJSON BidderLocationItem{..}
74− = object
75− (catMaybes
76− [("url" .=) <$> _bliURL,
77− ("maximumQps" .=) <$> _bliMaximumQps,
78− ("region" .=) <$> _bliRegion])
79−
80−-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
81−--
82−-- /See:/ 'nATiveAd' smart constructor.
83−data NATiveAd = NATiveAd
84− { _nataImage :: !(Maybe Image)
85− , _nataAppIcon :: !(Maybe AppIcon)
86− , _nataClickTrackingURL :: !(Maybe Text)
87− , _nataBody :: !(Maybe Text)
88− , _nataHeadline :: !(Maybe Text)
89− , _nataImpressionTrackingURL :: !(Maybe [Text])
90− , _nataCallToAction :: !(Maybe Text)
91− , _nataStore :: !(Maybe Text)
92− , _nataPrice :: !(Maybe Text)
93− , _nataAdvertiser :: !(Maybe Text)
94− , _nataStarRating :: !(Maybe Double)
95− , _nataLogo :: !(Maybe Logo)
96− } deriving (Eq,Show,Data,Typeable,Generic)
97−
98−-- | Creates a value of 'NATiveAd' with the minimum fields required to make a request.
99−--
100−-- Use one of the following lenses to modify other fields as desired:
101−--
102−-- * 'nataImage'
103−--
104−-- * 'nataAppIcon'
105−--
106−-- * 'nataClickTrackingURL'
107−--
108−-- * 'nataBody'
109−--
110−-- * 'nataHeadline'
111−--
112−-- * 'nataImpressionTrackingURL'
113−--
114−-- * 'nataCallToAction'
115−--
116−-- * 'nataStore'
117−--
118−-- * 'nataPrice'
119−--
120−-- * 'nataAdvertiser'
121−--
122−-- * 'nataStarRating'
123−--
124−-- * 'nataLogo'
125−nATiveAd
126− :: NATiveAd
127−nATiveAd =
128− NATiveAd
129− { _nataImage = Nothing
130− , _nataAppIcon = Nothing
131− , _nataClickTrackingURL = Nothing
132− , _nataBody = Nothing
133− , _nataHeadline = Nothing
134− , _nataImpressionTrackingURL = Nothing
135− , _nataCallToAction = Nothing
136− , _nataStore = Nothing
137− , _nataPrice = Nothing
138− , _nataAdvertiser = Nothing
139− , _nataStarRating = Nothing
140− , _nataLogo = Nothing
141− }
142−
143−-- | A large image.
144−nataImage :: Lens' NATiveAd (Maybe Image)
145−nataImage
146− = lens _nataImage (\ s a -> s{_nataImage = a})
147−
148−-- | The app icon, for app download ads.
149−nataAppIcon :: Lens' NATiveAd (Maybe AppIcon)
150−nataAppIcon
151− = lens _nataAppIcon (\ s a -> s{_nataAppIcon = a})
152−
153−-- | The URL to use for click tracking.
154−nataClickTrackingURL :: Lens' NATiveAd (Maybe Text)
155−nataClickTrackingURL
156− = lens _nataClickTrackingURL
157− (\ s a -> s{_nataClickTrackingURL = a})
158−
159−-- | A long description of the ad.
160−nataBody :: Lens' NATiveAd (Maybe Text)
161−nataBody = lens _nataBody (\ s a -> s{_nataBody = a})
162−
163−-- | A short title for the ad.
164−nataHeadline :: Lens' NATiveAd (Maybe Text)
165−nataHeadline
166− = lens _nataHeadline (\ s a -> s{_nataHeadline = a})
167−
168−-- | The URLs are called when the impression is rendered.
169−nataImpressionTrackingURL :: Lens' NATiveAd [Text]
170−nataImpressionTrackingURL
171− = lens _nataImpressionTrackingURL
172− (\ s a -> s{_nataImpressionTrackingURL = a})
173− . _Default
174− . _Coerce
175−
176−-- | A label for the button that the user is supposed to click.
177−nataCallToAction :: Lens' NATiveAd (Maybe Text)
178−nataCallToAction
179− = lens _nataCallToAction
180− (\ s a -> s{_nataCallToAction = a})
181−
182−-- | The URL to the app store to purchase\/download the promoted app.
183−nataStore :: Lens' NATiveAd (Maybe Text)
184−nataStore
185− = lens _nataStore (\ s a -> s{_nataStore = a})
186−
187−-- | The price of the promoted app including the currency info.
188−nataPrice :: Lens' NATiveAd (Maybe Text)
189−nataPrice
190− = lens _nataPrice (\ s a -> s{_nataPrice = a})
191−
192−nataAdvertiser :: Lens' NATiveAd (Maybe Text)
193−nataAdvertiser
194− = lens _nataAdvertiser
195− (\ s a -> s{_nataAdvertiser = a})
196−
197−-- | The app rating in the app store. Must be in the range [0-5].
198−nataStarRating :: Lens' NATiveAd (Maybe Double)
199−nataStarRating
200− = lens _nataStarRating
201− (\ s a -> s{_nataStarRating = a})
202−
203−-- | A smaller image, for the advertiser logo.
204−nataLogo :: Lens' NATiveAd (Maybe Logo)
205−nataLogo = lens _nataLogo (\ s a -> s{_nataLogo = a})
206−
207−instance FromJSON NATiveAd where
208− parseJSON
209− = withObject "NATiveAd"
210− (\ o ->
211− NATiveAd <$>
212− (o .:? "image") <*> (o .:? "appIcon") <*>
213− (o .:? "clickTrackingUrl")
214− <*> (o .:? "body")
215− <*> (o .:? "headline")
216− <*> (o .:? "impressionTrackingUrl" .!= mempty)
217− <*> (o .:? "callToAction")
218− <*> (o .:? "store")
219− <*> (o .:? "price")
220− <*> (o .:? "advertiser")
221− <*> (o .:? "starRating")
222− <*> (o .:? "logo"))
223−
224−instance ToJSON NATiveAd where
225− toJSON NATiveAd{..}
226− = object
227− (catMaybes
228− [("image" .=) <$> _nataImage,
229− ("appIcon" .=) <$> _nataAppIcon,
230− ("clickTrackingUrl" .=) <$> _nataClickTrackingURL,
231− ("body" .=) <$> _nataBody,
232− ("headline" .=) <$> _nataHeadline,
233− ("impressionTrackingUrl" .=) <$>
234− _nataImpressionTrackingURL,
235− ("callToAction" .=) <$> _nataCallToAction,
236− ("store" .=) <$> _nataStore,
237− ("price" .=) <$> _nataPrice,
238− ("advertiser" .=) <$> _nataAdvertiser,
239− ("starRating" .=) <$> _nataStarRating,
240− ("logo" .=) <$> _nataLogo])
241−
24221--
24322-- /See:/ 'brandDTO' smart constructor.
24423data BrandDTO = BrandDTO
@@ -291,87 +70,6 @@ instance ToJSON BrandDTO where
29170 [("advertiserId" .=) <$> _bdtoAdvertiserId,
29271 ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
29372
294−--
295−-- /See:/ 'placementsItem' smart constructor.
296−data PlacementsItem = PlacementsItem
297− { _piToken :: !(Maybe Text)
298− , _piType :: !(Maybe Text)
299− } deriving (Eq,Show,Data,Typeable,Generic)
300−
301−-- | Creates a value of 'PlacementsItem' with the minimum fields required to make a request.
302−--
303−-- Use one of the following lenses to modify other fields as desired:
304−--
305−-- * 'piToken'
306−--
307−-- * 'piType'
308−placementsItem
309− :: PlacementsItem
310−placementsItem =
311− PlacementsItem
312− { _piToken = Nothing
313− , _piType = Nothing
314− }
315−
316−-- | The value of the placement. Interpretation depends on the placement
317−-- type, e.g. URL for a site placement, channel name for a channel
318−-- placement, app id for a mobile app placement.
319−piToken :: Lens' PlacementsItem (Maybe Text)
320−piToken = lens _piToken (\ s a -> s{_piToken = a})
321−
322−-- | The type of the placement.
323−piType :: Lens' PlacementsItem (Maybe Text)
324−piType = lens _piType (\ s a -> s{_piType = a})
325−
326−instance FromJSON PlacementsItem where
327− parseJSON
328− = withObject "PlacementsItem"
329− (\ o ->
330− PlacementsItem <$>
331− (o .:? "token") <*> (o .:? "type"))
332−
333−instance ToJSON PlacementsItem where
334− toJSON PlacementsItem{..}
335− = object
336− (catMaybes
337− [("token" .=) <$> _piToken, ("type" .=) <$> _piType])
338−
339−--
340−-- /See:/ 'editAllOrderDealsResponse' smart constructor.
341−newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse
342− { _eaodrDeals :: Maybe [MarketplaceDeal]
343− } deriving (Eq,Show,Data,Typeable,Generic)
344−
345−-- | Creates a value of 'EditAllOrderDealsResponse' with the minimum fields required to make a request.
346−--
347−-- Use one of the following lenses to modify other fields as desired:
348−--
349−-- * 'eaodrDeals'
350−editAllOrderDealsResponse
351− :: EditAllOrderDealsResponse
352−editAllOrderDealsResponse =
353− EditAllOrderDealsResponse
354− { _eaodrDeals = Nothing
355− }
356−
357−-- | List of all deals in the order after edit.
358−eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
359−eaodrDeals
360− = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
361− _Default
362− . _Coerce
363−
364−instance FromJSON EditAllOrderDealsResponse where
365− parseJSON
366− = withObject "EditAllOrderDealsResponse"
367− (\ o ->
368− EditAllOrderDealsResponse <$>
369− (o .:? "deals" .!= mempty))
370−
371−instance ToJSON EditAllOrderDealsResponse where
372− toJSON EditAllOrderDealsResponse{..}
373− = object (catMaybes [("deals" .=) <$> _eaodrDeals])
374−
37573-- | An order is associated with a bunch of notes which may optionally be
37674-- associated with a deal and\/or revision number.
37775--
@@ -489,121 +187,419 @@ instance ToJSON MarketplaceNote where
489187 ("orderRevisionNumber" .=) <$>
490188 _mnOrderRevisionNumber])
491189
492−-- | A large image.
190+-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
493191--
494−-- /See:/ 'image' smart constructor.
495−data Image = Image
496− { _iHeight :: !(Maybe Int32)
497− , _iURL :: !(Maybe Text)
498− , _iWidth :: !(Maybe Int32)
192+-- /See:/ 'creativeNATiveAd' smart constructor.
193+data CreativeNATiveAd = CreativeNATiveAd
194+ { _cnataImage :: !(Maybe CreativeNATiveAdImage)
195+ , _cnataAppIcon :: !(Maybe CreativeNATiveAdAppIcon)
196+ , _cnataClickTrackingURL :: !(Maybe Text)
197+ , _cnataBody :: !(Maybe Text)
198+ , _cnataHeadline :: !(Maybe Text)
199+ , _cnataImpressionTrackingURL :: !(Maybe [Text])
200+ , _cnataCallToAction :: !(Maybe Text)
201+ , _cnataStore :: !(Maybe Text)
202+ , _cnataPrice :: !(Maybe Text)
203+ , _cnataAdvertiser :: !(Maybe Text)
204+ , _cnataStarRating :: !(Maybe Double)
205+ , _cnataLogo :: !(Maybe CreativeNATiveAdLogo)
499206 } deriving (Eq,Show,Data,Typeable,Generic)
500207
501−-- | Creates a value of 'Image' with the minimum fields required to make a request.
208+-- | Creates a value of 'CreativeNATiveAd' with the minimum fields required to make a request.
502209--
503210-- Use one of the following lenses to modify other fields as desired:
504211--
505−-- * 'iHeight'
212+-- * 'cnataImage'
213+--
214+-- * 'cnataAppIcon'
215+--
216+-- * 'cnataClickTrackingURL'
217+--
218+-- * 'cnataBody'
506219--
507−-- * 'iURL'
220+-- * 'cnataHeadline'
508221--
509−-- * 'iWidth'
510−image
511− :: Image
512−image =
513− Image
514− { _iHeight = Nothing
515− , _iURL = Nothing
516− , _iWidth = Nothing
222+-- * 'cnataImpressionTrackingURL'
223+--
224+-- * 'cnataCallToAction'
225+--
226+-- * 'cnataStore'
227+--
228+-- * 'cnataPrice'
229+--
230+-- * 'cnataAdvertiser'
231+--
232+-- * 'cnataStarRating'
233+--
234+-- * 'cnataLogo'
235+creativeNATiveAd
236+ :: CreativeNATiveAd
237+creativeNATiveAd =
238+ CreativeNATiveAd
239+ { _cnataImage = Nothing
240+ , _cnataAppIcon = Nothing
241+ , _cnataClickTrackingURL = Nothing
242+ , _cnataBody = Nothing
243+ , _cnataHeadline = Nothing
244+ , _cnataImpressionTrackingURL = Nothing
245+ , _cnataCallToAction = Nothing
246+ , _cnataStore = Nothing
247+ , _cnataPrice = Nothing
248+ , _cnataAdvertiser = Nothing
249+ , _cnataStarRating = Nothing
250+ , _cnataLogo = Nothing
517251 }
518252
519−iHeight :: Lens' Image (Maybe Int32)
520−iHeight = lens _iHeight (\ s a -> s{_iHeight = a})
253+-- | A large image.
254+cnataImage :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdImage)
255+cnataImage
256+ = lens _cnataImage (\ s a -> s{_cnataImage = a})
257+
258+-- | The app icon, for app download ads.
259+cnataAppIcon :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdAppIcon)
260+cnataAppIcon
261+ = lens _cnataAppIcon (\ s a -> s{_cnataAppIcon = a})
262+
263+-- | The URL to use for click tracking.
264+cnataClickTrackingURL :: Lens' CreativeNATiveAd (Maybe Text)
265+cnataClickTrackingURL
266+ = lens _cnataClickTrackingURL
267+ (\ s a -> s{_cnataClickTrackingURL = a})
268+
269+-- | A long description of the ad.
270+cnataBody :: Lens' CreativeNATiveAd (Maybe Text)
271+cnataBody
272+ = lens _cnataBody (\ s a -> s{_cnataBody = a})
273+
274+-- | A short title for the ad.
275+cnataHeadline :: Lens' CreativeNATiveAd (Maybe Text)
276+cnataHeadline
277+ = lens _cnataHeadline
278+ (\ s a -> s{_cnataHeadline = a})
279+
280+-- | The URLs are called when the impression is rendered.
281+cnataImpressionTrackingURL :: Lens' CreativeNATiveAd [Text]
282+cnataImpressionTrackingURL
283+ = lens _cnataImpressionTrackingURL
284+ (\ s a -> s{_cnataImpressionTrackingURL = a})
285+ . _Default
286+ . _Coerce
287+
288+-- | A label for the button that the user is supposed to click.
289+cnataCallToAction :: Lens' CreativeNATiveAd (Maybe Text)
290+cnataCallToAction
291+ = lens _cnataCallToAction
292+ (\ s a -> s{_cnataCallToAction = a})
293+
294+-- | The URL to the app store to purchase\/download the promoted app.
295+cnataStore :: Lens' CreativeNATiveAd (Maybe Text)
296+cnataStore
297+ = lens _cnataStore (\ s a -> s{_cnataStore = a})
298+
299+-- | The price of the promoted app including the currency info.
300+cnataPrice :: Lens' CreativeNATiveAd (Maybe Text)
301+cnataPrice
302+ = lens _cnataPrice (\ s a -> s{_cnataPrice = a})
303+
304+cnataAdvertiser :: Lens' CreativeNATiveAd (Maybe Text)
305+cnataAdvertiser
306+ = lens _cnataAdvertiser
307+ (\ s a -> s{_cnataAdvertiser = a})
521308
522−iURL :: Lens' Image (Maybe Text)
523−iURL = lens _iURL (\ s a -> s{_iURL = a})
309+-- | The app rating in the app store. Must be in the range [0-5].
310+cnataStarRating :: Lens' CreativeNATiveAd (Maybe Double)
311+cnataStarRating
312+ = lens _cnataStarRating
313+ (\ s a -> s{_cnataStarRating = a})
524314
525−iWidth :: Lens' Image (Maybe Int32)
526−iWidth = lens _iWidth (\ s a -> s{_iWidth = a})
315+-- | A smaller image, for the advertiser logo.
316+cnataLogo :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdLogo)
317+cnataLogo
318+ = lens _cnataLogo (\ s a -> s{_cnataLogo = a})
527319
528−instance FromJSON Image where
320+instance FromJSON CreativeNATiveAd where
529321 parseJSON
530− = withObject "Image"
322+ = withObject "CreativeNATiveAd"
531323 (\ o ->
532− Image <$>
533− (o .:? "height") <*> (o .:? "url") <*>
534− (o .:? "width"))
324+ CreativeNATiveAd <$>
325+ (o .:? "image") <*> (o .:? "appIcon") <*>
326+ (o .:? "clickTrackingUrl")
327+ <*> (o .:? "body")
328+ <*> (o .:? "headline")
329+ <*> (o .:? "impressionTrackingUrl" .!= mempty)
330+ <*> (o .:? "callToAction")
331+ <*> (o .:? "store")
332+ <*> (o .:? "price")
333+ <*> (o .:? "advertiser")
334+ <*> (o .:? "starRating")
335+ <*> (o .:? "logo"))
535336
536−instance ToJSON Image where
537− toJSON Image{..}
337+instance ToJSON CreativeNATiveAd where
338+ toJSON CreativeNATiveAd{..}
538339 = object
539340 (catMaybes
540− [("height" .=) <$> _iHeight, ("url" .=) <$> _iURL,
541− ("width" .=) <$> _iWidth])
341+ [("image" .=) <$> _cnataImage,
342+ ("appIcon" .=) <$> _cnataAppIcon,
343+ ("clickTrackingUrl" .=) <$> _cnataClickTrackingURL,
344+ ("body" .=) <$> _cnataBody,
345+ ("headline" .=) <$> _cnataHeadline,
346+ ("impressionTrackingUrl" .=) <$>
347+ _cnataImpressionTrackingURL,
348+ ("callToAction" .=) <$> _cnataCallToAction,
349+ ("store" .=) <$> _cnataStore,
350+ ("price" .=) <$> _cnataPrice,
351+ ("advertiser" .=) <$> _cnataAdvertiser,
352+ ("starRating" .=) <$> _cnataStarRating,
353+ ("logo" .=) <$> _cnataLogo])
542354
543355--
544−-- /See:/ 'termsDTO' smart constructor.
545−data TermsDTO = TermsDTO
546− { _tdtoFinalizeAutomatically :: !(Maybe Bool)
547− , _tdtoBuyerBillingType :: !(Maybe Text)
548− , _tdtoTargetingAllAdSlots :: !(Maybe Bool)
549− , _tdtoURLs :: !(Maybe [Text])
550− , _tdtoEndDate :: !(Maybe DateTime)
551− , _tdtoCpm :: !(Maybe MoneyDTO)
552− , _tdtoEstimatedSpend :: !(Maybe MoneyDTO)
553− , _tdtoAdvertisers :: !(Maybe [AdvertiserDTO])
554− , _tdtoEstimatedImpressionsPerDay :: !(Maybe Int64)
555− , _tdtoMonetizerType :: !(Maybe Text)
556− , _tdtoAudienceSegmentDescription :: !(Maybe Text)
557− , _tdtoCreativeReviewPolicy :: !(Maybe Text)
558− , _tdtoMinimumTrueLooks :: !(Maybe Int64)
559− , _tdtoStartDate :: !(Maybe DateTime)
560− , _tdtoCreativeBlockingLevel :: !(Maybe Text)
561− , _tdtoSemiTransparent :: !(Maybe Bool)
562− , _tdtoAudienceSegment :: !(Maybe AudienceSegment)
563− , _tdtoDealPremium :: !(Maybe MoneyDTO)
564− , _tdtoIsReservation :: !(Maybe Bool)
565− , _tdtoAdSlots :: !(Maybe [AdSlotDTO])
566− , _tdtoTermsAttributes :: !(Maybe [Text])
567− , _tdtoInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
568− , _tdtoDescriptiveName :: !(Maybe Text)
569− , _tdtoMinimumSpendMicros :: !(Maybe Int64)
570− , _tdtoTargetByDealId :: !(Maybe Bool)
571− , _tdtoBillingTerms :: !(Maybe Text)
572− , _tdtoDescription :: !(Maybe Text)
356+-- /See:/ 'editAllOrderDealsResponse' smart constructor.
357+newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse
358+ { _eaodrDeals :: Maybe [MarketplaceDeal]
573359 } deriving (Eq,Show,Data,Typeable,Generic)
574360
575−-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request.
361+-- | Creates a value of 'EditAllOrderDealsResponse' with the minimum fields required to make a request.
576362--
577363-- Use one of the following lenses to modify other fields as desired:
578364--
579−-- * 'tdtoFinalizeAutomatically'
580−--
581−-- * 'tdtoBuyerBillingType'
582−--
583−-- * 'tdtoTargetingAllAdSlots'
584−--
585−-- * 'tdtoURLs'
586−--
587−-- * 'tdtoEndDate'
588−--
589−-- * 'tdtoCpm'
590−--
591−-- * 'tdtoEstimatedSpend'
592−--
593−-- * 'tdtoAdvertisers'
594−--
595−-- * 'tdtoEstimatedImpressionsPerDay'
596−--
597−-- * 'tdtoMonetizerType'
598−--
599−-- * 'tdtoAudienceSegmentDescription'
600−--
601−-- * 'tdtoCreativeReviewPolicy'
602−--
603−-- * 'tdtoMinimumTrueLooks'
604−--
605−-- * 'tdtoStartDate'
606−--
365+-- * 'eaodrDeals'
366+editAllOrderDealsResponse
367+ :: EditAllOrderDealsResponse
368+editAllOrderDealsResponse =
369+ EditAllOrderDealsResponse
370+ { _eaodrDeals = Nothing
371+ }
372+
373+-- | List of all deals in the order after edit.
374+eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
375+eaodrDeals
376+ = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
377+ _Default
378+ . _Coerce
379+
380+instance FromJSON EditAllOrderDealsResponse where
381+ parseJSON
382+ = withObject "EditAllOrderDealsResponse"
383+ (\ o ->
384+ EditAllOrderDealsResponse <$>
385+ (o .:? "deals" .!= mempty))
386+
387+instance ToJSON EditAllOrderDealsResponse where
388+ toJSON EditAllOrderDealsResponse{..}
389+ = object (catMaybes [("deals" .=) <$> _eaodrDeals])
390+
391+-- | The creatives feed lists the active creatives for the Ad Exchange buyer
392+-- accounts that the user has access to. Each entry in the feed corresponds
393+-- to a single creative.
394+--
395+-- /See:/ 'creativesList' smart constructor.
396+data CreativesList = CreativesList
397+ { _clNextPageToken :: !(Maybe Text)
398+ , _clKind :: !Text
399+ , _clItems :: !(Maybe [Creative])
400+ } deriving (Eq,Show,Data,Typeable,Generic)
401+
402+-- | Creates a value of 'CreativesList' with the minimum fields required to make a request.
403+--
404+-- Use one of the following lenses to modify other fields as desired:
405+--
406+-- * 'clNextPageToken'
407+--
408+-- * 'clKind'
409+--
410+-- * 'clItems'
411+creativesList
412+ :: CreativesList
413+creativesList =
414+ CreativesList
415+ { _clNextPageToken = Nothing
416+ , _clKind = "adexchangebuyer#creativesList"
417+ , _clItems = Nothing
418+ }
419+
420+-- | Continuation token used to page through creatives. To retrieve the next
421+-- page of results, set the next request\'s \"pageToken\" value to this.
422+clNextPageToken :: Lens' CreativesList (Maybe Text)
423+clNextPageToken
424+ = lens _clNextPageToken
425+ (\ s a -> s{_clNextPageToken = a})
426+
427+-- | Resource type.
428+clKind :: Lens' CreativesList Text
429+clKind = lens _clKind (\ s a -> s{_clKind = a})
430+
431+-- | A list of creatives.
432+clItems :: Lens' CreativesList [Creative]
433+clItems
434+ = lens _clItems (\ s a -> s{_clItems = a}) . _Default
435+ . _Coerce
436+
437+instance FromJSON CreativesList where
438+ parseJSON
439+ = withObject "CreativesList"
440+ (\ o ->
441+ CreativesList <$>
442+ (o .:? "nextPageToken") <*>
443+ (o .:? "kind" .!= "adexchangebuyer#creativesList")
444+ <*> (o .:? "items" .!= mempty))
445+
446+instance ToJSON CreativesList where
447+ toJSON CreativesList{..}
448+ = object
449+ (catMaybes
450+ [("nextPageToken" .=) <$> _clNextPageToken,
451+ Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
452+
453+--
454+-- /See:/ 'creativeServingRestrictionsItemContextsItem' smart constructor.
455+data CreativeServingRestrictionsItemContextsItem = CreativeServingRestrictionsItemContextsItem
456+ { _csriciPlatform :: !(Maybe [Text])
457+ , _csriciContextType :: !(Maybe Text)
458+ , _csriciAuctionType :: !(Maybe [Text])
459+ , _csriciGeoCriteriaId :: !(Maybe [Int32])
460+ } deriving (Eq,Show,Data,Typeable,Generic)
461+
462+-- | Creates a value of 'CreativeServingRestrictionsItemContextsItem' with the minimum fields required to make a request.
463+--
464+-- Use one of the following lenses to modify other fields as desired:
465+--
466+-- * 'csriciPlatform'
467+--
468+-- * 'csriciContextType'
469+--
470+-- * 'csriciAuctionType'
471+--
472+-- * 'csriciGeoCriteriaId'
473+creativeServingRestrictionsItemContextsItem
474+ :: CreativeServingRestrictionsItemContextsItem
475+creativeServingRestrictionsItemContextsItem =
476+ CreativeServingRestrictionsItemContextsItem
477+ { _csriciPlatform = Nothing
478+ , _csriciContextType = Nothing
479+ , _csriciAuctionType = Nothing
480+ , _csriciGeoCriteriaId = Nothing
481+ }
482+
483+-- | Only set when contextType=PLATFORM. Represents the platforms this
484+-- restriction applies to.
485+csriciPlatform :: Lens' CreativeServingRestrictionsItemContextsItem [Text]
486+csriciPlatform
487+ = lens _csriciPlatform
488+ (\ s a -> s{_csriciPlatform = a})
489+ . _Default
490+ . _Coerce
491+
492+-- | The type of context (e.g., location, platform, auction type, SSL-ness).
493+csriciContextType :: Lens' CreativeServingRestrictionsItemContextsItem (Maybe Text)
494+csriciContextType
495+ = lens _csriciContextType
496+ (\ s a -> s{_csriciContextType = a})
497+
498+-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
499+-- this restriction applies to.
500+csriciAuctionType :: Lens' CreativeServingRestrictionsItemContextsItem [Text]
501+csriciAuctionType
502+ = lens _csriciAuctionType
503+ (\ s a -> s{_csriciAuctionType = a})
504+ . _Default
505+ . _Coerce
506+
507+-- | Only set when contextType=LOCATION. Represents the geo criterias this
508+-- restriction applies to.
509+csriciGeoCriteriaId :: Lens' CreativeServingRestrictionsItemContextsItem [Int32]
510+csriciGeoCriteriaId
511+ = lens _csriciGeoCriteriaId
512+ (\ s a -> s{_csriciGeoCriteriaId = a})
513+ . _Default
514+ . _Coerce
515+
516+instance FromJSON
517+ CreativeServingRestrictionsItemContextsItem where
518+ parseJSON
519+ = withObject
520+ "CreativeServingRestrictionsItemContextsItem"
521+ (\ o ->
522+ CreativeServingRestrictionsItemContextsItem <$>
523+ (o .:? "platform" .!= mempty) <*>
524+ (o .:? "contextType")
525+ <*> (o .:? "auctionType" .!= mempty)
526+ <*> (o .:? "geoCriteriaId" .!= mempty))
527+
528+instance ToJSON
529+ CreativeServingRestrictionsItemContextsItem where
530+ toJSON
531+ CreativeServingRestrictionsItemContextsItem{..}
532+ = object
533+ (catMaybes
534+ [("platform" .=) <$> _csriciPlatform,
535+ ("contextType" .=) <$> _csriciContextType,
536+ ("auctionType" .=) <$> _csriciAuctionType,
537+ ("geoCriteriaId" .=) <$> _csriciGeoCriteriaId])
538+
539+--
540+-- /See:/ 'termsDTO' smart constructor.
541+data TermsDTO = TermsDTO
542+ { _tdtoFinalizeAutomatically :: !(Maybe Bool)
543+ , _tdtoBuyerBillingType :: !(Maybe Text)
544+ , _tdtoTargetingAllAdSlots :: !(Maybe Bool)
545+ , _tdtoURLs :: !(Maybe [Text])
546+ , _tdtoEndDate :: !(Maybe DateTime)
547+ , _tdtoCpm :: !(Maybe MoneyDTO)
548+ , _tdtoEstimatedSpend :: !(Maybe MoneyDTO)
549+ , _tdtoAdvertisers :: !(Maybe [AdvertiserDTO])
550+ , _tdtoEstimatedImpressionsPerDay :: !(Maybe Int64)
551+ , _tdtoMonetizerType :: !(Maybe Text)
552+ , _tdtoAudienceSegmentDescription :: !(Maybe Text)
553+ , _tdtoCreativeReviewPolicy :: !(Maybe Text)
554+ , _tdtoMinimumTrueLooks :: !(Maybe Int64)
555+ , _tdtoStartDate :: !(Maybe DateTime)
556+ , _tdtoCreativeBlockingLevel :: !(Maybe Text)
557+ , _tdtoSemiTransparent :: !(Maybe Bool)
558+ , _tdtoAudienceSegment :: !(Maybe AudienceSegment)
559+ , _tdtoDealPremium :: !(Maybe MoneyDTO)
560+ , _tdtoIsReservation :: !(Maybe Bool)
561+ , _tdtoAdSlots :: !(Maybe [AdSlotDTO])
562+ , _tdtoTermsAttributes :: !(Maybe [Text])
563+ , _tdtoInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
564+ , _tdtoDescriptiveName :: !(Maybe Text)
565+ , _tdtoMinimumSpendMicros :: !(Maybe Int64)
566+ , _tdtoTargetByDealId :: !(Maybe Bool)
567+ , _tdtoBillingTerms :: !(Maybe Text)
568+ , _tdtoDescription :: !(Maybe Text)
569+ } deriving (Eq,Show,Data,Typeable,Generic)
570+
571+-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request.
572+--
573+-- Use one of the following lenses to modify other fields as desired:
574+--
575+-- * 'tdtoFinalizeAutomatically'
576+--
577+-- * 'tdtoBuyerBillingType'
578+--
579+-- * 'tdtoTargetingAllAdSlots'
580+--
581+-- * 'tdtoURLs'
582+--
583+-- * 'tdtoEndDate'
584+--
585+-- * 'tdtoCpm'
586+--
587+-- * 'tdtoEstimatedSpend'
588+--
589+-- * 'tdtoAdvertisers'
590+--
591+-- * 'tdtoEstimatedImpressionsPerDay'
592+--
593+-- * 'tdtoMonetizerType'
594+--
595+-- * 'tdtoAudienceSegmentDescription'
596+--
597+-- * 'tdtoCreativeReviewPolicy'
598+--
599+-- * 'tdtoMinimumTrueLooks'
600+--
601+-- * 'tdtoStartDate'
602+--
607603-- * 'tdtoCreativeBlockingLevel'
608604--
609605-- * 'tdtoSemiTransparent'
@@ -900,153 +896,238 @@ instance ToJSON TermsDTO where
900896 ("billingTerms" .=) <$> _tdtoBillingTerms,
901897 ("description" .=) <$> _tdtoDescription])
902898
903−-- | The app icon, for app download ads.
904899--
905−-- /See:/ 'appIcon' smart constructor.
906−data AppIcon = AppIcon
907− { _aiHeight :: !(Maybe Int32)
908− , _aiURL :: !(Maybe Text)
909− , _aiWidth :: !(Maybe Int32)
900+-- /See:/ 'createOrdersResponse' smart constructor.
901+newtype CreateOrdersResponse = CreateOrdersResponse
902+ { _corOrders :: Maybe [MarketplaceOrder]
903+ } deriving (Eq,Show,Data,Typeable,Generic)
904+
905+-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
906+--
907+-- Use one of the following lenses to modify other fields as desired:
908+--
909+-- * 'corOrders'
910+createOrdersResponse
911+ :: CreateOrdersResponse
912+createOrdersResponse =
913+ CreateOrdersResponse
914+ { _corOrders = Nothing
915+ }
916+
917+-- | The list of orders successfully created.
918+corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]
919+corOrders
920+ = lens _corOrders (\ s a -> s{_corOrders = a}) .
921+ _Default
922+ . _Coerce
923+
924+instance FromJSON CreateOrdersResponse where
925+ parseJSON
926+ = withObject "CreateOrdersResponse"
927+ (\ o ->
928+ CreateOrdersResponse <$> (o .:? "orders" .!= mempty))
929+
930+instance ToJSON CreateOrdersResponse where
931+ toJSON CreateOrdersResponse{..}
932+ = object (catMaybes [("orders" .=) <$> _corOrders])
933+
934+--
935+-- /See:/ 'accountBidderLocationItem' smart constructor.
936+data AccountBidderLocationItem = AccountBidderLocationItem
937+ { _abliURL :: !(Maybe Text)
938+ , _abliMaximumQps :: !(Maybe Int32)
939+ , _abliRegion :: !(Maybe Text)
910940 } deriving (Eq,Show,Data,Typeable,Generic)
911941
912−-- | Creates a value of 'AppIcon' with the minimum fields required to make a request.
942+-- | Creates a value of 'AccountBidderLocationItem' with the minimum fields required to make a request.
913943--
914944-- Use one of the following lenses to modify other fields as desired:
915945--
916−-- * 'aiHeight'
946+-- * 'abliURL'
917947--
918−-- * 'aiURL'
948+-- * 'abliMaximumQps'
919949--
920−-- * 'aiWidth'
921−appIcon
922− :: AppIcon
923−appIcon =
924− AppIcon
925− { _aiHeight = Nothing
926− , _aiURL = Nothing
927− , _aiWidth = Nothing
950+-- * 'abliRegion'
951+accountBidderLocationItem
952+ :: AccountBidderLocationItem
953+accountBidderLocationItem =
954+ AccountBidderLocationItem
955+ { _abliURL = Nothing
956+ , _abliMaximumQps = Nothing
957+ , _abliRegion = Nothing
928958 }
929959
930−aiHeight :: Lens' AppIcon (Maybe Int32)
931−aiHeight = lens _aiHeight (\ s a -> s{_aiHeight = a})
960+-- | The URL to which the Ad Exchange will send bid requests.
961+abliURL :: Lens' AccountBidderLocationItem (Maybe Text)
962+abliURL = lens _abliURL (\ s a -> s{_abliURL = a})
932963
933−aiURL :: Lens' AppIcon (Maybe Text)
934−aiURL = lens _aiURL (\ s a -> s{_aiURL = a})
964+-- | The maximum queries per second the Ad Exchange will send.
965+abliMaximumQps :: Lens' AccountBidderLocationItem (Maybe Int32)
966+abliMaximumQps
967+ = lens _abliMaximumQps
968+ (\ s a -> s{_abliMaximumQps = a})
935969
936−aiWidth :: Lens' AppIcon (Maybe Int32)
937−aiWidth = lens _aiWidth (\ s a -> s{_aiWidth = a})
970+-- | The geographical region the Ad Exchange should send requests from. Only
971+-- used by some quota systems, but always setting the value is recommended.
972+-- Allowed values: - ASIA - EUROPE - US_EAST - US_WEST
973+abliRegion :: Lens' AccountBidderLocationItem (Maybe Text)
974+abliRegion
975+ = lens _abliRegion (\ s a -> s{_abliRegion = a})
938976
939−instance FromJSON AppIcon where
977+instance FromJSON AccountBidderLocationItem where
940978 parseJSON
941− = withObject "AppIcon"
979+ = withObject "AccountBidderLocationItem"
942980 (\ o ->
943− AppIcon <$>
944− (o .:? "height") <*> (o .:? "url") <*>
945− (o .:? "width"))
981+ AccountBidderLocationItem <$>
982+ (o .:? "url") <*> (o .:? "maximumQps") <*>
983+ (o .:? "region"))
946984
947−instance ToJSON AppIcon where
948− toJSON AppIcon{..}
985+instance ToJSON AccountBidderLocationItem where
986+ toJSON AccountBidderLocationItem{..}
949987 = object
950988 (catMaybes
951− [("height" .=) <$> _aiHeight, ("url" .=) <$> _aiURL,
952− ("width" .=) <$> _aiWidth])
989+ [("url" .=) <$> _abliURL,
990+ ("maximumQps" .=) <$> _abliMaximumQps,
991+ ("region" .=) <$> _abliRegion])
953992
954−-- | The creatives feed lists the active creatives for the Ad Exchange buyer
955−-- accounts that the user has access to. Each entry in the feed corresponds
956−-- to a single creative.
957993--
958−-- /See:/ 'creativesList' smart constructor.
959−data CreativesList = CreativesList
960− { _clNextPageToken :: !(Maybe Text)
961− , _clKind :: !Text
962− , _clItems :: !(Maybe [Creative])
994+-- /See:/ 'privateData' smart constructor.
995+data PrivateData = PrivateData
996+ { _pdReferencePayload :: !(Maybe Word8)
997+ , _pdReferenceId :: !(Maybe Text)
963998 } deriving (Eq,Show,Data,Typeable,Generic)
964999
965−-- | Creates a value of 'CreativesList' with the minimum fields required to make a request.
1000+-- | Creates a value of 'PrivateData' with the minimum fields required to make a request.
9661001--
9671002-- Use one of the following lenses to modify other fields as desired:
9681003--
969−-- * 'clNextPageToken'
1004+-- * 'pdReferencePayload'
9701005--
971−-- * 'clKind'
972−--
973−-- * 'clItems'
974−creativesList
975− :: CreativesList
976−creativesList =
977− CreativesList
978− { _clNextPageToken = Nothing
979− , _clKind = "adexchangebuyer#creativesList"
980− , _clItems = Nothing
1006+-- * 'pdReferenceId'
1007+privateData
1008+ :: PrivateData
1009+privateData =
1010+ PrivateData
1011+ { _pdReferencePayload = Nothing
1012+ , _pdReferenceId = Nothing
9811013 }
9821014
983−-- | Continuation token used to page through creatives. To retrieve the next
984−-- page of results, set the next request\'s \"pageToken\" value to this.
985−clNextPageToken :: Lens' CreativesList (Maybe Text)
986−clNextPageToken
987− = lens _clNextPageToken
988− (\ s a -> s{_clNextPageToken = a})
989−
990−-- | Resource type.
991−clKind :: Lens' CreativesList Text
992−clKind = lens _clKind (\ s a -> s{_clKind = a})
1015+pdReferencePayload :: Lens' PrivateData (Maybe Word8)
1016+pdReferencePayload
1017+ = lens _pdReferencePayload
1018+ (\ s a -> s{_pdReferencePayload = a})
9931019
994−-- | A list of creatives.
995−clItems :: Lens' CreativesList [Creative]
996−clItems
997− = lens _clItems (\ s a -> s{_clItems = a}) . _Default
998− . _Coerce
1020+pdReferenceId :: Lens' PrivateData (Maybe Text)
1021+pdReferenceId
1022+ = lens _pdReferenceId
1023+ (\ s a -> s{_pdReferenceId = a})
9991024
1000−instance FromJSON CreativesList where
1025+instance FromJSON PrivateData where
10011026 parseJSON
1002− = withObject "CreativesList"
1027+ = withObject "PrivateData"
10031028 (\ o ->
1004− CreativesList <$>
1005− (o .:? "nextPageToken") <*>
1006− (o .:? "kind" .!= "adexchangebuyer#creativesList")
1007− <*> (o .:? "items" .!= mempty))
1029+ PrivateData <$>
1030+ (o .:? "referencePayload") <*> (o .:? "referenceId"))
10081031
1009−instance ToJSON CreativesList where
1010− toJSON CreativesList{..}
1032+instance ToJSON PrivateData where
1033+ toJSON PrivateData{..}
10111034 = object
10121035 (catMaybes
1013− [("nextPageToken" .=) <$> _clNextPageToken,
1014− Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
1036+ [("referencePayload" .=) <$> _pdReferencePayload,
1037+ ("referenceId" .=) <$> _pdReferenceId])
10151038
1039+-- | The configuration data for Ad Exchange RTB - Budget API.
10161040--
1017−-- /See:/ 'createOrdersResponse' smart constructor.
1018−newtype CreateOrdersResponse = CreateOrdersResponse
1019− { _corOrders :: Maybe [MarketplaceOrder]
1041+-- /See:/ 'budget' smart constructor.
1042+data Budget = Budget
1043+ { _bCurrencyCode :: !(Maybe Text)
1044+ , _bKind :: !Text
1045+ , _bBudgetAmount :: !(Maybe Int64)
1046+ , _bAccountId :: !(Maybe Int64)
1047+ , _bId :: !(Maybe Text)
1048+ , _bBillingId :: !(Maybe Int64)
10201049 } deriving (Eq,Show,Data,Typeable,Generic)
10211050
1022−-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
1051+-- | Creates a value of 'Budget' with the minimum fields required to make a request.
10231052--
10241053-- Use one of the following lenses to modify other fields as desired:
10251054--
1026−-- * 'corOrders'
1027−createOrdersResponse
1028− :: CreateOrdersResponse
1029−createOrdersResponse =
1030− CreateOrdersResponse
1031− { _corOrders = Nothing
1055+-- * 'bCurrencyCode'
1056+--
1057+-- * 'bKind'
1058+--
1059+-- * 'bBudgetAmount'
1060+--
1061+-- * 'bAccountId'
1062+--
1063+-- * 'bId'
1064+--
1065+-- * 'bBillingId'
1066+budget
1067+ :: Budget
1068+budget =
1069+ Budget
1070+ { _bCurrencyCode = Nothing
1071+ , _bKind = "adexchangebuyer#budget"
1072+ , _bBudgetAmount = Nothing
1073+ , _bAccountId = Nothing
1074+ , _bId = Nothing
1075+ , _bBillingId = Nothing
10321076 }
10331077
1034−-- | The list of orders successfully created.
1035−corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]
1036−corOrders
1037− = lens _corOrders (\ s a -> s{_corOrders = a}) .
1038− _Default
1039− . _Coerce
1078+-- | The currency code for the buyer. This cannot be altered here.
1079+bCurrencyCode :: Lens' Budget (Maybe Text)
1080+bCurrencyCode
1081+ = lens _bCurrencyCode
1082+ (\ s a -> s{_bCurrencyCode = a})
10401083
1041−instance FromJSON CreateOrdersResponse where
1084+-- | The kind of the resource, i.e. \"adexchangebuyer#budget\".
1085+bKind :: Lens' Budget Text
1086+bKind = lens _bKind (\ s a -> s{_bKind = a})
1087+
1088+-- | The budget amount to apply for the billingId provided. This is required
1089+-- for update requests.
1090+bBudgetAmount :: Lens' Budget (Maybe Int64)
1091+bBudgetAmount
1092+ = lens _bBudgetAmount
1093+ (\ s a -> s{_bBudgetAmount = a})
1094+
1095+-- | The id of the account. This is required for get and update requests.
1096+bAccountId :: Lens' Budget (Maybe Int64)
1097+bAccountId
1098+ = lens _bAccountId (\ s a -> s{_bAccountId = a})
1099+
1100+-- | The unique id that describes this item.
1101+bId :: Lens' Budget (Maybe Text)
1102+bId = lens _bId (\ s a -> s{_bId = a})
1103+
1104+-- | The billing id to determine which adgroup to provide budget information
1105+-- for. This is required for get and update requests.
1106+bBillingId :: Lens' Budget (Maybe Int64)
1107+bBillingId
1108+ = lens _bBillingId (\ s a -> s{_bBillingId = a})
1109+
1110+instance FromJSON Budget where
10421111 parseJSON
1043− = withObject "CreateOrdersResponse"
1112+ = withObject "Budget"
10441113 (\ o ->
1045− CreateOrdersResponse <$> (o .:? "orders" .!= mempty))
1114+ Budget <$>
1115+ (o .:? "currencyCode") <*>
1116+ (o .:? "kind" .!= "adexchangebuyer#budget")
1117+ <*> (o .:? "budgetAmount")
1118+ <*> (o .:? "accountId")
1119+ <*> (o .:? "id")
1120+ <*> (o .:? "billingId"))
10461121
1047−instance ToJSON CreateOrdersResponse where
1048− toJSON CreateOrdersResponse{..}
1049− = object (catMaybes [("orders" .=) <$> _corOrders])
1122+instance ToJSON Budget where
1123+ toJSON Budget{..}
1124+ = object
1125+ (catMaybes
1126+ [("currencyCode" .=) <$> _bCurrencyCode,
1127+ Just ("kind" .= _bKind),
1128+ ("budgetAmount" .=) <$> _bBudgetAmount,
1129+ ("accountId" .=) <$> _bAccountId, ("id" .=) <$> _bId,
1130+ ("billingId" .=) <$> _bBillingId])
10501131
10511132--
10521133-- /See:/ 'addOrderNotesRequest' smart constructor.
@@ -1084,51 +1165,102 @@ instance ToJSON AddOrderNotesRequest where
10841165 = object (catMaybes [("notes" .=) <$> _aonrNotes])
10851166
10861167--
1087−-- /See:/ 'marketplaceDealParty' smart constructor.
1088−data MarketplaceDealParty = MarketplaceDealParty
1089− { _mdpSeller :: !(Maybe Seller)
1090− , _mdpBuyer :: !(Maybe Buyer)
1168+-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
1169+newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
1170+ { _gfnbedirIncludePrivateAuctions :: Maybe Bool
10911171 } deriving (Eq,Show,Data,Typeable,Generic)
10921172
1093−-- | Creates a value of 'MarketplaceDealParty' with the minimum fields required to make a request.
1173+-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request.
10941174--
10951175-- Use one of the following lenses to modify other fields as desired:
10961176--
1097−-- * 'mdpSeller'
1177+-- * 'gfnbedirIncludePrivateAuctions'
1178+getFinalizedNegotiationByExternalDealIdRequest
1179+ :: GetFinalizedNegotiationByExternalDealIdRequest
1180+getFinalizedNegotiationByExternalDealIdRequest =
1181+ GetFinalizedNegotiationByExternalDealIdRequest
1182+ { _gfnbedirIncludePrivateAuctions = Nothing
1183+ }
1184+
1185+gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
1186+gfnbedirIncludePrivateAuctions
1187+ = lens _gfnbedirIncludePrivateAuctions
1188+ (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
1189+
1190+instance FromJSON
1191+ GetFinalizedNegotiationByExternalDealIdRequest where
1192+ parseJSON
1193+ = withObject
1194+ "GetFinalizedNegotiationByExternalDealIdRequest"
1195+ (\ o ->
1196+ GetFinalizedNegotiationByExternalDealIdRequest <$>
1197+ (o .:? "includePrivateAuctions"))
1198+
1199+instance ToJSON
1200+ GetFinalizedNegotiationByExternalDealIdRequest where
1201+ toJSON
1202+ GetFinalizedNegotiationByExternalDealIdRequest{..}
1203+ = object
1204+ (catMaybes
1205+ [("includePrivateAuctions" .=) <$>
1206+ _gfnbedirIncludePrivateAuctions])
1207+
10981208--
1099−-- * 'mdpBuyer'
1100−marketplaceDealParty
1101− :: MarketplaceDealParty
1102−marketplaceDealParty =
1103− MarketplaceDealParty
1104− { _mdpSeller = Nothing
1105− , _mdpBuyer = Nothing
1209+-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
1210+data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
1211+ { _dcfcMaxImpressions :: !(Maybe Int32)
1212+ , _dcfcNumTimeUnits :: !(Maybe Int32)
1213+ , _dcfcTimeUnitType :: !(Maybe Text)
1214+ } deriving (Eq,Show,Data,Typeable,Generic)
1215+
1216+-- | Creates a value of 'DeliveryControlFrequencyCap' with the minimum fields required to make a request.
1217+--
1218+-- Use one of the following lenses to modify other fields as desired:
1219+--
1220+-- * 'dcfcMaxImpressions'
1221+--
1222+-- * 'dcfcNumTimeUnits'
1223+--
1224+-- * 'dcfcTimeUnitType'
1225+deliveryControlFrequencyCap
1226+ :: DeliveryControlFrequencyCap
1227+deliveryControlFrequencyCap =
1228+ DeliveryControlFrequencyCap
1229+ { _dcfcMaxImpressions = Nothing
1230+ , _dcfcNumTimeUnits = Nothing
1231+ , _dcfcTimeUnitType = Nothing
11061232 }
11071233
1108−-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1109−-- specified for a deal party.
1110−mdpSeller :: Lens' MarketplaceDealParty (Maybe Seller)
1111−mdpSeller
1112− = lens _mdpSeller (\ s a -> s{_mdpSeller = a})
1234+dcfcMaxImpressions :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1235+dcfcMaxImpressions
1236+ = lens _dcfcMaxImpressions
1237+ (\ s a -> s{_dcfcMaxImpressions = a})
11131238
1114−-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1115−-- specified for a deal-party.
1116−mdpBuyer :: Lens' MarketplaceDealParty (Maybe Buyer)
1117−mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a})
1239+dcfcNumTimeUnits :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1240+dcfcNumTimeUnits
1241+ = lens _dcfcNumTimeUnits
1242+ (\ s a -> s{_dcfcNumTimeUnits = a})
11181243
1119−instance FromJSON MarketplaceDealParty where
1244+dcfcTimeUnitType :: Lens' DeliveryControlFrequencyCap (Maybe Text)
1245+dcfcTimeUnitType
1246+ = lens _dcfcTimeUnitType
1247+ (\ s a -> s{_dcfcTimeUnitType = a})
1248+
1249+instance FromJSON DeliveryControlFrequencyCap where
11201250 parseJSON
1121− = withObject "MarketplaceDealParty"
1251+ = withObject "DeliveryControlFrequencyCap"
11221252 (\ o ->
1123− MarketplaceDealParty <$>
1124− (o .:? "seller") <*> (o .:? "buyer"))
1253+ DeliveryControlFrequencyCap <$>
1254+ (o .:? "maxImpressions") <*> (o .:? "numTimeUnits")
1255+ <*> (o .:? "timeUnitType"))
11251256
1126−instance ToJSON MarketplaceDealParty where
1127− toJSON MarketplaceDealParty{..}
1257+instance ToJSON DeliveryControlFrequencyCap where
1258+ toJSON DeliveryControlFrequencyCap{..}
11281259 = object
11291260 (catMaybes
1130− [("seller" .=) <$> _mdpSeller,
1131− ("buyer" .=) <$> _mdpBuyer])
1261+ [("maxImpressions" .=) <$> _dcfcMaxImpressions,
1262+ ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
1263+ ("timeUnitType" .=) <$> _dcfcTimeUnitType])
11321264
11331265--
11341266-- /See:/ 'dealPartyDTO' smart constructor.
@@ -1187,82 +1319,25 @@ dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO)
11871319dpdtoBuyer
11881320 = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
11891321
1190−instance FromJSON DealPartyDTO where
1191− parseJSON
1192− = withObject "DealPartyDTO"
1193− (\ o ->
1194− DealPartyDTO <$>
1195− (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1196− <*> (o .:? "name")
1197− <*> (o .:? "webProperty")
1198− <*> (o .:? "buyer"))
1199−
1200−instance ToJSON DealPartyDTO where
1201− toJSON DealPartyDTO{..}
1202− = object
1203− (catMaybes
1204− [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1205− ("customerId" .=) <$> _dpdtoCustomerId,
1206− ("name" .=) <$> _dpdtoName,
1207− ("webProperty" .=) <$> _dpdtoWebProperty,
1208− ("buyer" .=) <$> _dpdtoBuyer])
1209−
1210−--
1211−-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
1212−data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
1213− { _dcfcMaxImpressions :: !(Maybe Int32)
1214− , _dcfcNumTimeUnits :: !(Maybe Int32)
1215− , _dcfcTimeUnitType :: !(Maybe Text)
1216− } deriving (Eq,Show,Data,Typeable,Generic)
1217−
1218−-- | Creates a value of 'DeliveryControlFrequencyCap' with the minimum fields required to make a request.
1219−--
1220−-- Use one of the following lenses to modify other fields as desired:
1221−--
1222−-- * 'dcfcMaxImpressions'
1223−--
1224−-- * 'dcfcNumTimeUnits'
1225−--
1226−-- * 'dcfcTimeUnitType'
1227−deliveryControlFrequencyCap
1228− :: DeliveryControlFrequencyCap
1229−deliveryControlFrequencyCap =
1230− DeliveryControlFrequencyCap
1231− { _dcfcMaxImpressions = Nothing
1232− , _dcfcNumTimeUnits = Nothing
1233− , _dcfcTimeUnitType = Nothing
1234− }
1235−
1236−dcfcMaxImpressions :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1237−dcfcMaxImpressions
1238− = lens _dcfcMaxImpressions
1239− (\ s a -> s{_dcfcMaxImpressions = a})
1240−
1241−dcfcNumTimeUnits :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1242−dcfcNumTimeUnits
1243− = lens _dcfcNumTimeUnits
1244− (\ s a -> s{_dcfcNumTimeUnits = a})
1245−
1246−dcfcTimeUnitType :: Lens' DeliveryControlFrequencyCap (Maybe Text)
1247−dcfcTimeUnitType
1248− = lens _dcfcTimeUnitType
1249− (\ s a -> s{_dcfcTimeUnitType = a})
1250−
1251−instance FromJSON DeliveryControlFrequencyCap where
1322+instance FromJSON DealPartyDTO where
12521323 parseJSON
1253− = withObject "DeliveryControlFrequencyCap"
1324+ = withObject "DealPartyDTO"
12541325 (\ o ->
1255− DeliveryControlFrequencyCap <$>
1256− (o .:? "maxImpressions") <*> (o .:? "numTimeUnits")
1257− <*> (o .:? "timeUnitType"))
1326+ DealPartyDTO <$>
1327+ (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1328+ <*> (o .:? "name")
1329+ <*> (o .:? "webProperty")
1330+ <*> (o .:? "buyer"))
12581331
1259−instance ToJSON DeliveryControlFrequencyCap where
1260− toJSON DeliveryControlFrequencyCap{..}
1332+instance ToJSON DealPartyDTO where
1333+ toJSON DealPartyDTO{..}
12611334 = object
12621335 (catMaybes
1263− [("maxImpressions" .=) <$> _dcfcMaxImpressions,
1264− ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
1265− ("timeUnitType" .=) <$> _dcfcTimeUnitType])
1336+ [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1337+ ("customerId" .=) <$> _dpdtoCustomerId,
1338+ ("name" .=) <$> _dpdtoName,
1339+ ("webProperty" .=) <$> _dpdtoWebProperty,
1340+ ("buyer" .=) <$> _dpdtoBuyer])
12661341
12671342--
12681343-- /See:/ 'getNegotiationsResponse' smart constructor.
@@ -1311,226 +1386,87 @@ instance ToJSON GetNegotiationsResponse where
13111386 [Just ("kind" .= _gnrKind),
13121387 ("negotiations" .=) <$> _gnrNegotiations])
13131388
1314−-- | The configuration data for Ad Exchange RTB - Budget API.
1315−--
1316−-- /See:/ 'budget' smart constructor.
1317−data Budget = Budget
1318− { _bCurrencyCode :: !(Maybe Text)
1319− , _bKind :: !Text
1320− , _bBudgetAmount :: !(Maybe Int64)
1321− , _bAccountId :: !(Maybe Int64)
1322− , _bId :: !(Maybe Text)
1323− , _bBillingId :: !(Maybe Int64)
1324− } deriving (Eq,Show,Data,Typeable,Generic)
1325−
1326−-- | Creates a value of 'Budget' with the minimum fields required to make a request.
1327−--
1328−-- Use one of the following lenses to modify other fields as desired:
1329−--
1330−-- * 'bCurrencyCode'
1331−--
1332−-- * 'bKind'
1333−--
1334−-- * 'bBudgetAmount'
1335−--
1336−-- * 'bAccountId'
1337−--
1338−-- * 'bId'
1339−--
1340−-- * 'bBillingId'
1341−budget
1342− :: Budget
1343−budget =
1344− Budget
1345− { _bCurrencyCode = Nothing
1346− , _bKind = "adexchangebuyer#budget"
1347− , _bBudgetAmount = Nothing
1348− , _bAccountId = Nothing
1349− , _bId = Nothing
1350− , _bBillingId = Nothing
1351− }
1352−
1353−-- | The currency code for the buyer. This cannot be altered here.
1354−bCurrencyCode :: Lens' Budget (Maybe Text)
1355−bCurrencyCode
1356− = lens _bCurrencyCode
1357− (\ s a -> s{_bCurrencyCode = a})
1358−
1359−-- | The kind of the resource, i.e. \"adexchangebuyer#budget\".
1360−bKind :: Lens' Budget Text
1361−bKind = lens _bKind (\ s a -> s{_bKind = a})
1362−
1363−-- | The budget amount to apply for the billingId provided. This is required
1364−-- for update requests.
1365−bBudgetAmount :: Lens' Budget (Maybe Int64)
1366−bBudgetAmount
1367− = lens _bBudgetAmount
1368− (\ s a -> s{_bBudgetAmount = a})
1369−
1370−-- | The id of the account. This is required for get and update requests.
1371−bAccountId :: Lens' Budget (Maybe Int64)
1372−bAccountId
1373− = lens _bAccountId (\ s a -> s{_bAccountId = a})
1374−
1375−-- | The unique id that describes this item.
1376−bId :: Lens' Budget (Maybe Text)
1377−bId = lens _bId (\ s a -> s{_bId = a})
1378−
1379−-- | The billing id to determine which adgroup to provide budget information
1380−-- for. This is required for get and update requests.
1381−bBillingId :: Lens' Budget (Maybe Int64)
1382−bBillingId
1383− = lens _bBillingId (\ s a -> s{_bBillingId = a})
1384−
1385−instance FromJSON Budget where
1386− parseJSON
1387− = withObject "Budget"
1388− (\ o ->
1389− Budget <$>
1390− (o .:? "currencyCode") <*>
1391− (o .:? "kind" .!= "adexchangebuyer#budget")
1392− <*> (o .:? "budgetAmount")
1393− <*> (o .:? "accountId")
1394− <*> (o .:? "id")
1395− <*> (o .:? "billingId"))
1396−
1397−instance ToJSON Budget where
1398− toJSON Budget{..}
1399− = object
1400− (catMaybes
1401− [("currencyCode" .=) <$> _bCurrencyCode,
1402− Just ("kind" .= _bKind),
1403− ("budgetAmount" .=) <$> _bBudgetAmount,
1404− ("accountId" .=) <$> _bAccountId, ("id" .=) <$> _bId,
1405− ("billingId" .=) <$> _bBillingId])
1406−
1407−--
1408−-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
1409−newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
1410− { _gfnbedirIncludePrivateAuctions :: Maybe Bool
1411− } deriving (Eq,Show,Data,Typeable,Generic)
1412−
1413−-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request.
1414−--
1415−-- Use one of the following lenses to modify other fields as desired:
1416−--
1417−-- * 'gfnbedirIncludePrivateAuctions'
1418−getFinalizedNegotiationByExternalDealIdRequest
1419− :: GetFinalizedNegotiationByExternalDealIdRequest
1420−getFinalizedNegotiationByExternalDealIdRequest =
1421− GetFinalizedNegotiationByExternalDealIdRequest
1422− { _gfnbedirIncludePrivateAuctions = Nothing
1423− }
1424−
1425−gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
1426−gfnbedirIncludePrivateAuctions
1427− = lens _gfnbedirIncludePrivateAuctions
1428− (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
1429−
1430−instance FromJSON
1431− GetFinalizedNegotiationByExternalDealIdRequest where
1432− parseJSON
1433− = withObject
1434− "GetFinalizedNegotiationByExternalDealIdRequest"
1435− (\ o ->
1436− GetFinalizedNegotiationByExternalDealIdRequest <$>
1437− (o .:? "includePrivateAuctions"))
1438−
1439−instance ToJSON
1440− GetFinalizedNegotiationByExternalDealIdRequest where
1441− toJSON
1442− GetFinalizedNegotiationByExternalDealIdRequest{..}
1443− = object
1444− (catMaybes
1445− [("includePrivateAuctions" .=) <$>
1446− _gfnbedirIncludePrivateAuctions])
1447−
14481389--
1449−-- /See:/ 'privateData' smart constructor.
1450−data PrivateData = PrivateData
1451− { _pdReferencePayload :: !(Maybe Word8)
1452− , _pdReferenceId :: !(Maybe Text)
1390+-- /See:/ 'marketplaceDealParty' smart constructor.
1391+data MarketplaceDealParty = MarketplaceDealParty
1392+ { _mdpSeller :: !(Maybe Seller)
1393+ , _mdpBuyer :: !(Maybe Buyer)
14531394 } deriving (Eq,Show,Data,Typeable,Generic)
14541395
1455−-- | Creates a value of 'PrivateData' with the minimum fields required to make a request.
1396+-- | Creates a value of 'MarketplaceDealParty' with the minimum fields required to make a request.
14561397--
14571398-- Use one of the following lenses to modify other fields as desired:
14581399--
1459−-- * 'pdReferencePayload'
1400+-- * 'mdpSeller'
14601401--
1461−-- * 'pdReferenceId'
1462−privateData
1463− :: PrivateData
1464−privateData =
1465− PrivateData
1466− { _pdReferencePayload = Nothing
1467− , _pdReferenceId = Nothing
1402+-- * 'mdpBuyer'
1403+marketplaceDealParty
1404+ :: MarketplaceDealParty
1405+marketplaceDealParty =
1406+ MarketplaceDealParty
1407+ { _mdpSeller = Nothing
1408+ , _mdpBuyer = Nothing
14681409 }
14691410
1470−pdReferencePayload :: Lens' PrivateData (Maybe Word8)
1471−pdReferencePayload
1472− = lens _pdReferencePayload
1473− (\ s a -> s{_pdReferencePayload = a})
1411+-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1412+-- specified for a deal party.
1413+mdpSeller :: Lens' MarketplaceDealParty (Maybe Seller)
1414+mdpSeller
1415+ = lens _mdpSeller (\ s a -> s{_mdpSeller = a})
14741416
1475−pdReferenceId :: Lens' PrivateData (Maybe Text)
1476−pdReferenceId
1477− = lens _pdReferenceId
1478− (\ s a -> s{_pdReferenceId = a})
1417+-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1418+-- specified for a deal-party.
1419+mdpBuyer :: Lens' MarketplaceDealParty (Maybe Buyer)
1420+mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a})
14791421
1480−instance FromJSON PrivateData where
1422+instance FromJSON MarketplaceDealParty where
14811423 parseJSON
1482− = withObject "PrivateData"
1424+ = withObject "MarketplaceDealParty"
14831425 (\ o ->
1484− PrivateData <$>
1485− (o .:? "referencePayload") <*> (o .:? "referenceId"))
1426+ MarketplaceDealParty <$>
1427+ (o .:? "seller") <*> (o .:? "buyer"))
14861428
1487−instance ToJSON PrivateData where
1488− toJSON PrivateData{..}
1429+instance ToJSON MarketplaceDealParty where
1430+ toJSON MarketplaceDealParty{..}
14891431 = object
14901432 (catMaybes
1491− [("referencePayload" .=) <$> _pdReferencePayload,
1492− ("referenceId" .=) <$> _pdReferenceId])
1433+ [("seller" .=) <$> _mdpSeller,
1434+ ("buyer" .=) <$> _mdpBuyer])
14931435
14941436--
1495−-- /See:/ 'adSize' smart constructor.
1496−data AdSize = AdSize
1497− { _asHeight :: !(Maybe Int32)
1498− , _asWidth :: !(Maybe Int32)
1437+-- /See:/ 'getOrderNotesResponse' smart constructor.
1438+newtype GetOrderNotesResponse = GetOrderNotesResponse
1439+ { _gonrNotes :: Maybe [MarketplaceNote]
14991440 } deriving (Eq,Show,Data,Typeable,Generic)
15001441
1501−-- | Creates a value of 'AdSize' with the minimum fields required to make a request.
1442+-- | Creates a value of 'GetOrderNotesResponse' with the minimum fields required to make a request.
15021443--
15031444-- Use one of the following lenses to modify other fields as desired:
15041445--
1505−-- * 'asHeight'
1506−--
1507−-- * 'asWidth'
1508−adSize
1509− :: AdSize
1510−adSize =
1511− AdSize
1512− { _asHeight = Nothing
1513− , _asWidth = Nothing
1446+-- * 'gonrNotes'
1447+getOrderNotesResponse
1448+ :: GetOrderNotesResponse
1449+getOrderNotesResponse =
1450+ GetOrderNotesResponse
1451+ { _gonrNotes = Nothing
15141452 }
15151453
1516−asHeight :: Lens' AdSize (Maybe Int32)
1517−asHeight = lens _asHeight (\ s a -> s{_asHeight = a})
1518−
1519−asWidth :: Lens' AdSize (Maybe Int32)
1520−asWidth = lens _asWidth (\ s a -> s{_asWidth = a})
1454+-- | The list of matching notes.
1455+gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
1456+gonrNotes
1457+ = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
1458+ _Default
1459+ . _Coerce
15211460
1522−instance FromJSON AdSize where
1461+instance FromJSON GetOrderNotesResponse where
15231462 parseJSON
1524− = withObject "AdSize"
1463+ = withObject "GetOrderNotesResponse"
15251464 (\ o ->
1526− AdSize <$> (o .:? "height") <*> (o .:? "width"))
1465+ GetOrderNotesResponse <$> (o .:? "notes" .!= mempty))
15271466
1528−instance ToJSON AdSize where
1529− toJSON AdSize{..}
1530− = object
1531− (catMaybes
1532− [("height" .=) <$> _asHeight,
1533− ("width" .=) <$> _asWidth])
1467+instance ToJSON GetOrderNotesResponse where
1468+ toJSON GetOrderNotesResponse{..}
1469+ = object (catMaybes [("notes" .=) <$> _gonrNotes])
15341470
15351471--
15361472-- /See:/ 'ruleKeyValuePair' smart constructor.
@@ -1611,6 +1547,63 @@ instance ToJSON GetOrdersResponse where
16111547 toJSON GetOrdersResponse{..}
16121548 = object (catMaybes [("orders" .=) <$> _gorOrders])
16131549
1550+--
1551+-- /See:/ 'creativeServingRestrictionsItemDisApprovalReasonsItem' smart constructor.
1552+data CreativeServingRestrictionsItemDisApprovalReasonsItem = CreativeServingRestrictionsItemDisApprovalReasonsItem
1553+ { _csridariReason :: !(Maybe Text)
1554+ , _csridariDetails :: !(Maybe [Text])
1555+ } deriving (Eq,Show,Data,Typeable,Generic)
1556+
1557+-- | Creates a value of 'CreativeServingRestrictionsItemDisApprovalReasonsItem' with the minimum fields required to make a request.
1558+--
1559+-- Use one of the following lenses to modify other fields as desired:
1560+--
1561+-- * 'csridariReason'
1562+--
1563+-- * 'csridariDetails'
1564+creativeServingRestrictionsItemDisApprovalReasonsItem
1565+ :: CreativeServingRestrictionsItemDisApprovalReasonsItem
1566+creativeServingRestrictionsItemDisApprovalReasonsItem =
1567+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1568+ { _csridariReason = Nothing
1569+ , _csridariDetails = Nothing
1570+ }
1571+
1572+-- | The categorized reason for disapproval.
1573+csridariReason :: Lens' CreativeServingRestrictionsItemDisApprovalReasonsItem (Maybe Text)
1574+csridariReason
1575+ = lens _csridariReason
1576+ (\ s a -> s{_csridariReason = a})
1577+
1578+-- | Additional details about the reason for disapproval.
1579+csridariDetails :: Lens' CreativeServingRestrictionsItemDisApprovalReasonsItem [Text]
1580+csridariDetails
1581+ = lens _csridariDetails
1582+ (\ s a -> s{_csridariDetails = a})
1583+ . _Default
1584+ . _Coerce
1585+
1586+instance FromJSON
1587+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1588+ where
1589+ parseJSON
1590+ = withObject
1591+ "CreativeServingRestrictionsItemDisApprovalReasonsItem"
1592+ (\ o ->
1593+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1594+ <$>
1595+ (o .:? "reason") <*> (o .:? "details" .!= mempty))
1596+
1597+instance ToJSON
1598+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1599+ where
1600+ toJSON
1601+ CreativeServingRestrictionsItemDisApprovalReasonsItem{..}
1602+ = object
1603+ (catMaybes
1604+ [("reason" .=) <$> _csridariReason,
1605+ ("details" .=) <$> _csridariDetails])
1606+
16141607-- | An account feed lists Ad Exchange buyer accounts that the user has
16151608-- access to. Each entry in the feed corresponds to a single buyer account.
16161609--
@@ -1660,109 +1653,6 @@ instance ToJSON AccountsList where
16601653 [Just ("kind" .= _alKind),
16611654 ("items" .=) <$> _alItems])
16621655
1663−--
1664−-- /See:/ 'servingRestrictionsItem' smart constructor.
1665−data ServingRestrictionsItem = ServingRestrictionsItem
1666− { _sriContexts :: !(Maybe [ContextsItem])
1667− , _sriReason :: !(Maybe Text)
1668− , _sriDisapprovalReasons :: !(Maybe [DisapprovalReasonsItem])
1669− } deriving (Eq,Show,Data,Typeable,Generic)
1670−
1671−-- | Creates a value of 'ServingRestrictionsItem' with the minimum fields required to make a request.
1672−--
1673−-- Use one of the following lenses to modify other fields as desired:
1674−--
1675−-- * 'sriContexts'
1676−--
1677−-- * 'sriReason'
1678−--
1679−-- * 'sriDisapprovalReasons'
1680−servingRestrictionsItem
1681− :: ServingRestrictionsItem
1682−servingRestrictionsItem =
1683− ServingRestrictionsItem
1684− { _sriContexts = Nothing
1685− , _sriReason = Nothing
1686− , _sriDisapprovalReasons = Nothing
1687− }
1688−
1689−-- | All known contexts\/restrictions.
1690−sriContexts :: Lens' ServingRestrictionsItem [ContextsItem]
1691−sriContexts
1692− = lens _sriContexts (\ s a -> s{_sriContexts = a}) .
1693− _Default
1694− . _Coerce
1695−
1696−-- | Why the creative is ineligible to serve in this context (e.g., it has
1697−-- been explicitly disapproved or is pending review).
1698−sriReason :: Lens' ServingRestrictionsItem (Maybe Text)
1699−sriReason
1700− = lens _sriReason (\ s a -> s{_sriReason = a})
1701−
1702−-- | The reasons for disapproval within this restriction, if any. Note that
1703−-- not all disapproval reasons may be categorized, so it is possible for
1704−-- the creative to have a status of DISAPPROVED or CONDITIONALLY_APPROVED
1705−-- with an empty list for disapproval_reasons. In this case, please reach
1706−-- out to your TAM to help debug the issue.
1707−sriDisapprovalReasons :: Lens' ServingRestrictionsItem [DisapprovalReasonsItem]
1708−sriDisapprovalReasons
1709− = lens _sriDisapprovalReasons
1710− (\ s a -> s{_sriDisapprovalReasons = a})
1711− . _Default
1712− . _Coerce
1713−
1714−instance FromJSON ServingRestrictionsItem where
1715− parseJSON
1716− = withObject "ServingRestrictionsItem"
1717− (\ o ->
1718− ServingRestrictionsItem <$>
1719− (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
1720− <*> (o .:? "disapprovalReasons" .!= mempty))
1721−
1722−instance ToJSON ServingRestrictionsItem where
1723− toJSON ServingRestrictionsItem{..}
1724− = object
1725− (catMaybes
1726− [("contexts" .=) <$> _sriContexts,
1727− ("reason" .=) <$> _sriReason,
1728− ("disapprovalReasons" .=) <$>
1729− _sriDisapprovalReasons])
1730−
1731−--
1732−-- /See:/ 'getOrderNotesResponse' smart constructor.
1733−newtype GetOrderNotesResponse = GetOrderNotesResponse
1734− { _gonrNotes :: Maybe [MarketplaceNote]
1735− } deriving (Eq,Show,Data,Typeable,Generic)
1736−
1737−-- | Creates a value of 'GetOrderNotesResponse' with the minimum fields required to make a request.
1738−--
1739−-- Use one of the following lenses to modify other fields as desired:
1740−--
1741−-- * 'gonrNotes'
1742−getOrderNotesResponse
1743− :: GetOrderNotesResponse
1744−getOrderNotesResponse =
1745− GetOrderNotesResponse
1746− { _gonrNotes = Nothing
1747− }
1748−
1749−-- | The list of matching notes.
1750−gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
1751−gonrNotes
1752− = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
1753− _Default
1754− . _Coerce
1755−
1756−instance FromJSON GetOrderNotesResponse where
1757− parseJSON
1758− = withObject "GetOrderNotesResponse"
1759− (\ o ->
1760− GetOrderNotesResponse <$> (o .:? "notes" .!= mempty))
1761−
1762−instance ToJSON GetOrderNotesResponse where
1763− toJSON GetOrderNotesResponse{..}
1764− = object (catMaybes [("notes" .=) <$> _gonrNotes])
1765−
17661656--
17671657-- /See:/ 'createOrdersRequest' smart constructor.
17681658data CreateOrdersRequest = CreateOrdersRequest
@@ -1811,139 +1701,145 @@ instance ToJSON CreateOrdersRequest where
18111701 [("webPropertyCode" .=) <$> _cWebPropertyCode,
18121702 ("orders" .=) <$> _cOrders])
18131703
1814−-- | Used to specify pricing rules for buyers\/advertisers. Each
1815−-- PricePerBuyer in an offer can become [0,1] deals. To check if there is a
1816−-- PricePerBuyer for a particular buyer or buyer\/advertiser pair, we look
1817−-- for the most specific matching rule - we first look for a rule matching
1818−-- the buyer and advertiser, next a rule with the buyer but an empty
1819−-- advertiser list, and otherwise look for a matching rule where no buyer
1820−-- is set.
18211704--
1822−-- /See:/ 'pricePerBuyer' smart constructor.
1823−data PricePerBuyer = PricePerBuyer
1824− { _ppbPrice :: !(Maybe Price)
1825− , _ppbBuyer :: !(Maybe Buyer)
1705+-- /See:/ 'adSize' smart constructor.
1706+data AdSize = AdSize
1707+ { _asHeight :: !(Maybe Int32)
1708+ , _asWidth :: !(Maybe Int32)
18261709 } deriving (Eq,Show,Data,Typeable,Generic)
18271710
1828−-- | Creates a value of 'PricePerBuyer' with the minimum fields required to make a request.
1711+-- | Creates a value of 'AdSize' with the minimum fields required to make a request.
18291712--
18301713-- Use one of the following lenses to modify other fields as desired:
18311714--
1832−-- * 'ppbPrice'
1715+-- * 'asHeight'
18331716--
1834−-- * 'ppbBuyer'
1835−pricePerBuyer
1836− :: PricePerBuyer
1837−pricePerBuyer =
1838− PricePerBuyer
1839− { _ppbPrice = Nothing
1840− , _ppbBuyer = Nothing
1717+-- * 'asWidth'
1718+adSize
1719+ :: AdSize
1720+adSize =
1721+ AdSize
1722+ { _asHeight = Nothing
1723+ , _asWidth = Nothing
18411724 }
18421725
1843−-- | The specified price
1844−ppbPrice :: Lens' PricePerBuyer (Maybe Price)
1845−ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a})
1726+asHeight :: Lens' AdSize (Maybe Int32)
1727+asHeight = lens _asHeight (\ s a -> s{_asHeight = a})
18461728
1847−-- | The buyer who will pay this price. If unset, all buyers can pay this
1848−-- price (if the advertisers match, and there\'s no more specific rule
1849−-- matching the buyer).
1850−ppbBuyer :: Lens' PricePerBuyer (Maybe Buyer)
1851−ppbBuyer = lens _ppbBuyer (\ s a -> s{_ppbBuyer = a})
1729+asWidth :: Lens' AdSize (Maybe Int32)
1730+asWidth = lens _asWidth (\ s a -> s{_asWidth = a})
18521731
1853−instance FromJSON PricePerBuyer where
1732+instance FromJSON AdSize where
18541733 parseJSON
1855− = withObject "PricePerBuyer"
1734+ = withObject "AdSize"
18561735 (\ o ->
1857− PricePerBuyer <$>
1858− (o .:? "price") <*> (o .:? "buyer"))
1736+ AdSize <$> (o .:? "height") <*> (o .:? "width"))
18591737
1860−instance ToJSON PricePerBuyer where
1861− toJSON PricePerBuyer{..}
1738+instance ToJSON AdSize where
1739+ toJSON AdSize{..}
18621740 = object
18631741 (catMaybes
1864− [("price" .=) <$> _ppbPrice,
1865− ("buyer" .=) <$> _ppbBuyer])
1742+ [("height" .=) <$> _asHeight,
1743+ ("width" .=) <$> _asWidth])
18661744
18671745--
1868−-- /See:/ 'targetingValueDayPartTargetingDayPart' smart constructor.
1869−data TargetingValueDayPartTargetingDayPart = TargetingValueDayPartTargetingDayPart
1870− { _tvdptdpEndHour :: !(Maybe Int32)
1871− , _tvdptdpStartHour :: !(Maybe Int32)
1872− , _tvdptdpStartMinute :: !(Maybe Int32)
1873− , _tvdptdpDayOfWeek :: !(Maybe Text)
1874− , _tvdptdpEndMinute :: !(Maybe Int32)
1746+-- /See:/ 'creativeCorrectionsItem' smart constructor.
1747+data CreativeCorrectionsItem = CreativeCorrectionsItem
1748+ { _cciReason :: !(Maybe Text)
1749+ , _cciDetails :: !(Maybe [Text])
18751750 } deriving (Eq,Show,Data,Typeable,Generic)
18761751
1877−-- | Creates a value of 'TargetingValueDayPartTargetingDayPart' with the minimum fields required to make a request.
1752+-- | Creates a value of 'CreativeCorrectionsItem' with the minimum fields required to make a request.
18781753--
18791754-- Use one of the following lenses to modify other fields as desired:
18801755--
1881−-- * 'tvdptdpEndHour'
1882−--
1883−-- * 'tvdptdpStartHour'
1884−--
1885−-- * 'tvdptdpStartMinute'
1886−--
1887−-- * 'tvdptdpDayOfWeek'
1756+-- * 'cciReason'
18881757--
1889−-- * 'tvdptdpEndMinute'
1890−targetingValueDayPartTargetingDayPart
1891− :: TargetingValueDayPartTargetingDayPart
1892−targetingValueDayPartTargetingDayPart =
1893− TargetingValueDayPartTargetingDayPart
1894− { _tvdptdpEndHour = Nothing
1895− , _tvdptdpStartHour = Nothing
1896− , _tvdptdpStartMinute = Nothing
1897− , _tvdptdpDayOfWeek = Nothing
1898− , _tvdptdpEndMinute = Nothing
1758+-- * 'cciDetails'
1759+creativeCorrectionsItem
1760+ :: CreativeCorrectionsItem
1761+creativeCorrectionsItem =
1762+ CreativeCorrectionsItem
1763+ { _cciReason = Nothing
1764+ , _cciDetails = Nothing
18991765 }
19001766
1901−tvdptdpEndHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1902−tvdptdpEndHour
1903− = lens _tvdptdpEndHour
1904− (\ s a -> s{_tvdptdpEndHour = a})
1767+-- | The type of correction that was applied to the creative.
1768+cciReason :: Lens' CreativeCorrectionsItem (Maybe Text)
1769+cciReason
1770+ = lens _cciReason (\ s a -> s{_cciReason = a})
19051771
1906−tvdptdpStartHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1907−tvdptdpStartHour
1908− = lens _tvdptdpStartHour
1909− (\ s a -> s{_tvdptdpStartHour = a})
1772+-- | Additional details about the correction.
1773+cciDetails :: Lens' CreativeCorrectionsItem [Text]
1774+cciDetails
1775+ = lens _cciDetails (\ s a -> s{_cciDetails = a}) .
1776+ _Default
1777+ . _Coerce
19101778
1911−tvdptdpStartMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1912−tvdptdpStartMinute
1913− = lens _tvdptdpStartMinute
1914− (\ s a -> s{_tvdptdpStartMinute = a})
1779+instance FromJSON CreativeCorrectionsItem where
1780+ parseJSON
1781+ = withObject "CreativeCorrectionsItem"
1782+ (\ o ->
1783+ CreativeCorrectionsItem <$>
1784+ (o .:? "reason") <*> (o .:? "details" .!= mempty))
19151785
1916−tvdptdpDayOfWeek :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Text)
1917−tvdptdpDayOfWeek
1918− = lens _tvdptdpDayOfWeek
1919− (\ s a -> s{_tvdptdpDayOfWeek = a})
1786+instance ToJSON CreativeCorrectionsItem where
1787+ toJSON CreativeCorrectionsItem{..}
1788+ = object
1789+ (catMaybes
1790+ [("reason" .=) <$> _cciReason,
1791+ ("details" .=) <$> _cciDetails])
19201792
1921−tvdptdpEndMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1922−tvdptdpEndMinute
1923− = lens _tvdptdpEndMinute
1924− (\ s a -> s{_tvdptdpEndMinute = a})
1793+--
1794+-- /See:/ 'addOrderDealsResponse' smart constructor.
1795+data AddOrderDealsResponse = AddOrderDealsResponse
1796+ { _aodrDeals :: !(Maybe [MarketplaceDeal])
1797+ , _aodrOrderRevisionNumber :: !(Maybe Int64)
1798+ } deriving (Eq,Show,Data,Typeable,Generic)
19251799
1926−instance FromJSON
1927− TargetingValueDayPartTargetingDayPart where
1800+-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
1801+--
1802+-- Use one of the following lenses to modify other fields as desired:
1803+--
1804+-- * 'aodrDeals'
1805+--
1806+-- * 'aodrOrderRevisionNumber'
1807+addOrderDealsResponse
1808+ :: AddOrderDealsResponse
1809+addOrderDealsResponse =
1810+ AddOrderDealsResponse
1811+ { _aodrDeals = Nothing
1812+ , _aodrOrderRevisionNumber = Nothing
1813+ }
1814+
1815+-- | List of deals added (in the same order as passed in the request)
1816+aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
1817+aodrDeals
1818+ = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
1819+ _Default
1820+ . _Coerce
1821+
1822+-- | The updated revision number for the order.
1823+aodrOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
1824+aodrOrderRevisionNumber
1825+ = lens _aodrOrderRevisionNumber
1826+ (\ s a -> s{_aodrOrderRevisionNumber = a})
1827+
1828+instance FromJSON AddOrderDealsResponse where
19281829 parseJSON
1929− = withObject "TargetingValueDayPartTargetingDayPart"
1830+ = withObject "AddOrderDealsResponse"
19301831 (\ o ->
1931− TargetingValueDayPartTargetingDayPart <$>
1932− (o .:? "endHour") <*> (o .:? "startHour") <*>
1933− (o .:? "startMinute")
1934− <*> (o .:? "dayOfWeek")
1935− <*> (o .:? "endMinute"))
1832+ AddOrderDealsResponse <$>
1833+ (o .:? "deals" .!= mempty) <*>
1834+ (o .:? "orderRevisionNumber"))
19361835
1937−instance ToJSON TargetingValueDayPartTargetingDayPart
1938− where
1939− toJSON TargetingValueDayPartTargetingDayPart{..}
1836+instance ToJSON AddOrderDealsResponse where
1837+ toJSON AddOrderDealsResponse{..}
19401838 = object
19411839 (catMaybes
1942− [("endHour" .=) <$> _tvdptdpEndHour,
1943− ("startHour" .=) <$> _tvdptdpStartHour,
1944− ("startMinute" .=) <$> _tvdptdpStartMinute,
1945− ("dayOfWeek" .=) <$> _tvdptdpDayOfWeek,
1946− ("endMinute" .=) <$> _tvdptdpEndMinute])
1840+ [("deals" .=) <$> _aodrDeals,
1841+ ("orderRevisionNumber" .=) <$>
1842+ _aodrOrderRevisionNumber])
19471843
19481844--
19491845-- /See:/ 'deliveryControl' smart constructor.
@@ -1994,17 +1890,70 @@ instance ToJSON DeliveryControl where
19941890 [("frequencyCaps" .=) <$> _dcFrequencyCaps,
19951891 ("deliveryRateType" .=) <$> _dcDeliveryRateType])
19961892
1893+-- | Used to specify pricing rules for buyers\/advertisers. Each
1894+-- PricePerBuyer in an offer can become [0,1] deals. To check if there is a
1895+-- PricePerBuyer for a particular buyer or buyer\/advertiser pair, we look
1896+-- for the most specific matching rule - we first look for a rule matching
1897+-- the buyer and advertiser, next a rule with the buyer but an empty
1898+-- advertiser list, and otherwise look for a matching rule where no buyer
1899+-- is set.
1900+--
1901+-- /See:/ 'pricePerBuyer' smart constructor.
1902+data PricePerBuyer = PricePerBuyer
1903+ { _ppbPrice :: !(Maybe Price)
1904+ , _ppbBuyer :: !(Maybe Buyer)
1905+ } deriving (Eq,Show,Data,Typeable,Generic)
1906+
1907+-- | Creates a value of 'PricePerBuyer' with the minimum fields required to make a request.
1908+--
1909+-- Use one of the following lenses to modify other fields as desired:
1910+--
1911+-- * 'ppbPrice'
1912+--
1913+-- * 'ppbBuyer'
1914+pricePerBuyer
1915+ :: PricePerBuyer
1916+pricePerBuyer =
1917+ PricePerBuyer
1918+ { _ppbPrice = Nothing
1919+ , _ppbBuyer = Nothing
1920+ }
1921+
1922+-- | The specified price
1923+ppbPrice :: Lens' PricePerBuyer (Maybe Price)
1924+ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a})
1925+
1926+-- | The buyer who will pay this price. If unset, all buyers can pay this
1927+-- price (if the advertisers match, and there\'s no more specific rule
1928+-- matching the buyer).
1929+ppbBuyer :: Lens' PricePerBuyer (Maybe Buyer)
1930+ppbBuyer = lens _ppbBuyer (\ s a -> s{_ppbBuyer = a})
1931+
1932+instance FromJSON PricePerBuyer where
1933+ parseJSON
1934+ = withObject "PricePerBuyer"
1935+ (\ o ->
1936+ PricePerBuyer <$>
1937+ (o .:? "price") <*> (o .:? "buyer"))
1938+
1939+instance ToJSON PricePerBuyer where
1940+ toJSON PricePerBuyer{..}
1941+ = object
1942+ (catMaybes
1943+ [("price" .=) <$> _ppbPrice,
1944+ ("buyer" .=) <$> _ppbBuyer])
1945+
19971946-- | A creative and its classification data.
19981947--
19991948-- /See:/ 'creative' smart constructor.
20001949data Creative = Creative
20011950 { _cAttribute :: !(Maybe [Int32])
2002− , _cNATiveAd :: !(Maybe NATiveAd)
1951+ , _cNATiveAd :: !(Maybe CreativeNATiveAd)
20031952 , _cHeight :: !(Maybe Int32)
20041953 , _cBuyerCreativeId :: !(Maybe Text)
20051954 , _cAdvertiserName :: !(Maybe Text)
20061955 , _cAgencyId :: !(Maybe Int64)
2007− , _cCorrections :: !(Maybe [CorrectionsItem])
1956+ , _cCorrections :: !(Maybe [CreativeCorrectionsItem])
20081957 , _cProductCategories :: !(Maybe [Int32])
20091958 , _cKind :: !Text
20101959 , _cHTMLSnippet :: !(Maybe Text)
@@ -2016,12 +1965,12 @@ data Creative = Creative
20161965 , _cVendorType :: !(Maybe [Int32])
20171966 , _cAccountId :: !(Maybe Int32)
20181967 , _cImpressionTrackingURL :: !(Maybe [Text])
2019− , _cFilteringReasons :: !(Maybe FilteringReasons)
1968+ , _cFilteringReasons :: !(Maybe CreativeFilteringReasons)
20201969 , _cVersion :: !(Maybe Int32)
20211970 , _cSensitiveCategories :: !(Maybe [Int32])
20221971 , _cVideoURL :: !(Maybe Text)
20231972 , _cAPIUploadTimestamp :: !(Maybe DateTime')
2024− , _cServingRestrictions :: !(Maybe [ServingRestrictionsItem])
1973+ , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
20251974 , _cOpenAuctionStatus :: !(Maybe Text)
20261975 } deriving (Eq,Show,Data,Typeable,Generic)
20271976
@@ -2117,7 +2066,7 @@ cAttribute
21172066 . _Coerce
21182067
21192068-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
2120−cNATiveAd :: Lens' Creative (Maybe NATiveAd)
2069+cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd)
21212070cNATiveAd
21222071 = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})
21232072
@@ -2144,7 +2093,7 @@ cAgencyId
21442093
21452094-- | Shows any corrections that were applied to this creative. Read-only.
21462095-- This field should not be set in requests.
2147−cCorrections :: Lens' Creative [CorrectionsItem]
2096+cCorrections :: Lens' Creative [CreativeCorrectionsItem]
21482097cCorrections
21492098 = lens _cCorrections (\ s a -> s{_cCorrections = a})
21502099 . _Default
@@ -2230,7 +2179,7 @@ cImpressionTrackingURL
22302179
22312180-- | The filtering reasons for the creative. Read-only. This field should not
22322181-- be set in requests.
2233−cFilteringReasons :: Lens' Creative (Maybe FilteringReasons)
2182+cFilteringReasons :: Lens' Creative (Maybe CreativeFilteringReasons)
22342183cFilteringReasons
22352184 = lens _cFilteringReasons
22362185 (\ s a -> s{_cFilteringReasons = a})
@@ -2267,7 +2216,7 @@ cAPIUploadTimestamp
22672216-- relates to where something ultimately serves (for example, a physical
22682217-- location, a platform, an HTTPS vs HTTP request, or the type of auction).
22692218-- Read-only. This field should not be set in requests.
2270−cServingRestrictions :: Lens' Creative [ServingRestrictionsItem]
2219+cServingRestrictions :: Lens' Creative [CreativeServingRestrictionsItem]
22712220cServingRestrictions
22722221 = lens _cServingRestrictions
22732222 (\ s a -> s{_cServingRestrictions = a})
@@ -2347,55 +2296,85 @@ instance ToJSON Creative where
23472296 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
23482297
23492298--
2350−-- /See:/ 'addOrderDealsResponse' smart constructor.
2351−data AddOrderDealsResponse = AddOrderDealsResponse
2352− { _aodrDeals :: !(Maybe [MarketplaceDeal])
2353− , _aodrOrderRevisionNumber :: !(Maybe Int64)
2299+-- /See:/ 'targetingValueDayPartTargetingDayPart' smart constructor.
2300+data TargetingValueDayPartTargetingDayPart = TargetingValueDayPartTargetingDayPart
2301+ { _tvdptdpEndHour :: !(Maybe Int32)
2302+ , _tvdptdpStartHour :: !(Maybe Int32)
2303+ , _tvdptdpStartMinute :: !(Maybe Int32)
2304+ , _tvdptdpDayOfWeek :: !(Maybe Text)
2305+ , _tvdptdpEndMinute :: !(Maybe Int32)
23542306 } deriving (Eq,Show,Data,Typeable,Generic)
23552307
2356−-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
2308+-- | Creates a value of 'TargetingValueDayPartTargetingDayPart' with the minimum fields required to make a request.
23572309--
23582310-- Use one of the following lenses to modify other fields as desired:
23592311--
2360−-- * 'aodrDeals'
2312+-- * 'tvdptdpEndHour'
23612313--
2362−-- * 'aodrOrderRevisionNumber'
2363−addOrderDealsResponse
2364− :: AddOrderDealsResponse
2365−addOrderDealsResponse =
2366− AddOrderDealsResponse
2367− { _aodrDeals = Nothing
2368− , _aodrOrderRevisionNumber = Nothing
2314+-- * 'tvdptdpStartHour'
2315+--
2316+-- * 'tvdptdpStartMinute'
2317+--
2318+-- * 'tvdptdpDayOfWeek'
2319+--
2320+-- * 'tvdptdpEndMinute'
2321+targetingValueDayPartTargetingDayPart
2322+ :: TargetingValueDayPartTargetingDayPart
2323+targetingValueDayPartTargetingDayPart =
2324+ TargetingValueDayPartTargetingDayPart
2325+ { _tvdptdpEndHour = Nothing
2326+ , _tvdptdpStartHour = Nothing
2327+ , _tvdptdpStartMinute = Nothing
2328+ , _tvdptdpDayOfWeek = Nothing
2329+ , _tvdptdpEndMinute = Nothing
23692330 }
23702331
2371−-- | List of deals added (in the same order as passed in the request)
2372−aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
2373−aodrDeals
2374− = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
2375− _Default
2376− . _Coerce
2332+tvdptdpEndHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2333+tvdptdpEndHour
2334+ = lens _tvdptdpEndHour
2335+ (\ s a -> s{_tvdptdpEndHour = a})
23772336
2378−-- | The updated revision number for the order.
2379−aodrOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
2380−aodrOrderRevisionNumber
2381− = lens _aodrOrderRevisionNumber
2382− (\ s a -> s{_aodrOrderRevisionNumber = a})
2337+tvdptdpStartHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2338+tvdptdpStartHour
2339+ = lens _tvdptdpStartHour
2340+ (\ s a -> s{_tvdptdpStartHour = a})
23832341
2384−instance FromJSON AddOrderDealsResponse where
2342+tvdptdpStartMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2343+tvdptdpStartMinute
2344+ = lens _tvdptdpStartMinute
2345+ (\ s a -> s{_tvdptdpStartMinute = a})
2346+
2347+tvdptdpDayOfWeek :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Text)
2348+tvdptdpDayOfWeek
2349+ = lens _tvdptdpDayOfWeek
2350+ (\ s a -> s{_tvdptdpDayOfWeek = a})
2351+
2352+tvdptdpEndMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2353+tvdptdpEndMinute
2354+ = lens _tvdptdpEndMinute
2355+ (\ s a -> s{_tvdptdpEndMinute = a})
2356+
2357+instance FromJSON
2358+ TargetingValueDayPartTargetingDayPart where
23852359 parseJSON
2386− = withObject "AddOrderDealsResponse"
2360+ = withObject "TargetingValueDayPartTargetingDayPart"
23872361 (\ o ->
2388− AddOrderDealsResponse <$>
2389− (o .:? "deals" .!= mempty) <*>
2390− (o .:? "orderRevisionNumber"))
2362+ TargetingValueDayPartTargetingDayPart <$>
2363+ (o .:? "endHour") <*> (o .:? "startHour") <*>
2364+ (o .:? "startMinute")
2365+ <*> (o .:? "dayOfWeek")
2366+ <*> (o .:? "endMinute"))
23912367
2392−instance ToJSON AddOrderDealsResponse where
2393− toJSON AddOrderDealsResponse{..}
2368+instance ToJSON TargetingValueDayPartTargetingDayPart
2369+ where
2370+ toJSON TargetingValueDayPartTargetingDayPart{..}
23942371 = object
23952372 (catMaybes
2396− [("deals" .=) <$> _aodrDeals,
2397− ("orderRevisionNumber" .=) <$>
2398− _aodrOrderRevisionNumber])
2373+ [("endHour" .=) <$> _tvdptdpEndHour,
2374+ ("startHour" .=) <$> _tvdptdpStartHour,
2375+ ("startMinute" .=) <$> _tvdptdpStartMinute,
2376+ ("dayOfWeek" .=) <$> _tvdptdpDayOfWeek,
2377+ ("endMinute" .=) <$> _tvdptdpEndMinute])
23992378
24002379--
24012380-- /See:/ 'pretargetingConfigList' smart constructor.
@@ -2548,47 +2527,6 @@ instance ToJSON BuyerDTO where
25482527 ("displayName" .=) <$> _buyDisplayName,
25492528 ("id" .=) <$> _buyId])
25502529
2551−--
2552−-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2553−newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2554− { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
2555− } deriving (Eq,Show,Data,Typeable,Generic)
2556−
2557−-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2558−--
2559−-- Use one of the following lenses to modify other fields as desired:
2560−--
2561−-- * 'dtngfptFixedPrices'
2562−dealTermsNonGuaranteedFixedPriceTerms
2563− :: DealTermsNonGuaranteedFixedPriceTerms
2564−dealTermsNonGuaranteedFixedPriceTerms =
2565− DealTermsNonGuaranteedFixedPriceTerms
2566− { _dtngfptFixedPrices = Nothing
2567− }
2568−
2569−-- | Fixed price for the specified buyer.
2570−dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2571−dtngfptFixedPrices
2572− = lens _dtngfptFixedPrices
2573− (\ s a -> s{_dtngfptFixedPrices = a})
2574− . _Default
2575− . _Coerce
2576−
2577−instance FromJSON
2578− DealTermsNonGuaranteedFixedPriceTerms where
2579− parseJSON
2580− = withObject "DealTermsNonGuaranteedFixedPriceTerms"
2581− (\ o ->
2582− DealTermsNonGuaranteedFixedPriceTerms <$>
2583− (o .:? "fixedPrices" .!= mempty))
2584−
2585−instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2586− where
2587− toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
2588− = object
2589− (catMaybes
2590− [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2591−
25922530--
25932531-- /See:/ 'adSlotDTO' smart constructor.
25942532data AdSlotDTO = AdSlotDTO
@@ -2655,27 +2593,68 @@ asdtoDescription
26552593 = lens _asdtoDescription
26562594 (\ s a -> s{_asdtoDescription = a})
26572595
2658−instance FromJSON AdSlotDTO where
2596+instance FromJSON AdSlotDTO where
2597+ parseJSON
2598+ = withObject "AdSlotDTO"
2599+ (\ o ->
2600+ AdSlotDTO <$>
2601+ (o .:? "webPropertyId") <*> (o .:? "size") <*>
2602+ (o .:? "channelCode")
2603+ <*> (o .:? "channelId")
2604+ <*> (o .:? "name")
2605+ <*> (o .:? "description"))
2606+
2607+instance ToJSON AdSlotDTO where
2608+ toJSON AdSlotDTO{..}
2609+ = object
2610+ (catMaybes
2611+ [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2612+ ("size" .=) <$> _asdtoSize,
2613+ ("channelCode" .=) <$> _asdtoChannelCode,
2614+ ("channelId" .=) <$> _asdtoChannelId,
2615+ ("name" .=) <$> _asdtoName,
2616+ ("description" .=) <$> _asdtoDescription])
2617+
2618+--
2619+-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2620+newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2621+ { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
2622+ } deriving (Eq,Show,Data,Typeable,Generic)
2623+
2624+-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2625+--
2626+-- Use one of the following lenses to modify other fields as desired:
2627+--
2628+-- * 'dtngfptFixedPrices'
2629+dealTermsNonGuaranteedFixedPriceTerms
2630+ :: DealTermsNonGuaranteedFixedPriceTerms
2631+dealTermsNonGuaranteedFixedPriceTerms =
2632+ DealTermsNonGuaranteedFixedPriceTerms
2633+ { _dtngfptFixedPrices = Nothing
2634+ }
2635+
2636+-- | Fixed price for the specified buyer.
2637+dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2638+dtngfptFixedPrices
2639+ = lens _dtngfptFixedPrices
2640+ (\ s a -> s{_dtngfptFixedPrices = a})
2641+ . _Default
2642+ . _Coerce
2643+
2644+instance FromJSON
2645+ DealTermsNonGuaranteedFixedPriceTerms where
26592646 parseJSON
2660− = withObject "AdSlotDTO"
2647+ = withObject "DealTermsNonGuaranteedFixedPriceTerms"
26612648 (\ o ->
2662− AdSlotDTO <$>
2663− (o .:? "webPropertyId") <*> (o .:? "size") <*>
2664− (o .:? "channelCode")
2665− <*> (o .:? "channelId")
2666− <*> (o .:? "name")
2667− <*> (o .:? "description"))
2649+ DealTermsNonGuaranteedFixedPriceTerms <$>
2650+ (o .:? "fixedPrices" .!= mempty))
26682651
2669−instance ToJSON AdSlotDTO where
2670− toJSON AdSlotDTO{..}
2652+instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2653+ where
2654+ toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
26712655 = object
26722656 (catMaybes
2673− [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2674− ("size" .=) <$> _asdtoSize,
2675− ("channelCode" .=) <$> _asdtoChannelCode,
2676− ("channelId" .=) <$> _asdtoChannelId,
2677− ("name" .=) <$> _asdtoName,
2678− ("description" .=) <$> _asdtoDescription])
2657+ [("fixedPrices" .=) <$> _dtngfptFixedPrices])
26792658
26802659-- | The configuration data for an Ad Exchange performance report list.
26812660--
@@ -2987,6 +2966,105 @@ instance ToJSON PerformanceReport where
29872966 ("pixelMatchRequests" .=) <$> _prPixelMatchRequests,
29882967 ("outOfQuota" .=) <$> _prOutOfQuota])
29892968
2969+--
2970+-- /See:/ 'pretargetingConfigExcludedPlacementsItem' smart constructor.
2971+data PretargetingConfigExcludedPlacementsItem = PretargetingConfigExcludedPlacementsItem
2972+ { _pcepiToken :: !(Maybe Text)
2973+ , _pcepiType :: !(Maybe Text)
2974+ } deriving (Eq,Show,Data,Typeable,Generic)
2975+
2976+-- | Creates a value of 'PretargetingConfigExcludedPlacementsItem' with the minimum fields required to make a request.
2977+--
2978+-- Use one of the following lenses to modify other fields as desired:
2979+--
2980+-- * 'pcepiToken'
2981+--
2982+-- * 'pcepiType'
2983+pretargetingConfigExcludedPlacementsItem
2984+ :: PretargetingConfigExcludedPlacementsItem
2985+pretargetingConfigExcludedPlacementsItem =
2986+ PretargetingConfigExcludedPlacementsItem
2987+ { _pcepiToken = Nothing
2988+ , _pcepiType = Nothing
2989+ }
2990+
2991+-- | The value of the placement. Interpretation depends on the placement
2992+-- type, e.g. URL for a site placement, channel name for a channel
2993+-- placement, app id for a mobile app placement.
2994+pcepiToken :: Lens' PretargetingConfigExcludedPlacementsItem (Maybe Text)
2995+pcepiToken
2996+ = lens _pcepiToken (\ s a -> s{_pcepiToken = a})
2997+
2998+-- | The type of the placement.
2999+pcepiType :: Lens' PretargetingConfigExcludedPlacementsItem (Maybe Text)
3000+pcepiType
3001+ = lens _pcepiType (\ s a -> s{_pcepiType = a})
3002+
3003+instance FromJSON
3004+ PretargetingConfigExcludedPlacementsItem where
3005+ parseJSON
3006+ = withObject
3007+ "PretargetingConfigExcludedPlacementsItem"
3008+ (\ o ->
3009+ PretargetingConfigExcludedPlacementsItem <$>
3010+ (o .:? "token") <*> (o .:? "type"))
3011+
3012+instance ToJSON
3013+ PretargetingConfigExcludedPlacementsItem where
3014+ toJSON PretargetingConfigExcludedPlacementsItem{..}
3015+ = object
3016+ (catMaybes
3017+ [("token" .=) <$> _pcepiToken,
3018+ ("type" .=) <$> _pcepiType])
3019+
3020+--
3021+-- /See:/ 'seller' smart constructor.
3022+data Seller = Seller
3023+ { _sAccountId :: !(Maybe Text)
3024+ , _sSubAccountId :: !(Maybe Text)
3025+ } deriving (Eq,Show,Data,Typeable,Generic)
3026+
3027+-- | Creates a value of 'Seller' with the minimum fields required to make a request.
3028+--
3029+-- Use one of the following lenses to modify other fields as desired:
3030+--
3031+-- * 'sAccountId'
3032+--
3033+-- * 'sSubAccountId'
3034+seller
3035+ :: Seller
3036+seller =
3037+ Seller
3038+ { _sAccountId = Nothing
3039+ , _sSubAccountId = Nothing
3040+ }
3041+
3042+-- | The unique id for the seller. The seller fills in this field. The seller
3043+-- account id is then available to buyer in the offer.
3044+sAccountId :: Lens' Seller (Maybe Text)
3045+sAccountId
3046+ = lens _sAccountId (\ s a -> s{_sAccountId = a})
3047+
3048+-- | Optional sub-account id for the seller.
3049+sSubAccountId :: Lens' Seller (Maybe Text)
3050+sSubAccountId
3051+ = lens _sSubAccountId
3052+ (\ s a -> s{_sSubAccountId = a})
3053+
3054+instance FromJSON Seller where
3055+ parseJSON
3056+ = withObject "Seller"
3057+ (\ o ->
3058+ Seller <$>
3059+ (o .:? "accountId") <*> (o .:? "subAccountId"))
3060+
3061+instance ToJSON Seller where
3062+ toJSON Seller{..}
3063+ = object
3064+ (catMaybes
3065+ [("accountId" .=) <$> _sAccountId,
3066+ ("subAccountId" .=) <$> _sSubAccountId])
3067+
29903068-- | Configuration data for an Ad Exchange buyer account.
29913069--
29923070-- /See:/ 'account' smart constructor.
@@ -2998,7 +3076,7 @@ data Account = Account
29983076 , _aCookieMatchingNid :: !(Maybe Text)
29993077 , _aNumberActiveCreatives :: !(Maybe Int32)
30003078 , _aId :: !(Maybe Int32)
3001− , _aBidderLocation :: !(Maybe [BidderLocationItem])
3079+ , _aBidderLocation :: !(Maybe [AccountBidderLocationItem])
30023080 } deriving (Eq,Show,Data,Typeable,Generic)
30033081
30043082-- | Creates a value of 'Account' with the minimum fields required to make a request.
@@ -3080,7 +3158,7 @@ aId :: Lens' Account (Maybe Int32)
30803158aId = lens _aId (\ s a -> s{_aId = a})
30813159
30823160-- | Your bidder locations that have distinct URLs.
3083−aBidderLocation :: Lens' Account [BidderLocationItem]
3161+aBidderLocation :: Lens' Account [AccountBidderLocationItem]
30843162aBidderLocation
30853163 = lens _aBidderLocation
30863164 (\ s a -> s{_aBidderLocation = a})
@@ -3116,54 +3194,6 @@ instance ToJSON Account where
31163194 ("id" .=) <$> _aId,
31173195 ("bidderLocation" .=) <$> _aBidderLocation])
31183196
3119−--
3120−-- /See:/ 'seller' smart constructor.
3121−data Seller = Seller
3122− { _sAccountId :: !(Maybe Text)
3123− , _sSubAccountId :: !(Maybe Text)
3124− } deriving (Eq,Show,Data,Typeable,Generic)
3125−
3126−-- | Creates a value of 'Seller' with the minimum fields required to make a request.
3127−--
3128−-- Use one of the following lenses to modify other fields as desired:
3129−--
3130−-- * 'sAccountId'
3131−--
3132−-- * 'sSubAccountId'
3133−seller
3134− :: Seller
3135−seller =
3136− Seller
3137− { _sAccountId = Nothing
3138− , _sSubAccountId = Nothing
3139− }
3140−
3141−-- | The unique id for the seller. The seller fills in this field. The seller
3142−-- account id is then available to buyer in the offer.
3143−sAccountId :: Lens' Seller (Maybe Text)
3144−sAccountId
3145− = lens _sAccountId (\ s a -> s{_sAccountId = a})
3146−
3147−-- | Optional sub-account id for the seller.
3148−sSubAccountId :: Lens' Seller (Maybe Text)
3149−sSubAccountId
3150− = lens _sSubAccountId
3151− (\ s a -> s{_sSubAccountId = a})
3152−
3153−instance FromJSON Seller where
3154− parseJSON
3155− = withObject "Seller"
3156− (\ o ->
3157− Seller <$>
3158− (o .:? "accountId") <*> (o .:? "subAccountId"))
3159−
3160−instance ToJSON Seller where
3161− toJSON Seller{..}
3162− = object
3163− (catMaybes
3164− [("accountId" .=) <$> _sAccountId,
3165− ("subAccountId" .=) <$> _sSubAccountId])
3166−
31673197--
31683198-- /See:/ 'deleteOrderDealsRequest' smart constructor.
31693199data DeleteOrderDealsRequest = DeleteOrderDealsRequest
@@ -3226,41 +3256,6 @@ instance ToJSON DeleteOrderDealsRequest where
32263256 ("orderRevisionNumber" .=) <$>
32273257 _dodrOrderRevisionNumber])
32283258
3229−--
3230−-- /See:/ 'getOrderDealsResponse' smart constructor.
3231−newtype GetOrderDealsResponse = GetOrderDealsResponse
3232− { _godrDeals :: Maybe [MarketplaceDeal]
3233− } deriving (Eq,Show,Data,Typeable,Generic)
3234−
3235−-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request.
3236−--
3237−-- Use one of the following lenses to modify other fields as desired:
3238−--
3239−-- * 'godrDeals'
3240−getOrderDealsResponse
3241− :: GetOrderDealsResponse
3242−getOrderDealsResponse =
3243− GetOrderDealsResponse
3244− { _godrDeals = Nothing
3245− }
3246−
3247−-- | List of deals for the order
3248−godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
3249−godrDeals
3250− = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
3251− _Default
3252− . _Coerce
3253−
3254−instance FromJSON GetOrderDealsResponse where
3255− parseJSON
3256− = withObject "GetOrderDealsResponse"
3257− (\ o ->
3258− GetOrderDealsResponse <$> (o .:? "deals" .!= mempty))
3259−
3260−instance ToJSON GetOrderDealsResponse where
3261− toJSON GetOrderDealsResponse{..}
3262− = object (catMaybes [("deals" .=) <$> _godrDeals])
3263−
32643259--
32653260-- /See:/ 'contactInformation' smart constructor.
32663261data ContactInformation = ContactInformation
@@ -3304,66 +3299,148 @@ instance ToJSON ContactInformation where
33043299 (catMaybes
33053300 [("email" .=) <$> _ciEmail, ("name" .=) <$> _ciName])
33063301
3302+-- | A smaller image, for the advertiser logo.
33073303--
3308−-- /See:/ 'targetingValueCreativeSize' smart constructor.
3309−data TargetingValueCreativeSize = TargetingValueCreativeSize
3310− { _tvcsSize :: !(Maybe TargetingValueSize)
3311− , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])
3312− , _tvcsCreativeSizeType :: !(Maybe Text)
3304+-- /See:/ 'creativeNATiveAdLogo' smart constructor.
3305+data CreativeNATiveAdLogo = CreativeNATiveAdLogo
3306+ { _cnatalHeight :: !(Maybe Int32)
3307+ , _cnatalURL :: !(Maybe Text)
3308+ , _cnatalWidth :: !(Maybe Int32)
3309+ } deriving (Eq,Show,Data,Typeable,Generic)
3310+
3311+-- | Creates a value of 'CreativeNATiveAdLogo' with the minimum fields required to make a request.
3312+--
3313+-- Use one of the following lenses to modify other fields as desired:
3314+--
3315+-- * 'cnatalHeight'
3316+--
3317+-- * 'cnatalURL'
3318+--
3319+-- * 'cnatalWidth'
3320+creativeNATiveAdLogo
3321+ :: CreativeNATiveAdLogo
3322+creativeNATiveAdLogo =
3323+ CreativeNATiveAdLogo
3324+ { _cnatalHeight = Nothing
3325+ , _cnatalURL = Nothing
3326+ , _cnatalWidth = Nothing
3327+ }
3328+
3329+cnatalHeight :: Lens' CreativeNATiveAdLogo (Maybe Int32)
3330+cnatalHeight
3331+ = lens _cnatalHeight (\ s a -> s{_cnatalHeight = a})
3332+
3333+cnatalURL :: Lens' CreativeNATiveAdLogo (Maybe Text)
3334+cnatalURL
3335+ = lens _cnatalURL (\ s a -> s{_cnatalURL = a})
3336+
3337+cnatalWidth :: Lens' CreativeNATiveAdLogo (Maybe Int32)
3338+cnatalWidth
3339+ = lens _cnatalWidth (\ s a -> s{_cnatalWidth = a})
3340+
3341+instance FromJSON CreativeNATiveAdLogo where
3342+ parseJSON
3343+ = withObject "CreativeNATiveAdLogo"
3344+ (\ o ->
3345+ CreativeNATiveAdLogo <$>
3346+ (o .:? "height") <*> (o .:? "url") <*>
3347+ (o .:? "width"))
3348+
3349+instance ToJSON CreativeNATiveAdLogo where
3350+ toJSON CreativeNATiveAdLogo{..}
3351+ = object
3352+ (catMaybes
3353+ [("height" .=) <$> _cnatalHeight,
3354+ ("url" .=) <$> _cnatalURL,
3355+ ("width" .=) <$> _cnatalWidth])
3356+
3357+--
3358+-- /See:/ 'getOrderDealsResponse' smart constructor.
3359+newtype GetOrderDealsResponse = GetOrderDealsResponse
3360+ { _godrDeals :: Maybe [MarketplaceDeal]
3361+ } deriving (Eq,Show,Data,Typeable,Generic)
3362+
3363+-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request.
3364+--
3365+-- Use one of the following lenses to modify other fields as desired:
3366+--
3367+-- * 'godrDeals'
3368+getOrderDealsResponse
3369+ :: GetOrderDealsResponse
3370+getOrderDealsResponse =
3371+ GetOrderDealsResponse
3372+ { _godrDeals = Nothing
3373+ }
3374+
3375+-- | List of deals for the order
3376+godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
3377+godrDeals
3378+ = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
3379+ _Default
3380+ . _Coerce
3381+
3382+instance FromJSON GetOrderDealsResponse where
3383+ parseJSON
3384+ = withObject "GetOrderDealsResponse"
3385+ (\ o ->
3386+ GetOrderDealsResponse <$> (o .:? "deals" .!= mempty))
3387+
3388+instance ToJSON GetOrderDealsResponse where
3389+ toJSON GetOrderDealsResponse{..}
3390+ = object (catMaybes [("deals" .=) <$> _godrDeals])
3391+
3392+-- | The configuration data for an Ad Exchange performance report list.
3393+-- https:\/\/sites.google.com\/a\/google.com\/adx-integration\/Home\/engineering\/binary-releases\/rtb-api-release
3394+-- https:\/\/cs.corp.google.com\/#piper\/\/\/depot\/google3\/contentads\/adx\/tools\/rtb_api\/adxrtb.py
3395+--
3396+-- /See:/ 'performanceReportList' smart constructor.
3397+data PerformanceReportList = PerformanceReportList
3398+ { _prlKind :: !Text
3399+ , _prlPerformanceReport :: !(Maybe [PerformanceReport])
33133400 } deriving (Eq,Show,Data,Typeable,Generic)
33143401
3315−-- | Creates a value of 'TargetingValueCreativeSize' with the minimum fields required to make a request.
3402+-- | Creates a value of 'PerformanceReportList' with the minimum fields required to make a request.
33163403--
33173404-- Use one of the following lenses to modify other fields as desired:
33183405--
3319−-- * 'tvcsSize'
3320−--
3321−-- * 'tvcsCompanionSizes'
3406+-- * 'prlKind'
33223407--
3323−-- * 'tvcsCreativeSizeType'
3324−targetingValueCreativeSize
3325− :: TargetingValueCreativeSize
3326−targetingValueCreativeSize =
3327− TargetingValueCreativeSize
3328− { _tvcsSize = Nothing
3329− , _tvcsCompanionSizes = Nothing
3330− , _tvcsCreativeSizeType = Nothing
3408+-- * 'prlPerformanceReport'
3409+performanceReportList
3410+ :: PerformanceReportList
3411+performanceReportList =
3412+ PerformanceReportList
3413+ { _prlKind = "adexchangebuyer#performanceReportList"
3414+ , _prlPerformanceReport = Nothing
33313415 }
33323416
3333−-- | For regular creative size type, specifies the size of the creative.
3334−tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)
3335−tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
3417+-- | Resource type.
3418+prlKind :: Lens' PerformanceReportList Text
3419+prlKind = lens _prlKind (\ s a -> s{_prlKind = a})
33363420
3337−-- | For video size type, the list of companion sizes.
3338−tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [TargetingValueSize]
3339−tvcsCompanionSizes
3340− = lens _tvcsCompanionSizes
3341− (\ s a -> s{_tvcsCompanionSizes = a})
3421+-- | A list of performance reports relevant for the account.
3422+prlPerformanceReport :: Lens' PerformanceReportList [PerformanceReport]
3423+prlPerformanceReport
3424+ = lens _prlPerformanceReport
3425+ (\ s a -> s{_prlPerformanceReport = a})
33423426 . _Default
33433427 . _Coerce
33443428
3345−-- | The Creative size type.
3346−tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
3347−tvcsCreativeSizeType
3348− = lens _tvcsCreativeSizeType
3349− (\ s a -> s{_tvcsCreativeSizeType = a})
3350−
3351−instance FromJSON TargetingValueCreativeSize where
3429+instance FromJSON PerformanceReportList where
33523430 parseJSON
3353− = withObject "TargetingValueCreativeSize"
3431+ = withObject "PerformanceReportList"
33543432 (\ o ->
3355− TargetingValueCreativeSize <$>
3356− (o .:? "size") <*>
3357− (o .:? "companionSizes" .!= mempty)
3358− <*> (o .:? "creativeSizeType"))
3433+ PerformanceReportList <$>
3434+ (o .:? "kind" .!=
3435+ "adexchangebuyer#performanceReportList")
3436+ <*> (o .:? "performanceReport" .!= mempty))
33593437
3360−instance ToJSON TargetingValueCreativeSize where
3361− toJSON TargetingValueCreativeSize{..}
3438+instance ToJSON PerformanceReportList where
3439+ toJSON PerformanceReportList{..}
33623440 = object
33633441 (catMaybes
3364− [("size" .=) <$> _tvcsSize,
3365− ("companionSizes" .=) <$> _tvcsCompanionSizes,
3366− ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
3442+ [Just ("kind" .= _prlKind),
3443+ ("performanceReport" .=) <$> _prlPerformanceReport])
33673444
33683445--
33693446-- /See:/ 'pretargetingConfig' smart constructor.
@@ -3375,16 +3452,16 @@ data PretargetingConfig = PretargetingConfig
33753452 , _pcSupportedCreativeAttributes :: !(Maybe [Int64])
33763453 , _pcUserLists :: !(Maybe [Int64])
33773454 , _pcKind :: !Text
3378− , _pcExcludedPlacements :: !(Maybe [ExcludedPlacementsItem])
3455+ , _pcExcludedPlacements :: !(Maybe [PretargetingConfigExcludedPlacementsItem])
33793456 , _pcMobileDevices :: !(Maybe [Int64])
33803457 , _pcLanguages :: !(Maybe [Text])
33813458 , _pcVerticals :: !(Maybe [Int64])
33823459 , _pcConfigId :: !(Maybe Int64)
3383− , _pcPlacements :: !(Maybe [PlacementsItem])
3460+ , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem])
33843461 , _pcExcludedUserLists :: !(Maybe [Int64])
33853462 , _pcConfigName :: !(Maybe Text)
33863463 , _pcGeoCriteriaIds :: !(Maybe [Int64])
3387− , _pcDimensions :: !(Maybe [DimensionsItem])
3464+ , _pcDimensions :: !(Maybe [PretargetingConfigDimensionsItem])
33883465 , _pcExcludedVerticals :: !(Maybe [Int64])
33893466 , _pcCreativeType :: !(Maybe [Text])
33903467 , _pcIsActive :: !(Maybe Bool)
@@ -3529,7 +3606,7 @@ pcKind :: Lens' PretargetingConfig Text
35293606pcKind = lens _pcKind (\ s a -> s{_pcKind = a})
35303607
35313608-- | Requests containing any of these placements will not match.
3532−pcExcludedPlacements :: Lens' PretargetingConfig [ExcludedPlacementsItem]
3609+pcExcludedPlacements :: Lens' PretargetingConfig [PretargetingConfigExcludedPlacementsItem]
35333610pcExcludedPlacements
35343611 = lens _pcExcludedPlacements
35353612 (\ s a -> s{_pcExcludedPlacements = a})
@@ -3566,7 +3643,7 @@ pcConfigId
35663643 = lens _pcConfigId (\ s a -> s{_pcConfigId = a})
35673644
35683645-- | Requests containing any of these placements will match.
3569−pcPlacements :: Lens' PretargetingConfig [PlacementsItem]
3646+pcPlacements :: Lens' PretargetingConfig [PretargetingConfigPlacementsItem]
35703647pcPlacements
35713648 = lens _pcPlacements (\ s a -> s{_pcPlacements = a})
35723649 . _Default
@@ -3595,7 +3672,7 @@ pcGeoCriteriaIds
35953672
35963673-- | Requests which allow one of these (width, height) pairs will match. All
35973674-- pairs must be supported ad dimensions.
3598−pcDimensions :: Lens' PretargetingConfig [DimensionsItem]
3675+pcDimensions :: Lens' PretargetingConfig [PretargetingConfigDimensionsItem]
35993676pcDimensions
36003677 = lens _pcDimensions (\ s a -> s{_pcDimensions = a})
36013678 . _Default
@@ -3713,58 +3790,116 @@ instance ToJSON PretargetingConfig where
37133790 ("mobileOperatingSystemVersions" .=) <$>
37143791 _pcMobileOperatingSystemVersions])
37153792
3716−-- | The configuration data for an Ad Exchange performance report list.
3717−-- https:\/\/sites.google.com\/a\/google.com\/adx-integration\/Home\/engineering\/binary-releases\/rtb-api-release
3718−-- https:\/\/cs.corp.google.com\/#piper\/\/\/depot\/google3\/contentads\/adx\/tools\/rtb_api\/adxrtb.py
3793+-- | The filtering reasons for the creative. Read-only. This field should not
3794+-- be set in requests.
37193795--
3720−-- /See:/ 'performanceReportList' smart constructor.
3721−data PerformanceReportList = PerformanceReportList
3722− { _prlKind :: !Text
3723− , _prlPerformanceReport :: !(Maybe [PerformanceReport])
3796+-- /See:/ 'creativeFilteringReasons' smart constructor.
3797+data CreativeFilteringReasons = CreativeFilteringReasons
3798+ { _cfrReasons :: !(Maybe [CreativeFilteringReasonsReasonsItem])
3799+ , _cfrDate :: !(Maybe Text)
37243800 } deriving (Eq,Show,Data,Typeable,Generic)
37253801
3726−-- | Creates a value of 'PerformanceReportList' with the minimum fields required to make a request.
3802+-- | Creates a value of 'CreativeFilteringReasons' with the minimum fields required to make a request.
37273803--
37283804-- Use one of the following lenses to modify other fields as desired:
37293805--
3730−-- * 'prlKind'
3806+-- * 'cfrReasons'
37313807--
3732−-- * 'prlPerformanceReport'
3733−performanceReportList
3734− :: PerformanceReportList
3735−performanceReportList =
3736− PerformanceReportList
3737− { _prlKind = "adexchangebuyer#performanceReportList"
3738− , _prlPerformanceReport = Nothing
3808+-- * 'cfrDate'
3809+creativeFilteringReasons
3810+ :: CreativeFilteringReasons
3811+creativeFilteringReasons =
3812+ CreativeFilteringReasons
3813+ { _cfrReasons = Nothing
3814+ , _cfrDate = Nothing
37393815 }
37403816
3741−-- | Resource type.
3742−prlKind :: Lens' PerformanceReportList Text
3743−prlKind = lens _prlKind (\ s a -> s{_prlKind = a})
3817+-- | The filtering reasons.
3818+cfrReasons :: Lens' CreativeFilteringReasons [CreativeFilteringReasonsReasonsItem]
3819+cfrReasons
3820+ = lens _cfrReasons (\ s a -> s{_cfrReasons = a}) .
3821+ _Default
3822+ . _Coerce
37443823
3745−-- | A list of performance reports relevant for the account.
3746−prlPerformanceReport :: Lens' PerformanceReportList [PerformanceReport]
3747−prlPerformanceReport
3748− = lens _prlPerformanceReport
3749− (\ s a -> s{_prlPerformanceReport = a})
3824+-- | The date in ISO 8601 format for the data. The data is collected from
3825+-- 00:00:00 to 23:59:59 in PST.
3826+cfrDate :: Lens' CreativeFilteringReasons (Maybe Text)
3827+cfrDate = lens _cfrDate (\ s a -> s{_cfrDate = a})
3828+
3829+instance FromJSON CreativeFilteringReasons where
3830+ parseJSON
3831+ = withObject "CreativeFilteringReasons"
3832+ (\ o ->
3833+ CreativeFilteringReasons <$>
3834+ (o .:? "reasons" .!= mempty) <*> (o .:? "date"))
3835+
3836+instance ToJSON CreativeFilteringReasons where
3837+ toJSON CreativeFilteringReasons{..}
3838+ = object
3839+ (catMaybes
3840+ [("reasons" .=) <$> _cfrReasons,
3841+ ("date" .=) <$> _cfrDate])
3842+
3843+--
3844+-- /See:/ 'targetingValueCreativeSize' smart constructor.
3845+data TargetingValueCreativeSize = TargetingValueCreativeSize
3846+ { _tvcsSize :: !(Maybe TargetingValueSize)
3847+ , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])
3848+ , _tvcsCreativeSizeType :: !(Maybe Text)
3849+ } deriving (Eq,Show,Data,Typeable,Generic)
3850+
3851+-- | Creates a value of 'TargetingValueCreativeSize' with the minimum fields required to make a request.
3852+--
3853+-- Use one of the following lenses to modify other fields as desired:
3854+--
3855+-- * 'tvcsSize'
3856+--
3857+-- * 'tvcsCompanionSizes'
3858+--
3859+-- * 'tvcsCreativeSizeType'
3860+targetingValueCreativeSize
3861+ :: TargetingValueCreativeSize
3862+targetingValueCreativeSize =
3863+ TargetingValueCreativeSize
3864+ { _tvcsSize = Nothing
3865+ , _tvcsCompanionSizes = Nothing
3866+ , _tvcsCreativeSizeType = Nothing
3867+ }
3868+
3869+-- | For regular creative size type, specifies the size of the creative.
3870+tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)
3871+tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
3872+
3873+-- | For video size type, the list of companion sizes.
3874+tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [TargetingValueSize]
3875+tvcsCompanionSizes
3876+ = lens _tvcsCompanionSizes
3877+ (\ s a -> s{_tvcsCompanionSizes = a})
37503878 . _Default
37513879 . _Coerce
37523880
3753−instance FromJSON PerformanceReportList where
3881+-- | The Creative size type.
3882+tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
3883+tvcsCreativeSizeType
3884+ = lens _tvcsCreativeSizeType
3885+ (\ s a -> s{_tvcsCreativeSizeType = a})
3886+
3887+instance FromJSON TargetingValueCreativeSize where
37543888 parseJSON
3755− = withObject "PerformanceReportList"
3889+ = withObject "TargetingValueCreativeSize"
37563890 (\ o ->
3757− PerformanceReportList <$>
3758− (o .:? "kind" .!=
3759− "adexchangebuyer#performanceReportList")
3760− <*> (o .:? "performanceReport" .!= mempty))
3891+ TargetingValueCreativeSize <$>
3892+ (o .:? "size") <*>
3893+ (o .:? "companionSizes" .!= mempty)
3894+ <*> (o .:? "creativeSizeType"))
37613895
3762−instance ToJSON PerformanceReportList where
3763− toJSON PerformanceReportList{..}
3896+instance ToJSON TargetingValueCreativeSize where
3897+ toJSON TargetingValueCreativeSize{..}
37643898 = object
37653899 (catMaybes
3766− [Just ("kind" .= _prlKind),
3767− ("performanceReport" .=) <$> _prlPerformanceReport])
3900+ [("size" .=) <$> _tvcsSize,
3901+ ("companionSizes" .=) <$> _tvcsCompanionSizes,
3902+ ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
37683903
37693904--
37703905-- /See:/ 'negotiationDTO' smart constructor.
@@ -3972,68 +4107,6 @@ instance ToJSON NegotiationDTO where
39724107 _ndtoSellerEmailContacts,
39734108 ("buyer" .=) <$> _ndtoBuyer])
39744109
3975−--
3976−-- /See:/ 'audienceSegment' smart constructor.
3977−data AudienceSegment = AudienceSegment
3978− { _asNumCookies :: !(Maybe Int64)
3979− , _asName :: !(Maybe Text)
3980− , _asId :: !(Maybe Int64)
3981− , _asDescription :: !(Maybe Text)
3982− } deriving (Eq,Show,Data,Typeable,Generic)
3983−
3984−-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request.
3985−--
3986−-- Use one of the following lenses to modify other fields as desired:
3987−--
3988−-- * 'asNumCookies'
3989−--
3990−-- * 'asName'
3991−--
3992−-- * 'asId'
3993−--
3994−-- * 'asDescription'
3995−audienceSegment
3996− :: AudienceSegment
3997−audienceSegment =
3998− AudienceSegment
3999− { _asNumCookies = Nothing
4000− , _asName = Nothing
4001− , _asId = Nothing
4002− , _asDescription = Nothing
4003− }
4004−
4005−asNumCookies :: Lens' AudienceSegment (Maybe Int64)
4006−asNumCookies
4007− = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
4008−
4009−asName :: Lens' AudienceSegment (Maybe Text)
4010−asName = lens _asName (\ s a -> s{_asName = a})
4011−
4012−asId :: Lens' AudienceSegment (Maybe Int64)
4013−asId = lens _asId (\ s a -> s{_asId = a})
4014−
4015−asDescription :: Lens' AudienceSegment (Maybe Text)
4016−asDescription
4017− = lens _asDescription
4018− (\ s a -> s{_asDescription = a})
4019−
4020−instance FromJSON AudienceSegment where
4021− parseJSON
4022− = withObject "AudienceSegment"
4023− (\ o ->
4024− AudienceSegment <$>
4025− (o .:? "numCookies") <*> (o .:? "name") <*>
4026− (o .:? "id")
4027− <*> (o .:? "description"))
4028−
4029−instance ToJSON AudienceSegment where
4030− toJSON AudienceSegment{..}
4031− = object
4032− (catMaybes
4033− [("numCookies" .=) <$> _asNumCookies,
4034− ("name" .=) <$> _asName, ("id" .=) <$> _asId,
4035− ("description" .=) <$> _asDescription])
4036−
40374110--
40384111-- /See:/ 'offerDTO' smart constructor.
40394112data OfferDTO = OfferDTO
@@ -4229,99 +4302,116 @@ instance ToJSON OfferDTO where
42294302 ("isOpen" .=) <$> _odtoIsOpen])
42304303
42314304--
4232−-- /See:/ 'targetingValueSize' smart constructor.
4233−data TargetingValueSize = TargetingValueSize
4234− { _tvsHeight :: !(Maybe Int32)
4235− , _tvsWidth :: !(Maybe Int32)
4305+-- /See:/ 'audienceSegment' smart constructor.
4306+data AudienceSegment = AudienceSegment
4307+ { _asNumCookies :: !(Maybe Int64)
4308+ , _asName :: !(Maybe Text)
4309+ , _asId :: !(Maybe Int64)
4310+ , _asDescription :: !(Maybe Text)
42364311 } deriving (Eq,Show,Data,Typeable,Generic)
42374312
4238−-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
4313+-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request.
42394314--
42404315-- Use one of the following lenses to modify other fields as desired:
42414316--
4242−-- * 'tvsHeight'
4317+-- * 'asNumCookies'
42434318--
4244−-- * 'tvsWidth'
4245−targetingValueSize
4246− :: TargetingValueSize
4247−targetingValueSize =
4248− TargetingValueSize
4249− { _tvsHeight = Nothing
4250− , _tvsWidth = Nothing
4319+-- * 'asName'
4320+--
4321+-- * 'asId'
4322+--
4323+-- * 'asDescription'
4324+audienceSegment
4325+ :: AudienceSegment
4326+audienceSegment =
4327+ AudienceSegment
4328+ { _asNumCookies = Nothing
4329+ , _asName = Nothing
4330+ , _asId = Nothing
4331+ , _asDescription = Nothing
42514332 }
42524333
4253−-- | The height of the creative.
4254−tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4255−tvsHeight
4256− = lens _tvsHeight (\ s a -> s{_tvsHeight = a})
4334+asNumCookies :: Lens' AudienceSegment (Maybe Int64)
4335+asNumCookies
4336+ = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
42574337
4258−-- | The width of the creative.
4259−tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4260−tvsWidth = lens _tvsWidth (\ s a -> s{_tvsWidth = a})
4338+asName :: Lens' AudienceSegment (Maybe Text)
4339+asName = lens _asName (\ s a -> s{_asName = a})
42614340
4262−instance FromJSON TargetingValueSize where
4341+asId :: Lens' AudienceSegment (Maybe Int64)
4342+asId = lens _asId (\ s a -> s{_asId = a})
4343+
4344+asDescription :: Lens' AudienceSegment (Maybe Text)
4345+asDescription
4346+ = lens _asDescription
4347+ (\ s a -> s{_asDescription = a})
4348+
4349+instance FromJSON AudienceSegment where
42634350 parseJSON
4264− = withObject "TargetingValueSize"
4351+ = withObject "AudienceSegment"
42654352 (\ o ->
4266− TargetingValueSize <$>
4267− (o .:? "height") <*> (o .:? "width"))
4353+ AudienceSegment <$>
4354+ (o .:? "numCookies") <*> (o .:? "name") <*>
4355+ (o .:? "id")
4356+ <*> (o .:? "description"))
42684357
4269−instance ToJSON TargetingValueSize where
4270− toJSON TargetingValueSize{..}
4358+instance ToJSON AudienceSegment where
4359+ toJSON AudienceSegment{..}
42714360 = object
42724361 (catMaybes
4273− [("height" .=) <$> _tvsHeight,
4274− ("width" .=) <$> _tvsWidth])
4362+ [("numCookies" .=) <$> _asNumCookies,
4363+ ("name" .=) <$> _asName, ("id" .=) <$> _asId,
4364+ ("description" .=) <$> _asDescription])
42754365
4276−-- | The filtering reasons for the creative. Read-only. This field should not
4277−-- be set in requests.
4366+-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
4367+-- access to. Each entry in the feed corresponds to a single billing info.
42784368--
4279−-- /See:/ 'filteringReasons' smart constructor.
4280−data FilteringReasons = FilteringReasons
4281− { _frReasons :: !(Maybe [ReasonsItem])
4282− , _frDate :: !(Maybe Text)
4369+-- /See:/ 'billingInfoList' smart constructor.
4370+data BillingInfoList = BillingInfoList
4371+ { _bilKind :: !Text
4372+ , _bilItems :: !(Maybe [BillingInfo])
42834373 } deriving (Eq,Show,Data,Typeable,Generic)
42844374
4285−-- | Creates a value of 'FilteringReasons' with the minimum fields required to make a request.
4375+-- | Creates a value of 'BillingInfoList' with the minimum fields required to make a request.
42864376--
42874377-- Use one of the following lenses to modify other fields as desired:
42884378--
4289−-- * 'frReasons'
4379+-- * 'bilKind'
42904380--
4291−-- * 'frDate'
4292−filteringReasons
4293− :: FilteringReasons
4294−filteringReasons =
4295− FilteringReasons
4296− { _frReasons = Nothing
4297− , _frDate = Nothing
4381+-- * 'bilItems'
4382+billingInfoList
4383+ :: BillingInfoList
4384+billingInfoList =
4385+ BillingInfoList
4386+ { _bilKind = "adexchangebuyer#billingInfoList"
4387+ , _bilItems = Nothing
42984388 }
42994389
4300−-- | The filtering reasons.
4301−frReasons :: Lens' FilteringReasons [ReasonsItem]
4302−frReasons
4303− = lens _frReasons (\ s a -> s{_frReasons = a}) .
4390+-- | Resource type.
4391+bilKind :: Lens' BillingInfoList Text
4392+bilKind = lens _bilKind (\ s a -> s{_bilKind = a})
4393+
4394+-- | A list of billing info relevant for your account.
4395+bilItems :: Lens' BillingInfoList [BillingInfo]
4396+bilItems
4397+ = lens _bilItems (\ s a -> s{_bilItems = a}) .
43044398 _Default
43054399 . _Coerce
43064400
4307−-- | The date in ISO 8601 format for the data. The data is collected from
4308−-- 00:00:00 to 23:59:59 in PST.
4309−frDate :: Lens' FilteringReasons (Maybe Text)
4310−frDate = lens _frDate (\ s a -> s{_frDate = a})
4311−
4312−instance FromJSON FilteringReasons where
4401+instance FromJSON BillingInfoList where
43134402 parseJSON
4314− = withObject "FilteringReasons"
4403+ = withObject "BillingInfoList"
43154404 (\ o ->
4316− FilteringReasons <$>
4317− (o .:? "reasons" .!= mempty) <*> (o .:? "date"))
4405+ BillingInfoList <$>
4406+ (o .:? "kind" .!= "adexchangebuyer#billingInfoList")
4407+ <*> (o .:? "items" .!= mempty))
43184408
4319−instance ToJSON FilteringReasons where
4320− toJSON FilteringReasons{..}
4409+instance ToJSON BillingInfoList where
4410+ toJSON BillingInfoList{..}
43214411 = object
43224412 (catMaybes
4323− [("reasons" .=) <$> _frReasons,
4324− ("date" .=) <$> _frDate])
4413+ [Just ("kind" .= _bilKind),
4414+ ("items" .=) <$> _bilItems])
43254415
43264416-- | An offer is segment of inventory that a seller wishes to sell. It is
43274417-- associated with certain terms and targeting information which helps
@@ -4564,146 +4654,141 @@ instance ToJSON MarketplaceOffer where
45644654 ("labels" .=) <$> _moLabels])
45654655
45664656--
4567−-- /See:/ 'getNegotiationsRequest' smart constructor.
4568−data GetNegotiationsRequest = GetNegotiationsRequest
4569− { _gnrSinceTimestampMillis :: !(Maybe Int64)
4570− , _gnrFinalized :: !(Maybe Bool)
4571− , _gnrIncludePrivateAuctions :: !(Maybe Bool)
4657+-- /See:/ 'addOrderNotesResponse' smart constructor.
4658+newtype AddOrderNotesResponse = AddOrderNotesResponse
4659+ { _aNotes :: Maybe [MarketplaceNote]
45724660 } deriving (Eq,Show,Data,Typeable,Generic)
45734661
4574−-- | Creates a value of 'GetNegotiationsRequest' with the minimum fields required to make a request.
4662+-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.
45754663--
45764664-- Use one of the following lenses to modify other fields as desired:
45774665--
4578−-- * 'gnrSinceTimestampMillis'
4579−--
4580−-- * 'gnrFinalized'
4581−--
4582−-- * 'gnrIncludePrivateAuctions'
4583−getNegotiationsRequest
4584− :: GetNegotiationsRequest
4585−getNegotiationsRequest =
4586− GetNegotiationsRequest
4587− { _gnrSinceTimestampMillis = Nothing
4588− , _gnrFinalized = Nothing
4589− , _gnrIncludePrivateAuctions = Nothing
4666+-- * 'aNotes'
4667+addOrderNotesResponse
4668+ :: AddOrderNotesResponse
4669+addOrderNotesResponse =
4670+ AddOrderNotesResponse
4671+ { _aNotes = Nothing
45904672 }
45914673
4592−gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
4593−gnrSinceTimestampMillis
4594− = lens _gnrSinceTimestampMillis
4595− (\ s a -> s{_gnrSinceTimestampMillis = a})
4596−
4597−gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
4598−gnrFinalized
4599− = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
4600−
4601−gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
4602−gnrIncludePrivateAuctions
4603− = lens _gnrIncludePrivateAuctions
4604− (\ s a -> s{_gnrIncludePrivateAuctions = a})
4674+aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4675+aNotes
4676+ = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4677+ _Coerce
46054678
4606−instance FromJSON GetNegotiationsRequest where
4679+instance FromJSON AddOrderNotesResponse where
46074680 parseJSON
4608− = withObject "GetNegotiationsRequest"
4681+ = withObject "AddOrderNotesResponse"
46094682 (\ o ->
4610− GetNegotiationsRequest <$>
4611− (o .:? "sinceTimestampMillis") <*>
4612− (o .:? "finalized")
4613− <*> (o .:? "includePrivateAuctions"))
4683+ AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
46144684
4615−instance ToJSON GetNegotiationsRequest where
4616− toJSON GetNegotiationsRequest{..}
4617− = object
4618− (catMaybes
4619− [("sinceTimestampMillis" .=) <$>
4620− _gnrSinceTimestampMillis,
4621− ("finalized" .=) <$> _gnrFinalized,
4622− ("includePrivateAuctions" .=) <$>
4623− _gnrIncludePrivateAuctions])
4685+instance ToJSON AddOrderNotesResponse where
4686+ toJSON AddOrderNotesResponse{..}
4687+ = object (catMaybes [("notes" .=) <$> _aNotes])
46244688
4625−-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
4626−-- access to. Each entry in the feed corresponds to a single billing info.
46274689--
4628−-- /See:/ 'billingInfoList' smart constructor.
4629−data BillingInfoList = BillingInfoList
4630− { _bilKind :: !Text
4631− , _bilItems :: !(Maybe [BillingInfo])
4690+-- /See:/ 'targetingValueSize' smart constructor.
4691+data TargetingValueSize = TargetingValueSize
4692+ { _tvsHeight :: !(Maybe Int32)
4693+ , _tvsWidth :: !(Maybe Int32)
46324694 } deriving (Eq,Show,Data,Typeable,Generic)
46334695
4634−-- | Creates a value of 'BillingInfoList' with the minimum fields required to make a request.
4696+-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
46354697--
46364698-- Use one of the following lenses to modify other fields as desired:
46374699--
4638−-- * 'bilKind'
4700+-- * 'tvsHeight'
46394701--
4640−-- * 'bilItems'
4641−billingInfoList
4642− :: BillingInfoList
4643−billingInfoList =
4644− BillingInfoList
4645− { _bilKind = "adexchangebuyer#billingInfoList"
4646− , _bilItems = Nothing
4702+-- * 'tvsWidth'
4703+targetingValueSize
4704+ :: TargetingValueSize
4705+targetingValueSize =
4706+ TargetingValueSize
4707+ { _tvsHeight = Nothing
4708+ , _tvsWidth = Nothing
46474709 }
46484710
4649−-- | Resource type.
4650−bilKind :: Lens' BillingInfoList Text
4651−bilKind = lens _bilKind (\ s a -> s{_bilKind = a})
4711+-- | The height of the creative.
4712+tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4713+tvsHeight
4714+ = lens _tvsHeight (\ s a -> s{_tvsHeight = a})
46524715
4653−-- | A list of billing info relevant for your account.
4654−bilItems :: Lens' BillingInfoList [BillingInfo]
4655−bilItems
4656− = lens _bilItems (\ s a -> s{_bilItems = a}) .
4657− _Default
4658− . _Coerce
4716+-- | The width of the creative.
4717+tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4718+tvsWidth = lens _tvsWidth (\ s a -> s{_tvsWidth = a})
46594719
4660−instance FromJSON BillingInfoList where
4720+instance FromJSON TargetingValueSize where
46614721 parseJSON
4662− = withObject "BillingInfoList"
4722+ = withObject "TargetingValueSize"
46634723 (\ o ->
4664− BillingInfoList <$>
4665− (o .:? "kind" .!= "adexchangebuyer#billingInfoList")
4666− <*> (o .:? "items" .!= mempty))
4724+ TargetingValueSize <$>
4725+ (o .:? "height") <*> (o .:? "width"))
46674726
4668−instance ToJSON BillingInfoList where
4669− toJSON BillingInfoList{..}
4727+instance ToJSON TargetingValueSize where
4728+ toJSON TargetingValueSize{..}
46704729 = object
46714730 (catMaybes
4672− [Just ("kind" .= _bilKind),
4673− ("items" .=) <$> _bilItems])
4731+ [("height" .=) <$> _tvsHeight,
4732+ ("width" .=) <$> _tvsWidth])
46744733
46754734--
4676−-- /See:/ 'addOrderNotesResponse' smart constructor.
4677−newtype AddOrderNotesResponse = AddOrderNotesResponse
4678− { _aNotes :: Maybe [MarketplaceNote]
4735+-- /See:/ 'getNegotiationsRequest' smart constructor.
4736+data GetNegotiationsRequest = GetNegotiationsRequest
4737+ { _gnrSinceTimestampMillis :: !(Maybe Int64)
4738+ , _gnrFinalized :: !(Maybe Bool)
4739+ , _gnrIncludePrivateAuctions :: !(Maybe Bool)
46794740 } deriving (Eq,Show,Data,Typeable,Generic)
46804741
4681−-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.
4742+-- | Creates a value of 'GetNegotiationsRequest' with the minimum fields required to make a request.
46824743--
46834744-- Use one of the following lenses to modify other fields as desired:
46844745--
4685−-- * 'aNotes'
4686−addOrderNotesResponse
4687− :: AddOrderNotesResponse
4688−addOrderNotesResponse =
4689− AddOrderNotesResponse
4690− { _aNotes = Nothing
4746+-- * 'gnrSinceTimestampMillis'
4747+--
4748+-- * 'gnrFinalized'
4749+--
4750+-- * 'gnrIncludePrivateAuctions'
4751+getNegotiationsRequest
4752+ :: GetNegotiationsRequest
4753+getNegotiationsRequest =
4754+ GetNegotiationsRequest
4755+ { _gnrSinceTimestampMillis = Nothing
4756+ , _gnrFinalized = Nothing
4757+ , _gnrIncludePrivateAuctions = Nothing
46914758 }
46924759
4693−aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4694−aNotes
4695− = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4696− _Coerce
4760+gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
4761+gnrSinceTimestampMillis
4762+ = lens _gnrSinceTimestampMillis
4763+ (\ s a -> s{_gnrSinceTimestampMillis = a})
4764+
4765+gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
4766+gnrFinalized
4767+ = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
4768+
4769+gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
4770+gnrIncludePrivateAuctions
4771+ = lens _gnrIncludePrivateAuctions
4772+ (\ s a -> s{_gnrIncludePrivateAuctions = a})
46974773
4698−instance FromJSON AddOrderNotesResponse where
4774+instance FromJSON GetNegotiationsRequest where
46994775 parseJSON
4700− = withObject "AddOrderNotesResponse"
4776+ = withObject "GetNegotiationsRequest"
47014777 (\ o ->
4702− AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
4778+ GetNegotiationsRequest <$>
4779+ (o .:? "sinceTimestampMillis") <*>
4780+ (o .:? "finalized")
4781+ <*> (o .:? "includePrivateAuctions"))
47034782
4704−instance ToJSON AddOrderNotesResponse where
4705− toJSON AddOrderNotesResponse{..}
4706− = object (catMaybes [("notes" .=) <$> _aNotes])
4783+instance ToJSON GetNegotiationsRequest where
4784+ toJSON GetNegotiationsRequest{..}
4785+ = object
4786+ (catMaybes
4787+ [("sinceTimestampMillis" .=) <$>
4788+ _gnrSinceTimestampMillis,
4789+ ("finalized" .=) <$> _gnrFinalized,
4790+ ("includePrivateAuctions" .=) <$>
4791+ _gnrIncludePrivateAuctions])
47074792
47084793--
47094794-- /See:/ 'moneyDTO' smart constructor.
@@ -4750,47 +4835,6 @@ instance ToJSON MoneyDTO where
47504835 [("currencyCode" .=) <$> _mdtoCurrencyCode,
47514836 ("micros" .=) <$> _mdtoMicros])
47524837
4753−--
4754−-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
4755−newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
4756− { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]
4757− } deriving (Eq,Show,Data,Typeable,Generic)
4758−
4759−-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
4760−--
4761−-- Use one of the following lenses to modify other fields as desired:
4762−--
4763−-- * 'lcacrClientAccessPermissions'
4764−listClientAccessCapabilitiesResponse
4765− :: ListClientAccessCapabilitiesResponse
4766−listClientAccessCapabilitiesResponse =
4767− ListClientAccessCapabilitiesResponse
4768− { _lcacrClientAccessPermissions = Nothing
4769− }
4770−
4771−lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]
4772−lcacrClientAccessPermissions
4773− = lens _lcacrClientAccessPermissions
4774− (\ s a -> s{_lcacrClientAccessPermissions = a})
4775− . _Default
4776− . _Coerce
4777−
4778−instance FromJSON
4779− ListClientAccessCapabilitiesResponse where
4780− parseJSON
4781− = withObject "ListClientAccessCapabilitiesResponse"
4782− (\ o ->
4783− ListClientAccessCapabilitiesResponse <$>
4784− (o .:? "clientAccessPermissions" .!= mempty))
4785−
4786−instance ToJSON ListClientAccessCapabilitiesResponse
4787− where
4788− toJSON ListClientAccessCapabilitiesResponse{..}
4789− = object
4790− (catMaybes
4791− [("clientAccessPermissions" .=) <$>
4792− _lcacrClientAccessPermissions])
4793−
47944838--
47954839-- /See:/ 'getNegotiationByIdRequest' smart constructor.
47964840newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest
@@ -4875,55 +4919,52 @@ instance ToJSON ListOffersResponse where
48754919 ("offers" .=) <$> _lorOffers])
48764920
48774921--
4878−-- /See:/ 'reasonsItem' smart constructor.
4879−data ReasonsItem = ReasonsItem
4880− { _riFilteringStatus :: !(Maybe Int32)
4881− , _riFilteringCount :: !(Maybe Int64)
4922+-- /See:/ 'pretargetingConfigDimensionsItem' smart constructor.
4923+data PretargetingConfigDimensionsItem = PretargetingConfigDimensionsItem
4924+ { _pcdiHeight :: !(Maybe Int64)
4925+ , _pcdiWidth :: !(Maybe Int64)
48824926 } deriving (Eq,Show,Data,Typeable,Generic)
48834927
4884−-- | Creates a value of 'ReasonsItem' with the minimum fields required to make a request.
4928+-- | Creates a value of 'PretargetingConfigDimensionsItem' with the minimum fields required to make a request.
48854929--
48864930-- Use one of the following lenses to modify other fields as desired:
48874931--
4888−-- * 'riFilteringStatus'
4932+-- * 'pcdiHeight'
48894933--
4890−-- * 'riFilteringCount'
4891−reasonsItem
4892− :: ReasonsItem
4893−reasonsItem =
4894− ReasonsItem
4895− { _riFilteringStatus = Nothing
4896− , _riFilteringCount = Nothing
4934+-- * 'pcdiWidth'
4935+pretargetingConfigDimensionsItem
4936+ :: PretargetingConfigDimensionsItem
4937+pretargetingConfigDimensionsItem =
4938+ PretargetingConfigDimensionsItem
4939+ { _pcdiHeight = Nothing
4940+ , _pcdiWidth = Nothing
48974941 }
48984942
4899−-- | The filtering status code. Please refer to the creative-status-codes.txt
4900−-- file for different statuses.
4901−riFilteringStatus :: Lens' ReasonsItem (Maybe Int32)
4902−riFilteringStatus
4903− = lens _riFilteringStatus
4904− (\ s a -> s{_riFilteringStatus = a})
4943+-- | Height in pixels.
4944+pcdiHeight :: Lens' PretargetingConfigDimensionsItem (Maybe Int64)
4945+pcdiHeight
4946+ = lens _pcdiHeight (\ s a -> s{_pcdiHeight = a})
49054947
4906−-- | The number of times the creative was filtered for the status. The count
4907−-- is aggregated across all publishers on the exchange.
4908−riFilteringCount :: Lens' ReasonsItem (Maybe Int64)
4909−riFilteringCount
4910− = lens _riFilteringCount
4911− (\ s a -> s{_riFilteringCount = a})
4948+-- | Width in pixels.
4949+pcdiWidth :: Lens' PretargetingConfigDimensionsItem (Maybe Int64)
4950+pcdiWidth
4951+ = lens _pcdiWidth (\ s a -> s{_pcdiWidth = a})
49124952
4913−instance FromJSON ReasonsItem where
4953+instance FromJSON PretargetingConfigDimensionsItem
4954+ where
49144955 parseJSON
4915− = withObject "ReasonsItem"
4956+ = withObject "PretargetingConfigDimensionsItem"
49164957 (\ o ->
4917− ReasonsItem <$>
4918− (o .:? "filteringStatus") <*>
4919− (o .:? "filteringCount"))
4958+ PretargetingConfigDimensionsItem <$>
4959+ (o .:? "height") <*> (o .:? "width"))
49204960
4921−instance ToJSON ReasonsItem where
4922− toJSON ReasonsItem{..}
4961+instance ToJSON PretargetingConfigDimensionsItem
4962+ where
4963+ toJSON PretargetingConfigDimensionsItem{..}
49234964 = object
49244965 (catMaybes
4925− [("filteringStatus" .=) <$> _riFilteringStatus,
4926− ("filteringCount" .=) <$> _riFilteringCount])
4966+ [("height" .=) <$> _pcdiHeight,
4967+ ("width" .=) <$> _pcdiWidth])
49274968
49284969--
49294970-- /See:/ 'advertiserDTO' smart constructor.
@@ -4988,6 +5029,47 @@ instance ToJSON AdvertiserDTO where
49885029 ("brands" .=) <$> _adtoBrands,
49895030 ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
49905031
5032+--
5033+-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
5034+newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
5035+ { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]
5036+ } deriving (Eq,Show,Data,Typeable,Generic)
5037+
5038+-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
5039+--
5040+-- Use one of the following lenses to modify other fields as desired:
5041+--
5042+-- * 'lcacrClientAccessPermissions'
5043+listClientAccessCapabilitiesResponse
5044+ :: ListClientAccessCapabilitiesResponse
5045+listClientAccessCapabilitiesResponse =
5046+ ListClientAccessCapabilitiesResponse
5047+ { _lcacrClientAccessPermissions = Nothing
5048+ }
5049+
5050+lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]
5051+lcacrClientAccessPermissions
5052+ = lens _lcacrClientAccessPermissions
5053+ (\ s a -> s{_lcacrClientAccessPermissions = a})
5054+ . _Default
5055+ . _Coerce
5056+
5057+instance FromJSON
5058+ ListClientAccessCapabilitiesResponse where
5059+ parseJSON
5060+ = withObject "ListClientAccessCapabilitiesResponse"
5061+ (\ o ->
5062+ ListClientAccessCapabilitiesResponse <$>
5063+ (o .:? "clientAccessPermissions" .!= mempty))
5064+
5065+instance ToJSON ListClientAccessCapabilitiesResponse
5066+ where
5067+ toJSON ListClientAccessCapabilitiesResponse{..}
5068+ = object
5069+ (catMaybes
5070+ [("clientAccessPermissions" .=) <$>
5071+ _lcacrClientAccessPermissions])
5072+
49915073--
49925074-- /See:/ 'targetingValue' smart constructor.
49935075data TargetingValue = TargetingValue
@@ -5061,6 +5143,62 @@ instance ToJSON TargetingValue where
50615143 ("dayPartTargetingValue" .=) <$>
50625144 _tvDayPartTargetingValue])
50635145
5146+-- | The app icon, for app download ads.
5147+--
5148+-- /See:/ 'creativeNATiveAdAppIcon' smart constructor.
5149+data CreativeNATiveAdAppIcon = CreativeNATiveAdAppIcon
5150+ { _cnataaiHeight :: !(Maybe Int32)
5151+ , _cnataaiURL :: !(Maybe Text)
5152+ , _cnataaiWidth :: !(Maybe Int32)
5153+ } deriving (Eq,Show,Data,Typeable,Generic)
5154+
5155+-- | Creates a value of 'CreativeNATiveAdAppIcon' with the minimum fields required to make a request.
5156+--
5157+-- Use one of the following lenses to modify other fields as desired:
5158+--
5159+-- * 'cnataaiHeight'
5160+--
5161+-- * 'cnataaiURL'
5162+--
5163+-- * 'cnataaiWidth'
5164+creativeNATiveAdAppIcon
5165+ :: CreativeNATiveAdAppIcon
5166+creativeNATiveAdAppIcon =
5167+ CreativeNATiveAdAppIcon
5168+ { _cnataaiHeight = Nothing
5169+ , _cnataaiURL = Nothing
5170+ , _cnataaiWidth = Nothing
5171+ }
5172+
5173+cnataaiHeight :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)
5174+cnataaiHeight
5175+ = lens _cnataaiHeight
5176+ (\ s a -> s{_cnataaiHeight = a})
5177+
5178+cnataaiURL :: Lens' CreativeNATiveAdAppIcon (Maybe Text)
5179+cnataaiURL
5180+ = lens _cnataaiURL (\ s a -> s{_cnataaiURL = a})
5181+
5182+cnataaiWidth :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)
5183+cnataaiWidth
5184+ = lens _cnataaiWidth (\ s a -> s{_cnataaiWidth = a})
5185+
5186+instance FromJSON CreativeNATiveAdAppIcon where
5187+ parseJSON
5188+ = withObject "CreativeNATiveAdAppIcon"
5189+ (\ o ->
5190+ CreativeNATiveAdAppIcon <$>
5191+ (o .:? "height") <*> (o .:? "url") <*>
5192+ (o .:? "width"))
5193+
5194+instance ToJSON CreativeNATiveAdAppIcon where
5195+ toJSON CreativeNATiveAdAppIcon{..}
5196+ = object
5197+ (catMaybes
5198+ [("height" .=) <$> _cnataaiHeight,
5199+ ("url" .=) <$> _cnataaiURL,
5200+ ("width" .=) <$> _cnataaiWidth])
5201+
50645202--
50655203-- /See:/ 'price' smart constructor.
50665204data Price = Price
@@ -5109,52 +5247,6 @@ instance ToJSON Price where
51095247 [("currencyCode" .=) <$> _pCurrencyCode,
51105248 ("amountMicros" .=) <$> _pAmountMicros])
51115249
5112−--
5113−-- /See:/ 'excludedPlacementsItem' smart constructor.
5114−data ExcludedPlacementsItem = ExcludedPlacementsItem
5115− { _epiToken :: !(Maybe Text)
5116− , _epiType :: !(Maybe Text)
5117− } deriving (Eq,Show,Data,Typeable,Generic)
5118−
5119−-- | Creates a value of 'ExcludedPlacementsItem' with the minimum fields required to make a request.
5120−--
5121−-- Use one of the following lenses to modify other fields as desired:
5122−--
5123−-- * 'epiToken'
5124−--
5125−-- * 'epiType'
5126−excludedPlacementsItem
5127− :: ExcludedPlacementsItem
5128−excludedPlacementsItem =
5129− ExcludedPlacementsItem
5130− { _epiToken = Nothing
5131− , _epiType = Nothing
5132− }
5133−
5134−-- | The value of the placement. Interpretation depends on the placement
5135−-- type, e.g. URL for a site placement, channel name for a channel
5136−-- placement, app id for a mobile app placement.
5137−epiToken :: Lens' ExcludedPlacementsItem (Maybe Text)
5138−epiToken = lens _epiToken (\ s a -> s{_epiToken = a})
5139−
5140−-- | The type of the placement.
5141−epiType :: Lens' ExcludedPlacementsItem (Maybe Text)
5142−epiType = lens _epiType (\ s a -> s{_epiType = a})
5143−
5144−instance FromJSON ExcludedPlacementsItem where
5145− parseJSON
5146− = withObject "ExcludedPlacementsItem"
5147− (\ o ->
5148− ExcludedPlacementsItem <$>
5149− (o .:? "token") <*> (o .:? "type"))
5150−
5151−instance ToJSON ExcludedPlacementsItem where
5152− toJSON ExcludedPlacementsItem{..}
5153− = object
5154− (catMaybes
5155− [("token" .=) <$> _epiToken,
5156− ("type" .=) <$> _epiType])
5157−
51585250--
51595251-- /See:/ 'editAllOrderDealsRequest' smart constructor.
51605252data EditAllOrderDealsRequest = EditAllOrderDealsRequest
@@ -5294,126 +5386,22 @@ biBillingId
52945386
52955387instance FromJSON BillingInfo where
52965388 parseJSON
5297− = withObject "BillingInfo"
5298− (\ o ->
5299− BillingInfo <$>
5300− (o .:? "kind" .!= "adexchangebuyer#billingInfo") <*>
5301− (o .:? "accountName")
5302− <*> (o .:? "accountId")
5303− <*> (o .:? "billingId" .!= mempty))
5304−
5305−instance ToJSON BillingInfo where
5306− toJSON BillingInfo{..}
5307− = object
5308− (catMaybes
5309− [Just ("kind" .= _biKind),
5310− ("accountName" .=) <$> _biAccountName,
5311− ("accountId" .=) <$> _biAccountId,
5312− ("billingId" .=) <$> _biBillingId])
5313−
5314−--
5315−-- /See:/ 'webPropertyDTO' smart constructor.
5316−data WebPropertyDTO = WebPropertyDTO
5317− { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
5318− , _wpdtoSyndicationProduct :: !(Maybe Text)
5319− , _wpdtoName :: !(Maybe Text)
5320− , _wpdtoPropertyCode :: !(Maybe Text)
5321− , _wpdtoId :: !(Maybe Int32)
5322− , _wpdtoSiteURLs :: !(Maybe [Text])
5323− , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
5324− } deriving (Eq,Show,Data,Typeable,Generic)
5325−
5326−-- | Creates a value of 'WebPropertyDTO' with the minimum fields required to make a request.
5327−--
5328−-- Use one of the following lenses to modify other fields as desired:
5329−--
5330−-- * 'wpdtoEnabledForPreferredDeals'
5331−--
5332−-- * 'wpdtoSyndicationProduct'
5333−--
5334−-- * 'wpdtoName'
5335−--
5336−-- * 'wpdtoPropertyCode'
5337−--
5338−-- * 'wpdtoId'
5339−--
5340−-- * 'wpdtoSiteURLs'
5341−--
5342−-- * 'wpdtoAllowInterestTargetedAds'
5343−webPropertyDTO
5344− :: WebPropertyDTO
5345−webPropertyDTO =
5346− WebPropertyDTO
5347− { _wpdtoEnabledForPreferredDeals = Nothing
5348− , _wpdtoSyndicationProduct = Nothing
5349− , _wpdtoName = Nothing
5350− , _wpdtoPropertyCode = Nothing
5351− , _wpdtoId = Nothing
5352− , _wpdtoSiteURLs = Nothing
5353− , _wpdtoAllowInterestTargetedAds = Nothing
5354− }
5355−
5356−wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
5357−wpdtoEnabledForPreferredDeals
5358− = lens _wpdtoEnabledForPreferredDeals
5359− (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
5360−
5361−wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
5362−wpdtoSyndicationProduct
5363− = lens _wpdtoSyndicationProduct
5364− (\ s a -> s{_wpdtoSyndicationProduct = a})
5365−
5366−wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
5367−wpdtoName
5368− = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
5369−
5370−wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
5371−wpdtoPropertyCode
5372− = lens _wpdtoPropertyCode
5373− (\ s a -> s{_wpdtoPropertyCode = a})
5374−
5375−wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
5376−wpdtoId = lens _wpdtoId (\ s a -> s{_wpdtoId = a})
5377−
5378−wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
5379−wpdtoSiteURLs
5380− = lens _wpdtoSiteURLs
5381− (\ s a -> s{_wpdtoSiteURLs = a})
5382− . _Default
5383− . _Coerce
5384−
5385−wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
5386−wpdtoAllowInterestTargetedAds
5387− = lens _wpdtoAllowInterestTargetedAds
5388− (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
5389−
5390−instance FromJSON WebPropertyDTO where
5391− parseJSON
5392− = withObject "WebPropertyDTO"
5389+ = withObject "BillingInfo"
53935390 (\ o ->
5394− WebPropertyDTO <$>
5395− (o .:? "enabledForPreferredDeals") <*>
5396− (o .:? "syndicationProduct")
5397− <*> (o .:? "name")
5398− <*> (o .:? "propertyCode")
5399− <*> (o .:? "id")
5400− <*> (o .:? "siteUrls" .!= mempty)
5401− <*> (o .:? "allowInterestTargetedAds"))
5391+ BillingInfo <$>
5392+ (o .:? "kind" .!= "adexchangebuyer#billingInfo") <*>
5393+ (o .:? "accountName")
5394+ <*> (o .:? "accountId")
5395+ <*> (o .:? "billingId" .!= mempty))
54025396
5403−instance ToJSON WebPropertyDTO where
5404− toJSON WebPropertyDTO{..}
5397+instance ToJSON BillingInfo where
5398+ toJSON BillingInfo{..}
54055399 = object
54065400 (catMaybes
5407− [("enabledForPreferredDeals" .=) <$>
5408− _wpdtoEnabledForPreferredDeals,
5409− ("syndicationProduct" .=) <$>
5410− _wpdtoSyndicationProduct,
5411− ("name" .=) <$> _wpdtoName,
5412− ("propertyCode" .=) <$> _wpdtoPropertyCode,
5413− ("id" .=) <$> _wpdtoId,
5414− ("siteUrls" .=) <$> _wpdtoSiteURLs,
5415− ("allowInterestTargetedAds" .=) <$>
5416− _wpdtoAllowInterestTargetedAds])
5401+ [Just ("kind" .= _biKind),
5402+ ("accountName" .=) <$> _biAccountName,
5403+ ("accountId" .=) <$> _biAccountId,
5404+ ("billingId" .=) <$> _biBillingId])
54175405
54185406--
54195407-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
@@ -5466,40 +5454,64 @@ instance ToJSON TargetingValueDayPartTargeting where
54665454 ("dayParts" .=) <$> _tvdptDayParts])
54675455
54685456--
5469−-- /See:/ 'listOffersRequest' smart constructor.
5470−newtype ListOffersRequest = ListOffersRequest
5471− { _lorSinceTimestampMillis :: Maybe Int64
5457+-- /See:/ 'sharedTargeting' smart constructor.
5458+data SharedTargeting = SharedTargeting
5459+ { _stKey :: !(Maybe Text)
5460+ , _stExclusions :: !(Maybe [TargetingValue])
5461+ , _stInclusions :: !(Maybe [TargetingValue])
54725462 } deriving (Eq,Show,Data,Typeable,Generic)
54735463
5474−-- | Creates a value of 'ListOffersRequest' with the minimum fields required to make a request.
5464+-- | Creates a value of 'SharedTargeting' with the minimum fields required to make a request.
54755465--
54765466-- Use one of the following lenses to modify other fields as desired:
54775467--
5478−-- * 'lorSinceTimestampMillis'
5479−listOffersRequest
5480− :: ListOffersRequest
5481−listOffersRequest =
5482− ListOffersRequest
5483− { _lorSinceTimestampMillis = Nothing
5468+-- * 'stKey'
5469+--
5470+-- * 'stExclusions'
5471+--
5472+-- * 'stInclusions'
5473+sharedTargeting
5474+ :: SharedTargeting
5475+sharedTargeting =
5476+ SharedTargeting
5477+ { _stKey = Nothing
5478+ , _stExclusions = Nothing
5479+ , _stInclusions = Nothing
54845480 }
54855481
5486−lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
5487−lorSinceTimestampMillis
5488− = lens _lorSinceTimestampMillis
5489− (\ s a -> s{_lorSinceTimestampMillis = a})
5482+-- | The key representing the shared targeting criterion.
5483+stKey :: Lens' SharedTargeting (Maybe Text)
5484+stKey = lens _stKey (\ s a -> s{_stKey = a})
54905485
5491−instance FromJSON ListOffersRequest where
5486+-- | The list of values to exclude from targeting.
5487+stExclusions :: Lens' SharedTargeting [TargetingValue]
5488+stExclusions
5489+ = lens _stExclusions (\ s a -> s{_stExclusions = a})
5490+ . _Default
5491+ . _Coerce
5492+
5493+-- | The list of value to include as part of the targeting.
5494+stInclusions :: Lens' SharedTargeting [TargetingValue]
5495+stInclusions
5496+ = lens _stInclusions (\ s a -> s{_stInclusions = a})
5497+ . _Default
5498+ . _Coerce
5499+
5500+instance FromJSON SharedTargeting where
54925501 parseJSON
5493− = withObject "ListOffersRequest"
5502+ = withObject "SharedTargeting"
54945503 (\ o ->
5495− ListOffersRequest <$> (o .:? "sinceTimestampMillis"))
5504+ SharedTargeting <$>
5505+ (o .:? "key") <*> (o .:? "exclusions" .!= mempty) <*>
5506+ (o .:? "inclusions" .!= mempty))
54965507
5497−instance ToJSON ListOffersRequest where
5498− toJSON ListOffersRequest{..}
5508+instance ToJSON SharedTargeting where
5509+ toJSON SharedTargeting{..}
54995510 = object
55005511 (catMaybes
5501− [("sinceTimestampMillis" .=) <$>
5502− _lorSinceTimestampMillis])
5512+ [("key" .=) <$> _stKey,
5513+ ("exclusions" .=) <$> _stExclusions,
5514+ ("inclusions" .=) <$> _stInclusions])
55035515
55045516--
55055517-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
@@ -6057,163 +6069,200 @@ instance ToJSON InventorySegmentTargeting where
60576069 ("negativeIcmInterests" .=) <$>
60586070 _istNegativeIcmInterests])
60596071
6072+-- | A large image.
60606073--
6061−-- /See:/ 'sharedTargeting' smart constructor.
6062−data SharedTargeting = SharedTargeting
6063− { _stKey :: !(Maybe Text)
6064− , _stExclusions :: !(Maybe [TargetingValue])
6065− , _stInclusions :: !(Maybe [TargetingValue])
6074+-- /See:/ 'creativeNATiveAdImage' smart constructor.
6075+data CreativeNATiveAdImage = CreativeNATiveAdImage
6076+ { _cnataiHeight :: !(Maybe Int32)
6077+ , _cnataiURL :: !(Maybe Text)
6078+ , _cnataiWidth :: !(Maybe Int32)
60666079 } deriving (Eq,Show,Data,Typeable,Generic)
60676080
6068−-- | Creates a value of 'SharedTargeting' with the minimum fields required to make a request.
6081+-- | Creates a value of 'CreativeNATiveAdImage' with the minimum fields required to make a request.
60696082--
60706083-- Use one of the following lenses to modify other fields as desired:
60716084--
6072−-- * 'stKey'
6085+-- * 'cnataiHeight'
60736086--
6074−-- * 'stExclusions'
6087+-- * 'cnataiURL'
60756088--
6076−-- * 'stInclusions'
6077−sharedTargeting
6078− :: SharedTargeting
6079−sharedTargeting =
6080− SharedTargeting
6081− { _stKey = Nothing
6082− , _stExclusions = Nothing
6083− , _stInclusions = Nothing
6089+-- * 'cnataiWidth'
6090+creativeNATiveAdImage
6091+ :: CreativeNATiveAdImage
6092+creativeNATiveAdImage =
6093+ CreativeNATiveAdImage
6094+ { _cnataiHeight = Nothing
6095+ , _cnataiURL = Nothing
6096+ , _cnataiWidth = Nothing
60846097 }
60856098
6086−-- | The key representing the shared targeting criterion.
6087−stKey :: Lens' SharedTargeting (Maybe Text)
6088−stKey = lens _stKey (\ s a -> s{_stKey = a})
6099+cnataiHeight :: Lens' CreativeNATiveAdImage (Maybe Int32)
6100+cnataiHeight
6101+ = lens _cnataiHeight (\ s a -> s{_cnataiHeight = a})
60896102
6090−-- | The list of values to exclude from targeting.
6091−stExclusions :: Lens' SharedTargeting [TargetingValue]
6092−stExclusions
6093− = lens _stExclusions (\ s a -> s{_stExclusions = a})
6094− . _Default
6095− . _Coerce
6103+cnataiURL :: Lens' CreativeNATiveAdImage (Maybe Text)
6104+cnataiURL
6105+ = lens _cnataiURL (\ s a -> s{_cnataiURL = a})
60966106
6097−-- | The list of value to include as part of the targeting.
6098−stInclusions :: Lens' SharedTargeting [TargetingValue]
6099−stInclusions
6100− = lens _stInclusions (\ s a -> s{_stInclusions = a})
6101− . _Default
6102− . _Coerce
6107+cnataiWidth :: Lens' CreativeNATiveAdImage (Maybe Int32)
6108+cnataiWidth
6109+ = lens _cnataiWidth (\ s a -> s{_cnataiWidth = a})
61036110
6104−instance FromJSON SharedTargeting where
6111+instance FromJSON CreativeNATiveAdImage where
61056112 parseJSON
6106− = withObject "SharedTargeting"
6113+ = withObject "CreativeNATiveAdImage"
61076114 (\ o ->
6108− SharedTargeting <$>
6109− (o .:? "key") <*> (o .:? "exclusions" .!= mempty) <*>
6110− (o .:? "inclusions" .!= mempty))
6115+ CreativeNATiveAdImage <$>
6116+ (o .:? "height") <*> (o .:? "url") <*>
6117+ (o .:? "width"))
61116118
6112−instance ToJSON SharedTargeting where
6113− toJSON SharedTargeting{..}
6119+instance ToJSON CreativeNATiveAdImage where
6120+ toJSON CreativeNATiveAdImage{..}
61146121 = object
61156122 (catMaybes
6116− [("key" .=) <$> _stKey,
6117− ("exclusions" .=) <$> _stExclusions,
6118− ("inclusions" .=) <$> _stInclusions])
6123+ [("height" .=) <$> _cnataiHeight,
6124+ ("url" .=) <$> _cnataiURL,
6125+ ("width" .=) <$> _cnataiWidth])
61196126
61206127--
6121−-- /See:/ 'correctionsItem' smart constructor.
6122−data CorrectionsItem = CorrectionsItem
6123− { _ciReason :: !(Maybe Text)
6124− , _ciDetails :: !(Maybe [Text])
6128+-- /See:/ 'webPropertyDTO' smart constructor.
6129+data WebPropertyDTO = WebPropertyDTO
6130+ { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
6131+ , _wpdtoSyndicationProduct :: !(Maybe Text)
6132+ , _wpdtoName :: !(Maybe Text)
6133+ , _wpdtoPropertyCode :: !(Maybe Text)
6134+ , _wpdtoId :: !(Maybe Int32)
6135+ , _wpdtoSiteURLs :: !(Maybe [Text])
6136+ , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
61256137 } deriving (Eq,Show,Data,Typeable,Generic)
61266138
6127−-- | Creates a value of 'CorrectionsItem' with the minimum fields required to make a request.
6139+-- | Creates a value of 'WebPropertyDTO' with the minimum fields required to make a request.
61286140--
61296141-- Use one of the following lenses to modify other fields as desired:
61306142--
6131−-- * 'ciReason'
6143+-- * 'wpdtoEnabledForPreferredDeals'
6144+--
6145+-- * 'wpdtoSyndicationProduct'
6146+--
6147+-- * 'wpdtoName'
6148+--
6149+-- * 'wpdtoPropertyCode'
6150+--
6151+-- * 'wpdtoId'
6152+--
6153+-- * 'wpdtoSiteURLs'
61326154--
6133−-- * 'ciDetails'
6134−correctionsItem
6135− :: CorrectionsItem
6136−correctionsItem =
6137− CorrectionsItem
6138− { _ciReason = Nothing
6139− , _ciDetails = Nothing
6155+-- * 'wpdtoAllowInterestTargetedAds'
6156+webPropertyDTO
6157+ :: WebPropertyDTO
6158+webPropertyDTO =
6159+ WebPropertyDTO
6160+ { _wpdtoEnabledForPreferredDeals = Nothing
6161+ , _wpdtoSyndicationProduct = Nothing
6162+ , _wpdtoName = Nothing
6163+ , _wpdtoPropertyCode = Nothing
6164+ , _wpdtoId = Nothing
6165+ , _wpdtoSiteURLs = Nothing
6166+ , _wpdtoAllowInterestTargetedAds = Nothing
61406167 }
61416168
6142−-- | The type of correction that was applied to the creative.
6143−ciReason :: Lens' CorrectionsItem (Maybe Text)
6144−ciReason = lens _ciReason (\ s a -> s{_ciReason = a})
6169+wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
6170+wpdtoEnabledForPreferredDeals
6171+ = lens _wpdtoEnabledForPreferredDeals
6172+ (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
61456173
6146−-- | Additional details about the correction.
6147−ciDetails :: Lens' CorrectionsItem [Text]
6148−ciDetails
6149− = lens _ciDetails (\ s a -> s{_ciDetails = a}) .
6150− _Default
6174+wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
6175+wpdtoSyndicationProduct
6176+ = lens _wpdtoSyndicationProduct
6177+ (\ s a -> s{_wpdtoSyndicationProduct = a})
6178+
6179+wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
6180+wpdtoName
6181+ = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
6182+
6183+wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
6184+wpdtoPropertyCode
6185+ = lens _wpdtoPropertyCode
6186+ (\ s a -> s{_wpdtoPropertyCode = a})
6187+
6188+wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
6189+wpdtoId = lens _wpdtoId (\ s a -> s{_wpdtoId = a})
6190+
6191+wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
6192+wpdtoSiteURLs
6193+ = lens _wpdtoSiteURLs
6194+ (\ s a -> s{_wpdtoSiteURLs = a})
6195+ . _Default
61516196 . _Coerce
61526197
6153−instance FromJSON CorrectionsItem where
6198+wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
6199+wpdtoAllowInterestTargetedAds
6200+ = lens _wpdtoAllowInterestTargetedAds
6201+ (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
6202+
6203+instance FromJSON WebPropertyDTO where
61546204 parseJSON
6155− = withObject "CorrectionsItem"
6205+ = withObject "WebPropertyDTO"
61566206 (\ o ->
6157− CorrectionsItem <$>
6158− (o .:? "reason") <*> (o .:? "details" .!= mempty))
6207+ WebPropertyDTO <$>
6208+ (o .:? "enabledForPreferredDeals") <*>
6209+ (o .:? "syndicationProduct")
6210+ <*> (o .:? "name")
6211+ <*> (o .:? "propertyCode")
6212+ <*> (o .:? "id")
6213+ <*> (o .:? "siteUrls" .!= mempty)
6214+ <*> (o .:? "allowInterestTargetedAds"))
61596215
6160−instance ToJSON CorrectionsItem where
6161− toJSON CorrectionsItem{..}
6216+instance ToJSON WebPropertyDTO where
6217+ toJSON WebPropertyDTO{..}
61626218 = object
61636219 (catMaybes
6164− [("reason" .=) <$> _ciReason,
6165− ("details" .=) <$> _ciDetails])
6220+ [("enabledForPreferredDeals" .=) <$>
6221+ _wpdtoEnabledForPreferredDeals,
6222+ ("syndicationProduct" .=) <$>
6223+ _wpdtoSyndicationProduct,
6224+ ("name" .=) <$> _wpdtoName,
6225+ ("propertyCode" .=) <$> _wpdtoPropertyCode,
6226+ ("id" .=) <$> _wpdtoId,
6227+ ("siteUrls" .=) <$> _wpdtoSiteURLs,
6228+ ("allowInterestTargetedAds" .=) <$>
6229+ _wpdtoAllowInterestTargetedAds])
61666230
6167−-- | A smaller image, for the advertiser logo.
61686231--
6169−-- /See:/ 'logo' smart constructor.
6170−data Logo = Logo
6171− { _lHeight :: !(Maybe Int32)
6172− , _lURL :: !(Maybe Text)
6173− , _lWidth :: !(Maybe Int32)
6232+-- /See:/ 'listOffersRequest' smart constructor.
6233+newtype ListOffersRequest = ListOffersRequest
6234+ { _lorSinceTimestampMillis :: Maybe Int64
61746235 } deriving (Eq,Show,Data,Typeable,Generic)
61756236
6176−-- | Creates a value of 'Logo' with the minimum fields required to make a request.
6237+-- | Creates a value of 'ListOffersRequest' with the minimum fields required to make a request.
61776238--
61786239-- Use one of the following lenses to modify other fields as desired:
61796240--
6180−-- * 'lHeight'
6181−--
6182−-- * 'lURL'
6183−--
6184−-- * 'lWidth'
6185−logo
6186− :: Logo
6187−logo =
6188− Logo
6189− { _lHeight = Nothing
6190− , _lURL = Nothing
6191− , _lWidth = Nothing
6241+-- * 'lorSinceTimestampMillis'
6242+listOffersRequest
6243+ :: ListOffersRequest
6244+listOffersRequest =
6245+ ListOffersRequest
6246+ { _lorSinceTimestampMillis = Nothing
61926247 }
61936248
6194−lHeight :: Lens' Logo (Maybe Int32)
6195−lHeight = lens _lHeight (\ s a -> s{_lHeight = a})
6196−
6197−lURL :: Lens' Logo (Maybe Text)
6198−lURL = lens _lURL (\ s a -> s{_lURL = a})
6199−
6200−lWidth :: Lens' Logo (Maybe Int32)
6201−lWidth = lens _lWidth (\ s a -> s{_lWidth = a})
6249+lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
6250+lorSinceTimestampMillis
6251+ = lens _lorSinceTimestampMillis
6252+ (\ s a -> s{_lorSinceTimestampMillis = a})
62026253
6203−instance FromJSON Logo where
6254+instance FromJSON ListOffersRequest where
62046255 parseJSON
6205− = withObject "Logo"
6256+ = withObject "ListOffersRequest"
62066257 (\ o ->
6207− Logo <$>
6208− (o .:? "height") <*> (o .:? "url") <*>
6209− (o .:? "width"))
6258+ ListOffersRequest <$> (o .:? "sinceTimestampMillis"))
62106259
6211−instance ToJSON Logo where
6212− toJSON Logo{..}
6260+instance ToJSON ListOffersRequest where
6261+ toJSON ListOffersRequest{..}
62136262 = object
62146263 (catMaybes
6215− [("height" .=) <$> _lHeight, ("url" .=) <$> _lURL,
6216− ("width" .=) <$> _lWidth])
6264+ [("sinceTimestampMillis" .=) <$>
6265+ _lorSinceTimestampMillis])
62176266
62186267--
62196268-- /See:/ 'clientAccessCapabilities' smart constructor.
@@ -6265,52 +6314,73 @@ instance ToJSON ClientAccessCapabilities where
62656314 ("capabilities" .=) <$> _cacCapabilities])
62666315
62676316--
6268−-- /See:/ 'disapprovalReasonsItem' smart constructor.
6269−data DisapprovalReasonsItem = DisapprovalReasonsItem
6270− { _driReason :: !(Maybe Text)
6271− , _driDetails :: !(Maybe [Text])
6317+-- /See:/ 'creativeServingRestrictionsItem' smart constructor.
6318+data CreativeServingRestrictionsItem = CreativeServingRestrictionsItem
6319+ { _csriContexts :: !(Maybe [CreativeServingRestrictionsItemContextsItem])
6320+ , _csriReason :: !(Maybe Text)
6321+ , _csriDisApprovalReasons :: !(Maybe [CreativeServingRestrictionsItemDisApprovalReasonsItem])
62726322 } deriving (Eq,Show,Data,Typeable,Generic)
62736323
6274−-- | Creates a value of 'DisapprovalReasonsItem' with the minimum fields required to make a request.
6324+-- | Creates a value of 'CreativeServingRestrictionsItem' with the minimum fields required to make a request.
62756325--
62766326-- Use one of the following lenses to modify other fields as desired:
62776327--
6278−-- * 'driReason'
6328+-- * 'csriContexts'
62796329--
6280−-- * 'driDetails'
6281−disapprovalReasonsItem
6282− :: DisapprovalReasonsItem
6283−disapprovalReasonsItem =
6284− DisapprovalReasonsItem
6285− { _driReason = Nothing
6286− , _driDetails = Nothing
6330+-- * 'csriReason'
6331+--
6332+-- * 'csriDisApprovalReasons'
6333+creativeServingRestrictionsItem
6334+ :: CreativeServingRestrictionsItem
6335+creativeServingRestrictionsItem =
6336+ CreativeServingRestrictionsItem
6337+ { _csriContexts = Nothing
6338+ , _csriReason = Nothing
6339+ , _csriDisApprovalReasons = Nothing
62876340 }
62886341
6289−-- | The categorized reason for disapproval.
6290−driReason :: Lens' DisapprovalReasonsItem (Maybe Text)
6291−driReason
6292− = lens _driReason (\ s a -> s{_driReason = a})
6342+-- | All known contexts\/restrictions.
6343+csriContexts :: Lens' CreativeServingRestrictionsItem [CreativeServingRestrictionsItemContextsItem]
6344+csriContexts
6345+ = lens _csriContexts (\ s a -> s{_csriContexts = a})
6346+ . _Default
6347+ . _Coerce
62936348
6294−-- | Additional details about the reason for disapproval.
6295−driDetails :: Lens' DisapprovalReasonsItem [Text]
6296−driDetails
6297− = lens _driDetails (\ s a -> s{_driDetails = a}) .
6298− _Default
6349+-- | Why the creative is ineligible to serve in this context (e.g., it has
6350+-- been explicitly disapproved or is pending review).
6351+csriReason :: Lens' CreativeServingRestrictionsItem (Maybe Text)
6352+csriReason
6353+ = lens _csriReason (\ s a -> s{_csriReason = a})
6354+
6355+-- | The reasons for disapproval within this restriction, if any. Note that
6356+-- not all disapproval reasons may be categorized, so it is possible for
6357+-- the creative to have a status of DISAPPROVED or CONDITIONALLY_APPROVED
6358+-- with an empty list for disapproval_reasons. In this case, please reach
6359+-- out to your TAM to help debug the issue.
6360+csriDisApprovalReasons :: Lens' CreativeServingRestrictionsItem [CreativeServingRestrictionsItemDisApprovalReasonsItem]
6361+csriDisApprovalReasons
6362+ = lens _csriDisApprovalReasons
6363+ (\ s a -> s{_csriDisApprovalReasons = a})
6364+ . _Default
62996365 . _Coerce
63006366
6301−instance FromJSON DisapprovalReasonsItem where
6367+instance FromJSON CreativeServingRestrictionsItem
6368+ where
63026369 parseJSON
6303− = withObject "DisapprovalReasonsItem"
6370+ = withObject "CreativeServingRestrictionsItem"
63046371 (\ o ->
6305− DisapprovalReasonsItem <$>
6306− (o .:? "reason") <*> (o .:? "details" .!= mempty))
6372+ CreativeServingRestrictionsItem <$>
6373+ (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
6374+ <*> (o .:? "disapprovalReasons" .!= mempty))
63076375
6308−instance ToJSON DisapprovalReasonsItem where
6309− toJSON DisapprovalReasonsItem{..}
6376+instance ToJSON CreativeServingRestrictionsItem where
6377+ toJSON CreativeServingRestrictionsItem{..}
63106378 = object
63116379 (catMaybes
6312− [("reason" .=) <$> _driReason,
6313− ("details" .=) <$> _driDetails])
6380+ [("contexts" .=) <$> _csriContexts,
6381+ ("reason" .=) <$> _csriReason,
6382+ ("disapprovalReasons" .=) <$>
6383+ _csriDisApprovalReasons])
63146384
63156385--
63166386-- /See:/ 'deleteOrderDealsResponse' smart constructor.
@@ -6362,6 +6432,55 @@ instance ToJSON DeleteOrderDealsResponse where
63626432 ("orderRevisionNumber" .=) <$>
63636433 _dOrderRevisionNumber])
63646434
6435+--
6436+-- /See:/ 'pretargetingConfigPlacementsItem' smart constructor.
6437+data PretargetingConfigPlacementsItem = PretargetingConfigPlacementsItem
6438+ { _pcpiToken :: !(Maybe Text)
6439+ , _pcpiType :: !(Maybe Text)
6440+ } deriving (Eq,Show,Data,Typeable,Generic)
6441+
6442+-- | Creates a value of 'PretargetingConfigPlacementsItem' with the minimum fields required to make a request.
6443+--
6444+-- Use one of the following lenses to modify other fields as desired:
6445+--
6446+-- * 'pcpiToken'
6447+--
6448+-- * 'pcpiType'
6449+pretargetingConfigPlacementsItem
6450+ :: PretargetingConfigPlacementsItem
6451+pretargetingConfigPlacementsItem =
6452+ PretargetingConfigPlacementsItem
6453+ { _pcpiToken = Nothing
6454+ , _pcpiType = Nothing
6455+ }
6456+
6457+-- | The value of the placement. Interpretation depends on the placement
6458+-- type, e.g. URL for a site placement, channel name for a channel
6459+-- placement, app id for a mobile app placement.
6460+pcpiToken :: Lens' PretargetingConfigPlacementsItem (Maybe Text)
6461+pcpiToken
6462+ = lens _pcpiToken (\ s a -> s{_pcpiToken = a})
6463+
6464+-- | The type of the placement.
6465+pcpiType :: Lens' PretargetingConfigPlacementsItem (Maybe Text)
6466+pcpiType = lens _pcpiType (\ s a -> s{_pcpiType = a})
6467+
6468+instance FromJSON PretargetingConfigPlacementsItem
6469+ where
6470+ parseJSON
6471+ = withObject "PretargetingConfigPlacementsItem"
6472+ (\ o ->
6473+ PretargetingConfigPlacementsItem <$>
6474+ (o .:? "token") <*> (o .:? "type"))
6475+
6476+instance ToJSON PretargetingConfigPlacementsItem
6477+ where
6478+ toJSON PretargetingConfigPlacementsItem{..}
6479+ = object
6480+ (catMaybes
6481+ [("token" .=) <$> _pcpiToken,
6482+ ("type" .=) <$> _pcpiType])
6483+
63656484-- | An order can contain multiple deals. A deal contains the terms and
63666485-- targeting information that is used for serving.
63676486--
@@ -6560,111 +6679,293 @@ mdSellerContacts
65606679 . _Default
65616680 . _Coerce
65626681
6563−-- | The offer-id from which this deal was created. (readonly, except on
6564−-- create)
6565−mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
6566−mdOfferId
6567− = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
6568−
6569−mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
6570−mdOrderId
6571− = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
6682+-- | The offer-id from which this deal was created. (readonly, except on
6683+-- create)
6684+mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
6685+mdOfferId
6686+ = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
6687+
6688+mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
6689+mdOrderId
6690+ = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
6691+
6692+instance FromJSON MarketplaceDeal where
6693+ parseJSON
6694+ = withObject "MarketplaceDeal"
6695+ (\ o ->
6696+ MarketplaceDeal <$>
6697+ (o .:? "externalDealId") <*>
6698+ (o .:? "buyerPrivateData")
6699+ <*> (o .:? "webPropertyCode")
6700+ <*> (o .:? "creationTimeMs")
6701+ <*> (o .:? "terms")
6702+ <*> (o .:? "offerRevisionNumber")
6703+ <*> (o .:? "lastUpdateTimeMs")
6704+ <*>
6705+ (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal")
6706+ <*> (o .:? "deliveryControl")
6707+ <*> (o .:? "flightStartTimeMs")
6708+ <*> (o .:? "sharedTargetings" .!= mempty)
6709+ <*> (o .:? "dealId")
6710+ <*> (o .:? "inventoryDescription")
6711+ <*> (o .:? "syndicationProduct")
6712+ <*> (o .:? "flightEndTimeMs")
6713+ <*> (o .:? "name")
6714+ <*> (o .:? "sellerContacts" .!= mempty)
6715+ <*> (o .:? "offerId")
6716+ <*> (o .:? "orderId"))
6717+
6718+instance ToJSON MarketplaceDeal where
6719+ toJSON MarketplaceDeal{..}
6720+ = object
6721+ (catMaybes
6722+ [("externalDealId" .=) <$> _mdExternalDealId,
6723+ ("buyerPrivateData" .=) <$> _mdBuyerPrivateData,
6724+ ("webPropertyCode" .=) <$> _mdWebPropertyCode,
6725+ ("creationTimeMs" .=) <$> _mdCreationTimeMs,
6726+ ("terms" .=) <$> _mdTerms,
6727+ ("offerRevisionNumber" .=) <$>
6728+ _mdOfferRevisionNumber,
6729+ ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,
6730+ Just ("kind" .= _mdKind),
6731+ ("deliveryControl" .=) <$> _mdDeliveryControl,
6732+ ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
6733+ ("sharedTargetings" .=) <$> _mdSharedTargetings,
6734+ ("dealId" .=) <$> _mdDealId,
6735+ ("inventoryDescription" .=) <$>
6736+ _mdInventoryDescription,
6737+ ("syndicationProduct" .=) <$> _mdSyndicationProduct,
6738+ ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,
6739+ ("name" .=) <$> _mdName,
6740+ ("sellerContacts" .=) <$> _mdSellerContacts,
6741+ ("offerId" .=) <$> _mdOfferId,
6742+ ("orderId" .=) <$> _mdOrderId])
6743+
6744+--
6745+-- /See:/ 'getOffersResponse' smart constructor.
6746+newtype GetOffersResponse = GetOffersResponse
6747+ { _gorOffers :: Maybe [MarketplaceOffer]
6748+ } deriving (Eq,Show,Data,Typeable,Generic)
6749+
6750+-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
6751+--
6752+-- Use one of the following lenses to modify other fields as desired:
6753+--
6754+-- * 'gorOffers'
6755+getOffersResponse
6756+ :: GetOffersResponse
6757+getOffersResponse =
6758+ GetOffersResponse
6759+ { _gorOffers = Nothing
6760+ }
6761+
6762+-- | The returned list of offers.
6763+gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]
6764+gorOffers
6765+ = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
6766+ _Default
6767+ . _Coerce
6768+
6769+instance FromJSON GetOffersResponse where
6770+ parseJSON
6771+ = withObject "GetOffersResponse"
6772+ (\ o ->
6773+ GetOffersResponse <$> (o .:? "offers" .!= mempty))
6774+
6775+instance ToJSON GetOffersResponse where
6776+ toJSON GetOffersResponse{..}
6777+ = object (catMaybes [("offers" .=) <$> _gorOffers])
6778+
6779+--
6780+-- /See:/ 'statsDTO' smart constructor.
6781+data StatsDTO = StatsDTO
6782+ { _sdtoBids :: !(Maybe Int64)
6783+ , _sdtoSpend :: !(Maybe MoneyDTO)
6784+ , _sdtoImpressions :: !(Maybe Int64)
6785+ , _sdtoGoodBids :: !(Maybe Int64)
6786+ , _sdtoRevenue :: !(Maybe MoneyDTO)
6787+ , _sdtoRequests :: !(Maybe Int64)
6788+ } deriving (Eq,Show,Data,Typeable,Generic)
6789+
6790+-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request.
6791+--
6792+-- Use one of the following lenses to modify other fields as desired:
6793+--
6794+-- * 'sdtoBids'
6795+--
6796+-- * 'sdtoSpend'
6797+--
6798+-- * 'sdtoImpressions'
6799+--
6800+-- * 'sdtoGoodBids'
6801+--
6802+-- * 'sdtoRevenue'
6803+--
6804+-- * 'sdtoRequests'
6805+statsDTO
6806+ :: StatsDTO
6807+statsDTO =
6808+ StatsDTO
6809+ { _sdtoBids = Nothing
6810+ , _sdtoSpend = Nothing
6811+ , _sdtoImpressions = Nothing
6812+ , _sdtoGoodBids = Nothing
6813+ , _sdtoRevenue = Nothing
6814+ , _sdtoRequests = Nothing
6815+ }
6816+
6817+sdtoBids :: Lens' StatsDTO (Maybe Int64)
6818+sdtoBids = lens _sdtoBids (\ s a -> s{_sdtoBids = a})
6819+
6820+sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6821+sdtoSpend
6822+ = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6823+
6824+sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6825+sdtoImpressions
6826+ = lens _sdtoImpressions
6827+ (\ s a -> s{_sdtoImpressions = a})
6828+
6829+sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6830+sdtoGoodBids
6831+ = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6832+
6833+sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6834+sdtoRevenue
6835+ = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6836+
6837+sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6838+sdtoRequests
6839+ = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6840+
6841+instance FromJSON StatsDTO where
6842+ parseJSON
6843+ = withObject "StatsDTO"
6844+ (\ o ->
6845+ StatsDTO <$>
6846+ (o .:? "bids") <*> (o .:? "spend") <*>
6847+ (o .:? "impressions")
6848+ <*> (o .:? "goodBids")
6849+ <*> (o .:? "revenue")
6850+ <*> (o .:? "requests"))
6851+
6852+instance ToJSON StatsDTO where
6853+ toJSON StatsDTO{..}
6854+ = object
6855+ (catMaybes
6856+ [("bids" .=) <$> _sdtoBids,
6857+ ("spend" .=) <$> _sdtoSpend,
6858+ ("impressions" .=) <$> _sdtoImpressions,
6859+ ("goodBids" .=) <$> _sdtoGoodBids,
6860+ ("revenue" .=) <$> _sdtoRevenue,
6861+ ("requests" .=) <$> _sdtoRequests])
6862+
6863+--
6864+-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
6865+data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms
6866+ { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer])
6867+ , _dtngatPrivateAuctionId :: !(Maybe Text)
6868+ } deriving (Eq,Show,Data,Typeable,Generic)
6869+
6870+-- | Creates a value of 'DealTermsNonGuaranteedAuctionTerms' with the minimum fields required to make a request.
6871+--
6872+-- Use one of the following lenses to modify other fields as desired:
6873+--
6874+-- * 'dtngatReservePricePerBuyers'
6875+--
6876+-- * 'dtngatPrivateAuctionId'
6877+dealTermsNonGuaranteedAuctionTerms
6878+ :: DealTermsNonGuaranteedAuctionTerms
6879+dealTermsNonGuaranteedAuctionTerms =
6880+ DealTermsNonGuaranteedAuctionTerms
6881+ { _dtngatReservePricePerBuyers = Nothing
6882+ , _dtngatPrivateAuctionId = Nothing
6883+ }
6884+
6885+-- | Reserve price for the specified buyer.
6886+dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer]
6887+dtngatReservePricePerBuyers
6888+ = lens _dtngatReservePricePerBuyers
6889+ (\ s a -> s{_dtngatReservePricePerBuyers = a})
6890+ . _Default
6891+ . _Coerce
6892+
6893+-- | Id of the corresponding private auction.
6894+dtngatPrivateAuctionId :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Text)
6895+dtngatPrivateAuctionId
6896+ = lens _dtngatPrivateAuctionId
6897+ (\ s a -> s{_dtngatPrivateAuctionId = a})
65726898
6573−instance FromJSON MarketplaceDeal where
6899+instance FromJSON DealTermsNonGuaranteedAuctionTerms
6900+ where
65746901 parseJSON
6575− = withObject "MarketplaceDeal"
6902+ = withObject "DealTermsNonGuaranteedAuctionTerms"
65766903 (\ o ->
6577− MarketplaceDeal <$>
6578− (o .:? "externalDealId") <*>
6579− (o .:? "buyerPrivateData")
6580− <*> (o .:? "webPropertyCode")
6581− <*> (o .:? "creationTimeMs")
6582− <*> (o .:? "terms")
6583− <*> (o .:? "offerRevisionNumber")
6584− <*> (o .:? "lastUpdateTimeMs")
6585− <*>
6586− (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal")
6587− <*> (o .:? "deliveryControl")
6588− <*> (o .:? "flightStartTimeMs")
6589− <*> (o .:? "sharedTargetings" .!= mempty)
6590− <*> (o .:? "dealId")
6591− <*> (o .:? "inventoryDescription")
6592− <*> (o .:? "syndicationProduct")
6593− <*> (o .:? "flightEndTimeMs")
6594− <*> (o .:? "name")
6595− <*> (o .:? "sellerContacts" .!= mempty)
6596− <*> (o .:? "offerId")
6597− <*> (o .:? "orderId"))
6904+ DealTermsNonGuaranteedAuctionTerms <$>
6905+ (o .:? "reservePricePerBuyers" .!= mempty) <*>
6906+ (o .:? "privateAuctionId"))
65986907
6599−instance ToJSON MarketplaceDeal where
6600− toJSON MarketplaceDeal{..}
6908+instance ToJSON DealTermsNonGuaranteedAuctionTerms
6909+ where
6910+ toJSON DealTermsNonGuaranteedAuctionTerms{..}
66016911 = object
66026912 (catMaybes
6603− [("externalDealId" .=) <$> _mdExternalDealId,
6604− ("buyerPrivateData" .=) <$> _mdBuyerPrivateData,
6605− ("webPropertyCode" .=) <$> _mdWebPropertyCode,
6606− ("creationTimeMs" .=) <$> _mdCreationTimeMs,
6607− ("terms" .=) <$> _mdTerms,
6608− ("offerRevisionNumber" .=) <$>
6609− _mdOfferRevisionNumber,
6610− ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,
6611− Just ("kind" .= _mdKind),
6612− ("deliveryControl" .=) <$> _mdDeliveryControl,
6613− ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
6614− ("sharedTargetings" .=) <$> _mdSharedTargetings,
6615− ("dealId" .=) <$> _mdDealId,
6616− ("inventoryDescription" .=) <$>
6617− _mdInventoryDescription,
6618− ("syndicationProduct" .=) <$> _mdSyndicationProduct,
6619− ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,
6620− ("name" .=) <$> _mdName,
6621− ("sellerContacts" .=) <$> _mdSellerContacts,
6622− ("offerId" .=) <$> _mdOfferId,
6623− ("orderId" .=) <$> _mdOrderId])
6913+ [("reservePricePerBuyers" .=) <$>
6914+ _dtngatReservePricePerBuyers,
6915+ ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId])
66246916
66256917--
6626−-- /See:/ 'dimensionsItem' smart constructor.
6627−data DimensionsItem = DimensionsItem
6628− { _diHeight :: !(Maybe Int64)
6629− , _diWidth :: !(Maybe Int64)
6918+-- /See:/ 'creativeFilteringReasonsReasonsItem' smart constructor.
6919+data CreativeFilteringReasonsReasonsItem = CreativeFilteringReasonsReasonsItem
6920+ { _cfrriFilteringStatus :: !(Maybe Int32)
6921+ , _cfrriFilteringCount :: !(Maybe Int64)
66306922 } deriving (Eq,Show,Data,Typeable,Generic)
66316923
6632−-- | Creates a value of 'DimensionsItem' with the minimum fields required to make a request.
6924+-- | Creates a value of 'CreativeFilteringReasonsReasonsItem' with the minimum fields required to make a request.
66336925--
66346926-- Use one of the following lenses to modify other fields as desired:
66356927--
6636−-- * 'diHeight'
6928+-- * 'cfrriFilteringStatus'
66376929--
6638−-- * 'diWidth'
6639−dimensionsItem
6640− :: DimensionsItem
6641−dimensionsItem =
6642− DimensionsItem
6643− { _diHeight = Nothing
6644− , _diWidth = Nothing
6930+-- * 'cfrriFilteringCount'
6931+creativeFilteringReasonsReasonsItem
6932+ :: CreativeFilteringReasonsReasonsItem
6933+creativeFilteringReasonsReasonsItem =
6934+ CreativeFilteringReasonsReasonsItem
6935+ { _cfrriFilteringStatus = Nothing
6936+ , _cfrriFilteringCount = Nothing
66456937 }
66466938
6647−-- | Height in pixels.
6648−diHeight :: Lens' DimensionsItem (Maybe Int64)
6649−diHeight = lens _diHeight (\ s a -> s{_diHeight = a})
6939+-- | The filtering status code. Please refer to the creative-status-codes.txt
6940+-- file for different statuses.
6941+cfrriFilteringStatus :: Lens' CreativeFilteringReasonsReasonsItem (Maybe Int32)
6942+cfrriFilteringStatus
6943+ = lens _cfrriFilteringStatus
6944+ (\ s a -> s{_cfrriFilteringStatus = a})
66506945
6651−-- | Width in pixels.
6652−diWidth :: Lens' DimensionsItem (Maybe Int64)
6653−diWidth = lens _diWidth (\ s a -> s{_diWidth = a})
6946+-- | The number of times the creative was filtered for the status. The count
6947+-- is aggregated across all publishers on the exchange.
6948+cfrriFilteringCount :: Lens' CreativeFilteringReasonsReasonsItem (Maybe Int64)
6949+cfrriFilteringCount
6950+ = lens _cfrriFilteringCount
6951+ (\ s a -> s{_cfrriFilteringCount = a})
66546952
6655−instance FromJSON DimensionsItem where
6953+instance FromJSON CreativeFilteringReasonsReasonsItem
6954+ where
66566955 parseJSON
6657− = withObject "DimensionsItem"
6956+ = withObject "CreativeFilteringReasonsReasonsItem"
66586957 (\ o ->
6659− DimensionsItem <$>
6660− (o .:? "height") <*> (o .:? "width"))
6958+ CreativeFilteringReasonsReasonsItem <$>
6959+ (o .:? "filteringStatus") <*>
6960+ (o .:? "filteringCount"))
66616961
6662−instance ToJSON DimensionsItem where
6663− toJSON DimensionsItem{..}
6962+instance ToJSON CreativeFilteringReasonsReasonsItem
6963+ where
6964+ toJSON CreativeFilteringReasonsReasonsItem{..}
66646965 = object
66656966 (catMaybes
6666− [("height" .=) <$> _diHeight,
6667− ("width" .=) <$> _diWidth])
6967+ [("filteringStatus" .=) <$> _cfrriFilteringStatus,
6968+ ("filteringCount" .=) <$> _cfrriFilteringCount])
66686969
66696970--
66706971-- /See:/ 'negotiationRoundDTO' smart constructor.
@@ -6795,291 +7096,165 @@ instance ToJSON NegotiationRoundDTO where
67957096 ("roundNumber" .=) <$> _nrdtoRoundNumber])
67967097
67977098--
6798−-- /See:/ 'statsDTO' smart constructor.
6799−data StatsDTO = StatsDTO
6800− { _sdtoBids :: !(Maybe Int64)
6801− , _sdtoSpend :: !(Maybe MoneyDTO)
6802− , _sdtoImpressions :: !(Maybe Int64)
6803− , _sdtoGoodBids :: !(Maybe Int64)
6804− , _sdtoRevenue :: !(Maybe MoneyDTO)
6805− , _sdtoRequests :: !(Maybe Int64)
7099+-- /See:/ 'dealTerms' smart constructor.
7100+data DealTerms = DealTerms
7101+ { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
7102+ , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
7103+ , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
7104+ , _dtDescription :: !(Maybe Text)
68067105 } deriving (Eq,Show,Data,Typeable,Generic)
68077106
6808−-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request.
7107+-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
68097108--
68107109-- Use one of the following lenses to modify other fields as desired:
68117110--
6812−-- * 'sdtoBids'
6813−--
6814−-- * 'sdtoSpend'
6815−--
6816−-- * 'sdtoImpressions'
6817−--
6818−-- * 'sdtoGoodBids'
6819−--
6820−-- * 'sdtoRevenue'
6821−--
6822−-- * 'sdtoRequests'
6823−statsDTO
6824− :: StatsDTO
6825−statsDTO =
6826− StatsDTO
6827− { _sdtoBids = Nothing
6828− , _sdtoSpend = Nothing
6829− , _sdtoImpressions = Nothing
6830− , _sdtoGoodBids = Nothing
6831− , _sdtoRevenue = Nothing
6832− , _sdtoRequests = Nothing
6833− }
6834−
6835−sdtoBids :: Lens' StatsDTO (Maybe Int64)
6836−sdtoBids = lens _sdtoBids (\ s a -> s{_sdtoBids = a})
6837−
6838−sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6839−sdtoSpend
6840− = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6841−
6842−sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6843−sdtoImpressions
6844− = lens _sdtoImpressions
6845− (\ s a -> s{_sdtoImpressions = a})
6846−
6847−sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6848−sdtoGoodBids
6849− = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6850−
6851−sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6852−sdtoRevenue
6853− = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6854−
6855−sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6856−sdtoRequests
6857− = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6858−
6859−instance FromJSON StatsDTO where
6860− parseJSON
6861− = withObject "StatsDTO"
6862− (\ o ->
6863− StatsDTO <$>
6864− (o .:? "bids") <*> (o .:? "spend") <*>
6865− (o .:? "impressions")
6866− <*> (o .:? "goodBids")
6867− <*> (o .:? "revenue")
6868− <*> (o .:? "requests"))
6869−
6870−instance ToJSON StatsDTO where
6871− toJSON StatsDTO{..}
6872− = object
6873− (catMaybes
6874− [("bids" .=) <$> _sdtoBids,
6875− ("spend" .=) <$> _sdtoSpend,
6876− ("impressions" .=) <$> _sdtoImpressions,
6877− ("goodBids" .=) <$> _sdtoGoodBids,
6878− ("revenue" .=) <$> _sdtoRevenue,
6879− ("requests" .=) <$> _sdtoRequests])
6880−
7111+-- * 'dtNonGuaranteedFixedPriceTerms'
68817112--
6882−-- /See:/ 'getOffersResponse' smart constructor.
6883−newtype GetOffersResponse = GetOffersResponse
6884− { _gorOffers :: Maybe [MarketplaceOffer]
6885− } deriving (Eq,Show,Data,Typeable,Generic)
6886−
6887−-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
7113+-- * 'dtNonGuaranteedAuctionTerms'
68887114--
6889−-- Use one of the following lenses to modify other fields as desired:
7115+-- * 'dtGuaranteedFixedPriceTerms'
68907116--
6891−-- * 'gorOffers'
6892−getOffersResponse
6893− :: GetOffersResponse
6894−getOffersResponse =
6895− GetOffersResponse
6896− { _gorOffers = Nothing
7117+-- * 'dtDescription'
7118+dealTerms
7119+ :: DealTerms
7120+dealTerms =
7121+ DealTerms
7122+ { _dtNonGuaranteedFixedPriceTerms = Nothing
7123+ , _dtNonGuaranteedAuctionTerms = Nothing
7124+ , _dtGuaranteedFixedPriceTerms = Nothing
7125+ , _dtDescription = Nothing
68977126 }
68987127
6899−-- | The returned list of offers.
6900−gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]
6901−gorOffers
6902− = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
6903− _Default
6904− . _Coerce
6905−
6906−instance FromJSON GetOffersResponse where
6907− parseJSON
6908− = withObject "GetOffersResponse"
6909− (\ o ->
6910− GetOffersResponse <$> (o .:? "offers" .!= mempty))
6911−
6912−instance ToJSON GetOffersResponse where
6913− toJSON GetOffersResponse{..}
6914− = object (catMaybes [("offers" .=) <$> _gorOffers])
6915−
6916−--
6917−-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
6918−data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms
6919− { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer])
6920− , _dtngatPrivateAuctionId :: !(Maybe Text)
6921− } deriving (Eq,Show,Data,Typeable,Generic)
7128+-- | The terms for non-guaranteed fixed price deals.
7129+dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)
7130+dtNonGuaranteedFixedPriceTerms
7131+ = lens _dtNonGuaranteedFixedPriceTerms
7132+ (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a})
69227133
6923−-- | Creates a value of 'DealTermsNonGuaranteedAuctionTerms' with the minimum fields required to make a request.
6924−--
6925−-- Use one of the following lenses to modify other fields as desired:
6926−--
6927−-- * 'dtngatReservePricePerBuyers'
6928−--
6929−-- * 'dtngatPrivateAuctionId'
6930−dealTermsNonGuaranteedAuctionTerms
6931− :: DealTermsNonGuaranteedAuctionTerms
6932−dealTermsNonGuaranteedAuctionTerms =
6933− DealTermsNonGuaranteedAuctionTerms
6934− { _dtngatReservePricePerBuyers = Nothing
6935− , _dtngatPrivateAuctionId = Nothing
6936− }
7134+-- | The terms for non-guaranteed auction deals.
7135+dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedAuctionTerms)
7136+dtNonGuaranteedAuctionTerms
7137+ = lens _dtNonGuaranteedAuctionTerms
7138+ (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
69377139
6938−-- | Reserve price for the specified buyer.
6939−dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer]
6940−dtngatReservePricePerBuyers
6941− = lens _dtngatReservePricePerBuyers
6942− (\ s a -> s{_dtngatReservePricePerBuyers = a})
6943− . _Default
6944− . _Coerce
7140+-- | The terms for guaranteed fixed price deals.
7141+dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)
7142+dtGuaranteedFixedPriceTerms
7143+ = lens _dtGuaranteedFixedPriceTerms
7144+ (\ s a -> s{_dtGuaranteedFixedPriceTerms = a})
69457145
6946−-- | Id of the corresponding private auction.
6947−dtngatPrivateAuctionId :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Text)
6948−dtngatPrivateAuctionId
6949− = lens _dtngatPrivateAuctionId
6950− (\ s a -> s{_dtngatPrivateAuctionId = a})
7146+-- | Description for the proposed terms of the deal.
7147+dtDescription :: Lens' DealTerms (Maybe Text)
7148+dtDescription
7149+ = lens _dtDescription
7150+ (\ s a -> s{_dtDescription = a})
69517151
6952−instance FromJSON DealTermsNonGuaranteedAuctionTerms
6953− where
7152+instance FromJSON DealTerms where
69547153 parseJSON
6955− = withObject "DealTermsNonGuaranteedAuctionTerms"
7154+ = withObject "DealTerms"
69567155 (\ o ->
6957− DealTermsNonGuaranteedAuctionTerms <$>
6958− (o .:? "reservePricePerBuyers" .!= mempty) <*>
6959− (o .:? "privateAuctionId"))
7156+ DealTerms <$>
7157+ (o .:? "nonGuaranteedFixedPriceTerms") <*>
7158+ (o .:? "nonGuaranteedAuctionTerms")
7159+ <*> (o .:? "guaranteedFixedPriceTerms")
7160+ <*> (o .:? "description"))
69607161
6961−instance ToJSON DealTermsNonGuaranteedAuctionTerms
6962− where
6963− toJSON DealTermsNonGuaranteedAuctionTerms{..}
7162+instance ToJSON DealTerms where
7163+ toJSON DealTerms{..}
69647164 = object
69657165 (catMaybes
6966− [("reservePricePerBuyers" .=) <$>
6967− _dtngatReservePricePerBuyers,
6968− ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId])
7166+ [("nonGuaranteedFixedPriceTerms" .=) <$>
7167+ _dtNonGuaranteedFixedPriceTerms,
7168+ ("nonGuaranteedAuctionTerms" .=) <$>
7169+ _dtNonGuaranteedAuctionTerms,
7170+ ("guaranteedFixedPriceTerms" .=) <$>
7171+ _dtGuaranteedFixedPriceTerms,
7172+ ("description" .=) <$> _dtDescription])
69697173
69707174--
6971−-- /See:/ 'buyer' smart constructor.
6972−newtype Buyer = Buyer
6973− { _bbAccountId :: Maybe Text
7175+-- /See:/ 'dateTime' smart constructor.
7176+data DateTime = DateTime
7177+ { _dtSecond :: !(Maybe Int32)
7178+ , _dtDay :: !(Maybe Int32)
7179+ , _dtYear :: !(Maybe Int32)
7180+ , _dtHour :: !(Maybe Int32)
7181+ , _dtMonth :: !(Maybe Int32)
7182+ , _dtMinute :: !(Maybe Int32)
7183+ , _dtTimeZoneId :: !(Maybe Text)
69747184 } deriving (Eq,Show,Data,Typeable,Generic)
69757185
6976−-- | Creates a value of 'Buyer' with the minimum fields required to make a request.
7186+-- | Creates a value of 'DateTime' with the minimum fields required to make a request.
69777187--
69787188-- Use one of the following lenses to modify other fields as desired:
69797189--
6980−-- * 'bbAccountId'
6981−buyer
6982− :: Buyer
6983−buyer =
6984− Buyer
6985− { _bbAccountId = Nothing
6986− }
6987−
6988−-- | Adx account id of the buyer.
6989−bbAccountId :: Lens' Buyer (Maybe Text)
6990−bbAccountId
6991− = lens _bbAccountId (\ s a -> s{_bbAccountId = a})
6992−
6993−instance FromJSON Buyer where
6994− parseJSON
6995− = withObject "Buyer"
6996− (\ o -> Buyer <$> (o .:? "accountId"))
6997−
6998−instance ToJSON Buyer where
6999− toJSON Buyer{..}
7000− = object
7001− (catMaybes [("accountId" .=) <$> _bbAccountId])
7002−
7190+-- * 'dtSecond'
70037191--
7004−-- /See:/ 'contextsItem' smart constructor.
7005−data ContextsItem = ContextsItem
7006− { _ciPlatform :: !(Maybe [Text])
7007− , _ciContextType :: !(Maybe Text)
7008− , _ciAuctionType :: !(Maybe [Text])
7009− , _ciGeoCriteriaId :: !(Maybe [Int32])
7010− } deriving (Eq,Show,Data,Typeable,Generic)
7011−
7012−-- | Creates a value of 'ContextsItem' with the minimum fields required to make a request.
7192+-- * 'dtDay'
70137193--
7014−-- Use one of the following lenses to modify other fields as desired:
7194+-- * 'dtYear'
70157195--
7016−-- * 'ciPlatform'
7196+-- * 'dtHour'
70177197--
7018−-- * 'ciContextType'
7198+-- * 'dtMonth'
70197199--
7020−-- * 'ciAuctionType'
7200+-- * 'dtMinute'
70217201--
7022−-- * 'ciGeoCriteriaId'
7023−contextsItem
7024− :: ContextsItem
7025−contextsItem =
7026− ContextsItem
7027− { _ciPlatform = Nothing
7028− , _ciContextType = Nothing
7029− , _ciAuctionType = Nothing
7030− , _ciGeoCriteriaId = Nothing
7202+-- * 'dtTimeZoneId'
7203+dateTime
7204+ :: DateTime
7205+dateTime =
7206+ DateTime
7207+ { _dtSecond = Nothing
7208+ , _dtDay = Nothing
7209+ , _dtYear = Nothing
7210+ , _dtHour = Nothing
7211+ , _dtMonth = Nothing
7212+ , _dtMinute = Nothing
7213+ , _dtTimeZoneId = Nothing
70317214 }
70327215
7033−-- | Only set when contextType=PLATFORM. Represents the platforms this
7034−-- restriction applies to.
7035−ciPlatform :: Lens' ContextsItem [Text]
7036−ciPlatform
7037− = lens _ciPlatform (\ s a -> s{_ciPlatform = a}) .
7038− _Default
7039− . _Coerce
7216+dtSecond :: Lens' DateTime (Maybe Int32)
7217+dtSecond = lens _dtSecond (\ s a -> s{_dtSecond = a})
70407218
7041−-- | The type of context (e.g., location, platform, auction type, SSL-ness).
7042−ciContextType :: Lens' ContextsItem (Maybe Text)
7043−ciContextType
7044− = lens _ciContextType
7045− (\ s a -> s{_ciContextType = a})
7219+dtDay :: Lens' DateTime (Maybe Int32)
7220+dtDay = lens _dtDay (\ s a -> s{_dtDay = a})
70467221
7047−-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
7048−-- this restriction applies to.
7049−ciAuctionType :: Lens' ContextsItem [Text]
7050−ciAuctionType
7051− = lens _ciAuctionType
7052− (\ s a -> s{_ciAuctionType = a})
7053− . _Default
7054− . _Coerce
7222+dtYear :: Lens' DateTime (Maybe Int32)
7223+dtYear = lens _dtYear (\ s a -> s{_dtYear = a})
70557224
7056−-- | Only set when contextType=LOCATION. Represents the geo criterias this
7057−-- restriction applies to.
7058−ciGeoCriteriaId :: Lens' ContextsItem [Int32]
7059−ciGeoCriteriaId
7060− = lens _ciGeoCriteriaId
7061− (\ s a -> s{_ciGeoCriteriaId = a})
7062− . _Default
7063− . _Coerce
7225+dtHour :: Lens' DateTime (Maybe Int32)
7226+dtHour = lens _dtHour (\ s a -> s{_dtHour = a})
7227+
7228+dtMonth :: Lens' DateTime (Maybe Int32)
7229+dtMonth = lens _dtMonth (\ s a -> s{_dtMonth = a})
70647230
7065−instance FromJSON ContextsItem where
7231+dtMinute :: Lens' DateTime (Maybe Int32)
7232+dtMinute = lens _dtMinute (\ s a -> s{_dtMinute = a})
7233+
7234+dtTimeZoneId :: Lens' DateTime (Maybe Text)
7235+dtTimeZoneId
7236+ = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
7237+
7238+instance FromJSON DateTime where
70667239 parseJSON
7067− = withObject "ContextsItem"
7240+ = withObject "DateTime"
70687241 (\ o ->
7069− ContextsItem <$>
7070− (o .:? "platform" .!= mempty) <*>
7071− (o .:? "contextType")
7072− <*> (o .:? "auctionType" .!= mempty)
7073− <*> (o .:? "geoCriteriaId" .!= mempty))
7242+ DateTime <$>
7243+ (o .:? "second") <*> (o .:? "day") <*> (o .:? "year")
7244+ <*> (o .:? "hour")
7245+ <*> (o .:? "month")
7246+ <*> (o .:? "minute")
7247+ <*> (o .:? "timeZoneId"))
70747248
7075−instance ToJSON ContextsItem where
7076− toJSON ContextsItem{..}
7249+instance ToJSON DateTime where
7250+ toJSON DateTime{..}
70777251 = object
70787252 (catMaybes
7079− [("platform" .=) <$> _ciPlatform,
7080− ("contextType" .=) <$> _ciContextType,
7081− ("auctionType" .=) <$> _ciAuctionType,
7082− ("geoCriteriaId" .=) <$> _ciGeoCriteriaId])
7253+ [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay,
7254+ ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour,
7255+ ("month" .=) <$> _dtMonth,
7256+ ("minute" .=) <$> _dtMinute,
7257+ ("timeZoneId" .=) <$> _dtTimeZoneId])
70837258
70847259--
70857260-- /See:/ 'marketplaceLabel' smart constructor.
@@ -7153,156 +7328,109 @@ instance ToJSON MarketplaceLabel where
71537328 ("label" .=) <$> _mlLabel])
71547329
71557330--
7156−-- /See:/ 'dateTime' smart constructor.
7157−data DateTime = DateTime
7158− { _dtSecond :: !(Maybe Int32)
7159− , _dtDay :: !(Maybe Int32)
7160− , _dtYear :: !(Maybe Int32)
7161− , _dtHour :: !(Maybe Int32)
7162− , _dtMonth :: !(Maybe Int32)
7163− , _dtMinute :: !(Maybe Int32)
7164− , _dtTimeZoneId :: !(Maybe Text)
7331+-- /See:/ 'editHistoryDTO' smart constructor.
7332+data EditHistoryDTO = EditHistoryDTO
7333+ { _ehdtoLastUpdatedByLoginName :: !(Maybe Text)
7334+ , _ehdtoCreatedByLoginName :: !(Maybe Text)
7335+ , _ehdtoLastUpdateTimeStamp :: !(Maybe Int64)
7336+ , _ehdtoCreatedTimeStamp :: !(Maybe Int64)
71657337 } deriving (Eq,Show,Data,Typeable,Generic)
71667338
7167−-- | Creates a value of 'DateTime' with the minimum fields required to make a request.
7339+-- | Creates a value of 'EditHistoryDTO' with the minimum fields required to make a request.
71687340--
71697341-- Use one of the following lenses to modify other fields as desired:
71707342--
7171−-- * 'dtSecond'
7172−--
7173−-- * 'dtDay'
7174−--
7175−-- * 'dtYear'
7176−--
7177−-- * 'dtHour'
7343+-- * 'ehdtoLastUpdatedByLoginName'
71787344--
7179−-- * 'dtMonth'
7345+-- * 'ehdtoCreatedByLoginName'
71807346--
7181−-- * 'dtMinute'
7347+-- * 'ehdtoLastUpdateTimeStamp'
71827348--
7183−-- * 'dtTimeZoneId'
7184−dateTime
7185− :: DateTime
7186−dateTime =
7187− DateTime
7188− { _dtSecond = Nothing
7189− , _dtDay = Nothing
7190− , _dtYear = Nothing
7191− , _dtHour = Nothing
7192− , _dtMonth = Nothing
7193− , _dtMinute = Nothing
7194− , _dtTimeZoneId = Nothing
7349+-- * 'ehdtoCreatedTimeStamp'
7350+editHistoryDTO
7351+ :: EditHistoryDTO
7352+editHistoryDTO =
7353+ EditHistoryDTO
7354+ { _ehdtoLastUpdatedByLoginName = Nothing
7355+ , _ehdtoCreatedByLoginName = Nothing
7356+ , _ehdtoLastUpdateTimeStamp = Nothing
7357+ , _ehdtoCreatedTimeStamp = Nothing
71957358 }
71967359
7197−dtSecond :: Lens' DateTime (Maybe Int32)
7198−dtSecond = lens _dtSecond (\ s a -> s{_dtSecond = a})
7199−
7200−dtDay :: Lens' DateTime (Maybe Int32)
7201−dtDay = lens _dtDay (\ s a -> s{_dtDay = a})
7202−
7203−dtYear :: Lens' DateTime (Maybe Int32)
7204−dtYear = lens _dtYear (\ s a -> s{_dtYear = a})
7205−
7206−dtHour :: Lens' DateTime (Maybe Int32)
7207−dtHour = lens _dtHour (\ s a -> s{_dtHour = a})
7360+ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7361+ehdtoLastUpdatedByLoginName
7362+ = lens _ehdtoLastUpdatedByLoginName
7363+ (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
72087364
7209−dtMonth :: Lens' DateTime (Maybe Int32)
7210−dtMonth = lens _dtMonth (\ s a -> s{_dtMonth = a})
7365+ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7366+ehdtoCreatedByLoginName
7367+ = lens _ehdtoCreatedByLoginName
7368+ (\ s a -> s{_ehdtoCreatedByLoginName = a})
72117369
7212−dtMinute :: Lens' DateTime (Maybe Int32)
7213−dtMinute = lens _dtMinute (\ s a -> s{_dtMinute = a})
7370+ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7371+ehdtoLastUpdateTimeStamp
7372+ = lens _ehdtoLastUpdateTimeStamp
7373+ (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
72147374
7215−dtTimeZoneId :: Lens' DateTime (Maybe Text)
7216−dtTimeZoneId
7217− = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
7375+ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7376+ehdtoCreatedTimeStamp
7377+ = lens _ehdtoCreatedTimeStamp
7378+ (\ s a -> s{_ehdtoCreatedTimeStamp = a})
72187379
7219−instance FromJSON DateTime where
7380+instance FromJSON EditHistoryDTO where
72207381 parseJSON
7221− = withObject "DateTime"
7382+ = withObject "EditHistoryDTO"
72227383 (\ o ->
7223− DateTime <$>
7224− (o .:? "second") <*> (o .:? "day") <*> (o .:? "year")
7225− <*> (o .:? "hour")
7226− <*> (o .:? "month")
7227− <*> (o .:? "minute")
7228− <*> (o .:? "timeZoneId"))
7384+ EditHistoryDTO <$>
7385+ (o .:? "lastUpdatedByLoginName") <*>
7386+ (o .:? "createdByLoginName")
7387+ <*> (o .:? "lastUpdateTimeStamp")
7388+ <*> (o .:? "createdTimeStamp"))
72297389
7230−instance ToJSON DateTime where
7231− toJSON DateTime{..}
7390+instance ToJSON EditHistoryDTO where
7391+ toJSON EditHistoryDTO{..}
72327392 = object
72337393 (catMaybes
7234− [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay,
7235− ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour,
7236− ("month" .=) <$> _dtMonth,
7237− ("minute" .=) <$> _dtMinute,
7238− ("timeZoneId" .=) <$> _dtTimeZoneId])
7394+ [("lastUpdatedByLoginName" .=) <$>
7395+ _ehdtoLastUpdatedByLoginName,
7396+ ("createdByLoginName" .=) <$>
7397+ _ehdtoCreatedByLoginName,
7398+ ("lastUpdateTimeStamp" .=) <$>
7399+ _ehdtoLastUpdateTimeStamp,
7400+ ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])
72397401
72407402--
7241−-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
7242−data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms
7243− { _dtgfptGuaranteedLooks :: !(Maybe Int64)
7244− , _dtgfptGuaranteedImpressions :: !(Maybe Int64)
7245− , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
7403+-- /See:/ 'buyer' smart constructor.
7404+newtype Buyer = Buyer
7405+ { _bbAccountId :: Maybe Text
72467406 } deriving (Eq,Show,Data,Typeable,Generic)
72477407
7248−-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
7408+-- | Creates a value of 'Buyer' with the minimum fields required to make a request.
72497409--
72507410-- Use one of the following lenses to modify other fields as desired:
72517411--
7252−-- * 'dtgfptGuaranteedLooks'
7253−--
7254−-- * 'dtgfptGuaranteedImpressions'
7255−--
7256−-- * 'dtgfptFixedPrices'
7257−dealTermsGuaranteedFixedPriceTerms
7258− :: DealTermsGuaranteedFixedPriceTerms
7259−dealTermsGuaranteedFixedPriceTerms =
7260− DealTermsGuaranteedFixedPriceTerms
7261− { _dtgfptGuaranteedLooks = Nothing
7262− , _dtgfptGuaranteedImpressions = Nothing
7263− , _dtgfptFixedPrices = Nothing
7412+-- * 'bbAccountId'
7413+buyer
7414+ :: Buyer
7415+buyer =
7416+ Buyer
7417+ { _bbAccountId = Nothing
72647418 }
72657419
7266−-- | Count of guaranteed looks. Required for deal, optional for offer.
7267−dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7268−dtgfptGuaranteedLooks
7269− = lens _dtgfptGuaranteedLooks
7270− (\ s a -> s{_dtgfptGuaranteedLooks = a})
7271−
7272−-- | Guaranteed impressions as a percentage. This is the percentage of
7273−-- guaranteed looks that the buyer is guaranteeing to buy.
7274−dtgfptGuaranteedImpressions :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7275−dtgfptGuaranteedImpressions
7276− = lens _dtgfptGuaranteedImpressions
7277− (\ s a -> s{_dtgfptGuaranteedImpressions = a})
7278−
7279−-- | Fixed price for the specified buyer.
7280−dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [PricePerBuyer]
7281−dtgfptFixedPrices
7282− = lens _dtgfptFixedPrices
7283− (\ s a -> s{_dtgfptFixedPrices = a})
7284− . _Default
7285− . _Coerce
7420+-- | Adx account id of the buyer.
7421+bbAccountId :: Lens' Buyer (Maybe Text)
7422+bbAccountId
7423+ = lens _bbAccountId (\ s a -> s{_bbAccountId = a})
72867424
7287−instance FromJSON DealTermsGuaranteedFixedPriceTerms
7288− where
7425+instance FromJSON Buyer where
72897426 parseJSON
7290− = withObject "DealTermsGuaranteedFixedPriceTerms"
7291− (\ o ->
7292− DealTermsGuaranteedFixedPriceTerms <$>
7293− (o .:? "guaranteedLooks") <*>
7294− (o .:? "guaranteedImpressions")
7295− <*> (o .:? "fixedPrices" .!= mempty))
7427+ = withObject "Buyer"
7428+ (\ o -> Buyer <$> (o .:? "accountId"))
72967429
7297−instance ToJSON DealTermsGuaranteedFixedPriceTerms
7298− where
7299− toJSON DealTermsGuaranteedFixedPriceTerms{..}
7430+instance ToJSON Buyer where
7431+ toJSON Buyer{..}
73007432 = object
7301− (catMaybes
7302− [("guaranteedLooks" .=) <$> _dtgfptGuaranteedLooks,
7303− ("guaranteedImpressions" .=) <$>
7304− _dtgfptGuaranteedImpressions,
7305− ("fixedPrices" .=) <$> _dtgfptFixedPrices])
7433+ (catMaybes [("accountId" .=) <$> _bbAccountId])
73067434
73077435-- | Represents an order in the marketplace. An order is the unit of
73087436-- negotiation between a seller and a buyer and contains deals which are
@@ -7643,149 +7771,68 @@ instance ToJSON AddOrderDealsRequest where
76437771 _aOrderRevisionNumber])
76447772
76457773--
7646−-- /See:/ 'dealTerms' smart constructor.
7647−data DealTerms = DealTerms
7648− { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
7649− , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
7650− , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
7651− , _dtDescription :: !(Maybe Text)
7652− } deriving (Eq,Show,Data,Typeable,Generic)
7653−
7654−-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
7655−--
7656−-- Use one of the following lenses to modify other fields as desired:
7657−--
7658−-- * 'dtNonGuaranteedFixedPriceTerms'
7659−--
7660−-- * 'dtNonGuaranteedAuctionTerms'
7661−--
7662−-- * 'dtGuaranteedFixedPriceTerms'
7663−--
7664−-- * 'dtDescription'
7665−dealTerms
7666− :: DealTerms
7667−dealTerms =
7668− DealTerms
7669− { _dtNonGuaranteedFixedPriceTerms = Nothing
7670− , _dtNonGuaranteedAuctionTerms = Nothing
7671− , _dtGuaranteedFixedPriceTerms = Nothing
7672− , _dtDescription = Nothing
7673− }
7674−
7675−-- | The terms for non-guaranteed fixed price deals.
7676−dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)
7677−dtNonGuaranteedFixedPriceTerms
7678− = lens _dtNonGuaranteedFixedPriceTerms
7679− (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a})
7680−
7681−-- | The terms for non-guaranteed auction deals.
7682−dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedAuctionTerms)
7683−dtNonGuaranteedAuctionTerms
7684− = lens _dtNonGuaranteedAuctionTerms
7685− (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
7686−
7687−-- | The terms for guaranteed fixed price deals.
7688−dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)
7689−dtGuaranteedFixedPriceTerms
7690− = lens _dtGuaranteedFixedPriceTerms
7691− (\ s a -> s{_dtGuaranteedFixedPriceTerms = a})
7692−
7693−-- | Description for the proposed terms of the deal.
7694−dtDescription :: Lens' DealTerms (Maybe Text)
7695−dtDescription
7696− = lens _dtDescription
7697− (\ s a -> s{_dtDescription = a})
7698−
7699−instance FromJSON DealTerms where
7700− parseJSON
7701− = withObject "DealTerms"
7702− (\ o ->
7703− DealTerms <$>
7704− (o .:? "nonGuaranteedFixedPriceTerms") <*>
7705− (o .:? "nonGuaranteedAuctionTerms")
7706− <*> (o .:? "guaranteedFixedPriceTerms")
7707− <*> (o .:? "description"))
7708−
7709−instance ToJSON DealTerms where
7710− toJSON DealTerms{..}
7711− = object
7712− (catMaybes
7713− [("nonGuaranteedFixedPriceTerms" .=) <$>
7714− _dtNonGuaranteedFixedPriceTerms,
7715− ("nonGuaranteedAuctionTerms" .=) <$>
7716− _dtNonGuaranteedAuctionTerms,
7717− ("guaranteedFixedPriceTerms" .=) <$>
7718− _dtGuaranteedFixedPriceTerms,
7719− ("description" .=) <$> _dtDescription])
7720−
7721−--
7722−-- /See:/ 'editHistoryDTO' smart constructor.
7723−data EditHistoryDTO = EditHistoryDTO
7724− { _ehdtoLastUpdatedByLoginName :: !(Maybe Text)
7725− , _ehdtoCreatedByLoginName :: !(Maybe Text)
7726− , _ehdtoLastUpdateTimeStamp :: !(Maybe Int64)
7727− , _ehdtoCreatedTimeStamp :: !(Maybe Int64)
7774+-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
7775+data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms
7776+ { _dtgfptGuaranteedLooks :: !(Maybe Int64)
7777+ , _dtgfptGuaranteedImpressions :: !(Maybe Int64)
7778+ , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
77287779 } deriving (Eq,Show,Data,Typeable,Generic)
77297780
7730−-- | Creates a value of 'EditHistoryDTO' with the minimum fields required to make a request.
7781+-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
77317782--
77327783-- Use one of the following lenses to modify other fields as desired:
77337784--
7734−-- * 'ehdtoLastUpdatedByLoginName'
7735−--
7736−-- * 'ehdtoCreatedByLoginName'
7785+-- * 'dtgfptGuaranteedLooks'
77377786--
7738−-- * 'ehdtoLastUpdateTimeStamp'
7787+-- * 'dtgfptGuaranteedImpressions'
77397788--
7740−-- * 'ehdtoCreatedTimeStamp'
7741−editHistoryDTO
7742− :: EditHistoryDTO
7743−editHistoryDTO =
7744− EditHistoryDTO
7745− { _ehdtoLastUpdatedByLoginName = Nothing
7746− , _ehdtoCreatedByLoginName = Nothing
7747− , _ehdtoLastUpdateTimeStamp = Nothing
7748− , _ehdtoCreatedTimeStamp = Nothing
7789+-- * 'dtgfptFixedPrices'
7790+dealTermsGuaranteedFixedPriceTerms
7791+ :: DealTermsGuaranteedFixedPriceTerms
7792+dealTermsGuaranteedFixedPriceTerms =
7793+ DealTermsGuaranteedFixedPriceTerms
7794+ { _dtgfptGuaranteedLooks = Nothing
7795+ , _dtgfptGuaranteedImpressions = Nothing
7796+ , _dtgfptFixedPrices = Nothing
77497797 }
77507798
7751−ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7752−ehdtoLastUpdatedByLoginName
7753− = lens _ehdtoLastUpdatedByLoginName
7754− (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
7755−
7756−ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7757−ehdtoCreatedByLoginName
7758− = lens _ehdtoCreatedByLoginName
7759− (\ s a -> s{_ehdtoCreatedByLoginName = a})
7799+-- | Count of guaranteed looks. Required for deal, optional for offer.
7800+dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7801+dtgfptGuaranteedLooks
7802+ = lens _dtgfptGuaranteedLooks
7803+ (\ s a -> s{_dtgfptGuaranteedLooks = a})
77607804
7761−ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7762−ehdtoLastUpdateTimeStamp
7763− = lens _ehdtoLastUpdateTimeStamp
7764− (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
7805+-- | Guaranteed impressions as a percentage. This is the percentage of
7806+-- guaranteed looks that the buyer is guaranteeing to buy.
7807+dtgfptGuaranteedImpressions :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7808+dtgfptGuaranteedImpressions
7809+ = lens _dtgfptGuaranteedImpressions
7810+ (\ s a -> s{_dtgfptGuaranteedImpressions = a})
77657811
7766−ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7767−ehdtoCreatedTimeStamp
7768− = lens _ehdtoCreatedTimeStamp
7769− (\ s a -> s{_ehdtoCreatedTimeStamp = a})
7812+-- | Fixed price for the specified buyer.
7813+dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [PricePerBuyer]
7814+dtgfptFixedPrices
7815+ = lens _dtgfptFixedPrices
7816+ (\ s a -> s{_dtgfptFixedPrices = a})
7817+ . _Default
7818+ . _Coerce
77707819
7771−instance FromJSON EditHistoryDTO where
7820+instance FromJSON DealTermsGuaranteedFixedPriceTerms
7821+ where
77727822 parseJSON
7773− = withObject "EditHistoryDTO"
7823+ = withObject "DealTermsGuaranteedFixedPriceTerms"
77747824 (\ o ->
7775− EditHistoryDTO <$>
7776− (o .:? "lastUpdatedByLoginName") <*>
7777− (o .:? "createdByLoginName")
7778− <*> (o .:? "lastUpdateTimeStamp")
7779− <*> (o .:? "createdTimeStamp"))
7825+ DealTermsGuaranteedFixedPriceTerms <$>
7826+ (o .:? "guaranteedLooks") <*>
7827+ (o .:? "guaranteedImpressions")
7828+ <*> (o .:? "fixedPrices" .!= mempty))
77807829
7781−instance ToJSON EditHistoryDTO where
7782− toJSON EditHistoryDTO{..}
7830+instance ToJSON DealTermsGuaranteedFixedPriceTerms
7831+ where
7832+ toJSON DealTermsGuaranteedFixedPriceTerms{..}
77837833 = object
77847834 (catMaybes
7785− [("lastUpdatedByLoginName" .=) <$>
7786− _ehdtoLastUpdatedByLoginName,
7787− ("createdByLoginName" .=) <$>
7788− _ehdtoCreatedByLoginName,
7789− ("lastUpdateTimeStamp" .=) <$>
7790− _ehdtoLastUpdateTimeStamp,
7791− ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])
7835+ [("guaranteedLooks" .=) <$> _dtgfptGuaranteedLooks,
7836+ ("guaranteedImpressions" .=) <$>
7837+ _dtgfptGuaranteedImpressions,
7838+ ("fixedPrices" .=) <$> _dtgfptFixedPrices])