@@ -0,0 +1,5832 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
2+{-# LANGUAGE DeriveGeneric #-}
3+{-# LANGUAGE OverloadedStrings #-}
4+
5+-- |
6+-- Module : Network.Google.AdExchangeBuyer.Types.Product
7+-- Copyright : (c) 2015 Brendan Hay
8+-- License : Mozilla Public License, v. 2.0.
9+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
10+-- Stability : auto-generated
11+-- Portability : non-portable (GHC extensions)
12+--
13+module Network.Google.AdExchangeBuyer.Types.Product where
14+
15+import Network.Google.AdExchangeBuyer.Types.Sum
16+import Network.Google.Prelude
17+
18+-- | Configuration data for an Ad Exchange buyer account.
19+--
20+-- /See:/ 'account' smart constructor.
21+data Account = Account
22+ { _aMaximumTotalQps :: !(Maybe Int32)
23+ , _aKind :: !Text
24+ , _aCookieMatchingUrl :: !(Maybe Text)
25+ , _aMaximumActiveCreatives :: !(Maybe Int32)
26+ , _aCookieMatchingNid :: !(Maybe Text)
27+ , _aNumberActiveCreatives :: !(Maybe Int32)
28+ , _aId :: !(Maybe Int32)
29+ , _aBidderLocation :: !(Maybe [AccountItemBidderLocation])
30+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
31+
32+-- | Creates a value of 'Account' with the minimum fields required to make a request.
33+--
34+-- Use one of the following lenses to modify other fields as desired:
35+--
36+-- * 'aMaximumTotalQps'
37+--
38+-- * 'aKind'
39+--
40+-- * 'aCookieMatchingUrl'
41+--
42+-- * 'aMaximumActiveCreatives'
43+--
44+-- * 'aCookieMatchingNid'
45+--
46+-- * 'aNumberActiveCreatives'
47+--
48+-- * 'aId'
49+--
50+-- * 'aBidderLocation'
51+account
52+ :: Account
53+account =
54+ Account
55+ { _aMaximumTotalQps = Nothing
56+ , _aKind = "adexchangebuyer#account"
57+ , _aCookieMatchingUrl = Nothing
58+ , _aMaximumActiveCreatives = Nothing
59+ , _aCookieMatchingNid = Nothing
60+ , _aNumberActiveCreatives = Nothing
61+ , _aId = Nothing
62+ , _aBidderLocation = Nothing
63+ }
64+
65+-- | The sum of all bidderLocation.maximumQps values cannot exceed this.
66+-- Please contact your technical account manager if you need to change
67+-- this.
68+aMaximumTotalQps :: Lens' Account (Maybe Int32)
69+aMaximumTotalQps
70+ = lens _aMaximumTotalQps
71+ (\ s a -> s{_aMaximumTotalQps = a})
72+
73+-- | Resource type.
74+aKind :: Lens' Account Text
75+aKind = lens _aKind (\ s a -> s{_aKind = a})
76+
77+-- | The base URL used in cookie match requests.
78+aCookieMatchingUrl :: Lens' Account (Maybe Text)
79+aCookieMatchingUrl
80+ = lens _aCookieMatchingUrl
81+ (\ s a -> s{_aCookieMatchingUrl = a})
82+
83+-- | The maximum number of active creatives that an account can have, where a
84+-- creative is active if it was inserted or bid with in the last 30 days.
85+-- Please contact your technical account manager if you need to change
86+-- this.
87+aMaximumActiveCreatives :: Lens' Account (Maybe Int32)
88+aMaximumActiveCreatives
89+ = lens _aMaximumActiveCreatives
90+ (\ s a -> s{_aMaximumActiveCreatives = a})
91+
92+-- | The nid parameter value used in cookie match requests. Please contact
93+-- your technical account manager if you need to change this.
94+aCookieMatchingNid :: Lens' Account (Maybe Text)
95+aCookieMatchingNid
96+ = lens _aCookieMatchingNid
97+ (\ s a -> s{_aCookieMatchingNid = a})
98+
99+-- | The number of creatives that this account inserted or bid with in the
100+-- last 30 days.
101+aNumberActiveCreatives :: Lens' Account (Maybe Int32)
102+aNumberActiveCreatives
103+ = lens _aNumberActiveCreatives
104+ (\ s a -> s{_aNumberActiveCreatives = a})
105+
106+-- | Account id.
107+aId :: Lens' Account (Maybe Int32)
108+aId = lens _aId (\ s a -> s{_aId = a})
109+
110+-- | Your bidder locations that have distinct URLs.
111+aBidderLocation :: Lens' Account [AccountItemBidderLocation]
112+aBidderLocation
113+ = lens _aBidderLocation
114+ (\ s a -> s{_aBidderLocation = a})
115+ . _Default
116+ . _Coerce
117+
118+--
119+-- /See:/ 'accountItemBidderLocation' smart constructor.
120+data AccountItemBidderLocation = AccountItemBidderLocation
121+ { _aiblUrl :: !(Maybe Text)
122+ , _aiblMaximumQps :: !(Maybe Int32)
123+ , _aiblRegion :: !(Maybe Text)
124+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
125+
126+-- | Creates a value of 'AccountItemBidderLocation' with the minimum fields required to make a request.
127+--
128+-- Use one of the following lenses to modify other fields as desired:
129+--
130+-- * 'aiblUrl'
131+--
132+-- * 'aiblMaximumQps'
133+--
134+-- * 'aiblRegion'
135+accountItemBidderLocation
136+ :: AccountItemBidderLocation
137+accountItemBidderLocation =
138+ AccountItemBidderLocation
139+ { _aiblUrl = Nothing
140+ , _aiblMaximumQps = Nothing
141+ , _aiblRegion = Nothing
142+ }
143+
144+-- | The URL to which the Ad Exchange will send bid requests.
145+aiblUrl :: Lens' AccountItemBidderLocation (Maybe Text)
146+aiblUrl = lens _aiblUrl (\ s a -> s{_aiblUrl = a})
147+
148+-- | The maximum queries per second the Ad Exchange will send.
149+aiblMaximumQps :: Lens' AccountItemBidderLocation (Maybe Int32)
150+aiblMaximumQps
151+ = lens _aiblMaximumQps
152+ (\ s a -> s{_aiblMaximumQps = a})
153+
154+-- | The geographical region the Ad Exchange should send requests from. Only
155+-- used by some quota systems, but always setting the value is recommended.
156+-- Allowed values: - ASIA - EUROPE - US_EAST - US_WEST
157+aiblRegion :: Lens' AccountItemBidderLocation (Maybe Text)
158+aiblRegion
159+ = lens _aiblRegion (\ s a -> s{_aiblRegion = a})
160+
161+-- | An account feed lists Ad Exchange buyer accounts that the user has
162+-- access to. Each entry in the feed corresponds to a single buyer account.
163+--
164+-- /See:/ 'accountsList' smart constructor.
165+data AccountsList = AccountsList
166+ { _alKind :: !Text
167+ , _alItems :: !(Maybe [Maybe Account])
168+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
169+
170+-- | Creates a value of 'AccountsList' with the minimum fields required to make a request.
171+--
172+-- Use one of the following lenses to modify other fields as desired:
173+--
174+-- * 'alKind'
175+--
176+-- * 'alItems'
177+accountsList
178+ :: AccountsList
179+accountsList =
180+ AccountsList
181+ { _alKind = "adexchangebuyer#accountsList"
182+ , _alItems = Nothing
183+ }
184+
185+-- | Resource type.
186+alKind :: Lens' AccountsList Text
187+alKind = lens _alKind (\ s a -> s{_alKind = a})
188+
189+-- | A list of accounts.
190+alItems :: Lens' AccountsList [Maybe Account]
191+alItems
192+ = lens _alItems (\ s a -> s{_alItems = a}) . _Default
193+ . _Coerce
194+
195+--
196+-- /See:/ 'adSize' smart constructor.
197+data AdSize = AdSize
198+ { _asHeight :: !(Maybe Int32)
199+ , _asWidth :: !(Maybe Int32)
200+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
201+
202+-- | Creates a value of 'AdSize' with the minimum fields required to make a request.
203+--
204+-- Use one of the following lenses to modify other fields as desired:
205+--
206+-- * 'asHeight'
207+--
208+-- * 'asWidth'
209+adSize
210+ :: AdSize
211+adSize =
212+ AdSize
213+ { _asHeight = Nothing
214+ , _asWidth = Nothing
215+ }
216+
217+asHeight :: Lens' AdSize (Maybe Int32)
218+asHeight = lens _asHeight (\ s a -> s{_asHeight = a})
219+
220+asWidth :: Lens' AdSize (Maybe Int32)
221+asWidth = lens _asWidth (\ s a -> s{_asWidth = a})
222+
223+--
224+-- /See:/ 'adSlotDto' smart constructor.
225+data AdSlotDto = AdSlotDto
226+ { _asdWebPropertyId :: !(Maybe Int32)
227+ , _asdSize :: !(Maybe Text)
228+ , _asdChannelCode :: !(Maybe Text)
229+ , _asdChannelId :: !(Maybe Int32)
230+ , _asdName :: !(Maybe Text)
231+ , _asdDescription :: !(Maybe Text)
232+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
233+
234+-- | Creates a value of 'AdSlotDto' with the minimum fields required to make a request.
235+--
236+-- Use one of the following lenses to modify other fields as desired:
237+--
238+-- * 'asdWebPropertyId'
239+--
240+-- * 'asdSize'
241+--
242+-- * 'asdChannelCode'
243+--
244+-- * 'asdChannelId'
245+--
246+-- * 'asdName'
247+--
248+-- * 'asdDescription'
249+adSlotDto
250+ :: AdSlotDto
251+adSlotDto =
252+ AdSlotDto
253+ { _asdWebPropertyId = Nothing
254+ , _asdSize = Nothing
255+ , _asdChannelCode = Nothing
256+ , _asdChannelId = Nothing
257+ , _asdName = Nothing
258+ , _asdDescription = Nothing
259+ }
260+
261+asdWebPropertyId :: Lens' AdSlotDto (Maybe Int32)
262+asdWebPropertyId
263+ = lens _asdWebPropertyId
264+ (\ s a -> s{_asdWebPropertyId = a})
265+
266+asdSize :: Lens' AdSlotDto (Maybe Text)
267+asdSize = lens _asdSize (\ s a -> s{_asdSize = a})
268+
269+asdChannelCode :: Lens' AdSlotDto (Maybe Text)
270+asdChannelCode
271+ = lens _asdChannelCode
272+ (\ s a -> s{_asdChannelCode = a})
273+
274+asdChannelId :: Lens' AdSlotDto (Maybe Int32)
275+asdChannelId
276+ = lens _asdChannelId (\ s a -> s{_asdChannelId = a})
277+
278+asdName :: Lens' AdSlotDto (Maybe Text)
279+asdName = lens _asdName (\ s a -> s{_asdName = a})
280+
281+asdDescription :: Lens' AdSlotDto (Maybe Text)
282+asdDescription
283+ = lens _asdDescription
284+ (\ s a -> s{_asdDescription = a})
285+
286+--
287+-- /See:/ 'addOrderDealsRequest' smart constructor.
288+data AddOrderDealsRequest = AddOrderDealsRequest
289+ { _aodrUpdateAction :: !(Maybe Text)
290+ , _aodrDeals :: !(Maybe [Maybe MarketplaceDeal])
291+ , _aodrOrderRevisionNumber :: !(Maybe Int64)
292+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
293+
294+-- | Creates a value of 'AddOrderDealsRequest' with the minimum fields required to make a request.
295+--
296+-- Use one of the following lenses to modify other fields as desired:
297+--
298+-- * 'aodrUpdateAction'
299+--
300+-- * 'aodrDeals'
301+--
302+-- * 'aodrOrderRevisionNumber'
303+addOrderDealsRequest
304+ :: AddOrderDealsRequest
305+addOrderDealsRequest =
306+ AddOrderDealsRequest
307+ { _aodrUpdateAction = Nothing
308+ , _aodrDeals = Nothing
309+ , _aodrOrderRevisionNumber = Nothing
310+ }
311+
312+-- | Indicates an optional action to take on the order
313+aodrUpdateAction :: Lens' AddOrderDealsRequest (Maybe Text)
314+aodrUpdateAction
315+ = lens _aodrUpdateAction
316+ (\ s a -> s{_aodrUpdateAction = a})
317+
318+-- | The list of deals to add
319+aodrDeals :: Lens' AddOrderDealsRequest [Maybe MarketplaceDeal]
320+aodrDeals
321+ = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
322+ _Default
323+ . _Coerce
324+
325+-- | The last known order revision number.
326+aodrOrderRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64)
327+aodrOrderRevisionNumber
328+ = lens _aodrOrderRevisionNumber
329+ (\ s a -> s{_aodrOrderRevisionNumber = a})
330+
331+--
332+-- /See:/ 'addOrderDealsResponse' smart constructor.
333+data AddOrderDealsResponse = AddOrderDealsResponse
334+ { _aDeals :: !(Maybe [Maybe MarketplaceDeal])
335+ , _aOrderRevisionNumber :: !(Maybe Int64)
336+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
337+
338+-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
339+--
340+-- Use one of the following lenses to modify other fields as desired:
341+--
342+-- * 'aDeals'
343+--
344+-- * 'aOrderRevisionNumber'
345+addOrderDealsResponse
346+ :: AddOrderDealsResponse
347+addOrderDealsResponse =
348+ AddOrderDealsResponse
349+ { _aDeals = Nothing
350+ , _aOrderRevisionNumber = Nothing
351+ }
352+
353+-- | List of deals added (in the same order as passed in the request)
354+aDeals :: Lens' AddOrderDealsResponse [Maybe MarketplaceDeal]
355+aDeals
356+ = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default .
357+ _Coerce
358+
359+-- | The updated revision number for the order.
360+aOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
361+aOrderRevisionNumber
362+ = lens _aOrderRevisionNumber
363+ (\ s a -> s{_aOrderRevisionNumber = a})
364+
365+--
366+-- /See:/ 'addOrderNotesRequest' smart constructor.
367+newtype AddOrderNotesRequest = AddOrderNotesRequest
368+ { _aNotes :: Maybe [Maybe MarketplaceNote]
369+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
370+
371+-- | Creates a value of 'AddOrderNotesRequest' with the minimum fields required to make a request.
372+--
373+-- Use one of the following lenses to modify other fields as desired:
374+--
375+-- * 'aNotes'
376+addOrderNotesRequest
377+ :: AddOrderNotesRequest
378+addOrderNotesRequest =
379+ AddOrderNotesRequest
380+ { _aNotes = Nothing
381+ }
382+
383+-- | The list of notes to add.
384+aNotes :: Lens' AddOrderNotesRequest [Maybe MarketplaceNote]
385+aNotes
386+ = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
387+ _Coerce
388+
389+--
390+-- /See:/ 'addOrderNotesResponse' smart constructor.
391+newtype AddOrderNotesResponse = AddOrderNotesResponse
392+ { _aonrNotes :: Maybe [Maybe MarketplaceNote]
393+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
394+
395+-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.
396+--
397+-- Use one of the following lenses to modify other fields as desired:
398+--
399+-- * 'aonrNotes'
400+addOrderNotesResponse
401+ :: AddOrderNotesResponse
402+addOrderNotesResponse =
403+ AddOrderNotesResponse
404+ { _aonrNotes = Nothing
405+ }
406+
407+aonrNotes :: Lens' AddOrderNotesResponse [Maybe MarketplaceNote]
408+aonrNotes
409+ = lens _aonrNotes (\ s a -> s{_aonrNotes = a}) .
410+ _Default
411+ . _Coerce
412+
413+--
414+-- /See:/ 'advertiserDto' smart constructor.
415+data AdvertiserDto = AdvertiserDto
416+ { _adStatus :: !(Maybe Text)
417+ , _adBrands :: !(Maybe [Maybe BrandDto])
418+ , _adName :: !(Maybe Text)
419+ , _adId :: !(Maybe Int64)
420+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
421+
422+-- | Creates a value of 'AdvertiserDto' with the minimum fields required to make a request.
423+--
424+-- Use one of the following lenses to modify other fields as desired:
425+--
426+-- * 'adStatus'
427+--
428+-- * 'adBrands'
429+--
430+-- * 'adName'
431+--
432+-- * 'adId'
433+advertiserDto
434+ :: AdvertiserDto
435+advertiserDto =
436+ AdvertiserDto
437+ { _adStatus = Nothing
438+ , _adBrands = Nothing
439+ , _adName = Nothing
440+ , _adId = Nothing
441+ }
442+
443+adStatus :: Lens' AdvertiserDto (Maybe Text)
444+adStatus = lens _adStatus (\ s a -> s{_adStatus = a})
445+
446+adBrands :: Lens' AdvertiserDto [Maybe BrandDto]
447+adBrands
448+ = lens _adBrands (\ s a -> s{_adBrands = a}) .
449+ _Default
450+ . _Coerce
451+
452+adName :: Lens' AdvertiserDto (Maybe Text)
453+adName = lens _adName (\ s a -> s{_adName = a})
454+
455+adId :: Lens' AdvertiserDto (Maybe Int64)
456+adId = lens _adId (\ s a -> s{_adId = a})
457+
458+--
459+-- /See:/ 'audienceSegment' smart constructor.
460+data AudienceSegment = AudienceSegment
461+ { _asNumCookies :: !(Maybe Int64)
462+ , _asName :: !(Maybe Text)
463+ , _asId :: !(Maybe Int64)
464+ , _asDescription :: !(Maybe Text)
465+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
466+
467+-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request.
468+--
469+-- Use one of the following lenses to modify other fields as desired:
470+--
471+-- * 'asNumCookies'
472+--
473+-- * 'asName'
474+--
475+-- * 'asId'
476+--
477+-- * 'asDescription'
478+audienceSegment
479+ :: AudienceSegment
480+audienceSegment =
481+ AudienceSegment
482+ { _asNumCookies = Nothing
483+ , _asName = Nothing
484+ , _asId = Nothing
485+ , _asDescription = Nothing
486+ }
487+
488+asNumCookies :: Lens' AudienceSegment (Maybe Int64)
489+asNumCookies
490+ = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
491+
492+asName :: Lens' AudienceSegment (Maybe Text)
493+asName = lens _asName (\ s a -> s{_asName = a})
494+
495+asId :: Lens' AudienceSegment (Maybe Int64)
496+asId = lens _asId (\ s a -> s{_asId = a})
497+
498+asDescription :: Lens' AudienceSegment (Maybe Text)
499+asDescription
500+ = lens _asDescription
501+ (\ s a -> s{_asDescription = a})
502+
503+-- | The configuration data for an Ad Exchange billing info.
504+--
505+-- /See:/ 'billingInfo' smart constructor.
506+data BillingInfo = BillingInfo
507+ { _biKind :: !Text
508+ , _biAccountName :: !(Maybe Text)
509+ , _biAccountId :: !(Maybe Int32)
510+ , _biBillingId :: !(Maybe [Text])
511+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
512+
513+-- | Creates a value of 'BillingInfo' with the minimum fields required to make a request.
514+--
515+-- Use one of the following lenses to modify other fields as desired:
516+--
517+-- * 'biKind'
518+--
519+-- * 'biAccountName'
520+--
521+-- * 'biAccountId'
522+--
523+-- * 'biBillingId'
524+billingInfo
525+ :: BillingInfo
526+billingInfo =
527+ BillingInfo
528+ { _biKind = "adexchangebuyer#billingInfo"
529+ , _biAccountName = Nothing
530+ , _biAccountId = Nothing
531+ , _biBillingId = Nothing
532+ }
533+
534+-- | Resource type.
535+biKind :: Lens' BillingInfo Text
536+biKind = lens _biKind (\ s a -> s{_biKind = a})
537+
538+-- | Account name.
539+biAccountName :: Lens' BillingInfo (Maybe Text)
540+biAccountName
541+ = lens _biAccountName
542+ (\ s a -> s{_biAccountName = a})
543+
544+-- | Account id.
545+biAccountId :: Lens' BillingInfo (Maybe Int32)
546+biAccountId
547+ = lens _biAccountId (\ s a -> s{_biAccountId = a})
548+
549+-- | A list of adgroup IDs associated with this particular account. These IDs
550+-- may show up as part of a realtime bidding BidRequest, which indicates a
551+-- bid request for this account.
552+biBillingId :: Lens' BillingInfo [Text]
553+biBillingId
554+ = lens _biBillingId (\ s a -> s{_biBillingId = a}) .
555+ _Default
556+ . _Coerce
557+
558+-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
559+-- access to. Each entry in the feed corresponds to a single billing info.
560+--
561+-- /See:/ 'billingInfoList' smart constructor.
562+data BillingInfoList = BillingInfoList
563+ { _bilKind :: !Text
564+ , _bilItems :: !(Maybe [Maybe BillingInfo])
565+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
566+
567+-- | Creates a value of 'BillingInfoList' with the minimum fields required to make a request.
568+--
569+-- Use one of the following lenses to modify other fields as desired:
570+--
571+-- * 'bilKind'
572+--
573+-- * 'bilItems'
574+billingInfoList
575+ :: BillingInfoList
576+billingInfoList =
577+ BillingInfoList
578+ { _bilKind = "adexchangebuyer#billingInfoList"
579+ , _bilItems = Nothing
580+ }
581+
582+-- | Resource type.
583+bilKind :: Lens' BillingInfoList Text
584+bilKind = lens _bilKind (\ s a -> s{_bilKind = a})
585+
586+-- | A list of billing info relevant for your account.
587+bilItems :: Lens' BillingInfoList [Maybe BillingInfo]
588+bilItems
589+ = lens _bilItems (\ s a -> s{_bilItems = a}) .
590+ _Default
591+ . _Coerce
592+
593+--
594+-- /See:/ 'brandDto' smart constructor.
595+data BrandDto = BrandDto
596+ { _bAdvertiserId :: !(Maybe Int64)
597+ , _bName :: !(Maybe Text)
598+ , _bId :: !(Maybe Int64)
599+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
600+
601+-- | Creates a value of 'BrandDto' with the minimum fields required to make a request.
602+--
603+-- Use one of the following lenses to modify other fields as desired:
604+--
605+-- * 'bAdvertiserId'
606+--
607+-- * 'bName'
608+--
609+-- * 'bId'
610+brandDto
611+ :: BrandDto
612+brandDto =
613+ BrandDto
614+ { _bAdvertiserId = Nothing
615+ , _bName = Nothing
616+ , _bId = Nothing
617+ }
618+
619+bAdvertiserId :: Lens' BrandDto (Maybe Int64)
620+bAdvertiserId
621+ = lens _bAdvertiserId
622+ (\ s a -> s{_bAdvertiserId = a})
623+
624+bName :: Lens' BrandDto (Maybe Text)
625+bName = lens _bName (\ s a -> s{_bName = a})
626+
627+bId :: Lens' BrandDto (Maybe Int64)
628+bId = lens _bId (\ s a -> s{_bId = a})
629+
630+-- | The configuration data for Ad Exchange RTB - Budget API.
631+--
632+-- /See:/ 'budget' smart constructor.
633+data Budget = Budget
634+ { _budCurrencyCode :: !(Maybe Text)
635+ , _budKind :: !Text
636+ , _budBudgetAmount :: !(Maybe Int64)
637+ , _budAccountId :: !(Maybe Int64)
638+ , _budId :: !(Maybe Text)
639+ , _budBillingId :: !(Maybe Int64)
640+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
641+
642+-- | Creates a value of 'Budget' with the minimum fields required to make a request.
643+--
644+-- Use one of the following lenses to modify other fields as desired:
645+--
646+-- * 'budCurrencyCode'
647+--
648+-- * 'budKind'
649+--
650+-- * 'budBudgetAmount'
651+--
652+-- * 'budAccountId'
653+--
654+-- * 'budId'
655+--
656+-- * 'budBillingId'
657+budget
658+ :: Budget
659+budget =
660+ Budget
661+ { _budCurrencyCode = Nothing
662+ , _budKind = "adexchangebuyer#budget"
663+ , _budBudgetAmount = Nothing
664+ , _budAccountId = Nothing
665+ , _budId = Nothing
666+ , _budBillingId = Nothing
667+ }
668+
669+-- | The currency code for the buyer. This cannot be altered here.
670+budCurrencyCode :: Lens' Budget (Maybe Text)
671+budCurrencyCode
672+ = lens _budCurrencyCode
673+ (\ s a -> s{_budCurrencyCode = a})
674+
675+-- | The kind of the resource, i.e. \"adexchangebuyer#budget\".
676+budKind :: Lens' Budget Text
677+budKind = lens _budKind (\ s a -> s{_budKind = a})
678+
679+-- | The budget amount to apply for the billingId provided. This is required
680+-- for update requests.
681+budBudgetAmount :: Lens' Budget (Maybe Int64)
682+budBudgetAmount
683+ = lens _budBudgetAmount
684+ (\ s a -> s{_budBudgetAmount = a})
685+
686+-- | The id of the account. This is required for get and update requests.
687+budAccountId :: Lens' Budget (Maybe Int64)
688+budAccountId
689+ = lens _budAccountId (\ s a -> s{_budAccountId = a})
690+
691+-- | The unique id that describes this item.
692+budId :: Lens' Budget (Maybe Text)
693+budId = lens _budId (\ s a -> s{_budId = a})
694+
695+-- | The billing id to determine which adgroup to provide budget information
696+-- for. This is required for get and update requests.
697+budBillingId :: Lens' Budget (Maybe Int64)
698+budBillingId
699+ = lens _budBillingId (\ s a -> s{_budBillingId = a})
700+
701+--
702+-- /See:/ 'buyer' smart constructor.
703+newtype Buyer = Buyer
704+ { _bAccountId :: Maybe Text
705+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
706+
707+-- | Creates a value of 'Buyer' with the minimum fields required to make a request.
708+--
709+-- Use one of the following lenses to modify other fields as desired:
710+--
711+-- * 'bAccountId'
712+buyer
713+ :: Buyer
714+buyer =
715+ Buyer
716+ { _bAccountId = Nothing
717+ }
718+
719+-- | Adx account id of the buyer.
720+bAccountId :: Lens' Buyer (Maybe Text)
721+bAccountId
722+ = lens _bAccountId (\ s a -> s{_bAccountId = a})
723+
724+--
725+-- /See:/ 'buyerDto' smart constructor.
726+data BuyerDto = BuyerDto
727+ { _bdSponsorAccountId :: !(Maybe Int32)
728+ , _bdEnabledForInterestTargetingDeals :: !(Maybe Bool)
729+ , _bdCustomerId :: !(Maybe Int32)
730+ , _bdEnabledForPreferredDeals :: !(Maybe Bool)
731+ , _bdAccountId :: !(Maybe Int32)
732+ , _bdDisplayName :: !(Maybe Text)
733+ , _bdId :: !(Maybe Int32)
734+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
735+
736+-- | Creates a value of 'BuyerDto' with the minimum fields required to make a request.
737+--
738+-- Use one of the following lenses to modify other fields as desired:
739+--
740+-- * 'bdSponsorAccountId'
741+--
742+-- * 'bdEnabledForInterestTargetingDeals'
743+--
744+-- * 'bdCustomerId'
745+--
746+-- * 'bdEnabledForPreferredDeals'
747+--
748+-- * 'bdAccountId'
749+--
750+-- * 'bdDisplayName'
751+--
752+-- * 'bdId'
753+buyerDto
754+ :: BuyerDto
755+buyerDto =
756+ BuyerDto
757+ { _bdSponsorAccountId = Nothing
758+ , _bdEnabledForInterestTargetingDeals = Nothing
759+ , _bdCustomerId = Nothing
760+ , _bdEnabledForPreferredDeals = Nothing
761+ , _bdAccountId = Nothing
762+ , _bdDisplayName = Nothing
763+ , _bdId = Nothing
764+ }
765+
766+bdSponsorAccountId :: Lens' BuyerDto (Maybe Int32)
767+bdSponsorAccountId
768+ = lens _bdSponsorAccountId
769+ (\ s a -> s{_bdSponsorAccountId = a})
770+
771+bdEnabledForInterestTargetingDeals :: Lens' BuyerDto (Maybe Bool)
772+bdEnabledForInterestTargetingDeals
773+ = lens _bdEnabledForInterestTargetingDeals
774+ (\ s a -> s{_bdEnabledForInterestTargetingDeals = a})
775+
776+bdCustomerId :: Lens' BuyerDto (Maybe Int32)
777+bdCustomerId
778+ = lens _bdCustomerId (\ s a -> s{_bdCustomerId = a})
779+
780+bdEnabledForPreferredDeals :: Lens' BuyerDto (Maybe Bool)
781+bdEnabledForPreferredDeals
782+ = lens _bdEnabledForPreferredDeals
783+ (\ s a -> s{_bdEnabledForPreferredDeals = a})
784+
785+bdAccountId :: Lens' BuyerDto (Maybe Int32)
786+bdAccountId
787+ = lens _bdAccountId (\ s a -> s{_bdAccountId = a})
788+
789+bdDisplayName :: Lens' BuyerDto (Maybe Text)
790+bdDisplayName
791+ = lens _bdDisplayName
792+ (\ s a -> s{_bdDisplayName = a})
793+
794+bdId :: Lens' BuyerDto (Maybe Int32)
795+bdId = lens _bdId (\ s a -> s{_bdId = a})
796+
797+--
798+-- /See:/ 'clientAccessCapabilities' smart constructor.
799+data ClientAccessCapabilities = ClientAccessCapabilities
800+ { _cacClientAccountId :: !(Maybe Int64)
801+ , _cacCapabilities :: !(Maybe [Int32])
802+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
803+
804+-- | Creates a value of 'ClientAccessCapabilities' with the minimum fields required to make a request.
805+--
806+-- Use one of the following lenses to modify other fields as desired:
807+--
808+-- * 'cacClientAccountId'
809+--
810+-- * 'cacCapabilities'
811+clientAccessCapabilities
812+ :: ClientAccessCapabilities
813+clientAccessCapabilities =
814+ ClientAccessCapabilities
815+ { _cacClientAccountId = Nothing
816+ , _cacCapabilities = Nothing
817+ }
818+
819+cacClientAccountId :: Lens' ClientAccessCapabilities (Maybe Int64)
820+cacClientAccountId
821+ = lens _cacClientAccountId
822+ (\ s a -> s{_cacClientAccountId = a})
823+
824+cacCapabilities :: Lens' ClientAccessCapabilities [Int32]
825+cacCapabilities
826+ = lens _cacCapabilities
827+ (\ s a -> s{_cacCapabilities = a})
828+ . _Default
829+ . _Coerce
830+
831+--
832+-- /See:/ 'contactInformation' smart constructor.
833+data ContactInformation = ContactInformation
834+ { _ciEmail :: !(Maybe Text)
835+ , _ciName :: !(Maybe Text)
836+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
837+
838+-- | Creates a value of 'ContactInformation' with the minimum fields required to make a request.
839+--
840+-- Use one of the following lenses to modify other fields as desired:
841+--
842+-- * 'ciEmail'
843+--
844+-- * 'ciName'
845+contactInformation
846+ :: ContactInformation
847+contactInformation =
848+ ContactInformation
849+ { _ciEmail = Nothing
850+ , _ciName = Nothing
851+ }
852+
853+-- | Email address of the contact.
854+ciEmail :: Lens' ContactInformation (Maybe Text)
855+ciEmail = lens _ciEmail (\ s a -> s{_ciEmail = a})
856+
857+-- | The name of the contact.
858+ciName :: Lens' ContactInformation (Maybe Text)
859+ciName = lens _ciName (\ s a -> s{_ciName = a})
860+
861+--
862+-- /See:/ 'createOrdersRequest' smart constructor.
863+data CreateOrdersRequest = CreateOrdersRequest
864+ { _cWebPropertyCode :: !(Maybe Text)
865+ , _cOrders :: !(Maybe [Maybe MarketplaceOrder])
866+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
867+
868+-- | Creates a value of 'CreateOrdersRequest' with the minimum fields required to make a request.
869+--
870+-- Use one of the following lenses to modify other fields as desired:
871+--
872+-- * 'cWebPropertyCode'
873+--
874+-- * 'cOrders'
875+createOrdersRequest
876+ :: CreateOrdersRequest
877+createOrdersRequest =
878+ CreateOrdersRequest
879+ { _cWebPropertyCode = Nothing
880+ , _cOrders = Nothing
881+ }
882+
883+cWebPropertyCode :: Lens' CreateOrdersRequest (Maybe Text)
884+cWebPropertyCode
885+ = lens _cWebPropertyCode
886+ (\ s a -> s{_cWebPropertyCode = a})
887+
888+-- | The list of orders to create.
889+cOrders :: Lens' CreateOrdersRequest [Maybe MarketplaceOrder]
890+cOrders
891+ = lens _cOrders (\ s a -> s{_cOrders = a}) . _Default
892+ . _Coerce
893+
894+--
895+-- /See:/ 'createOrdersResponse' smart constructor.
896+newtype CreateOrdersResponse = CreateOrdersResponse
897+ { _corOrders :: Maybe [Maybe MarketplaceOrder]
898+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
899+
900+-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
901+--
902+-- Use one of the following lenses to modify other fields as desired:
903+--
904+-- * 'corOrders'
905+createOrdersResponse
906+ :: CreateOrdersResponse
907+createOrdersResponse =
908+ CreateOrdersResponse
909+ { _corOrders = Nothing
910+ }
911+
912+-- | The list of orders successfully created.
913+corOrders :: Lens' CreateOrdersResponse [Maybe MarketplaceOrder]
914+corOrders
915+ = lens _corOrders (\ s a -> s{_corOrders = a}) .
916+ _Default
917+ . _Coerce
918+
919+-- | A creative and its classification data.
920+--
921+-- /See:/ 'creative' smart constructor.
922+data Creative = Creative
923+ { _cAttribute :: !(Maybe [Int32])
924+ , _cNativeAd :: !(Maybe CreativeNativeAd)
925+ , _cHeight :: !(Maybe Int32)
926+ , _cBuyerCreativeId :: !(Maybe Text)
927+ , _cAdvertiserName :: !(Maybe Text)
928+ , _cAgencyId :: !(Maybe Int64)
929+ , _cCorrections :: !(Maybe [CreativeItemCorrections])
930+ , _cProductCategories :: !(Maybe [Int32])
931+ , _cKind :: !Text
932+ , _cHTMLSnippet :: !(Maybe Text)
933+ , _cAdvertiserId :: !(Maybe [Int64])
934+ , _cRestrictedCategories :: !(Maybe [Int32])
935+ , _cDealsStatus :: !(Maybe Text)
936+ , _cWidth :: !(Maybe Int32)
937+ , _cClickThroughUrl :: !(Maybe [Text])
938+ , _cVendorType :: !(Maybe [Int32])
939+ , _cAccountId :: !(Maybe Int32)
940+ , _cImpressionTrackingUrl :: !(Maybe [Text])
941+ , _cFilteringReasons :: !(Maybe CreativeFilteringReasons)
942+ , _cVersion :: !(Maybe Int32)
943+ , _cSensitiveCategories :: !(Maybe [Int32])
944+ , _cVideoURL :: !(Maybe Text)
945+ , _cApiUploadTimestamp :: !(Maybe UTCTime)
946+ , _cServingRestrictions :: !(Maybe [CreativeItemServingRestrictions])
947+ , _cOpenAuctionStatus :: !(Maybe Text)
948+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
949+
950+-- | Creates a value of 'Creative' with the minimum fields required to make a request.
951+--
952+-- Use one of the following lenses to modify other fields as desired:
953+--
954+-- * 'cAttribute'
955+--
956+-- * 'cNativeAd'
957+--
958+-- * 'cHeight'
959+--
960+-- * 'cBuyerCreativeId'
961+--
962+-- * 'cAdvertiserName'
963+--
964+-- * 'cAgencyId'
965+--
966+-- * 'cCorrections'
967+--
968+-- * 'cProductCategories'
969+--
970+-- * 'cKind'
971+--
972+-- * 'cHTMLSnippet'
973+--
974+-- * 'cAdvertiserId'
975+--
976+-- * 'cRestrictedCategories'
977+--
978+-- * 'cDealsStatus'
979+--
980+-- * 'cWidth'
981+--
982+-- * 'cClickThroughUrl'
983+--
984+-- * 'cVendorType'
985+--
986+-- * 'cAccountId'
987+--
988+-- * 'cImpressionTrackingUrl'
989+--
990+-- * 'cFilteringReasons'
991+--
992+-- * 'cVersion'
993+--
994+-- * 'cSensitiveCategories'
995+--
996+-- * 'cVideoURL'
997+--
998+-- * 'cApiUploadTimestamp'
999+--
1000+-- * 'cServingRestrictions'
1001+--
1002+-- * 'cOpenAuctionStatus'
1003+creative
1004+ :: Creative
1005+creative =
1006+ Creative
1007+ { _cAttribute = Nothing
1008+ , _cNativeAd = Nothing
1009+ , _cHeight = Nothing
1010+ , _cBuyerCreativeId = Nothing
1011+ , _cAdvertiserName = Nothing
1012+ , _cAgencyId = Nothing
1013+ , _cCorrections = Nothing
1014+ , _cProductCategories = Nothing
1015+ , _cKind = "adexchangebuyer#creative"
1016+ , _cHTMLSnippet = Nothing
1017+ , _cAdvertiserId = Nothing
1018+ , _cRestrictedCategories = Nothing
1019+ , _cDealsStatus = Nothing
1020+ , _cWidth = Nothing
1021+ , _cClickThroughUrl = Nothing
1022+ , _cVendorType = Nothing
1023+ , _cAccountId = Nothing
1024+ , _cImpressionTrackingUrl = Nothing
1025+ , _cFilteringReasons = Nothing
1026+ , _cVersion = Nothing
1027+ , _cSensitiveCategories = Nothing
1028+ , _cVideoURL = Nothing
1029+ , _cApiUploadTimestamp = Nothing
1030+ , _cServingRestrictions = Nothing
1031+ , _cOpenAuctionStatus = Nothing
1032+ }
1033+
1034+-- | All attributes for the ads that may be shown from this snippet.
1035+cAttribute :: Lens' Creative [Int32]
1036+cAttribute
1037+ = lens _cAttribute (\ s a -> s{_cAttribute = a}) .
1038+ _Default
1039+ . _Coerce
1040+
1041+-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
1042+cNativeAd :: Lens' Creative (Maybe CreativeNativeAd)
1043+cNativeAd
1044+ = lens _cNativeAd (\ s a -> s{_cNativeAd = a})
1045+
1046+-- | Ad height.
1047+cHeight :: Lens' Creative (Maybe Int32)
1048+cHeight = lens _cHeight (\ s a -> s{_cHeight = a})
1049+
1050+-- | A buyer-specific id identifying the creative in this ad.
1051+cBuyerCreativeId :: Lens' Creative (Maybe Text)
1052+cBuyerCreativeId
1053+ = lens _cBuyerCreativeId
1054+ (\ s a -> s{_cBuyerCreativeId = a})
1055+
1056+-- | The name of the company being advertised in the creative.
1057+cAdvertiserName :: Lens' Creative (Maybe Text)
1058+cAdvertiserName
1059+ = lens _cAdvertiserName
1060+ (\ s a -> s{_cAdvertiserName = a})
1061+
1062+-- | The agency id for this creative.
1063+cAgencyId :: Lens' Creative (Maybe Int64)
1064+cAgencyId
1065+ = lens _cAgencyId (\ s a -> s{_cAgencyId = a})
1066+
1067+-- | Shows any corrections that were applied to this creative. Read-only.
1068+-- This field should not be set in requests.
1069+cCorrections :: Lens' Creative [CreativeItemCorrections]
1070+cCorrections
1071+ = lens _cCorrections (\ s a -> s{_cCorrections = a})
1072+ . _Default
1073+ . _Coerce
1074+
1075+-- | Detected product categories, if any. Read-only. This field should not be
1076+-- set in requests.
1077+cProductCategories :: Lens' Creative [Int32]
1078+cProductCategories
1079+ = lens _cProductCategories
1080+ (\ s a -> s{_cProductCategories = a})
1081+ . _Default
1082+ . _Coerce
1083+
1084+-- | Resource type.
1085+cKind :: Lens' Creative Text
1086+cKind = lens _cKind (\ s a -> s{_cKind = a})
1087+
1088+-- | The HTML snippet that displays the ad when inserted in the web page. If
1089+-- set, videoURL should not be set.
1090+cHTMLSnippet :: Lens' Creative (Maybe Text)
1091+cHTMLSnippet
1092+ = lens _cHTMLSnippet (\ s a -> s{_cHTMLSnippet = a})
1093+
1094+-- | Detected advertiser id, if any. Read-only. This field should not be set
1095+-- in requests.
1096+cAdvertiserId :: Lens' Creative [Int64]
1097+cAdvertiserId
1098+ = lens _cAdvertiserId
1099+ (\ s a -> s{_cAdvertiserId = a})
1100+ . _Default
1101+ . _Coerce
1102+
1103+-- | All restricted categories for the ads that may be shown from this
1104+-- snippet.
1105+cRestrictedCategories :: Lens' Creative [Int32]
1106+cRestrictedCategories
1107+ = lens _cRestrictedCategories
1108+ (\ s a -> s{_cRestrictedCategories = a})
1109+ . _Default
1110+ . _Coerce
1111+
1112+-- | Top-level deals status. Read-only. This field should not be set in
1113+-- requests. If disapproved, an entry for auctionType=DIRECT_DEALS (or ALL)
1114+-- in servingRestrictions will also exist. Note that this may be nuanced
1115+-- with other contextual restrictions, in which case it may be preferable
1116+-- to read from servingRestrictions directly.
1117+cDealsStatus :: Lens' Creative (Maybe Text)
1118+cDealsStatus
1119+ = lens _cDealsStatus (\ s a -> s{_cDealsStatus = a})
1120+
1121+-- | Ad width.
1122+cWidth :: Lens' Creative (Maybe Int32)
1123+cWidth = lens _cWidth (\ s a -> s{_cWidth = a})
1124+
1125+-- | The set of destination urls for the snippet.
1126+cClickThroughUrl :: Lens' Creative [Text]
1127+cClickThroughUrl
1128+ = lens _cClickThroughUrl
1129+ (\ s a -> s{_cClickThroughUrl = a})
1130+ . _Default
1131+ . _Coerce
1132+
1133+-- | All vendor types for the ads that may be shown from this snippet.
1134+cVendorType :: Lens' Creative [Int32]
1135+cVendorType
1136+ = lens _cVendorType (\ s a -> s{_cVendorType = a}) .
1137+ _Default
1138+ . _Coerce
1139+
1140+-- | Account id.
1141+cAccountId :: Lens' Creative (Maybe Int32)
1142+cAccountId
1143+ = lens _cAccountId (\ s a -> s{_cAccountId = a})
1144+
1145+-- | The set of urls to be called to record an impression.
1146+cImpressionTrackingUrl :: Lens' Creative [Text]
1147+cImpressionTrackingUrl
1148+ = lens _cImpressionTrackingUrl
1149+ (\ s a -> s{_cImpressionTrackingUrl = a})
1150+ . _Default
1151+ . _Coerce
1152+
1153+-- | The filtering reasons for the creative. Read-only. This field should not
1154+-- be set in requests.
1155+cFilteringReasons :: Lens' Creative (Maybe CreativeFilteringReasons)
1156+cFilteringReasons
1157+ = lens _cFilteringReasons
1158+ (\ s a -> s{_cFilteringReasons = a})
1159+
1160+-- | The version for this creative. Read-only. This field should not be set
1161+-- in requests.
1162+cVersion :: Lens' Creative (Maybe Int32)
1163+cVersion = lens _cVersion (\ s a -> s{_cVersion = a})
1164+
1165+-- | Detected sensitive categories, if any. Read-only. This field should not
1166+-- be set in requests.
1167+cSensitiveCategories :: Lens' Creative [Int32]
1168+cSensitiveCategories
1169+ = lens _cSensitiveCategories
1170+ (\ s a -> s{_cSensitiveCategories = a})
1171+ . _Default
1172+ . _Coerce
1173+
1174+-- | The url to fetch a video ad. If set, HTMLSnippet should not be set.
1175+cVideoURL :: Lens' Creative (Maybe Text)
1176+cVideoURL
1177+ = lens _cVideoURL (\ s a -> s{_cVideoURL = a})
1178+
1179+-- | The last upload timestamp of this creative if it was uploaded via API.
1180+-- Read-only. The value of this field is generated, and will be ignored for
1181+-- uploads. (formatted RFC 3339 timestamp).
1182+cApiUploadTimestamp :: Lens' Creative (Maybe UTCTime)
1183+cApiUploadTimestamp
1184+ = lens _cApiUploadTimestamp
1185+ (\ s a -> s{_cApiUploadTimestamp = a})
1186+
1187+-- | The granular status of this ad in specific contexts. A context here
1188+-- relates to where something ultimately serves (for example, a physical
1189+-- location, a platform, an HTTPS vs HTTP request, or the type of auction).
1190+-- Read-only. This field should not be set in requests.
1191+cServingRestrictions :: Lens' Creative [CreativeItemServingRestrictions]
1192+cServingRestrictions
1193+ = lens _cServingRestrictions
1194+ (\ s a -> s{_cServingRestrictions = a})
1195+ . _Default
1196+ . _Coerce
1197+
1198+-- | Top-level open auction status. Read-only. This field should not be set
1199+-- in requests. If disapproved, an entry for auctionType=OPEN_AUCTION (or
1200+-- ALL) in servingRestrictions will also exist. Note that this may be
1201+-- nuanced with other contextual restrictions, in which case it may be
1202+-- preferable to read from ServingRestrictions directly.
1203+cOpenAuctionStatus :: Lens' Creative (Maybe Text)
1204+cOpenAuctionStatus
1205+ = lens _cOpenAuctionStatus
1206+ (\ s a -> s{_cOpenAuctionStatus = a})
1207+
1208+-- | The app icon, for app download ads.
1209+--
1210+-- /See:/ 'creativeAppIconNativeAd' smart constructor.
1211+data CreativeAppIconNativeAd = CreativeAppIconNativeAd
1212+ { _cainaHeight :: !(Maybe Int32)
1213+ , _cainaUrl :: !(Maybe Text)
1214+ , _cainaWidth :: !(Maybe Int32)
1215+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1216+
1217+-- | Creates a value of 'CreativeAppIconNativeAd' with the minimum fields required to make a request.
1218+--
1219+-- Use one of the following lenses to modify other fields as desired:
1220+--
1221+-- * 'cainaHeight'
1222+--
1223+-- * 'cainaUrl'
1224+--
1225+-- * 'cainaWidth'
1226+creativeAppIconNativeAd
1227+ :: CreativeAppIconNativeAd
1228+creativeAppIconNativeAd =
1229+ CreativeAppIconNativeAd
1230+ { _cainaHeight = Nothing
1231+ , _cainaUrl = Nothing
1232+ , _cainaWidth = Nothing
1233+ }
1234+
1235+cainaHeight :: Lens' CreativeAppIconNativeAd (Maybe Int32)
1236+cainaHeight
1237+ = lens _cainaHeight (\ s a -> s{_cainaHeight = a})
1238+
1239+cainaUrl :: Lens' CreativeAppIconNativeAd (Maybe Text)
1240+cainaUrl = lens _cainaUrl (\ s a -> s{_cainaUrl = a})
1241+
1242+cainaWidth :: Lens' CreativeAppIconNativeAd (Maybe Int32)
1243+cainaWidth
1244+ = lens _cainaWidth (\ s a -> s{_cainaWidth = a})
1245+
1246+-- | The filtering reasons for the creative. Read-only. This field should not
1247+-- be set in requests.
1248+--
1249+-- /See:/ 'creativeFilteringReasons' smart constructor.
1250+data CreativeFilteringReasons = CreativeFilteringReasons
1251+ { _cfrReasons :: !(Maybe [CreativeItemReasonsFilteringReasons])
1252+ , _cfrDate :: !(Maybe Text)
1253+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1254+
1255+-- | Creates a value of 'CreativeFilteringReasons' with the minimum fields required to make a request.
1256+--
1257+-- Use one of the following lenses to modify other fields as desired:
1258+--
1259+-- * 'cfrReasons'
1260+--
1261+-- * 'cfrDate'
1262+creativeFilteringReasons
1263+ :: CreativeFilteringReasons
1264+creativeFilteringReasons =
1265+ CreativeFilteringReasons
1266+ { _cfrReasons = Nothing
1267+ , _cfrDate = Nothing
1268+ }
1269+
1270+-- | The filtering reasons.
1271+cfrReasons :: Lens' CreativeFilteringReasons [CreativeItemReasonsFilteringReasons]
1272+cfrReasons
1273+ = lens _cfrReasons (\ s a -> s{_cfrReasons = a}) .
1274+ _Default
1275+ . _Coerce
1276+
1277+-- | The date in ISO 8601 format for the data. The data is collected from
1278+-- 00:00:00 to 23:59:59 in PST.
1279+cfrDate :: Lens' CreativeFilteringReasons (Maybe Text)
1280+cfrDate = lens _cfrDate (\ s a -> s{_cfrDate = a})
1281+
1282+-- | A large image.
1283+--
1284+-- /See:/ 'creativeImageNativeAd' smart constructor.
1285+data CreativeImageNativeAd = CreativeImageNativeAd
1286+ { _cinaHeight :: !(Maybe Int32)
1287+ , _cinaUrl :: !(Maybe Text)
1288+ , _cinaWidth :: !(Maybe Int32)
1289+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1290+
1291+-- | Creates a value of 'CreativeImageNativeAd' with the minimum fields required to make a request.
1292+--
1293+-- Use one of the following lenses to modify other fields as desired:
1294+--
1295+-- * 'cinaHeight'
1296+--
1297+-- * 'cinaUrl'
1298+--
1299+-- * 'cinaWidth'
1300+creativeImageNativeAd
1301+ :: CreativeImageNativeAd
1302+creativeImageNativeAd =
1303+ CreativeImageNativeAd
1304+ { _cinaHeight = Nothing
1305+ , _cinaUrl = Nothing
1306+ , _cinaWidth = Nothing
1307+ }
1308+
1309+cinaHeight :: Lens' CreativeImageNativeAd (Maybe Int32)
1310+cinaHeight
1311+ = lens _cinaHeight (\ s a -> s{_cinaHeight = a})
1312+
1313+cinaUrl :: Lens' CreativeImageNativeAd (Maybe Text)
1314+cinaUrl = lens _cinaUrl (\ s a -> s{_cinaUrl = a})
1315+
1316+cinaWidth :: Lens' CreativeImageNativeAd (Maybe Int32)
1317+cinaWidth
1318+ = lens _cinaWidth (\ s a -> s{_cinaWidth = a})
1319+
1320+--
1321+-- /See:/ 'creativeItemContextsItemServingRestrictions' smart constructor.
1322+data CreativeItemContextsItemServingRestrictions = CreativeItemContextsItemServingRestrictions
1323+ { _cicisrPlatform :: !(Maybe [Text])
1324+ , _cicisrContextType :: !(Maybe Text)
1325+ , _cicisrAuctionType :: !(Maybe [Text])
1326+ , _cicisrGeoCriteriaId :: !(Maybe [Int32])
1327+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1328+
1329+-- | Creates a value of 'CreativeItemContextsItemServingRestrictions' with the minimum fields required to make a request.
1330+--
1331+-- Use one of the following lenses to modify other fields as desired:
1332+--
1333+-- * 'cicisrPlatform'
1334+--
1335+-- * 'cicisrContextType'
1336+--
1337+-- * 'cicisrAuctionType'
1338+--
1339+-- * 'cicisrGeoCriteriaId'
1340+creativeItemContextsItemServingRestrictions
1341+ :: CreativeItemContextsItemServingRestrictions
1342+creativeItemContextsItemServingRestrictions =
1343+ CreativeItemContextsItemServingRestrictions
1344+ { _cicisrPlatform = Nothing
1345+ , _cicisrContextType = Nothing
1346+ , _cicisrAuctionType = Nothing
1347+ , _cicisrGeoCriteriaId = Nothing
1348+ }
1349+
1350+-- | Only set when contextType=PLATFORM. Represents the platforms this
1351+-- restriction applies to.
1352+cicisrPlatform :: Lens' CreativeItemContextsItemServingRestrictions [Text]
1353+cicisrPlatform
1354+ = lens _cicisrPlatform
1355+ (\ s a -> s{_cicisrPlatform = a})
1356+ . _Default
1357+ . _Coerce
1358+
1359+-- | The type of context (e.g., location, platform, auction type, SSL-ness).
1360+cicisrContextType :: Lens' CreativeItemContextsItemServingRestrictions (Maybe Text)
1361+cicisrContextType
1362+ = lens _cicisrContextType
1363+ (\ s a -> s{_cicisrContextType = a})
1364+
1365+-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
1366+-- this restriction applies to.
1367+cicisrAuctionType :: Lens' CreativeItemContextsItemServingRestrictions [Text]
1368+cicisrAuctionType
1369+ = lens _cicisrAuctionType
1370+ (\ s a -> s{_cicisrAuctionType = a})
1371+ . _Default
1372+ . _Coerce
1373+
1374+-- | Only set when contextType=LOCATION. Represents the geo criterias this
1375+-- restriction applies to.
1376+cicisrGeoCriteriaId :: Lens' CreativeItemContextsItemServingRestrictions [Int32]
1377+cicisrGeoCriteriaId
1378+ = lens _cicisrGeoCriteriaId
1379+ (\ s a -> s{_cicisrGeoCriteriaId = a})
1380+ . _Default
1381+ . _Coerce
1382+
1383+--
1384+-- /See:/ 'creativeItemCorrections' smart constructor.
1385+data CreativeItemCorrections = CreativeItemCorrections
1386+ { _cicReason :: !(Maybe Text)
1387+ , _cicDetails :: !(Maybe [Text])
1388+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1389+
1390+-- | Creates a value of 'CreativeItemCorrections' with the minimum fields required to make a request.
1391+--
1392+-- Use one of the following lenses to modify other fields as desired:
1393+--
1394+-- * 'cicReason'
1395+--
1396+-- * 'cicDetails'
1397+creativeItemCorrections
1398+ :: CreativeItemCorrections
1399+creativeItemCorrections =
1400+ CreativeItemCorrections
1401+ { _cicReason = Nothing
1402+ , _cicDetails = Nothing
1403+ }
1404+
1405+-- | The type of correction that was applied to the creative.
1406+cicReason :: Lens' CreativeItemCorrections (Maybe Text)
1407+cicReason
1408+ = lens _cicReason (\ s a -> s{_cicReason = a})
1409+
1410+-- | Additional details about the correction.
1411+cicDetails :: Lens' CreativeItemCorrections [Text]
1412+cicDetails
1413+ = lens _cicDetails (\ s a -> s{_cicDetails = a}) .
1414+ _Default
1415+ . _Coerce
1416+
1417+--
1418+-- /See:/ 'creativeItemDisapprovalReasonsItemServingRestrictions' smart constructor.
1419+data CreativeItemDisapprovalReasonsItemServingRestrictions = CreativeItemDisapprovalReasonsItemServingRestrictions
1420+ { _cidrisrReason :: !(Maybe Text)
1421+ , _cidrisrDetails :: !(Maybe [Text])
1422+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1423+
1424+-- | Creates a value of 'CreativeItemDisapprovalReasonsItemServingRestrictions' with the minimum fields required to make a request.
1425+--
1426+-- Use one of the following lenses to modify other fields as desired:
1427+--
1428+-- * 'cidrisrReason'
1429+--
1430+-- * 'cidrisrDetails'
1431+creativeItemDisapprovalReasonsItemServingRestrictions
1432+ :: CreativeItemDisapprovalReasonsItemServingRestrictions
1433+creativeItemDisapprovalReasonsItemServingRestrictions =
1434+ CreativeItemDisapprovalReasonsItemServingRestrictions
1435+ { _cidrisrReason = Nothing
1436+ , _cidrisrDetails = Nothing
1437+ }
1438+
1439+-- | The categorized reason for disapproval.
1440+cidrisrReason :: Lens' CreativeItemDisapprovalReasonsItemServingRestrictions (Maybe Text)
1441+cidrisrReason
1442+ = lens _cidrisrReason
1443+ (\ s a -> s{_cidrisrReason = a})
1444+
1445+-- | Additional details about the reason for disapproval.
1446+cidrisrDetails :: Lens' CreativeItemDisapprovalReasonsItemServingRestrictions [Text]
1447+cidrisrDetails
1448+ = lens _cidrisrDetails
1449+ (\ s a -> s{_cidrisrDetails = a})
1450+ . _Default
1451+ . _Coerce
1452+
1453+--
1454+-- /See:/ 'creativeItemReasonsFilteringReasons' smart constructor.
1455+data CreativeItemReasonsFilteringReasons = CreativeItemReasonsFilteringReasons
1456+ { _cirfrFilteringStatus :: !(Maybe Int32)
1457+ , _cirfrFilteringCount :: !(Maybe Int64)
1458+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1459+
1460+-- | Creates a value of 'CreativeItemReasonsFilteringReasons' with the minimum fields required to make a request.
1461+--
1462+-- Use one of the following lenses to modify other fields as desired:
1463+--
1464+-- * 'cirfrFilteringStatus'
1465+--
1466+-- * 'cirfrFilteringCount'
1467+creativeItemReasonsFilteringReasons
1468+ :: CreativeItemReasonsFilteringReasons
1469+creativeItemReasonsFilteringReasons =
1470+ CreativeItemReasonsFilteringReasons
1471+ { _cirfrFilteringStatus = Nothing
1472+ , _cirfrFilteringCount = Nothing
1473+ }
1474+
1475+-- | The filtering status code. Please refer to the creative-status-codes.txt
1476+-- file for different statuses.
1477+cirfrFilteringStatus :: Lens' CreativeItemReasonsFilteringReasons (Maybe Int32)
1478+cirfrFilteringStatus
1479+ = lens _cirfrFilteringStatus
1480+ (\ s a -> s{_cirfrFilteringStatus = a})
1481+
1482+-- | The number of times the creative was filtered for the status. The count
1483+-- is aggregated across all publishers on the exchange.
1484+cirfrFilteringCount :: Lens' CreativeItemReasonsFilteringReasons (Maybe Int64)
1485+cirfrFilteringCount
1486+ = lens _cirfrFilteringCount
1487+ (\ s a -> s{_cirfrFilteringCount = a})
1488+
1489+--
1490+-- /See:/ 'creativeItemServingRestrictions' smart constructor.
1491+data CreativeItemServingRestrictions = CreativeItemServingRestrictions
1492+ { _cisrContexts :: !(Maybe [CreativeItemContextsItemServingRestrictions])
1493+ , _cisrReason :: !(Maybe Text)
1494+ , _cisrDisapprovalReasons :: !(Maybe [CreativeItemDisapprovalReasonsItemServingRestrictions])
1495+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1496+
1497+-- | Creates a value of 'CreativeItemServingRestrictions' with the minimum fields required to make a request.
1498+--
1499+-- Use one of the following lenses to modify other fields as desired:
1500+--
1501+-- * 'cisrContexts'
1502+--
1503+-- * 'cisrReason'
1504+--
1505+-- * 'cisrDisapprovalReasons'
1506+creativeItemServingRestrictions
1507+ :: CreativeItemServingRestrictions
1508+creativeItemServingRestrictions =
1509+ CreativeItemServingRestrictions
1510+ { _cisrContexts = Nothing
1511+ , _cisrReason = Nothing
1512+ , _cisrDisapprovalReasons = Nothing
1513+ }
1514+
1515+-- | All known contexts\/restrictions.
1516+cisrContexts :: Lens' CreativeItemServingRestrictions [CreativeItemContextsItemServingRestrictions]
1517+cisrContexts
1518+ = lens _cisrContexts (\ s a -> s{_cisrContexts = a})
1519+ . _Default
1520+ . _Coerce
1521+
1522+-- | Why the creative is ineligible to serve in this context (e.g., it has
1523+-- been explicitly disapproved or is pending review).
1524+cisrReason :: Lens' CreativeItemServingRestrictions (Maybe Text)
1525+cisrReason
1526+ = lens _cisrReason (\ s a -> s{_cisrReason = a})
1527+
1528+-- | The reasons for disapproval within this restriction, if any. Note that
1529+-- not all disapproval reasons may be categorized, so it is possible for
1530+-- the creative to have a status of DISAPPROVED or CONDITIONALLY_APPROVED
1531+-- with an empty list for disapproval_reasons. In this case, please reach
1532+-- out to your TAM to help debug the issue.
1533+cisrDisapprovalReasons :: Lens' CreativeItemServingRestrictions [CreativeItemDisapprovalReasonsItemServingRestrictions]
1534+cisrDisapprovalReasons
1535+ = lens _cisrDisapprovalReasons
1536+ (\ s a -> s{_cisrDisapprovalReasons = a})
1537+ . _Default
1538+ . _Coerce
1539+
1540+-- | A smaller image, for the advertiser logo.
1541+--
1542+-- /See:/ 'creativeLogoNativeAd' smart constructor.
1543+data CreativeLogoNativeAd = CreativeLogoNativeAd
1544+ { _clnaHeight :: !(Maybe Int32)
1545+ , _clnaUrl :: !(Maybe Text)
1546+ , _clnaWidth :: !(Maybe Int32)
1547+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1548+
1549+-- | Creates a value of 'CreativeLogoNativeAd' with the minimum fields required to make a request.
1550+--
1551+-- Use one of the following lenses to modify other fields as desired:
1552+--
1553+-- * 'clnaHeight'
1554+--
1555+-- * 'clnaUrl'
1556+--
1557+-- * 'clnaWidth'
1558+creativeLogoNativeAd
1559+ :: CreativeLogoNativeAd
1560+creativeLogoNativeAd =
1561+ CreativeLogoNativeAd
1562+ { _clnaHeight = Nothing
1563+ , _clnaUrl = Nothing
1564+ , _clnaWidth = Nothing
1565+ }
1566+
1567+clnaHeight :: Lens' CreativeLogoNativeAd (Maybe Int32)
1568+clnaHeight
1569+ = lens _clnaHeight (\ s a -> s{_clnaHeight = a})
1570+
1571+clnaUrl :: Lens' CreativeLogoNativeAd (Maybe Text)
1572+clnaUrl = lens _clnaUrl (\ s a -> s{_clnaUrl = a})
1573+
1574+clnaWidth :: Lens' CreativeLogoNativeAd (Maybe Int32)
1575+clnaWidth
1576+ = lens _clnaWidth (\ s a -> s{_clnaWidth = a})
1577+
1578+-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
1579+--
1580+-- /See:/ 'creativeNativeAd' smart constructor.
1581+data CreativeNativeAd = CreativeNativeAd
1582+ { _cnaImage :: !(Maybe CreativeImageNativeAd)
1583+ , _cnaAppIcon :: !(Maybe CreativeAppIconNativeAd)
1584+ , _cnaClickTrackingUrl :: !(Maybe Text)
1585+ , _cnaBody :: !(Maybe Text)
1586+ , _cnaHeadline :: !(Maybe Text)
1587+ , _cnaImpressionTrackingUrl :: !(Maybe [Text])
1588+ , _cnaCallToAction :: !(Maybe Text)
1589+ , _cnaStore :: !(Maybe Text)
1590+ , _cnaPrice :: !(Maybe Text)
1591+ , _cnaAdvertiser :: !(Maybe Text)
1592+ , _cnaStarRating :: !(Maybe Double)
1593+ , _cnaLogo :: !(Maybe CreativeLogoNativeAd)
1594+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1595+
1596+-- | Creates a value of 'CreativeNativeAd' with the minimum fields required to make a request.
1597+--
1598+-- Use one of the following lenses to modify other fields as desired:
1599+--
1600+-- * 'cnaImage'
1601+--
1602+-- * 'cnaAppIcon'
1603+--
1604+-- * 'cnaClickTrackingUrl'
1605+--
1606+-- * 'cnaBody'
1607+--
1608+-- * 'cnaHeadline'
1609+--
1610+-- * 'cnaImpressionTrackingUrl'
1611+--
1612+-- * 'cnaCallToAction'
1613+--
1614+-- * 'cnaStore'
1615+--
1616+-- * 'cnaPrice'
1617+--
1618+-- * 'cnaAdvertiser'
1619+--
1620+-- * 'cnaStarRating'
1621+--
1622+-- * 'cnaLogo'
1623+creativeNativeAd
1624+ :: CreativeNativeAd
1625+creativeNativeAd =
1626+ CreativeNativeAd
1627+ { _cnaImage = Nothing
1628+ , _cnaAppIcon = Nothing
1629+ , _cnaClickTrackingUrl = Nothing
1630+ , _cnaBody = Nothing
1631+ , _cnaHeadline = Nothing
1632+ , _cnaImpressionTrackingUrl = Nothing
1633+ , _cnaCallToAction = Nothing
1634+ , _cnaStore = Nothing
1635+ , _cnaPrice = Nothing
1636+ , _cnaAdvertiser = Nothing
1637+ , _cnaStarRating = Nothing
1638+ , _cnaLogo = Nothing
1639+ }
1640+
1641+-- | A large image.
1642+cnaImage :: Lens' CreativeNativeAd (Maybe CreativeImageNativeAd)
1643+cnaImage = lens _cnaImage (\ s a -> s{_cnaImage = a})
1644+
1645+-- | The app icon, for app download ads.
1646+cnaAppIcon :: Lens' CreativeNativeAd (Maybe CreativeAppIconNativeAd)
1647+cnaAppIcon
1648+ = lens _cnaAppIcon (\ s a -> s{_cnaAppIcon = a})
1649+
1650+-- | The URL to use for click tracking.
1651+cnaClickTrackingUrl :: Lens' CreativeNativeAd (Maybe Text)
1652+cnaClickTrackingUrl
1653+ = lens _cnaClickTrackingUrl
1654+ (\ s a -> s{_cnaClickTrackingUrl = a})
1655+
1656+-- | A long description of the ad.
1657+cnaBody :: Lens' CreativeNativeAd (Maybe Text)
1658+cnaBody = lens _cnaBody (\ s a -> s{_cnaBody = a})
1659+
1660+-- | A short title for the ad.
1661+cnaHeadline :: Lens' CreativeNativeAd (Maybe Text)
1662+cnaHeadline
1663+ = lens _cnaHeadline (\ s a -> s{_cnaHeadline = a})
1664+
1665+-- | The URLs are called when the impression is rendered.
1666+cnaImpressionTrackingUrl :: Lens' CreativeNativeAd [Text]
1667+cnaImpressionTrackingUrl
1668+ = lens _cnaImpressionTrackingUrl
1669+ (\ s a -> s{_cnaImpressionTrackingUrl = a})
1670+ . _Default
1671+ . _Coerce
1672+
1673+-- | A label for the button that the user is supposed to click.
1674+cnaCallToAction :: Lens' CreativeNativeAd (Maybe Text)
1675+cnaCallToAction
1676+ = lens _cnaCallToAction
1677+ (\ s a -> s{_cnaCallToAction = a})
1678+
1679+-- | The URL to the app store to purchase\/download the promoted app.
1680+cnaStore :: Lens' CreativeNativeAd (Maybe Text)
1681+cnaStore = lens _cnaStore (\ s a -> s{_cnaStore = a})
1682+
1683+-- | The price of the promoted app including the currency info.
1684+cnaPrice :: Lens' CreativeNativeAd (Maybe Text)
1685+cnaPrice = lens _cnaPrice (\ s a -> s{_cnaPrice = a})
1686+
1687+cnaAdvertiser :: Lens' CreativeNativeAd (Maybe Text)
1688+cnaAdvertiser
1689+ = lens _cnaAdvertiser
1690+ (\ s a -> s{_cnaAdvertiser = a})
1691+
1692+-- | The app rating in the app store. Must be in the range [0-5].
1693+cnaStarRating :: Lens' CreativeNativeAd (Maybe Double)
1694+cnaStarRating
1695+ = lens _cnaStarRating
1696+ (\ s a -> s{_cnaStarRating = a})
1697+
1698+-- | A smaller image, for the advertiser logo.
1699+cnaLogo :: Lens' CreativeNativeAd (Maybe CreativeLogoNativeAd)
1700+cnaLogo = lens _cnaLogo (\ s a -> s{_cnaLogo = a})
1701+
1702+-- | The creatives feed lists the active creatives for the Ad Exchange buyer
1703+-- accounts that the user has access to. Each entry in the feed corresponds
1704+-- to a single creative.
1705+--
1706+-- /See:/ 'creativesList' smart constructor.
1707+data CreativesList = CreativesList
1708+ { _clNextPageToken :: !(Maybe Text)
1709+ , _clKind :: !Text
1710+ , _clItems :: !(Maybe [Maybe Creative])
1711+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1712+
1713+-- | Creates a value of 'CreativesList' with the minimum fields required to make a request.
1714+--
1715+-- Use one of the following lenses to modify other fields as desired:
1716+--
1717+-- * 'clNextPageToken'
1718+--
1719+-- * 'clKind'
1720+--
1721+-- * 'clItems'
1722+creativesList
1723+ :: CreativesList
1724+creativesList =
1725+ CreativesList
1726+ { _clNextPageToken = Nothing
1727+ , _clKind = "adexchangebuyer#creativesList"
1728+ , _clItems = Nothing
1729+ }
1730+
1731+-- | Continuation token used to page through creatives. To retrieve the next
1732+-- page of results, set the next request\'s \"pageToken\" value to this.
1733+clNextPageToken :: Lens' CreativesList (Maybe Text)
1734+clNextPageToken
1735+ = lens _clNextPageToken
1736+ (\ s a -> s{_clNextPageToken = a})
1737+
1738+-- | Resource type.
1739+clKind :: Lens' CreativesList Text
1740+clKind = lens _clKind (\ s a -> s{_clKind = a})
1741+
1742+-- | A list of creatives.
1743+clItems :: Lens' CreativesList [Maybe Creative]
1744+clItems
1745+ = lens _clItems (\ s a -> s{_clItems = a}) . _Default
1746+ . _Coerce
1747+
1748+--
1749+-- /See:/ 'dateTime' smart constructor.
1750+data DateTime = DateTime
1751+ { _dtSecond :: !(Maybe Int32)
1752+ , _dtDay :: !(Maybe Int32)
1753+ , _dtYear :: !(Maybe Int32)
1754+ , _dtHour :: !(Maybe Int32)
1755+ , _dtMonth :: !(Maybe Int32)
1756+ , _dtMinute :: !(Maybe Int32)
1757+ , _dtTimeZoneId :: !(Maybe Text)
1758+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1759+
1760+-- | Creates a value of 'DateTime' with the minimum fields required to make a request.
1761+--
1762+-- Use one of the following lenses to modify other fields as desired:
1763+--
1764+-- * 'dtSecond'
1765+--
1766+-- * 'dtDay'
1767+--
1768+-- * 'dtYear'
1769+--
1770+-- * 'dtHour'
1771+--
1772+-- * 'dtMonth'
1773+--
1774+-- * 'dtMinute'
1775+--
1776+-- * 'dtTimeZoneId'
1777+dateTime
1778+ :: DateTime
1779+dateTime =
1780+ DateTime
1781+ { _dtSecond = Nothing
1782+ , _dtDay = Nothing
1783+ , _dtYear = Nothing
1784+ , _dtHour = Nothing
1785+ , _dtMonth = Nothing
1786+ , _dtMinute = Nothing
1787+ , _dtTimeZoneId = Nothing
1788+ }
1789+
1790+dtSecond :: Lens' DateTime (Maybe Int32)
1791+dtSecond = lens _dtSecond (\ s a -> s{_dtSecond = a})
1792+
1793+dtDay :: Lens' DateTime (Maybe Int32)
1794+dtDay = lens _dtDay (\ s a -> s{_dtDay = a})
1795+
1796+dtYear :: Lens' DateTime (Maybe Int32)
1797+dtYear = lens _dtYear (\ s a -> s{_dtYear = a})
1798+
1799+dtHour :: Lens' DateTime (Maybe Int32)
1800+dtHour = lens _dtHour (\ s a -> s{_dtHour = a})
1801+
1802+dtMonth :: Lens' DateTime (Maybe Int32)
1803+dtMonth = lens _dtMonth (\ s a -> s{_dtMonth = a})
1804+
1805+dtMinute :: Lens' DateTime (Maybe Int32)
1806+dtMinute = lens _dtMinute (\ s a -> s{_dtMinute = a})
1807+
1808+dtTimeZoneId :: Lens' DateTime (Maybe Text)
1809+dtTimeZoneId
1810+ = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
1811+
1812+--
1813+-- /See:/ 'dealPartyDto' smart constructor.
1814+data DealPartyDto = DealPartyDto
1815+ { _dpdBuyerSellerRole :: !(Maybe Text)
1816+ , _dpdCustomerId :: !(Maybe Int32)
1817+ , _dpdName :: !(Maybe Text)
1818+ , _dpdWebProperty :: !(Maybe (Maybe WebPropertyDto))
1819+ , _dpdBuyer :: !(Maybe (Maybe BuyerDto))
1820+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1821+
1822+-- | Creates a value of 'DealPartyDto' with the minimum fields required to make a request.
1823+--
1824+-- Use one of the following lenses to modify other fields as desired:
1825+--
1826+-- * 'dpdBuyerSellerRole'
1827+--
1828+-- * 'dpdCustomerId'
1829+--
1830+-- * 'dpdName'
1831+--
1832+-- * 'dpdWebProperty'
1833+--
1834+-- * 'dpdBuyer'
1835+dealPartyDto
1836+ :: DealPartyDto
1837+dealPartyDto =
1838+ DealPartyDto
1839+ { _dpdBuyerSellerRole = Nothing
1840+ , _dpdCustomerId = Nothing
1841+ , _dpdName = Nothing
1842+ , _dpdWebProperty = Nothing
1843+ , _dpdBuyer = Nothing
1844+ }
1845+
1846+dpdBuyerSellerRole :: Lens' DealPartyDto (Maybe Text)
1847+dpdBuyerSellerRole
1848+ = lens _dpdBuyerSellerRole
1849+ (\ s a -> s{_dpdBuyerSellerRole = a})
1850+
1851+dpdCustomerId :: Lens' DealPartyDto (Maybe Int32)
1852+dpdCustomerId
1853+ = lens _dpdCustomerId
1854+ (\ s a -> s{_dpdCustomerId = a})
1855+
1856+dpdName :: Lens' DealPartyDto (Maybe Text)
1857+dpdName = lens _dpdName (\ s a -> s{_dpdName = a})
1858+
1859+dpdWebProperty :: Lens' DealPartyDto (Maybe (Maybe WebPropertyDto))
1860+dpdWebProperty
1861+ = lens _dpdWebProperty
1862+ (\ s a -> s{_dpdWebProperty = a})
1863+
1864+dpdBuyer :: Lens' DealPartyDto (Maybe (Maybe BuyerDto))
1865+dpdBuyer = lens _dpdBuyer (\ s a -> s{_dpdBuyer = a})
1866+
1867+--
1868+-- /See:/ 'dealTerms' smart constructor.
1869+data DealTerms = DealTerms
1870+ { _dtNonGuaranteedFixedPriceTerms :: !(Maybe (Maybe DealTermsNonGuaranteedFixedPriceTerms))
1871+ , _dtNonGuaranteedAuctionTerms :: !(Maybe (Maybe DealTermsNonGuaranteedAuctionTerms))
1872+ , _dtGuaranteedFixedPriceTerms :: !(Maybe (Maybe DealTermsGuaranteedFixedPriceTerms))
1873+ , _dtDescription :: !(Maybe Text)
1874+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1875+
1876+-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
1877+--
1878+-- Use one of the following lenses to modify other fields as desired:
1879+--
1880+-- * 'dtNonGuaranteedFixedPriceTerms'
1881+--
1882+-- * 'dtNonGuaranteedAuctionTerms'
1883+--
1884+-- * 'dtGuaranteedFixedPriceTerms'
1885+--
1886+-- * 'dtDescription'
1887+dealTerms
1888+ :: DealTerms
1889+dealTerms =
1890+ DealTerms
1891+ { _dtNonGuaranteedFixedPriceTerms = Nothing
1892+ , _dtNonGuaranteedAuctionTerms = Nothing
1893+ , _dtGuaranteedFixedPriceTerms = Nothing
1894+ , _dtDescription = Nothing
1895+ }
1896+
1897+-- | The terms for non-guaranteed fixed price deals.
1898+dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe (Maybe DealTermsNonGuaranteedFixedPriceTerms))
1899+dtNonGuaranteedFixedPriceTerms
1900+ = lens _dtNonGuaranteedFixedPriceTerms
1901+ (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a})
1902+
1903+-- | The terms for non-guaranteed auction deals.
1904+dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe (Maybe DealTermsNonGuaranteedAuctionTerms))
1905+dtNonGuaranteedAuctionTerms
1906+ = lens _dtNonGuaranteedAuctionTerms
1907+ (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
1908+
1909+-- | The terms for guaranteed fixed price deals.
1910+dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe (Maybe DealTermsGuaranteedFixedPriceTerms))
1911+dtGuaranteedFixedPriceTerms
1912+ = lens _dtGuaranteedFixedPriceTerms
1913+ (\ s a -> s{_dtGuaranteedFixedPriceTerms = a})
1914+
1915+-- | Description for the proposed terms of the deal.
1916+dtDescription :: Lens' DealTerms (Maybe Text)
1917+dtDescription
1918+ = lens _dtDescription
1919+ (\ s a -> s{_dtDescription = a})
1920+
1921+--
1922+-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
1923+data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms
1924+ { _dtgfptGuaranteedLooks :: !(Maybe Int64)
1925+ , _dtgfptGuaranteedImpressions :: !(Maybe Int64)
1926+ , _dtgfptFixedPrices :: !(Maybe [Maybe PricePerBuyer])
1927+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1928+
1929+-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
1930+--
1931+-- Use one of the following lenses to modify other fields as desired:
1932+--
1933+-- * 'dtgfptGuaranteedLooks'
1934+--
1935+-- * 'dtgfptGuaranteedImpressions'
1936+--
1937+-- * 'dtgfptFixedPrices'
1938+dealTermsGuaranteedFixedPriceTerms
1939+ :: DealTermsGuaranteedFixedPriceTerms
1940+dealTermsGuaranteedFixedPriceTerms =
1941+ DealTermsGuaranteedFixedPriceTerms
1942+ { _dtgfptGuaranteedLooks = Nothing
1943+ , _dtgfptGuaranteedImpressions = Nothing
1944+ , _dtgfptFixedPrices = Nothing
1945+ }
1946+
1947+-- | Count of guaranteed looks. Required for deal, optional for offer.
1948+dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
1949+dtgfptGuaranteedLooks
1950+ = lens _dtgfptGuaranteedLooks
1951+ (\ s a -> s{_dtgfptGuaranteedLooks = a})
1952+
1953+-- | Guaranteed impressions as a percentage. This is the percentage of
1954+-- guaranteed looks that the buyer is guaranteeing to buy.
1955+dtgfptGuaranteedImpressions :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
1956+dtgfptGuaranteedImpressions
1957+ = lens _dtgfptGuaranteedImpressions
1958+ (\ s a -> s{_dtgfptGuaranteedImpressions = a})
1959+
1960+-- | Fixed price for the specified buyer.
1961+dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [Maybe PricePerBuyer]
1962+dtgfptFixedPrices
1963+ = lens _dtgfptFixedPrices
1964+ (\ s a -> s{_dtgfptFixedPrices = a})
1965+ . _Default
1966+ . _Coerce
1967+
1968+--
1969+-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
1970+data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms
1971+ { _dtngatReservePricePerBuyers :: !(Maybe [Maybe PricePerBuyer])
1972+ , _dtngatPrivateAuctionId :: !(Maybe Text)
1973+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1974+
1975+-- | Creates a value of 'DealTermsNonGuaranteedAuctionTerms' with the minimum fields required to make a request.
1976+--
1977+-- Use one of the following lenses to modify other fields as desired:
1978+--
1979+-- * 'dtngatReservePricePerBuyers'
1980+--
1981+-- * 'dtngatPrivateAuctionId'
1982+dealTermsNonGuaranteedAuctionTerms
1983+ :: DealTermsNonGuaranteedAuctionTerms
1984+dealTermsNonGuaranteedAuctionTerms =
1985+ DealTermsNonGuaranteedAuctionTerms
1986+ { _dtngatReservePricePerBuyers = Nothing
1987+ , _dtngatPrivateAuctionId = Nothing
1988+ }
1989+
1990+-- | Reserve price for the specified buyer.
1991+dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [Maybe PricePerBuyer]
1992+dtngatReservePricePerBuyers
1993+ = lens _dtngatReservePricePerBuyers
1994+ (\ s a -> s{_dtngatReservePricePerBuyers = a})
1995+ . _Default
1996+ . _Coerce
1997+
1998+-- | Id of the corresponding private auction.
1999+dtngatPrivateAuctionId :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Text)
2000+dtngatPrivateAuctionId
2001+ = lens _dtngatPrivateAuctionId
2002+ (\ s a -> s{_dtngatPrivateAuctionId = a})
2003+
2004+--
2005+-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2006+newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2007+ { _dtngfptFixedPrices :: Maybe [Maybe PricePerBuyer]
2008+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2009+
2010+-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2011+--
2012+-- Use one of the following lenses to modify other fields as desired:
2013+--
2014+-- * 'dtngfptFixedPrices'
2015+dealTermsNonGuaranteedFixedPriceTerms
2016+ :: DealTermsNonGuaranteedFixedPriceTerms
2017+dealTermsNonGuaranteedFixedPriceTerms =
2018+ DealTermsNonGuaranteedFixedPriceTerms
2019+ { _dtngfptFixedPrices = Nothing
2020+ }
2021+
2022+-- | Fixed price for the specified buyer.
2023+dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [Maybe PricePerBuyer]
2024+dtngfptFixedPrices
2025+ = lens _dtngfptFixedPrices
2026+ (\ s a -> s{_dtngfptFixedPrices = a})
2027+ . _Default
2028+ . _Coerce
2029+
2030+--
2031+-- /See:/ 'deleteOrderDealsRequest' smart constructor.
2032+data DeleteOrderDealsRequest = DeleteOrderDealsRequest
2033+ { _dUpdateAction :: !(Maybe Text)
2034+ , _dDealIds :: !(Maybe [Text])
2035+ , _dOrderRevisionNumber :: !(Maybe Int64)
2036+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2037+
2038+-- | Creates a value of 'DeleteOrderDealsRequest' with the minimum fields required to make a request.
2039+--
2040+-- Use one of the following lenses to modify other fields as desired:
2041+--
2042+-- * 'dUpdateAction'
2043+--
2044+-- * 'dDealIds'
2045+--
2046+-- * 'dOrderRevisionNumber'
2047+deleteOrderDealsRequest
2048+ :: DeleteOrderDealsRequest
2049+deleteOrderDealsRequest =
2050+ DeleteOrderDealsRequest
2051+ { _dUpdateAction = Nothing
2052+ , _dDealIds = Nothing
2053+ , _dOrderRevisionNumber = Nothing
2054+ }
2055+
2056+dUpdateAction :: Lens' DeleteOrderDealsRequest (Maybe Text)
2057+dUpdateAction
2058+ = lens _dUpdateAction
2059+ (\ s a -> s{_dUpdateAction = a})
2060+
2061+-- | List of deals to delete for a given order
2062+dDealIds :: Lens' DeleteOrderDealsRequest [Text]
2063+dDealIds
2064+ = lens _dDealIds (\ s a -> s{_dDealIds = a}) .
2065+ _Default
2066+ . _Coerce
2067+
2068+-- | The last known order revision number.
2069+dOrderRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64)
2070+dOrderRevisionNumber
2071+ = lens _dOrderRevisionNumber
2072+ (\ s a -> s{_dOrderRevisionNumber = a})
2073+
2074+--
2075+-- /See:/ 'deleteOrderDealsResponse' smart constructor.
2076+data DeleteOrderDealsResponse = DeleteOrderDealsResponse
2077+ { _dodrDeals :: !(Maybe [Maybe MarketplaceDeal])
2078+ , _dodrOrderRevisionNumber :: !(Maybe Int64)
2079+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2080+
2081+-- | Creates a value of 'DeleteOrderDealsResponse' with the minimum fields required to make a request.
2082+--
2083+-- Use one of the following lenses to modify other fields as desired:
2084+--
2085+-- * 'dodrDeals'
2086+--
2087+-- * 'dodrOrderRevisionNumber'
2088+deleteOrderDealsResponse
2089+ :: DeleteOrderDealsResponse
2090+deleteOrderDealsResponse =
2091+ DeleteOrderDealsResponse
2092+ { _dodrDeals = Nothing
2093+ , _dodrOrderRevisionNumber = Nothing
2094+ }
2095+
2096+-- | List of deals deleted (in the same order as passed in the request)
2097+dodrDeals :: Lens' DeleteOrderDealsResponse [Maybe MarketplaceDeal]
2098+dodrDeals
2099+ = lens _dodrDeals (\ s a -> s{_dodrDeals = a}) .
2100+ _Default
2101+ . _Coerce
2102+
2103+-- | The updated revision number for the order.
2104+dodrOrderRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64)
2105+dodrOrderRevisionNumber
2106+ = lens _dodrOrderRevisionNumber
2107+ (\ s a -> s{_dodrOrderRevisionNumber = a})
2108+
2109+--
2110+-- /See:/ 'deliveryControl' smart constructor.
2111+data DeliveryControl = DeliveryControl
2112+ { _dcFrequencyCaps :: !(Maybe [Maybe DeliveryControlFrequencyCap])
2113+ , _dcDeliveryRateType :: !(Maybe Text)
2114+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2115+
2116+-- | Creates a value of 'DeliveryControl' with the minimum fields required to make a request.
2117+--
2118+-- Use one of the following lenses to modify other fields as desired:
2119+--
2120+-- * 'dcFrequencyCaps'
2121+--
2122+-- * 'dcDeliveryRateType'
2123+deliveryControl
2124+ :: DeliveryControl
2125+deliveryControl =
2126+ DeliveryControl
2127+ { _dcFrequencyCaps = Nothing
2128+ , _dcDeliveryRateType = Nothing
2129+ }
2130+
2131+dcFrequencyCaps :: Lens' DeliveryControl [Maybe DeliveryControlFrequencyCap]
2132+dcFrequencyCaps
2133+ = lens _dcFrequencyCaps
2134+ (\ s a -> s{_dcFrequencyCaps = a})
2135+ . _Default
2136+ . _Coerce
2137+
2138+dcDeliveryRateType :: Lens' DeliveryControl (Maybe Text)
2139+dcDeliveryRateType
2140+ = lens _dcDeliveryRateType
2141+ (\ s a -> s{_dcDeliveryRateType = a})
2142+
2143+--
2144+-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
2145+data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
2146+ { _dcfcMaxImpressions :: !(Maybe Int32)
2147+ , _dcfcNumTimeUnits :: !(Maybe Int32)
2148+ , _dcfcTimeUnitType :: !(Maybe Text)
2149+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2150+
2151+-- | Creates a value of 'DeliveryControlFrequencyCap' with the minimum fields required to make a request.
2152+--
2153+-- Use one of the following lenses to modify other fields as desired:
2154+--
2155+-- * 'dcfcMaxImpressions'
2156+--
2157+-- * 'dcfcNumTimeUnits'
2158+--
2159+-- * 'dcfcTimeUnitType'
2160+deliveryControlFrequencyCap
2161+ :: DeliveryControlFrequencyCap
2162+deliveryControlFrequencyCap =
2163+ DeliveryControlFrequencyCap
2164+ { _dcfcMaxImpressions = Nothing
2165+ , _dcfcNumTimeUnits = Nothing
2166+ , _dcfcTimeUnitType = Nothing
2167+ }
2168+
2169+dcfcMaxImpressions :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
2170+dcfcMaxImpressions
2171+ = lens _dcfcMaxImpressions
2172+ (\ s a -> s{_dcfcMaxImpressions = a})
2173+
2174+dcfcNumTimeUnits :: Lens' DeliveryControlFrequencyCap (Maybe Int32)
2175+dcfcNumTimeUnits
2176+ = lens _dcfcNumTimeUnits
2177+ (\ s a -> s{_dcfcNumTimeUnits = a})
2178+
2179+dcfcTimeUnitType :: Lens' DeliveryControlFrequencyCap (Maybe Text)
2180+dcfcTimeUnitType
2181+ = lens _dcfcTimeUnitType
2182+ (\ s a -> s{_dcfcTimeUnitType = a})
2183+
2184+--
2185+-- /See:/ 'editAllOrderDealsRequest' smart constructor.
2186+data EditAllOrderDealsRequest = EditAllOrderDealsRequest
2187+ { _eaodrUpdateAction :: !(Maybe Text)
2188+ , _eaodrDeals :: !(Maybe [Maybe MarketplaceDeal])
2189+ , _eaodrOrder :: !(Maybe (Maybe MarketplaceOrder))
2190+ , _eaodrOrderRevisionNumber :: !(Maybe Int64)
2191+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2192+
2193+-- | Creates a value of 'EditAllOrderDealsRequest' with the minimum fields required to make a request.
2194+--
2195+-- Use one of the following lenses to modify other fields as desired:
2196+--
2197+-- * 'eaodrUpdateAction'
2198+--
2199+-- * 'eaodrDeals'
2200+--
2201+-- * 'eaodrOrder'
2202+--
2203+-- * 'eaodrOrderRevisionNumber'
2204+editAllOrderDealsRequest
2205+ :: EditAllOrderDealsRequest
2206+editAllOrderDealsRequest =
2207+ EditAllOrderDealsRequest
2208+ { _eaodrUpdateAction = Nothing
2209+ , _eaodrDeals = Nothing
2210+ , _eaodrOrder = Nothing
2211+ , _eaodrOrderRevisionNumber = Nothing
2212+ }
2213+
2214+-- | Indicates an optional action to take on the order
2215+eaodrUpdateAction :: Lens' EditAllOrderDealsRequest (Maybe Text)
2216+eaodrUpdateAction
2217+ = lens _eaodrUpdateAction
2218+ (\ s a -> s{_eaodrUpdateAction = a})
2219+
2220+-- | List of deals to edit. Service may perform 3 different operations based
2221+-- on comparison of deals in this list vs deals already persisted in
2222+-- database: 1. Add new deal to order If a deal in this list does not exist
2223+-- in the order, the service will create a new deal and add it to the
2224+-- order. Validation will follow AddOrderDealsRequest. 2. Update existing
2225+-- deal in the order If a deal in this list already exist in the order, the
2226+-- service will update that existing deal to this new deal in the request.
2227+-- Validation will follow UpdateOrderDealsRequest. 3. Delete deals from the
2228+-- order (just need the id) If a existing deal in the order is not present
2229+-- in this list, the service will delete that deal from the order.
2230+-- Validation will follow DeleteOrderDealsRequest.
2231+eaodrDeals :: Lens' EditAllOrderDealsRequest [Maybe MarketplaceDeal]
2232+eaodrDeals
2233+ = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
2234+ _Default
2235+ . _Coerce
2236+
2237+-- | If specified, also updates the order in the batch transaction. This is
2238+-- useful when the order and the deals need to be updated in one
2239+-- transaction.
2240+eaodrOrder :: Lens' EditAllOrderDealsRequest (Maybe (Maybe MarketplaceOrder))
2241+eaodrOrder
2242+ = lens _eaodrOrder (\ s a -> s{_eaodrOrder = a})
2243+
2244+-- | The last known revision number for the order.
2245+eaodrOrderRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64)
2246+eaodrOrderRevisionNumber
2247+ = lens _eaodrOrderRevisionNumber
2248+ (\ s a -> s{_eaodrOrderRevisionNumber = a})
2249+
2250+--
2251+-- /See:/ 'editAllOrderDealsResponse' smart constructor.
2252+newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse
2253+ { _eDeals :: Maybe [Maybe MarketplaceDeal]
2254+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2255+
2256+-- | Creates a value of 'EditAllOrderDealsResponse' with the minimum fields required to make a request.
2257+--
2258+-- Use one of the following lenses to modify other fields as desired:
2259+--
2260+-- * 'eDeals'
2261+editAllOrderDealsResponse
2262+ :: EditAllOrderDealsResponse
2263+editAllOrderDealsResponse =
2264+ EditAllOrderDealsResponse
2265+ { _eDeals = Nothing
2266+ }
2267+
2268+-- | List of all deals in the order after edit.
2269+eDeals :: Lens' EditAllOrderDealsResponse [Maybe MarketplaceDeal]
2270+eDeals
2271+ = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default .
2272+ _Coerce
2273+
2274+--
2275+-- /See:/ 'editHistoryDto' smart constructor.
2276+data EditHistoryDto = EditHistoryDto
2277+ { _ehdLastUpdatedByLoginName :: !(Maybe Text)
2278+ , _ehdCreatedByLoginName :: !(Maybe Text)
2279+ , _ehdLastUpdateTimeStamp :: !(Maybe Int64)
2280+ , _ehdCreatedTimeStamp :: !(Maybe Int64)
2281+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2282+
2283+-- | Creates a value of 'EditHistoryDto' with the minimum fields required to make a request.
2284+--
2285+-- Use one of the following lenses to modify other fields as desired:
2286+--
2287+-- * 'ehdLastUpdatedByLoginName'
2288+--
2289+-- * 'ehdCreatedByLoginName'
2290+--
2291+-- * 'ehdLastUpdateTimeStamp'
2292+--
2293+-- * 'ehdCreatedTimeStamp'
2294+editHistoryDto
2295+ :: EditHistoryDto
2296+editHistoryDto =
2297+ EditHistoryDto
2298+ { _ehdLastUpdatedByLoginName = Nothing
2299+ , _ehdCreatedByLoginName = Nothing
2300+ , _ehdLastUpdateTimeStamp = Nothing
2301+ , _ehdCreatedTimeStamp = Nothing
2302+ }
2303+
2304+ehdLastUpdatedByLoginName :: Lens' EditHistoryDto (Maybe Text)
2305+ehdLastUpdatedByLoginName
2306+ = lens _ehdLastUpdatedByLoginName
2307+ (\ s a -> s{_ehdLastUpdatedByLoginName = a})
2308+
2309+ehdCreatedByLoginName :: Lens' EditHistoryDto (Maybe Text)
2310+ehdCreatedByLoginName
2311+ = lens _ehdCreatedByLoginName
2312+ (\ s a -> s{_ehdCreatedByLoginName = a})
2313+
2314+ehdLastUpdateTimeStamp :: Lens' EditHistoryDto (Maybe Int64)
2315+ehdLastUpdateTimeStamp
2316+ = lens _ehdLastUpdateTimeStamp
2317+ (\ s a -> s{_ehdLastUpdateTimeStamp = a})
2318+
2319+ehdCreatedTimeStamp :: Lens' EditHistoryDto (Maybe Int64)
2320+ehdCreatedTimeStamp
2321+ = lens _ehdCreatedTimeStamp
2322+ (\ s a -> s{_ehdCreatedTimeStamp = a})
2323+
2324+--
2325+-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
2326+newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
2327+ { _gfnbedirIncludePrivateAuctions :: Maybe Bool
2328+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2329+
2330+-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request.
2331+--
2332+-- Use one of the following lenses to modify other fields as desired:
2333+--
2334+-- * 'gfnbedirIncludePrivateAuctions'
2335+getFinalizedNegotiationByExternalDealIdRequest
2336+ :: GetFinalizedNegotiationByExternalDealIdRequest
2337+getFinalizedNegotiationByExternalDealIdRequest =
2338+ GetFinalizedNegotiationByExternalDealIdRequest
2339+ { _gfnbedirIncludePrivateAuctions = Nothing
2340+ }
2341+
2342+gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
2343+gfnbedirIncludePrivateAuctions
2344+ = lens _gfnbedirIncludePrivateAuctions
2345+ (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
2346+
2347+--
2348+-- /See:/ 'getNegotiationByIdRequest' smart constructor.
2349+newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest
2350+ { _gnbirIncludePrivateAuctions :: Maybe Bool
2351+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2352+
2353+-- | Creates a value of 'GetNegotiationByIdRequest' with the minimum fields required to make a request.
2354+--
2355+-- Use one of the following lenses to modify other fields as desired:
2356+--
2357+-- * 'gnbirIncludePrivateAuctions'
2358+getNegotiationByIdRequest
2359+ :: GetNegotiationByIdRequest
2360+getNegotiationByIdRequest =
2361+ GetNegotiationByIdRequest
2362+ { _gnbirIncludePrivateAuctions = Nothing
2363+ }
2364+
2365+gnbirIncludePrivateAuctions :: Lens' GetNegotiationByIdRequest (Maybe Bool)
2366+gnbirIncludePrivateAuctions
2367+ = lens _gnbirIncludePrivateAuctions
2368+ (\ s a -> s{_gnbirIncludePrivateAuctions = a})
2369+
2370+--
2371+-- /See:/ 'getNegotiationsRequest' smart constructor.
2372+data GetNegotiationsRequest = GetNegotiationsRequest
2373+ { _gnrSinceTimestampMillis :: !(Maybe Int64)
2374+ , _gnrFinalized :: !(Maybe Bool)
2375+ , _gnrIncludePrivateAuctions :: !(Maybe Bool)
2376+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2377+
2378+-- | Creates a value of 'GetNegotiationsRequest' with the minimum fields required to make a request.
2379+--
2380+-- Use one of the following lenses to modify other fields as desired:
2381+--
2382+-- * 'gnrSinceTimestampMillis'
2383+--
2384+-- * 'gnrFinalized'
2385+--
2386+-- * 'gnrIncludePrivateAuctions'
2387+getNegotiationsRequest
2388+ :: GetNegotiationsRequest
2389+getNegotiationsRequest =
2390+ GetNegotiationsRequest
2391+ { _gnrSinceTimestampMillis = Nothing
2392+ , _gnrFinalized = Nothing
2393+ , _gnrIncludePrivateAuctions = Nothing
2394+ }
2395+
2396+gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
2397+gnrSinceTimestampMillis
2398+ = lens _gnrSinceTimestampMillis
2399+ (\ s a -> s{_gnrSinceTimestampMillis = a})
2400+
2401+gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
2402+gnrFinalized
2403+ = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
2404+
2405+gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
2406+gnrIncludePrivateAuctions
2407+ = lens _gnrIncludePrivateAuctions
2408+ (\ s a -> s{_gnrIncludePrivateAuctions = a})
2409+
2410+--
2411+-- /See:/ 'getNegotiationsResponse' smart constructor.
2412+data GetNegotiationsResponse = GetNegotiationsResponse
2413+ { _gnrKind :: !Text
2414+ , _gnrNegotiations :: !(Maybe [Maybe NegotiationDto])
2415+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2416+
2417+-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.
2418+--
2419+-- Use one of the following lenses to modify other fields as desired:
2420+--
2421+-- * 'gnrKind'
2422+--
2423+-- * 'gnrNegotiations'
2424+getNegotiationsResponse
2425+ :: GetNegotiationsResponse
2426+getNegotiationsResponse =
2427+ GetNegotiationsResponse
2428+ { _gnrKind = "adexchangebuyer#negotiationsList"
2429+ , _gnrNegotiations = Nothing
2430+ }
2431+
2432+gnrKind :: Lens' GetNegotiationsResponse Text
2433+gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})
2434+
2435+gnrNegotiations :: Lens' GetNegotiationsResponse [Maybe NegotiationDto]
2436+gnrNegotiations
2437+ = lens _gnrNegotiations
2438+ (\ s a -> s{_gnrNegotiations = a})
2439+ . _Default
2440+ . _Coerce
2441+
2442+--
2443+-- /See:/ 'getOffersResponse' smart constructor.
2444+newtype GetOffersResponse = GetOffersResponse
2445+ { _gorOffers :: Maybe [Maybe MarketplaceOffer]
2446+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2447+
2448+-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
2449+--
2450+-- Use one of the following lenses to modify other fields as desired:
2451+--
2452+-- * 'gorOffers'
2453+getOffersResponse
2454+ :: GetOffersResponse
2455+getOffersResponse =
2456+ GetOffersResponse
2457+ { _gorOffers = Nothing
2458+ }
2459+
2460+-- | The returned list of offers.
2461+gorOffers :: Lens' GetOffersResponse [Maybe MarketplaceOffer]
2462+gorOffers
2463+ = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
2464+ _Default
2465+ . _Coerce
2466+
2467+--
2468+-- /See:/ 'getOrderDealsResponse' smart constructor.
2469+newtype GetOrderDealsResponse = GetOrderDealsResponse
2470+ { _godrDeals :: Maybe [Maybe MarketplaceDeal]
2471+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2472+
2473+-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request.
2474+--
2475+-- Use one of the following lenses to modify other fields as desired:
2476+--
2477+-- * 'godrDeals'
2478+getOrderDealsResponse
2479+ :: GetOrderDealsResponse
2480+getOrderDealsResponse =
2481+ GetOrderDealsResponse
2482+ { _godrDeals = Nothing
2483+ }
2484+
2485+-- | List of deals for the order
2486+godrDeals :: Lens' GetOrderDealsResponse [Maybe MarketplaceDeal]
2487+godrDeals
2488+ = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
2489+ _Default
2490+ . _Coerce
2491+
2492+--
2493+-- /See:/ 'getOrderNotesResponse' smart constructor.
2494+newtype GetOrderNotesResponse = GetOrderNotesResponse
2495+ { _gonrNotes :: Maybe [Maybe MarketplaceNote]
2496+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2497+
2498+-- | Creates a value of 'GetOrderNotesResponse' with the minimum fields required to make a request.
2499+--
2500+-- Use one of the following lenses to modify other fields as desired:
2501+--
2502+-- * 'gonrNotes'
2503+getOrderNotesResponse
2504+ :: GetOrderNotesResponse
2505+getOrderNotesResponse =
2506+ GetOrderNotesResponse
2507+ { _gonrNotes = Nothing
2508+ }
2509+
2510+-- | The list of matching notes.
2511+gonrNotes :: Lens' GetOrderNotesResponse [Maybe MarketplaceNote]
2512+gonrNotes
2513+ = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
2514+ _Default
2515+ . _Coerce
2516+
2517+--
2518+-- /See:/ 'getOrdersResponse' smart constructor.
2519+newtype GetOrdersResponse = GetOrdersResponse
2520+ { _gorOrders :: Maybe [Maybe MarketplaceOrder]
2521+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2522+
2523+-- | Creates a value of 'GetOrdersResponse' with the minimum fields required to make a request.
2524+--
2525+-- Use one of the following lenses to modify other fields as desired:
2526+--
2527+-- * 'gorOrders'
2528+getOrdersResponse
2529+ :: GetOrdersResponse
2530+getOrdersResponse =
2531+ GetOrdersResponse
2532+ { _gorOrders = Nothing
2533+ }
2534+
2535+-- | The list of matching orders.
2536+gorOrders :: Lens' GetOrdersResponse [Maybe MarketplaceOrder]
2537+gorOrders
2538+ = lens _gorOrders (\ s a -> s{_gorOrders = a}) .
2539+ _Default
2540+ . _Coerce
2541+
2542+--
2543+-- /See:/ 'inventorySegmentTargeting' smart constructor.
2544+data InventorySegmentTargeting = InventorySegmentTargeting
2545+ { _istNegativeVideoDurationSegments :: !(Maybe [Int64])
2546+ , _istNegativeIcmBrands :: !(Maybe [Int64])
2547+ , _istNegativeKeyValues :: !(Maybe [Maybe RuleKeyValuePair])
2548+ , _istPositiveAudienceSegments :: !(Maybe [Int64])
2549+ , _istPositiveXfpPlacements :: !(Maybe [Int64])
2550+ , _istNegativeXfpAdSlots :: !(Maybe [Int64])
2551+ , _istPositiveOperatingSystemVersions :: !(Maybe [Int64])
2552+ , _istPositiveSizes :: !(Maybe [Int64])
2553+ , _istPositiveDeviceCategories :: !(Maybe [Int64])
2554+ , _istPositiveLocations :: !(Maybe [Int64])
2555+ , _istNegativeAdSizes :: !(Maybe [Maybe AdSize])
2556+ , _istPositiveOperatingSystems :: !(Maybe [Int64])
2557+ , _istPositiveSiteUrls :: !(Maybe [Text])
2558+ , _istNegativeInventorySlots :: !(Maybe [Text])
2559+ , _istNegativeVideoAdPositionSegments :: !(Maybe [Text])
2560+ , _istPositiveAdTypeSegments :: !(Maybe [Text])
2561+ , _istPositiveIcmInterests :: !(Maybe [Int64])
2562+ , _istPositiveMobileApps :: !(Maybe [Text])
2563+ , _istPositiveKeyValues :: !(Maybe [Maybe RuleKeyValuePair])
2564+ , _istPositiveIcmBrands :: !(Maybe [Int64])
2565+ , _istPositiveVideoDurationSegments :: !(Maybe [Int64])
2566+ , _istNegativeAudienceSegments :: !(Maybe [Int64])
2567+ , _istNegativeXfpPlacements :: !(Maybe [Int64])
2568+ , _istPositiveXfpAdSlots :: !(Maybe [Int64])
2569+ , _istNegativeOperatingSystemVersions :: !(Maybe [Int64])
2570+ , _istNegativeSizes :: !(Maybe [Int64])
2571+ , _istNegativeLocations :: !(Maybe [Int64])
2572+ , _istNegativeDeviceCategories :: !(Maybe [Int64])
2573+ , _istNegativeOperatingSystems :: !(Maybe [Int64])
2574+ , _istPositiveAdSizes :: !(Maybe [Maybe AdSize])
2575+ , _istNegativeSiteUrls :: !(Maybe [Text])
2576+ , _istNegativeAdTypeSegments :: !(Maybe [Text])
2577+ , _istPositiveVideoAdPositionSegments :: !(Maybe [Text])
2578+ , _istPositiveInventorySlots :: !(Maybe [Text])
2579+ , _istNegativeMobileApps :: !(Maybe [Text])
2580+ , _istNegativeIcmInterests :: !(Maybe [Int64])
2581+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2582+
2583+-- | Creates a value of 'InventorySegmentTargeting' with the minimum fields required to make a request.
2584+--
2585+-- Use one of the following lenses to modify other fields as desired:
2586+--
2587+-- * 'istNegativeVideoDurationSegments'
2588+--
2589+-- * 'istNegativeIcmBrands'
2590+--
2591+-- * 'istNegativeKeyValues'
2592+--
2593+-- * 'istPositiveAudienceSegments'
2594+--
2595+-- * 'istPositiveXfpPlacements'
2596+--
2597+-- * 'istNegativeXfpAdSlots'
2598+--
2599+-- * 'istPositiveOperatingSystemVersions'
2600+--
2601+-- * 'istPositiveSizes'
2602+--
2603+-- * 'istPositiveDeviceCategories'
2604+--
2605+-- * 'istPositiveLocations'
2606+--
2607+-- * 'istNegativeAdSizes'
2608+--
2609+-- * 'istPositiveOperatingSystems'
2610+--
2611+-- * 'istPositiveSiteUrls'
2612+--
2613+-- * 'istNegativeInventorySlots'
2614+--
2615+-- * 'istNegativeVideoAdPositionSegments'
2616+--
2617+-- * 'istPositiveAdTypeSegments'
2618+--
2619+-- * 'istPositiveIcmInterests'
2620+--
2621+-- * 'istPositiveMobileApps'
2622+--
2623+-- * 'istPositiveKeyValues'
2624+--
2625+-- * 'istPositiveIcmBrands'
2626+--
2627+-- * 'istPositiveVideoDurationSegments'
2628+--
2629+-- * 'istNegativeAudienceSegments'
2630+--
2631+-- * 'istNegativeXfpPlacements'
2632+--
2633+-- * 'istPositiveXfpAdSlots'
2634+--
2635+-- * 'istNegativeOperatingSystemVersions'
2636+--
2637+-- * 'istNegativeSizes'
2638+--
2639+-- * 'istNegativeLocations'
2640+--
2641+-- * 'istNegativeDeviceCategories'
2642+--
2643+-- * 'istNegativeOperatingSystems'
2644+--
2645+-- * 'istPositiveAdSizes'
2646+--
2647+-- * 'istNegativeSiteUrls'
2648+--
2649+-- * 'istNegativeAdTypeSegments'
2650+--
2651+-- * 'istPositiveVideoAdPositionSegments'
2652+--
2653+-- * 'istPositiveInventorySlots'
2654+--
2655+-- * 'istNegativeMobileApps'
2656+--
2657+-- * 'istNegativeIcmInterests'
2658+inventorySegmentTargeting
2659+ :: InventorySegmentTargeting
2660+inventorySegmentTargeting =
2661+ InventorySegmentTargeting
2662+ { _istNegativeVideoDurationSegments = Nothing
2663+ , _istNegativeIcmBrands = Nothing
2664+ , _istNegativeKeyValues = Nothing
2665+ , _istPositiveAudienceSegments = Nothing
2666+ , _istPositiveXfpPlacements = Nothing
2667+ , _istNegativeXfpAdSlots = Nothing
2668+ , _istPositiveOperatingSystemVersions = Nothing
2669+ , _istPositiveSizes = Nothing
2670+ , _istPositiveDeviceCategories = Nothing
2671+ , _istPositiveLocations = Nothing
2672+ , _istNegativeAdSizes = Nothing
2673+ , _istPositiveOperatingSystems = Nothing
2674+ , _istPositiveSiteUrls = Nothing
2675+ , _istNegativeInventorySlots = Nothing
2676+ , _istNegativeVideoAdPositionSegments = Nothing
2677+ , _istPositiveAdTypeSegments = Nothing
2678+ , _istPositiveIcmInterests = Nothing
2679+ , _istPositiveMobileApps = Nothing
2680+ , _istPositiveKeyValues = Nothing
2681+ , _istPositiveIcmBrands = Nothing
2682+ , _istPositiveVideoDurationSegments = Nothing
2683+ , _istNegativeAudienceSegments = Nothing
2684+ , _istNegativeXfpPlacements = Nothing
2685+ , _istPositiveXfpAdSlots = Nothing
2686+ , _istNegativeOperatingSystemVersions = Nothing
2687+ , _istNegativeSizes = Nothing
2688+ , _istNegativeLocations = Nothing
2689+ , _istNegativeDeviceCategories = Nothing
2690+ , _istNegativeOperatingSystems = Nothing
2691+ , _istPositiveAdSizes = Nothing
2692+ , _istNegativeSiteUrls = Nothing
2693+ , _istNegativeAdTypeSegments = Nothing
2694+ , _istPositiveVideoAdPositionSegments = Nothing
2695+ , _istPositiveInventorySlots = Nothing
2696+ , _istNegativeMobileApps = Nothing
2697+ , _istNegativeIcmInterests = Nothing
2698+ }
2699+
2700+istNegativeVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64]
2701+istNegativeVideoDurationSegments
2702+ = lens _istNegativeVideoDurationSegments
2703+ (\ s a -> s{_istNegativeVideoDurationSegments = a})
2704+ . _Default
2705+ . _Coerce
2706+
2707+istNegativeIcmBrands :: Lens' InventorySegmentTargeting [Int64]
2708+istNegativeIcmBrands
2709+ = lens _istNegativeIcmBrands
2710+ (\ s a -> s{_istNegativeIcmBrands = a})
2711+ . _Default
2712+ . _Coerce
2713+
2714+istNegativeKeyValues :: Lens' InventorySegmentTargeting [Maybe RuleKeyValuePair]
2715+istNegativeKeyValues
2716+ = lens _istNegativeKeyValues
2717+ (\ s a -> s{_istNegativeKeyValues = a})
2718+ . _Default
2719+ . _Coerce
2720+
2721+istPositiveAudienceSegments :: Lens' InventorySegmentTargeting [Int64]
2722+istPositiveAudienceSegments
2723+ = lens _istPositiveAudienceSegments
2724+ (\ s a -> s{_istPositiveAudienceSegments = a})
2725+ . _Default
2726+ . _Coerce
2727+
2728+istPositiveXfpPlacements :: Lens' InventorySegmentTargeting [Int64]
2729+istPositiveXfpPlacements
2730+ = lens _istPositiveXfpPlacements
2731+ (\ s a -> s{_istPositiveXfpPlacements = a})
2732+ . _Default
2733+ . _Coerce
2734+
2735+istNegativeXfpAdSlots :: Lens' InventorySegmentTargeting [Int64]
2736+istNegativeXfpAdSlots
2737+ = lens _istNegativeXfpAdSlots
2738+ (\ s a -> s{_istNegativeXfpAdSlots = a})
2739+ . _Default
2740+ . _Coerce
2741+
2742+istPositiveOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64]
2743+istPositiveOperatingSystemVersions
2744+ = lens _istPositiveOperatingSystemVersions
2745+ (\ s a -> s{_istPositiveOperatingSystemVersions = a})
2746+ . _Default
2747+ . _Coerce
2748+
2749+istPositiveSizes :: Lens' InventorySegmentTargeting [Int64]
2750+istPositiveSizes
2751+ = lens _istPositiveSizes
2752+ (\ s a -> s{_istPositiveSizes = a})
2753+ . _Default
2754+ . _Coerce
2755+
2756+istPositiveDeviceCategories :: Lens' InventorySegmentTargeting [Int64]
2757+istPositiveDeviceCategories
2758+ = lens _istPositiveDeviceCategories
2759+ (\ s a -> s{_istPositiveDeviceCategories = a})
2760+ . _Default
2761+ . _Coerce
2762+
2763+istPositiveLocations :: Lens' InventorySegmentTargeting [Int64]
2764+istPositiveLocations
2765+ = lens _istPositiveLocations
2766+ (\ s a -> s{_istPositiveLocations = a})
2767+ . _Default
2768+ . _Coerce
2769+
2770+istNegativeAdSizes :: Lens' InventorySegmentTargeting [Maybe AdSize]
2771+istNegativeAdSizes
2772+ = lens _istNegativeAdSizes
2773+ (\ s a -> s{_istNegativeAdSizes = a})
2774+ . _Default
2775+ . _Coerce
2776+
2777+istPositiveOperatingSystems :: Lens' InventorySegmentTargeting [Int64]
2778+istPositiveOperatingSystems
2779+ = lens _istPositiveOperatingSystems
2780+ (\ s a -> s{_istPositiveOperatingSystems = a})
2781+ . _Default
2782+ . _Coerce
2783+
2784+istPositiveSiteUrls :: Lens' InventorySegmentTargeting [Text]
2785+istPositiveSiteUrls
2786+ = lens _istPositiveSiteUrls
2787+ (\ s a -> s{_istPositiveSiteUrls = a})
2788+ . _Default
2789+ . _Coerce
2790+
2791+istNegativeInventorySlots :: Lens' InventorySegmentTargeting [Text]
2792+istNegativeInventorySlots
2793+ = lens _istNegativeInventorySlots
2794+ (\ s a -> s{_istNegativeInventorySlots = a})
2795+ . _Default
2796+ . _Coerce
2797+
2798+istNegativeVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text]
2799+istNegativeVideoAdPositionSegments
2800+ = lens _istNegativeVideoAdPositionSegments
2801+ (\ s a -> s{_istNegativeVideoAdPositionSegments = a})
2802+ . _Default
2803+ . _Coerce
2804+
2805+istPositiveAdTypeSegments :: Lens' InventorySegmentTargeting [Text]
2806+istPositiveAdTypeSegments
2807+ = lens _istPositiveAdTypeSegments
2808+ (\ s a -> s{_istPositiveAdTypeSegments = a})
2809+ . _Default
2810+ . _Coerce
2811+
2812+istPositiveIcmInterests :: Lens' InventorySegmentTargeting [Int64]
2813+istPositiveIcmInterests
2814+ = lens _istPositiveIcmInterests
2815+ (\ s a -> s{_istPositiveIcmInterests = a})
2816+ . _Default
2817+ . _Coerce
2818+
2819+istPositiveMobileApps :: Lens' InventorySegmentTargeting [Text]
2820+istPositiveMobileApps
2821+ = lens _istPositiveMobileApps
2822+ (\ s a -> s{_istPositiveMobileApps = a})
2823+ . _Default
2824+ . _Coerce
2825+
2826+istPositiveKeyValues :: Lens' InventorySegmentTargeting [Maybe RuleKeyValuePair]
2827+istPositiveKeyValues
2828+ = lens _istPositiveKeyValues
2829+ (\ s a -> s{_istPositiveKeyValues = a})
2830+ . _Default
2831+ . _Coerce
2832+
2833+istPositiveIcmBrands :: Lens' InventorySegmentTargeting [Int64]
2834+istPositiveIcmBrands
2835+ = lens _istPositiveIcmBrands
2836+ (\ s a -> s{_istPositiveIcmBrands = a})
2837+ . _Default
2838+ . _Coerce
2839+
2840+istPositiveVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64]
2841+istPositiveVideoDurationSegments
2842+ = lens _istPositiveVideoDurationSegments
2843+ (\ s a -> s{_istPositiveVideoDurationSegments = a})
2844+ . _Default
2845+ . _Coerce
2846+
2847+istNegativeAudienceSegments :: Lens' InventorySegmentTargeting [Int64]
2848+istNegativeAudienceSegments
2849+ = lens _istNegativeAudienceSegments
2850+ (\ s a -> s{_istNegativeAudienceSegments = a})
2851+ . _Default
2852+ . _Coerce
2853+
2854+istNegativeXfpPlacements :: Lens' InventorySegmentTargeting [Int64]
2855+istNegativeXfpPlacements
2856+ = lens _istNegativeXfpPlacements
2857+ (\ s a -> s{_istNegativeXfpPlacements = a})
2858+ . _Default
2859+ . _Coerce
2860+
2861+istPositiveXfpAdSlots :: Lens' InventorySegmentTargeting [Int64]
2862+istPositiveXfpAdSlots
2863+ = lens _istPositiveXfpAdSlots
2864+ (\ s a -> s{_istPositiveXfpAdSlots = a})
2865+ . _Default
2866+ . _Coerce
2867+
2868+istNegativeOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64]
2869+istNegativeOperatingSystemVersions
2870+ = lens _istNegativeOperatingSystemVersions
2871+ (\ s a -> s{_istNegativeOperatingSystemVersions = a})
2872+ . _Default
2873+ . _Coerce
2874+
2875+istNegativeSizes :: Lens' InventorySegmentTargeting [Int64]
2876+istNegativeSizes
2877+ = lens _istNegativeSizes
2878+ (\ s a -> s{_istNegativeSizes = a})
2879+ . _Default
2880+ . _Coerce
2881+
2882+istNegativeLocations :: Lens' InventorySegmentTargeting [Int64]
2883+istNegativeLocations
2884+ = lens _istNegativeLocations
2885+ (\ s a -> s{_istNegativeLocations = a})
2886+ . _Default
2887+ . _Coerce
2888+
2889+istNegativeDeviceCategories :: Lens' InventorySegmentTargeting [Int64]
2890+istNegativeDeviceCategories
2891+ = lens _istNegativeDeviceCategories
2892+ (\ s a -> s{_istNegativeDeviceCategories = a})
2893+ . _Default
2894+ . _Coerce
2895+
2896+istNegativeOperatingSystems :: Lens' InventorySegmentTargeting [Int64]
2897+istNegativeOperatingSystems
2898+ = lens _istNegativeOperatingSystems
2899+ (\ s a -> s{_istNegativeOperatingSystems = a})
2900+ . _Default
2901+ . _Coerce
2902+
2903+istPositiveAdSizes :: Lens' InventorySegmentTargeting [Maybe AdSize]
2904+istPositiveAdSizes
2905+ = lens _istPositiveAdSizes
2906+ (\ s a -> s{_istPositiveAdSizes = a})
2907+ . _Default
2908+ . _Coerce
2909+
2910+istNegativeSiteUrls :: Lens' InventorySegmentTargeting [Text]
2911+istNegativeSiteUrls
2912+ = lens _istNegativeSiteUrls
2913+ (\ s a -> s{_istNegativeSiteUrls = a})
2914+ . _Default
2915+ . _Coerce
2916+
2917+istNegativeAdTypeSegments :: Lens' InventorySegmentTargeting [Text]
2918+istNegativeAdTypeSegments
2919+ = lens _istNegativeAdTypeSegments
2920+ (\ s a -> s{_istNegativeAdTypeSegments = a})
2921+ . _Default
2922+ . _Coerce
2923+
2924+istPositiveVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text]
2925+istPositiveVideoAdPositionSegments
2926+ = lens _istPositiveVideoAdPositionSegments
2927+ (\ s a -> s{_istPositiveVideoAdPositionSegments = a})
2928+ . _Default
2929+ . _Coerce
2930+
2931+istPositiveInventorySlots :: Lens' InventorySegmentTargeting [Text]
2932+istPositiveInventorySlots
2933+ = lens _istPositiveInventorySlots
2934+ (\ s a -> s{_istPositiveInventorySlots = a})
2935+ . _Default
2936+ . _Coerce
2937+
2938+istNegativeMobileApps :: Lens' InventorySegmentTargeting [Text]
2939+istNegativeMobileApps
2940+ = lens _istNegativeMobileApps
2941+ (\ s a -> s{_istNegativeMobileApps = a})
2942+ . _Default
2943+ . _Coerce
2944+
2945+istNegativeIcmInterests :: Lens' InventorySegmentTargeting [Int64]
2946+istNegativeIcmInterests
2947+ = lens _istNegativeIcmInterests
2948+ (\ s a -> s{_istNegativeIcmInterests = a})
2949+ . _Default
2950+ . _Coerce
2951+
2952+--
2953+-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
2954+newtype ListClientAccessCapabilitiesRequest = ListClientAccessCapabilitiesRequest
2955+ { _lcacrSponsorAccountId :: Maybe Int64
2956+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2957+
2958+-- | Creates a value of 'ListClientAccessCapabilitiesRequest' with the minimum fields required to make a request.
2959+--
2960+-- Use one of the following lenses to modify other fields as desired:
2961+--
2962+-- * 'lcacrSponsorAccountId'
2963+listClientAccessCapabilitiesRequest
2964+ :: ListClientAccessCapabilitiesRequest
2965+listClientAccessCapabilitiesRequest =
2966+ ListClientAccessCapabilitiesRequest
2967+ { _lcacrSponsorAccountId = Nothing
2968+ }
2969+
2970+lcacrSponsorAccountId :: Lens' ListClientAccessCapabilitiesRequest (Maybe Int64)
2971+lcacrSponsorAccountId
2972+ = lens _lcacrSponsorAccountId
2973+ (\ s a -> s{_lcacrSponsorAccountId = a})
2974+
2975+--
2976+-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
2977+newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
2978+ { _lcacrClientAccessPermissions :: Maybe [Maybe ClientAccessCapabilities]
2979+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2980+
2981+-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
2982+--
2983+-- Use one of the following lenses to modify other fields as desired:
2984+--
2985+-- * 'lcacrClientAccessPermissions'
2986+listClientAccessCapabilitiesResponse
2987+ :: ListClientAccessCapabilitiesResponse
2988+listClientAccessCapabilitiesResponse =
2989+ ListClientAccessCapabilitiesResponse
2990+ { _lcacrClientAccessPermissions = Nothing
2991+ }
2992+
2993+lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [Maybe ClientAccessCapabilities]
2994+lcacrClientAccessPermissions
2995+ = lens _lcacrClientAccessPermissions
2996+ (\ s a -> s{_lcacrClientAccessPermissions = a})
2997+ . _Default
2998+ . _Coerce
2999+
3000+--
3001+-- /See:/ 'listOffersRequest' smart constructor.
3002+newtype ListOffersRequest = ListOffersRequest
3003+ { _lorSinceTimestampMillis :: Maybe Int64
3004+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3005+
3006+-- | Creates a value of 'ListOffersRequest' with the minimum fields required to make a request.
3007+--
3008+-- Use one of the following lenses to modify other fields as desired:
3009+--
3010+-- * 'lorSinceTimestampMillis'
3011+listOffersRequest
3012+ :: ListOffersRequest
3013+listOffersRequest =
3014+ ListOffersRequest
3015+ { _lorSinceTimestampMillis = Nothing
3016+ }
3017+
3018+lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
3019+lorSinceTimestampMillis
3020+ = lens _lorSinceTimestampMillis
3021+ (\ s a -> s{_lorSinceTimestampMillis = a})
3022+
3023+--
3024+-- /See:/ 'listOffersResponse' smart constructor.
3025+data ListOffersResponse = ListOffersResponse
3026+ { _lorKind :: !Text
3027+ , _lorOffers :: !(Maybe [Maybe OfferDto])
3028+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3029+
3030+-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.
3031+--
3032+-- Use one of the following lenses to modify other fields as desired:
3033+--
3034+-- * 'lorKind'
3035+--
3036+-- * 'lorOffers'
3037+listOffersResponse
3038+ :: ListOffersResponse
3039+listOffersResponse =
3040+ ListOffersResponse
3041+ { _lorKind = "adexchangebuyer#offersList"
3042+ , _lorOffers = Nothing
3043+ }
3044+
3045+lorKind :: Lens' ListOffersResponse Text
3046+lorKind = lens _lorKind (\ s a -> s{_lorKind = a})
3047+
3048+lorOffers :: Lens' ListOffersResponse [Maybe OfferDto]
3049+lorOffers
3050+ = lens _lorOffers (\ s a -> s{_lorOffers = a}) .
3051+ _Default
3052+ . _Coerce
3053+
3054+-- | An order can contain multiple deals. A deal contains the terms and
3055+-- targeting information that is used for serving.
3056+--
3057+-- /See:/ 'marketplaceDeal' smart constructor.
3058+data MarketplaceDeal = MarketplaceDeal
3059+ { _mdExternalDealId :: !(Maybe Text)
3060+ , _mdBuyerPrivateData :: !(Maybe (Maybe PrivateData))
3061+ , _mdWebPropertyCode :: !(Maybe Text)
3062+ , _mdCreationTimeMs :: !(Maybe Int64)
3063+ , _mdTerms :: !(Maybe (Maybe DealTerms))
3064+ , _mdOfferRevisionNumber :: !(Maybe Int64)
3065+ , _mdLastUpdateTimeMs :: !(Maybe Int64)
3066+ , _mdKind :: !Text
3067+ , _mdDeliveryControl :: !(Maybe (Maybe DeliveryControl))
3068+ , _mdFlightStartTimeMs :: !(Maybe Int64)
3069+ , _mdSharedTargetings :: !(Maybe [Maybe SharedTargeting])
3070+ , _mdDealId :: !(Maybe Text)
3071+ , _mdInventoryDescription :: !(Maybe Text)
3072+ , _mdSyndicationProduct :: !(Maybe Text)
3073+ , _mdFlightEndTimeMs :: !(Maybe Int64)
3074+ , _mdName :: !(Maybe Text)
3075+ , _mdSellerContacts :: !(Maybe [Maybe ContactInformation])
3076+ , _mdOfferId :: !(Maybe Text)
3077+ , _mdOrderId :: !(Maybe Text)
3078+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3079+
3080+-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.
3081+--
3082+-- Use one of the following lenses to modify other fields as desired:
3083+--
3084+-- * 'mdExternalDealId'
3085+--
3086+-- * 'mdBuyerPrivateData'
3087+--
3088+-- * 'mdWebPropertyCode'
3089+--
3090+-- * 'mdCreationTimeMs'
3091+--
3092+-- * 'mdTerms'
3093+--
3094+-- * 'mdOfferRevisionNumber'
3095+--
3096+-- * 'mdLastUpdateTimeMs'
3097+--
3098+-- * 'mdKind'
3099+--
3100+-- * 'mdDeliveryControl'
3101+--
3102+-- * 'mdFlightStartTimeMs'
3103+--
3104+-- * 'mdSharedTargetings'
3105+--
3106+-- * 'mdDealId'
3107+--
3108+-- * 'mdInventoryDescription'
3109+--
3110+-- * 'mdSyndicationProduct'
3111+--
3112+-- * 'mdFlightEndTimeMs'
3113+--
3114+-- * 'mdName'
3115+--
3116+-- * 'mdSellerContacts'
3117+--
3118+-- * 'mdOfferId'
3119+--
3120+-- * 'mdOrderId'
3121+marketplaceDeal
3122+ :: MarketplaceDeal
3123+marketplaceDeal =
3124+ MarketplaceDeal
3125+ { _mdExternalDealId = Nothing
3126+ , _mdBuyerPrivateData = Nothing
3127+ , _mdWebPropertyCode = Nothing
3128+ , _mdCreationTimeMs = Nothing
3129+ , _mdTerms = Nothing
3130+ , _mdOfferRevisionNumber = Nothing
3131+ , _mdLastUpdateTimeMs = Nothing
3132+ , _mdKind = "adexchangebuyer#marketplaceDeal"
3133+ , _mdDeliveryControl = Nothing
3134+ , _mdFlightStartTimeMs = Nothing
3135+ , _mdSharedTargetings = Nothing
3136+ , _mdDealId = Nothing
3137+ , _mdInventoryDescription = Nothing
3138+ , _mdSyndicationProduct = Nothing
3139+ , _mdFlightEndTimeMs = Nothing
3140+ , _mdName = Nothing
3141+ , _mdSellerContacts = Nothing
3142+ , _mdOfferId = Nothing
3143+ , _mdOrderId = Nothing
3144+ }
3145+
3146+-- | The external deal id assigned to this deal once the deal is finalized.
3147+-- This is the deal-id that shows up in serving\/reporting etc. (readonly)
3148+mdExternalDealId :: Lens' MarketplaceDeal (Maybe Text)
3149+mdExternalDealId
3150+ = lens _mdExternalDealId
3151+ (\ s a -> s{_mdExternalDealId = a})
3152+
3153+-- | Buyer private data (hidden from seller).
3154+mdBuyerPrivateData :: Lens' MarketplaceDeal (Maybe (Maybe PrivateData))
3155+mdBuyerPrivateData
3156+ = lens _mdBuyerPrivateData
3157+ (\ s a -> s{_mdBuyerPrivateData = a})
3158+
3159+mdWebPropertyCode :: Lens' MarketplaceDeal (Maybe Text)
3160+mdWebPropertyCode
3161+ = lens _mdWebPropertyCode
3162+ (\ s a -> s{_mdWebPropertyCode = a})
3163+
3164+-- | The time (ms since epoch) of the deal creation. (readonly)
3165+mdCreationTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
3166+mdCreationTimeMs
3167+ = lens _mdCreationTimeMs
3168+ (\ s a -> s{_mdCreationTimeMs = a})
3169+
3170+-- | The negotiable terms of the deal. (updatable)
3171+mdTerms :: Lens' MarketplaceDeal (Maybe (Maybe DealTerms))
3172+mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a})
3173+
3174+-- | The revision number of the offer that the deal was created from
3175+-- (readonly, except on create)
3176+mdOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)
3177+mdOfferRevisionNumber
3178+ = lens _mdOfferRevisionNumber
3179+ (\ s a -> s{_mdOfferRevisionNumber = a})
3180+
3181+-- | The time (ms since epoch) when the deal was last updated. (readonly)
3182+mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
3183+mdLastUpdateTimeMs
3184+ = lens _mdLastUpdateTimeMs
3185+ (\ s a -> s{_mdLastUpdateTimeMs = a})
3186+
3187+-- | Identifies what kind of resource this is. Value: the fixed string
3188+-- \"adexchangebuyer#marketplaceDeal\".
3189+mdKind :: Lens' MarketplaceDeal Text
3190+mdKind = lens _mdKind (\ s a -> s{_mdKind = a})
3191+
3192+-- | The set of fields around delivery control that are interesting for a
3193+-- buyer to see but are non-negotiable. These are set by the publisher.
3194+-- This message is assigned an id of 100 since some day we would want to
3195+-- model this as a protobuf extension.
3196+mdDeliveryControl :: Lens' MarketplaceDeal (Maybe (Maybe DeliveryControl))
3197+mdDeliveryControl
3198+ = lens _mdDeliveryControl
3199+ (\ s a -> s{_mdDeliveryControl = a})
3200+
3201+-- | Proposed flight start time of the deal (ms since epoch) This will
3202+-- generally be stored in a granularity of a second. (updatable)
3203+mdFlightStartTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
3204+mdFlightStartTimeMs
3205+ = lens _mdFlightStartTimeMs
3206+ (\ s a -> s{_mdFlightStartTimeMs = a})
3207+
3208+-- | The shared targeting visible to buyers and sellers. (updatable)
3209+mdSharedTargetings :: Lens' MarketplaceDeal [Maybe SharedTargeting]
3210+mdSharedTargetings
3211+ = lens _mdSharedTargetings
3212+ (\ s a -> s{_mdSharedTargetings = a})
3213+ . _Default
3214+ . _Coerce
3215+
3216+-- | A unique deal=id for the deal (readonly).
3217+mdDealId :: Lens' MarketplaceDeal (Maybe Text)
3218+mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
3219+
3220+-- | Description for the deal terms. (updatable)
3221+mdInventoryDescription :: Lens' MarketplaceDeal (Maybe Text)
3222+mdInventoryDescription
3223+ = lens _mdInventoryDescription
3224+ (\ s a -> s{_mdInventoryDescription = a})
3225+
3226+-- | The syndication product associated with the deal. (readonly, except on
3227+-- create)
3228+mdSyndicationProduct :: Lens' MarketplaceDeal (Maybe Text)
3229+mdSyndicationProduct
3230+ = lens _mdSyndicationProduct
3231+ (\ s a -> s{_mdSyndicationProduct = a})
3232+
3233+-- | Proposed flight end time of the deal (ms since epoch) This will
3234+-- generally be stored in a granularity of a second. (updatable)
3235+mdFlightEndTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
3236+mdFlightEndTimeMs
3237+ = lens _mdFlightEndTimeMs
3238+ (\ s a -> s{_mdFlightEndTimeMs = a})
3239+
3240+-- | The name of the deal. (updatable)
3241+mdName :: Lens' MarketplaceDeal (Maybe Text)
3242+mdName = lens _mdName (\ s a -> s{_mdName = a})
3243+
3244+-- | Optional Seller contact information for the deal (buyer-readonly)
3245+mdSellerContacts :: Lens' MarketplaceDeal [Maybe ContactInformation]
3246+mdSellerContacts
3247+ = lens _mdSellerContacts
3248+ (\ s a -> s{_mdSellerContacts = a})
3249+ . _Default
3250+ . _Coerce
3251+
3252+-- | The offer-id from which this deal was created. (readonly, except on
3253+-- create)
3254+mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
3255+mdOfferId
3256+ = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
3257+
3258+mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
3259+mdOrderId
3260+ = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
3261+
3262+--
3263+-- /See:/ 'marketplaceDealParty' smart constructor.
3264+data MarketplaceDealParty = MarketplaceDealParty
3265+ { _mdpSeller :: !(Maybe (Maybe Seller))
3266+ , _mdpBuyer :: !(Maybe (Maybe Buyer))
3267+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3268+
3269+-- | Creates a value of 'MarketplaceDealParty' with the minimum fields required to make a request.
3270+--
3271+-- Use one of the following lenses to modify other fields as desired:
3272+--
3273+-- * 'mdpSeller'
3274+--
3275+-- * 'mdpBuyer'
3276+marketplaceDealParty
3277+ :: MarketplaceDealParty
3278+marketplaceDealParty =
3279+ MarketplaceDealParty
3280+ { _mdpSeller = Nothing
3281+ , _mdpBuyer = Nothing
3282+ }
3283+
3284+-- | The buyer\/seller associated with the deal. One of buyer\/seller is
3285+-- specified for a deal party.
3286+mdpSeller :: Lens' MarketplaceDealParty (Maybe (Maybe Seller))
3287+mdpSeller
3288+ = lens _mdpSeller (\ s a -> s{_mdpSeller = a})
3289+
3290+-- | The buyer\/seller associated with the deal. One of buyer\/seller is
3291+-- specified for a deal-party.
3292+mdpBuyer :: Lens' MarketplaceDealParty (Maybe (Maybe Buyer))
3293+mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a})
3294+
3295+--
3296+-- /See:/ 'marketplaceLabel' smart constructor.
3297+data MarketplaceLabel = MarketplaceLabel
3298+ { _mlDeprecatedMarketplaceDealParty :: !(Maybe (Maybe MarketplaceDealParty))
3299+ , _mlAccountId :: !(Maybe Text)
3300+ , _mlCreateTimeMs :: !(Maybe Int64)
3301+ , _mlLabel :: !(Maybe Text)
3302+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3303+
3304+-- | Creates a value of 'MarketplaceLabel' with the minimum fields required to make a request.
3305+--
3306+-- Use one of the following lenses to modify other fields as desired:
3307+--
3308+-- * 'mlDeprecatedMarketplaceDealParty'
3309+--
3310+-- * 'mlAccountId'
3311+--
3312+-- * 'mlCreateTimeMs'
3313+--
3314+-- * 'mlLabel'
3315+marketplaceLabel
3316+ :: MarketplaceLabel
3317+marketplaceLabel =
3318+ MarketplaceLabel
3319+ { _mlDeprecatedMarketplaceDealParty = Nothing
3320+ , _mlAccountId = Nothing
3321+ , _mlCreateTimeMs = Nothing
3322+ , _mlLabel = Nothing
3323+ }
3324+
3325+-- | Information about the party that created the label.
3326+mlDeprecatedMarketplaceDealParty :: Lens' MarketplaceLabel (Maybe (Maybe MarketplaceDealParty))
3327+mlDeprecatedMarketplaceDealParty
3328+ = lens _mlDeprecatedMarketplaceDealParty
3329+ (\ s a -> s{_mlDeprecatedMarketplaceDealParty = a})
3330+
3331+-- | The accountId of the party that created the label.
3332+mlAccountId :: Lens' MarketplaceLabel (Maybe Text)
3333+mlAccountId
3334+ = lens _mlAccountId (\ s a -> s{_mlAccountId = a})
3335+
3336+-- | The creation time (in ms since epoch) for the label.
3337+mlCreateTimeMs :: Lens' MarketplaceLabel (Maybe Int64)
3338+mlCreateTimeMs
3339+ = lens _mlCreateTimeMs
3340+ (\ s a -> s{_mlCreateTimeMs = a})
3341+
3342+-- | The label to use.
3343+mlLabel :: Lens' MarketplaceLabel (Maybe Text)
3344+mlLabel = lens _mlLabel (\ s a -> s{_mlLabel = a})
3345+
3346+-- | An order is associated with a bunch of notes which may optionally be
3347+-- associated with a deal and\/or revision number.
3348+--
3349+-- /See:/ 'marketplaceNote' smart constructor.
3350+data MarketplaceNote = MarketplaceNote
3351+ { _mnNote :: !(Maybe Text)
3352+ , _mnKind :: !Text
3353+ , _mnTimestampMs :: !(Maybe Int64)
3354+ , _mnDealId :: !(Maybe Text)
3355+ , _mnNoteId :: !(Maybe Text)
3356+ , _mnCreatorRole :: !(Maybe Text)
3357+ , _mnOrderId :: !(Maybe Text)
3358+ , _mnOrderRevisionNumber :: !(Maybe Int64)
3359+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3360+
3361+-- | Creates a value of 'MarketplaceNote' with the minimum fields required to make a request.
3362+--
3363+-- Use one of the following lenses to modify other fields as desired:
3364+--
3365+-- * 'mnNote'
3366+--
3367+-- * 'mnKind'
3368+--
3369+-- * 'mnTimestampMs'
3370+--
3371+-- * 'mnDealId'
3372+--
3373+-- * 'mnNoteId'
3374+--
3375+-- * 'mnCreatorRole'
3376+--
3377+-- * 'mnOrderId'
3378+--
3379+-- * 'mnOrderRevisionNumber'
3380+marketplaceNote
3381+ :: MarketplaceNote
3382+marketplaceNote =
3383+ MarketplaceNote
3384+ { _mnNote = Nothing
3385+ , _mnKind = "adexchangebuyer#marketplaceNote"
3386+ , _mnTimestampMs = Nothing
3387+ , _mnDealId = Nothing
3388+ , _mnNoteId = Nothing
3389+ , _mnCreatorRole = Nothing
3390+ , _mnOrderId = Nothing
3391+ , _mnOrderRevisionNumber = Nothing
3392+ }
3393+
3394+-- | The actual note to attach. (readonly, except on create)
3395+mnNote :: Lens' MarketplaceNote (Maybe Text)
3396+mnNote = lens _mnNote (\ s a -> s{_mnNote = a})
3397+
3398+-- | Identifies what kind of resource this is. Value: the fixed string
3399+-- \"adexchangebuyer#marketplaceNote\".
3400+mnKind :: Lens' MarketplaceNote Text
3401+mnKind = lens _mnKind (\ s a -> s{_mnKind = a})
3402+
3403+-- | The timestamp (ms since epoch) that this note was created. (readonly)
3404+mnTimestampMs :: Lens' MarketplaceNote (Maybe Int64)
3405+mnTimestampMs
3406+ = lens _mnTimestampMs
3407+ (\ s a -> s{_mnTimestampMs = a})
3408+
3409+-- | Notes can optionally be associated with a deal. (readonly, except on
3410+-- create)
3411+mnDealId :: Lens' MarketplaceNote (Maybe Text)
3412+mnDealId = lens _mnDealId (\ s a -> s{_mnDealId = a})
3413+
3414+-- | The unique id for the note. (readonly)
3415+mnNoteId :: Lens' MarketplaceNote (Maybe Text)
3416+mnNoteId = lens _mnNoteId (\ s a -> s{_mnNoteId = a})
3417+
3418+-- | The role of the person (buyer\/seller) creating the note. (readonly)
3419+mnCreatorRole :: Lens' MarketplaceNote (Maybe Text)
3420+mnCreatorRole
3421+ = lens _mnCreatorRole
3422+ (\ s a -> s{_mnCreatorRole = a})
3423+
3424+-- | The order_id that a note is attached to. (readonly)
3425+mnOrderId :: Lens' MarketplaceNote (Maybe Text)
3426+mnOrderId
3427+ = lens _mnOrderId (\ s a -> s{_mnOrderId = a})
3428+
3429+-- | If the note is associated with an order revision number, then store that
3430+-- here. (readonly, except on create)
3431+mnOrderRevisionNumber :: Lens' MarketplaceNote (Maybe Int64)
3432+mnOrderRevisionNumber
3433+ = lens _mnOrderRevisionNumber
3434+ (\ s a -> s{_mnOrderRevisionNumber = a})
3435+
3436+-- | An offer is segment of inventory that a seller wishes to sell. It is
3437+-- associated with certain terms and targeting information which helps
3438+-- buyer know more about the inventory. Each field in an order can have one
3439+-- of the following setting: (readonly) - It is an error to try and set
3440+-- this field. (buyer-readonly) - Only the seller can set this field.
3441+-- (seller-readonly) - Only the buyer can set this field. (updatable) - The
3442+-- field is updatable at all times by either buyer or the seller.
3443+--
3444+-- /See:/ 'marketplaceOffer' smart constructor.
3445+data MarketplaceOffer = MarketplaceOffer
3446+ { _moState :: !(Maybe Text)
3447+ , _moWebPropertyCode :: !(Maybe Text)
3448+ , _moCreationTimeMs :: !(Maybe Int64)
3449+ , _moTerms :: !(Maybe (Maybe DealTerms))
3450+ , _moLastUpdateTimeMs :: !(Maybe Int64)
3451+ , _moKind :: !Text
3452+ , _moRevisionNumber :: !(Maybe Int64)
3453+ , _moHasCreatorSignedOff :: !(Maybe Bool)
3454+ , _moFlightStartTimeMs :: !(Maybe Int64)
3455+ , _moSharedTargetings :: !(Maybe [Maybe SharedTargeting])
3456+ , _moSeller :: !(Maybe (Maybe Seller))
3457+ , _moSyndicationProduct :: !(Maybe Text)
3458+ , _moFlightEndTimeMs :: !(Maybe Int64)
3459+ , _moName :: !(Maybe Text)
3460+ , _moCreatorContacts :: !(Maybe [Maybe ContactInformation])
3461+ , _moOfferId :: !(Maybe Text)
3462+ , _moLabels :: !(Maybe [Maybe MarketplaceLabel])
3463+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3464+
3465+-- | Creates a value of 'MarketplaceOffer' with the minimum fields required to make a request.
3466+--
3467+-- Use one of the following lenses to modify other fields as desired:
3468+--
3469+-- * 'moState'
3470+--
3471+-- * 'moWebPropertyCode'
3472+--
3473+-- * 'moCreationTimeMs'
3474+--
3475+-- * 'moTerms'
3476+--
3477+-- * 'moLastUpdateTimeMs'
3478+--
3479+-- * 'moKind'
3480+--
3481+-- * 'moRevisionNumber'
3482+--
3483+-- * 'moHasCreatorSignedOff'
3484+--
3485+-- * 'moFlightStartTimeMs'
3486+--
3487+-- * 'moSharedTargetings'
3488+--
3489+-- * 'moSeller'
3490+--
3491+-- * 'moSyndicationProduct'
3492+--
3493+-- * 'moFlightEndTimeMs'
3494+--
3495+-- * 'moName'
3496+--
3497+-- * 'moCreatorContacts'
3498+--
3499+-- * 'moOfferId'
3500+--
3501+-- * 'moLabels'
3502+marketplaceOffer
3503+ :: MarketplaceOffer
3504+marketplaceOffer =
3505+ MarketplaceOffer
3506+ { _moState = Nothing
3507+ , _moWebPropertyCode = Nothing
3508+ , _moCreationTimeMs = Nothing
3509+ , _moTerms = Nothing
3510+ , _moLastUpdateTimeMs = Nothing
3511+ , _moKind = "adexchangebuyer#marketplaceOffer"
3512+ , _moRevisionNumber = Nothing
3513+ , _moHasCreatorSignedOff = Nothing
3514+ , _moFlightStartTimeMs = Nothing
3515+ , _moSharedTargetings = Nothing
3516+ , _moSeller = Nothing
3517+ , _moSyndicationProduct = Nothing
3518+ , _moFlightEndTimeMs = Nothing
3519+ , _moName = Nothing
3520+ , _moCreatorContacts = Nothing
3521+ , _moOfferId = Nothing
3522+ , _moLabels = Nothing
3523+ }
3524+
3525+-- | The state of the offer. (buyer-readonly)
3526+moState :: Lens' MarketplaceOffer (Maybe Text)
3527+moState = lens _moState (\ s a -> s{_moState = a})
3528+
3529+moWebPropertyCode :: Lens' MarketplaceOffer (Maybe Text)
3530+moWebPropertyCode
3531+ = lens _moWebPropertyCode
3532+ (\ s a -> s{_moWebPropertyCode = a})
3533+
3534+-- | Creation time in ms. since epoch (readonly)
3535+moCreationTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
3536+moCreationTimeMs
3537+ = lens _moCreationTimeMs
3538+ (\ s a -> s{_moCreationTimeMs = a})
3539+
3540+-- | The negotiable terms of the deal (buyer-readonly)
3541+moTerms :: Lens' MarketplaceOffer (Maybe (Maybe DealTerms))
3542+moTerms = lens _moTerms (\ s a -> s{_moTerms = a})
3543+
3544+-- | Time of last update in ms. since epoch (readonly)
3545+moLastUpdateTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
3546+moLastUpdateTimeMs
3547+ = lens _moLastUpdateTimeMs
3548+ (\ s a -> s{_moLastUpdateTimeMs = a})
3549+
3550+-- | Identifies what kind of resource this is. Value: the fixed string
3551+-- \"adexchangebuyer#marketplaceOffer\".
3552+moKind :: Lens' MarketplaceOffer Text
3553+moKind = lens _moKind (\ s a -> s{_moKind = a})
3554+
3555+-- | The revision number of the offer. (readonly)
3556+moRevisionNumber :: Lens' MarketplaceOffer (Maybe Int64)
3557+moRevisionNumber
3558+ = lens _moRevisionNumber
3559+ (\ s a -> s{_moRevisionNumber = a})
3560+
3561+-- | If the creator has already signed off on the offer, then the buyer can
3562+-- finalize the deal by accepting the offer as is. When copying to an
3563+-- order, if any of the terms are changed, then auto_finalize is
3564+-- automatically set to false.
3565+moHasCreatorSignedOff :: Lens' MarketplaceOffer (Maybe Bool)
3566+moHasCreatorSignedOff
3567+ = lens _moHasCreatorSignedOff
3568+ (\ s a -> s{_moHasCreatorSignedOff = a})
3569+
3570+-- | Inventory availability dates. (times are in ms since epoch) The
3571+-- granularity is generally in the order of seconds. (buyer-readonly)
3572+moFlightStartTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
3573+moFlightStartTimeMs
3574+ = lens _moFlightStartTimeMs
3575+ (\ s a -> s{_moFlightStartTimeMs = a})
3576+
3577+-- | Targeting that is shared between the buyer and the seller. Each
3578+-- targeting criteria has a specified key and for each key there is a list
3579+-- of inclusion value or exclusion values. (buyer-readonly)
3580+moSharedTargetings :: Lens' MarketplaceOffer [Maybe SharedTargeting]
3581+moSharedTargetings
3582+ = lens _moSharedTargetings
3583+ (\ s a -> s{_moSharedTargetings = a})
3584+ . _Default
3585+ . _Coerce
3586+
3587+-- | Information about the seller that created this offer (readonly, except
3588+-- on create)
3589+moSeller :: Lens' MarketplaceOffer (Maybe (Maybe Seller))
3590+moSeller = lens _moSeller (\ s a -> s{_moSeller = a})
3591+
3592+-- | The syndication product associated with the deal. (readonly, except on
3593+-- create)
3594+moSyndicationProduct :: Lens' MarketplaceOffer (Maybe Text)
3595+moSyndicationProduct
3596+ = lens _moSyndicationProduct
3597+ (\ s a -> s{_moSyndicationProduct = a})
3598+
3599+-- | The proposed end time for the deal (ms since epoch) (buyer-readonly)
3600+moFlightEndTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
3601+moFlightEndTimeMs
3602+ = lens _moFlightEndTimeMs
3603+ (\ s a -> s{_moFlightEndTimeMs = a})
3604+
3605+-- | The name for this offer as set by the seller. (buyer-readonly)
3606+moName :: Lens' MarketplaceOffer (Maybe Text)
3607+moName = lens _moName (\ s a -> s{_moName = a})
3608+
3609+-- | Optional contact information for the creator of this offer.
3610+-- (buyer-readonly)
3611+moCreatorContacts :: Lens' MarketplaceOffer [Maybe ContactInformation]
3612+moCreatorContacts
3613+ = lens _moCreatorContacts
3614+ (\ s a -> s{_moCreatorContacts = a})
3615+ . _Default
3616+ . _Coerce
3617+
3618+-- | The unique id for the offer (readonly)
3619+moOfferId :: Lens' MarketplaceOffer (Maybe Text)
3620+moOfferId
3621+ = lens _moOfferId (\ s a -> s{_moOfferId = a})
3622+
3623+-- | Optional List of labels for the offer (optional, buyer-readonly).
3624+moLabels :: Lens' MarketplaceOffer [Maybe MarketplaceLabel]
3625+moLabels
3626+ = lens _moLabels (\ s a -> s{_moLabels = a}) .
3627+ _Default
3628+ . _Coerce
3629+
3630+-- | Represents an order in the marketplace. An order is the unit of
3631+-- negotiation between a seller and a buyer and contains deals which are
3632+-- served. Each field in an order can have one of the following setting:
3633+-- (readonly) - It is an error to try and set this field. (buyer-readonly)
3634+-- - Only the seller can set this field. (seller-readonly) - Only the buyer
3635+-- can set this field. (updatable) - The field is updatable at all times by
3636+-- either buyer or the seller.
3637+--
3638+-- /See:/ 'marketplaceOrder' smart constructor.
3639+data MarketplaceOrder = MarketplaceOrder
3640+ { _mBuyerPrivateData :: !(Maybe (Maybe PrivateData))
3641+ , _mIsSetupComplete :: !(Maybe Bool)
3642+ , _mBuyerContacts :: !(Maybe [Maybe ContactInformation])
3643+ , _mKind :: !Text
3644+ , _mOriginatorRole :: !(Maybe Text)
3645+ , _mRevisionNumber :: !(Maybe Int64)
3646+ , _mBilledBuyer :: !(Maybe (Maybe Buyer))
3647+ , _mIsRenegotiating :: !(Maybe Bool)
3648+ , _mHasSellerSignedOff :: !(Maybe Bool)
3649+ , _mSeller :: !(Maybe (Maybe Seller))
3650+ , _mOrderState :: !(Maybe Text)
3651+ , _mName :: !(Maybe Text)
3652+ , _mSellerContacts :: !(Maybe [Maybe ContactInformation])
3653+ , _mLastUpdaterRole :: !(Maybe Text)
3654+ , _mLabels :: !(Maybe [Maybe MarketplaceLabel])
3655+ , _mRevisionTimeMs :: !(Maybe Int64)
3656+ , _mOrderId :: !(Maybe Text)
3657+ , _mLastUpdaterOrCommentorRole :: !(Maybe Text)
3658+ , _mHasBuyerSignedOff :: !(Maybe Bool)
3659+ , _mBuyer :: !(Maybe (Maybe Buyer))
3660+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3661+
3662+-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
3663+--
3664+-- Use one of the following lenses to modify other fields as desired:
3665+--
3666+-- * 'mBuyerPrivateData'
3667+--
3668+-- * 'mIsSetupComplete'
3669+--
3670+-- * 'mBuyerContacts'
3671+--
3672+-- * 'mKind'
3673+--
3674+-- * 'mOriginatorRole'
3675+--
3676+-- * 'mRevisionNumber'
3677+--
3678+-- * 'mBilledBuyer'
3679+--
3680+-- * 'mIsRenegotiating'
3681+--
3682+-- * 'mHasSellerSignedOff'
3683+--
3684+-- * 'mSeller'
3685+--
3686+-- * 'mOrderState'
3687+--
3688+-- * 'mName'
3689+--
3690+-- * 'mSellerContacts'
3691+--
3692+-- * 'mLastUpdaterRole'
3693+--
3694+-- * 'mLabels'
3695+--
3696+-- * 'mRevisionTimeMs'
3697+--
3698+-- * 'mOrderId'
3699+--
3700+-- * 'mLastUpdaterOrCommentorRole'
3701+--
3702+-- * 'mHasBuyerSignedOff'
3703+--
3704+-- * 'mBuyer'
3705+marketplaceOrder
3706+ :: MarketplaceOrder
3707+marketplaceOrder =
3708+ MarketplaceOrder
3709+ { _mBuyerPrivateData = Nothing
3710+ , _mIsSetupComplete = Nothing
3711+ , _mBuyerContacts = Nothing
3712+ , _mKind = "adexchangebuyer#marketplaceOrder"
3713+ , _mOriginatorRole = Nothing
3714+ , _mRevisionNumber = Nothing
3715+ , _mBilledBuyer = Nothing
3716+ , _mIsRenegotiating = Nothing
3717+ , _mHasSellerSignedOff = Nothing
3718+ , _mSeller = Nothing
3719+ , _mOrderState = Nothing
3720+ , _mName = Nothing
3721+ , _mSellerContacts = Nothing
3722+ , _mLastUpdaterRole = Nothing
3723+ , _mLabels = Nothing
3724+ , _mRevisionTimeMs = Nothing
3725+ , _mOrderId = Nothing
3726+ , _mLastUpdaterOrCommentorRole = Nothing
3727+ , _mHasBuyerSignedOff = Nothing
3728+ , _mBuyer = Nothing
3729+ }
3730+
3731+-- | Private data for buyer. (hidden from seller).
3732+mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe (Maybe PrivateData))
3733+mBuyerPrivateData
3734+ = lens _mBuyerPrivateData
3735+ (\ s a -> s{_mBuyerPrivateData = a})
3736+
3737+-- | True, if the buyside inventory setup is complete for this order.
3738+-- (readonly)
3739+mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
3740+mIsSetupComplete
3741+ = lens _mIsSetupComplete
3742+ (\ s a -> s{_mIsSetupComplete = a})
3743+
3744+-- | Optional contact information fort the buyer. (seller-readonly)
3745+mBuyerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]
3746+mBuyerContacts
3747+ = lens _mBuyerContacts
3748+ (\ s a -> s{_mBuyerContacts = a})
3749+ . _Default
3750+ . _Coerce
3751+
3752+-- | Identifies what kind of resource this is. Value: the fixed string
3753+-- \"adexchangebuyer#marketplaceOrder\".
3754+mKind :: Lens' MarketplaceOrder Text
3755+mKind = lens _mKind (\ s a -> s{_mKind = a})
3756+
3757+-- | Indicates whether the buyer\/seller created the offer.(readonly)
3758+mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
3759+mOriginatorRole
3760+ = lens _mOriginatorRole
3761+ (\ s a -> s{_mOriginatorRole = a})
3762+
3763+-- | The revision number for the order (readonly).
3764+mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
3765+mRevisionNumber
3766+ = lens _mRevisionNumber
3767+ (\ s a -> s{_mRevisionNumber = a})
3768+
3769+-- | Reference to the buyer that will get billed for this order. (readonly)
3770+mBilledBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))
3771+mBilledBuyer
3772+ = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a})
3773+
3774+-- | True if the order is being renegotiated (readonly).
3775+mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
3776+mIsRenegotiating
3777+ = lens _mIsRenegotiating
3778+ (\ s a -> s{_mIsRenegotiating = a})
3779+
3780+-- | When an order is in an accepted state, indicates whether the buyer has
3781+-- signed off Once both sides have signed off on a deal, the order can be
3782+-- finalized by the seller. (buyer-readonly)
3783+mHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
3784+mHasSellerSignedOff
3785+ = lens _mHasSellerSignedOff
3786+ (\ s a -> s{_mHasSellerSignedOff = a})
3787+
3788+-- | Reference to the seller on the order. (readonly, except on create)
3789+mSeller :: Lens' MarketplaceOrder (Maybe (Maybe Seller))
3790+mSeller = lens _mSeller (\ s a -> s{_mSeller = a})
3791+
3792+-- | The current state of the order. (readonly)
3793+mOrderState :: Lens' MarketplaceOrder (Maybe Text)
3794+mOrderState
3795+ = lens _mOrderState (\ s a -> s{_mOrderState = a})
3796+
3797+-- | The name for the order (updatable)
3798+mName :: Lens' MarketplaceOrder (Maybe Text)
3799+mName = lens _mName (\ s a -> s{_mName = a})
3800+
3801+-- | Optional contact information for the seller (buyer-readonly).
3802+mSellerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]
3803+mSellerContacts
3804+ = lens _mSellerContacts
3805+ (\ s a -> s{_mSellerContacts = a})
3806+ . _Default
3807+ . _Coerce
3808+
3809+mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
3810+mLastUpdaterRole
3811+ = lens _mLastUpdaterRole
3812+ (\ s a -> s{_mLastUpdaterRole = a})
3813+
3814+-- | List of labels associated with the order. (readonly)
3815+mLabels :: Lens' MarketplaceOrder [Maybe MarketplaceLabel]
3816+mLabels
3817+ = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default
3818+ . _Coerce
3819+
3820+-- | The time (ms since epoch) when the order was last revised (readonly).
3821+mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
3822+mRevisionTimeMs
3823+ = lens _mRevisionTimeMs
3824+ (\ s a -> s{_mRevisionTimeMs = a})
3825+
3826+-- | The unique id of the order. (readonly).
3827+mOrderId :: Lens' MarketplaceOrder (Maybe Text)
3828+mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
3829+
3830+-- | The role of the last user that either updated the order or left a
3831+-- comment. (readonly)
3832+mLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)
3833+mLastUpdaterOrCommentorRole
3834+ = lens _mLastUpdaterOrCommentorRole
3835+ (\ s a -> s{_mLastUpdaterOrCommentorRole = a})
3836+
3837+-- | When an order is in an accepted state, indicates whether the buyer has
3838+-- signed off Once both sides have signed off on a deal, the order can be
3839+-- finalized by the seller. (seller-readonly)
3840+mHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
3841+mHasBuyerSignedOff
3842+ = lens _mHasBuyerSignedOff
3843+ (\ s a -> s{_mHasBuyerSignedOff = a})
3844+
3845+-- | Reference to the buyer on the order. (readonly, except on create)
3846+mBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))
3847+mBuyer = lens _mBuyer (\ s a -> s{_mBuyer = a})
3848+
3849+--
3850+-- /See:/ 'moneyDto' smart constructor.
3851+data MoneyDto = MoneyDto
3852+ { _mdCurrencyCode :: !(Maybe Text)
3853+ , _mdMicros :: !(Maybe Int64)
3854+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3855+
3856+-- | Creates a value of 'MoneyDto' with the minimum fields required to make a request.
3857+--
3858+-- Use one of the following lenses to modify other fields as desired:
3859+--
3860+-- * 'mdCurrencyCode'
3861+--
3862+-- * 'mdMicros'
3863+moneyDto
3864+ :: MoneyDto
3865+moneyDto =
3866+ MoneyDto
3867+ { _mdCurrencyCode = Nothing
3868+ , _mdMicros = Nothing
3869+ }
3870+
3871+mdCurrencyCode :: Lens' MoneyDto (Maybe Text)
3872+mdCurrencyCode
3873+ = lens _mdCurrencyCode
3874+ (\ s a -> s{_mdCurrencyCode = a})
3875+
3876+mdMicros :: Lens' MoneyDto (Maybe Int64)
3877+mdMicros = lens _mdMicros (\ s a -> s{_mdMicros = a})
3878+
3879+--
3880+-- /See:/ 'negotiationDto' smart constructor.
3881+data NegotiationDto = NegotiationDto
3882+ { _ndNegotiationState :: !(Maybe Text)
3883+ , _ndExternalDealId :: !(Maybe Int64)
3884+ , _ndStatus :: !(Maybe Text)
3885+ , _ndDealType :: !(Maybe Text)
3886+ , _ndNegotiationRounds :: !(Maybe [Maybe NegotiationRoundDto])
3887+ , _ndKind :: !Text
3888+ , _ndBilledBuyer :: !(Maybe (Maybe DealPartyDto))
3889+ , _ndBuyerEmailContacts :: !(Maybe [Text])
3890+ , _ndStats :: !(Maybe (Maybe StatsDto))
3891+ , _ndSeller :: !(Maybe (Maybe DealPartyDto))
3892+ , _ndLabelNames :: !(Maybe [Text])
3893+ , _ndOfferId :: !(Maybe Int64)
3894+ , _ndNegotiationId :: !(Maybe Int64)
3895+ , _ndSellerEmailContacts :: !(Maybe [Text])
3896+ , _ndBuyer :: !(Maybe (Maybe DealPartyDto))
3897+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3898+
3899+-- | Creates a value of 'NegotiationDto' with the minimum fields required to make a request.
3900+--
3901+-- Use one of the following lenses to modify other fields as desired:
3902+--
3903+-- * 'ndNegotiationState'
3904+--
3905+-- * 'ndExternalDealId'
3906+--
3907+-- * 'ndStatus'
3908+--
3909+-- * 'ndDealType'
3910+--
3911+-- * 'ndNegotiationRounds'
3912+--
3913+-- * 'ndKind'
3914+--
3915+-- * 'ndBilledBuyer'
3916+--
3917+-- * 'ndBuyerEmailContacts'
3918+--
3919+-- * 'ndStats'
3920+--
3921+-- * 'ndSeller'
3922+--
3923+-- * 'ndLabelNames'
3924+--
3925+-- * 'ndOfferId'
3926+--
3927+-- * 'ndNegotiationId'
3928+--
3929+-- * 'ndSellerEmailContacts'
3930+--
3931+-- * 'ndBuyer'
3932+negotiationDto
3933+ :: NegotiationDto
3934+negotiationDto =
3935+ NegotiationDto
3936+ { _ndNegotiationState = Nothing
3937+ , _ndExternalDealId = Nothing
3938+ , _ndStatus = Nothing
3939+ , _ndDealType = Nothing
3940+ , _ndNegotiationRounds = Nothing
3941+ , _ndKind = "adexchangebuyer#negotiation"
3942+ , _ndBilledBuyer = Nothing
3943+ , _ndBuyerEmailContacts = Nothing
3944+ , _ndStats = Nothing
3945+ , _ndSeller = Nothing
3946+ , _ndLabelNames = Nothing
3947+ , _ndOfferId = Nothing
3948+ , _ndNegotiationId = Nothing
3949+ , _ndSellerEmailContacts = Nothing
3950+ , _ndBuyer = Nothing
3951+ }
3952+
3953+-- | The state of this negotiation.
3954+ndNegotiationState :: Lens' NegotiationDto (Maybe Text)
3955+ndNegotiationState
3956+ = lens _ndNegotiationState
3957+ (\ s a -> s{_ndNegotiationState = a})
3958+
3959+-- | For finalized negotiations, the ID of the finalized deal.
3960+ndExternalDealId :: Lens' NegotiationDto (Maybe Int64)
3961+ndExternalDealId
3962+ = lens _ndExternalDealId
3963+ (\ s a -> s{_ndExternalDealId = a})
3964+
3965+-- | The status of this negotiation.
3966+ndStatus :: Lens' NegotiationDto (Maybe Text)
3967+ndStatus = lens _ndStatus (\ s a -> s{_ndStatus = a})
3968+
3969+-- | The type of this deal.
3970+ndDealType :: Lens' NegotiationDto (Maybe Text)
3971+ndDealType
3972+ = lens _ndDealType (\ s a -> s{_ndDealType = a})
3973+
3974+-- | The series of negotiation rounds for this negotiation.
3975+ndNegotiationRounds :: Lens' NegotiationDto [Maybe NegotiationRoundDto]
3976+ndNegotiationRounds
3977+ = lens _ndNegotiationRounds
3978+ (\ s a -> s{_ndNegotiationRounds = a})
3979+ . _Default
3980+ . _Coerce
3981+
3982+ndKind :: Lens' NegotiationDto Text
3983+ndKind = lens _ndKind (\ s a -> s{_ndKind = a})
3984+
3985+-- | The billed buyer; Specified by a buyer buying through an intermediary.
3986+ndBilledBuyer :: Lens' NegotiationDto (Maybe (Maybe DealPartyDto))
3987+ndBilledBuyer
3988+ = lens _ndBilledBuyer
3989+ (\ s a -> s{_ndBilledBuyer = a})
3990+
3991+-- | The buyer party\'s contact email.
3992+ndBuyerEmailContacts :: Lens' NegotiationDto [Text]
3993+ndBuyerEmailContacts
3994+ = lens _ndBuyerEmailContacts
3995+ (\ s a -> s{_ndBuyerEmailContacts = a})
3996+ . _Default
3997+ . _Coerce
3998+
3999+-- | The stats for this negotiation.
4000+ndStats :: Lens' NegotiationDto (Maybe (Maybe StatsDto))
4001+ndStats = lens _ndStats (\ s a -> s{_ndStats = a})
4002+
4003+-- | Details of the seller party in this negotiation.
4004+ndSeller :: Lens' NegotiationDto (Maybe (Maybe DealPartyDto))
4005+ndSeller = lens _ndSeller (\ s a -> s{_ndSeller = a})
4006+
4007+-- | A list of label names applicable to this negotiation.
4008+ndLabelNames :: Lens' NegotiationDto [Text]
4009+ndLabelNames
4010+ = lens _ndLabelNames (\ s a -> s{_ndLabelNames = a})
4011+ . _Default
4012+ . _Coerce
4013+
4014+-- | The ID of this negotiation\'s original offer.
4015+ndOfferId :: Lens' NegotiationDto (Maybe Int64)
4016+ndOfferId
4017+ = lens _ndOfferId (\ s a -> s{_ndOfferId = a})
4018+
4019+-- | The unique ID of this negotiation.
4020+ndNegotiationId :: Lens' NegotiationDto (Maybe Int64)
4021+ndNegotiationId
4022+ = lens _ndNegotiationId
4023+ (\ s a -> s{_ndNegotiationId = a})
4024+
4025+-- | The seller party\'s contact email.
4026+ndSellerEmailContacts :: Lens' NegotiationDto [Text]
4027+ndSellerEmailContacts
4028+ = lens _ndSellerEmailContacts
4029+ (\ s a -> s{_ndSellerEmailContacts = a})
4030+ . _Default
4031+ . _Coerce
4032+
4033+-- | Details of the buyer party in this negotiation.
4034+ndBuyer :: Lens' NegotiationDto (Maybe (Maybe DealPartyDto))
4035+ndBuyer = lens _ndBuyer (\ s a -> s{_ndBuyer = a})
4036+
4037+--
4038+-- /See:/ 'negotiationRoundDto' smart constructor.
4039+data NegotiationRoundDto = NegotiationRoundDto
4040+ { _nrdTerms :: !(Maybe (Maybe TermsDto))
4041+ , _nrdKind :: !Text
4042+ , _nrdOriginatorRole :: !(Maybe Text)
4043+ , _nrdAction :: !(Maybe Text)
4044+ , _nrdDbmPartnerId :: !(Maybe Int64)
4045+ , _nrdNotes :: !(Maybe Text)
4046+ , _nrdNegotiationId :: !(Maybe Int64)
4047+ , _nrdEditHistory :: !(Maybe (Maybe EditHistoryDto))
4048+ , _nrdRoundNumber :: !(Maybe Int64)
4049+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4050+
4051+-- | Creates a value of 'NegotiationRoundDto' with the minimum fields required to make a request.
4052+--
4053+-- Use one of the following lenses to modify other fields as desired:
4054+--
4055+-- * 'nrdTerms'
4056+--
4057+-- * 'nrdKind'
4058+--
4059+-- * 'nrdOriginatorRole'
4060+--
4061+-- * 'nrdAction'
4062+--
4063+-- * 'nrdDbmPartnerId'
4064+--
4065+-- * 'nrdNotes'
4066+--
4067+-- * 'nrdNegotiationId'
4068+--
4069+-- * 'nrdEditHistory'
4070+--
4071+-- * 'nrdRoundNumber'
4072+negotiationRoundDto
4073+ :: NegotiationRoundDto
4074+negotiationRoundDto =
4075+ NegotiationRoundDto
4076+ { _nrdTerms = Nothing
4077+ , _nrdKind = "adexchangebuyer#negotiationRound"
4078+ , _nrdOriginatorRole = Nothing
4079+ , _nrdAction = Nothing
4080+ , _nrdDbmPartnerId = Nothing
4081+ , _nrdNotes = Nothing
4082+ , _nrdNegotiationId = Nothing
4083+ , _nrdEditHistory = Nothing
4084+ , _nrdRoundNumber = Nothing
4085+ }
4086+
4087+-- | The detailed terms proposed in this negotiation round.
4088+nrdTerms :: Lens' NegotiationRoundDto (Maybe (Maybe TermsDto))
4089+nrdTerms = lens _nrdTerms (\ s a -> s{_nrdTerms = a})
4090+
4091+nrdKind :: Lens' NegotiationRoundDto Text
4092+nrdKind = lens _nrdKind (\ s a -> s{_nrdKind = a})
4093+
4094+-- | The role, either buyer or seller, initiating this negotiation round.
4095+nrdOriginatorRole :: Lens' NegotiationRoundDto (Maybe Text)
4096+nrdOriginatorRole
4097+ = lens _nrdOriginatorRole
4098+ (\ s a -> s{_nrdOriginatorRole = a})
4099+
4100+-- | The action performed by this negotiation round.
4101+nrdAction :: Lens' NegotiationRoundDto (Maybe Text)
4102+nrdAction
4103+ = lens _nrdAction (\ s a -> s{_nrdAction = a})
4104+
4105+-- | Stores DBM partner ID for use by DBM
4106+nrdDbmPartnerId :: Lens' NegotiationRoundDto (Maybe Int64)
4107+nrdDbmPartnerId
4108+ = lens _nrdDbmPartnerId
4109+ (\ s a -> s{_nrdDbmPartnerId = a})
4110+
4111+-- | Notes regarding this negotiation round.
4112+nrdNotes :: Lens' NegotiationRoundDto (Maybe Text)
4113+nrdNotes = lens _nrdNotes (\ s a -> s{_nrdNotes = a})
4114+
4115+-- | The ID of the negotiation to which this negotiation round applies.
4116+nrdNegotiationId :: Lens' NegotiationRoundDto (Maybe Int64)
4117+nrdNegotiationId
4118+ = lens _nrdNegotiationId
4119+ (\ s a -> s{_nrdNegotiationId = a})
4120+
4121+-- | The edit history of this negotiation round.
4122+nrdEditHistory :: Lens' NegotiationRoundDto (Maybe (Maybe EditHistoryDto))
4123+nrdEditHistory
4124+ = lens _nrdEditHistory
4125+ (\ s a -> s{_nrdEditHistory = a})
4126+
4127+-- | The number of this negotiation round, in sequence.
4128+nrdRoundNumber :: Lens' NegotiationRoundDto (Maybe Int64)
4129+nrdRoundNumber
4130+ = lens _nrdRoundNumber
4131+ (\ s a -> s{_nrdRoundNumber = a})
4132+
4133+--
4134+-- /See:/ 'offerDto' smart constructor.
4135+data OfferDto = OfferDto
4136+ { _odCreator :: !(Maybe (Maybe DealPartyDto))
4137+ , _odStatus :: !(Maybe Text)
4138+ , _odOfferState :: !(Maybe Text)
4139+ , _odPointOfContact :: !(Maybe Text)
4140+ , _odTerms :: !(Maybe (Maybe TermsDto))
4141+ , _odKind :: !Text
4142+ , _odBilledBuyer :: !(Maybe (Maybe DealPartyDto))
4143+ , _odOpenToDealParties :: !(Maybe [Maybe DealPartyDto])
4144+ , _odEmailContacts :: !(Maybe [Text])
4145+ , _odLabelNames :: !(Maybe [Text])
4146+ , _odOfferId :: !(Maybe Int64)
4147+ , _odClosedToDealParties :: !(Maybe [Maybe DealPartyDto])
4148+ , _odAnonymous :: !(Maybe Bool)
4149+ , _odIsOpen :: !(Maybe Bool)
4150+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4151+
4152+-- | Creates a value of 'OfferDto' with the minimum fields required to make a request.
4153+--
4154+-- Use one of the following lenses to modify other fields as desired:
4155+--
4156+-- * 'odCreator'
4157+--
4158+-- * 'odStatus'
4159+--
4160+-- * 'odOfferState'
4161+--
4162+-- * 'odPointOfContact'
4163+--
4164+-- * 'odTerms'
4165+--
4166+-- * 'odKind'
4167+--
4168+-- * 'odBilledBuyer'
4169+--
4170+-- * 'odOpenToDealParties'
4171+--
4172+-- * 'odEmailContacts'
4173+--
4174+-- * 'odLabelNames'
4175+--
4176+-- * 'odOfferId'
4177+--
4178+-- * 'odClosedToDealParties'
4179+--
4180+-- * 'odAnonymous'
4181+--
4182+-- * 'odIsOpen'
4183+offerDto
4184+ :: OfferDto
4185+offerDto =
4186+ OfferDto
4187+ { _odCreator = Nothing
4188+ , _odStatus = Nothing
4189+ , _odOfferState = Nothing
4190+ , _odPointOfContact = Nothing
4191+ , _odTerms = Nothing
4192+ , _odKind = "adexchangebuyer#offer"
4193+ , _odBilledBuyer = Nothing
4194+ , _odOpenToDealParties = Nothing
4195+ , _odEmailContacts = Nothing
4196+ , _odLabelNames = Nothing
4197+ , _odOfferId = Nothing
4198+ , _odClosedToDealParties = Nothing
4199+ , _odAnonymous = Nothing
4200+ , _odIsOpen = Nothing
4201+ }
4202+
4203+-- | The creator of this offer.
4204+odCreator :: Lens' OfferDto (Maybe (Maybe DealPartyDto))
4205+odCreator
4206+ = lens _odCreator (\ s a -> s{_odCreator = a})
4207+
4208+-- | The status of this offer.
4209+odStatus :: Lens' OfferDto (Maybe Text)
4210+odStatus = lens _odStatus (\ s a -> s{_odStatus = a})
4211+
4212+-- | The state of this offer.
4213+odOfferState :: Lens' OfferDto (Maybe Text)
4214+odOfferState
4215+ = lens _odOfferState (\ s a -> s{_odOfferState = a})
4216+
4217+-- | The point of contact for this offer.
4218+odPointOfContact :: Lens' OfferDto (Maybe Text)
4219+odPointOfContact
4220+ = lens _odPointOfContact
4221+ (\ s a -> s{_odPointOfContact = a})
4222+
4223+-- | The terms of this offer.
4224+odTerms :: Lens' OfferDto (Maybe (Maybe TermsDto))
4225+odTerms = lens _odTerms (\ s a -> s{_odTerms = a})
4226+
4227+odKind :: Lens' OfferDto Text
4228+odKind = lens _odKind (\ s a -> s{_odKind = a})
4229+
4230+-- | The billed buyer; For buyer initiated offers, buying through an
4231+-- intermediary.
4232+odBilledBuyer :: Lens' OfferDto (Maybe (Maybe DealPartyDto))
4233+odBilledBuyer
4234+ = lens _odBilledBuyer
4235+ (\ s a -> s{_odBilledBuyer = a})
4236+
4237+-- | The list of buyer or seller parties this offer is open to.
4238+odOpenToDealParties :: Lens' OfferDto [Maybe DealPartyDto]
4239+odOpenToDealParties
4240+ = lens _odOpenToDealParties
4241+ (\ s a -> s{_odOpenToDealParties = a})
4242+ . _Default
4243+ . _Coerce
4244+
4245+-- | The list of email contacts for this offer.
4246+odEmailContacts :: Lens' OfferDto [Text]
4247+odEmailContacts
4248+ = lens _odEmailContacts
4249+ (\ s a -> s{_odEmailContacts = a})
4250+ . _Default
4251+ . _Coerce
4252+
4253+-- | The list of label names applicable to this offer.
4254+odLabelNames :: Lens' OfferDto [Text]
4255+odLabelNames
4256+ = lens _odLabelNames (\ s a -> s{_odLabelNames = a})
4257+ . _Default
4258+ . _Coerce
4259+
4260+-- | The unique ID of this offer.
4261+odOfferId :: Lens' OfferDto (Maybe Int64)
4262+odOfferId
4263+ = lens _odOfferId (\ s a -> s{_odOfferId = a})
4264+
4265+-- | The list of buyer or seller parties this offer is closed to.
4266+odClosedToDealParties :: Lens' OfferDto [Maybe DealPartyDto]
4267+odClosedToDealParties
4268+ = lens _odClosedToDealParties
4269+ (\ s a -> s{_odClosedToDealParties = a})
4270+ . _Default
4271+ . _Coerce
4272+
4273+-- | Whether this offer is anonymous.
4274+odAnonymous :: Lens' OfferDto (Maybe Bool)
4275+odAnonymous
4276+ = lens _odAnonymous (\ s a -> s{_odAnonymous = a})
4277+
4278+-- | Whether this offer is open.
4279+odIsOpen :: Lens' OfferDto (Maybe Bool)
4280+odIsOpen = lens _odIsOpen (\ s a -> s{_odIsOpen = a})
4281+
4282+-- | The configuration data for an Ad Exchange performance report list.
4283+--
4284+-- /See:/ 'performanceReport' smart constructor.
4285+data PerformanceReport = PerformanceReport
4286+ { _prFilteredBidRate :: !(Maybe Double)
4287+ , _prKind :: !Text
4288+ , _prLatency95thPercentile :: !(Maybe Double)
4289+ , _prCookieMatcherStatusRate :: !(Maybe [Either Text Int64])
4290+ , _prHostedMatchStatusRate :: !(Maybe [Either Text Int64])
4291+ , _prUnsuccessfulRequestRate :: !(Maybe Double)
4292+ , _prBidRequestRate :: !(Maybe Double)
4293+ , _prQuotaThrottledLimit :: !(Maybe Double)
4294+ , _prQuotaConfiguredLimit :: !(Maybe Double)
4295+ , _prSuccessfulRequestRate :: !(Maybe Double)
4296+ , _prLatency85thPercentile :: !(Maybe Double)
4297+ , _prCalloutStatusRate :: !(Maybe [Either Text Int64])
4298+ , _prLatency50thPercentile :: !(Maybe Double)
4299+ , _prBidRate :: !(Maybe Double)
4300+ , _prCreativeStatusRate :: !(Maybe [Either Text Int64])
4301+ , _prNoQuotaInRegion :: !(Maybe Double)
4302+ , _prRegion :: !(Maybe Text)
4303+ , _prInventoryMatchRate :: !(Maybe Double)
4304+ , _prPixelMatchResponses :: !(Maybe Double)
4305+ , _prTimestamp :: !(Maybe Int64)
4306+ , _prPixelMatchRequests :: !(Maybe Double)
4307+ , _prOutOfQuota :: !(Maybe Double)
4308+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4309+
4310+-- | Creates a value of 'PerformanceReport' with the minimum fields required to make a request.
4311+--
4312+-- Use one of the following lenses to modify other fields as desired:
4313+--
4314+-- * 'prFilteredBidRate'
4315+--
4316+-- * 'prKind'
4317+--
4318+-- * 'prLatency95thPercentile'
4319+--
4320+-- * 'prCookieMatcherStatusRate'
4321+--
4322+-- * 'prHostedMatchStatusRate'
4323+--
4324+-- * 'prUnsuccessfulRequestRate'
4325+--
4326+-- * 'prBidRequestRate'
4327+--
4328+-- * 'prQuotaThrottledLimit'
4329+--
4330+-- * 'prQuotaConfiguredLimit'
4331+--
4332+-- * 'prSuccessfulRequestRate'
4333+--
4334+-- * 'prLatency85thPercentile'
4335+--
4336+-- * 'prCalloutStatusRate'
4337+--
4338+-- * 'prLatency50thPercentile'
4339+--
4340+-- * 'prBidRate'
4341+--
4342+-- * 'prCreativeStatusRate'
4343+--
4344+-- * 'prNoQuotaInRegion'
4345+--
4346+-- * 'prRegion'
4347+--
4348+-- * 'prInventoryMatchRate'
4349+--
4350+-- * 'prPixelMatchResponses'
4351+--
4352+-- * 'prTimestamp'
4353+--
4354+-- * 'prPixelMatchRequests'
4355+--
4356+-- * 'prOutOfQuota'
4357+performanceReport
4358+ :: PerformanceReport
4359+performanceReport =
4360+ PerformanceReport
4361+ { _prFilteredBidRate = Nothing
4362+ , _prKind = "adexchangebuyer#performanceReport"
4363+ , _prLatency95thPercentile = Nothing
4364+ , _prCookieMatcherStatusRate = Nothing
4365+ , _prHostedMatchStatusRate = Nothing
4366+ , _prUnsuccessfulRequestRate = Nothing
4367+ , _prBidRequestRate = Nothing
4368+ , _prQuotaThrottledLimit = Nothing
4369+ , _prQuotaConfiguredLimit = Nothing
4370+ , _prSuccessfulRequestRate = Nothing
4371+ , _prLatency85thPercentile = Nothing
4372+ , _prCalloutStatusRate = Nothing
4373+ , _prLatency50thPercentile = Nothing
4374+ , _prBidRate = Nothing
4375+ , _prCreativeStatusRate = Nothing
4376+ , _prNoQuotaInRegion = Nothing
4377+ , _prRegion = Nothing
4378+ , _prInventoryMatchRate = Nothing
4379+ , _prPixelMatchResponses = Nothing
4380+ , _prTimestamp = Nothing
4381+ , _prPixelMatchRequests = Nothing
4382+ , _prOutOfQuota = Nothing
4383+ }
4384+
4385+-- | The number of bid responses that were filtered due to a policy violation
4386+-- or other errors.
4387+prFilteredBidRate :: Lens' PerformanceReport (Maybe Double)
4388+prFilteredBidRate
4389+ = lens _prFilteredBidRate
4390+ (\ s a -> s{_prFilteredBidRate = a})
4391+
4392+-- | Resource type.
4393+prKind :: Lens' PerformanceReport Text
4394+prKind = lens _prKind (\ s a -> s{_prKind = a})
4395+
4396+-- | The 95th percentile round trip latency(ms) as perceived from Google
4397+-- servers for the duration period covered by the report.
4398+prLatency95thPercentile :: Lens' PerformanceReport (Maybe Double)
4399+prLatency95thPercentile
4400+ = lens _prLatency95thPercentile
4401+ (\ s a -> s{_prLatency95thPercentile = a})
4402+
4403+-- | Average QPS for cookie matcher operations.
4404+prCookieMatcherStatusRate :: Lens' PerformanceReport [Either Text Int64]
4405+prCookieMatcherStatusRate
4406+ = lens _prCookieMatcherStatusRate
4407+ (\ s a -> s{_prCookieMatcherStatusRate = a})
4408+ . _Default
4409+ . _Coerce
4410+
4411+-- | Average QPS for hosted match operations.
4412+prHostedMatchStatusRate :: Lens' PerformanceReport [Either Text Int64]
4413+prHostedMatchStatusRate
4414+ = lens _prHostedMatchStatusRate
4415+ (\ s a -> s{_prHostedMatchStatusRate = a})
4416+ . _Default
4417+ . _Coerce
4418+
4419+-- | The number of bid responses that were unsuccessful due to timeouts,
4420+-- incorrect formatting, etc.
4421+prUnsuccessfulRequestRate :: Lens' PerformanceReport (Maybe Double)
4422+prUnsuccessfulRequestRate
4423+ = lens _prUnsuccessfulRequestRate
4424+ (\ s a -> s{_prUnsuccessfulRequestRate = a})
4425+
4426+-- | The number of bid requests sent to your bidder.
4427+prBidRequestRate :: Lens' PerformanceReport (Maybe Double)
4428+prBidRequestRate
4429+ = lens _prBidRequestRate
4430+ (\ s a -> s{_prBidRequestRate = a})
4431+
4432+-- | The throttled quota limits for this account.
4433+prQuotaThrottledLimit :: Lens' PerformanceReport (Maybe Double)
4434+prQuotaThrottledLimit
4435+ = lens _prQuotaThrottledLimit
4436+ (\ s a -> s{_prQuotaThrottledLimit = a})
4437+
4438+-- | The configured quota limits for this account.
4439+prQuotaConfiguredLimit :: Lens' PerformanceReport (Maybe Double)
4440+prQuotaConfiguredLimit
4441+ = lens _prQuotaConfiguredLimit
4442+ (\ s a -> s{_prQuotaConfiguredLimit = a})
4443+
4444+-- | The number of properly formed bid responses received by our servers
4445+-- within the deadline.
4446+prSuccessfulRequestRate :: Lens' PerformanceReport (Maybe Double)
4447+prSuccessfulRequestRate
4448+ = lens _prSuccessfulRequestRate
4449+ (\ s a -> s{_prSuccessfulRequestRate = a})
4450+
4451+-- | The 85th percentile round trip latency(ms) as perceived from Google
4452+-- servers for the duration period covered by the report.
4453+prLatency85thPercentile :: Lens' PerformanceReport (Maybe Double)
4454+prLatency85thPercentile
4455+ = lens _prLatency85thPercentile
4456+ (\ s a -> s{_prLatency85thPercentile = a})
4457+
4458+-- | Rate of various prefiltering statuses per match. Please refer to the
4459+-- callout-status-codes.txt file for different statuses.
4460+prCalloutStatusRate :: Lens' PerformanceReport [Either Text Int64]
4461+prCalloutStatusRate
4462+ = lens _prCalloutStatusRate
4463+ (\ s a -> s{_prCalloutStatusRate = a})
4464+ . _Default
4465+ . _Coerce
4466+
4467+-- | The 50th percentile round trip latency(ms) as perceived from Google
4468+-- servers for the duration period covered by the report.
4469+prLatency50thPercentile :: Lens' PerformanceReport (Maybe Double)
4470+prLatency50thPercentile
4471+ = lens _prLatency50thPercentile
4472+ (\ s a -> s{_prLatency50thPercentile = a})
4473+
4474+-- | The number of bid responses with an ad.
4475+prBidRate :: Lens' PerformanceReport (Maybe Double)
4476+prBidRate
4477+ = lens _prBidRate (\ s a -> s{_prBidRate = a})
4478+
4479+-- | Rate of ads with a given status. Please refer to the
4480+-- creative-status-codes.txt file for different statuses.
4481+prCreativeStatusRate :: Lens' PerformanceReport [Either Text Int64]
4482+prCreativeStatusRate
4483+ = lens _prCreativeStatusRate
4484+ (\ s a -> s{_prCreativeStatusRate = a})
4485+ . _Default
4486+ . _Coerce
4487+
4488+-- | Rate of various quota account statuses per quota check.
4489+prNoQuotaInRegion :: Lens' PerformanceReport (Maybe Double)
4490+prNoQuotaInRegion
4491+ = lens _prNoQuotaInRegion
4492+ (\ s a -> s{_prNoQuotaInRegion = a})
4493+
4494+-- | The trading location of this data.
4495+prRegion :: Lens' PerformanceReport (Maybe Text)
4496+prRegion = lens _prRegion (\ s a -> s{_prRegion = a})
4497+
4498+-- | The number of potential queries based on your pretargeting settings.
4499+prInventoryMatchRate :: Lens' PerformanceReport (Maybe Double)
4500+prInventoryMatchRate
4501+ = lens _prInventoryMatchRate
4502+ (\ s a -> s{_prInventoryMatchRate = a})
4503+
4504+-- | Average QPS for pixel match responses from clients.
4505+prPixelMatchResponses :: Lens' PerformanceReport (Maybe Double)
4506+prPixelMatchResponses
4507+ = lens _prPixelMatchResponses
4508+ (\ s a -> s{_prPixelMatchResponses = a})
4509+
4510+-- | The unix timestamp of the starting time of this performance data.
4511+prTimestamp :: Lens' PerformanceReport (Maybe Int64)
4512+prTimestamp
4513+ = lens _prTimestamp (\ s a -> s{_prTimestamp = a})
4514+
4515+-- | Average QPS for pixel match requests from clients.
4516+prPixelMatchRequests :: Lens' PerformanceReport (Maybe Double)
4517+prPixelMatchRequests
4518+ = lens _prPixelMatchRequests
4519+ (\ s a -> s{_prPixelMatchRequests = a})
4520+
4521+-- | Rate of various quota account statuses per quota check.
4522+prOutOfQuota :: Lens' PerformanceReport (Maybe Double)
4523+prOutOfQuota
4524+ = lens _prOutOfQuota (\ s a -> s{_prOutOfQuota = a})
4525+
4526+-- | The configuration data for an Ad Exchange performance report list.
4527+-- https:\/\/sites.google.com\/a\/google.com\/adx-integration\/Home\/engineering\/binary-releases\/rtb-api-release
4528+-- https:\/\/cs.corp.google.com\/#piper\/\/\/depot\/google3\/contentads\/adx\/tools\/rtb_api\/adxrtb.py
4529+--
4530+-- /See:/ 'performanceReportList' smart constructor.
4531+data PerformanceReportList = PerformanceReportList
4532+ { _prlKind :: !Text
4533+ , _prlPerformanceReport :: !(Maybe [Maybe PerformanceReport])
4534+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4535+
4536+-- | Creates a value of 'PerformanceReportList' with the minimum fields required to make a request.
4537+--
4538+-- Use one of the following lenses to modify other fields as desired:
4539+--
4540+-- * 'prlKind'
4541+--
4542+-- * 'prlPerformanceReport'
4543+performanceReportList
4544+ :: PerformanceReportList
4545+performanceReportList =
4546+ PerformanceReportList
4547+ { _prlKind = "adexchangebuyer#performanceReportList"
4548+ , _prlPerformanceReport = Nothing
4549+ }
4550+
4551+-- | Resource type.
4552+prlKind :: Lens' PerformanceReportList Text
4553+prlKind = lens _prlKind (\ s a -> s{_prlKind = a})
4554+
4555+-- | A list of performance reports relevant for the account.
4556+prlPerformanceReport :: Lens' PerformanceReportList [Maybe PerformanceReport]
4557+prlPerformanceReport
4558+ = lens _prlPerformanceReport
4559+ (\ s a -> s{_prlPerformanceReport = a})
4560+ . _Default
4561+ . _Coerce
4562+
4563+--
4564+-- /See:/ 'pretargetingConfig' smart constructor.
4565+data PretargetingConfig = PretargetingConfig
4566+ { _pcPlatforms :: !(Maybe [Text])
4567+ , _pcMobileCarriers :: !(Maybe [Int64])
4568+ , _pcVendorTypes :: !(Maybe [Int64])
4569+ , _pcExcludedGeoCriteriaIds :: !(Maybe [Int64])
4570+ , _pcSupportedCreativeAttributes :: !(Maybe [Int64])
4571+ , _pcUserLists :: !(Maybe [Int64])
4572+ , _pcKind :: !Text
4573+ , _pcExcludedPlacements :: !(Maybe [PretargetingConfigItemExcludedPlacements])
4574+ , _pcMobileDevices :: !(Maybe [Int64])
4575+ , _pcLanguages :: !(Maybe [Text])
4576+ , _pcVerticals :: !(Maybe [Int64])
4577+ , _pcConfigId :: !(Maybe Int64)
4578+ , _pcPlacements :: !(Maybe [PretargetingConfigItemPlacements])
4579+ , _pcExcludedUserLists :: !(Maybe [Int64])
4580+ , _pcConfigName :: !(Maybe Text)
4581+ , _pcGeoCriteriaIds :: !(Maybe [Int64])
4582+ , _pcDimensions :: !(Maybe [PretargetingConfigItemDimensions])
4583+ , _pcExcludedVerticals :: !(Maybe [Int64])
4584+ , _pcCreativeType :: !(Maybe [Text])
4585+ , _pcIsActive :: !(Maybe Bool)
4586+ , _pcExcludedContentLabels :: !(Maybe [Int64])
4587+ , _pcBillingId :: !(Maybe Int64)
4588+ , _pcMobileOperatingSystemVersions :: !(Maybe [Int64])
4589+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4590+
4591+-- | Creates a value of 'PretargetingConfig' with the minimum fields required to make a request.
4592+--
4593+-- Use one of the following lenses to modify other fields as desired:
4594+--
4595+-- * 'pcPlatforms'
4596+--
4597+-- * 'pcMobileCarriers'
4598+--
4599+-- * 'pcVendorTypes'
4600+--
4601+-- * 'pcExcludedGeoCriteriaIds'
4602+--
4603+-- * 'pcSupportedCreativeAttributes'
4604+--
4605+-- * 'pcUserLists'
4606+--
4607+-- * 'pcKind'
4608+--
4609+-- * 'pcExcludedPlacements'
4610+--
4611+-- * 'pcMobileDevices'
4612+--
4613+-- * 'pcLanguages'
4614+--
4615+-- * 'pcVerticals'
4616+--
4617+-- * 'pcConfigId'
4618+--
4619+-- * 'pcPlacements'
4620+--
4621+-- * 'pcExcludedUserLists'
4622+--
4623+-- * 'pcConfigName'
4624+--
4625+-- * 'pcGeoCriteriaIds'
4626+--
4627+-- * 'pcDimensions'
4628+--
4629+-- * 'pcExcludedVerticals'
4630+--
4631+-- * 'pcCreativeType'
4632+--
4633+-- * 'pcIsActive'
4634+--
4635+-- * 'pcExcludedContentLabels'
4636+--
4637+-- * 'pcBillingId'
4638+--
4639+-- * 'pcMobileOperatingSystemVersions'
4640+pretargetingConfig
4641+ :: PretargetingConfig
4642+pretargetingConfig =
4643+ PretargetingConfig
4644+ { _pcPlatforms = Nothing
4645+ , _pcMobileCarriers = Nothing
4646+ , _pcVendorTypes = Nothing
4647+ , _pcExcludedGeoCriteriaIds = Nothing
4648+ , _pcSupportedCreativeAttributes = Nothing
4649+ , _pcUserLists = Nothing
4650+ , _pcKind = "adexchangebuyer#pretargetingConfig"
4651+ , _pcExcludedPlacements = Nothing
4652+ , _pcMobileDevices = Nothing
4653+ , _pcLanguages = Nothing
4654+ , _pcVerticals = Nothing
4655+ , _pcConfigId = Nothing
4656+ , _pcPlacements = Nothing
4657+ , _pcExcludedUserLists = Nothing
4658+ , _pcConfigName = Nothing
4659+ , _pcGeoCriteriaIds = Nothing
4660+ , _pcDimensions = Nothing
4661+ , _pcExcludedVerticals = Nothing
4662+ , _pcCreativeType = Nothing
4663+ , _pcIsActive = Nothing
4664+ , _pcExcludedContentLabels = Nothing
4665+ , _pcBillingId = Nothing
4666+ , _pcMobileOperatingSystemVersions = Nothing
4667+ }
4668+
4669+-- | Requests matching any of these platforms will match. Possible values are
4670+-- PRETARGETING_PLATFORM_MOBILE, PRETARGETING_PLATFORM_DESKTOP, and
4671+-- PRETARGETING_PLATFORM_TABLET.
4672+pcPlatforms :: Lens' PretargetingConfig [Text]
4673+pcPlatforms
4674+ = lens _pcPlatforms (\ s a -> s{_pcPlatforms = a}) .
4675+ _Default
4676+ . _Coerce
4677+
4678+-- | Requests containing any of these mobile carrier ids will match. Values
4679+-- are from mobile-carriers.csv in the downloadable files section.
4680+pcMobileCarriers :: Lens' PretargetingConfig [Int64]
4681+pcMobileCarriers
4682+ = lens _pcMobileCarriers
4683+ (\ s a -> s{_pcMobileCarriers = a})
4684+ . _Default
4685+ . _Coerce
4686+
4687+-- | Requests that allow any of these vendor ids will match. Values are from
4688+-- vendors.txt in the downloadable files section.
4689+pcVendorTypes :: Lens' PretargetingConfig [Int64]
4690+pcVendorTypes
4691+ = lens _pcVendorTypes
4692+ (\ s a -> s{_pcVendorTypes = a})
4693+ . _Default
4694+ . _Coerce
4695+
4696+-- | Requests containing any of these geo criteria ids will not match.
4697+pcExcludedGeoCriteriaIds :: Lens' PretargetingConfig [Int64]
4698+pcExcludedGeoCriteriaIds
4699+ = lens _pcExcludedGeoCriteriaIds
4700+ (\ s a -> s{_pcExcludedGeoCriteriaIds = a})
4701+ . _Default
4702+ . _Coerce
4703+
4704+-- | Creative attributes should be declared here if all creatives
4705+-- corresponding to this pretargeting configuration have that creative
4706+-- attribute. Values are from pretargetable-creative-attributes.txt in the
4707+-- downloadable files section.
4708+pcSupportedCreativeAttributes :: Lens' PretargetingConfig [Int64]
4709+pcSupportedCreativeAttributes
4710+ = lens _pcSupportedCreativeAttributes
4711+ (\ s a -> s{_pcSupportedCreativeAttributes = a})
4712+ . _Default
4713+ . _Coerce
4714+
4715+-- | Requests containing any of these user list ids will match.
4716+pcUserLists :: Lens' PretargetingConfig [Int64]
4717+pcUserLists
4718+ = lens _pcUserLists (\ s a -> s{_pcUserLists = a}) .
4719+ _Default
4720+ . _Coerce
4721+
4722+-- | The kind of the resource, i.e. \"adexchangebuyer#pretargetingConfig\".
4723+pcKind :: Lens' PretargetingConfig Text
4724+pcKind = lens _pcKind (\ s a -> s{_pcKind = a})
4725+
4726+-- | Requests containing any of these placements will not match.
4727+pcExcludedPlacements :: Lens' PretargetingConfig [PretargetingConfigItemExcludedPlacements]
4728+pcExcludedPlacements
4729+ = lens _pcExcludedPlacements
4730+ (\ s a -> s{_pcExcludedPlacements = a})
4731+ . _Default
4732+ . _Coerce
4733+
4734+-- | Requests containing any of these mobile device ids will match. Values
4735+-- are from mobile-devices.csv in the downloadable files section.
4736+pcMobileDevices :: Lens' PretargetingConfig [Int64]
4737+pcMobileDevices
4738+ = lens _pcMobileDevices
4739+ (\ s a -> s{_pcMobileDevices = a})
4740+ . _Default
4741+ . _Coerce
4742+
4743+-- | Request containing any of these language codes will match.
4744+pcLanguages :: Lens' PretargetingConfig [Text]
4745+pcLanguages
4746+ = lens _pcLanguages (\ s a -> s{_pcLanguages = a}) .
4747+ _Default
4748+ . _Coerce
4749+
4750+-- | Requests containing any of these vertical ids will match.
4751+pcVerticals :: Lens' PretargetingConfig [Int64]
4752+pcVerticals
4753+ = lens _pcVerticals (\ s a -> s{_pcVerticals = a}) .
4754+ _Default
4755+ . _Coerce
4756+
4757+-- | The config id; generated automatically. Leave this field blank for
4758+-- insert requests.
4759+pcConfigId :: Lens' PretargetingConfig (Maybe Int64)
4760+pcConfigId
4761+ = lens _pcConfigId (\ s a -> s{_pcConfigId = a})
4762+
4763+-- | Requests containing any of these placements will match.
4764+pcPlacements :: Lens' PretargetingConfig [PretargetingConfigItemPlacements]
4765+pcPlacements
4766+ = lens _pcPlacements (\ s a -> s{_pcPlacements = a})
4767+ . _Default
4768+ . _Coerce
4769+
4770+-- | Requests containing any of these users list ids will not match.
4771+pcExcludedUserLists :: Lens' PretargetingConfig [Int64]
4772+pcExcludedUserLists
4773+ = lens _pcExcludedUserLists
4774+ (\ s a -> s{_pcExcludedUserLists = a})
4775+ . _Default
4776+ . _Coerce
4777+
4778+-- | The name of the config. Must be unique. Required for all requests.
4779+pcConfigName :: Lens' PretargetingConfig (Maybe Text)
4780+pcConfigName
4781+ = lens _pcConfigName (\ s a -> s{_pcConfigName = a})
4782+
4783+-- | Requests containing any of these geo criteria ids will match.
4784+pcGeoCriteriaIds :: Lens' PretargetingConfig [Int64]
4785+pcGeoCriteriaIds
4786+ = lens _pcGeoCriteriaIds
4787+ (\ s a -> s{_pcGeoCriteriaIds = a})
4788+ . _Default
4789+ . _Coerce
4790+
4791+-- | Requests which allow one of these (width, height) pairs will match. All
4792+-- pairs must be supported ad dimensions.
4793+pcDimensions :: Lens' PretargetingConfig [PretargetingConfigItemDimensions]
4794+pcDimensions
4795+ = lens _pcDimensions (\ s a -> s{_pcDimensions = a})
4796+ . _Default
4797+ . _Coerce
4798+
4799+-- | Requests containing any of these vertical ids will not match. Values are
4800+-- from the publisher-verticals.txt file in the downloadable files section.
4801+pcExcludedVerticals :: Lens' PretargetingConfig [Int64]
4802+pcExcludedVerticals
4803+ = lens _pcExcludedVerticals
4804+ (\ s a -> s{_pcExcludedVerticals = a})
4805+ . _Default
4806+ . _Coerce
4807+
4808+-- | List must contain exactly one of PRETARGETING_CREATIVE_TYPE_HTML or
4809+-- PRETARGETING_CREATIVE_TYPE_VIDEO.
4810+pcCreativeType :: Lens' PretargetingConfig [Text]
4811+pcCreativeType
4812+ = lens _pcCreativeType
4813+ (\ s a -> s{_pcCreativeType = a})
4814+ . _Default
4815+ . _Coerce
4816+
4817+-- | Whether this config is active. Required for all requests.
4818+pcIsActive :: Lens' PretargetingConfig (Maybe Bool)
4819+pcIsActive
4820+ = lens _pcIsActive (\ s a -> s{_pcIsActive = a})
4821+
4822+-- | Requests with any of these content labels will not match. Values are
4823+-- from content-labels.txt in the downloadable files section.
4824+pcExcludedContentLabels :: Lens' PretargetingConfig [Int64]
4825+pcExcludedContentLabels
4826+ = lens _pcExcludedContentLabels
4827+ (\ s a -> s{_pcExcludedContentLabels = a})
4828+ . _Default
4829+ . _Coerce
4830+
4831+-- | The id for billing purposes, provided for reference. Leave this field
4832+-- blank for insert requests; the id will be generated automatically.
4833+pcBillingId :: Lens' PretargetingConfig (Maybe Int64)
4834+pcBillingId
4835+ = lens _pcBillingId (\ s a -> s{_pcBillingId = a})
4836+
4837+-- | Requests containing any of these mobile operating system version ids
4838+-- will match. Values are from mobile-os.csv in the downloadable files
4839+-- section.
4840+pcMobileOperatingSystemVersions :: Lens' PretargetingConfig [Int64]
4841+pcMobileOperatingSystemVersions
4842+ = lens _pcMobileOperatingSystemVersions
4843+ (\ s a -> s{_pcMobileOperatingSystemVersions = a})
4844+ . _Default
4845+ . _Coerce
4846+
4847+--
4848+-- /See:/ 'pretargetingConfigItemDimensions' smart constructor.
4849+data PretargetingConfigItemDimensions = PretargetingConfigItemDimensions
4850+ { _pcidHeight :: !(Maybe Int64)
4851+ , _pcidWidth :: !(Maybe Int64)
4852+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4853+
4854+-- | Creates a value of 'PretargetingConfigItemDimensions' with the minimum fields required to make a request.
4855+--
4856+-- Use one of the following lenses to modify other fields as desired:
4857+--
4858+-- * 'pcidHeight'
4859+--
4860+-- * 'pcidWidth'
4861+pretargetingConfigItemDimensions
4862+ :: PretargetingConfigItemDimensions
4863+pretargetingConfigItemDimensions =
4864+ PretargetingConfigItemDimensions
4865+ { _pcidHeight = Nothing
4866+ , _pcidWidth = Nothing
4867+ }
4868+
4869+-- | Height in pixels.
4870+pcidHeight :: Lens' PretargetingConfigItemDimensions (Maybe Int64)
4871+pcidHeight
4872+ = lens _pcidHeight (\ s a -> s{_pcidHeight = a})
4873+
4874+-- | Width in pixels.
4875+pcidWidth :: Lens' PretargetingConfigItemDimensions (Maybe Int64)
4876+pcidWidth
4877+ = lens _pcidWidth (\ s a -> s{_pcidWidth = a})
4878+
4879+--
4880+-- /See:/ 'pretargetingConfigItemExcludedPlacements' smart constructor.
4881+data PretargetingConfigItemExcludedPlacements = PretargetingConfigItemExcludedPlacements
4882+ { _pciepToken :: !(Maybe Text)
4883+ , _pciepType :: !(Maybe Text)
4884+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4885+
4886+-- | Creates a value of 'PretargetingConfigItemExcludedPlacements' with the minimum fields required to make a request.
4887+--
4888+-- Use one of the following lenses to modify other fields as desired:
4889+--
4890+-- * 'pciepToken'
4891+--
4892+-- * 'pciepType'
4893+pretargetingConfigItemExcludedPlacements
4894+ :: PretargetingConfigItemExcludedPlacements
4895+pretargetingConfigItemExcludedPlacements =
4896+ PretargetingConfigItemExcludedPlacements
4897+ { _pciepToken = Nothing
4898+ , _pciepType = Nothing
4899+ }
4900+
4901+-- | The value of the placement. Interpretation depends on the placement
4902+-- type, e.g. URL for a site placement, channel name for a channel
4903+-- placement, app id for a mobile app placement.
4904+pciepToken :: Lens' PretargetingConfigItemExcludedPlacements (Maybe Text)
4905+pciepToken
4906+ = lens _pciepToken (\ s a -> s{_pciepToken = a})
4907+
4908+-- | The type of the placement.
4909+pciepType :: Lens' PretargetingConfigItemExcludedPlacements (Maybe Text)
4910+pciepType
4911+ = lens _pciepType (\ s a -> s{_pciepType = a})
4912+
4913+--
4914+-- /See:/ 'pretargetingConfigItemPlacements' smart constructor.
4915+data PretargetingConfigItemPlacements = PretargetingConfigItemPlacements
4916+ { _pcipToken :: !(Maybe Text)
4917+ , _pcipType :: !(Maybe Text)
4918+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4919+
4920+-- | Creates a value of 'PretargetingConfigItemPlacements' with the minimum fields required to make a request.
4921+--
4922+-- Use one of the following lenses to modify other fields as desired:
4923+--
4924+-- * 'pcipToken'
4925+--
4926+-- * 'pcipType'
4927+pretargetingConfigItemPlacements
4928+ :: PretargetingConfigItemPlacements
4929+pretargetingConfigItemPlacements =
4930+ PretargetingConfigItemPlacements
4931+ { _pcipToken = Nothing
4932+ , _pcipType = Nothing
4933+ }
4934+
4935+-- | The value of the placement. Interpretation depends on the placement
4936+-- type, e.g. URL for a site placement, channel name for a channel
4937+-- placement, app id for a mobile app placement.
4938+pcipToken :: Lens' PretargetingConfigItemPlacements (Maybe Text)
4939+pcipToken
4940+ = lens _pcipToken (\ s a -> s{_pcipToken = a})
4941+
4942+-- | The type of the placement.
4943+pcipType :: Lens' PretargetingConfigItemPlacements (Maybe Text)
4944+pcipType = lens _pcipType (\ s a -> s{_pcipType = a})
4945+
4946+--
4947+-- /See:/ 'pretargetingConfigList' smart constructor.
4948+data PretargetingConfigList = PretargetingConfigList
4949+ { _pclKind :: !Text
4950+ , _pclItems :: !(Maybe [Maybe PretargetingConfig])
4951+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4952+
4953+-- | Creates a value of 'PretargetingConfigList' with the minimum fields required to make a request.
4954+--
4955+-- Use one of the following lenses to modify other fields as desired:
4956+--
4957+-- * 'pclKind'
4958+--
4959+-- * 'pclItems'
4960+pretargetingConfigList
4961+ :: PretargetingConfigList
4962+pretargetingConfigList =
4963+ PretargetingConfigList
4964+ { _pclKind = "adexchangebuyer#pretargetingConfigList"
4965+ , _pclItems = Nothing
4966+ }
4967+
4968+-- | Resource type.
4969+pclKind :: Lens' PretargetingConfigList Text
4970+pclKind = lens _pclKind (\ s a -> s{_pclKind = a})
4971+
4972+-- | A list of pretargeting configs
4973+pclItems :: Lens' PretargetingConfigList [Maybe PretargetingConfig]
4974+pclItems
4975+ = lens _pclItems (\ s a -> s{_pclItems = a}) .
4976+ _Default
4977+ . _Coerce
4978+
4979+--
4980+-- /See:/ 'price' smart constructor.
4981+data Price = Price
4982+ { _pCurrencyCode :: !(Maybe Text)
4983+ , _pAmountMicros :: !(Maybe Double)
4984+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
4985+
4986+-- | Creates a value of 'Price' with the minimum fields required to make a request.
4987+--
4988+-- Use one of the following lenses to modify other fields as desired:
4989+--
4990+-- * 'pCurrencyCode'
4991+--
4992+-- * 'pAmountMicros'
4993+price
4994+ :: Price
4995+price =
4996+ Price
4997+ { _pCurrencyCode = Nothing
4998+ , _pAmountMicros = Nothing
4999+ }
5000+
5001+-- | The currency code for the price.
5002+pCurrencyCode :: Lens' Price (Maybe Text)
5003+pCurrencyCode
5004+ = lens _pCurrencyCode
5005+ (\ s a -> s{_pCurrencyCode = a})
5006+
5007+-- | The CPM value in micros.
5008+pAmountMicros :: Lens' Price (Maybe Double)
5009+pAmountMicros
5010+ = lens _pAmountMicros
5011+ (\ s a -> s{_pAmountMicros = a})
5012+
5013+-- | Used to specify pricing rules for buyers\/advertisers. Each
5014+-- PricePerBuyer in an offer can become [0,1] deals. To check if there is a
5015+-- PricePerBuyer for a particular buyer or buyer\/advertiser pair, we look
5016+-- for the most specific matching rule - we first look for a rule matching
5017+-- the buyer and advertiser, next a rule with the buyer but an empty
5018+-- advertiser list, and otherwise look for a matching rule where no buyer
5019+-- is set.
5020+--
5021+-- /See:/ 'pricePerBuyer' smart constructor.
5022+data PricePerBuyer = PricePerBuyer
5023+ { _ppbPrice :: !(Maybe (Maybe Price))
5024+ , _ppbBuyer :: !(Maybe (Maybe Buyer))
5025+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5026+
5027+-- | Creates a value of 'PricePerBuyer' with the minimum fields required to make a request.
5028+--
5029+-- Use one of the following lenses to modify other fields as desired:
5030+--
5031+-- * 'ppbPrice'
5032+--
5033+-- * 'ppbBuyer'
5034+pricePerBuyer
5035+ :: PricePerBuyer
5036+pricePerBuyer =
5037+ PricePerBuyer
5038+ { _ppbPrice = Nothing
5039+ , _ppbBuyer = Nothing
5040+ }
5041+
5042+-- | The specified price
5043+ppbPrice :: Lens' PricePerBuyer (Maybe (Maybe Price))
5044+ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a})
5045+
5046+-- | The buyer who will pay this price. If unset, all buyers can pay this
5047+-- price (if the advertisers match, and there\'s no more specific rule
5048+-- matching the buyer).
5049+ppbBuyer :: Lens' PricePerBuyer (Maybe (Maybe Buyer))
5050+ppbBuyer = lens _ppbBuyer (\ s a -> s{_ppbBuyer = a})
5051+
5052+--
5053+-- /See:/ 'privateData' smart constructor.
5054+data PrivateData = PrivateData
5055+ { _pdReferencePayload :: !(Maybe Word8)
5056+ , _pdReferenceId :: !(Maybe Text)
5057+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5058+
5059+-- | Creates a value of 'PrivateData' with the minimum fields required to make a request.
5060+--
5061+-- Use one of the following lenses to modify other fields as desired:
5062+--
5063+-- * 'pdReferencePayload'
5064+--
5065+-- * 'pdReferenceId'
5066+privateData
5067+ :: PrivateData
5068+privateData =
5069+ PrivateData
5070+ { _pdReferencePayload = Nothing
5071+ , _pdReferenceId = Nothing
5072+ }
5073+
5074+pdReferencePayload :: Lens' PrivateData (Maybe Word8)
5075+pdReferencePayload
5076+ = lens _pdReferencePayload
5077+ (\ s a -> s{_pdReferencePayload = a})
5078+
5079+pdReferenceId :: Lens' PrivateData (Maybe Text)
5080+pdReferenceId
5081+ = lens _pdReferenceId
5082+ (\ s a -> s{_pdReferenceId = a})
5083+
5084+--
5085+-- /See:/ 'ruleKeyValuePair' smart constructor.
5086+data RuleKeyValuePair = RuleKeyValuePair
5087+ { _rkvpKeyName :: !(Maybe Text)
5088+ , _rkvpValue :: !(Maybe Text)
5089+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5090+
5091+-- | Creates a value of 'RuleKeyValuePair' with the minimum fields required to make a request.
5092+--
5093+-- Use one of the following lenses to modify other fields as desired:
5094+--
5095+-- * 'rkvpKeyName'
5096+--
5097+-- * 'rkvpValue'
5098+ruleKeyValuePair
5099+ :: RuleKeyValuePair
5100+ruleKeyValuePair =
5101+ RuleKeyValuePair
5102+ { _rkvpKeyName = Nothing
5103+ , _rkvpValue = Nothing
5104+ }
5105+
5106+rkvpKeyName :: Lens' RuleKeyValuePair (Maybe Text)
5107+rkvpKeyName
5108+ = lens _rkvpKeyName (\ s a -> s{_rkvpKeyName = a})
5109+
5110+rkvpValue :: Lens' RuleKeyValuePair (Maybe Text)
5111+rkvpValue
5112+ = lens _rkvpValue (\ s a -> s{_rkvpValue = a})
5113+
5114+--
5115+-- /See:/ 'seller' smart constructor.
5116+data Seller = Seller
5117+ { _sAccountId :: !(Maybe Text)
5118+ , _sSubAccountId :: !(Maybe Text)
5119+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5120+
5121+-- | Creates a value of 'Seller' with the minimum fields required to make a request.
5122+--
5123+-- Use one of the following lenses to modify other fields as desired:
5124+--
5125+-- * 'sAccountId'
5126+--
5127+-- * 'sSubAccountId'
5128+seller
5129+ :: Seller
5130+seller =
5131+ Seller
5132+ { _sAccountId = Nothing
5133+ , _sSubAccountId = Nothing
5134+ }
5135+
5136+-- | The unique id for the seller. The seller fills in this field. The seller
5137+-- account id is then available to buyer in the offer.
5138+sAccountId :: Lens' Seller (Maybe Text)
5139+sAccountId
5140+ = lens _sAccountId (\ s a -> s{_sAccountId = a})
5141+
5142+-- | Optional sub-account id for the seller.
5143+sSubAccountId :: Lens' Seller (Maybe Text)
5144+sSubAccountId
5145+ = lens _sSubAccountId
5146+ (\ s a -> s{_sSubAccountId = a})
5147+
5148+--
5149+-- /See:/ 'sharedTargeting' smart constructor.
5150+data SharedTargeting = SharedTargeting
5151+ { _stKey :: !(Maybe Text)
5152+ , _stExclusions :: !(Maybe [Maybe TargetingValue])
5153+ , _stInclusions :: !(Maybe [Maybe TargetingValue])
5154+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5155+
5156+-- | Creates a value of 'SharedTargeting' with the minimum fields required to make a request.
5157+--
5158+-- Use one of the following lenses to modify other fields as desired:
5159+--
5160+-- * 'stKey'
5161+--
5162+-- * 'stExclusions'
5163+--
5164+-- * 'stInclusions'
5165+sharedTargeting
5166+ :: SharedTargeting
5167+sharedTargeting =
5168+ SharedTargeting
5169+ { _stKey = Nothing
5170+ , _stExclusions = Nothing
5171+ , _stInclusions = Nothing
5172+ }
5173+
5174+-- | The key representing the shared targeting criterion.
5175+stKey :: Lens' SharedTargeting (Maybe Text)
5176+stKey = lens _stKey (\ s a -> s{_stKey = a})
5177+
5178+-- | The list of values to exclude from targeting.
5179+stExclusions :: Lens' SharedTargeting [Maybe TargetingValue]
5180+stExclusions
5181+ = lens _stExclusions (\ s a -> s{_stExclusions = a})
5182+ . _Default
5183+ . _Coerce
5184+
5185+-- | The list of value to include as part of the targeting.
5186+stInclusions :: Lens' SharedTargeting [Maybe TargetingValue]
5187+stInclusions
5188+ = lens _stInclusions (\ s a -> s{_stInclusions = a})
5189+ . _Default
5190+ . _Coerce
5191+
5192+--
5193+-- /See:/ 'statsDto' smart constructor.
5194+data StatsDto = StatsDto
5195+ { _sdBids :: !(Maybe Int64)
5196+ , _sdSpend :: !(Maybe (Maybe MoneyDto))
5197+ , _sdImpressions :: !(Maybe Int64)
5198+ , _sdGoodBids :: !(Maybe Int64)
5199+ , _sdRevenue :: !(Maybe (Maybe MoneyDto))
5200+ , _sdRequests :: !(Maybe Int64)
5201+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5202+
5203+-- | Creates a value of 'StatsDto' with the minimum fields required to make a request.
5204+--
5205+-- Use one of the following lenses to modify other fields as desired:
5206+--
5207+-- * 'sdBids'
5208+--
5209+-- * 'sdSpend'
5210+--
5211+-- * 'sdImpressions'
5212+--
5213+-- * 'sdGoodBids'
5214+--
5215+-- * 'sdRevenue'
5216+--
5217+-- * 'sdRequests'
5218+statsDto
5219+ :: StatsDto
5220+statsDto =
5221+ StatsDto
5222+ { _sdBids = Nothing
5223+ , _sdSpend = Nothing
5224+ , _sdImpressions = Nothing
5225+ , _sdGoodBids = Nothing
5226+ , _sdRevenue = Nothing
5227+ , _sdRequests = Nothing
5228+ }
5229+
5230+sdBids :: Lens' StatsDto (Maybe Int64)
5231+sdBids = lens _sdBids (\ s a -> s{_sdBids = a})
5232+
5233+sdSpend :: Lens' StatsDto (Maybe (Maybe MoneyDto))
5234+sdSpend = lens _sdSpend (\ s a -> s{_sdSpend = a})
5235+
5236+sdImpressions :: Lens' StatsDto (Maybe Int64)
5237+sdImpressions
5238+ = lens _sdImpressions
5239+ (\ s a -> s{_sdImpressions = a})
5240+
5241+sdGoodBids :: Lens' StatsDto (Maybe Int64)
5242+sdGoodBids
5243+ = lens _sdGoodBids (\ s a -> s{_sdGoodBids = a})
5244+
5245+sdRevenue :: Lens' StatsDto (Maybe (Maybe MoneyDto))
5246+sdRevenue
5247+ = lens _sdRevenue (\ s a -> s{_sdRevenue = a})
5248+
5249+sdRequests :: Lens' StatsDto (Maybe Int64)
5250+sdRequests
5251+ = lens _sdRequests (\ s a -> s{_sdRequests = a})
5252+
5253+--
5254+-- /See:/ 'targetingValue' smart constructor.
5255+data TargetingValue = TargetingValue
5256+ { _tvCreativeSizeValue :: !(Maybe (Maybe TargetingValueCreativeSize))
5257+ , _tvStringValue :: !(Maybe Text)
5258+ , _tvLongValue :: !(Maybe Int64)
5259+ , _tvDayPartTargetingValue :: !(Maybe (Maybe TargetingValueDayPartTargeting))
5260+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5261+
5262+-- | Creates a value of 'TargetingValue' with the minimum fields required to make a request.
5263+--
5264+-- Use one of the following lenses to modify other fields as desired:
5265+--
5266+-- * 'tvCreativeSizeValue'
5267+--
5268+-- * 'tvStringValue'
5269+--
5270+-- * 'tvLongValue'
5271+--
5272+-- * 'tvDayPartTargetingValue'
5273+targetingValue
5274+ :: TargetingValue
5275+targetingValue =
5276+ TargetingValue
5277+ { _tvCreativeSizeValue = Nothing
5278+ , _tvStringValue = Nothing
5279+ , _tvLongValue = Nothing
5280+ , _tvDayPartTargetingValue = Nothing
5281+ }
5282+
5283+-- | The creative size value to exclude\/include.
5284+tvCreativeSizeValue :: Lens' TargetingValue (Maybe (Maybe TargetingValueCreativeSize))
5285+tvCreativeSizeValue
5286+ = lens _tvCreativeSizeValue
5287+ (\ s a -> s{_tvCreativeSizeValue = a})
5288+
5289+-- | The string value to exclude\/include.
5290+tvStringValue :: Lens' TargetingValue (Maybe Text)
5291+tvStringValue
5292+ = lens _tvStringValue
5293+ (\ s a -> s{_tvStringValue = a})
5294+
5295+-- | The long value to exclude\/include.
5296+tvLongValue :: Lens' TargetingValue (Maybe Int64)
5297+tvLongValue
5298+ = lens _tvLongValue (\ s a -> s{_tvLongValue = a})
5299+
5300+-- | The daypart targeting to include \/ exclude. Filled in when the key is
5301+-- GOOG_DAYPART_TARGETING.
5302+tvDayPartTargetingValue :: Lens' TargetingValue (Maybe (Maybe TargetingValueDayPartTargeting))
5303+tvDayPartTargetingValue
5304+ = lens _tvDayPartTargetingValue
5305+ (\ s a -> s{_tvDayPartTargetingValue = a})
5306+
5307+--
5308+-- /See:/ 'targetingValueCreativeSize' smart constructor.
5309+data TargetingValueCreativeSize = TargetingValueCreativeSize
5310+ { _tvcsSize :: !(Maybe (Maybe TargetingValueSize))
5311+ , _tvcsCompanionSizes :: !(Maybe [Maybe TargetingValueSize])
5312+ , _tvcsCreativeSizeType :: !(Maybe Text)
5313+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5314+
5315+-- | Creates a value of 'TargetingValueCreativeSize' with the minimum fields required to make a request.
5316+--
5317+-- Use one of the following lenses to modify other fields as desired:
5318+--
5319+-- * 'tvcsSize'
5320+--
5321+-- * 'tvcsCompanionSizes'
5322+--
5323+-- * 'tvcsCreativeSizeType'
5324+targetingValueCreativeSize
5325+ :: TargetingValueCreativeSize
5326+targetingValueCreativeSize =
5327+ TargetingValueCreativeSize
5328+ { _tvcsSize = Nothing
5329+ , _tvcsCompanionSizes = Nothing
5330+ , _tvcsCreativeSizeType = Nothing
5331+ }
5332+
5333+-- | For regular creative size type, specifies the size of the creative.
5334+tvcsSize :: Lens' TargetingValueCreativeSize (Maybe (Maybe TargetingValueSize))
5335+tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
5336+
5337+-- | For video size type, the list of companion sizes.
5338+tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [Maybe TargetingValueSize]
5339+tvcsCompanionSizes
5340+ = lens _tvcsCompanionSizes
5341+ (\ s a -> s{_tvcsCompanionSizes = a})
5342+ . _Default
5343+ . _Coerce
5344+
5345+-- | The Creative size type.
5346+tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
5347+tvcsCreativeSizeType
5348+ = lens _tvcsCreativeSizeType
5349+ (\ s a -> s{_tvcsCreativeSizeType = a})
5350+
5351+--
5352+-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
5353+data TargetingValueDayPartTargeting = TargetingValueDayPartTargeting
5354+ { _tvdptTimeZoneType :: !(Maybe Text)
5355+ , _tvdptDayParts :: !(Maybe [Maybe TargetingValueDayPartTargetingDayPart])
5356+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5357+
5358+-- | Creates a value of 'TargetingValueDayPartTargeting' with the minimum fields required to make a request.
5359+--
5360+-- Use one of the following lenses to modify other fields as desired:
5361+--
5362+-- * 'tvdptTimeZoneType'
5363+--
5364+-- * 'tvdptDayParts'
5365+targetingValueDayPartTargeting
5366+ :: TargetingValueDayPartTargeting
5367+targetingValueDayPartTargeting =
5368+ TargetingValueDayPartTargeting
5369+ { _tvdptTimeZoneType = Nothing
5370+ , _tvdptDayParts = Nothing
5371+ }
5372+
5373+tvdptTimeZoneType :: Lens' TargetingValueDayPartTargeting (Maybe Text)
5374+tvdptTimeZoneType
5375+ = lens _tvdptTimeZoneType
5376+ (\ s a -> s{_tvdptTimeZoneType = a})
5377+
5378+tvdptDayParts :: Lens' TargetingValueDayPartTargeting [Maybe TargetingValueDayPartTargetingDayPart]
5379+tvdptDayParts
5380+ = lens _tvdptDayParts
5381+ (\ s a -> s{_tvdptDayParts = a})
5382+ . _Default
5383+ . _Coerce
5384+
5385+--
5386+-- /See:/ 'targetingValueDayPartTargetingDayPart' smart constructor.
5387+data TargetingValueDayPartTargetingDayPart = TargetingValueDayPartTargetingDayPart
5388+ { _tvdptdpEndHour :: !(Maybe Int32)
5389+ , _tvdptdpStartHour :: !(Maybe Int32)
5390+ , _tvdptdpStartMinute :: !(Maybe Int32)
5391+ , _tvdptdpDayOfWeek :: !(Maybe Text)
5392+ , _tvdptdpEndMinute :: !(Maybe Int32)
5393+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5394+
5395+-- | Creates a value of 'TargetingValueDayPartTargetingDayPart' with the minimum fields required to make a request.
5396+--
5397+-- Use one of the following lenses to modify other fields as desired:
5398+--
5399+-- * 'tvdptdpEndHour'
5400+--
5401+-- * 'tvdptdpStartHour'
5402+--
5403+-- * 'tvdptdpStartMinute'
5404+--
5405+-- * 'tvdptdpDayOfWeek'
5406+--
5407+-- * 'tvdptdpEndMinute'
5408+targetingValueDayPartTargetingDayPart
5409+ :: TargetingValueDayPartTargetingDayPart
5410+targetingValueDayPartTargetingDayPart =
5411+ TargetingValueDayPartTargetingDayPart
5412+ { _tvdptdpEndHour = Nothing
5413+ , _tvdptdpStartHour = Nothing
5414+ , _tvdptdpStartMinute = Nothing
5415+ , _tvdptdpDayOfWeek = Nothing
5416+ , _tvdptdpEndMinute = Nothing
5417+ }
5418+
5419+tvdptdpEndHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
5420+tvdptdpEndHour
5421+ = lens _tvdptdpEndHour
5422+ (\ s a -> s{_tvdptdpEndHour = a})
5423+
5424+tvdptdpStartHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
5425+tvdptdpStartHour
5426+ = lens _tvdptdpStartHour
5427+ (\ s a -> s{_tvdptdpStartHour = a})
5428+
5429+tvdptdpStartMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
5430+tvdptdpStartMinute
5431+ = lens _tvdptdpStartMinute
5432+ (\ s a -> s{_tvdptdpStartMinute = a})
5433+
5434+tvdptdpDayOfWeek :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Text)
5435+tvdptdpDayOfWeek
5436+ = lens _tvdptdpDayOfWeek
5437+ (\ s a -> s{_tvdptdpDayOfWeek = a})
5438+
5439+tvdptdpEndMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32)
5440+tvdptdpEndMinute
5441+ = lens _tvdptdpEndMinute
5442+ (\ s a -> s{_tvdptdpEndMinute = a})
5443+
5444+--
5445+-- /See:/ 'targetingValueSize' smart constructor.
5446+data TargetingValueSize = TargetingValueSize
5447+ { _tvsHeight :: !(Maybe Int32)
5448+ , _tvsWidth :: !(Maybe Int32)
5449+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5450+
5451+-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
5452+--
5453+-- Use one of the following lenses to modify other fields as desired:
5454+--
5455+-- * 'tvsHeight'
5456+--
5457+-- * 'tvsWidth'
5458+targetingValueSize
5459+ :: TargetingValueSize
5460+targetingValueSize =
5461+ TargetingValueSize
5462+ { _tvsHeight = Nothing
5463+ , _tvsWidth = Nothing
5464+ }
5465+
5466+-- | The height of the creative.
5467+tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
5468+tvsHeight
5469+ = lens _tvsHeight (\ s a -> s{_tvsHeight = a})
5470+
5471+-- | The width of the creative.
5472+tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
5473+tvsWidth = lens _tvsWidth (\ s a -> s{_tvsWidth = a})
5474+
5475+--
5476+-- /See:/ 'termsDto' smart constructor.
5477+data TermsDto = TermsDto
5478+ { _tdFinalizeAutomatically :: !(Maybe Bool)
5479+ , _tdBuyerBillingType :: !(Maybe Text)
5480+ , _tdTargetingAllAdSlots :: !(Maybe Bool)
5481+ , _tdUrls :: !(Maybe [Text])
5482+ , _tdEndDate :: !(Maybe (Maybe DateTime))
5483+ , _tdCpm :: !(Maybe (Maybe MoneyDto))
5484+ , _tdEstimatedSpend :: !(Maybe (Maybe MoneyDto))
5485+ , _tdAdvertisers :: !(Maybe [Maybe AdvertiserDto])
5486+ , _tdEstimatedImpressionsPerDay :: !(Maybe Int64)
5487+ , _tdMonetizerType :: !(Maybe Text)
5488+ , _tdAudienceSegmentDescription :: !(Maybe Text)
5489+ , _tdCreativeReviewPolicy :: !(Maybe Text)
5490+ , _tdMinimumTrueLooks :: !(Maybe Int64)
5491+ , _tdStartDate :: !(Maybe (Maybe DateTime))
5492+ , _tdCreativeBlockingLevel :: !(Maybe Text)
5493+ , _tdSemiTransparent :: !(Maybe Bool)
5494+ , _tdAudienceSegment :: !(Maybe (Maybe AudienceSegment))
5495+ , _tdDealPremium :: !(Maybe (Maybe MoneyDto))
5496+ , _tdIsReservation :: !(Maybe Bool)
5497+ , _tdAdSlots :: !(Maybe [Maybe AdSlotDto])
5498+ , _tdTermsAttributes :: !(Maybe [Text])
5499+ , _tdInventorySegmentTargeting :: !(Maybe (Maybe InventorySegmentTargeting))
5500+ , _tdDescriptiveName :: !(Maybe Text)
5501+ , _tdMinimumSpendMicros :: !(Maybe Int64)
5502+ , _tdTargetByDealId :: !(Maybe Bool)
5503+ , _tdBillingTerms :: !(Maybe Text)
5504+ , _tdDescription :: !(Maybe Text)
5505+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5506+
5507+-- | Creates a value of 'TermsDto' with the minimum fields required to make a request.
5508+--
5509+-- Use one of the following lenses to modify other fields as desired:
5510+--
5511+-- * 'tdFinalizeAutomatically'
5512+--
5513+-- * 'tdBuyerBillingType'
5514+--
5515+-- * 'tdTargetingAllAdSlots'
5516+--
5517+-- * 'tdUrls'
5518+--
5519+-- * 'tdEndDate'
5520+--
5521+-- * 'tdCpm'
5522+--
5523+-- * 'tdEstimatedSpend'
5524+--
5525+-- * 'tdAdvertisers'
5526+--
5527+-- * 'tdEstimatedImpressionsPerDay'
5528+--
5529+-- * 'tdMonetizerType'
5530+--
5531+-- * 'tdAudienceSegmentDescription'
5532+--
5533+-- * 'tdCreativeReviewPolicy'
5534+--
5535+-- * 'tdMinimumTrueLooks'
5536+--
5537+-- * 'tdStartDate'
5538+--
5539+-- * 'tdCreativeBlockingLevel'
5540+--
5541+-- * 'tdSemiTransparent'
5542+--
5543+-- * 'tdAudienceSegment'
5544+--
5545+-- * 'tdDealPremium'
5546+--
5547+-- * 'tdIsReservation'
5548+--
5549+-- * 'tdAdSlots'
5550+--
5551+-- * 'tdTermsAttributes'
5552+--
5553+-- * 'tdInventorySegmentTargeting'
5554+--
5555+-- * 'tdDescriptiveName'
5556+--
5557+-- * 'tdMinimumSpendMicros'
5558+--
5559+-- * 'tdTargetByDealId'
5560+--
5561+-- * 'tdBillingTerms'
5562+--
5563+-- * 'tdDescription'
5564+termsDto
5565+ :: TermsDto
5566+termsDto =
5567+ TermsDto
5568+ { _tdFinalizeAutomatically = Nothing
5569+ , _tdBuyerBillingType = Nothing
5570+ , _tdTargetingAllAdSlots = Nothing
5571+ , _tdUrls = Nothing
5572+ , _tdEndDate = Nothing
5573+ , _tdCpm = Nothing
5574+ , _tdEstimatedSpend = Nothing
5575+ , _tdAdvertisers = Nothing
5576+ , _tdEstimatedImpressionsPerDay = Nothing
5577+ , _tdMonetizerType = Nothing
5578+ , _tdAudienceSegmentDescription = Nothing
5579+ , _tdCreativeReviewPolicy = Nothing
5580+ , _tdMinimumTrueLooks = Nothing
5581+ , _tdStartDate = Nothing
5582+ , _tdCreativeBlockingLevel = Nothing
5583+ , _tdSemiTransparent = Nothing
5584+ , _tdAudienceSegment = Nothing
5585+ , _tdDealPremium = Nothing
5586+ , _tdIsReservation = Nothing
5587+ , _tdAdSlots = Nothing
5588+ , _tdTermsAttributes = Nothing
5589+ , _tdInventorySegmentTargeting = Nothing
5590+ , _tdDescriptiveName = Nothing
5591+ , _tdMinimumSpendMicros = Nothing
5592+ , _tdTargetByDealId = Nothing
5593+ , _tdBillingTerms = Nothing
5594+ , _tdDescription = Nothing
5595+ }
5596+
5597+-- | If true, the offer will finalize automatically when accepted.
5598+tdFinalizeAutomatically :: Lens' TermsDto (Maybe Bool)
5599+tdFinalizeAutomatically
5600+ = lens _tdFinalizeAutomatically
5601+ (\ s a -> s{_tdFinalizeAutomatically = a})
5602+
5603+-- | The buyer billing type.
5604+tdBuyerBillingType :: Lens' TermsDto (Maybe Text)
5605+tdBuyerBillingType
5606+ = lens _tdBuyerBillingType
5607+ (\ s a -> s{_tdBuyerBillingType = a})
5608+
5609+-- | If true, the offer targets all ad slots.
5610+tdTargetingAllAdSlots :: Lens' TermsDto (Maybe Bool)
5611+tdTargetingAllAdSlots
5612+ = lens _tdTargetingAllAdSlots
5613+ (\ s a -> s{_tdTargetingAllAdSlots = a})
5614+
5615+-- | The urls applicable to the offer.
5616+tdUrls :: Lens' TermsDto [Text]
5617+tdUrls
5618+ = lens _tdUrls (\ s a -> s{_tdUrls = a}) . _Default .
5619+ _Coerce
5620+
5621+-- | The end date for the offer.
5622+tdEndDate :: Lens' TermsDto (Maybe (Maybe DateTime))
5623+tdEndDate
5624+ = lens _tdEndDate (\ s a -> s{_tdEndDate = a})
5625+
5626+-- | The cpm terms.
5627+tdCpm :: Lens' TermsDto (Maybe (Maybe MoneyDto))
5628+tdCpm = lens _tdCpm (\ s a -> s{_tdCpm = a})
5629+
5630+-- | The estimated spend for the offer.
5631+tdEstimatedSpend :: Lens' TermsDto (Maybe (Maybe MoneyDto))
5632+tdEstimatedSpend
5633+ = lens _tdEstimatedSpend
5634+ (\ s a -> s{_tdEstimatedSpend = a})
5635+
5636+-- | A list of advertisers for this offer.
5637+tdAdvertisers :: Lens' TermsDto [Maybe AdvertiserDto]
5638+tdAdvertisers
5639+ = lens _tdAdvertisers
5640+ (\ s a -> s{_tdAdvertisers = a})
5641+ . _Default
5642+ . _Coerce
5643+
5644+-- | The estimated daily impressions for the offer.
5645+tdEstimatedImpressionsPerDay :: Lens' TermsDto (Maybe Int64)
5646+tdEstimatedImpressionsPerDay
5647+ = lens _tdEstimatedImpressionsPerDay
5648+ (\ s a -> s{_tdEstimatedImpressionsPerDay = a})
5649+
5650+-- | The monetizer type.
5651+tdMonetizerType :: Lens' TermsDto (Maybe Text)
5652+tdMonetizerType
5653+ = lens _tdMonetizerType
5654+ (\ s a -> s{_tdMonetizerType = a})
5655+
5656+-- | A description of the audience segment for the offer.
5657+tdAudienceSegmentDescription :: Lens' TermsDto (Maybe Text)
5658+tdAudienceSegmentDescription
5659+ = lens _tdAudienceSegmentDescription
5660+ (\ s a -> s{_tdAudienceSegmentDescription = a})
5661+
5662+-- | Whether to use publisher review policy or AdX review policy.
5663+tdCreativeReviewPolicy :: Lens' TermsDto (Maybe Text)
5664+tdCreativeReviewPolicy
5665+ = lens _tdCreativeReviewPolicy
5666+ (\ s a -> s{_tdCreativeReviewPolicy = a})
5667+
5668+-- | The minimum true looks for the offer.
5669+tdMinimumTrueLooks :: Lens' TermsDto (Maybe Int64)
5670+tdMinimumTrueLooks
5671+ = lens _tdMinimumTrueLooks
5672+ (\ s a -> s{_tdMinimumTrueLooks = a})
5673+
5674+-- | The start date for the offer.
5675+tdStartDate :: Lens' TermsDto (Maybe (Maybe DateTime))
5676+tdStartDate
5677+ = lens _tdStartDate (\ s a -> s{_tdStartDate = a})
5678+
5679+-- | Whether to use or ignore publisher blocking rules.
5680+tdCreativeBlockingLevel :: Lens' TermsDto (Maybe Text)
5681+tdCreativeBlockingLevel
5682+ = lens _tdCreativeBlockingLevel
5683+ (\ s a -> s{_tdCreativeBlockingLevel = a})
5684+
5685+-- | Whether this offer is semi-transparent.
5686+tdSemiTransparent :: Lens' TermsDto (Maybe Bool)
5687+tdSemiTransparent
5688+ = lens _tdSemiTransparent
5689+ (\ s a -> s{_tdSemiTransparent = a})
5690+
5691+-- | The audience segment for the offer.
5692+tdAudienceSegment :: Lens' TermsDto (Maybe (Maybe AudienceSegment))
5693+tdAudienceSegment
5694+ = lens _tdAudienceSegment
5695+ (\ s a -> s{_tdAudienceSegment = a})
5696+
5697+-- | The premium terms.
5698+tdDealPremium :: Lens' TermsDto (Maybe (Maybe MoneyDto))
5699+tdDealPremium
5700+ = lens _tdDealPremium
5701+ (\ s a -> s{_tdDealPremium = a})
5702+
5703+-- | Whether the offer is a reservation.
5704+tdIsReservation :: Lens' TermsDto (Maybe Bool)
5705+tdIsReservation
5706+ = lens _tdIsReservation
5707+ (\ s a -> s{_tdIsReservation = a})
5708+
5709+-- | The particular ad slots targeted by the offer.
5710+tdAdSlots :: Lens' TermsDto [Maybe AdSlotDto]
5711+tdAdSlots
5712+ = lens _tdAdSlots (\ s a -> s{_tdAdSlots = a}) .
5713+ _Default
5714+ . _Coerce
5715+
5716+-- | A list of terms attributes.
5717+tdTermsAttributes :: Lens' TermsDto [Text]
5718+tdTermsAttributes
5719+ = lens _tdTermsAttributes
5720+ (\ s a -> s{_tdTermsAttributes = a})
5721+ . _Default
5722+ . _Coerce
5723+
5724+-- | The inventory segment targeting for the offer.
5725+tdInventorySegmentTargeting :: Lens' TermsDto (Maybe (Maybe InventorySegmentTargeting))
5726+tdInventorySegmentTargeting
5727+ = lens _tdInventorySegmentTargeting
5728+ (\ s a -> s{_tdInventorySegmentTargeting = a})
5729+
5730+-- | A descriptive name for these terms.
5731+tdDescriptiveName :: Lens' TermsDto (Maybe Text)
5732+tdDescriptiveName
5733+ = lens _tdDescriptiveName
5734+ (\ s a -> s{_tdDescriptiveName = a})
5735+
5736+-- | The minimum spend for the offer.
5737+tdMinimumSpendMicros :: Lens' TermsDto (Maybe Int64)
5738+tdMinimumSpendMicros
5739+ = lens _tdMinimumSpendMicros
5740+ (\ s a -> s{_tdMinimumSpendMicros = a})
5741+
5742+-- | Whether to target by deal id.
5743+tdTargetByDealId :: Lens' TermsDto (Maybe Bool)
5744+tdTargetByDealId
5745+ = lens _tdTargetByDealId
5746+ (\ s a -> s{_tdTargetByDealId = a})
5747+
5748+-- | The billing terms.
5749+tdBillingTerms :: Lens' TermsDto (Maybe Text)
5750+tdBillingTerms
5751+ = lens _tdBillingTerms
5752+ (\ s a -> s{_tdBillingTerms = a})
5753+
5754+-- | A description for these terms.
5755+tdDescription :: Lens' TermsDto (Maybe Text)
5756+tdDescription
5757+ = lens _tdDescription
5758+ (\ s a -> s{_tdDescription = a})
5759+
5760+--
5761+-- /See:/ 'webPropertyDto' smart constructor.
5762+data WebPropertyDto = WebPropertyDto
5763+ { _wpdEnabledForPreferredDeals :: !(Maybe Bool)
5764+ , _wpdSyndicationProduct :: !(Maybe Text)
5765+ , _wpdName :: !(Maybe Text)
5766+ , _wpdPropertyCode :: !(Maybe Text)
5767+ , _wpdId :: !(Maybe Int32)
5768+ , _wpdSiteUrls :: !(Maybe [Text])
5769+ , _wpdAllowInterestTargetedAds :: !(Maybe Bool)
5770+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5771+
5772+-- | Creates a value of 'WebPropertyDto' with the minimum fields required to make a request.
5773+--
5774+-- Use one of the following lenses to modify other fields as desired:
5775+--
5776+-- * 'wpdEnabledForPreferredDeals'
5777+--
5778+-- * 'wpdSyndicationProduct'
5779+--
5780+-- * 'wpdName'
5781+--
5782+-- * 'wpdPropertyCode'
5783+--
5784+-- * 'wpdId'
5785+--
5786+-- * 'wpdSiteUrls'
5787+--
5788+-- * 'wpdAllowInterestTargetedAds'
5789+webPropertyDto
5790+ :: WebPropertyDto
5791+webPropertyDto =
5792+ WebPropertyDto
5793+ { _wpdEnabledForPreferredDeals = Nothing
5794+ , _wpdSyndicationProduct = Nothing
5795+ , _wpdName = Nothing
5796+ , _wpdPropertyCode = Nothing
5797+ , _wpdId = Nothing
5798+ , _wpdSiteUrls = Nothing
5799+ , _wpdAllowInterestTargetedAds = Nothing
5800+ }
5801+
5802+wpdEnabledForPreferredDeals :: Lens' WebPropertyDto (Maybe Bool)
5803+wpdEnabledForPreferredDeals
5804+ = lens _wpdEnabledForPreferredDeals
5805+ (\ s a -> s{_wpdEnabledForPreferredDeals = a})
5806+
5807+wpdSyndicationProduct :: Lens' WebPropertyDto (Maybe Text)
5808+wpdSyndicationProduct
5809+ = lens _wpdSyndicationProduct
5810+ (\ s a -> s{_wpdSyndicationProduct = a})
5811+
5812+wpdName :: Lens' WebPropertyDto (Maybe Text)
5813+wpdName = lens _wpdName (\ s a -> s{_wpdName = a})
5814+
5815+wpdPropertyCode :: Lens' WebPropertyDto (Maybe Text)
5816+wpdPropertyCode
5817+ = lens _wpdPropertyCode
5818+ (\ s a -> s{_wpdPropertyCode = a})
5819+
5820+wpdId :: Lens' WebPropertyDto (Maybe Int32)
5821+wpdId = lens _wpdId (\ s a -> s{_wpdId = a})
5822+
5823+wpdSiteUrls :: Lens' WebPropertyDto [Text]
5824+wpdSiteUrls
5825+ = lens _wpdSiteUrls (\ s a -> s{_wpdSiteUrls = a}) .
5826+ _Default
5827+ . _Coerce
5828+
5829+wpdAllowInterestTargetedAds :: Lens' WebPropertyDto (Maybe Bool)
5830+wpdAllowInterestTargetedAds
5831+ = lens _wpdAllowInterestTargetedAds
5832+ (\ s a -> s{_wpdAllowInterestTargetedAds = a})