@@ -18,227 +18,6 @@ module Network.Google.AdExchangeBuyer.Types.Product where
18import Network.Google.AdExchangeBuyer.Types.Sum
18import Network.Google.AdExchangeBuyer.Types.Sum
19import Network.Google.Prelude
19import Network.Google.Prelude
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)
29−-- | Creates a value of 'BidderLocationItem' with the minimum fields required to make a request.
31−-- Use one of the following lenses to modify other fields as desired:
39− :: BidderLocationItem
43− , _bliMaximumQps = Nothing
44− , _bliRegion = Nothing
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})
51−-- | The maximum queries per second the Ad Exchange will send.
52−bliMaximumQps :: Lens' BidderLocationItem (Maybe Int32)
54− = lens _bliMaximumQps
55− (\ s a -> s{_bliMaximumQps = a})
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)
62− = lens _bliRegion (\ s a -> s{_bliRegion = a})
64−instance FromJSON BidderLocationItem where
66− = withObject "BidderLocationItem"
68− BidderLocationItem <$>
69− (o .:? "url") <*> (o .:? "maximumQps") <*>
72−instance ToJSON BidderLocationItem where
73− toJSON BidderLocationItem{..}
76− [("url" .=) <$> _bliURL,
77− ("maximumQps" .=) <$> _bliMaximumQps,
78− ("region" .=) <$> _bliRegion])
80−-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
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)
98−-- | Creates a value of 'NATiveAd' with the minimum fields required to make a request.
100−-- Use one of the following lenses to modify other fields as desired:
106−-- * 'nataClickTrackingURL'
112−-- * 'nataImpressionTrackingURL'
114−-- * 'nataCallToAction'
120−-- * 'nataAdvertiser'
122−-- * 'nataStarRating'
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
144−nataImage :: Lens' NATiveAd (Maybe Image)
146− = lens _nataImage (\ s a -> s{_nataImage = a})
148−-- | The app icon, for app download ads.
149−nataAppIcon :: Lens' NATiveAd (Maybe AppIcon)
151− = lens _nataAppIcon (\ s a -> s{_nataAppIcon = a})
153−-- | The URL to use for click tracking.
154−nataClickTrackingURL :: Lens' NATiveAd (Maybe Text)
156− = lens _nataClickTrackingURL
157− (\ s a -> s{_nataClickTrackingURL = a})
159−-- | A long description of the ad.
160−nataBody :: Lens' NATiveAd (Maybe Text)
161−nataBody = lens _nataBody (\ s a -> s{_nataBody = a})
163−-- | A short title for the ad.
164−nataHeadline :: Lens' NATiveAd (Maybe Text)
166− = lens _nataHeadline (\ s a -> s{_nataHeadline = a})
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})
176−-- | A label for the button that the user is supposed to click.
177−nataCallToAction :: Lens' NATiveAd (Maybe Text)
179− = lens _nataCallToAction
180− (\ s a -> s{_nataCallToAction = a})
182−-- | The URL to the app store to purchase\/download the promoted app.
183−nataStore :: Lens' NATiveAd (Maybe Text)
185− = lens _nataStore (\ s a -> s{_nataStore = a})
187−-- | The price of the promoted app including the currency info.
188−nataPrice :: Lens' NATiveAd (Maybe Text)
190− = lens _nataPrice (\ s a -> s{_nataPrice = a})
192−nataAdvertiser :: Lens' NATiveAd (Maybe Text)
194− = lens _nataAdvertiser
195− (\ s a -> s{_nataAdvertiser = a})
197−-- | The app rating in the app store. Must be in the range [0-5].
198−nataStarRating :: Lens' NATiveAd (Maybe Double)
200− = lens _nataStarRating
201− (\ s a -> s{_nataStarRating = a})
203−-- | A smaller image, for the advertiser logo.
204−nataLogo :: Lens' NATiveAd (Maybe Logo)
205−nataLogo = lens _nataLogo (\ s a -> s{_nataLogo = a})
207−instance FromJSON NATiveAd where
209− = withObject "NATiveAd"
212− (o .:? "image") <*> (o .:? "appIcon") <*>
213− (o .:? "clickTrackingUrl")
215− <*> (o .:? "headline")
216− <*> (o .:? "impressionTrackingUrl" .!= mempty)
217− <*> (o .:? "callToAction")
220− <*> (o .:? "advertiser")
221− <*> (o .:? "starRating")
224−instance ToJSON NATiveAd where
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])
243-- /See:/ 'brandDTO' smart constructor.
22-- /See:/ 'brandDTO' smart constructor.
244data BrandDTO = BrandDTO
23data BrandDTO = BrandDTO
@@ -291,87 +70,6 @@ instance ToJSON BrandDTO where
291 [("advertiserId" .=) <$> _bdtoAdvertiserId,
70 [("advertiserId" .=) <$> _bdtoAdvertiserId,
292 ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
71 ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
295−-- /See:/ 'placementsItem' smart constructor.
296−data PlacementsItem = PlacementsItem
297− { _piToken :: !(Maybe Text)
298− , _piType :: !(Maybe Text)
299− } deriving (Eq,Show,Data,Typeable,Generic)
301−-- | Creates a value of 'PlacementsItem' with the minimum fields required to make a request.
303−-- Use one of the following lenses to modify other fields as desired:
312− { _piToken = Nothing
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})
322−-- | The type of the placement.
323−piType :: Lens' PlacementsItem (Maybe Text)
324−piType = lens _piType (\ s a -> s{_piType = a})
326−instance FromJSON PlacementsItem where
328− = withObject "PlacementsItem"
331− (o .:? "token") <*> (o .:? "type"))
333−instance ToJSON PlacementsItem where
334− toJSON PlacementsItem{..}
337− [("token" .=) <$> _piToken, ("type" .=) <$> _piType])
340−-- /See:/ 'editAllOrderDealsResponse' smart constructor.
341−newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse
342− { _eaodrDeals :: Maybe [MarketplaceDeal]
343− } deriving (Eq,Show,Data,Typeable,Generic)
345−-- | Creates a value of 'EditAllOrderDealsResponse' with the minimum fields required to make a request.
347−-- Use one of the following lenses to modify other fields as desired:
350−editAllOrderDealsResponse
351− :: EditAllOrderDealsResponse
352−editAllOrderDealsResponse =
353− EditAllOrderDealsResponse
354− { _eaodrDeals = Nothing
357−-- | List of all deals in the order after edit.
358−eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
360− = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
364−instance FromJSON EditAllOrderDealsResponse where
366− = withObject "EditAllOrderDealsResponse"
368− EditAllOrderDealsResponse <$>
369− (o .:? "deals" .!= mempty))
371−instance ToJSON EditAllOrderDealsResponse where
372− toJSON EditAllOrderDealsResponse{..}
373− = object (catMaybes [("deals" .=) <$> _eaodrDeals])
375-- | An order is associated with a bunch of notes which may optionally be
73-- | An order is associated with a bunch of notes which may optionally be
376-- associated with a deal and\/or revision number.
74-- associated with a deal and\/or revision number.
@@ -489,121 +187,419 @@ instance ToJSON MarketplaceNote where
489 ("orderRevisionNumber" .=) <$>
187 ("orderRevisionNumber" .=) <$>
490 _mnOrderRevisionNumber])
188 _mnOrderRevisionNumber])
492−-- | A large image.
190+-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
494−-- /See:/ 'image' smart constructor.
192+-- /See:/ 'creativeNATiveAd' smart constructor.
495−data Image = Image
193+data CreativeNATiveAd = CreativeNATiveAd
496− { _iHeight :: !(Maybe Int32)
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)
497− , _iURL :: !(Maybe Text)
203+ , _cnataAdvertiser :: !(Maybe Text)
498− , _iWidth :: !(Maybe Int32)
204+ , _cnataStarRating :: !(Maybe Double)
205+ , _cnataLogo :: !(Maybe CreativeNATiveAdLogo)
499 } deriving (Eq,Show,Data,Typeable,Generic)
206 } deriving (Eq,Show,Data,Typeable,Generic)
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.
503-- Use one of the following lenses to modify other fields as desired:
210-- Use one of the following lenses to modify other fields as desired:
505−-- * 'iHeight'
212+-- * 'cnataImage'
216+-- * 'cnataClickTrackingURL'
507−-- * 'iURL'
220+-- * 'cnataHeadline'
509−-- * 'iWidth'
222+-- * 'cnataImpressionTrackingURL'
511− :: Image
224+-- * 'cnataCallToAction'
513− Image
226+-- * 'cnataStore'
514− { _iHeight = Nothing
227+--
515− , _iURL = Nothing
228+-- * 'cnataPrice'
230+-- * 'cnataAdvertiser'
232+-- * 'cnataStarRating'
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
516− , _iWidth = Nothing
250+ , _cnataLogo = Nothing
519−iHeight :: Lens' Image (Maybe Int32)
253+-- | A large image.
520−iHeight = lens _iHeight (\ s a -> s{_iHeight = a})
254+cnataImage :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdImage)
256+ = lens _cnataImage (\ s a -> s{_cnataImage = a})
258+-- | The app icon, for app download ads.
259+cnataAppIcon :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdAppIcon)
261+ = lens _cnataAppIcon (\ s a -> s{_cnataAppIcon = a})
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})
269+-- | A long description of the ad.
270+cnataBody :: Lens' CreativeNATiveAd (Maybe Text)
272+ = lens _cnataBody (\ s a -> s{_cnataBody = a})
274+-- | A short title for the ad.
275+cnataHeadline :: Lens' CreativeNATiveAd (Maybe Text)
277+ = lens _cnataHeadline
278+ (\ s a -> s{_cnataHeadline = a})
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})
288+-- | A label for the button that the user is supposed to click.
289+cnataCallToAction :: Lens' CreativeNATiveAd (Maybe Text)
291+ = lens _cnataCallToAction
292+ (\ s a -> s{_cnataCallToAction = a})
294+-- | The URL to the app store to purchase\/download the promoted app.
295+cnataStore :: Lens' CreativeNATiveAd (Maybe Text)
297+ = lens _cnataStore (\ s a -> s{_cnataStore = a})
299+-- | The price of the promoted app including the currency info.
300+cnataPrice :: Lens' CreativeNATiveAd (Maybe Text)
302+ = lens _cnataPrice (\ s a -> s{_cnataPrice = a})
304+cnataAdvertiser :: Lens' CreativeNATiveAd (Maybe Text)
306+ = lens _cnataAdvertiser
307+ (\ s a -> s{_cnataAdvertiser = a})
522−iURL :: Lens' Image (Maybe Text)
309+-- | The app rating in the app store. Must be in the range [0-5].
523−iURL = lens _iURL (\ s a -> s{_iURL = a})
310+cnataStarRating :: Lens' CreativeNATiveAd (Maybe Double)
312+ = lens _cnataStarRating
313+ (\ s a -> s{_cnataStarRating = a})
525−iWidth :: Lens' Image (Maybe Int32)
315+-- | A smaller image, for the advertiser logo.
526−iWidth = lens _iWidth (\ s a -> s{_iWidth = a})
316+cnataLogo :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdLogo)
318+ = lens _cnataLogo (\ s a -> s{_cnataLogo = a})
528−instance FromJSON Image where
320+instance FromJSON CreativeNATiveAd where
529 parseJSON
321 parseJSON
530− = withObject "Image"
322+ = withObject "CreativeNATiveAd"
532− Image <$>
324+ CreativeNATiveAd <$>
533− (o .:? "height") <*> (o .:? "url") <*>
325+ (o .:? "image") <*> (o .:? "appIcon") <*>
534− (o .:? "width"))
326+ (o .:? "clickTrackingUrl")
328+ <*> (o .:? "headline")
329+ <*> (o .:? "impressionTrackingUrl" .!= mempty)
330+ <*> (o .:? "callToAction")
333+ <*> (o .:? "advertiser")
334+ <*> (o .:? "starRating")
536−instance ToJSON Image where
337+instance ToJSON CreativeNATiveAd where
537− toJSON Image{..}
338+ toJSON CreativeNATiveAd{..}
539 (catMaybes
340 (catMaybes
540− [("height" .=) <$> _iHeight, ("url" .=) <$> _iURL,
341+ [("image" .=) <$> _cnataImage,
541− ("width" .=) <$> _iWidth])
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])
544−-- /See:/ 'termsDTO' smart constructor.
356+-- /See:/ 'editAllOrderDealsResponse' smart constructor.
545−data TermsDTO = TermsDTO
357+newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse
546− { _tdtoFinalizeAutomatically :: !(Maybe Bool)
358+ { _eaodrDeals :: Maybe [MarketplaceDeal]
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)
573 } deriving (Eq,Show,Data,Typeable,Generic)
359 } deriving (Eq,Show,Data,Typeable,Generic)
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.
577-- Use one of the following lenses to modify other fields as desired:
363-- Use one of the following lenses to modify other fields as desired:
366+editAllOrderDealsResponse
367+ :: EditAllOrderDealsResponse
368+editAllOrderDealsResponse =
369+ EditAllOrderDealsResponse
370+ { _eaodrDeals = Nothing
373+-- | List of all deals in the order after edit.
374+eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
376+ = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
380+instance FromJSON EditAllOrderDealsResponse where
382+ = withObject "EditAllOrderDealsResponse"
384+ EditAllOrderDealsResponse <$>
385+ (o .:? "deals" .!= mempty))
387+instance ToJSON EditAllOrderDealsResponse where
388+ toJSON EditAllOrderDealsResponse{..}
389+ = object (catMaybes [("deals" .=) <$> _eaodrDeals])
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.
395+-- /See:/ 'creativesList' smart constructor.
396+data CreativesList = CreativesList
397+ { _clNextPageToken :: !(Maybe Text)
399+ , _clItems :: !(Maybe [Creative])
400+ } deriving (Eq,Show,Data,Typeable,Generic)
402+-- | Creates a value of 'CreativesList' with the minimum fields required to make a request.
404+-- Use one of the following lenses to modify other fields as desired:
406+-- * 'clNextPageToken'
415+ { _clNextPageToken = Nothing
416+ , _clKind = "adexchangebuyer#creativesList"
417+ , _clItems = Nothing
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)
424+ = lens _clNextPageToken
425+ (\ s a -> s{_clNextPageToken = a})
428+clKind :: Lens' CreativesList Text
429+clKind = lens _clKind (\ s a -> s{_clKind = a})
431+-- | A list of creatives.
432+clItems :: Lens' CreativesList [Creative]
434+ = lens _clItems (\ s a -> s{_clItems = a}) . _Default
437+instance FromJSON CreativesList where
439+ = withObject "CreativesList"
442+ (o .:? "nextPageToken") <*>
443+ (o .:? "kind" .!= "adexchangebuyer#creativesList")
444+ <*> (o .:? "items" .!= mempty))
446+instance ToJSON CreativesList where
447+ toJSON CreativesList{..}
450+ [("nextPageToken" .=) <$> _clNextPageToken,
451+ Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
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)
462+-- | Creates a value of 'CreativeServingRestrictionsItemContextsItem' with the minimum fields required to make a request.
464+-- Use one of the following lenses to modify other fields as desired:
466+-- * 'csriciPlatform'
468+-- * 'csriciContextType'
470+-- * 'csriciAuctionType'
472+-- * 'csriciGeoCriteriaId'
473+creativeServingRestrictionsItemContextsItem
474+ :: CreativeServingRestrictionsItemContextsItem
475+creativeServingRestrictionsItemContextsItem =
476+ CreativeServingRestrictionsItemContextsItem
477+ { _csriciPlatform = Nothing
478+ , _csriciContextType = Nothing
479+ , _csriciAuctionType = Nothing
480+ , _csriciGeoCriteriaId = Nothing
483+-- | Only set when contextType=PLATFORM. Represents the platforms this
484+-- restriction applies to.
485+csriciPlatform :: Lens' CreativeServingRestrictionsItemContextsItem [Text]
487+ = lens _csriciPlatform
488+ (\ s a -> s{_csriciPlatform = a})
492+-- | The type of context (e.g., location, platform, auction type, SSL-ness).
493+csriciContextType :: Lens' CreativeServingRestrictionsItemContextsItem (Maybe Text)
495+ = lens _csriciContextType
496+ (\ s a -> s{_csriciContextType = a})
498+-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
499+-- this restriction applies to.
500+csriciAuctionType :: Lens' CreativeServingRestrictionsItemContextsItem [Text]
502+ = lens _csriciAuctionType
503+ (\ s a -> s{_csriciAuctionType = a})
507+-- | Only set when contextType=LOCATION. Represents the geo criterias this
508+-- restriction applies to.
509+csriciGeoCriteriaId :: Lens' CreativeServingRestrictionsItemContextsItem [Int32]
511+ = lens _csriciGeoCriteriaId
512+ (\ s a -> s{_csriciGeoCriteriaId = a})
517+ CreativeServingRestrictionsItemContextsItem where
520+ "CreativeServingRestrictionsItemContextsItem"
522+ CreativeServingRestrictionsItemContextsItem <$>
523+ (o .:? "platform" .!= mempty) <*>
524+ (o .:? "contextType")
525+ <*> (o .:? "auctionType" .!= mempty)
526+ <*> (o .:? "geoCriteriaId" .!= mempty))
529+ CreativeServingRestrictionsItemContextsItem where
531+ CreativeServingRestrictionsItemContextsItem{..}
534+ [("platform" .=) <$> _csriciPlatform,
535+ ("contextType" .=) <$> _csriciContextType,
536+ ("auctionType" .=) <$> _csriciAuctionType,
537+ ("geoCriteriaId" .=) <$> _csriciGeoCriteriaId])
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)
571+-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request.
573+-- Use one of the following lenses to modify other fields as desired:
579−-- * 'tdtoFinalizeAutomatically'
575+-- * 'tdtoFinalizeAutomatically'
581−-- * 'tdtoBuyerBillingType'
577+-- * 'tdtoBuyerBillingType'
583−-- * 'tdtoTargetingAllAdSlots'
579+-- * 'tdtoTargetingAllAdSlots'
585−-- * 'tdtoURLs'
581+-- * 'tdtoURLs'
587−-- * 'tdtoEndDate'
583+-- * 'tdtoEndDate'
589−-- * 'tdtoCpm'
585+-- * 'tdtoCpm'
591−-- * 'tdtoEstimatedSpend'
587+-- * 'tdtoEstimatedSpend'
593−-- * 'tdtoAdvertisers'
589+-- * 'tdtoAdvertisers'
595−-- * 'tdtoEstimatedImpressionsPerDay'
591+-- * 'tdtoEstimatedImpressionsPerDay'
597−-- * 'tdtoMonetizerType'
593+-- * 'tdtoMonetizerType'
599−-- * 'tdtoAudienceSegmentDescription'
595+-- * 'tdtoAudienceSegmentDescription'
601−-- * 'tdtoCreativeReviewPolicy'
597+-- * 'tdtoCreativeReviewPolicy'
603−-- * 'tdtoMinimumTrueLooks'
599+-- * 'tdtoMinimumTrueLooks'
605−-- * 'tdtoStartDate'
601+-- * 'tdtoStartDate'
607-- * 'tdtoCreativeBlockingLevel'
603-- * 'tdtoCreativeBlockingLevel'
609-- * 'tdtoSemiTransparent'
605-- * 'tdtoSemiTransparent'
@@ -900,153 +896,238 @@ instance ToJSON TermsDTO where
900 ("billingTerms" .=) <$> _tdtoBillingTerms,
896 ("billingTerms" .=) <$> _tdtoBillingTerms,
901 ("description" .=) <$> _tdtoDescription])
897 ("description" .=) <$> _tdtoDescription])
903−-- | The app icon, for app download ads.
905−-- /See:/ 'appIcon' smart constructor.
900+-- /See:/ 'createOrdersResponse' smart constructor.
906−data AppIcon = AppIcon
901+newtype CreateOrdersResponse = CreateOrdersResponse
907− { _aiHeight :: !(Maybe Int32)
902+ { _corOrders :: Maybe [MarketplaceOrder]
908− , _aiURL :: !(Maybe Text)
903+ } deriving (Eq,Show,Data,Typeable,Generic)
909− , _aiWidth :: !(Maybe Int32)
904+
905+-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
907+-- Use one of the following lenses to modify other fields as desired:
911+ :: CreateOrdersResponse
912+createOrdersResponse =
913+ CreateOrdersResponse
914+ { _corOrders = Nothing
917+-- | The list of orders successfully created.
918+corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]
920+ = lens _corOrders (\ s a -> s{_corOrders = a}) .
924+instance FromJSON CreateOrdersResponse where
926+ = withObject "CreateOrdersResponse"
928+ CreateOrdersResponse <$> (o .:? "orders" .!= mempty))
930+instance ToJSON CreateOrdersResponse where
931+ toJSON CreateOrdersResponse{..}
932+ = object (catMaybes [("orders" .=) <$> _corOrders])
935+-- /See:/ 'accountBidderLocationItem' smart constructor.
936+data AccountBidderLocationItem = AccountBidderLocationItem
937+ { _abliURL :: !(Maybe Text)
938+ , _abliMaximumQps :: !(Maybe Int32)
939+ , _abliRegion :: !(Maybe Text)
910 } deriving (Eq,Show,Data,Typeable,Generic)
940 } deriving (Eq,Show,Data,Typeable,Generic)
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.
914-- Use one of the following lenses to modify other fields as desired:
944-- Use one of the following lenses to modify other fields as desired:
916−-- * 'aiHeight'
946+-- * 'abliURL'
918−-- * 'aiURL'
948+-- * 'abliMaximumQps'
920−-- * 'aiWidth'
950+-- * 'abliRegion'
921−appIcon
951+accountBidderLocationItem
922− :: AppIcon
952+ :: AccountBidderLocationItem
923−appIcon =
953+accountBidderLocationItem =
924− AppIcon
954+ AccountBidderLocationItem
925− { _aiHeight = Nothing
955+ { _abliURL = Nothing
926− , _aiURL = Nothing
956+ , _abliMaximumQps = Nothing
927− , _aiWidth = Nothing
957+ , _abliRegion = Nothing
930−aiHeight :: Lens' AppIcon (Maybe Int32)
960+-- | The URL to which the Ad Exchange will send bid requests.
931−aiHeight = lens _aiHeight (\ s a -> s{_aiHeight = a})
961+abliURL :: Lens' AccountBidderLocationItem (Maybe Text)
962+abliURL = lens _abliURL (\ s a -> s{_abliURL = a})
933−aiURL :: Lens' AppIcon (Maybe Text)
964+-- | The maximum queries per second the Ad Exchange will send.
934−aiURL = lens _aiURL (\ s a -> s{_aiURL = a})
965+abliMaximumQps :: Lens' AccountBidderLocationItem (Maybe Int32)
967+ = lens _abliMaximumQps
968+ (\ s a -> s{_abliMaximumQps = a})
936−aiWidth :: Lens' AppIcon (Maybe Int32)
970+-- | The geographical region the Ad Exchange should send requests from. Only
937−aiWidth = lens _aiWidth (\ s a -> s{_aiWidth = a})
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)
975+ = lens _abliRegion (\ s a -> s{_abliRegion = a})
939−instance FromJSON AppIcon where
977+instance FromJSON AccountBidderLocationItem where
940 parseJSON
978 parseJSON
941− = withObject "AppIcon"
979+ = withObject "AccountBidderLocationItem"
943− AppIcon <$>
981+ AccountBidderLocationItem <$>
944− (o .:? "height") <*> (o .:? "url") <*>
982+ (o .:? "url") <*> (o .:? "maximumQps") <*>
945− (o .:? "width"))
983+ (o .:? "region"))
947−instance ToJSON AppIcon where
985+instance ToJSON AccountBidderLocationItem where
948− toJSON AppIcon{..}
986+ toJSON AccountBidderLocationItem{..}
950 (catMaybes
988 (catMaybes
951− [("height" .=) <$> _aiHeight, ("url" .=) <$> _aiURL,
989+ [("url" .=) <$> _abliURL,
952− ("width" .=) <$> _aiWidth])
990+ ("maximumQps" .=) <$> _abliMaximumQps,
991+ ("region" .=) <$> _abliRegion])
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.
958−-- /See:/ 'creativesList' smart constructor.
994+-- /See:/ 'privateData' smart constructor.
959−data CreativesList = CreativesList
995+data PrivateData = PrivateData
960− { _clNextPageToken :: !(Maybe Text)
996+ { _pdReferencePayload :: !(Maybe Word8)
961− , _clKind :: !Text
997+ , _pdReferenceId :: !(Maybe Text)
962− , _clItems :: !(Maybe [Creative])
963 } deriving (Eq,Show,Data,Typeable,Generic)
998 } deriving (Eq,Show,Data,Typeable,Generic)
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.
967-- Use one of the following lenses to modify other fields as desired:
1002-- Use one of the following lenses to modify other fields as desired:
969−-- * 'clNextPageToken'
1004+-- * 'pdReferencePayload'
971−-- * 'clKind'
1006+-- * 'pdReferenceId'
973−-- * 'clItems'
1008+ :: PrivateData
974−creativesList
1009+privateData =
975− :: CreativesList
1010+ PrivateData
976−creativesList =
1011+ { _pdReferencePayload = Nothing
977− CreativesList
1012+ , _pdReferenceId = Nothing
978− { _clNextPageToken = Nothing
979− , _clKind = "adexchangebuyer#creativesList"
980− , _clItems = Nothing
983−-- | Continuation token used to page through creatives. To retrieve the next
1015+pdReferencePayload :: Lens' PrivateData (Maybe Word8)
984−-- page of results, set the next request\'s \"pageToken\" value to this.
1016+pdReferencePayload
985−clNextPageToken :: Lens' CreativesList (Maybe Text)
1017+ = lens _pdReferencePayload
986−clNextPageToken
1018+ (\ s a -> s{_pdReferencePayload = a})
987− = lens _clNextPageToken
988− (\ s a -> s{_clNextPageToken = a})
991−clKind :: Lens' CreativesList Text
992−clKind = lens _clKind (\ s a -> s{_clKind = a})
994−-- | A list of creatives.
1020+pdReferenceId :: Lens' PrivateData (Maybe Text)
995−clItems :: Lens' CreativesList [Creative]
1021+pdReferenceId
996−clItems
1022+ = lens _pdReferenceId
997− = lens _clItems (\ s a -> s{_clItems = a}) . _Default
1023+ (\ s a -> s{_pdReferenceId = a})
1000−instance FromJSON CreativesList where
1025+instance FromJSON PrivateData where
1001 parseJSON
1026 parseJSON
1002− = withObject "CreativesList"
1027+ = withObject "PrivateData"
1004− CreativesList <$>
1029+ PrivateData <$>
1005− (o .:? "nextPageToken") <*>
1030+ (o .:? "referencePayload") <*> (o .:? "referenceId"))
1006− (o .:? "kind" .!= "adexchangebuyer#creativesList")
1007− <*> (o .:? "items" .!= mempty))
1009−instance ToJSON CreativesList where
1032+instance ToJSON PrivateData where
1010− toJSON CreativesList{..}
1033+ toJSON PrivateData{..}
1011 = object
1034 = object
1012 (catMaybes
1035 (catMaybes
1013− [("nextPageToken" .=) <$> _clNextPageToken,
1036+ [("referencePayload" .=) <$> _pdReferencePayload,
1014− Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
1037+ ("referenceId" .=) <$> _pdReferenceId])
1039+-- | The configuration data for Ad Exchange RTB - Budget API.
1017−-- /See:/ 'createOrdersResponse' smart constructor.
1041+-- /See:/ 'budget' smart constructor.
1018−newtype CreateOrdersResponse = CreateOrdersResponse
1042+data Budget = Budget
1019− { _corOrders :: Maybe [MarketplaceOrder]
1043+ { _bCurrencyCode :: !(Maybe Text)
1045+ , _bBudgetAmount :: !(Maybe Int64)
1046+ , _bAccountId :: !(Maybe Int64)
1047+ , _bId :: !(Maybe Text)
1048+ , _bBillingId :: !(Maybe Int64)
1020 } deriving (Eq,Show,Data,Typeable,Generic)
1049 } deriving (Eq,Show,Data,Typeable,Generic)
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.
1024-- Use one of the following lenses to modify other fields as desired:
1053-- Use one of the following lenses to modify other fields as desired:
1026−-- * 'corOrders'
1055+-- * 'bCurrencyCode'
1027−createOrdersResponse
1056+--
1028− :: CreateOrdersResponse
1057+-- * 'bKind'
1029−createOrdersResponse =
1058+--
1030− CreateOrdersResponse
1059+-- * 'bBudgetAmount'
1070+ { _bCurrencyCode = Nothing
1071+ , _bKind = "adexchangebuyer#budget"
1072+ , _bBudgetAmount = Nothing
1073+ , _bAccountId = Nothing
1031− { _corOrders = Nothing
1075+ , _bBillingId = Nothing
1034−-- | The list of orders successfully created.
1078+-- | The currency code for the buyer. This cannot be altered here.
1035−corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]
1079+bCurrencyCode :: Lens' Budget (Maybe Text)
1036−corOrders
1080+bCurrencyCode
1037− = lens _corOrders (\ s a -> s{_corOrders = a}) .
1081+ = lens _bCurrencyCode
1038− _Default
1082+ (\ s a -> s{_bCurrencyCode = a})
1084+-- | The kind of the resource, i.e. \"adexchangebuyer#budget\".
1085+bKind :: Lens' Budget Text
1086+bKind = lens _bKind (\ s a -> s{_bKind = a})
1088+-- | The budget amount to apply for the billingId provided. This is required
1089+-- for update requests.
1090+bBudgetAmount :: Lens' Budget (Maybe Int64)
1092+ = lens _bBudgetAmount
1093+ (\ s a -> s{_bBudgetAmount = a})
1095+-- | The id of the account. This is required for get and update requests.
1096+bAccountId :: Lens' Budget (Maybe Int64)
1098+ = lens _bAccountId (\ s a -> s{_bAccountId = a})
1100+-- | The unique id that describes this item.
1101+bId :: Lens' Budget (Maybe Text)
1102+bId = lens _bId (\ s a -> s{_bId = a})
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)
1108+ = lens _bBillingId (\ s a -> s{_bBillingId = a})
1041−instance FromJSON CreateOrdersResponse where
1110+instance FromJSON Budget where
1042 parseJSON
1111 parseJSON
1043− = withObject "CreateOrdersResponse"
1112+ = withObject "Budget"
1045− CreateOrdersResponse <$> (o .:? "orders" .!= mempty))
1114+ Budget <$>
1115+ (o .:? "currencyCode") <*>
1116+ (o .:? "kind" .!= "adexchangebuyer#budget")
1117+ <*> (o .:? "budgetAmount")
1118+ <*> (o .:? "accountId")
1120+ <*> (o .:? "billingId"))
1047−instance ToJSON CreateOrdersResponse where
1122+instance ToJSON Budget where
1048− toJSON CreateOrdersResponse{..}
1123+ toJSON Budget{..}
1049− = object (catMaybes [("orders" .=) <$> _corOrders])
1125+ (catMaybes
1126+ [("currencyCode" .=) <$> _bCurrencyCode,
1127+ Just ("kind" .= _bKind),
1128+ ("budgetAmount" .=) <$> _bBudgetAmount,
1129+ ("accountId" .=) <$> _bAccountId, ("id" .=) <$> _bId,
1130+ ("billingId" .=) <$> _bBillingId])
1052-- /See:/ 'addOrderNotesRequest' smart constructor.
1133-- /See:/ 'addOrderNotesRequest' smart constructor.
@@ -1084,51 +1165,102 @@ instance ToJSON AddOrderNotesRequest where
1084 = object (catMaybes [("notes" .=) <$> _aonrNotes])
1165 = object (catMaybes [("notes" .=) <$> _aonrNotes])
1087−-- /See:/ 'marketplaceDealParty' smart constructor.
1168+-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
1088−data MarketplaceDealParty = MarketplaceDealParty
1169+newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
1089− { _mdpSeller :: !(Maybe Seller)
1170+ { _gfnbedirIncludePrivateAuctions :: Maybe Bool
1090− , _mdpBuyer :: !(Maybe Buyer)
1091 } deriving (Eq,Show,Data,Typeable,Generic)
1171 } deriving (Eq,Show,Data,Typeable,Generic)
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.
1095-- Use one of the following lenses to modify other fields as desired:
1175-- Use one of the following lenses to modify other fields as desired:
1097−-- * 'mdpSeller'
1177+-- * 'gfnbedirIncludePrivateAuctions'
1178+getFinalizedNegotiationByExternalDealIdRequest
1179+ :: GetFinalizedNegotiationByExternalDealIdRequest
1180+getFinalizedNegotiationByExternalDealIdRequest =
1181+ GetFinalizedNegotiationByExternalDealIdRequest
1182+ { _gfnbedirIncludePrivateAuctions = Nothing
1185+gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
1186+gfnbedirIncludePrivateAuctions
1187+ = lens _gfnbedirIncludePrivateAuctions
1188+ (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
1191+ GetFinalizedNegotiationByExternalDealIdRequest where
1194+ "GetFinalizedNegotiationByExternalDealIdRequest"
1196+ GetFinalizedNegotiationByExternalDealIdRequest <$>
1197+ (o .:? "includePrivateAuctions"))
1200+ GetFinalizedNegotiationByExternalDealIdRequest where
1202+ GetFinalizedNegotiationByExternalDealIdRequest{..}
1205+ [("includePrivateAuctions" .=) <$>
1206+ _gfnbedirIncludePrivateAuctions])
1099−-- * 'mdpBuyer'
1209+-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
1100−marketplaceDealParty
1210+data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
1101− :: MarketplaceDealParty
1211+ { _dcfcMaxImpressions :: !(Maybe Int32)
1102−marketplaceDealParty =
1212+ , _dcfcNumTimeUnits :: !(Maybe Int32)
1103− MarketplaceDealParty
1213+ , _dcfcTimeUnitType :: !(Maybe Text)
1104− { _mdpSeller = Nothing
1214+ } deriving (Eq,Show,Data,Typeable,Generic)
1105− , _mdpBuyer = Nothing
1215+
1216+-- | Creates a value of 'DeliveryControlFrequencyCap' with the minimum fields required to make a request.
1218+-- Use one of the following lenses to modify other fields as desired:
1220+-- * 'dcfcMaxImpressions'
1222+-- * 'dcfcNumTimeUnits'
1224+-- * 'dcfcTimeUnitType'
1225+deliveryControlFrequencyCap
1226+ :: DeliveryControlFrequencyCap
1227+deliveryControlFrequencyCap =
1228+ DeliveryControlFrequencyCap
1229+ { _dcfcMaxImpressions = Nothing
1230+ , _dcfcNumTimeUnits = Nothing
1231+ , _dcfcTimeUnitType = Nothing
1108−-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1234+dcfcMaxImpressions :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1109−-- specified for a deal party.
1235+dcfcMaxImpressions
1110−mdpSeller :: Lens' MarketplaceDealParty (Maybe Seller)
1236+ = lens _dcfcMaxImpressions
1111−mdpSeller
1237+ (\ s a -> s{_dcfcMaxImpressions = a})
1112− = lens _mdpSeller (\ s a -> s{_mdpSeller = a})
1114−-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1239+dcfcNumTimeUnits :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1115−-- specified for a deal-party.
1240+dcfcNumTimeUnits
1116−mdpBuyer :: Lens' MarketplaceDealParty (Maybe Buyer)
1241+ = lens _dcfcNumTimeUnits
1117−mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a})
1242+ (\ s a -> s{_dcfcNumTimeUnits = a})
1244+dcfcTimeUnitType :: Lens' DeliveryControlFrequencyCap (Maybe Text)
1246+ = lens _dcfcTimeUnitType
1247+ (\ s a -> s{_dcfcTimeUnitType = a})
1119−instance FromJSON MarketplaceDealParty where
1249+instance FromJSON DeliveryControlFrequencyCap where
1120 parseJSON
1250 parseJSON
1121− = withObject "MarketplaceDealParty"
1251+ = withObject "DeliveryControlFrequencyCap"
1123− MarketplaceDealParty <$>
1253+ DeliveryControlFrequencyCap <$>
1124− (o .:? "seller") <*> (o .:? "buyer"))
1254+ (o .:? "maxImpressions") <*> (o .:? "numTimeUnits")
1255+ <*> (o .:? "timeUnitType"))
1126−instance ToJSON MarketplaceDealParty where
1257+instance ToJSON DeliveryControlFrequencyCap where
1127− toJSON MarketplaceDealParty{..}
1258+ toJSON DeliveryControlFrequencyCap{..}
1128 = object
1259 = object
1129 (catMaybes
1260 (catMaybes
1130− [("seller" .=) <$> _mdpSeller,
1261+ [("maxImpressions" .=) <$> _dcfcMaxImpressions,
1131− ("buyer" .=) <$> _mdpBuyer])
1262+ ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
1263+ ("timeUnitType" .=) <$> _dcfcTimeUnitType])
1134-- /See:/ 'dealPartyDTO' smart constructor.
1266-- /See:/ 'dealPartyDTO' smart constructor.
@@ -1187,82 +1319,25 @@ dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO)
1187dpdtoBuyer
1319dpdtoBuyer
1188 = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
1320 = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
1190−instance FromJSON DealPartyDTO where
1322+instance FromJSON DealPartyDTO where
1192− = withObject "DealPartyDTO"
1195− (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1197− <*> (o .:? "webProperty")
1198− <*> (o .:? "buyer"))
1200−instance ToJSON DealPartyDTO where
1201− toJSON DealPartyDTO{..}
1204− [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1205− ("customerId" .=) <$> _dpdtoCustomerId,
1206− ("name" .=) <$> _dpdtoName,
1207− ("webProperty" .=) <$> _dpdtoWebProperty,
1208− ("buyer" .=) <$> _dpdtoBuyer])
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)
1218−-- | Creates a value of 'DeliveryControlFrequencyCap' with the minimum fields required to make a request.
1220−-- Use one of the following lenses to modify other fields as desired:
1222−-- * 'dcfcMaxImpressions'
1224−-- * 'dcfcNumTimeUnits'
1226−-- * 'dcfcTimeUnitType'
1227−deliveryControlFrequencyCap
1228− :: DeliveryControlFrequencyCap
1229−deliveryControlFrequencyCap =
1230− DeliveryControlFrequencyCap
1231− { _dcfcMaxImpressions = Nothing
1232− , _dcfcNumTimeUnits = Nothing
1233− , _dcfcTimeUnitType = Nothing
1236−dcfcMaxImpressions :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1238− = lens _dcfcMaxImpressions
1239− (\ s a -> s{_dcfcMaxImpressions = a})
1241−dcfcNumTimeUnits :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
1243− = lens _dcfcNumTimeUnits
1244− (\ s a -> s{_dcfcNumTimeUnits = a})
1246−dcfcTimeUnitType :: Lens' DeliveryControlFrequencyCap (Maybe Text)
1248− = lens _dcfcTimeUnitType
1249− (\ s a -> s{_dcfcTimeUnitType = a})
1251−instance FromJSON DeliveryControlFrequencyCap where
1252 parseJSON
1323 parseJSON
1253− = withObject "DeliveryControlFrequencyCap"
1324+ = withObject "DealPartyDTO"
1255− DeliveryControlFrequencyCap <$>
1326+ DealPartyDTO <$>
1256− (o .:? "maxImpressions") <*> (o .:? "numTimeUnits")
1327+ (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1257− <*> (o .:? "timeUnitType"))
1328+ <*> (o .:? "name")
1329+ <*> (o .:? "webProperty")
1330+ <*> (o .:? "buyer"))
1259−instance ToJSON DeliveryControlFrequencyCap where
1332+instance ToJSON DealPartyDTO where
1260− toJSON DeliveryControlFrequencyCap{..}
1333+ toJSON DealPartyDTO{..}
1261 = object
1334 = object
1262 (catMaybes
1335 (catMaybes
1263− [("maxImpressions" .=) <$> _dcfcMaxImpressions,
1336+ [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1264− ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
1337+ ("customerId" .=) <$> _dpdtoCustomerId,
1265− ("timeUnitType" .=) <$> _dcfcTimeUnitType])
1338+ ("name" .=) <$> _dpdtoName,
1339+ ("webProperty" .=) <$> _dpdtoWebProperty,
1340+ ("buyer" .=) <$> _dpdtoBuyer])
1268-- /See:/ 'getNegotiationsResponse' smart constructor.
1343-- /See:/ 'getNegotiationsResponse' smart constructor.
@@ -1311,226 +1386,87 @@ instance ToJSON GetNegotiationsResponse where
1311 [Just ("kind" .= _gnrKind),
1386 [Just ("kind" .= _gnrKind),
1312 ("negotiations" .=) <$> _gnrNegotiations])
1387 ("negotiations" .=) <$> _gnrNegotiations])
1314−-- | The configuration data for Ad Exchange RTB - Budget API.
1316−-- /See:/ 'budget' smart constructor.
1317−data Budget = Budget
1318− { _bCurrencyCode :: !(Maybe Text)
1320− , _bBudgetAmount :: !(Maybe Int64)
1321− , _bAccountId :: !(Maybe Int64)
1322− , _bId :: !(Maybe Text)
1323− , _bBillingId :: !(Maybe Int64)
1324− } deriving (Eq,Show,Data,Typeable,Generic)
1326−-- | Creates a value of 'Budget' with the minimum fields required to make a request.
1328−-- Use one of the following lenses to modify other fields as desired:
1330−-- * 'bCurrencyCode'
1334−-- * 'bBudgetAmount'
1345− { _bCurrencyCode = Nothing
1346− , _bKind = "adexchangebuyer#budget"
1347− , _bBudgetAmount = Nothing
1348− , _bAccountId = Nothing
1350− , _bBillingId = Nothing
1353−-- | The currency code for the buyer. This cannot be altered here.
1354−bCurrencyCode :: Lens' Budget (Maybe Text)
1356− = lens _bCurrencyCode
1357− (\ s a -> s{_bCurrencyCode = a})
1359−-- | The kind of the resource, i.e. \"adexchangebuyer#budget\".
1360−bKind :: Lens' Budget Text
1361−bKind = lens _bKind (\ s a -> s{_bKind = a})
1363−-- | The budget amount to apply for the billingId provided. This is required
1364−-- for update requests.
1365−bBudgetAmount :: Lens' Budget (Maybe Int64)
1367− = lens _bBudgetAmount
1368− (\ s a -> s{_bBudgetAmount = a})
1370−-- | The id of the account. This is required for get and update requests.
1371−bAccountId :: Lens' Budget (Maybe Int64)
1373− = lens _bAccountId (\ s a -> s{_bAccountId = a})
1375−-- | The unique id that describes this item.
1376−bId :: Lens' Budget (Maybe Text)
1377−bId = lens _bId (\ s a -> s{_bId = a})
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)
1383− = lens _bBillingId (\ s a -> s{_bBillingId = a})
1385−instance FromJSON Budget where
1387− = withObject "Budget"
1390− (o .:? "currencyCode") <*>
1391− (o .:? "kind" .!= "adexchangebuyer#budget")
1392− <*> (o .:? "budgetAmount")
1393− <*> (o .:? "accountId")
1395− <*> (o .:? "billingId"))
1397−instance ToJSON Budget where
1401− [("currencyCode" .=) <$> _bCurrencyCode,
1402− Just ("kind" .= _bKind),
1403− ("budgetAmount" .=) <$> _bBudgetAmount,
1404− ("accountId" .=) <$> _bAccountId, ("id" .=) <$> _bId,
1405− ("billingId" .=) <$> _bBillingId])
1408−-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
1409−newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
1410− { _gfnbedirIncludePrivateAuctions :: Maybe Bool
1411− } deriving (Eq,Show,Data,Typeable,Generic)
1413−-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request.
1415−-- Use one of the following lenses to modify other fields as desired:
1417−-- * 'gfnbedirIncludePrivateAuctions'
1418−getFinalizedNegotiationByExternalDealIdRequest
1419− :: GetFinalizedNegotiationByExternalDealIdRequest
1420−getFinalizedNegotiationByExternalDealIdRequest =
1421− GetFinalizedNegotiationByExternalDealIdRequest
1422− { _gfnbedirIncludePrivateAuctions = Nothing
1425−gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
1426−gfnbedirIncludePrivateAuctions
1427− = lens _gfnbedirIncludePrivateAuctions
1428− (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
1431− GetFinalizedNegotiationByExternalDealIdRequest where
1434− "GetFinalizedNegotiationByExternalDealIdRequest"
1436− GetFinalizedNegotiationByExternalDealIdRequest <$>
1437− (o .:? "includePrivateAuctions"))
1440− GetFinalizedNegotiationByExternalDealIdRequest where
1442− GetFinalizedNegotiationByExternalDealIdRequest{..}
1445− [("includePrivateAuctions" .=) <$>
1446− _gfnbedirIncludePrivateAuctions])
1449−-- /See:/ 'privateData' smart constructor.
1390+-- /See:/ 'marketplaceDealParty' smart constructor.
1450−data PrivateData = PrivateData
1391+data MarketplaceDealParty = MarketplaceDealParty
1451− { _pdReferencePayload :: !(Maybe Word8)
1392+ { _mdpSeller :: !(Maybe Seller)
1452− , _pdReferenceId :: !(Maybe Text)
1393+ , _mdpBuyer :: !(Maybe Buyer)
1453 } deriving (Eq,Show,Data,Typeable,Generic)
1394 } deriving (Eq,Show,Data,Typeable,Generic)
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.
1457-- Use one of the following lenses to modify other fields as desired:
1398-- Use one of the following lenses to modify other fields as desired:
1459−-- * 'pdReferencePayload'
1400+-- * 'mdpSeller'
1461−-- * 'pdReferenceId'
1402+-- * 'mdpBuyer'
1462−privateData
1403+marketplaceDealParty
1463− :: PrivateData
1404+ :: MarketplaceDealParty
1464−privateData =
1405+marketplaceDealParty =
1465− PrivateData
1406+ MarketplaceDealParty
1466− { _pdReferencePayload = Nothing
1407+ { _mdpSeller = Nothing
1467− , _pdReferenceId = Nothing
1408+ , _mdpBuyer = Nothing
1470−pdReferencePayload :: Lens' PrivateData (Maybe Word8)
1411+-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1471−pdReferencePayload
1412+-- specified for a deal party.
1472− = lens _pdReferencePayload
1413+mdpSeller :: Lens' MarketplaceDealParty (Maybe Seller)
1473− (\ s a -> s{_pdReferencePayload = a})
1414+mdpSeller
1415+ = lens _mdpSeller (\ s a -> s{_mdpSeller = a})
1475−pdReferenceId :: Lens' PrivateData (Maybe Text)
1417+-- | The buyer\/seller associated with the deal. One of buyer\/seller is
1476−pdReferenceId
1418+-- specified for a deal-party.
1477− = lens _pdReferenceId
1419+mdpBuyer :: Lens' MarketplaceDealParty (Maybe Buyer)
1478− (\ s a -> s{_pdReferenceId = a})
1420+mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a})
1480−instance FromJSON PrivateData where
1422+instance FromJSON MarketplaceDealParty where
1481 parseJSON
1423 parseJSON
1482− = withObject "PrivateData"
1424+ = withObject "MarketplaceDealParty"
1484− PrivateData <$>
1426+ MarketplaceDealParty <$>
1485− (o .:? "referencePayload") <*> (o .:? "referenceId"))
1427+ (o .:? "seller") <*> (o .:? "buyer"))
1487−instance ToJSON PrivateData where
1429+instance ToJSON MarketplaceDealParty where
1488− toJSON PrivateData{..}
1430+ toJSON MarketplaceDealParty{..}
1489 = object
1431 = object
1490 (catMaybes
1432 (catMaybes
1491− [("referencePayload" .=) <$> _pdReferencePayload,
1433+ [("seller" .=) <$> _mdpSeller,
1492− ("referenceId" .=) <$> _pdReferenceId])
1434+ ("buyer" .=) <$> _mdpBuyer])
1495−-- /See:/ 'adSize' smart constructor.
1437+-- /See:/ 'getOrderNotesResponse' smart constructor.
1496−data AdSize = AdSize
1438+newtype GetOrderNotesResponse = GetOrderNotesResponse
1497− { _asHeight :: !(Maybe Int32)
1439+ { _gonrNotes :: Maybe [MarketplaceNote]
1498− , _asWidth :: !(Maybe Int32)
1499 } deriving (Eq,Show,Data,Typeable,Generic)
1440 } deriving (Eq,Show,Data,Typeable,Generic)
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.
1503-- Use one of the following lenses to modify other fields as desired:
1444-- Use one of the following lenses to modify other fields as desired:
1505−-- * 'asHeight'
1446+-- * 'gonrNotes'
1506−--
1447+getOrderNotesResponse
1507−-- * 'asWidth'
1448+ :: GetOrderNotesResponse
1508−adSize
1449+getOrderNotesResponse =
1509− :: AdSize
1450+ GetOrderNotesResponse
1512− { _asHeight = Nothing
1513− , _asWidth = Nothing
1451+ { _gonrNotes = Nothing
1516−asHeight :: Lens' AdSize (Maybe Int32)
1454+-- | The list of matching notes.
1517−asHeight = lens _asHeight (\ s a -> s{_asHeight = a})
1455+gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
1519−asWidth :: Lens' AdSize (Maybe Int32)
1457+ = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
1520−asWidth = lens _asWidth (\ s a -> s{_asWidth = a})
1458+ _Default
1522−instance FromJSON AdSize where
1461+instance FromJSON GetOrderNotesResponse where
1523 parseJSON
1462 parseJSON
1524− = withObject "AdSize"
1463+ = withObject "GetOrderNotesResponse"
1526− AdSize <$> (o .:? "height") <*> (o .:? "width"))
1465+ GetOrderNotesResponse <$> (o .:? "notes" .!= mempty))
1528−instance ToJSON AdSize where
1467+instance ToJSON GetOrderNotesResponse where
1529− toJSON AdSize{..}
1468+ toJSON GetOrderNotesResponse{..}
1531− (catMaybes
1469+ = object (catMaybes [("notes" .=) <$> _gonrNotes])
1532− [("height" .=) <$> _asHeight,
1533− ("width" .=) <$> _asWidth])
1536-- /See:/ 'ruleKeyValuePair' smart constructor.
1472-- /See:/ 'ruleKeyValuePair' smart constructor.
@@ -1611,6 +1547,63 @@ instance ToJSON GetOrdersResponse where
1611 toJSON GetOrdersResponse{..}
1547 toJSON GetOrdersResponse{..}
1612 = object (catMaybes [("orders" .=) <$> _gorOrders])
1548 = object (catMaybes [("orders" .=) <$> _gorOrders])
1551+-- /See:/ 'creativeServingRestrictionsItemDisApprovalReasonsItem' smart constructor.
1552+data CreativeServingRestrictionsItemDisApprovalReasonsItem = CreativeServingRestrictionsItemDisApprovalReasonsItem
1553+ { _csridariReason :: !(Maybe Text)
1554+ , _csridariDetails :: !(Maybe [Text])
1555+ } deriving (Eq,Show,Data,Typeable,Generic)
1557+-- | Creates a value of 'CreativeServingRestrictionsItemDisApprovalReasonsItem' with the minimum fields required to make a request.
1559+-- Use one of the following lenses to modify other fields as desired:
1561+-- * 'csridariReason'
1563+-- * 'csridariDetails'
1564+creativeServingRestrictionsItemDisApprovalReasonsItem
1565+ :: CreativeServingRestrictionsItemDisApprovalReasonsItem
1566+creativeServingRestrictionsItemDisApprovalReasonsItem =
1567+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1568+ { _csridariReason = Nothing
1569+ , _csridariDetails = Nothing
1572+-- | The categorized reason for disapproval.
1573+csridariReason :: Lens' CreativeServingRestrictionsItemDisApprovalReasonsItem (Maybe Text)
1575+ = lens _csridariReason
1576+ (\ s a -> s{_csridariReason = a})
1578+-- | Additional details about the reason for disapproval.
1579+csridariDetails :: Lens' CreativeServingRestrictionsItemDisApprovalReasonsItem [Text]
1581+ = lens _csridariDetails
1582+ (\ s a -> s{_csridariDetails = a})
1587+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1591+ "CreativeServingRestrictionsItemDisApprovalReasonsItem"
1593+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1595+ (o .:? "reason") <*> (o .:? "details" .!= mempty))
1598+ CreativeServingRestrictionsItemDisApprovalReasonsItem
1601+ CreativeServingRestrictionsItemDisApprovalReasonsItem{..}
1604+ [("reason" .=) <$> _csridariReason,
1605+ ("details" .=) <$> _csridariDetails])
1614-- | An account feed lists Ad Exchange buyer accounts that the user has
1607-- | An account feed lists Ad Exchange buyer accounts that the user has
1615-- access to. Each entry in the feed corresponds to a single buyer account.
1608-- access to. Each entry in the feed corresponds to a single buyer account.
@@ -1660,109 +1653,6 @@ instance ToJSON AccountsList where
1660 [Just ("kind" .= _alKind),
1653 [Just ("kind" .= _alKind),
1661 ("items" .=) <$> _alItems])
1654 ("items" .=) <$> _alItems])
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)
1671−-- | Creates a value of 'ServingRestrictionsItem' with the minimum fields required to make a request.
1673−-- Use one of the following lenses to modify other fields as desired:
1679−-- * 'sriDisapprovalReasons'
1680−servingRestrictionsItem
1681− :: ServingRestrictionsItem
1682−servingRestrictionsItem =
1683− ServingRestrictionsItem
1684− { _sriContexts = Nothing
1685− , _sriReason = Nothing
1686− , _sriDisapprovalReasons = Nothing
1689−-- | All known contexts\/restrictions.
1690−sriContexts :: Lens' ServingRestrictionsItem [ContextsItem]
1692− = lens _sriContexts (\ s a -> s{_sriContexts = a}) .
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)
1700− = lens _sriReason (\ s a -> s{_sriReason = a})
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})
1714−instance FromJSON ServingRestrictionsItem where
1716− = withObject "ServingRestrictionsItem"
1718− ServingRestrictionsItem <$>
1719− (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
1720− <*> (o .:? "disapprovalReasons" .!= mempty))
1722−instance ToJSON ServingRestrictionsItem where
1723− toJSON ServingRestrictionsItem{..}
1726− [("contexts" .=) <$> _sriContexts,
1727− ("reason" .=) <$> _sriReason,
1728− ("disapprovalReasons" .=) <$>
1729− _sriDisapprovalReasons])
1732−-- /See:/ 'getOrderNotesResponse' smart constructor.
1733−newtype GetOrderNotesResponse = GetOrderNotesResponse
1734− { _gonrNotes :: Maybe [MarketplaceNote]
1735− } deriving (Eq,Show,Data,Typeable,Generic)
1737−-- | Creates a value of 'GetOrderNotesResponse' with the minimum fields required to make a request.
1739−-- Use one of the following lenses to modify other fields as desired:
1742−getOrderNotesResponse
1743− :: GetOrderNotesResponse
1744−getOrderNotesResponse =
1745− GetOrderNotesResponse
1746− { _gonrNotes = Nothing
1749−-- | The list of matching notes.
1750−gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
1752− = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
1756−instance FromJSON GetOrderNotesResponse where
1758− = withObject "GetOrderNotesResponse"
1760− GetOrderNotesResponse <$> (o .:? "notes" .!= mempty))
1762−instance ToJSON GetOrderNotesResponse where
1763− toJSON GetOrderNotesResponse{..}
1764− = object (catMaybes [("notes" .=) <$> _gonrNotes])
1767-- /See:/ 'createOrdersRequest' smart constructor.
1657-- /See:/ 'createOrdersRequest' smart constructor.
1768data CreateOrdersRequest = CreateOrdersRequest
1658data CreateOrdersRequest = CreateOrdersRequest
@@ -1811,139 +1701,145 @@ instance ToJSON CreateOrdersRequest where
1811 [("webPropertyCode" .=) <$> _cWebPropertyCode,
1701 [("webPropertyCode" .=) <$> _cWebPropertyCode,
1812 ("orders" .=) <$> _cOrders])
1702 ("orders" .=) <$> _cOrders])
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
1822−-- /See:/ 'pricePerBuyer' smart constructor.
1705+-- /See:/ 'adSize' smart constructor.
1823−data PricePerBuyer = PricePerBuyer
1706+data AdSize = AdSize
1824− { _ppbPrice :: !(Maybe Price)
1707+ { _asHeight :: !(Maybe Int32)
1825− , _ppbBuyer :: !(Maybe Buyer)
1708+ , _asWidth :: !(Maybe Int32)
1826 } deriving (Eq,Show,Data,Typeable,Generic)
1709 } deriving (Eq,Show,Data,Typeable,Generic)
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.
1830-- Use one of the following lenses to modify other fields as desired:
1713-- Use one of the following lenses to modify other fields as desired:
1832−-- * 'ppbPrice'
1715+-- * 'asHeight'
1834−-- * 'ppbBuyer'
1717+-- * 'asWidth'
1835−pricePerBuyer
1718+adSize
1836− :: PricePerBuyer
1719+ :: AdSize
1837−pricePerBuyer =
1720+adSize =
1838− PricePerBuyer
1721+ AdSize
1839− { _ppbPrice = Nothing
1722+ { _asHeight = Nothing
1840− , _ppbBuyer = Nothing
1723+ , _asWidth = Nothing
1843−-- | The specified price
1726+asHeight :: Lens' AdSize (Maybe Int32)
1844−ppbPrice :: Lens' PricePerBuyer (Maybe Price)
1727+asHeight = lens _asHeight (\ s a -> s{_asHeight = a})
1845−ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a})
1847−-- | The buyer who will pay this price. If unset, all buyers can pay this
1729+asWidth :: Lens' AdSize (Maybe Int32)
1848−-- price (if the advertisers match, and there\'s no more specific rule
1730+asWidth = lens _asWidth (\ s a -> s{_asWidth = a})
1849−-- matching the buyer).
1850−ppbBuyer :: Lens' PricePerBuyer (Maybe Buyer)
1851−ppbBuyer = lens _ppbBuyer (\ s a -> s{_ppbBuyer = a})
1853−instance FromJSON PricePerBuyer where
1732+instance FromJSON AdSize where
1854 parseJSON
1733 parseJSON
1855− = withObject "PricePerBuyer"
1734+ = withObject "AdSize"
1857− PricePerBuyer <$>
1736+ AdSize <$> (o .:? "height") <*> (o .:? "width"))
1858− (o .:? "price") <*> (o .:? "buyer"))
1860−instance ToJSON PricePerBuyer where
1738+instance ToJSON AdSize where
1861− toJSON PricePerBuyer{..}
1739+ toJSON AdSize{..}
1862 = object
1740 = object
1863 (catMaybes
1741 (catMaybes
1864− [("price" .=) <$> _ppbPrice,
1742+ [("height" .=) <$> _asHeight,
1865− ("buyer" .=) <$> _ppbBuyer])
1743+ ("width" .=) <$> _asWidth])
1868−-- /See:/ 'targetingValueDayPartTargetingDayPart' smart constructor.
1746+-- /See:/ 'creativeCorrectionsItem' smart constructor.
1869−data TargetingValueDayPartTargetingDayPart = TargetingValueDayPartTargetingDayPart
1747+data CreativeCorrectionsItem = CreativeCorrectionsItem
1870− { _tvdptdpEndHour :: !(Maybe Int32)
1748+ { _cciReason :: !(Maybe Text)
1871− , _tvdptdpStartHour :: !(Maybe Int32)
1749+ , _cciDetails :: !(Maybe [Text])
1872− , _tvdptdpStartMinute :: !(Maybe Int32)
1873− , _tvdptdpDayOfWeek :: !(Maybe Text)
1874− , _tvdptdpEndMinute :: !(Maybe Int32)
1875 } deriving (Eq,Show,Data,Typeable,Generic)
1750 } deriving (Eq,Show,Data,Typeable,Generic)
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.
1879-- Use one of the following lenses to modify other fields as desired:
1754-- Use one of the following lenses to modify other fields as desired:
1881−-- * 'tvdptdpEndHour'
1756+-- * 'cciReason'
1883−-- * 'tvdptdpStartHour'
1885−-- * 'tvdptdpStartMinute'
1887−-- * 'tvdptdpDayOfWeek'
1889−-- * 'tvdptdpEndMinute'
1758+-- * 'cciDetails'
1890−targetingValueDayPartTargetingDayPart
1759+creativeCorrectionsItem
1891− :: TargetingValueDayPartTargetingDayPart
1760+ :: CreativeCorrectionsItem
1892−targetingValueDayPartTargetingDayPart =
1761+creativeCorrectionsItem =
1893− TargetingValueDayPartTargetingDayPart
1762+ CreativeCorrectionsItem
1894− { _tvdptdpEndHour = Nothing
1763+ { _cciReason = Nothing
1895− , _tvdptdpStartHour = Nothing
1764+ , _cciDetails = Nothing
1896− , _tvdptdpStartMinute = Nothing
1897− , _tvdptdpDayOfWeek = Nothing
1898− , _tvdptdpEndMinute = Nothing
1901−tvdptdpEndHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1767+-- | The type of correction that was applied to the creative.
1902−tvdptdpEndHour
1768+cciReason :: Lens' CreativeCorrectionsItem (Maybe Text)
1903− = lens _tvdptdpEndHour
1769+cciReason
1904− (\ s a -> s{_tvdptdpEndHour = a})
1770+ = lens _cciReason (\ s a -> s{_cciReason = a})
1906−tvdptdpStartHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1772+-- | Additional details about the correction.
1907−tvdptdpStartHour
1773+cciDetails :: Lens' CreativeCorrectionsItem [Text]
1908− = lens _tvdptdpStartHour
1774+cciDetails
1909− (\ s a -> s{_tvdptdpStartHour = a})
1775+ = lens _cciDetails (\ s a -> s{_cciDetails = a}) .
1911−tvdptdpStartMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1779+instance FromJSON CreativeCorrectionsItem where
1912−tvdptdpStartMinute
1780+ parseJSON
1913− = lens _tvdptdpStartMinute
1781+ = withObject "CreativeCorrectionsItem"
1914− (\ s a -> s{_tvdptdpStartMinute = a})
1782+ (\ o ->
1783+ CreativeCorrectionsItem <$>
1784+ (o .:? "reason") <*> (o .:? "details" .!= mempty))
1916−tvdptdpDayOfWeek :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Text)
1786+instance ToJSON CreativeCorrectionsItem where
1917−tvdptdpDayOfWeek
1787+ toJSON CreativeCorrectionsItem{..}
1918− = lens _tvdptdpDayOfWeek
1788+ = object
1919− (\ s a -> s{_tvdptdpDayOfWeek = a})
1789+ (catMaybes
1790+ [("reason" .=) <$> _cciReason,
1791+ ("details" .=) <$> _cciDetails])
1921−tvdptdpEndMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
1793+--
1922−tvdptdpEndMinute
1794+-- /See:/ 'addOrderDealsResponse' smart constructor.
1923− = lens _tvdptdpEndMinute
1795+data AddOrderDealsResponse = AddOrderDealsResponse
1924− (\ s a -> s{_tvdptdpEndMinute = a})
1796+ { _aodrDeals :: !(Maybe [MarketplaceDeal])
1797+ , _aodrOrderRevisionNumber :: !(Maybe Int64)
1798+ } deriving (Eq,Show,Data,Typeable,Generic)
1800+-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
1802+-- Use one of the following lenses to modify other fields as desired:
1806+-- * 'aodrOrderRevisionNumber'
1807+addOrderDealsResponse
1808+ :: AddOrderDealsResponse
1809+addOrderDealsResponse =
1810+ AddOrderDealsResponse
1811+ { _aodrDeals = Nothing
1812+ , _aodrOrderRevisionNumber = Nothing
1815+-- | List of deals added (in the same order as passed in the request)
1816+aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
1818+ = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
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})
1926−instance FromJSON
1828+instance FromJSON AddOrderDealsResponse where
1927− TargetingValueDayPartTargetingDayPart where
1928 parseJSON
1829 parseJSON
1929− = withObject "TargetingValueDayPartTargetingDayPart"
1830+ = withObject "AddOrderDealsResponse"
1931− TargetingValueDayPartTargetingDayPart <$>
1832+ AddOrderDealsResponse <$>
1932− (o .:? "endHour") <*> (o .:? "startHour") <*>
1833+ (o .:? "deals" .!= mempty) <*>
1933− (o .:? "startMinute")
1834+ (o .:? "orderRevisionNumber"))
1934− <*> (o .:? "dayOfWeek")
1935− <*> (o .:? "endMinute"))
1937−instance ToJSON TargetingValueDayPartTargetingDayPart
1836+instance ToJSON AddOrderDealsResponse where
1938− where
1837+ toJSON AddOrderDealsResponse{..}
1939− toJSON TargetingValueDayPartTargetingDayPart{..}
1940 = object
1838 = object
1941 (catMaybes
1839 (catMaybes
1942− [("endHour" .=) <$> _tvdptdpEndHour,
1840+ [("deals" .=) <$> _aodrDeals,
1943− ("startHour" .=) <$> _tvdptdpStartHour,
1841+ ("orderRevisionNumber" .=) <$>
1944− ("startMinute" .=) <$> _tvdptdpStartMinute,
1842+ _aodrOrderRevisionNumber])
1945− ("dayOfWeek" .=) <$> _tvdptdpDayOfWeek,
1946− ("endMinute" .=) <$> _tvdptdpEndMinute])
1949-- /See:/ 'deliveryControl' smart constructor.
1845-- /See:/ 'deliveryControl' smart constructor.
@@ -1994,17 +1890,70 @@ instance ToJSON DeliveryControl where
1994 [("frequencyCaps" .=) <$> _dcFrequencyCaps,
1890 [("frequencyCaps" .=) <$> _dcFrequencyCaps,
1995 ("deliveryRateType" .=) <$> _dcDeliveryRateType])
1891 ("deliveryRateType" .=) <$> _dcDeliveryRateType])
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
1901+-- /See:/ 'pricePerBuyer' smart constructor.
1902+data PricePerBuyer = PricePerBuyer
1903+ { _ppbPrice :: !(Maybe Price)
1904+ , _ppbBuyer :: !(Maybe Buyer)
1905+ } deriving (Eq,Show,Data,Typeable,Generic)
1907+-- | Creates a value of 'PricePerBuyer' with the minimum fields required to make a request.
1909+-- Use one of the following lenses to modify other fields as desired:
1918+ { _ppbPrice = Nothing
1919+ , _ppbBuyer = Nothing
1922+-- | The specified price
1923+ppbPrice :: Lens' PricePerBuyer (Maybe Price)
1924+ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a})
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})
1932+instance FromJSON PricePerBuyer where
1934+ = withObject "PricePerBuyer"
1937+ (o .:? "price") <*> (o .:? "buyer"))
1939+instance ToJSON PricePerBuyer where
1940+ toJSON PricePerBuyer{..}
1943+ [("price" .=) <$> _ppbPrice,
1944+ ("buyer" .=) <$> _ppbBuyer])
1997-- | A creative and its classification data.
1946-- | A creative and its classification data.
1999-- /See:/ 'creative' smart constructor.
1948-- /See:/ 'creative' smart constructor.
2000data Creative = Creative
1949data Creative = Creative
2001 { _cAttribute :: !(Maybe [Int32])
1950 { _cAttribute :: !(Maybe [Int32])
2002− , _cNATiveAd :: !(Maybe NATiveAd)
1951+ , _cNATiveAd :: !(Maybe CreativeNATiveAd)
2003 , _cHeight :: !(Maybe Int32)
1952 , _cHeight :: !(Maybe Int32)
2004 , _cBuyerCreativeId :: !(Maybe Text)
1953 , _cBuyerCreativeId :: !(Maybe Text)
2005 , _cAdvertiserName :: !(Maybe Text)
1954 , _cAdvertiserName :: !(Maybe Text)
2006 , _cAgencyId :: !(Maybe Int64)
1955 , _cAgencyId :: !(Maybe Int64)
2007− , _cCorrections :: !(Maybe [CorrectionsItem])
1956+ , _cCorrections :: !(Maybe [CreativeCorrectionsItem])
2008 , _cProductCategories :: !(Maybe [Int32])
1957 , _cProductCategories :: !(Maybe [Int32])
2009 , _cKind :: !Text
1958 , _cKind :: !Text
2010 , _cHTMLSnippet :: !(Maybe Text)
1959 , _cHTMLSnippet :: !(Maybe Text)
@@ -2016,12 +1965,12 @@ data Creative = Creative
2016 , _cVendorType :: !(Maybe [Int32])
1965 , _cVendorType :: !(Maybe [Int32])
2017 , _cAccountId :: !(Maybe Int32)
1966 , _cAccountId :: !(Maybe Int32)
2018 , _cImpressionTrackingURL :: !(Maybe [Text])
1967 , _cImpressionTrackingURL :: !(Maybe [Text])
2019− , _cFilteringReasons :: !(Maybe FilteringReasons)
1968+ , _cFilteringReasons :: !(Maybe CreativeFilteringReasons)
2020 , _cVersion :: !(Maybe Int32)
1969 , _cVersion :: !(Maybe Int32)
2021 , _cSensitiveCategories :: !(Maybe [Int32])
1970 , _cSensitiveCategories :: !(Maybe [Int32])
2022 , _cVideoURL :: !(Maybe Text)
1971 , _cVideoURL :: !(Maybe Text)
2023 , _cAPIUploadTimestamp :: !(Maybe DateTime')
1972 , _cAPIUploadTimestamp :: !(Maybe DateTime')
2024− , _cServingRestrictions :: !(Maybe [ServingRestrictionsItem])
1973+ , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
2025 , _cOpenAuctionStatus :: !(Maybe Text)
1974 , _cOpenAuctionStatus :: !(Maybe Text)
2026 } deriving (Eq,Show,Data,Typeable,Generic)
1975 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -2117,7 +2066,7 @@ cAttribute
2117 . _Coerce
2066 . _Coerce
2119-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
2068-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
2120−cNATiveAd :: Lens' Creative (Maybe NATiveAd)
2069+cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd)
2121cNATiveAd
2070cNATiveAd
2122 = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})
2071 = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})
@@ -2144,7 +2093,7 @@ cAgencyId
2145-- | Shows any corrections that were applied to this creative. Read-only.
2094-- | Shows any corrections that were applied to this creative. Read-only.
2146-- This field should not be set in requests.
2095-- This field should not be set in requests.
2147−cCorrections :: Lens' Creative [CorrectionsItem]
2096+cCorrections :: Lens' Creative [CreativeCorrectionsItem]
2148cCorrections
2097cCorrections
2149 = lens _cCorrections (\ s a -> s{_cCorrections = a})
2098 = lens _cCorrections (\ s a -> s{_cCorrections = a})
2150 . _Default
2099 . _Default
@@ -2230,7 +2179,7 @@ cImpressionTrackingURL
2231-- | The filtering reasons for the creative. Read-only. This field should not
2180-- | The filtering reasons for the creative. Read-only. This field should not
2232-- be set in requests.
2181-- be set in requests.
2233−cFilteringReasons :: Lens' Creative (Maybe FilteringReasons)
2182+cFilteringReasons :: Lens' Creative (Maybe CreativeFilteringReasons)
2234cFilteringReasons
2183cFilteringReasons
2235 = lens _cFilteringReasons
2184 = lens _cFilteringReasons
2236 (\ s a -> s{_cFilteringReasons = a})
2185 (\ s a -> s{_cFilteringReasons = a})
@@ -2267,7 +2216,7 @@ cAPIUploadTimestamp
2267-- relates to where something ultimately serves (for example, a physical
2216-- relates to where something ultimately serves (for example, a physical
2268-- location, a platform, an HTTPS vs HTTP request, or the type of auction).
2217-- location, a platform, an HTTPS vs HTTP request, or the type of auction).
2269-- Read-only. This field should not be set in requests.
2218-- Read-only. This field should not be set in requests.
2270−cServingRestrictions :: Lens' Creative [ServingRestrictionsItem]
2219+cServingRestrictions :: Lens' Creative [CreativeServingRestrictionsItem]
2271cServingRestrictions
2220cServingRestrictions
2272 = lens _cServingRestrictions
2221 = lens _cServingRestrictions
2273 (\ s a -> s{_cServingRestrictions = a})
2222 (\ s a -> s{_cServingRestrictions = a})
@@ -2347,55 +2296,85 @@ instance ToJSON Creative where
2347 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
2296 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
2350−-- /See:/ 'addOrderDealsResponse' smart constructor.
2299+-- /See:/ 'targetingValueDayPartTargetingDayPart' smart constructor.
2351−data AddOrderDealsResponse = AddOrderDealsResponse
2300+data TargetingValueDayPartTargetingDayPart = TargetingValueDayPartTargetingDayPart
2352− { _aodrDeals :: !(Maybe [MarketplaceDeal])
2301+ { _tvdptdpEndHour :: !(Maybe Int32)
2353− , _aodrOrderRevisionNumber :: !(Maybe Int64)
2302+ , _tvdptdpStartHour :: !(Maybe Int32)
2303+ , _tvdptdpStartMinute :: !(Maybe Int32)
2304+ , _tvdptdpDayOfWeek :: !(Maybe Text)
2305+ , _tvdptdpEndMinute :: !(Maybe Int32)
2354 } deriving (Eq,Show,Data,Typeable,Generic)
2306 } deriving (Eq,Show,Data,Typeable,Generic)
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.
2358-- Use one of the following lenses to modify other fields as desired:
2310-- Use one of the following lenses to modify other fields as desired:
2360−-- * 'aodrDeals'
2312+-- * 'tvdptdpEndHour'
2362−-- * 'aodrOrderRevisionNumber'
2314+-- * 'tvdptdpStartHour'
2363−addOrderDealsResponse
2315+--
2364− :: AddOrderDealsResponse
2316+-- * 'tvdptdpStartMinute'
2365−addOrderDealsResponse =
2317+--
2366− AddOrderDealsResponse
2318+-- * 'tvdptdpDayOfWeek'
2367− { _aodrDeals = Nothing
2319+--
2368− , _aodrOrderRevisionNumber = Nothing
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
2371−-- | List of deals added (in the same order as passed in the request)
2332+tvdptdpEndHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2372−aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
2333+tvdptdpEndHour
2373−aodrDeals
2334+ = lens _tvdptdpEndHour
2374− = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
2335+ (\ s a -> s{_tvdptdpEndHour = a})
2378−-- | The updated revision number for the order.
2337+tvdptdpStartHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2379−aodrOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
2338+tvdptdpStartHour
2380−aodrOrderRevisionNumber
2339+ = lens _tvdptdpStartHour
2381− = lens _aodrOrderRevisionNumber
2340+ (\ s a -> s{_tvdptdpStartHour = a})
2382− (\ s a -> s{_aodrOrderRevisionNumber = a})
2342+tvdptdpStartMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2344+ = lens _tvdptdpStartMinute
2345+ (\ s a -> s{_tvdptdpStartMinute = a})
2347+tvdptdpDayOfWeek :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Text)
2349+ = lens _tvdptdpDayOfWeek
2350+ (\ s a -> s{_tvdptdpDayOfWeek = a})
2352+tvdptdpEndMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
2354+ = lens _tvdptdpEndMinute
2355+ (\ s a -> s{_tvdptdpEndMinute = a})
2384−instance FromJSON AddOrderDealsResponse where
2357+instance FromJSON
2358+ TargetingValueDayPartTargetingDayPart where
2385 parseJSON
2359 parseJSON
2386− = withObject "AddOrderDealsResponse"
2360+ = withObject "TargetingValueDayPartTargetingDayPart"
2388− AddOrderDealsResponse <$>
2362+ TargetingValueDayPartTargetingDayPart <$>
2389− (o .:? "deals" .!= mempty) <*>
2363+ (o .:? "endHour") <*> (o .:? "startHour") <*>
2390− (o .:? "orderRevisionNumber"))
2364+ (o .:? "startMinute")
2365+ <*> (o .:? "dayOfWeek")
2366+ <*> (o .:? "endMinute"))
2392−instance ToJSON AddOrderDealsResponse where
2368+instance ToJSON TargetingValueDayPartTargetingDayPart
2393− toJSON AddOrderDealsResponse{..}
2369+ where
2370+ toJSON TargetingValueDayPartTargetingDayPart{..}
2394 = object
2371 = object
2395 (catMaybes
2372 (catMaybes
2396− [("deals" .=) <$> _aodrDeals,
2373+ [("endHour" .=) <$> _tvdptdpEndHour,
2397− ("orderRevisionNumber" .=) <$>
2374+ ("startHour" .=) <$> _tvdptdpStartHour,
2398− _aodrOrderRevisionNumber])
2375+ ("startMinute" .=) <$> _tvdptdpStartMinute,
2376+ ("dayOfWeek" .=) <$> _tvdptdpDayOfWeek,
2377+ ("endMinute" .=) <$> _tvdptdpEndMinute])
2401-- /See:/ 'pretargetingConfigList' smart constructor.
2380-- /See:/ 'pretargetingConfigList' smart constructor.
@@ -2548,47 +2527,6 @@ instance ToJSON BuyerDTO where
2548 ("displayName" .=) <$> _buyDisplayName,
2527 ("displayName" .=) <$> _buyDisplayName,
2549 ("id" .=) <$> _buyId])
2528 ("id" .=) <$> _buyId])
2552−-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2553−newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2554− { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
2555− } deriving (Eq,Show,Data,Typeable,Generic)
2557−-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2559−-- Use one of the following lenses to modify other fields as desired:
2561−-- * 'dtngfptFixedPrices'
2562−dealTermsNonGuaranteedFixedPriceTerms
2563− :: DealTermsNonGuaranteedFixedPriceTerms
2564−dealTermsNonGuaranteedFixedPriceTerms =
2565− DealTermsNonGuaranteedFixedPriceTerms
2566− { _dtngfptFixedPrices = Nothing
2569−-- | Fixed price for the specified buyer.
2570−dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2572− = lens _dtngfptFixedPrices
2573− (\ s a -> s{_dtngfptFixedPrices = a})
2578− DealTermsNonGuaranteedFixedPriceTerms where
2580− = withObject "DealTermsNonGuaranteedFixedPriceTerms"
2582− DealTermsNonGuaranteedFixedPriceTerms <$>
2583− (o .:? "fixedPrices" .!= mempty))
2585−instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2587− toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
2590− [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2593-- /See:/ 'adSlotDTO' smart constructor.
2531-- /See:/ 'adSlotDTO' smart constructor.
2594data AdSlotDTO = AdSlotDTO
2532data AdSlotDTO = AdSlotDTO
@@ -2655,27 +2593,68 @@ asdtoDescription
2655 = lens _asdtoDescription
2593 = lens _asdtoDescription
2656 (\ s a -> s{_asdtoDescription = a})
2594 (\ s a -> s{_asdtoDescription = a})
2658−instance FromJSON AdSlotDTO where
2596+instance FromJSON AdSlotDTO where
2598+ = withObject "AdSlotDTO"
2601+ (o .:? "webPropertyId") <*> (o .:? "size") <*>
2602+ (o .:? "channelCode")
2603+ <*> (o .:? "channelId")
2605+ <*> (o .:? "description"))
2607+instance ToJSON AdSlotDTO where
2608+ toJSON AdSlotDTO{..}
2611+ [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2612+ ("size" .=) <$> _asdtoSize,
2613+ ("channelCode" .=) <$> _asdtoChannelCode,
2614+ ("channelId" .=) <$> _asdtoChannelId,
2615+ ("name" .=) <$> _asdtoName,
2616+ ("description" .=) <$> _asdtoDescription])
2619+-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2620+newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2621+ { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
2622+ } deriving (Eq,Show,Data,Typeable,Generic)
2624+-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2626+-- Use one of the following lenses to modify other fields as desired:
2628+-- * 'dtngfptFixedPrices'
2629+dealTermsNonGuaranteedFixedPriceTerms
2630+ :: DealTermsNonGuaranteedFixedPriceTerms
2631+dealTermsNonGuaranteedFixedPriceTerms =
2632+ DealTermsNonGuaranteedFixedPriceTerms
2633+ { _dtngfptFixedPrices = Nothing
2636+-- | Fixed price for the specified buyer.
2637+dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2639+ = lens _dtngfptFixedPrices
2640+ (\ s a -> s{_dtngfptFixedPrices = a})
2645+ DealTermsNonGuaranteedFixedPriceTerms where
2659 parseJSON
2646 parseJSON
2660− = withObject "AdSlotDTO"
2647+ = withObject "DealTermsNonGuaranteedFixedPriceTerms"
2662− AdSlotDTO <$>
2649+ DealTermsNonGuaranteedFixedPriceTerms <$>
2663− (o .:? "webPropertyId") <*> (o .:? "size") <*>
2650+ (o .:? "fixedPrices" .!= mempty))
2664− (o .:? "channelCode")
2665− <*> (o .:? "channelId")
2667− <*> (o .:? "description"))
2669−instance ToJSON AdSlotDTO where
2652+instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2670− toJSON AdSlotDTO{..}
2653+ where
2654+ toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
2671 = object
2655 = object
2672 (catMaybes
2656 (catMaybes
2673− [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2657+ [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2674− ("size" .=) <$> _asdtoSize,
2675− ("channelCode" .=) <$> _asdtoChannelCode,
2676− ("channelId" .=) <$> _asdtoChannelId,
2677− ("name" .=) <$> _asdtoName,
2678− ("description" .=) <$> _asdtoDescription])
2680-- | The configuration data for an Ad Exchange performance report list.
2659-- | The configuration data for an Ad Exchange performance report list.
@@ -2987,6 +2966,105 @@ instance ToJSON PerformanceReport where
2987 ("pixelMatchRequests" .=) <$> _prPixelMatchRequests,
2966 ("pixelMatchRequests" .=) <$> _prPixelMatchRequests,
2988 ("outOfQuota" .=) <$> _prOutOfQuota])
2967 ("outOfQuota" .=) <$> _prOutOfQuota])
2970+-- /See:/ 'pretargetingConfigExcludedPlacementsItem' smart constructor.
2971+data PretargetingConfigExcludedPlacementsItem = PretargetingConfigExcludedPlacementsItem
2972+ { _pcepiToken :: !(Maybe Text)
2973+ , _pcepiType :: !(Maybe Text)
2974+ } deriving (Eq,Show,Data,Typeable,Generic)
2976+-- | Creates a value of 'PretargetingConfigExcludedPlacementsItem' with the minimum fields required to make a request.
2978+-- Use one of the following lenses to modify other fields as desired:
2983+pretargetingConfigExcludedPlacementsItem
2984+ :: PretargetingConfigExcludedPlacementsItem
2985+pretargetingConfigExcludedPlacementsItem =
2986+ PretargetingConfigExcludedPlacementsItem
2987+ { _pcepiToken = Nothing
2988+ , _pcepiType = Nothing
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)
2996+ = lens _pcepiToken (\ s a -> s{_pcepiToken = a})
2998+-- | The type of the placement.
2999+pcepiType :: Lens' PretargetingConfigExcludedPlacementsItem (Maybe Text)
3001+ = lens _pcepiType (\ s a -> s{_pcepiType = a})
3004+ PretargetingConfigExcludedPlacementsItem where
3007+ "PretargetingConfigExcludedPlacementsItem"
3009+ PretargetingConfigExcludedPlacementsItem <$>
3010+ (o .:? "token") <*> (o .:? "type"))
3013+ PretargetingConfigExcludedPlacementsItem where
3014+ toJSON PretargetingConfigExcludedPlacementsItem{..}
3017+ [("token" .=) <$> _pcepiToken,
3018+ ("type" .=) <$> _pcepiType])
3021+-- /See:/ 'seller' smart constructor.
3022+data Seller = Seller
3023+ { _sAccountId :: !(Maybe Text)
3024+ , _sSubAccountId :: !(Maybe Text)
3025+ } deriving (Eq,Show,Data,Typeable,Generic)
3027+-- | Creates a value of 'Seller' with the minimum fields required to make a request.
3029+-- Use one of the following lenses to modify other fields as desired:
3033+-- * 'sSubAccountId'
3038+ { _sAccountId = Nothing
3039+ , _sSubAccountId = Nothing
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)
3046+ = lens _sAccountId (\ s a -> s{_sAccountId = a})
3048+-- | Optional sub-account id for the seller.
3049+sSubAccountId :: Lens' Seller (Maybe Text)
3051+ = lens _sSubAccountId
3052+ (\ s a -> s{_sSubAccountId = a})
3054+instance FromJSON Seller where
3056+ = withObject "Seller"
3059+ (o .:? "accountId") <*> (o .:? "subAccountId"))
3061+instance ToJSON Seller where
3065+ [("accountId" .=) <$> _sAccountId,
3066+ ("subAccountId" .=) <$> _sSubAccountId])
2990-- | Configuration data for an Ad Exchange buyer account.
3068-- | Configuration data for an Ad Exchange buyer account.
2992-- /See:/ 'account' smart constructor.
3070-- /See:/ 'account' smart constructor.
@@ -2998,7 +3076,7 @@ data Account = Account
2998 , _aCookieMatchingNid :: !(Maybe Text)
3076 , _aCookieMatchingNid :: !(Maybe Text)
2999 , _aNumberActiveCreatives :: !(Maybe Int32)
3077 , _aNumberActiveCreatives :: !(Maybe Int32)
3000 , _aId :: !(Maybe Int32)
3078 , _aId :: !(Maybe Int32)
3001− , _aBidderLocation :: !(Maybe [BidderLocationItem])
3079+ , _aBidderLocation :: !(Maybe [AccountBidderLocationItem])
3002 } deriving (Eq,Show,Data,Typeable,Generic)
3080 } deriving (Eq,Show,Data,Typeable,Generic)
3004-- | Creates a value of 'Account' with the minimum fields required to make a request.
3082-- | Creates a value of 'Account' with the minimum fields required to make a request.
@@ -3080,7 +3158,7 @@ aId :: Lens' Account (Maybe Int32)
3080aId = lens _aId (\ s a -> s{_aId = a})
3158aId = lens _aId (\ s a -> s{_aId = a})
3082-- | Your bidder locations that have distinct URLs.
3160-- | Your bidder locations that have distinct URLs.
3083−aBidderLocation :: Lens' Account [BidderLocationItem]
3161+aBidderLocation :: Lens' Account [AccountBidderLocationItem]
3084aBidderLocation
3162aBidderLocation
3085 = lens _aBidderLocation
3163 = lens _aBidderLocation
3086 (\ s a -> s{_aBidderLocation = a})
3164 (\ s a -> s{_aBidderLocation = a})
@@ -3116,54 +3194,6 @@ instance ToJSON Account where
3116 ("id" .=) <$> _aId,
3194 ("id" .=) <$> _aId,
3117 ("bidderLocation" .=) <$> _aBidderLocation])
3195 ("bidderLocation" .=) <$> _aBidderLocation])
3120−-- /See:/ 'seller' smart constructor.
3121−data Seller = Seller
3122− { _sAccountId :: !(Maybe Text)
3123− , _sSubAccountId :: !(Maybe Text)
3124− } deriving (Eq,Show,Data,Typeable,Generic)
3126−-- | Creates a value of 'Seller' with the minimum fields required to make a request.
3128−-- Use one of the following lenses to modify other fields as desired:
3132−-- * 'sSubAccountId'
3137− { _sAccountId = Nothing
3138− , _sSubAccountId = Nothing
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)
3145− = lens _sAccountId (\ s a -> s{_sAccountId = a})
3147−-- | Optional sub-account id for the seller.
3148−sSubAccountId :: Lens' Seller (Maybe Text)
3150− = lens _sSubAccountId
3151− (\ s a -> s{_sSubAccountId = a})
3153−instance FromJSON Seller where
3155− = withObject "Seller"
3158− (o .:? "accountId") <*> (o .:? "subAccountId"))
3160−instance ToJSON Seller where
3164− [("accountId" .=) <$> _sAccountId,
3165− ("subAccountId" .=) <$> _sSubAccountId])
3168-- /See:/ 'deleteOrderDealsRequest' smart constructor.
3198-- /See:/ 'deleteOrderDealsRequest' smart constructor.
3169data DeleteOrderDealsRequest = DeleteOrderDealsRequest
3199data DeleteOrderDealsRequest = DeleteOrderDealsRequest
@@ -3226,41 +3256,6 @@ instance ToJSON DeleteOrderDealsRequest where
3226 ("orderRevisionNumber" .=) <$>
3256 ("orderRevisionNumber" .=) <$>
3227 _dodrOrderRevisionNumber])
3257 _dodrOrderRevisionNumber])
3230−-- /See:/ 'getOrderDealsResponse' smart constructor.
3231−newtype GetOrderDealsResponse = GetOrderDealsResponse
3232− { _godrDeals :: Maybe [MarketplaceDeal]
3233− } deriving (Eq,Show,Data,Typeable,Generic)
3235−-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request.
3237−-- Use one of the following lenses to modify other fields as desired:
3240−getOrderDealsResponse
3241− :: GetOrderDealsResponse
3242−getOrderDealsResponse =
3243− GetOrderDealsResponse
3244− { _godrDeals = Nothing
3247−-- | List of deals for the order
3248−godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
3250− = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
3254−instance FromJSON GetOrderDealsResponse where
3256− = withObject "GetOrderDealsResponse"
3258− GetOrderDealsResponse <$> (o .:? "deals" .!= mempty))
3260−instance ToJSON GetOrderDealsResponse where
3261− toJSON GetOrderDealsResponse{..}
3262− = object (catMaybes [("deals" .=) <$> _godrDeals])
3265-- /See:/ 'contactInformation' smart constructor.
3260-- /See:/ 'contactInformation' smart constructor.
3266data ContactInformation = ContactInformation
3261data ContactInformation = ContactInformation
@@ -3304,66 +3299,148 @@ instance ToJSON ContactInformation where
3304 (catMaybes
3299 (catMaybes
3305 [("email" .=) <$> _ciEmail, ("name" .=) <$> _ciName])
3300 [("email" .=) <$> _ciEmail, ("name" .=) <$> _ciName])
3302+-- | A smaller image, for the advertiser logo.
3308−-- /See:/ 'targetingValueCreativeSize' smart constructor.
3304+-- /See:/ 'creativeNATiveAdLogo' smart constructor.
3309−data TargetingValueCreativeSize = TargetingValueCreativeSize
3305+data CreativeNATiveAdLogo = CreativeNATiveAdLogo
3310− { _tvcsSize :: !(Maybe TargetingValueSize)
3306+ { _cnatalHeight :: !(Maybe Int32)
3311− , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])
3307+ , _cnatalURL :: !(Maybe Text)
3312− , _tvcsCreativeSizeType :: !(Maybe Text)
3308+ , _cnatalWidth :: !(Maybe Int32)
3309+ } deriving (Eq,Show,Data,Typeable,Generic)
3311+-- | Creates a value of 'CreativeNATiveAdLogo' with the minimum fields required to make a request.
3313+-- Use one of the following lenses to modify other fields as desired:
3320+creativeNATiveAdLogo
3321+ :: CreativeNATiveAdLogo
3322+creativeNATiveAdLogo =
3323+ CreativeNATiveAdLogo
3324+ { _cnatalHeight = Nothing
3325+ , _cnatalURL = Nothing
3326+ , _cnatalWidth = Nothing
3329+cnatalHeight :: Lens' CreativeNATiveAdLogo (Maybe Int32)
3331+ = lens _cnatalHeight (\ s a -> s{_cnatalHeight = a})
3333+cnatalURL :: Lens' CreativeNATiveAdLogo (Maybe Text)
3335+ = lens _cnatalURL (\ s a -> s{_cnatalURL = a})
3337+cnatalWidth :: Lens' CreativeNATiveAdLogo (Maybe Int32)
3339+ = lens _cnatalWidth (\ s a -> s{_cnatalWidth = a})
3341+instance FromJSON CreativeNATiveAdLogo where
3343+ = withObject "CreativeNATiveAdLogo"
3345+ CreativeNATiveAdLogo <$>
3346+ (o .:? "height") <*> (o .:? "url") <*>
3349+instance ToJSON CreativeNATiveAdLogo where
3350+ toJSON CreativeNATiveAdLogo{..}
3353+ [("height" .=) <$> _cnatalHeight,
3354+ ("url" .=) <$> _cnatalURL,
3355+ ("width" .=) <$> _cnatalWidth])
3358+-- /See:/ 'getOrderDealsResponse' smart constructor.
3359+newtype GetOrderDealsResponse = GetOrderDealsResponse
3360+ { _godrDeals :: Maybe [MarketplaceDeal]
3361+ } deriving (Eq,Show,Data,Typeable,Generic)
3363+-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request.
3365+-- Use one of the following lenses to modify other fields as desired:
3368+getOrderDealsResponse
3369+ :: GetOrderDealsResponse
3370+getOrderDealsResponse =
3371+ GetOrderDealsResponse
3372+ { _godrDeals = Nothing
3375+-- | List of deals for the order
3376+godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
3378+ = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
3382+instance FromJSON GetOrderDealsResponse where
3384+ = withObject "GetOrderDealsResponse"
3386+ GetOrderDealsResponse <$> (o .:? "deals" .!= mempty))
3388+instance ToJSON GetOrderDealsResponse where
3389+ toJSON GetOrderDealsResponse{..}
3390+ = object (catMaybes [("deals" .=) <$> _godrDeals])
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
3396+-- /See:/ 'performanceReportList' smart constructor.
3397+data PerformanceReportList = PerformanceReportList
3398+ { _prlKind :: !Text
3399+ , _prlPerformanceReport :: !(Maybe [PerformanceReport])
3313 } deriving (Eq,Show,Data,Typeable,Generic)
3400 } deriving (Eq,Show,Data,Typeable,Generic)
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.
3317-- Use one of the following lenses to modify other fields as desired:
3404-- Use one of the following lenses to modify other fields as desired:
3319−-- * 'tvcsSize'
3406+-- * 'prlKind'
3321−-- * 'tvcsCompanionSizes'
3323−-- * 'tvcsCreativeSizeType'
3408+-- * 'prlPerformanceReport'
3324−targetingValueCreativeSize
3409+performanceReportList
3325− :: TargetingValueCreativeSize
3410+ :: PerformanceReportList
3326−targetingValueCreativeSize =
3411+performanceReportList =
3327− TargetingValueCreativeSize
3412+ PerformanceReportList
3328− { _tvcsSize = Nothing
3413+ { _prlKind = "adexchangebuyer#performanceReportList"
3329− , _tvcsCompanionSizes = Nothing
3414+ , _prlPerformanceReport = Nothing
3330− , _tvcsCreativeSizeType = Nothing
3333−-- | For regular creative size type, specifies the size of the creative.
3417+-- | Resource type.
3334−tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)
3418+prlKind :: Lens' PerformanceReportList Text
3335−tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
3419+prlKind = lens _prlKind (\ s a -> s{_prlKind = a})
3337−-- | For video size type, the list of companion sizes.
3421+-- | A list of performance reports relevant for the account.
3338−tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [TargetingValueSize]
3422+prlPerformanceReport :: Lens' PerformanceReportList [PerformanceReport]
3339−tvcsCompanionSizes
3423+prlPerformanceReport
3340− = lens _tvcsCompanionSizes
3424+ = lens _prlPerformanceReport
3341− (\ s a -> s{_tvcsCompanionSizes = a})
3425+ (\ s a -> s{_prlPerformanceReport = a})
3342 . _Default
3426 . _Default
3343 . _Coerce
3427 . _Coerce
3345−-- | The Creative size type.
3346−tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
3347−tvcsCreativeSizeType
3348− = lens _tvcsCreativeSizeType
3349− (\ s a -> s{_tvcsCreativeSizeType = a})
3351−instance FromJSON TargetingValueCreativeSize where
3429+instance FromJSON PerformanceReportList where
3352 parseJSON
3430 parseJSON
3353− = withObject "TargetingValueCreativeSize"
3431+ = withObject "PerformanceReportList"
3355− TargetingValueCreativeSize <$>
3433+ PerformanceReportList <$>
3356− (o .:? "size") <*>
3434+ (o .:? "kind" .!=
3357− (o .:? "companionSizes" .!= mempty)
3435+ "adexchangebuyer#performanceReportList")
3358− <*> (o .:? "creativeSizeType"))
3436+ <*> (o .:? "performanceReport" .!= mempty))
3360−instance ToJSON TargetingValueCreativeSize where
3438+instance ToJSON PerformanceReportList where
3361− toJSON TargetingValueCreativeSize{..}
3439+ toJSON PerformanceReportList{..}
3362 = object
3440 = object
3363 (catMaybes
3441 (catMaybes
3364− [("size" .=) <$> _tvcsSize,
3442+ [Just ("kind" .= _prlKind),
3365− ("companionSizes" .=) <$> _tvcsCompanionSizes,
3443+ ("performanceReport" .=) <$> _prlPerformanceReport])
3366− ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
3369-- /See:/ 'pretargetingConfig' smart constructor.
3446-- /See:/ 'pretargetingConfig' smart constructor.
@@ -3375,16 +3452,16 @@ data PretargetingConfig = PretargetingConfig
3375 , _pcSupportedCreativeAttributes :: !(Maybe [Int64])
3452 , _pcSupportedCreativeAttributes :: !(Maybe [Int64])
3376 , _pcUserLists :: !(Maybe [Int64])
3453 , _pcUserLists :: !(Maybe [Int64])
3377 , _pcKind :: !Text
3454 , _pcKind :: !Text
3378− , _pcExcludedPlacements :: !(Maybe [ExcludedPlacementsItem])
3455+ , _pcExcludedPlacements :: !(Maybe [PretargetingConfigExcludedPlacementsItem])
3379 , _pcMobileDevices :: !(Maybe [Int64])
3456 , _pcMobileDevices :: !(Maybe [Int64])
3380 , _pcLanguages :: !(Maybe [Text])
3457 , _pcLanguages :: !(Maybe [Text])
3381 , _pcVerticals :: !(Maybe [Int64])
3458 , _pcVerticals :: !(Maybe [Int64])
3382 , _pcConfigId :: !(Maybe Int64)
3459 , _pcConfigId :: !(Maybe Int64)
3383− , _pcPlacements :: !(Maybe [PlacementsItem])
3460+ , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem])
3384 , _pcExcludedUserLists :: !(Maybe [Int64])
3461 , _pcExcludedUserLists :: !(Maybe [Int64])
3385 , _pcConfigName :: !(Maybe Text)
3462 , _pcConfigName :: !(Maybe Text)
3386 , _pcGeoCriteriaIds :: !(Maybe [Int64])
3463 , _pcGeoCriteriaIds :: !(Maybe [Int64])
3387− , _pcDimensions :: !(Maybe [DimensionsItem])
3464+ , _pcDimensions :: !(Maybe [PretargetingConfigDimensionsItem])
3388 , _pcExcludedVerticals :: !(Maybe [Int64])
3465 , _pcExcludedVerticals :: !(Maybe [Int64])
3389 , _pcCreativeType :: !(Maybe [Text])
3466 , _pcCreativeType :: !(Maybe [Text])
3390 , _pcIsActive :: !(Maybe Bool)
3467 , _pcIsActive :: !(Maybe Bool)
@@ -3529,7 +3606,7 @@ pcKind :: Lens' PretargetingConfig Text
3529pcKind = lens _pcKind (\ s a -> s{_pcKind = a})
3606pcKind = lens _pcKind (\ s a -> s{_pcKind = a})
3531-- | Requests containing any of these placements will not match.
3608-- | Requests containing any of these placements will not match.
3532−pcExcludedPlacements :: Lens' PretargetingConfig [ExcludedPlacementsItem]
3609+pcExcludedPlacements :: Lens' PretargetingConfig [PretargetingConfigExcludedPlacementsItem]
3533pcExcludedPlacements
3610pcExcludedPlacements
3534 = lens _pcExcludedPlacements
3611 = lens _pcExcludedPlacements
3535 (\ s a -> s{_pcExcludedPlacements = a})
3612 (\ s a -> s{_pcExcludedPlacements = a})
@@ -3566,7 +3643,7 @@ pcConfigId
3566 = lens _pcConfigId (\ s a -> s{_pcConfigId = a})
3643 = lens _pcConfigId (\ s a -> s{_pcConfigId = a})
3568-- | Requests containing any of these placements will match.
3645-- | Requests containing any of these placements will match.
3569−pcPlacements :: Lens' PretargetingConfig [PlacementsItem]
3646+pcPlacements :: Lens' PretargetingConfig [PretargetingConfigPlacementsItem]
3570pcPlacements
3647pcPlacements
3571 = lens _pcPlacements (\ s a -> s{_pcPlacements = a})
3648 = lens _pcPlacements (\ s a -> s{_pcPlacements = a})
3572 . _Default
3649 . _Default
@@ -3595,7 +3672,7 @@ pcGeoCriteriaIds
3596-- | Requests which allow one of these (width, height) pairs will match. All
3673-- | Requests which allow one of these (width, height) pairs will match. All
3597-- pairs must be supported ad dimensions.
3674-- pairs must be supported ad dimensions.
3598−pcDimensions :: Lens' PretargetingConfig [DimensionsItem]
3675+pcDimensions :: Lens' PretargetingConfig [PretargetingConfigDimensionsItem]
3599pcDimensions
3676pcDimensions
3600 = lens _pcDimensions (\ s a -> s{_pcDimensions = a})
3677 = lens _pcDimensions (\ s a -> s{_pcDimensions = a})
3601 . _Default
3678 . _Default
@@ -3713,58 +3790,116 @@ instance ToJSON PretargetingConfig where
3713 ("mobileOperatingSystemVersions" .=) <$>
3790 ("mobileOperatingSystemVersions" .=) <$>
3714 _pcMobileOperatingSystemVersions])
3791 _pcMobileOperatingSystemVersions])
3716−-- | The configuration data for an Ad Exchange performance report list.
3793+-- | The filtering reasons for the creative. Read-only. This field should not
3717−-- https:\/\/sites.google.com\/a\/google.com\/adx-integration\/Home\/engineering\/binary-releases\/rtb-api-release
3794+-- be set in requests.
3718−-- https:\/\/cs.corp.google.com\/#piper\/\/\/depot\/google3\/contentads\/adx\/tools\/rtb_api\/adxrtb.py
3720−-- /See:/ 'performanceReportList' smart constructor.
3796+-- /See:/ 'creativeFilteringReasons' smart constructor.
3721−data PerformanceReportList = PerformanceReportList
3797+data CreativeFilteringReasons = CreativeFilteringReasons
3722− { _prlKind :: !Text
3798+ { _cfrReasons :: !(Maybe [CreativeFilteringReasonsReasonsItem])
3723− , _prlPerformanceReport :: !(Maybe [PerformanceReport])
3799+ , _cfrDate :: !(Maybe Text)
3724 } deriving (Eq,Show,Data,Typeable,Generic)
3800 } deriving (Eq,Show,Data,Typeable,Generic)
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.
3728-- Use one of the following lenses to modify other fields as desired:
3804-- Use one of the following lenses to modify other fields as desired:
3730−-- * 'prlKind'
3806+-- * 'cfrReasons'
3732−-- * 'prlPerformanceReport'
3808+-- * 'cfrDate'
3733−performanceReportList
3809+creativeFilteringReasons
3734− :: PerformanceReportList
3810+ :: CreativeFilteringReasons
3735−performanceReportList =
3811+creativeFilteringReasons =
3736− PerformanceReportList
3812+ CreativeFilteringReasons
3737− { _prlKind = "adexchangebuyer#performanceReportList"
3813+ { _cfrReasons = Nothing
3738− , _prlPerformanceReport = Nothing
3814+ , _cfrDate = Nothing
3741−-- | Resource type.
3817+-- | The filtering reasons.
3742−prlKind :: Lens' PerformanceReportList Text
3818+cfrReasons :: Lens' CreativeFilteringReasons [CreativeFilteringReasonsReasonsItem]
3743−prlKind = lens _prlKind (\ s a -> s{_prlKind = a})
3819+cfrReasons
3820+ = lens _cfrReasons (\ s a -> s{_cfrReasons = a}) .
3745−-- | A list of performance reports relevant for the account.
3824+-- | The date in ISO 8601 format for the data. The data is collected from
3746−prlPerformanceReport :: Lens' PerformanceReportList [PerformanceReport]
3825+-- 00:00:00 to 23:59:59 in PST.
3747−prlPerformanceReport
3826+cfrDate :: Lens' CreativeFilteringReasons (Maybe Text)
3748− = lens _prlPerformanceReport
3827+cfrDate = lens _cfrDate (\ s a -> s{_cfrDate = a})
3749− (\ s a -> s{_prlPerformanceReport = a})
3828+
3829+instance FromJSON CreativeFilteringReasons where
3831+ = withObject "CreativeFilteringReasons"
3833+ CreativeFilteringReasons <$>
3834+ (o .:? "reasons" .!= mempty) <*> (o .:? "date"))
3836+instance ToJSON CreativeFilteringReasons where
3837+ toJSON CreativeFilteringReasons{..}
3840+ [("reasons" .=) <$> _cfrReasons,
3841+ ("date" .=) <$> _cfrDate])
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)
3851+-- | Creates a value of 'TargetingValueCreativeSize' with the minimum fields required to make a request.
3853+-- Use one of the following lenses to modify other fields as desired:
3857+-- * 'tvcsCompanionSizes'
3859+-- * 'tvcsCreativeSizeType'
3860+targetingValueCreativeSize
3861+ :: TargetingValueCreativeSize
3862+targetingValueCreativeSize =
3863+ TargetingValueCreativeSize
3864+ { _tvcsSize = Nothing
3865+ , _tvcsCompanionSizes = Nothing
3866+ , _tvcsCreativeSizeType = Nothing
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})
3873+-- | For video size type, the list of companion sizes.
3874+tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [TargetingValueSize]
3876+ = lens _tvcsCompanionSizes
3877+ (\ s a -> s{_tvcsCompanionSizes = a})
3750 . _Default
3878 . _Default
3751 . _Coerce
3879 . _Coerce
3881+-- | The Creative size type.
3882+tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
3883+tvcsCreativeSizeType
3884+ = lens _tvcsCreativeSizeType
3885+ (\ s a -> s{_tvcsCreativeSizeType = a})
3753−instance FromJSON PerformanceReportList where
3887+instance FromJSON TargetingValueCreativeSize where
3754 parseJSON
3888 parseJSON
3755− = withObject "PerformanceReportList"
3889+ = withObject "TargetingValueCreativeSize"
3757− PerformanceReportList <$>
3891+ TargetingValueCreativeSize <$>
3758− (o .:? "kind" .!=
3892+ (o .:? "size") <*>
3759− "adexchangebuyer#performanceReportList")
3893+ (o .:? "companionSizes" .!= mempty)
3760− <*> (o .:? "performanceReport" .!= mempty))
3894+ <*> (o .:? "creativeSizeType"))
3762−instance ToJSON PerformanceReportList where
3896+instance ToJSON TargetingValueCreativeSize where
3763− toJSON PerformanceReportList{..}
3897+ toJSON TargetingValueCreativeSize{..}
3764 = object
3898 = object
3765 (catMaybes
3899 (catMaybes
3766− [Just ("kind" .= _prlKind),
3900+ [("size" .=) <$> _tvcsSize,
3767− ("performanceReport" .=) <$> _prlPerformanceReport])
3901+ ("companionSizes" .=) <$> _tvcsCompanionSizes,
3902+ ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
3770-- /See:/ 'negotiationDTO' smart constructor.
3905-- /See:/ 'negotiationDTO' smart constructor.
@@ -3972,68 +4107,6 @@ instance ToJSON NegotiationDTO where
3972 _ndtoSellerEmailContacts,
4107 _ndtoSellerEmailContacts,
3973 ("buyer" .=) <$> _ndtoBuyer])
4108 ("buyer" .=) <$> _ndtoBuyer])
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)
3984−-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request.
3986−-- Use one of the following lenses to modify other fields as desired:
3994−-- * 'asDescription'
3999− { _asNumCookies = Nothing
4000− , _asName = Nothing
4002− , _asDescription = Nothing
4005−asNumCookies :: Lens' AudienceSegment (Maybe Int64)
4007− = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
4009−asName :: Lens' AudienceSegment (Maybe Text)
4010−asName = lens _asName (\ s a -> s{_asName = a})
4012−asId :: Lens' AudienceSegment (Maybe Int64)
4013−asId = lens _asId (\ s a -> s{_asId = a})
4015−asDescription :: Lens' AudienceSegment (Maybe Text)
4017− = lens _asDescription
4018− (\ s a -> s{_asDescription = a})
4020−instance FromJSON AudienceSegment where
4022− = withObject "AudienceSegment"
4024− AudienceSegment <$>
4025− (o .:? "numCookies") <*> (o .:? "name") <*>
4027− <*> (o .:? "description"))
4029−instance ToJSON AudienceSegment where
4030− toJSON AudienceSegment{..}
4033− [("numCookies" .=) <$> _asNumCookies,
4034− ("name" .=) <$> _asName, ("id" .=) <$> _asId,
4035− ("description" .=) <$> _asDescription])
4038-- /See:/ 'offerDTO' smart constructor.
4111-- /See:/ 'offerDTO' smart constructor.
4039data OfferDTO = OfferDTO
4112data OfferDTO = OfferDTO
@@ -4229,99 +4302,116 @@ instance ToJSON OfferDTO where
4229 ("isOpen" .=) <$> _odtoIsOpen])
4302 ("isOpen" .=) <$> _odtoIsOpen])
4232−-- /See:/ 'targetingValueSize' smart constructor.
4305+-- /See:/ 'audienceSegment' smart constructor.
4233−data TargetingValueSize = TargetingValueSize
4306+data AudienceSegment = AudienceSegment
4234− { _tvsHeight :: !(Maybe Int32)
4307+ { _asNumCookies :: !(Maybe Int64)
4235− , _tvsWidth :: !(Maybe Int32)
4308+ , _asName :: !(Maybe Text)
4309+ , _asId :: !(Maybe Int64)
4310+ , _asDescription :: !(Maybe Text)
4236 } deriving (Eq,Show,Data,Typeable,Generic)
4311 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4240-- Use one of the following lenses to modify other fields as desired:
4315-- Use one of the following lenses to modify other fields as desired:
4242−-- * 'tvsHeight'
4317+-- * 'asNumCookies'
4244−-- * 'tvsWidth'
4319+-- * 'asName'
4245−targetingValueSize
4320+--
4246− :: TargetingValueSize
4321+-- * 'asId'
4247−targetingValueSize =
4322+--
4248− TargetingValueSize
4323+-- * 'asDescription'
4328+ { _asNumCookies = Nothing
4329+ , _asName = Nothing
4249− { _tvsHeight = Nothing
4330+ , _asId = Nothing
4250− , _tvsWidth = Nothing
4331+ , _asDescription = Nothing
4253−-- | The height of the creative.
4334+asNumCookies :: Lens' AudienceSegment (Maybe Int64)
4254−tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4335+asNumCookies
4255−tvsHeight
4336+ = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
4256− = lens _tvsHeight (\ s a -> s{_tvsHeight = a})
4258−-- | The width of the creative.
4338+asName :: Lens' AudienceSegment (Maybe Text)
4259−tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4339+asName = lens _asName (\ s a -> s{_asName = a})
4260−tvsWidth = lens _tvsWidth (\ s a -> s{_tvsWidth = a})
4341+asId :: Lens' AudienceSegment (Maybe Int64)
4342+asId = lens _asId (\ s a -> s{_asId = a})
4344+asDescription :: Lens' AudienceSegment (Maybe Text)
4346+ = lens _asDescription
4347+ (\ s a -> s{_asDescription = a})
4262−instance FromJSON TargetingValueSize where
4349+instance FromJSON AudienceSegment where
4263 parseJSON
4350 parseJSON
4264− = withObject "TargetingValueSize"
4351+ = withObject "AudienceSegment"
4266− TargetingValueSize <$>
4353+ AudienceSegment <$>
4267− (o .:? "height") <*> (o .:? "width"))
4354+ (o .:? "numCookies") <*> (o .:? "name") <*>
4356+ <*> (o .:? "description"))
4269−instance ToJSON TargetingValueSize where
4358+instance ToJSON AudienceSegment where
4270− toJSON TargetingValueSize{..}
4359+ toJSON AudienceSegment{..}
4271 = object
4360 = object
4272 (catMaybes
4361 (catMaybes
4273− [("height" .=) <$> _tvsHeight,
4362+ [("numCookies" .=) <$> _asNumCookies,
4274− ("width" .=) <$> _tvsWidth])
4363+ ("name" .=) <$> _asName, ("id" .=) <$> _asId,
4364+ ("description" .=) <$> _asDescription])
4276−-- | The filtering reasons for the creative. Read-only. This field should not
4366+-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
4277−-- be set in requests.
4367+-- access to. Each entry in the feed corresponds to a single billing info.
4279−-- /See:/ 'filteringReasons' smart constructor.
4369+-- /See:/ 'billingInfoList' smart constructor.
4280−data FilteringReasons = FilteringReasons
4370+data BillingInfoList = BillingInfoList
4281− { _frReasons :: !(Maybe [ReasonsItem])
4371+ { _bilKind :: !Text
4282− , _frDate :: !(Maybe Text)
4372+ , _bilItems :: !(Maybe [BillingInfo])
4283 } deriving (Eq,Show,Data,Typeable,Generic)
4373 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4287-- Use one of the following lenses to modify other fields as desired:
4377-- Use one of the following lenses to modify other fields as desired:
4289−-- * 'frReasons'
4379+-- * 'bilKind'
4291−-- * 'frDate'
4381+-- * 'bilItems'
4292−filteringReasons
4382+billingInfoList
4293− :: FilteringReasons
4383+ :: BillingInfoList
4294−filteringReasons =
4384+billingInfoList =
4295− FilteringReasons
4385+ BillingInfoList
4296− { _frReasons = Nothing
4386+ { _bilKind = "adexchangebuyer#billingInfoList"
4297− , _frDate = Nothing
4387+ , _bilItems = Nothing
4300−-- | The filtering reasons.
4390+-- | Resource type.
4301−frReasons :: Lens' FilteringReasons [ReasonsItem]
4391+bilKind :: Lens' BillingInfoList Text
4302−frReasons
4392+bilKind = lens _bilKind (\ s a -> s{_bilKind = a})
4303− = lens _frReasons (\ s a -> s{_frReasons = a}) .
4393+
4394+-- | A list of billing info relevant for your account.
4395+bilItems :: Lens' BillingInfoList [BillingInfo]
4397+ = lens _bilItems (\ s a -> s{_bilItems = a}) .
4304 _Default
4398 _Default
4305 . _Coerce
4399 . _Coerce
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})
4312−instance FromJSON FilteringReasons where
4401+instance FromJSON BillingInfoList where
4313 parseJSON
4402 parseJSON
4314− = withObject "FilteringReasons"
4403+ = withObject "BillingInfoList"
4316− FilteringReasons <$>
4405+ BillingInfoList <$>
4317− (o .:? "reasons" .!= mempty) <*> (o .:? "date"))
4406+ (o .:? "kind" .!= "adexchangebuyer#billingInfoList")
4407+ <*> (o .:? "items" .!= mempty))
4319−instance ToJSON FilteringReasons where
4409+instance ToJSON BillingInfoList where
4320− toJSON FilteringReasons{..}
4410+ toJSON BillingInfoList{..}
4321 = object
4411 = object
4322 (catMaybes
4412 (catMaybes
4323− [("reasons" .=) <$> _frReasons,
4413+ [Just ("kind" .= _bilKind),
4324− ("date" .=) <$> _frDate])
4414+ ("items" .=) <$> _bilItems])
4326-- | An offer is segment of inventory that a seller wishes to sell. It is
4416-- | An offer is segment of inventory that a seller wishes to sell. It is
4327-- associated with certain terms and targeting information which helps
4417-- associated with certain terms and targeting information which helps
@@ -4564,146 +4654,141 @@ instance ToJSON MarketplaceOffer where
4564 ("labels" .=) <$> _moLabels])
4654 ("labels" .=) <$> _moLabels])
4567−-- /See:/ 'getNegotiationsRequest' smart constructor.
4657+-- /See:/ 'addOrderNotesResponse' smart constructor.
4568−data GetNegotiationsRequest = GetNegotiationsRequest
4658+newtype AddOrderNotesResponse = AddOrderNotesResponse
4569− { _gnrSinceTimestampMillis :: !(Maybe Int64)
4659+ { _aNotes :: Maybe [MarketplaceNote]
4570− , _gnrFinalized :: !(Maybe Bool)
4571− , _gnrIncludePrivateAuctions :: !(Maybe Bool)
4572 } deriving (Eq,Show,Data,Typeable,Generic)
4660 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4576-- Use one of the following lenses to modify other fields as desired:
4664-- Use one of the following lenses to modify other fields as desired:
4578−-- * 'gnrSinceTimestampMillis'
4666+-- * 'aNotes'
4579−--
4667+addOrderNotesResponse
4580−-- * 'gnrFinalized'
4668+ :: AddOrderNotesResponse
4581−--
4669+addOrderNotesResponse =
4582−-- * 'gnrIncludePrivateAuctions'
4670+ AddOrderNotesResponse
4583−getNegotiationsRequest
4671+ { _aNotes = Nothing
4584− :: GetNegotiationsRequest
4585−getNegotiationsRequest =
4586− GetNegotiationsRequest
4587− { _gnrSinceTimestampMillis = Nothing
4588− , _gnrFinalized = Nothing
4589− , _gnrIncludePrivateAuctions = Nothing
4592−gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
4674+aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4593−gnrSinceTimestampMillis
4675+aNotes
4594− = lens _gnrSinceTimestampMillis
4676+ = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4595− (\ s a -> s{_gnrSinceTimestampMillis = a})
4677+ _Coerce
4597−gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
4599− = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
4601−gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
4602−gnrIncludePrivateAuctions
4603− = lens _gnrIncludePrivateAuctions
4604− (\ s a -> s{_gnrIncludePrivateAuctions = a})
4606−instance FromJSON GetNegotiationsRequest where
4679+instance FromJSON AddOrderNotesResponse where
4607 parseJSON
4680 parseJSON
4608− = withObject "GetNegotiationsRequest"
4681+ = withObject "AddOrderNotesResponse"
4610− GetNegotiationsRequest <$>
4683+ AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
4611− (o .:? "sinceTimestampMillis") <*>
4612− (o .:? "finalized")
4613− <*> (o .:? "includePrivateAuctions"))
4615−instance ToJSON GetNegotiationsRequest where
4685+instance ToJSON AddOrderNotesResponse where
4616− toJSON GetNegotiationsRequest{..}
4686+ toJSON AddOrderNotesResponse{..}
4618− (catMaybes
4687+ = object (catMaybes [("notes" .=) <$> _aNotes])
4619− [("sinceTimestampMillis" .=) <$>
4620− _gnrSinceTimestampMillis,
4621− ("finalized" .=) <$> _gnrFinalized,
4622− ("includePrivateAuctions" .=) <$>
4623− _gnrIncludePrivateAuctions])
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.
4628−-- /See:/ 'billingInfoList' smart constructor.
4690+-- /See:/ 'targetingValueSize' smart constructor.
4629−data BillingInfoList = BillingInfoList
4691+data TargetingValueSize = TargetingValueSize
4630− { _bilKind :: !Text
4692+ { _tvsHeight :: !(Maybe Int32)
4631− , _bilItems :: !(Maybe [BillingInfo])
4693+ , _tvsWidth :: !(Maybe Int32)
4632 } deriving (Eq,Show,Data,Typeable,Generic)
4694 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4636-- Use one of the following lenses to modify other fields as desired:
4698-- Use one of the following lenses to modify other fields as desired:
4638−-- * 'bilKind'
4700+-- * 'tvsHeight'
4640−-- * 'bilItems'
4702+-- * 'tvsWidth'
4641−billingInfoList
4703+targetingValueSize
4642− :: BillingInfoList
4704+ :: TargetingValueSize
4643−billingInfoList =
4705+targetingValueSize =
4644− BillingInfoList
4706+ TargetingValueSize
4645− { _bilKind = "adexchangebuyer#billingInfoList"
4707+ { _tvsHeight = Nothing
4646− , _bilItems = Nothing
4708+ , _tvsWidth = Nothing
4649−-- | Resource type.
4711+-- | The height of the creative.
4650−bilKind :: Lens' BillingInfoList Text
4712+tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4651−bilKind = lens _bilKind (\ s a -> s{_bilKind = a})
4713+tvsHeight
4714+ = lens _tvsHeight (\ s a -> s{_tvsHeight = a})
4653−-- | A list of billing info relevant for your account.
4716+-- | The width of the creative.
4654−bilItems :: Lens' BillingInfoList [BillingInfo]
4717+tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4655−bilItems
4718+tvsWidth = lens _tvsWidth (\ s a -> s{_tvsWidth = a})
4656− = lens _bilItems (\ s a -> s{_bilItems = a}) .
4660−instance FromJSON BillingInfoList where
4720+instance FromJSON TargetingValueSize where
4661 parseJSON
4721 parseJSON
4662− = withObject "BillingInfoList"
4722+ = withObject "TargetingValueSize"
4664− BillingInfoList <$>
4724+ TargetingValueSize <$>
4665− (o .:? "kind" .!= "adexchangebuyer#billingInfoList")
4725+ (o .:? "height") <*> (o .:? "width"))
4666− <*> (o .:? "items" .!= mempty))
4668−instance ToJSON BillingInfoList where
4727+instance ToJSON TargetingValueSize where
4669− toJSON BillingInfoList{..}
4728+ toJSON TargetingValueSize{..}
4670 = object
4729 = object
4671 (catMaybes
4730 (catMaybes
4672− [Just ("kind" .= _bilKind),
4731+ [("height" .=) <$> _tvsHeight,
4673− ("items" .=) <$> _bilItems])
4732+ ("width" .=) <$> _tvsWidth])
4676−-- /See:/ 'addOrderNotesResponse' smart constructor.
4735+-- /See:/ 'getNegotiationsRequest' smart constructor.
4677−newtype AddOrderNotesResponse = AddOrderNotesResponse
4736+data GetNegotiationsRequest = GetNegotiationsRequest
4678− { _aNotes :: Maybe [MarketplaceNote]
4737+ { _gnrSinceTimestampMillis :: !(Maybe Int64)
4738+ , _gnrFinalized :: !(Maybe Bool)
4739+ , _gnrIncludePrivateAuctions :: !(Maybe Bool)
4679 } deriving (Eq,Show,Data,Typeable,Generic)
4740 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4683-- Use one of the following lenses to modify other fields as desired:
4744-- Use one of the following lenses to modify other fields as desired:
4685−-- * 'aNotes'
4746+-- * 'gnrSinceTimestampMillis'
4686−addOrderNotesResponse
4747+--
4687− :: AddOrderNotesResponse
4748+-- * 'gnrFinalized'
4688−addOrderNotesResponse =
4749+--
4689− AddOrderNotesResponse
4750+-- * 'gnrIncludePrivateAuctions'
4690− { _aNotes = Nothing
4751+getNegotiationsRequest
4752+ :: GetNegotiationsRequest
4753+getNegotiationsRequest =
4754+ GetNegotiationsRequest
4755+ { _gnrSinceTimestampMillis = Nothing
4756+ , _gnrFinalized = Nothing
4757+ , _gnrIncludePrivateAuctions = Nothing
4693−aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4760+gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
4694−aNotes
4761+gnrSinceTimestampMillis
4695− = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4762+ = lens _gnrSinceTimestampMillis
4696− _Coerce
4763+ (\ s a -> s{_gnrSinceTimestampMillis = a})
4765+gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
4767+ = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
4769+gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
4770+gnrIncludePrivateAuctions
4771+ = lens _gnrIncludePrivateAuctions
4772+ (\ s a -> s{_gnrIncludePrivateAuctions = a})
4698−instance FromJSON AddOrderNotesResponse where
4774+instance FromJSON GetNegotiationsRequest where
4699 parseJSON
4775 parseJSON
4700− = withObject "AddOrderNotesResponse"
4776+ = withObject "GetNegotiationsRequest"
4702− AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
4778+ GetNegotiationsRequest <$>
4779+ (o .:? "sinceTimestampMillis") <*>
4780+ (o .:? "finalized")
4781+ <*> (o .:? "includePrivateAuctions"))
4704−instance ToJSON AddOrderNotesResponse where
4783+instance ToJSON GetNegotiationsRequest where
4705− toJSON AddOrderNotesResponse{..}
4784+ toJSON GetNegotiationsRequest{..}
4706− = object (catMaybes [("notes" .=) <$> _aNotes])
4786+ (catMaybes
4787+ [("sinceTimestampMillis" .=) <$>
4788+ _gnrSinceTimestampMillis,
4789+ ("finalized" .=) <$> _gnrFinalized,
4790+ ("includePrivateAuctions" .=) <$>
4791+ _gnrIncludePrivateAuctions])
4709-- /See:/ 'moneyDTO' smart constructor.
4794-- /See:/ 'moneyDTO' smart constructor.
@@ -4750,47 +4835,6 @@ instance ToJSON MoneyDTO where
4750 [("currencyCode" .=) <$> _mdtoCurrencyCode,
4835 [("currencyCode" .=) <$> _mdtoCurrencyCode,
4751 ("micros" .=) <$> _mdtoMicros])
4836 ("micros" .=) <$> _mdtoMicros])
4754−-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
4755−newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
4756− { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]
4757− } deriving (Eq,Show,Data,Typeable,Generic)
4759−-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
4761−-- Use one of the following lenses to modify other fields as desired:
4763−-- * 'lcacrClientAccessPermissions'
4764−listClientAccessCapabilitiesResponse
4765− :: ListClientAccessCapabilitiesResponse
4766−listClientAccessCapabilitiesResponse =
4767− ListClientAccessCapabilitiesResponse
4768− { _lcacrClientAccessPermissions = Nothing
4771−lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]
4772−lcacrClientAccessPermissions
4773− = lens _lcacrClientAccessPermissions
4774− (\ s a -> s{_lcacrClientAccessPermissions = a})
4779− ListClientAccessCapabilitiesResponse where
4781− = withObject "ListClientAccessCapabilitiesResponse"
4783− ListClientAccessCapabilitiesResponse <$>
4784− (o .:? "clientAccessPermissions" .!= mempty))
4786−instance ToJSON ListClientAccessCapabilitiesResponse
4788− toJSON ListClientAccessCapabilitiesResponse{..}
4791− [("clientAccessPermissions" .=) <$>
4792− _lcacrClientAccessPermissions])
4795-- /See:/ 'getNegotiationByIdRequest' smart constructor.
4839-- /See:/ 'getNegotiationByIdRequest' smart constructor.
4796newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest
4840newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest
@@ -4875,55 +4919,52 @@ instance ToJSON ListOffersResponse where
4875 ("offers" .=) <$> _lorOffers])
4919 ("offers" .=) <$> _lorOffers])
4878−-- /See:/ 'reasonsItem' smart constructor.
4922+-- /See:/ 'pretargetingConfigDimensionsItem' smart constructor.
4879−data ReasonsItem = ReasonsItem
4923+data PretargetingConfigDimensionsItem = PretargetingConfigDimensionsItem
4880− { _riFilteringStatus :: !(Maybe Int32)
4924+ { _pcdiHeight :: !(Maybe Int64)
4881− , _riFilteringCount :: !(Maybe Int64)
4925+ , _pcdiWidth :: !(Maybe Int64)
4882 } deriving (Eq,Show,Data,Typeable,Generic)
4926 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4886-- Use one of the following lenses to modify other fields as desired:
4930-- Use one of the following lenses to modify other fields as desired:
4888−-- * 'riFilteringStatus'
4932+-- * 'pcdiHeight'
4890−-- * 'riFilteringCount'
4934+-- * 'pcdiWidth'
4891−reasonsItem
4935+pretargetingConfigDimensionsItem
4892− :: ReasonsItem
4936+ :: PretargetingConfigDimensionsItem
4893−reasonsItem =
4937+pretargetingConfigDimensionsItem =
4894− ReasonsItem
4938+ PretargetingConfigDimensionsItem
4895− { _riFilteringStatus = Nothing
4939+ { _pcdiHeight = Nothing
4896− , _riFilteringCount = Nothing
4940+ , _pcdiWidth = Nothing
4899−-- | The filtering status code. Please refer to the creative-status-codes.txt
4943+-- | Height in pixels.
4900−-- file for different statuses.
4944+pcdiHeight :: Lens' PretargetingConfigDimensionsItem (Maybe Int64)
4901−riFilteringStatus :: Lens' ReasonsItem (Maybe Int32)
4945+pcdiHeight
4902−riFilteringStatus
4946+ = lens _pcdiHeight (\ s a -> s{_pcdiHeight = a})
4903− = lens _riFilteringStatus
4904− (\ s a -> s{_riFilteringStatus = a})
4906−-- | The number of times the creative was filtered for the status. The count
4948+-- | Width in pixels.
4907−-- is aggregated across all publishers on the exchange.
4949+pcdiWidth :: Lens' PretargetingConfigDimensionsItem (Maybe Int64)
4908−riFilteringCount :: Lens' ReasonsItem (Maybe Int64)
4950+pcdiWidth
4909−riFilteringCount
4951+ = lens _pcdiWidth (\ s a -> s{_pcdiWidth = a})
4910− = lens _riFilteringCount
4911− (\ s a -> s{_riFilteringCount = a})
4913−instance FromJSON ReasonsItem where
4953+instance FromJSON PretargetingConfigDimensionsItem
4914 parseJSON
4955 parseJSON
4915− = withObject "ReasonsItem"
4956+ = withObject "PretargetingConfigDimensionsItem"
4917− ReasonsItem <$>
4958+ PretargetingConfigDimensionsItem <$>
4918− (o .:? "filteringStatus") <*>
4959+ (o .:? "height") <*> (o .:? "width"))
4919− (o .:? "filteringCount"))
4921−instance ToJSON ReasonsItem where
4961+instance ToJSON PretargetingConfigDimensionsItem
4922− toJSON ReasonsItem{..}
4962+ where
4963+ toJSON PretargetingConfigDimensionsItem{..}
4923 = object
4964 = object
4924 (catMaybes
4965 (catMaybes
4925− [("filteringStatus" .=) <$> _riFilteringStatus,
4966+ [("height" .=) <$> _pcdiHeight,
4926− ("filteringCount" .=) <$> _riFilteringCount])
4967+ ("width" .=) <$> _pcdiWidth])
4929-- /See:/ 'advertiserDTO' smart constructor.
4970-- /See:/ 'advertiserDTO' smart constructor.
@@ -4988,6 +5029,47 @@ instance ToJSON AdvertiserDTO where
4988 ("brands" .=) <$> _adtoBrands,
5029 ("brands" .=) <$> _adtoBrands,
4989 ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
5030 ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
5033+-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
5034+newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
5035+ { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]
5036+ } deriving (Eq,Show,Data,Typeable,Generic)
5038+-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
5040+-- Use one of the following lenses to modify other fields as desired:
5042+-- * 'lcacrClientAccessPermissions'
5043+listClientAccessCapabilitiesResponse
5044+ :: ListClientAccessCapabilitiesResponse
5045+listClientAccessCapabilitiesResponse =
5046+ ListClientAccessCapabilitiesResponse
5047+ { _lcacrClientAccessPermissions = Nothing
5050+lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]
5051+lcacrClientAccessPermissions
5052+ = lens _lcacrClientAccessPermissions
5053+ (\ s a -> s{_lcacrClientAccessPermissions = a})
5058+ ListClientAccessCapabilitiesResponse where
5060+ = withObject "ListClientAccessCapabilitiesResponse"
5062+ ListClientAccessCapabilitiesResponse <$>
5063+ (o .:? "clientAccessPermissions" .!= mempty))
5065+instance ToJSON ListClientAccessCapabilitiesResponse
5067+ toJSON ListClientAccessCapabilitiesResponse{..}
5070+ [("clientAccessPermissions" .=) <$>
5071+ _lcacrClientAccessPermissions])
4992-- /See:/ 'targetingValue' smart constructor.
5074-- /See:/ 'targetingValue' smart constructor.
4993data TargetingValue = TargetingValue
5075data TargetingValue = TargetingValue
@@ -5061,6 +5143,62 @@ instance ToJSON TargetingValue where
5061 ("dayPartTargetingValue" .=) <$>
5143 ("dayPartTargetingValue" .=) <$>
5062 _tvDayPartTargetingValue])
5144 _tvDayPartTargetingValue])
5146+-- | The app icon, for app download ads.
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)
5155+-- | Creates a value of 'CreativeNATiveAdAppIcon' with the minimum fields required to make a request.
5157+-- Use one of the following lenses to modify other fields as desired:
5159+-- * 'cnataaiHeight'
5164+creativeNATiveAdAppIcon
5165+ :: CreativeNATiveAdAppIcon
5166+creativeNATiveAdAppIcon =
5167+ CreativeNATiveAdAppIcon
5168+ { _cnataaiHeight = Nothing
5169+ , _cnataaiURL = Nothing
5170+ , _cnataaiWidth = Nothing
5173+cnataaiHeight :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)
5175+ = lens _cnataaiHeight
5176+ (\ s a -> s{_cnataaiHeight = a})
5178+cnataaiURL :: Lens' CreativeNATiveAdAppIcon (Maybe Text)
5180+ = lens _cnataaiURL (\ s a -> s{_cnataaiURL = a})
5182+cnataaiWidth :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)
5184+ = lens _cnataaiWidth (\ s a -> s{_cnataaiWidth = a})
5186+instance FromJSON CreativeNATiveAdAppIcon where
5188+ = withObject "CreativeNATiveAdAppIcon"
5190+ CreativeNATiveAdAppIcon <$>
5191+ (o .:? "height") <*> (o .:? "url") <*>
5194+instance ToJSON CreativeNATiveAdAppIcon where
5195+ toJSON CreativeNATiveAdAppIcon{..}
5198+ [("height" .=) <$> _cnataaiHeight,
5199+ ("url" .=) <$> _cnataaiURL,
5200+ ("width" .=) <$> _cnataaiWidth])
5065-- /See:/ 'price' smart constructor.
5203-- /See:/ 'price' smart constructor.
5066data Price = Price
5204data Price = Price
@@ -5109,52 +5247,6 @@ instance ToJSON Price where
5109 [("currencyCode" .=) <$> _pCurrencyCode,
5247 [("currencyCode" .=) <$> _pCurrencyCode,
5110 ("amountMicros" .=) <$> _pAmountMicros])
5248 ("amountMicros" .=) <$> _pAmountMicros])
5113−-- /See:/ 'excludedPlacementsItem' smart constructor.
5114−data ExcludedPlacementsItem = ExcludedPlacementsItem
5115− { _epiToken :: !(Maybe Text)
5116− , _epiType :: !(Maybe Text)
5117− } deriving (Eq,Show,Data,Typeable,Generic)
5119−-- | Creates a value of 'ExcludedPlacementsItem' with the minimum fields required to make a request.
5121−-- Use one of the following lenses to modify other fields as desired:
5126−excludedPlacementsItem
5127− :: ExcludedPlacementsItem
5128−excludedPlacementsItem =
5129− ExcludedPlacementsItem
5130− { _epiToken = Nothing
5131− , _epiType = Nothing
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})
5140−-- | The type of the placement.
5141−epiType :: Lens' ExcludedPlacementsItem (Maybe Text)
5142−epiType = lens _epiType (\ s a -> s{_epiType = a})
5144−instance FromJSON ExcludedPlacementsItem where
5146− = withObject "ExcludedPlacementsItem"
5148− ExcludedPlacementsItem <$>
5149− (o .:? "token") <*> (o .:? "type"))
5151−instance ToJSON ExcludedPlacementsItem where
5152− toJSON ExcludedPlacementsItem{..}
5155− [("token" .=) <$> _epiToken,
5156− ("type" .=) <$> _epiType])
5159-- /See:/ 'editAllOrderDealsRequest' smart constructor.
5251-- /See:/ 'editAllOrderDealsRequest' smart constructor.
5160data EditAllOrderDealsRequest = EditAllOrderDealsRequest
5252data EditAllOrderDealsRequest = EditAllOrderDealsRequest
@@ -5294,126 +5386,22 @@ biBillingId
5295instance FromJSON BillingInfo where
5387instance FromJSON BillingInfo where
5296 parseJSON
5388 parseJSON
5297− = withObject "BillingInfo"
5389+ = withObject "BillingInfo"
5300− (o .:? "kind" .!= "adexchangebuyer#billingInfo") <*>
5301− (o .:? "accountName")
5302− <*> (o .:? "accountId")
5303− <*> (o .:? "billingId" .!= mempty))
5305−instance ToJSON BillingInfo where
5306− toJSON BillingInfo{..}
5309− [Just ("kind" .= _biKind),
5310− ("accountName" .=) <$> _biAccountName,
5311− ("accountId" .=) <$> _biAccountId,
5312− ("billingId" .=) <$> _biBillingId])
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)
5326−-- | Creates a value of 'WebPropertyDTO' with the minimum fields required to make a request.
5328−-- Use one of the following lenses to modify other fields as desired:
5330−-- * 'wpdtoEnabledForPreferredDeals'
5332−-- * 'wpdtoSyndicationProduct'
5336−-- * 'wpdtoPropertyCode'
5340−-- * 'wpdtoSiteURLs'
5342−-- * 'wpdtoAllowInterestTargetedAds'
5347− { _wpdtoEnabledForPreferredDeals = Nothing
5348− , _wpdtoSyndicationProduct = Nothing
5349− , _wpdtoName = Nothing
5350− , _wpdtoPropertyCode = Nothing
5351− , _wpdtoId = Nothing
5352− , _wpdtoSiteURLs = Nothing
5353− , _wpdtoAllowInterestTargetedAds = Nothing
5356−wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
5357−wpdtoEnabledForPreferredDeals
5358− = lens _wpdtoEnabledForPreferredDeals
5359− (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
5361−wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
5362−wpdtoSyndicationProduct
5363− = lens _wpdtoSyndicationProduct
5364− (\ s a -> s{_wpdtoSyndicationProduct = a})
5366−wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
5368− = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
5370−wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
5372− = lens _wpdtoPropertyCode
5373− (\ s a -> s{_wpdtoPropertyCode = a})
5375−wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
5376−wpdtoId = lens _wpdtoId (\ s a -> s{_wpdtoId = a})
5378−wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
5380− = lens _wpdtoSiteURLs
5381− (\ s a -> s{_wpdtoSiteURLs = a})
5385−wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
5386−wpdtoAllowInterestTargetedAds
5387− = lens _wpdtoAllowInterestTargetedAds
5388− (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
5390−instance FromJSON WebPropertyDTO where
5392− = withObject "WebPropertyDTO"
5394− WebPropertyDTO <$>
5391+ BillingInfo <$>
5395− (o .:? "enabledForPreferredDeals") <*>
5392+ (o .:? "kind" .!= "adexchangebuyer#billingInfo") <*>
5396− (o .:? "syndicationProduct")
5393+ (o .:? "accountName")
5397− <*> (o .:? "name")
5394+ <*> (o .:? "accountId")
5398− <*> (o .:? "propertyCode")
5400− <*> (o .:? "siteUrls" .!= mempty)
5395+ <*> (o .:? "billingId" .!= mempty))
5401− <*> (o .:? "allowInterestTargetedAds"))
5403−instance ToJSON WebPropertyDTO where
5397+instance ToJSON BillingInfo where
5404− toJSON WebPropertyDTO{..}
5398+ toJSON BillingInfo{..}
5405 = object
5399 = object
5406 (catMaybes
5400 (catMaybes
5407− [("enabledForPreferredDeals" .=) <$>
5401+ [Just ("kind" .= _biKind),
5408− _wpdtoEnabledForPreferredDeals,
5402+ ("accountName" .=) <$> _biAccountName,
5409− ("syndicationProduct" .=) <$>
5403+ ("accountId" .=) <$> _biAccountId,
5410− _wpdtoSyndicationProduct,
5404+ ("billingId" .=) <$> _biBillingId])
5411− ("name" .=) <$> _wpdtoName,
5412− ("propertyCode" .=) <$> _wpdtoPropertyCode,
5413− ("id" .=) <$> _wpdtoId,
5414− ("siteUrls" .=) <$> _wpdtoSiteURLs,
5415− ("allowInterestTargetedAds" .=) <$>
5416− _wpdtoAllowInterestTargetedAds])
5419-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
5407-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
@@ -5466,40 +5454,64 @@ instance ToJSON TargetingValueDayPartTargeting where
5466 ("dayParts" .=) <$> _tvdptDayParts])
5454 ("dayParts" .=) <$> _tvdptDayParts])
5469−-- /See:/ 'listOffersRequest' smart constructor.
5457+-- /See:/ 'sharedTargeting' smart constructor.
5470−newtype ListOffersRequest = ListOffersRequest
5458+data SharedTargeting = SharedTargeting
5471− { _lorSinceTimestampMillis :: Maybe Int64
5459+ { _stKey :: !(Maybe Text)
5460+ , _stExclusions :: !(Maybe [TargetingValue])
5461+ , _stInclusions :: !(Maybe [TargetingValue])
5472 } deriving (Eq,Show,Data,Typeable,Generic)
5462 } deriving (Eq,Show,Data,Typeable,Generic)
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.
5476-- Use one of the following lenses to modify other fields as desired:
5466-- Use one of the following lenses to modify other fields as desired:
5478−-- * 'lorSinceTimestampMillis'
5468+-- * 'stKey'
5479−listOffersRequest
5469+--
5480− :: ListOffersRequest
5470+-- * 'stExclusions'
5481−listOffersRequest =
5471+--
5482− ListOffersRequest
5472+-- * 'stInclusions'
5483− { _lorSinceTimestampMillis = Nothing
5473+sharedTargeting
5478+ , _stExclusions = Nothing
5479+ , _stInclusions = Nothing
5486−lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
5482+-- | The key representing the shared targeting criterion.
5487−lorSinceTimestampMillis
5483+stKey :: Lens' SharedTargeting (Maybe Text)
5488− = lens _lorSinceTimestampMillis
5484+stKey = lens _stKey (\ s a -> s{_stKey = a})
5489− (\ s a -> s{_lorSinceTimestampMillis = a})
5486+-- | The list of values to exclude from targeting.
5487+stExclusions :: Lens' SharedTargeting [TargetingValue]
5489+ = lens _stExclusions (\ s a -> s{_stExclusions = a})
5493+-- | The list of value to include as part of the targeting.
5494+stInclusions :: Lens' SharedTargeting [TargetingValue]
5496+ = lens _stInclusions (\ s a -> s{_stInclusions = a})
5491−instance FromJSON ListOffersRequest where
5500+instance FromJSON SharedTargeting where
5492 parseJSON
5501 parseJSON
5493− = withObject "ListOffersRequest"
5502+ = withObject "SharedTargeting"
5495− ListOffersRequest <$> (o .:? "sinceTimestampMillis"))
5504+ SharedTargeting <$>
5505+ (o .:? "key") <*> (o .:? "exclusions" .!= mempty) <*>
5506+ (o .:? "inclusions" .!= mempty))
5497−instance ToJSON ListOffersRequest where
5508+instance ToJSON SharedTargeting where
5498− toJSON ListOffersRequest{..}
5509+ toJSON SharedTargeting{..}
5499 = object
5510 = object
5500 (catMaybes
5511 (catMaybes
5501− [("sinceTimestampMillis" .=) <$>
5512+ [("key" .=) <$> _stKey,
5502− _lorSinceTimestampMillis])
5513+ ("exclusions" .=) <$> _stExclusions,
5514+ ("inclusions" .=) <$> _stInclusions])
5505-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
5517-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
@@ -6057,163 +6069,200 @@ instance ToJSON InventorySegmentTargeting where
6057 ("negativeIcmInterests" .=) <$>
6069 ("negativeIcmInterests" .=) <$>
6058 _istNegativeIcmInterests])
6070 _istNegativeIcmInterests])
6061−-- /See:/ 'sharedTargeting' smart constructor.
6074+-- /See:/ 'creativeNATiveAdImage' smart constructor.
6062−data SharedTargeting = SharedTargeting
6075+data CreativeNATiveAdImage = CreativeNATiveAdImage
6076+ { _cnataiHeight :: !(Maybe Int32)
6063− { _stKey :: !(Maybe Text)
6077+ , _cnataiURL :: !(Maybe Text)
6064− , _stExclusions :: !(Maybe [TargetingValue])
6078+ , _cnataiWidth :: !(Maybe Int32)
6065− , _stInclusions :: !(Maybe [TargetingValue])
6066 } deriving (Eq,Show,Data,Typeable,Generic)
6079 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6070-- Use one of the following lenses to modify other fields as desired:
6083-- Use one of the following lenses to modify other fields as desired:
6072−-- * 'stKey'
6085+-- * 'cnataiHeight'
6074−-- * 'stExclusions'
6087+-- * 'cnataiURL'
6076−-- * 'stInclusions'
6089+-- * 'cnataiWidth'
6077−sharedTargeting
6090+creativeNATiveAdImage
6078− :: SharedTargeting
6091+ :: CreativeNATiveAdImage
6079−sharedTargeting =
6092+creativeNATiveAdImage =
6080− SharedTargeting
6093+ CreativeNATiveAdImage
6081− { _stKey = Nothing
6094+ { _cnataiHeight = Nothing
6082− , _stExclusions = Nothing
6095+ , _cnataiURL = Nothing
6083− , _stInclusions = Nothing
6096+ , _cnataiWidth = Nothing
6086−-- | The key representing the shared targeting criterion.
6099+cnataiHeight :: Lens' CreativeNATiveAdImage (Maybe Int32)
6087−stKey :: Lens' SharedTargeting (Maybe Text)
6100+cnataiHeight
6088−stKey = lens _stKey (\ s a -> s{_stKey = a})
6101+ = lens _cnataiHeight (\ s a -> s{_cnataiHeight = a})
6090−-- | The list of values to exclude from targeting.
6103+cnataiURL :: Lens' CreativeNATiveAdImage (Maybe Text)
6091−stExclusions :: Lens' SharedTargeting [TargetingValue]
6104+cnataiURL
6092−stExclusions
6105+ = lens _cnataiURL (\ s a -> s{_cnataiURL = a})
6093− = lens _stExclusions (\ s a -> s{_stExclusions = a})
6097−-- | The list of value to include as part of the targeting.
6107+cnataiWidth :: Lens' CreativeNATiveAdImage (Maybe Int32)
6098−stInclusions :: Lens' SharedTargeting [TargetingValue]
6108+cnataiWidth
6099−stInclusions
6109+ = lens _cnataiWidth (\ s a -> s{_cnataiWidth = a})
6100− = lens _stInclusions (\ s a -> s{_stInclusions = a})
6104−instance FromJSON SharedTargeting where
6111+instance FromJSON CreativeNATiveAdImage where
6105 parseJSON
6112 parseJSON
6106− = withObject "SharedTargeting"
6113+ = withObject "CreativeNATiveAdImage"
6108− SharedTargeting <$>
6115+ CreativeNATiveAdImage <$>
6109− (o .:? "key") <*> (o .:? "exclusions" .!= mempty) <*>
6116+ (o .:? "height") <*> (o .:? "url") <*>
6110− (o .:? "inclusions" .!= mempty))
6117+ (o .:? "width"))
6112−instance ToJSON SharedTargeting where
6119+instance ToJSON CreativeNATiveAdImage where
6113− toJSON SharedTargeting{..}
6120+ toJSON CreativeNATiveAdImage{..}
6114 = object
6121 = object
6115 (catMaybes
6122 (catMaybes
6116− [("key" .=) <$> _stKey,
6123+ [("height" .=) <$> _cnataiHeight,
6117− ("exclusions" .=) <$> _stExclusions,
6124+ ("url" .=) <$> _cnataiURL,
6118− ("inclusions" .=) <$> _stInclusions])
6125+ ("width" .=) <$> _cnataiWidth])
6121−-- /See:/ 'correctionsItem' smart constructor.
6128+-- /See:/ 'webPropertyDTO' smart constructor.
6122−data CorrectionsItem = CorrectionsItem
6129+data WebPropertyDTO = WebPropertyDTO
6130+ { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
6131+ , _wpdtoSyndicationProduct :: !(Maybe Text)
6132+ , _wpdtoName :: !(Maybe Text)
6123− { _ciReason :: !(Maybe Text)
6133+ , _wpdtoPropertyCode :: !(Maybe Text)
6134+ , _wpdtoId :: !(Maybe Int32)
6124− , _ciDetails :: !(Maybe [Text])
6135+ , _wpdtoSiteURLs :: !(Maybe [Text])
6136+ , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
6125 } deriving (Eq,Show,Data,Typeable,Generic)
6137 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6129-- Use one of the following lenses to modify other fields as desired:
6141-- Use one of the following lenses to modify other fields as desired:
6131−-- * 'ciReason'
6143+-- * 'wpdtoEnabledForPreferredDeals'
6145+-- * 'wpdtoSyndicationProduct'
6149+-- * 'wpdtoPropertyCode'
6153+-- * 'wpdtoSiteURLs'
6133−-- * 'ciDetails'
6155+-- * 'wpdtoAllowInterestTargetedAds'
6134−correctionsItem
6156+webPropertyDTO
6135− :: CorrectionsItem
6157+ :: WebPropertyDTO
6136−correctionsItem =
6158+webPropertyDTO =
6137− CorrectionsItem
6159+ WebPropertyDTO
6138− { _ciReason = Nothing
6160+ { _wpdtoEnabledForPreferredDeals = Nothing
6139− , _ciDetails = Nothing
6161+ , _wpdtoSyndicationProduct = Nothing
6162+ , _wpdtoName = Nothing
6163+ , _wpdtoPropertyCode = Nothing
6164+ , _wpdtoId = Nothing
6165+ , _wpdtoSiteURLs = Nothing
6166+ , _wpdtoAllowInterestTargetedAds = Nothing
6142−-- | The type of correction that was applied to the creative.
6169+wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
6143−ciReason :: Lens' CorrectionsItem (Maybe Text)
6170+wpdtoEnabledForPreferredDeals
6144−ciReason = lens _ciReason (\ s a -> s{_ciReason = a})
6171+ = lens _wpdtoEnabledForPreferredDeals
6172+ (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
6146−-- | Additional details about the correction.
6174+wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
6147−ciDetails :: Lens' CorrectionsItem [Text]
6175+wpdtoSyndicationProduct
6148−ciDetails
6176+ = lens _wpdtoSyndicationProduct
6149− = lens _ciDetails (\ s a -> s{_ciDetails = a}) .
6177+ (\ s a -> s{_wpdtoSyndicationProduct = a})
6179+wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
6181+ = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
6183+wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
6185+ = lens _wpdtoPropertyCode
6186+ (\ s a -> s{_wpdtoPropertyCode = a})
6188+wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
6189+wpdtoId = lens _wpdtoId (\ s a -> s{_wpdtoId = a})
6191+wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
6193+ = lens _wpdtoSiteURLs
6194+ (\ s a -> s{_wpdtoSiteURLs = a})
6150− _Default
6195+ . _Default
6151 . _Coerce
6196 . _Coerce
6198+wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
6199+wpdtoAllowInterestTargetedAds
6200+ = lens _wpdtoAllowInterestTargetedAds
6201+ (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
6153−instance FromJSON CorrectionsItem where
6203+instance FromJSON WebPropertyDTO where
6154 parseJSON
6204 parseJSON
6155− = withObject "CorrectionsItem"
6205+ = withObject "WebPropertyDTO"
6157− CorrectionsItem <$>
6207+ WebPropertyDTO <$>
6158− (o .:? "reason") <*> (o .:? "details" .!= mempty))
6208+ (o .:? "enabledForPreferredDeals") <*>
6209+ (o .:? "syndicationProduct")
6211+ <*> (o .:? "propertyCode")
6213+ <*> (o .:? "siteUrls" .!= mempty)
6214+ <*> (o .:? "allowInterestTargetedAds"))
6160−instance ToJSON CorrectionsItem where
6216+instance ToJSON WebPropertyDTO where
6161− toJSON CorrectionsItem{..}
6217+ toJSON WebPropertyDTO{..}
6162 = object
6218 = object
6163 (catMaybes
6219 (catMaybes
6164− [("reason" .=) <$> _ciReason,
6220+ [("enabledForPreferredDeals" .=) <$>
6165− ("details" .=) <$> _ciDetails])
6221+ _wpdtoEnabledForPreferredDeals,
6222+ ("syndicationProduct" .=) <$>
6223+ _wpdtoSyndicationProduct,
6224+ ("name" .=) <$> _wpdtoName,
6225+ ("propertyCode" .=) <$> _wpdtoPropertyCode,
6226+ ("id" .=) <$> _wpdtoId,
6227+ ("siteUrls" .=) <$> _wpdtoSiteURLs,
6228+ ("allowInterestTargetedAds" .=) <$>
6229+ _wpdtoAllowInterestTargetedAds])
6167−-- | A smaller image, for the advertiser logo.
6169−-- /See:/ 'logo' smart constructor.
6232+-- /See:/ 'listOffersRequest' smart constructor.
6170−data Logo = Logo
6233+newtype ListOffersRequest = ListOffersRequest
6171− { _lHeight :: !(Maybe Int32)
6234+ { _lorSinceTimestampMillis :: Maybe Int64
6172− , _lURL :: !(Maybe Text)
6173− , _lWidth :: !(Maybe Int32)
6174 } deriving (Eq,Show,Data,Typeable,Generic)
6235 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6178-- Use one of the following lenses to modify other fields as desired:
6239-- Use one of the following lenses to modify other fields as desired:
6180−-- * 'lHeight'
6241+-- * 'lorSinceTimestampMillis'
6181−--
6242+listOffersRequest
6182−-- * 'lURL'
6243+ :: ListOffersRequest
6183−--
6244+listOffersRequest =
6184−-- * 'lWidth'
6245+ ListOffersRequest
6185−logo
6246+ { _lorSinceTimestampMillis = Nothing
6189− { _lHeight = Nothing
6191− , _lWidth = Nothing
6194−lHeight :: Lens' Logo (Maybe Int32)
6249+lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
6195−lHeight = lens _lHeight (\ s a -> s{_lHeight = a})
6250+lorSinceTimestampMillis
6196−
6251+ = lens _lorSinceTimestampMillis
6197−lURL :: Lens' Logo (Maybe Text)
6252+ (\ s a -> s{_lorSinceTimestampMillis = a})
6198−lURL = lens _lURL (\ s a -> s{_lURL = a})
6200−lWidth :: Lens' Logo (Maybe Int32)
6201−lWidth = lens _lWidth (\ s a -> s{_lWidth = a})
6203−instance FromJSON Logo where
6254+instance FromJSON ListOffersRequest where
6204 parseJSON
6255 parseJSON
6205− = withObject "Logo"
6256+ = withObject "ListOffersRequest"
6207− Logo <$>
6258+ ListOffersRequest <$> (o .:? "sinceTimestampMillis"))
6208− (o .:? "height") <*> (o .:? "url") <*>
6211−instance ToJSON Logo where
6260+instance ToJSON ListOffersRequest where
6212− toJSON Logo{..}
6261+ toJSON ListOffersRequest{..}
6213 = object
6262 = object
6214 (catMaybes
6263 (catMaybes
6215− [("height" .=) <$> _lHeight, ("url" .=) <$> _lURL,
6264+ [("sinceTimestampMillis" .=) <$>
6216− ("width" .=) <$> _lWidth])
6265+ _lorSinceTimestampMillis])
6219-- /See:/ 'clientAccessCapabilities' smart constructor.
6268-- /See:/ 'clientAccessCapabilities' smart constructor.
@@ -6265,52 +6314,73 @@ instance ToJSON ClientAccessCapabilities where
6265 ("capabilities" .=) <$> _cacCapabilities])
6314 ("capabilities" .=) <$> _cacCapabilities])
6268−-- /See:/ 'disapprovalReasonsItem' smart constructor.
6317+-- /See:/ 'creativeServingRestrictionsItem' smart constructor.
6269−data DisapprovalReasonsItem = DisapprovalReasonsItem
6318+data CreativeServingRestrictionsItem = CreativeServingRestrictionsItem
6319+ { _csriContexts :: !(Maybe [CreativeServingRestrictionsItemContextsItem])
6270− { _driReason :: !(Maybe Text)
6320+ , _csriReason :: !(Maybe Text)
6271− , _driDetails :: !(Maybe [Text])
6321+ , _csriDisApprovalReasons :: !(Maybe [CreativeServingRestrictionsItemDisApprovalReasonsItem])
6272 } deriving (Eq,Show,Data,Typeable,Generic)
6322 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6276-- Use one of the following lenses to modify other fields as desired:
6326-- Use one of the following lenses to modify other fields as desired:
6278−-- * 'driReason'
6328+-- * 'csriContexts'
6280−-- * 'driDetails'
6330+-- * 'csriReason'
6281−disapprovalReasonsItem
6331+--
6282− :: DisapprovalReasonsItem
6332+-- * 'csriDisApprovalReasons'
6283−disapprovalReasonsItem =
6333+creativeServingRestrictionsItem
6284− DisapprovalReasonsItem
6334+ :: CreativeServingRestrictionsItem
6285− { _driReason = Nothing
6335+creativeServingRestrictionsItem =
6286− , _driDetails = Nothing
6336+ CreativeServingRestrictionsItem
6337+ { _csriContexts = Nothing
6338+ , _csriReason = Nothing
6339+ , _csriDisApprovalReasons = Nothing
6289−-- | The categorized reason for disapproval.
6342+-- | All known contexts\/restrictions.
6290−driReason :: Lens' DisapprovalReasonsItem (Maybe Text)
6343+csriContexts :: Lens' CreativeServingRestrictionsItem [CreativeServingRestrictionsItemContextsItem]
6291−driReason
6344+csriContexts
6292− = lens _driReason (\ s a -> s{_driReason = a})
6345+ = lens _csriContexts (\ s a -> s{_csriContexts = a})
6294−-- | Additional details about the reason for disapproval.
6349+-- | Why the creative is ineligible to serve in this context (e.g., it has
6295−driDetails :: Lens' DisapprovalReasonsItem [Text]
6350+-- been explicitly disapproved or is pending review).
6296−driDetails
6351+csriReason :: Lens' CreativeServingRestrictionsItem (Maybe Text)
6297− = lens _driDetails (\ s a -> s{_driDetails = a}) .
6352+csriReason
6353+ = lens _csriReason (\ s a -> s{_csriReason = a})
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})
6298− _Default
6364+ . _Default
6299 . _Coerce
6365 . _Coerce
6301−instance FromJSON DisapprovalReasonsItem where
6367+instance FromJSON CreativeServingRestrictionsItem
6302 parseJSON
6369 parseJSON
6303− = withObject "DisapprovalReasonsItem"
6370+ = withObject "CreativeServingRestrictionsItem"
6305− DisapprovalReasonsItem <$>
6372+ CreativeServingRestrictionsItem <$>
6306− (o .:? "reason") <*> (o .:? "details" .!= mempty))
6373+ (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
6374+ <*> (o .:? "disapprovalReasons" .!= mempty))
6308−instance ToJSON DisapprovalReasonsItem where
6376+instance ToJSON CreativeServingRestrictionsItem where
6309− toJSON DisapprovalReasonsItem{..}
6377+ toJSON CreativeServingRestrictionsItem{..}
6310 = object
6378 = object
6311 (catMaybes
6379 (catMaybes
6312− [("reason" .=) <$> _driReason,
6380+ [("contexts" .=) <$> _csriContexts,
6313− ("details" .=) <$> _driDetails])
6381+ ("reason" .=) <$> _csriReason,
6382+ ("disapprovalReasons" .=) <$>
6383+ _csriDisApprovalReasons])
6316-- /See:/ 'deleteOrderDealsResponse' smart constructor.
6386-- /See:/ 'deleteOrderDealsResponse' smart constructor.
@@ -6362,6 +6432,55 @@ instance ToJSON DeleteOrderDealsResponse where
6362 ("orderRevisionNumber" .=) <$>
6432 ("orderRevisionNumber" .=) <$>
6363 _dOrderRevisionNumber])
6433 _dOrderRevisionNumber])
6436+-- /See:/ 'pretargetingConfigPlacementsItem' smart constructor.
6437+data PretargetingConfigPlacementsItem = PretargetingConfigPlacementsItem
6438+ { _pcpiToken :: !(Maybe Text)
6439+ , _pcpiType :: !(Maybe Text)
6440+ } deriving (Eq,Show,Data,Typeable,Generic)
6442+-- | Creates a value of 'PretargetingConfigPlacementsItem' with the minimum fields required to make a request.
6444+-- Use one of the following lenses to modify other fields as desired:
6449+pretargetingConfigPlacementsItem
6450+ :: PretargetingConfigPlacementsItem
6451+pretargetingConfigPlacementsItem =
6452+ PretargetingConfigPlacementsItem
6453+ { _pcpiToken = Nothing
6454+ , _pcpiType = Nothing
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)
6462+ = lens _pcpiToken (\ s a -> s{_pcpiToken = a})
6464+-- | The type of the placement.
6465+pcpiType :: Lens' PretargetingConfigPlacementsItem (Maybe Text)
6466+pcpiType = lens _pcpiType (\ s a -> s{_pcpiType = a})
6468+instance FromJSON PretargetingConfigPlacementsItem
6471+ = withObject "PretargetingConfigPlacementsItem"
6473+ PretargetingConfigPlacementsItem <$>
6474+ (o .:? "token") <*> (o .:? "type"))
6476+instance ToJSON PretargetingConfigPlacementsItem
6478+ toJSON PretargetingConfigPlacementsItem{..}
6481+ [("token" .=) <$> _pcpiToken,
6482+ ("type" .=) <$> _pcpiType])
6365-- | An order can contain multiple deals. A deal contains the terms and
6484-- | An order can contain multiple deals. A deal contains the terms and
6366-- targeting information that is used for serving.
6485-- targeting information that is used for serving.
@@ -6560,111 +6679,293 @@ mdSellerContacts
6560 . _Default
6679 . _Default
6561 . _Coerce
6680 . _Coerce
6563−-- | The offer-id from which this deal was created. (readonly, except on
6682+-- | The offer-id from which this deal was created. (readonly, except on
6564−-- create)
6683+-- create)
6565−mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
6684+mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
6566−mdOfferId
6685+mdOfferId
6567− = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
6686+ = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
6569−mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
6688+mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
6570−mdOrderId
6689+mdOrderId
6571− = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
6690+ = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
6692+instance FromJSON MarketplaceDeal where
6694+ = withObject "MarketplaceDeal"
6696+ MarketplaceDeal <$>
6697+ (o .:? "externalDealId") <*>
6698+ (o .:? "buyerPrivateData")
6699+ <*> (o .:? "webPropertyCode")
6700+ <*> (o .:? "creationTimeMs")
6701+ <*> (o .:? "terms")
6702+ <*> (o .:? "offerRevisionNumber")
6703+ <*> (o .:? "lastUpdateTimeMs")
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")
6714+ <*> (o .:? "sellerContacts" .!= mempty)
6715+ <*> (o .:? "offerId")
6716+ <*> (o .:? "orderId"))
6718+instance ToJSON MarketplaceDeal where
6719+ toJSON MarketplaceDeal{..}
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])
6745+-- /See:/ 'getOffersResponse' smart constructor.
6746+newtype GetOffersResponse = GetOffersResponse
6747+ { _gorOffers :: Maybe [MarketplaceOffer]
6748+ } deriving (Eq,Show,Data,Typeable,Generic)
6750+-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
6752+-- Use one of the following lenses to modify other fields as desired:
6756+ :: GetOffersResponse
6759+ { _gorOffers = Nothing
6762+-- | The returned list of offers.
6763+gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]
6765+ = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
6769+instance FromJSON GetOffersResponse where
6771+ = withObject "GetOffersResponse"
6773+ GetOffersResponse <$> (o .:? "offers" .!= mempty))
6775+instance ToJSON GetOffersResponse where
6776+ toJSON GetOffersResponse{..}
6777+ = object (catMaybes [("offers" .=) <$> _gorOffers])
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)
6790+-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request.
6792+-- Use one of the following lenses to modify other fields as desired:
6798+-- * 'sdtoImpressions'
6809+ { _sdtoBids = Nothing
6810+ , _sdtoSpend = Nothing
6811+ , _sdtoImpressions = Nothing
6812+ , _sdtoGoodBids = Nothing
6813+ , _sdtoRevenue = Nothing
6814+ , _sdtoRequests = Nothing
6817+sdtoBids :: Lens' StatsDTO (Maybe Int64)
6818+sdtoBids = lens _sdtoBids (\ s a -> s{_sdtoBids = a})
6820+sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6822+ = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6824+sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6826+ = lens _sdtoImpressions
6827+ (\ s a -> s{_sdtoImpressions = a})
6829+sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6831+ = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6833+sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6835+ = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6837+sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6839+ = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6841+instance FromJSON StatsDTO where
6843+ = withObject "StatsDTO"
6846+ (o .:? "bids") <*> (o .:? "spend") <*>
6847+ (o .:? "impressions")
6848+ <*> (o .:? "goodBids")
6849+ <*> (o .:? "revenue")
6850+ <*> (o .:? "requests"))
6852+instance ToJSON StatsDTO where
6853+ toJSON StatsDTO{..}
6856+ [("bids" .=) <$> _sdtoBids,
6857+ ("spend" .=) <$> _sdtoSpend,
6858+ ("impressions" .=) <$> _sdtoImpressions,
6859+ ("goodBids" .=) <$> _sdtoGoodBids,
6860+ ("revenue" .=) <$> _sdtoRevenue,
6861+ ("requests" .=) <$> _sdtoRequests])
6864+-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
6865+data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms
6866+ { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer])
6867+ , _dtngatPrivateAuctionId :: !(Maybe Text)
6868+ } deriving (Eq,Show,Data,Typeable,Generic)
6870+-- | Creates a value of 'DealTermsNonGuaranteedAuctionTerms' with the minimum fields required to make a request.
6872+-- Use one of the following lenses to modify other fields as desired:
6874+-- * 'dtngatReservePricePerBuyers'
6876+-- * 'dtngatPrivateAuctionId'
6877+dealTermsNonGuaranteedAuctionTerms
6878+ :: DealTermsNonGuaranteedAuctionTerms
6879+dealTermsNonGuaranteedAuctionTerms =
6880+ DealTermsNonGuaranteedAuctionTerms
6881+ { _dtngatReservePricePerBuyers = Nothing
6882+ , _dtngatPrivateAuctionId = Nothing
6885+-- | Reserve price for the specified buyer.
6886+dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer]
6887+dtngatReservePricePerBuyers
6888+ = lens _dtngatReservePricePerBuyers
6889+ (\ s a -> s{_dtngatReservePricePerBuyers = a})
6893+-- | Id of the corresponding private auction.
6894+dtngatPrivateAuctionId :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Text)
6895+dtngatPrivateAuctionId
6896+ = lens _dtngatPrivateAuctionId
6897+ (\ s a -> s{_dtngatPrivateAuctionId = a})
6573−instance FromJSON MarketplaceDeal where
6899+instance FromJSON DealTermsNonGuaranteedAuctionTerms
6574 parseJSON
6901 parseJSON
6575− = withObject "MarketplaceDeal"
6902+ = withObject "DealTermsNonGuaranteedAuctionTerms"
6577− MarketplaceDeal <$>
6904+ DealTermsNonGuaranteedAuctionTerms <$>
6578− (o .:? "externalDealId") <*>
6905+ (o .:? "reservePricePerBuyers" .!= mempty) <*>
6579− (o .:? "buyerPrivateData")
6906+ (o .:? "privateAuctionId"))
6580− <*> (o .:? "webPropertyCode")
6581− <*> (o .:? "creationTimeMs")
6582− <*> (o .:? "terms")
6583− <*> (o .:? "offerRevisionNumber")
6584− <*> (o .:? "lastUpdateTimeMs")
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")
6595− <*> (o .:? "sellerContacts" .!= mempty)
6596− <*> (o .:? "offerId")
6597− <*> (o .:? "orderId"))
6599−instance ToJSON MarketplaceDeal where
6908+instance ToJSON DealTermsNonGuaranteedAuctionTerms
6600− toJSON MarketplaceDeal{..}
6909+ where
6910+ toJSON DealTermsNonGuaranteedAuctionTerms{..}
6601 = object
6911 = object
6602 (catMaybes
6912 (catMaybes
6603− [("externalDealId" .=) <$> _mdExternalDealId,
6913+ [("reservePricePerBuyers" .=) <$>
6604− ("buyerPrivateData" .=) <$> _mdBuyerPrivateData,
6914+ _dtngatReservePricePerBuyers,
6605− ("webPropertyCode" .=) <$> _mdWebPropertyCode,
6915+ ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId])
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])
6626−-- /See:/ 'dimensionsItem' smart constructor.
6918+-- /See:/ 'creativeFilteringReasonsReasonsItem' smart constructor.
6627−data DimensionsItem = DimensionsItem
6919+data CreativeFilteringReasonsReasonsItem = CreativeFilteringReasonsReasonsItem
6628− { _diHeight :: !(Maybe Int64)
6920+ { _cfrriFilteringStatus :: !(Maybe Int32)
6629− , _diWidth :: !(Maybe Int64)
6921+ , _cfrriFilteringCount :: !(Maybe Int64)
6630 } deriving (Eq,Show,Data,Typeable,Generic)
6922 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6634-- Use one of the following lenses to modify other fields as desired:
6926-- Use one of the following lenses to modify other fields as desired:
6636−-- * 'diHeight'
6928+-- * 'cfrriFilteringStatus'
6638−-- * 'diWidth'
6930+-- * 'cfrriFilteringCount'
6639−dimensionsItem
6931+creativeFilteringReasonsReasonsItem
6640− :: DimensionsItem
6932+ :: CreativeFilteringReasonsReasonsItem
6641−dimensionsItem =
6933+creativeFilteringReasonsReasonsItem =
6642− DimensionsItem
6934+ CreativeFilteringReasonsReasonsItem
6643− { _diHeight = Nothing
6935+ { _cfrriFilteringStatus = Nothing
6644− , _diWidth = Nothing
6936+ , _cfrriFilteringCount = Nothing
6647−-- | Height in pixels.
6939+-- | The filtering status code. Please refer to the creative-status-codes.txt
6648−diHeight :: Lens' DimensionsItem (Maybe Int64)
6940+-- file for different statuses.
6649−diHeight = lens _diHeight (\ s a -> s{_diHeight = a})
6941+cfrriFilteringStatus :: Lens' CreativeFilteringReasonsReasonsItem (Maybe Int32)
6942+cfrriFilteringStatus
6943+ = lens _cfrriFilteringStatus
6944+ (\ s a -> s{_cfrriFilteringStatus = a})
6651−-- | Width in pixels.
6946+-- | The number of times the creative was filtered for the status. The count
6652−diWidth :: Lens' DimensionsItem (Maybe Int64)
6947+-- is aggregated across all publishers on the exchange.
6653−diWidth = lens _diWidth (\ s a -> s{_diWidth = a})
6948+cfrriFilteringCount :: Lens' CreativeFilteringReasonsReasonsItem (Maybe Int64)
6950+ = lens _cfrriFilteringCount
6951+ (\ s a -> s{_cfrriFilteringCount = a})
6655−instance FromJSON DimensionsItem where
6953+instance FromJSON CreativeFilteringReasonsReasonsItem
6656 parseJSON
6955 parseJSON
6657− = withObject "DimensionsItem"
6956+ = withObject "CreativeFilteringReasonsReasonsItem"
6659− DimensionsItem <$>
6958+ CreativeFilteringReasonsReasonsItem <$>
6660− (o .:? "height") <*> (o .:? "width"))
6959+ (o .:? "filteringStatus") <*>
6960+ (o .:? "filteringCount"))
6662−instance ToJSON DimensionsItem where
6962+instance ToJSON CreativeFilteringReasonsReasonsItem
6663− toJSON DimensionsItem{..}
6963+ where
6964+ toJSON CreativeFilteringReasonsReasonsItem{..}
6664 = object
6965 = object
6665 (catMaybes
6966 (catMaybes
6666− [("height" .=) <$> _diHeight,
6967+ [("filteringStatus" .=) <$> _cfrriFilteringStatus,
6667− ("width" .=) <$> _diWidth])
6968+ ("filteringCount" .=) <$> _cfrriFilteringCount])
6670-- /See:/ 'negotiationRoundDTO' smart constructor.
6971-- /See:/ 'negotiationRoundDTO' smart constructor.
@@ -6795,291 +7096,165 @@ instance ToJSON NegotiationRoundDTO where
6795 ("roundNumber" .=) <$> _nrdtoRoundNumber])
7096 ("roundNumber" .=) <$> _nrdtoRoundNumber])
6798−-- /See:/ 'statsDTO' smart constructor.
7099+-- /See:/ 'dealTerms' smart constructor.
6799−data StatsDTO = StatsDTO
7100+data DealTerms = DealTerms
6800− { _sdtoBids :: !(Maybe Int64)
7101+ { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
6801− , _sdtoSpend :: !(Maybe MoneyDTO)
7102+ , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
6802− , _sdtoImpressions :: !(Maybe Int64)
7103+ , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
6803− , _sdtoGoodBids :: !(Maybe Int64)
7104+ , _dtDescription :: !(Maybe Text)
6804− , _sdtoRevenue :: !(Maybe MoneyDTO)
6805− , _sdtoRequests :: !(Maybe Int64)
6806 } deriving (Eq,Show,Data,Typeable,Generic)
7105 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6810-- Use one of the following lenses to modify other fields as desired:
7109-- Use one of the following lenses to modify other fields as desired:
6812−-- * 'sdtoBids'
7111+-- * 'dtNonGuaranteedFixedPriceTerms'
6816−-- * 'sdtoImpressions'
6827− { _sdtoBids = Nothing
6828− , _sdtoSpend = Nothing
6829− , _sdtoImpressions = Nothing
6830− , _sdtoGoodBids = Nothing
6831− , _sdtoRevenue = Nothing
6832− , _sdtoRequests = Nothing
6835−sdtoBids :: Lens' StatsDTO (Maybe Int64)
6836−sdtoBids = lens _sdtoBids (\ s a -> s{_sdtoBids = a})
6838−sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6840− = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6842−sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6844− = lens _sdtoImpressions
6845− (\ s a -> s{_sdtoImpressions = a})
6847−sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6849− = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6851−sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6853− = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6855−sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6857− = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6859−instance FromJSON StatsDTO where
6861− = withObject "StatsDTO"
6864− (o .:? "bids") <*> (o .:? "spend") <*>
6865− (o .:? "impressions")
6866− <*> (o .:? "goodBids")
6867− <*> (o .:? "revenue")
6868− <*> (o .:? "requests"))
6870−instance ToJSON StatsDTO where
6871− toJSON StatsDTO{..}
6874− [("bids" .=) <$> _sdtoBids,
6875− ("spend" .=) <$> _sdtoSpend,
6876− ("impressions" .=) <$> _sdtoImpressions,
6877− ("goodBids" .=) <$> _sdtoGoodBids,
6878− ("revenue" .=) <$> _sdtoRevenue,
6879− ("requests" .=) <$> _sdtoRequests])
6882−-- /See:/ 'getOffersResponse' smart constructor.
7113+-- * 'dtNonGuaranteedAuctionTerms'
6883−newtype GetOffersResponse = GetOffersResponse
6884− { _gorOffers :: Maybe [MarketplaceOffer]
6885− } deriving (Eq,Show,Data,Typeable,Generic)
6887−-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
6889−-- Use one of the following lenses to modify other fields as desired:
7115+-- * 'dtGuaranteedFixedPriceTerms'
6891−-- * 'gorOffers'
7117+-- * 'dtDescription'
6892−getOffersResponse
7118+dealTerms
6893− :: GetOffersResponse
7119+ :: DealTerms
6894−getOffersResponse =
7120+dealTerms =
6895− GetOffersResponse
7121+ DealTerms
6896− { _gorOffers = Nothing
7122+ { _dtNonGuaranteedFixedPriceTerms = Nothing
7123+ , _dtNonGuaranteedAuctionTerms = Nothing
7124+ , _dtGuaranteedFixedPriceTerms = Nothing
7125+ , _dtDescription = Nothing
6899−-- | The returned list of offers.
7128+-- | The terms for non-guaranteed fixed price deals.
6900−gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]
7129+dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)
6901−gorOffers
7130+dtNonGuaranteedFixedPriceTerms
6902− = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
7131+ = lens _dtNonGuaranteedFixedPriceTerms
6903− _Default
7132+ (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a})
6906−instance FromJSON GetOffersResponse where
6908− = withObject "GetOffersResponse"
6910− GetOffersResponse <$> (o .:? "offers" .!= mempty))
6912−instance ToJSON GetOffersResponse where
6913− toJSON GetOffersResponse{..}
6914− = object (catMaybes [("offers" .=) <$> _gorOffers])
6917−-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
6918−data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms
6919− { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer])
6920− , _dtngatPrivateAuctionId :: !(Maybe Text)
6921− } deriving (Eq,Show,Data,Typeable,Generic)
6923−-- | Creates a value of 'DealTermsNonGuaranteedAuctionTerms' with the minimum fields required to make a request.
7134+-- | The terms for non-guaranteed auction deals.
6925−-- Use one of the following lenses to modify other fields as desired:
6927−-- * 'dtngatReservePricePerBuyers'
6929−-- * 'dtngatPrivateAuctionId'
6930−dealTermsNonGuaranteedAuctionTerms
6931− :: DealTermsNonGuaranteedAuctionTerms
7135+dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedAuctionTerms)
6932−dealTermsNonGuaranteedAuctionTerms =
7136+dtNonGuaranteedAuctionTerms
6933− DealTermsNonGuaranteedAuctionTerms
7137+ = lens _dtNonGuaranteedAuctionTerms
6934− { _dtngatReservePricePerBuyers = Nothing
7138+ (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
6935− , _dtngatPrivateAuctionId = Nothing
6938−-- | Reserve price for the specified buyer.
7140+-- | The terms for guaranteed fixed price deals.
6939−dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer]
7141+dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)
6940−dtngatReservePricePerBuyers
7142+dtGuaranteedFixedPriceTerms
6941− = lens _dtngatReservePricePerBuyers
7143+ = lens _dtGuaranteedFixedPriceTerms
6942− (\ s a -> s{_dtngatReservePricePerBuyers = a})
7144+ (\ s a -> s{_dtGuaranteedFixedPriceTerms = a})
6946−-- | Id of the corresponding private auction.
7146+-- | Description for the proposed terms of the deal.
6947−dtngatPrivateAuctionId :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Text)
7147+dtDescription :: Lens' DealTerms (Maybe Text)
6948−dtngatPrivateAuctionId
7148+dtDescription
6949− = lens _dtngatPrivateAuctionId
7149+ = lens _dtDescription
6950− (\ s a -> s{_dtngatPrivateAuctionId = a})
7150+ (\ s a -> s{_dtDescription = a})
6952−instance FromJSON DealTermsNonGuaranteedAuctionTerms
7152+instance FromJSON DealTerms where
6954 parseJSON
7153 parseJSON
6955− = withObject "DealTermsNonGuaranteedAuctionTerms"
7154+ = withObject "DealTerms"
6957− DealTermsNonGuaranteedAuctionTerms <$>
7156+ DealTerms <$>
6958− (o .:? "reservePricePerBuyers" .!= mempty) <*>
7157+ (o .:? "nonGuaranteedFixedPriceTerms") <*>
6959− (o .:? "privateAuctionId"))
7158+ (o .:? "nonGuaranteedAuctionTerms")
7159+ <*> (o .:? "guaranteedFixedPriceTerms")
7160+ <*> (o .:? "description"))
6961−instance ToJSON DealTermsNonGuaranteedAuctionTerms
7162+instance ToJSON DealTerms where
6962− where
7163+ toJSON DealTerms{..}
6963− toJSON DealTermsNonGuaranteedAuctionTerms{..}
6964 = object
7164 = object
6965 (catMaybes
7165 (catMaybes
6966− [("reservePricePerBuyers" .=) <$>
7166+ [("nonGuaranteedFixedPriceTerms" .=) <$>
6967− _dtngatReservePricePerBuyers,
7167+ _dtNonGuaranteedFixedPriceTerms,
6968− ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId])
7168+ ("nonGuaranteedAuctionTerms" .=) <$>
7169+ _dtNonGuaranteedAuctionTerms,
7170+ ("guaranteedFixedPriceTerms" .=) <$>
7171+ _dtGuaranteedFixedPriceTerms,
7172+ ("description" .=) <$> _dtDescription])
6971−-- /See:/ 'buyer' smart constructor.
7175+-- /See:/ 'dateTime' smart constructor.
6972−newtype Buyer = Buyer
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)
6973− { _bbAccountId :: Maybe Text
7183+ , _dtTimeZoneId :: !(Maybe Text)
6974 } deriving (Eq,Show,Data,Typeable,Generic)
7184 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6978-- Use one of the following lenses to modify other fields as desired:
7188-- Use one of the following lenses to modify other fields as desired:
6980−-- * 'bbAccountId'
7190+-- * 'dtSecond'
6985− { _bbAccountId = Nothing
6988−-- | Adx account id of the buyer.
6989−bbAccountId :: Lens' Buyer (Maybe Text)
6991− = lens _bbAccountId (\ s a -> s{_bbAccountId = a})
6993−instance FromJSON Buyer where
6995− = withObject "Buyer"
6996− (\ o -> Buyer <$> (o .:? "accountId"))
6998−instance ToJSON Buyer where
7001− (catMaybes [("accountId" .=) <$> _bbAccountId])
7004−-- /See:/ 'contextsItem' smart constructor.
7192+-- * 'dtDay'
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)
7012−-- | Creates a value of 'ContextsItem' with the minimum fields required to make a request.
7014−-- Use one of the following lenses to modify other fields as desired:
7194+-- * 'dtYear'
7016−-- * 'ciPlatform'
7196+-- * 'dtHour'
7018−-- * 'ciContextType'
7198+-- * 'dtMonth'
7020−-- * 'ciAuctionType'
7200+-- * 'dtMinute'
7022−-- * 'ciGeoCriteriaId'
7202+-- * 'dtTimeZoneId'
7023−contextsItem
7203+dateTime
7024− :: ContextsItem
7204+ :: DateTime
7025−contextsItem =
7205+dateTime =
7026− ContextsItem
7206+ DateTime
7207+ { _dtSecond = Nothing
7027− { _ciPlatform = Nothing
7208+ , _dtDay = Nothing
7028− , _ciContextType = Nothing
7209+ , _dtYear = Nothing
7029− , _ciAuctionType = Nothing
7210+ , _dtHour = Nothing
7030− , _ciGeoCriteriaId = Nothing
7211+ , _dtMonth = Nothing
7212+ , _dtMinute = Nothing
7213+ , _dtTimeZoneId = Nothing
7033−-- | Only set when contextType=PLATFORM. Represents the platforms this
7216+dtSecond :: Lens' DateTime (Maybe Int32)
7034−-- restriction applies to.
7217+dtSecond = lens _dtSecond (\ s a -> s{_dtSecond = a})
7035−ciPlatform :: Lens' ContextsItem [Text]
7037− = lens _ciPlatform (\ s a -> s{_ciPlatform = a}) .
7041−-- | The type of context (e.g., location, platform, auction type, SSL-ness).
7219+dtDay :: Lens' DateTime (Maybe Int32)
7042−ciContextType :: Lens' ContextsItem (Maybe Text)
7220+dtDay = lens _dtDay (\ s a -> s{_dtDay = a})
7044− = lens _ciContextType
7045− (\ s a -> s{_ciContextType = a})
7047−-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
7222+dtYear :: Lens' DateTime (Maybe Int32)
7048−-- this restriction applies to.
7223+dtYear = lens _dtYear (\ s a -> s{_dtYear = a})
7049−ciAuctionType :: Lens' ContextsItem [Text]
7051− = lens _ciAuctionType
7052− (\ s a -> s{_ciAuctionType = a})
7056−-- | Only set when contextType=LOCATION. Represents the geo criterias this
7225+dtHour :: Lens' DateTime (Maybe Int32)
7057−-- restriction applies to.
7226+dtHour = lens _dtHour (\ s a -> s{_dtHour = a})
7058−ciGeoCriteriaId :: Lens' ContextsItem [Int32]
7227+
7059−ciGeoCriteriaId
7228+dtMonth :: Lens' DateTime (Maybe Int32)
7060− = lens _ciGeoCriteriaId
7229+dtMonth = lens _dtMonth (\ s a -> s{_dtMonth = a})
7061− (\ s a -> s{_ciGeoCriteriaId = a})
7231+dtMinute :: Lens' DateTime (Maybe Int32)
7232+dtMinute = lens _dtMinute (\ s a -> s{_dtMinute = a})
7234+dtTimeZoneId :: Lens' DateTime (Maybe Text)
7236+ = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
7065−instance FromJSON ContextsItem where
7238+instance FromJSON DateTime where
7066 parseJSON
7239 parseJSON
7067− = withObject "ContextsItem"
7240+ = withObject "DateTime"
7069− ContextsItem <$>
7242+ DateTime <$>
7070− (o .:? "platform" .!= mempty) <*>
7243+ (o .:? "second") <*> (o .:? "day") <*> (o .:? "year")
7071− (o .:? "contextType")
7244+ <*> (o .:? "hour")
7072− <*> (o .:? "auctionType" .!= mempty)
7245+ <*> (o .:? "month")
7073− <*> (o .:? "geoCriteriaId" .!= mempty))
7246+ <*> (o .:? "minute")
7247+ <*> (o .:? "timeZoneId"))
7075−instance ToJSON ContextsItem where
7249+instance ToJSON DateTime where
7076− toJSON ContextsItem{..}
7250+ toJSON DateTime{..}
7077 = object
7251 = object
7078 (catMaybes
7252 (catMaybes
7079− [("platform" .=) <$> _ciPlatform,
7253+ [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay,
7080− ("contextType" .=) <$> _ciContextType,
7254+ ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour,
7081− ("auctionType" .=) <$> _ciAuctionType,
7255+ ("month" .=) <$> _dtMonth,
7082− ("geoCriteriaId" .=) <$> _ciGeoCriteriaId])
7256+ ("minute" .=) <$> _dtMinute,
7257+ ("timeZoneId" .=) <$> _dtTimeZoneId])
7085-- /See:/ 'marketplaceLabel' smart constructor.
7260-- /See:/ 'marketplaceLabel' smart constructor.
@@ -7153,156 +7328,109 @@ instance ToJSON MarketplaceLabel where
7153 ("label" .=) <$> _mlLabel])
7328 ("label" .=) <$> _mlLabel])
7156−-- /See:/ 'dateTime' smart constructor.
7331+-- /See:/ 'editHistoryDTO' smart constructor.
7157−data DateTime = DateTime
7332+data EditHistoryDTO = EditHistoryDTO
7158− { _dtSecond :: !(Maybe Int32)
7333+ { _ehdtoLastUpdatedByLoginName :: !(Maybe Text)
7159− , _dtDay :: !(Maybe Int32)
7334+ , _ehdtoCreatedByLoginName :: !(Maybe Text)
7160− , _dtYear :: !(Maybe Int32)
7335+ , _ehdtoLastUpdateTimeStamp :: !(Maybe Int64)
7161− , _dtHour :: !(Maybe Int32)
7336+ , _ehdtoCreatedTimeStamp :: !(Maybe Int64)
7162− , _dtMonth :: !(Maybe Int32)
7163− , _dtMinute :: !(Maybe Int32)
7164− , _dtTimeZoneId :: !(Maybe Text)
7165 } deriving (Eq,Show,Data,Typeable,Generic)
7337 } deriving (Eq,Show,Data,Typeable,Generic)
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.
7169-- Use one of the following lenses to modify other fields as desired:
7341-- Use one of the following lenses to modify other fields as desired:
7171−-- * 'dtSecond'
7343+-- * 'ehdtoLastUpdatedByLoginName'
7179−-- * 'dtMonth'
7345+-- * 'ehdtoCreatedByLoginName'
7181−-- * 'dtMinute'
7347+-- * 'ehdtoLastUpdateTimeStamp'
7183−-- * 'dtTimeZoneId'
7349+-- * 'ehdtoCreatedTimeStamp'
7184−dateTime
7350+editHistoryDTO
7185− :: DateTime
7351+ :: EditHistoryDTO
7186−dateTime =
7352+editHistoryDTO =
7187− DateTime
7353+ EditHistoryDTO
7188− { _dtSecond = Nothing
7354+ { _ehdtoLastUpdatedByLoginName = Nothing
7189− , _dtDay = Nothing
7355+ , _ehdtoCreatedByLoginName = Nothing
7190− , _dtYear = Nothing
7356+ , _ehdtoLastUpdateTimeStamp = Nothing
7191− , _dtHour = Nothing
7357+ , _ehdtoCreatedTimeStamp = Nothing
7192− , _dtMonth = Nothing
7193− , _dtMinute = Nothing
7194− , _dtTimeZoneId = Nothing
7197−dtSecond :: Lens' DateTime (Maybe Int32)
7360+ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7198−dtSecond = lens _dtSecond (\ s a -> s{_dtSecond = a})
7361+ehdtoLastUpdatedByLoginName
7199−
7362+ = lens _ehdtoLastUpdatedByLoginName
7200−dtDay :: Lens' DateTime (Maybe Int32)
7363+ (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
7201−dtDay = lens _dtDay (\ s a -> s{_dtDay = a})
7203−dtYear :: Lens' DateTime (Maybe Int32)
7204−dtYear = lens _dtYear (\ s a -> s{_dtYear = a})
7206−dtHour :: Lens' DateTime (Maybe Int32)
7207−dtHour = lens _dtHour (\ s a -> s{_dtHour = a})
7209−dtMonth :: Lens' DateTime (Maybe Int32)
7365+ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7210−dtMonth = lens _dtMonth (\ s a -> s{_dtMonth = a})
7366+ehdtoCreatedByLoginName
7367+ = lens _ehdtoCreatedByLoginName
7368+ (\ s a -> s{_ehdtoCreatedByLoginName = a})
7212−dtMinute :: Lens' DateTime (Maybe Int32)
7370+ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7213−dtMinute = lens _dtMinute (\ s a -> s{_dtMinute = a})
7371+ehdtoLastUpdateTimeStamp
7372+ = lens _ehdtoLastUpdateTimeStamp
7373+ (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
7215−dtTimeZoneId :: Lens' DateTime (Maybe Text)
7375+ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7216−dtTimeZoneId
7376+ehdtoCreatedTimeStamp
7217− = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
7377+ = lens _ehdtoCreatedTimeStamp
7378+ (\ s a -> s{_ehdtoCreatedTimeStamp = a})
7219−instance FromJSON DateTime where
7380+instance FromJSON EditHistoryDTO where
7220 parseJSON
7381 parseJSON
7221− = withObject "DateTime"
7382+ = withObject "EditHistoryDTO"
7223− DateTime <$>
7384+ EditHistoryDTO <$>
7224− (o .:? "second") <*> (o .:? "day") <*> (o .:? "year")
7385+ (o .:? "lastUpdatedByLoginName") <*>
7225− <*> (o .:? "hour")
7386+ (o .:? "createdByLoginName")
7226− <*> (o .:? "month")
7387+ <*> (o .:? "lastUpdateTimeStamp")
7227− <*> (o .:? "minute")
7388+ <*> (o .:? "createdTimeStamp"))
7228− <*> (o .:? "timeZoneId"))
7230−instance ToJSON DateTime where
7390+instance ToJSON EditHistoryDTO where
7231− toJSON DateTime{..}
7391+ toJSON EditHistoryDTO{..}
7232 = object
7392 = object
7233 (catMaybes
7393 (catMaybes
7234− [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay,
7394+ [("lastUpdatedByLoginName" .=) <$>
7235− ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour,
7395+ _ehdtoLastUpdatedByLoginName,
7236− ("month" .=) <$> _dtMonth,
7396+ ("createdByLoginName" .=) <$>
7237− ("minute" .=) <$> _dtMinute,
7397+ _ehdtoCreatedByLoginName,
7238− ("timeZoneId" .=) <$> _dtTimeZoneId])
7398+ ("lastUpdateTimeStamp" .=) <$>
7399+ _ehdtoLastUpdateTimeStamp,
7400+ ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])
7241−-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
7403+-- /See:/ 'buyer' smart constructor.
7242−data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms
7404+newtype Buyer = Buyer
7243− { _dtgfptGuaranteedLooks :: !(Maybe Int64)
7405+ { _bbAccountId :: Maybe Text
7244− , _dtgfptGuaranteedImpressions :: !(Maybe Int64)
7245− , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
7246 } deriving (Eq,Show,Data,Typeable,Generic)
7406 } deriving (Eq,Show,Data,Typeable,Generic)
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.
7250-- Use one of the following lenses to modify other fields as desired:
7410-- Use one of the following lenses to modify other fields as desired:
7252−-- * 'dtgfptGuaranteedLooks'
7412+-- * 'bbAccountId'
7254−-- * 'dtgfptGuaranteedImpressions'
7414+ :: Buyer
7256−-- * 'dtgfptFixedPrices'
7416+ Buyer
7257−dealTermsGuaranteedFixedPriceTerms
7417+ { _bbAccountId = Nothing
7258− :: DealTermsGuaranteedFixedPriceTerms
7259−dealTermsGuaranteedFixedPriceTerms =
7260− DealTermsGuaranteedFixedPriceTerms
7261− { _dtgfptGuaranteedLooks = Nothing
7262− , _dtgfptGuaranteedImpressions = Nothing
7263− , _dtgfptFixedPrices = Nothing
7266−-- | Count of guaranteed looks. Required for deal, optional for offer.
7420+-- | Adx account id of the buyer.
7267−dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7421+bbAccountId :: Lens' Buyer (Maybe Text)
7268−dtgfptGuaranteedLooks
7422+bbAccountId
7269− = lens _dtgfptGuaranteedLooks
7423+ = lens _bbAccountId (\ s a -> s{_bbAccountId = a})
7270− (\ s a -> s{_dtgfptGuaranteedLooks = a})
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})
7279−-- | Fixed price for the specified buyer.
7280−dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [PricePerBuyer]
7282− = lens _dtgfptFixedPrices
7283− (\ s a -> s{_dtgfptFixedPrices = a})
7287−instance FromJSON DealTermsGuaranteedFixedPriceTerms
7425+instance FromJSON Buyer where
7289 parseJSON
7426 parseJSON
7290− = withObject "DealTermsGuaranteedFixedPriceTerms"
7427+ = withObject "Buyer"
7291− (\ o ->
7428+ (\ o -> Buyer <$> (o .:? "accountId"))
7292− DealTermsGuaranteedFixedPriceTerms <$>
7293− (o .:? "guaranteedLooks") <*>
7294− (o .:? "guaranteedImpressions")
7295− <*> (o .:? "fixedPrices" .!= mempty))
7297−instance ToJSON DealTermsGuaranteedFixedPriceTerms
7430+instance ToJSON Buyer where
7298− where
7431+ toJSON Buyer{..}
7299− toJSON DealTermsGuaranteedFixedPriceTerms{..}
7300 = object
7432 = object
7301− (catMaybes
7433+ (catMaybes [("accountId" .=) <$> _bbAccountId])
7302− [("guaranteedLooks" .=) <$> _dtgfptGuaranteedLooks,
7303− ("guaranteedImpressions" .=) <$>
7304− _dtgfptGuaranteedImpressions,
7305− ("fixedPrices" .=) <$> _dtgfptFixedPrices])
7307-- | Represents an order in the marketplace. An order is the unit of
7435-- | Represents an order in the marketplace. An order is the unit of
7308-- negotiation between a seller and a buyer and contains deals which are
7436-- negotiation between a seller and a buyer and contains deals which are
@@ -7643,149 +7771,68 @@ instance ToJSON AddOrderDealsRequest where
7643 _aOrderRevisionNumber])
7771 _aOrderRevisionNumber])
7646−-- /See:/ 'dealTerms' smart constructor.
7774+-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
7647−data DealTerms = DealTerms
7775+data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms
7648− { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
7776+ { _dtgfptGuaranteedLooks :: !(Maybe Int64)
7649− , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
7777+ , _dtgfptGuaranteedImpressions :: !(Maybe Int64)
7650− , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
7778+ , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
7651− , _dtDescription :: !(Maybe Text)
7652− } deriving (Eq,Show,Data,Typeable,Generic)
7654−-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
7656−-- Use one of the following lenses to modify other fields as desired:
7658−-- * 'dtNonGuaranteedFixedPriceTerms'
7660−-- * 'dtNonGuaranteedAuctionTerms'
7662−-- * 'dtGuaranteedFixedPriceTerms'
7664−-- * 'dtDescription'
7669− { _dtNonGuaranteedFixedPriceTerms = Nothing
7670− , _dtNonGuaranteedAuctionTerms = Nothing
7671− , _dtGuaranteedFixedPriceTerms = Nothing
7672− , _dtDescription = Nothing
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})
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})
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})
7693−-- | Description for the proposed terms of the deal.
7694−dtDescription :: Lens' DealTerms (Maybe Text)
7696− = lens _dtDescription
7697− (\ s a -> s{_dtDescription = a})
7699−instance FromJSON DealTerms where
7701− = withObject "DealTerms"
7704− (o .:? "nonGuaranteedFixedPriceTerms") <*>
7705− (o .:? "nonGuaranteedAuctionTerms")
7706− <*> (o .:? "guaranteedFixedPriceTerms")
7707− <*> (o .:? "description"))
7709−instance ToJSON DealTerms where
7710− toJSON DealTerms{..}
7713− [("nonGuaranteedFixedPriceTerms" .=) <$>
7714− _dtNonGuaranteedFixedPriceTerms,
7715− ("nonGuaranteedAuctionTerms" .=) <$>
7716− _dtNonGuaranteedAuctionTerms,
7717− ("guaranteedFixedPriceTerms" .=) <$>
7718− _dtGuaranteedFixedPriceTerms,
7719− ("description" .=) <$> _dtDescription])
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)
7728 } deriving (Eq,Show,Data,Typeable,Generic)
7779 } deriving (Eq,Show,Data,Typeable,Generic)
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.
7732-- Use one of the following lenses to modify other fields as desired:
7783-- Use one of the following lenses to modify other fields as desired:
7734−-- * 'ehdtoLastUpdatedByLoginName'
7785+-- * 'dtgfptGuaranteedLooks'
7736−-- * 'ehdtoCreatedByLoginName'
7738−-- * 'ehdtoLastUpdateTimeStamp'
7787+-- * 'dtgfptGuaranteedImpressions'
7740−-- * 'ehdtoCreatedTimeStamp'
7789+-- * 'dtgfptFixedPrices'
7741−editHistoryDTO
7790+dealTermsGuaranteedFixedPriceTerms
7742− :: EditHistoryDTO
7791+ :: DealTermsGuaranteedFixedPriceTerms
7743−editHistoryDTO =
7792+dealTermsGuaranteedFixedPriceTerms =
7744− EditHistoryDTO
7793+ DealTermsGuaranteedFixedPriceTerms
7745− { _ehdtoLastUpdatedByLoginName = Nothing
7794+ { _dtgfptGuaranteedLooks = Nothing
7746− , _ehdtoCreatedByLoginName = Nothing
7795+ , _dtgfptGuaranteedImpressions = Nothing
7747− , _ehdtoLastUpdateTimeStamp = Nothing
7796+ , _dtgfptFixedPrices = Nothing
7748− , _ehdtoCreatedTimeStamp = Nothing
7751−ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7799+-- | Count of guaranteed looks. Required for deal, optional for offer.
7752−ehdtoLastUpdatedByLoginName
7800+dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7753− = lens _ehdtoLastUpdatedByLoginName
7801+dtgfptGuaranteedLooks
7754− (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
7802+ = lens _dtgfptGuaranteedLooks
7755−
7803+ (\ s a -> s{_dtgfptGuaranteedLooks = a})
7756−ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7757−ehdtoCreatedByLoginName
7758− = lens _ehdtoCreatedByLoginName
7759− (\ s a -> s{_ehdtoCreatedByLoginName = a})
7761−ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7805+-- | Guaranteed impressions as a percentage. This is the percentage of
7762−ehdtoLastUpdateTimeStamp
7806+-- guaranteed looks that the buyer is guaranteeing to buy.
7763− = lens _ehdtoLastUpdateTimeStamp
7807+dtgfptGuaranteedImpressions :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7764− (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
7808+dtgfptGuaranteedImpressions
7809+ = lens _dtgfptGuaranteedImpressions
7810+ (\ s a -> s{_dtgfptGuaranteedImpressions = a})
7766−ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7812+-- | Fixed price for the specified buyer.
7767−ehdtoCreatedTimeStamp
7813+dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [PricePerBuyer]
7768− = lens _ehdtoCreatedTimeStamp
7814+dtgfptFixedPrices
7769− (\ s a -> s{_ehdtoCreatedTimeStamp = a})
7815+ = lens _dtgfptFixedPrices
7816+ (\ s a -> s{_dtgfptFixedPrices = a})
7771−instance FromJSON EditHistoryDTO where
7820+instance FromJSON DealTermsGuaranteedFixedPriceTerms
7772 parseJSON
7822 parseJSON
7773− = withObject "EditHistoryDTO"
7823+ = withObject "DealTermsGuaranteedFixedPriceTerms"
7775− EditHistoryDTO <$>
7825+ DealTermsGuaranteedFixedPriceTerms <$>
7776− (o .:? "lastUpdatedByLoginName") <*>
7826+ (o .:? "guaranteedLooks") <*>
7777− (o .:? "createdByLoginName")
7827+ (o .:? "guaranteedImpressions")
7778− <*> (o .:? "lastUpdateTimeStamp")
7828+ <*> (o .:? "fixedPrices" .!= mempty))
7779− <*> (o .:? "createdTimeStamp"))
7781−instance ToJSON EditHistoryDTO where
7830+instance ToJSON DealTermsGuaranteedFixedPriceTerms
7782− toJSON EditHistoryDTO{..}
7831+ where
7832+ toJSON DealTermsGuaranteedFixedPriceTerms{..}
7783 = object
7833 = object
7784 (catMaybes
7834 (catMaybes
7785− [("lastUpdatedByLoginName" .=) <$>
7835+ [("guaranteedLooks" .=) <$> _dtgfptGuaranteedLooks,
7786− _ehdtoLastUpdatedByLoginName,
7836+ ("guaranteedImpressions" .=) <$>
7787− ("createdByLoginName" .=) <$>
7837+ _dtgfptGuaranteedImpressions,
7788− _ehdtoCreatedByLoginName,
7838+ ("fixedPrices" .=) <$> _dtgfptFixedPrices])
7789− ("lastUpdateTimeStamp" .=) <$>
7790− _ehdtoLastUpdateTimeStamp,
7791− ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])