@@ -20,74 +20,19 @@ module Network.Google.AdExchangeBuyer.Types.Product where
2020import Network.Google.AdExchangeBuyer.Types.Sum
2121import Network.Google.Prelude
2222
23−--
24−-- /See:/ 'brandDTO' smart constructor.
25−data BrandDTO = BrandDTO
26− { _bdtoAdvertiserId :: !(Maybe (Textual Int64))
27− , _bdtoName :: !(Maybe Text)
28− , _bdtoId :: !(Maybe (Textual Int64))
29− } deriving (Eq,Show,Data,Typeable,Generic)
30−
31−-- | Creates a value of 'BrandDTO' with the minimum fields required to make a request.
32−--
33−-- Use one of the following lenses to modify other fields as desired:
34−--
35−-- * 'bdtoAdvertiserId'
36−--
37−-- * 'bdtoName'
38−--
39−-- * 'bdtoId'
40−brandDTO
41− :: BrandDTO
42−brandDTO =
43− BrandDTO
44− { _bdtoAdvertiserId = Nothing
45− , _bdtoName = Nothing
46− , _bdtoId = Nothing
47− }
48−
49−bdtoAdvertiserId :: Lens' BrandDTO (Maybe Int64)
50−bdtoAdvertiserId
51− = lens _bdtoAdvertiserId
52− (\ s a -> s{_bdtoAdvertiserId = a})
53− . mapping _Coerce
54−
55−bdtoName :: Lens' BrandDTO (Maybe Text)
56−bdtoName = lens _bdtoName (\ s a -> s{_bdtoName = a})
57−
58−bdtoId :: Lens' BrandDTO (Maybe Int64)
59−bdtoId
60− = lens _bdtoId (\ s a -> s{_bdtoId = a}) .
61− mapping _Coerce
62−
63−instance FromJSON BrandDTO where
64− parseJSON
65− = withObject "BrandDTO"
66− (\ o ->
67− BrandDTO <$>
68− (o .:? "advertiserId") <*> (o .:? "name") <*>
69− (o .:? "id"))
70−
71−instance ToJSON BrandDTO where
72− toJSON BrandDTO{..}
73− = object
74− (catMaybes
75− [("advertiserId" .=) <$> _bdtoAdvertiserId,
76− ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
77−
78−-- | An order is associated with a bunch of notes which may optionally be
23+-- | A proposal is associated with a bunch of notes which may optionally be
7924-- associated with a deal and\/or revision number.
8025--
8126-- /See:/ 'marketplaceNote' smart constructor.
8227data MarketplaceNote = MarketplaceNote
83− { _mnNote :: !(Maybe Text)
84− , _mnKind :: !Text
85− , _mnTimestampMs :: !(Maybe (Textual Int64))
86− , _mnDealId :: !(Maybe Text)
87− , _mnNoteId :: !(Maybe Text)
88− , _mnCreatorRole :: !(Maybe Text)
89− , _mnOrderId :: !(Maybe Text)
90− , _mnOrderRevisionNumber :: !(Maybe (Textual Int64))
28+ { _mnNote :: !(Maybe Text)
29+ , _mnKind :: !Text
30+ , _mnTimestampMs :: !(Maybe (Textual Int64))
31+ , _mnProposalId :: !(Maybe Text)
32+ , _mnDealId :: !(Maybe Text)
33+ , _mnProposalRevisionNumber :: !(Maybe (Textual Int64))
34+ , _mnNoteId :: !(Maybe Text)
35+ , _mnCreatorRole :: !(Maybe Text)
9136 } deriving (Eq,Show,Data,Typeable,Generic)
9237
9338-- | Creates a value of 'MarketplaceNote' with the minimum fields required to make a request.
@@ -100,15 +45,15 @@ data MarketplaceNote = MarketplaceNote
10045--
10146-- * 'mnTimestampMs'
10247--
48+-- * 'mnProposalId'
49+--
10350-- * 'mnDealId'
10451--
52+-- * 'mnProposalRevisionNumber'
53+--
10554-- * 'mnNoteId'
10655--
10756-- * 'mnCreatorRole'
108−--
109−-- * 'mnOrderId'
110−--
111−-- * 'mnOrderRevisionNumber'
11257marketplaceNote
11358 :: MarketplaceNote
11459marketplaceNote =
@@ -116,11 +61,11 @@ marketplaceNote =
11661 { _mnNote = Nothing
11762 , _mnKind = "adexchangebuyer#marketplaceNote"
11863 , _mnTimestampMs = Nothing
64+ , _mnProposalId = Nothing
11965 , _mnDealId = Nothing
66+ , _mnProposalRevisionNumber = Nothing
12067 , _mnNoteId = Nothing
12168 , _mnCreatorRole = Nothing
122− , _mnOrderId = Nothing
123− , _mnOrderRevisionNumber = Nothing
12469 }
12570
12671-- | The actual note to attach. (readonly, except on create)
@@ -139,11 +84,24 @@ mnTimestampMs
13984 (\ s a -> s{_mnTimestampMs = a})
14085 . mapping _Coerce
14186
87+-- | The proposalId that a note is attached to. (readonly)
88+mnProposalId :: Lens' MarketplaceNote (Maybe Text)
89+mnProposalId
90+ = lens _mnProposalId (\ s a -> s{_mnProposalId = a})
91+
14292-- | Notes can optionally be associated with a deal. (readonly, except on
14393-- create)
14494mnDealId :: Lens' MarketplaceNote (Maybe Text)
14595mnDealId = lens _mnDealId (\ s a -> s{_mnDealId = a})
14696
97+-- | If the note is associated with a proposal revision number, then store
98+-- that here. (readonly, except on create)
99+mnProposalRevisionNumber :: Lens' MarketplaceNote (Maybe Int64)
100+mnProposalRevisionNumber
101+ = lens _mnProposalRevisionNumber
102+ (\ s a -> s{_mnProposalRevisionNumber = a})
103+ . mapping _Coerce
104+
147105-- | The unique id for the note. (readonly)
148106mnNoteId :: Lens' MarketplaceNote (Maybe Text)
149107mnNoteId = lens _mnNoteId (\ s a -> s{_mnNoteId = a})
@@ -154,19 +112,6 @@ mnCreatorRole
154112 = lens _mnCreatorRole
155113 (\ s a -> s{_mnCreatorRole = a})
156114
157−-- | The order_id that a note is attached to. (readonly)
158−mnOrderId :: Lens' MarketplaceNote (Maybe Text)
159−mnOrderId
160− = lens _mnOrderId (\ s a -> s{_mnOrderId = a})
161−
162−-- | If the note is associated with an order revision number, then store that
163−-- here. (readonly, except on create)
164−mnOrderRevisionNumber :: Lens' MarketplaceNote (Maybe Int64)
165−mnOrderRevisionNumber
166− = lens _mnOrderRevisionNumber
167− (\ s a -> s{_mnOrderRevisionNumber = a})
168− . mapping _Coerce
169−
170115instance FromJSON MarketplaceNote where
171116 parseJSON
172117 = withObject "MarketplaceNote"
@@ -175,11 +120,11 @@ instance FromJSON MarketplaceNote where
175120 (o .:? "note") <*>
176121 (o .:? "kind" .!= "adexchangebuyer#marketplaceNote")
177122 <*> (o .:? "timestampMs")
123+ <*> (o .:? "proposalId")
178124 <*> (o .:? "dealId")
125+ <*> (o .:? "proposalRevisionNumber")
179126 <*> (o .:? "noteId")
180− <*> (o .:? "creatorRole")
181− <*> (o .:? "orderId")
182− <*> (o .:? "orderRevisionNumber"))
127+ <*> (o .:? "creatorRole"))
183128
184129instance ToJSON MarketplaceNote where
185130 toJSON MarketplaceNote{..}
@@ -187,12 +132,12 @@ instance ToJSON MarketplaceNote where
187132 (catMaybes
188133 [("note" .=) <$> _mnNote, Just ("kind" .= _mnKind),
189134 ("timestampMs" .=) <$> _mnTimestampMs,
135+ ("proposalId" .=) <$> _mnProposalId,
190136 ("dealId" .=) <$> _mnDealId,
137+ ("proposalRevisionNumber" .=) <$>
138+ _mnProposalRevisionNumber,
191139 ("noteId" .=) <$> _mnNoteId,
192− ("creatorRole" .=) <$> _mnCreatorRole,
193− ("orderId" .=) <$> _mnOrderId,
194− ("orderRevisionNumber" .=) <$>
195− _mnOrderRevisionNumber])
140+ ("creatorRole" .=) <$> _mnCreatorRole])
196141
197142-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
198143--
@@ -378,7 +323,7 @@ editAllOrderDealsResponse =
378323 { _eaodrDeals = Nothing
379324 }
380325
381−-- | List of all deals in the order after edit.
326+-- | List of all deals in the proposal after edit.
382327eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
383328eaodrDeals
384329 = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
@@ -544,403 +489,42 @@ instance ToJSON
544489 ("auctionType" .=) <$> _csriciAuctionType,
545490 ("geoCriteriaId" .=) <$> _csriciGeoCriteriaId])
546491
547−--
548−-- /See:/ 'termsDTO' smart constructor.
549−data TermsDTO = TermsDTO
550− { _tdtoFinalizeAutomatically :: !(Maybe Bool)
551− , _tdtoBuyerBillingType :: !(Maybe Text)
552− , _tdtoTargetingAllAdSlots :: !(Maybe Bool)
553− , _tdtoURLs :: !(Maybe [Text])
554− , _tdtoEndDate :: !(Maybe DateTime)
555− , _tdtoCpm :: !(Maybe MoneyDTO)
556− , _tdtoEstimatedSpend :: !(Maybe MoneyDTO)
557− , _tdtoAdvertisers :: !(Maybe [AdvertiserDTO])
558− , _tdtoEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
559− , _tdtoMonetizerType :: !(Maybe Text)
560− , _tdtoAudienceSegmentDescription :: !(Maybe Text)
561− , _tdtoCreativeReviewPolicy :: !(Maybe Text)
562− , _tdtoMinimumTrueLooks :: !(Maybe (Textual Int64))
563− , _tdtoStartDate :: !(Maybe DateTime)
564− , _tdtoCreativeBlockingLevel :: !(Maybe Text)
565− , _tdtoSemiTransparent :: !(Maybe Bool)
566− , _tdtoAudienceSegment :: !(Maybe AudienceSegment)
567− , _tdtoDealPremium :: !(Maybe MoneyDTO)
568− , _tdtoIsReservation :: !(Maybe Bool)
569− , _tdtoAdSlots :: !(Maybe [AdSlotDTO])
570− , _tdtoTermsAttributes :: !(Maybe [Text])
571− , _tdtoInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
572− , _tdtoDescriptiveName :: !(Maybe Text)
573− , _tdtoMinimumSpendMicros :: !(Maybe (Textual Int64))
574− , _tdtoTargetByDealId :: !(Maybe Bool)
575− , _tdtoBillingTerms :: !(Maybe Text)
576− , _tdtoDescription :: !(Maybe Text)
577− } deriving (Eq,Show,Data,Typeable,Generic)
578−
579−-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request.
580−--
581−-- Use one of the following lenses to modify other fields as desired:
582−--
583−-- * 'tdtoFinalizeAutomatically'
584−--
585−-- * 'tdtoBuyerBillingType'
586−--
587−-- * 'tdtoTargetingAllAdSlots'
588−--
589−-- * 'tdtoURLs'
590−--
591−-- * 'tdtoEndDate'
592−--
593−-- * 'tdtoCpm'
594−--
595−-- * 'tdtoEstimatedSpend'
596−--
597−-- * 'tdtoAdvertisers'
598−--
599−-- * 'tdtoEstimatedImpressionsPerDay'
600−--
601−-- * 'tdtoMonetizerType'
602−--
603−-- * 'tdtoAudienceSegmentDescription'
604−--
605−-- * 'tdtoCreativeReviewPolicy'
606−--
607−-- * 'tdtoMinimumTrueLooks'
608−--
609−-- * 'tdtoStartDate'
610−--
611−-- * 'tdtoCreativeBlockingLevel'
612−--
613−-- * 'tdtoSemiTransparent'
614−--
615−-- * 'tdtoAudienceSegment'
616−--
617−-- * 'tdtoDealPremium'
618−--
619−-- * 'tdtoIsReservation'
620−--
621−-- * 'tdtoAdSlots'
622−--
623−-- * 'tdtoTermsAttributes'
624−--
625−-- * 'tdtoInventorySegmentTargeting'
626−--
627−-- * 'tdtoDescriptiveName'
628−--
629−-- * 'tdtoMinimumSpendMicros'
630−--
631−-- * 'tdtoTargetByDealId'
632−--
633−-- * 'tdtoBillingTerms'
634−--
635−-- * 'tdtoDescription'
636−termsDTO
637− :: TermsDTO
638−termsDTO =
639− TermsDTO
640− { _tdtoFinalizeAutomatically = Nothing
641− , _tdtoBuyerBillingType = Nothing
642− , _tdtoTargetingAllAdSlots = Nothing
643− , _tdtoURLs = Nothing
644− , _tdtoEndDate = Nothing
645− , _tdtoCpm = Nothing
646− , _tdtoEstimatedSpend = Nothing
647− , _tdtoAdvertisers = Nothing
648− , _tdtoEstimatedImpressionsPerDay = Nothing
649− , _tdtoMonetizerType = Nothing
650− , _tdtoAudienceSegmentDescription = Nothing
651− , _tdtoCreativeReviewPolicy = Nothing
652− , _tdtoMinimumTrueLooks = Nothing
653− , _tdtoStartDate = Nothing
654− , _tdtoCreativeBlockingLevel = Nothing
655− , _tdtoSemiTransparent = Nothing
656− , _tdtoAudienceSegment = Nothing
657− , _tdtoDealPremium = Nothing
658− , _tdtoIsReservation = Nothing
659− , _tdtoAdSlots = Nothing
660− , _tdtoTermsAttributes = Nothing
661− , _tdtoInventorySegmentTargeting = Nothing
662− , _tdtoDescriptiveName = Nothing
663− , _tdtoMinimumSpendMicros = Nothing
664− , _tdtoTargetByDealId = Nothing
665− , _tdtoBillingTerms = Nothing
666− , _tdtoDescription = Nothing
667− }
668−
669−-- | If true, the offer will finalize automatically when accepted.
670−tdtoFinalizeAutomatically :: Lens' TermsDTO (Maybe Bool)
671−tdtoFinalizeAutomatically
672− = lens _tdtoFinalizeAutomatically
673− (\ s a -> s{_tdtoFinalizeAutomatically = a})
674−
675−-- | The buyer billing type.
676−tdtoBuyerBillingType :: Lens' TermsDTO (Maybe Text)
677−tdtoBuyerBillingType
678− = lens _tdtoBuyerBillingType
679− (\ s a -> s{_tdtoBuyerBillingType = a})
680−
681−-- | If true, the offer targets all ad slots.
682−tdtoTargetingAllAdSlots :: Lens' TermsDTO (Maybe Bool)
683−tdtoTargetingAllAdSlots
684− = lens _tdtoTargetingAllAdSlots
685− (\ s a -> s{_tdtoTargetingAllAdSlots = a})
686−
687−-- | The urls applicable to the offer.
688−tdtoURLs :: Lens' TermsDTO [Text]
689−tdtoURLs
690− = lens _tdtoURLs (\ s a -> s{_tdtoURLs = a}) .
691− _Default
692− . _Coerce
693−
694−-- | The end date for the offer.
695−tdtoEndDate :: Lens' TermsDTO (Maybe DateTime)
696−tdtoEndDate
697− = lens _tdtoEndDate (\ s a -> s{_tdtoEndDate = a})
698−
699−-- | The cpm terms.
700−tdtoCpm :: Lens' TermsDTO (Maybe MoneyDTO)
701−tdtoCpm = lens _tdtoCpm (\ s a -> s{_tdtoCpm = a})
702−
703−-- | The estimated spend for the offer.
704−tdtoEstimatedSpend :: Lens' TermsDTO (Maybe MoneyDTO)
705−tdtoEstimatedSpend
706− = lens _tdtoEstimatedSpend
707− (\ s a -> s{_tdtoEstimatedSpend = a})
708−
709−-- | A list of advertisers for this offer.
710−tdtoAdvertisers :: Lens' TermsDTO [AdvertiserDTO]
711−tdtoAdvertisers
712− = lens _tdtoAdvertisers
713− (\ s a -> s{_tdtoAdvertisers = a})
714− . _Default
715− . _Coerce
716−
717−-- | The estimated daily impressions for the offer.
718−tdtoEstimatedImpressionsPerDay :: Lens' TermsDTO (Maybe Int64)
719−tdtoEstimatedImpressionsPerDay
720− = lens _tdtoEstimatedImpressionsPerDay
721− (\ s a -> s{_tdtoEstimatedImpressionsPerDay = a})
722− . mapping _Coerce
723−
724−-- | The monetizer type.
725−tdtoMonetizerType :: Lens' TermsDTO (Maybe Text)
726−tdtoMonetizerType
727− = lens _tdtoMonetizerType
728− (\ s a -> s{_tdtoMonetizerType = a})
729−
730−-- | A description of the audience segment for the offer.
731−tdtoAudienceSegmentDescription :: Lens' TermsDTO (Maybe Text)
732−tdtoAudienceSegmentDescription
733− = lens _tdtoAudienceSegmentDescription
734− (\ s a -> s{_tdtoAudienceSegmentDescription = a})
735−
736−-- | Whether to use publisher review policy or AdX review policy.
737−tdtoCreativeReviewPolicy :: Lens' TermsDTO (Maybe Text)
738−tdtoCreativeReviewPolicy
739− = lens _tdtoCreativeReviewPolicy
740− (\ s a -> s{_tdtoCreativeReviewPolicy = a})
741−
742−-- | The minimum true looks for the offer.
743−tdtoMinimumTrueLooks :: Lens' TermsDTO (Maybe Int64)
744−tdtoMinimumTrueLooks
745− = lens _tdtoMinimumTrueLooks
746− (\ s a -> s{_tdtoMinimumTrueLooks = a})
747− . mapping _Coerce
748−
749−-- | The start date for the offer.
750−tdtoStartDate :: Lens' TermsDTO (Maybe DateTime)
751−tdtoStartDate
752− = lens _tdtoStartDate
753− (\ s a -> s{_tdtoStartDate = a})
754−
755−-- | Whether to use or ignore publisher blocking rules.
756−tdtoCreativeBlockingLevel :: Lens' TermsDTO (Maybe Text)
757−tdtoCreativeBlockingLevel
758− = lens _tdtoCreativeBlockingLevel
759− (\ s a -> s{_tdtoCreativeBlockingLevel = a})
760−
761−-- | Whether this offer is semi-transparent.
762−tdtoSemiTransparent :: Lens' TermsDTO (Maybe Bool)
763−tdtoSemiTransparent
764− = lens _tdtoSemiTransparent
765− (\ s a -> s{_tdtoSemiTransparent = a})
766−
767−-- | The audience segment for the offer.
768−tdtoAudienceSegment :: Lens' TermsDTO (Maybe AudienceSegment)
769−tdtoAudienceSegment
770− = lens _tdtoAudienceSegment
771− (\ s a -> s{_tdtoAudienceSegment = a})
772−
773−-- | The premium terms.
774−tdtoDealPremium :: Lens' TermsDTO (Maybe MoneyDTO)
775−tdtoDealPremium
776− = lens _tdtoDealPremium
777− (\ s a -> s{_tdtoDealPremium = a})
778−
779−-- | Whether the offer is a reservation.
780−tdtoIsReservation :: Lens' TermsDTO (Maybe Bool)
781−tdtoIsReservation
782− = lens _tdtoIsReservation
783− (\ s a -> s{_tdtoIsReservation = a})
784−
785−-- | The particular ad slots targeted by the offer.
786−tdtoAdSlots :: Lens' TermsDTO [AdSlotDTO]
787−tdtoAdSlots
788− = lens _tdtoAdSlots (\ s a -> s{_tdtoAdSlots = a}) .
789− _Default
790− . _Coerce
791−
792−-- | A list of terms attributes.
793−tdtoTermsAttributes :: Lens' TermsDTO [Text]
794−tdtoTermsAttributes
795− = lens _tdtoTermsAttributes
796− (\ s a -> s{_tdtoTermsAttributes = a})
797− . _Default
798− . _Coerce
799−
800−-- | The inventory segment targeting for the offer.
801−tdtoInventorySegmentTargeting :: Lens' TermsDTO (Maybe InventorySegmentTargeting)
802−tdtoInventorySegmentTargeting
803− = lens _tdtoInventorySegmentTargeting
804− (\ s a -> s{_tdtoInventorySegmentTargeting = a})
805−
806−-- | A descriptive name for these terms.
807−tdtoDescriptiveName :: Lens' TermsDTO (Maybe Text)
808−tdtoDescriptiveName
809− = lens _tdtoDescriptiveName
810− (\ s a -> s{_tdtoDescriptiveName = a})
811−
812−-- | The minimum spend for the offer.
813−tdtoMinimumSpendMicros :: Lens' TermsDTO (Maybe Int64)
814−tdtoMinimumSpendMicros
815− = lens _tdtoMinimumSpendMicros
816− (\ s a -> s{_tdtoMinimumSpendMicros = a})
817− . mapping _Coerce
818−
819−-- | Whether to target by deal id.
820−tdtoTargetByDealId :: Lens' TermsDTO (Maybe Bool)
821−tdtoTargetByDealId
822− = lens _tdtoTargetByDealId
823− (\ s a -> s{_tdtoTargetByDealId = a})
824−
825−-- | The billing terms.
826−tdtoBillingTerms :: Lens' TermsDTO (Maybe Text)
827−tdtoBillingTerms
828− = lens _tdtoBillingTerms
829− (\ s a -> s{_tdtoBillingTerms = a})
830−
831−-- | A description for these terms.
832−tdtoDescription :: Lens' TermsDTO (Maybe Text)
833−tdtoDescription
834− = lens _tdtoDescription
835− (\ s a -> s{_tdtoDescription = a})
836−
837−instance FromJSON TermsDTO where
838− parseJSON
839− = withObject "TermsDTO"
840− (\ o ->
841− TermsDTO <$>
842− (o .:? "finalizeAutomatically") <*>
843− (o .:? "buyerBillingType")
844− <*> (o .:? "targetingAllAdSlots")
845− <*> (o .:? "urls" .!= mempty)
846− <*> (o .:? "endDate")
847− <*> (o .:? "cpm")
848− <*> (o .:? "estimatedSpend")
849− <*> (o .:? "advertisers" .!= mempty)
850− <*> (o .:? "estimatedImpressionsPerDay")
851− <*> (o .:? "monetizerType")
852− <*> (o .:? "audienceSegmentDescription")
853− <*> (o .:? "creativeReviewPolicy")
854− <*> (o .:? "minimumTrueLooks")
855− <*> (o .:? "startDate")
856− <*> (o .:? "creativeBlockingLevel")
857− <*> (o .:? "semiTransparent")
858− <*> (o .:? "audienceSegment")
859− <*> (o .:? "dealPremium")
860− <*> (o .:? "isReservation")
861− <*> (o .:? "adSlots" .!= mempty)
862− <*> (o .:? "termsAttributes" .!= mempty)
863− <*> (o .:? "inventorySegmentTargeting")
864− <*> (o .:? "descriptiveName")
865− <*> (o .:? "minimumSpendMicros")
866− <*> (o .:? "targetByDealId")
867− <*> (o .:? "billingTerms")
868− <*> (o .:? "description"))
869−
870−instance ToJSON TermsDTO where
871− toJSON TermsDTO{..}
872− = object
873− (catMaybes
874− [("finalizeAutomatically" .=) <$>
875− _tdtoFinalizeAutomatically,
876− ("buyerBillingType" .=) <$> _tdtoBuyerBillingType,
877− ("targetingAllAdSlots" .=) <$>
878− _tdtoTargetingAllAdSlots,
879− ("urls" .=) <$> _tdtoURLs,
880− ("endDate" .=) <$> _tdtoEndDate,
881− ("cpm" .=) <$> _tdtoCpm,
882− ("estimatedSpend" .=) <$> _tdtoEstimatedSpend,
883− ("advertisers" .=) <$> _tdtoAdvertisers,
884− ("estimatedImpressionsPerDay" .=) <$>
885− _tdtoEstimatedImpressionsPerDay,
886− ("monetizerType" .=) <$> _tdtoMonetizerType,
887− ("audienceSegmentDescription" .=) <$>
888− _tdtoAudienceSegmentDescription,
889− ("creativeReviewPolicy" .=) <$>
890− _tdtoCreativeReviewPolicy,
891− ("minimumTrueLooks" .=) <$> _tdtoMinimumTrueLooks,
892− ("startDate" .=) <$> _tdtoStartDate,
893− ("creativeBlockingLevel" .=) <$>
894− _tdtoCreativeBlockingLevel,
895− ("semiTransparent" .=) <$> _tdtoSemiTransparent,
896− ("audienceSegment" .=) <$> _tdtoAudienceSegment,
897− ("dealPremium" .=) <$> _tdtoDealPremium,
898− ("isReservation" .=) <$> _tdtoIsReservation,
899− ("adSlots" .=) <$> _tdtoAdSlots,
900− ("termsAttributes" .=) <$> _tdtoTermsAttributes,
901− ("inventorySegmentTargeting" .=) <$>
902− _tdtoInventorySegmentTargeting,
903− ("descriptiveName" .=) <$> _tdtoDescriptiveName,
904− ("minimumSpendMicros" .=) <$>
905− _tdtoMinimumSpendMicros,
906− ("targetByDealId" .=) <$> _tdtoTargetByDealId,
907− ("billingTerms" .=) <$> _tdtoBillingTerms,
908− ("description" .=) <$> _tdtoDescription])
909−
910492--
911493-- /See:/ 'createOrdersResponse' smart constructor.
912494newtype CreateOrdersResponse = CreateOrdersResponse
913− { _corOrders :: Maybe [MarketplaceOrder]
495+ { _corProposals :: Maybe [Proposal]
914496 } deriving (Eq,Show,Data,Typeable,Generic)
915497
916498-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
917499--
918500-- Use one of the following lenses to modify other fields as desired:
919501--
920−-- * 'corOrders'
502+-- * 'corProposals'
921503createOrdersResponse
922504 :: CreateOrdersResponse
923505createOrdersResponse =
924506 CreateOrdersResponse
925− { _corOrders = Nothing
507+ { _corProposals = Nothing
926508 }
927509
928−-- | The list of orders successfully created.
929−corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]
930−corOrders
931− = lens _corOrders (\ s a -> s{_corOrders = a}) .
932− _Default
510+-- | The list of proposals successfully created.
511+corProposals :: Lens' CreateOrdersResponse [Proposal]
512+corProposals
513+ = lens _corProposals (\ s a -> s{_corProposals = a})
514+ . _Default
933515 . _Coerce
934516
935517instance FromJSON CreateOrdersResponse where
936518 parseJSON
937519 = withObject "CreateOrdersResponse"
938520 (\ o ->
939− CreateOrdersResponse <$> (o .:? "orders" .!= mempty))
521+ CreateOrdersResponse <$>
522+ (o .:? "proposals" .!= mempty))
940523
941524instance ToJSON CreateOrdersResponse where
942525 toJSON CreateOrdersResponse{..}
943− = object (catMaybes [("orders" .=) <$> _corOrders])
526+ = object
527+ (catMaybes [("proposals" .=) <$> _corProposals])
944528
945529--
946530-- /See:/ 'accountBidderLocationItem' smart constructor.
@@ -1098,8 +682,8 @@ bCurrencyCode
1098682bKind :: Lens' Budget Text
1099683bKind = lens _bKind (\ s a -> s{_bKind = a})
1100684
1101−-- | The budget amount to apply for the billingId provided. This is required
1102−-- for update requests.
685+-- | The daily budget amount in unit amount of the account currency to apply
686+-- for the billingId provided. This is required for update requests.
1103687bBudgetAmount :: Lens' Budget (Maybe Int64)
1104688bBudgetAmount
1105689 = lens _bBudgetAmount
@@ -1180,47 +764,6 @@ instance ToJSON AddOrderNotesRequest where
1180764 toJSON AddOrderNotesRequest{..}
1181765 = object (catMaybes [("notes" .=) <$> _aonrNotes])
1182766
1183−--
1184−-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
1185−newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
1186− { _gfnbedirIncludePrivateAuctions :: Maybe Bool
1187− } deriving (Eq,Show,Data,Typeable,Generic)
1188−
1189−-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request.
1190−--
1191−-- Use one of the following lenses to modify other fields as desired:
1192−--
1193−-- * 'gfnbedirIncludePrivateAuctions'
1194−getFinalizedNegotiationByExternalDealIdRequest
1195− :: GetFinalizedNegotiationByExternalDealIdRequest
1196−getFinalizedNegotiationByExternalDealIdRequest =
1197− GetFinalizedNegotiationByExternalDealIdRequest
1198− { _gfnbedirIncludePrivateAuctions = Nothing
1199− }
1200−
1201−gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
1202−gfnbedirIncludePrivateAuctions
1203− = lens _gfnbedirIncludePrivateAuctions
1204− (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
1205−
1206−instance FromJSON
1207− GetFinalizedNegotiationByExternalDealIdRequest where
1208− parseJSON
1209− = withObject
1210− "GetFinalizedNegotiationByExternalDealIdRequest"
1211− (\ o ->
1212− GetFinalizedNegotiationByExternalDealIdRequest <$>
1213− (o .:? "includePrivateAuctions"))
1214−
1215−instance ToJSON
1216− GetFinalizedNegotiationByExternalDealIdRequest where
1217− toJSON
1218− GetFinalizedNegotiationByExternalDealIdRequest{..}
1219− = object
1220− (catMaybes
1221− [("includePrivateAuctions" .=) <$>
1222− _gfnbedirIncludePrivateAuctions])
1223−
1224767--
1225768-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
1226769data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
@@ -1280,131 +823,6 @@ instance ToJSON DeliveryControlFrequencyCap where
1280823 ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
1281824 ("timeUnitType" .=) <$> _dcfcTimeUnitType])
1282825
1283−--
1284−-- /See:/ 'dealPartyDTO' smart constructor.
1285−data DealPartyDTO = DealPartyDTO
1286− { _dpdtoBuyerSellerRole :: !(Maybe Text)
1287− , _dpdtoCustomerId :: !(Maybe (Textual Int32))
1288− , _dpdtoName :: !(Maybe Text)
1289− , _dpdtoWebProperty :: !(Maybe WebPropertyDTO)
1290− , _dpdtoBuyer :: !(Maybe BuyerDTO)
1291− } deriving (Eq,Show,Data,Typeable,Generic)
1292−
1293−-- | Creates a value of 'DealPartyDTO' with the minimum fields required to make a request.
1294−--
1295−-- Use one of the following lenses to modify other fields as desired:
1296−--
1297−-- * 'dpdtoBuyerSellerRole'
1298−--
1299−-- * 'dpdtoCustomerId'
1300−--
1301−-- * 'dpdtoName'
1302−--
1303−-- * 'dpdtoWebProperty'
1304−--
1305−-- * 'dpdtoBuyer'
1306−dealPartyDTO
1307− :: DealPartyDTO
1308−dealPartyDTO =
1309− DealPartyDTO
1310− { _dpdtoBuyerSellerRole = Nothing
1311− , _dpdtoCustomerId = Nothing
1312− , _dpdtoName = Nothing
1313− , _dpdtoWebProperty = Nothing
1314− , _dpdtoBuyer = Nothing
1315− }
1316−
1317−dpdtoBuyerSellerRole :: Lens' DealPartyDTO (Maybe Text)
1318−dpdtoBuyerSellerRole
1319− = lens _dpdtoBuyerSellerRole
1320− (\ s a -> s{_dpdtoBuyerSellerRole = a})
1321−
1322−dpdtoCustomerId :: Lens' DealPartyDTO (Maybe Int32)
1323−dpdtoCustomerId
1324− = lens _dpdtoCustomerId
1325− (\ s a -> s{_dpdtoCustomerId = a})
1326− . mapping _Coerce
1327−
1328−dpdtoName :: Lens' DealPartyDTO (Maybe Text)
1329−dpdtoName
1330− = lens _dpdtoName (\ s a -> s{_dpdtoName = a})
1331−
1332−dpdtoWebProperty :: Lens' DealPartyDTO (Maybe WebPropertyDTO)
1333−dpdtoWebProperty
1334− = lens _dpdtoWebProperty
1335− (\ s a -> s{_dpdtoWebProperty = a})
1336−
1337−dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO)
1338−dpdtoBuyer
1339− = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
1340−
1341−instance FromJSON DealPartyDTO where
1342− parseJSON
1343− = withObject "DealPartyDTO"
1344− (\ o ->
1345− DealPartyDTO <$>
1346− (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1347− <*> (o .:? "name")
1348− <*> (o .:? "webProperty")
1349− <*> (o .:? "buyer"))
1350−
1351−instance ToJSON DealPartyDTO where
1352− toJSON DealPartyDTO{..}
1353− = object
1354− (catMaybes
1355− [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1356− ("customerId" .=) <$> _dpdtoCustomerId,
1357− ("name" .=) <$> _dpdtoName,
1358− ("webProperty" .=) <$> _dpdtoWebProperty,
1359− ("buyer" .=) <$> _dpdtoBuyer])
1360−
1361−--
1362−-- /See:/ 'getNegotiationsResponse' smart constructor.
1363−data GetNegotiationsResponse = GetNegotiationsResponse
1364− { _gnrKind :: !Text
1365− , _gnrNegotiations :: !(Maybe [NegotiationDTO])
1366− } deriving (Eq,Show,Data,Typeable,Generic)
1367−
1368−-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.
1369−--
1370−-- Use one of the following lenses to modify other fields as desired:
1371−--
1372−-- * 'gnrKind'
1373−--
1374−-- * 'gnrNegotiations'
1375−getNegotiationsResponse
1376− :: GetNegotiationsResponse
1377−getNegotiationsResponse =
1378− GetNegotiationsResponse
1379− { _gnrKind = "adexchangebuyer#negotiationsList"
1380− , _gnrNegotiations = Nothing
1381− }
1382−
1383−gnrKind :: Lens' GetNegotiationsResponse Text
1384−gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})
1385−
1386−gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDTO]
1387−gnrNegotiations
1388− = lens _gnrNegotiations
1389− (\ s a -> s{_gnrNegotiations = a})
1390− . _Default
1391− . _Coerce
1392−
1393−instance FromJSON GetNegotiationsResponse where
1394− parseJSON
1395− = withObject "GetNegotiationsResponse"
1396− (\ o ->
1397− GetNegotiationsResponse <$>
1398− (o .:? "kind" .!= "adexchangebuyer#negotiationsList")
1399− <*> (o .:? "negotiations" .!= mempty))
1400−
1401−instance ToJSON GetNegotiationsResponse where
1402− toJSON GetNegotiationsResponse{..}
1403− = object
1404− (catMaybes
1405− [Just ("kind" .= _gnrKind),
1406− ("negotiations" .=) <$> _gnrNegotiations])
1407−
1408826--
1409827-- /See:/ 'marketplaceDealParty' smart constructor.
1410828data MarketplaceDealParty = MarketplaceDealParty
@@ -1487,84 +905,41 @@ instance ToJSON GetOrderNotesResponse where
1487905 toJSON GetOrderNotesResponse{..}
1488906 = object (catMaybes [("notes" .=) <$> _gonrNotes])
1489907
1490−--
1491−-- /See:/ 'ruleKeyValuePair' smart constructor.
1492−data RuleKeyValuePair = RuleKeyValuePair
1493− { _rkvpKeyName :: !(Maybe Text)
1494− , _rkvpValue :: !(Maybe Text)
1495− } deriving (Eq,Show,Data,Typeable,Generic)
1496−
1497−-- | Creates a value of 'RuleKeyValuePair' 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−-- * 'rkvpKeyName'
1502−--
1503−-- * 'rkvpValue'
1504−ruleKeyValuePair
1505− :: RuleKeyValuePair
1506−ruleKeyValuePair =
1507− RuleKeyValuePair
1508− { _rkvpKeyName = Nothing
1509− , _rkvpValue = Nothing
1510− }
1511−
1512−rkvpKeyName :: Lens' RuleKeyValuePair (Maybe Text)
1513−rkvpKeyName
1514− = lens _rkvpKeyName (\ s a -> s{_rkvpKeyName = a})
1515−
1516−rkvpValue :: Lens' RuleKeyValuePair (Maybe Text)
1517−rkvpValue
1518− = lens _rkvpValue (\ s a -> s{_rkvpValue = a})
1519−
1520−instance FromJSON RuleKeyValuePair where
1521− parseJSON
1522− = withObject "RuleKeyValuePair"
1523− (\ o ->
1524− RuleKeyValuePair <$>
1525− (o .:? "keyName") <*> (o .:? "value"))
1526−
1527−instance ToJSON RuleKeyValuePair where
1528− toJSON RuleKeyValuePair{..}
1529− = object
1530− (catMaybes
1531− [("keyName" .=) <$> _rkvpKeyName,
1532− ("value" .=) <$> _rkvpValue])
1533−
1534908--
1535909-- /See:/ 'getOrdersResponse' smart constructor.
1536910newtype GetOrdersResponse = GetOrdersResponse
1537− { _gorOrders :: Maybe [MarketplaceOrder]
911+ { _gorProposals :: Maybe [Proposal]
1538912 } deriving (Eq,Show,Data,Typeable,Generic)
1539913
1540914-- | Creates a value of 'GetOrdersResponse' with the minimum fields required to make a request.
1541915--
1542916-- Use one of the following lenses to modify other fields as desired:
1543917--
1544−-- * 'gorOrders'
918+-- * 'gorProposals'
1545919getOrdersResponse
1546920 :: GetOrdersResponse
1547921getOrdersResponse =
1548922 GetOrdersResponse
1549− { _gorOrders = Nothing
923+ { _gorProposals = Nothing
1550924 }
1551925
1552−-- | The list of matching orders.
1553−gorOrders :: Lens' GetOrdersResponse [MarketplaceOrder]
1554−gorOrders
1555− = lens _gorOrders (\ s a -> s{_gorOrders = a}) .
1556− _Default
926+-- | The list of matching proposals.
927+gorProposals :: Lens' GetOrdersResponse [Proposal]
928+gorProposals
929+ = lens _gorProposals (\ s a -> s{_gorProposals = a})
930+ . _Default
1557931 . _Coerce
1558932
1559933instance FromJSON GetOrdersResponse where
1560934 parseJSON
1561935 = withObject "GetOrdersResponse"
1562936 (\ o ->
1563− GetOrdersResponse <$> (o .:? "orders" .!= mempty))
937+ GetOrdersResponse <$> (o .:? "proposals" .!= mempty))
1564938
1565939instance ToJSON GetOrdersResponse where
1566940 toJSON GetOrdersResponse{..}
1567− = object (catMaybes [("orders" .=) <$> _gorOrders])
941+ = object
942+ (catMaybes [("proposals" .=) <$> _gorProposals])
1568943
1569944--
1570945-- /See:/ 'creativeServingRestrictionsItemDisApprovalReasonsItem' smart constructor.
@@ -1675,95 +1050,51 @@ instance ToJSON AccountsList where
16751050--
16761051-- /See:/ 'createOrdersRequest' smart constructor.
16771052data CreateOrdersRequest = CreateOrdersRequest
1678− { _cWebPropertyCode :: !(Maybe Text)
1679− , _cOrders :: !(Maybe [MarketplaceOrder])
1053+ { _cProposals :: !(Maybe [Proposal])
1054+ , _cWebPropertyCode :: !(Maybe Text)
16801055 } deriving (Eq,Show,Data,Typeable,Generic)
16811056
16821057-- | Creates a value of 'CreateOrdersRequest' with the minimum fields required to make a request.
16831058--
16841059-- Use one of the following lenses to modify other fields as desired:
16851060--
1686−-- * 'cWebPropertyCode'
1061+-- * 'cProposals'
16871062--
1688−-- * 'cOrders'
1063+-- * 'cWebPropertyCode'
16891064createOrdersRequest
16901065 :: CreateOrdersRequest
16911066createOrdersRequest =
16921067 CreateOrdersRequest
1693− { _cWebPropertyCode = Nothing
1694− , _cOrders = Nothing
1068+ { _cProposals = Nothing
1069+ , _cWebPropertyCode = Nothing
16951070 }
16961071
1072+-- | The list of proposals to create.
1073+cProposals :: Lens' CreateOrdersRequest [Proposal]
1074+cProposals
1075+ = lens _cProposals (\ s a -> s{_cProposals = a}) .
1076+ _Default
1077+ . _Coerce
1078+
16971079cWebPropertyCode :: Lens' CreateOrdersRequest (Maybe Text)
16981080cWebPropertyCode
16991081 = lens _cWebPropertyCode
17001082 (\ s a -> s{_cWebPropertyCode = a})
17011083
1702−-- | The list of orders to create.
1703−cOrders :: Lens' CreateOrdersRequest [MarketplaceOrder]
1704−cOrders
1705− = lens _cOrders (\ s a -> s{_cOrders = a}) . _Default
1706− . _Coerce
1707−
17081084instance FromJSON CreateOrdersRequest where
17091085 parseJSON
17101086 = withObject "CreateOrdersRequest"
17111087 (\ o ->
17121088 CreateOrdersRequest <$>
1713− (o .:? "webPropertyCode") <*>
1714− (o .:? "orders" .!= mempty))
1089+ (o .:? "proposals" .!= mempty) <*>
1090+ (o .:? "webPropertyCode"))
17151091
17161092instance ToJSON CreateOrdersRequest where
17171093 toJSON CreateOrdersRequest{..}
17181094 = object
17191095 (catMaybes
1720− [("webPropertyCode" .=) <$> _cWebPropertyCode,
1721− ("orders" .=) <$> _cOrders])
1722−
1723−--
1724−-- /See:/ 'adSize' smart constructor.
1725−data AdSize = AdSize
1726− { _asHeight :: !(Maybe (Textual Int32))
1727− , _asWidth :: !(Maybe (Textual Int32))
1728− } deriving (Eq,Show,Data,Typeable,Generic)
1729−
1730−-- | Creates a value of 'AdSize' with the minimum fields required to make a request.
1731−--
1732−-- Use one of the following lenses to modify other fields as desired:
1733−--
1734−-- * 'asHeight'
1735−--
1736−-- * 'asWidth'
1737−adSize
1738− :: AdSize
1739−adSize =
1740− AdSize
1741− { _asHeight = Nothing
1742− , _asWidth = Nothing
1743− }
1744−
1745−asHeight :: Lens' AdSize (Maybe Int32)
1746−asHeight
1747− = lens _asHeight (\ s a -> s{_asHeight = a}) .
1748− mapping _Coerce
1749−
1750−asWidth :: Lens' AdSize (Maybe Int32)
1751−asWidth
1752− = lens _asWidth (\ s a -> s{_asWidth = a}) .
1753− mapping _Coerce
1754−
1755−instance FromJSON AdSize where
1756− parseJSON
1757− = withObject "AdSize"
1758− (\ o ->
1759− AdSize <$> (o .:? "height") <*> (o .:? "width"))
1760−
1761−instance ToJSON AdSize where
1762− toJSON AdSize{..}
1763− = object
1764− (catMaybes
1765− [("height" .=) <$> _asHeight,
1766− ("width" .=) <$> _asWidth])
1096+ [("proposals" .=) <$> _cProposals,
1097+ ("webPropertyCode" .=) <$> _cWebPropertyCode])
17671098
17681099--
17691100-- /See:/ 'creativeCorrectionsItem' smart constructor.
@@ -1816,8 +1147,8 @@ instance ToJSON CreativeCorrectionsItem where
18161147--
18171148-- /See:/ 'addOrderDealsResponse' smart constructor.
18181149data AddOrderDealsResponse = AddOrderDealsResponse
1819− { _aodrDeals :: !(Maybe [MarketplaceDeal])
1820− , _aodrOrderRevisionNumber :: !(Maybe (Textual Int64))
1150+ { _aodrDeals :: !(Maybe [MarketplaceDeal])
1151+ , _aodrProposalRevisionNumber :: !(Maybe (Textual Int64))
18211152 } deriving (Eq,Show,Data,Typeable,Generic)
18221153
18231154-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
@@ -1826,27 +1157,27 @@ data AddOrderDealsResponse = AddOrderDealsResponse
18261157--
18271158-- * 'aodrDeals'
18281159--
1829−-- * 'aodrOrderRevisionNumber'
1160+-- * 'aodrProposalRevisionNumber'
18301161addOrderDealsResponse
18311162 :: AddOrderDealsResponse
18321163addOrderDealsResponse =
18331164 AddOrderDealsResponse
18341165 { _aodrDeals = Nothing
1835− , _aodrOrderRevisionNumber = Nothing
1166+ , _aodrProposalRevisionNumber = Nothing
18361167 }
18371168
1838−-- | List of deals added (in the same order as passed in the request)
1169+-- | List of deals added (in the same proposal as passed in the request)
18391170aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
18401171aodrDeals
18411172 = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
18421173 _Default
18431174 . _Coerce
18441175
1845−-- | The updated revision number for the order.
1846−aodrOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
1847−aodrOrderRevisionNumber
1848− = lens _aodrOrderRevisionNumber
1849− (\ s a -> s{_aodrOrderRevisionNumber = a})
1176+-- | The updated revision number for the proposal.
1177+aodrProposalRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
1178+aodrProposalRevisionNumber
1179+ = lens _aodrProposalRevisionNumber
1180+ (\ s a -> s{_aodrProposalRevisionNumber = a})
18501181 . mapping _Coerce
18511182
18521183instance FromJSON AddOrderDealsResponse where
@@ -1855,27 +1186,30 @@ instance FromJSON AddOrderDealsResponse where
18551186 (\ o ->
18561187 AddOrderDealsResponse <$>
18571188 (o .:? "deals" .!= mempty) <*>
1858− (o .:? "orderRevisionNumber"))
1189+ (o .:? "proposalRevisionNumber"))
18591190
18601191instance ToJSON AddOrderDealsResponse where
18611192 toJSON AddOrderDealsResponse{..}
18621193 = object
18631194 (catMaybes
18641195 [("deals" .=) <$> _aodrDeals,
1865− ("orderRevisionNumber" .=) <$>
1866− _aodrOrderRevisionNumber])
1196+ ("proposalRevisionNumber" .=) <$>
1197+ _aodrProposalRevisionNumber])
18671198
18681199--
18691200-- /See:/ 'deliveryControl' smart constructor.
18701201data DeliveryControl = DeliveryControl
1871− { _dcFrequencyCaps :: !(Maybe [DeliveryControlFrequencyCap])
1872− , _dcDeliveryRateType :: !(Maybe Text)
1202+ { _dcCreativeBlockingLevel :: !(Maybe Text)
1203+ , _dcFrequencyCaps :: !(Maybe [DeliveryControlFrequencyCap])
1204+ , _dcDeliveryRateType :: !(Maybe Text)
18731205 } deriving (Eq,Show,Data,Typeable,Generic)
18741206
18751207-- | Creates a value of 'DeliveryControl' with the minimum fields required to make a request.
18761208--
18771209-- Use one of the following lenses to modify other fields as desired:
18781210--
1211+-- * 'dcCreativeBlockingLevel'
1212+--
18791213-- * 'dcFrequencyCaps'
18801214--
18811215-- * 'dcDeliveryRateType'
@@ -1883,10 +1217,16 @@ deliveryControl
18831217 :: DeliveryControl
18841218deliveryControl =
18851219 DeliveryControl
1886− { _dcFrequencyCaps = Nothing
1220+ { _dcCreativeBlockingLevel = Nothing
1221+ , _dcFrequencyCaps = Nothing
18871222 , _dcDeliveryRateType = Nothing
18881223 }
18891224
1225+dcCreativeBlockingLevel :: Lens' DeliveryControl (Maybe Text)
1226+dcCreativeBlockingLevel
1227+ = lens _dcCreativeBlockingLevel
1228+ (\ s a -> s{_dcCreativeBlockingLevel = a})
1229+
18901230dcFrequencyCaps :: Lens' DeliveryControl [DeliveryControlFrequencyCap]
18911231dcFrequencyCaps
18921232 = lens _dcFrequencyCaps
@@ -1904,23 +1244,26 @@ instance FromJSON DeliveryControl where
19041244 = withObject "DeliveryControl"
19051245 (\ o ->
19061246 DeliveryControl <$>
1907− (o .:? "frequencyCaps" .!= mempty) <*>
1908− (o .:? "deliveryRateType"))
1247+ (o .:? "creativeBlockingLevel") <*>
1248+ (o .:? "frequencyCaps" .!= mempty)
1249+ <*> (o .:? "deliveryRateType"))
19091250
19101251instance ToJSON DeliveryControl where
19111252 toJSON DeliveryControl{..}
19121253 = object
19131254 (catMaybes
1914− [("frequencyCaps" .=) <$> _dcFrequencyCaps,
1255+ [("creativeBlockingLevel" .=) <$>
1256+ _dcCreativeBlockingLevel,
1257+ ("frequencyCaps" .=) <$> _dcFrequencyCaps,
19151258 ("deliveryRateType" .=) <$> _dcDeliveryRateType])
19161259
19171260-- | Used to specify pricing rules for buyers\/advertisers. Each
1918−-- PricePerBuyer in an offer can become [0,1] deals. To check if there is a
1919−-- PricePerBuyer for a particular buyer or buyer\/advertiser pair, we look
1920−-- for the most specific matching rule - we first look for a rule matching
1921−-- the buyer and advertiser, next a rule with the buyer but an empty
1922−-- advertiser list, and otherwise look for a matching rule where no buyer
1923−-- is set.
1261+-- PricePerBuyer in an product can become [0,1] deals. To check if there is
1262+-- a PricePerBuyer for a particular buyer or buyer\/advertiser pair, we
1263+-- look for the most specific matching rule - we first look for a rule
1264+-- matching the buyer and advertiser, next a rule with the buyer but an
1265+-- empty advertiser list, and otherwise look for a matching rule where no
1266+-- buyer is set.
19241267--
19251268-- /See:/ 'pricePerBuyer' smart constructor.
19261269data PricePerBuyer = PricePerBuyer
@@ -2291,7 +1634,7 @@ instance FromJSON Creative where
22911634 <*> (o .:? "version")
22921635 <*> (o .:? "sensitiveCategories" .!= mempty)
22931636 <*> (o .:? "videoURL")
2294− <*> (o .:? "api_upload_timestamp")
1637+ <*> (o .:? "apiUploadTimestamp")
22951638 <*> (o .:? "servingRestrictions" .!= mempty)
22961639 <*> (o .:? "openAuctionStatus"))
22971640
@@ -2323,7 +1666,7 @@ instance ToJSON Creative where
23231666 ("version" .=) <$> _cVersion,
23241667 ("sensitiveCategories" .=) <$> _cSensitiveCategories,
23251668 ("videoURL" .=) <$> _cVideoURL,
2326− ("api_upload_timestamp" .=) <$> _cAPIUploadTimestamp,
1669+ ("apiUploadTimestamp" .=) <$> _cAPIUploadTimestamp,
23271670 ("servingRestrictions" .=) <$> _cServingRestrictions,
23281671 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
23291672
@@ -2462,244 +1805,47 @@ instance ToJSON PretargetingConfigList where
24621805 ("items" .=) <$> _pclItems])
24631806
24641807--
2465−-- /See:/ 'buyerDTO' smart constructor.
2466−data BuyerDTO = BuyerDTO
2467− { _buySponsorAccountId :: !(Maybe (Textual Int32))
2468− , _buyEnabledForInterestTargetingDeals :: !(Maybe Bool)
2469− , _buyCustomerId :: !(Maybe (Textual Int32))
2470− , _buyEnabledForPreferredDeals :: !(Maybe Bool)
2471− , _buyAccountId :: !(Maybe (Textual Int32))
2472− , _buyDisplayName :: !(Maybe Text)
2473− , _buyId :: !(Maybe (Textual Int32))
1808+-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
1809+newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
1810+ { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
24741811 } deriving (Eq,Show,Data,Typeable,Generic)
24751812
2476−-- | Creates a value of 'BuyerDTO' with the minimum fields required to make a request.
1813+-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
24771814--
24781815-- Use one of the following lenses to modify other fields as desired:
24791816--
2480−-- * 'buySponsorAccountId'
2481−--
2482−-- * 'buyEnabledForInterestTargetingDeals'
2483−--
2484−-- * 'buyCustomerId'
2485−--
2486−-- * 'buyEnabledForPreferredDeals'
2487−--
2488−-- * 'buyAccountId'
2489−--
2490−-- * 'buyDisplayName'
2491−--
2492−-- * 'buyId'
2493−buyerDTO
2494− :: BuyerDTO
2495−buyerDTO =
2496− BuyerDTO
2497− { _buySponsorAccountId = Nothing
2498− , _buyEnabledForInterestTargetingDeals = Nothing
2499− , _buyCustomerId = Nothing
2500− , _buyEnabledForPreferredDeals = Nothing
2501− , _buyAccountId = Nothing
2502− , _buyDisplayName = Nothing
2503− , _buyId = Nothing
1817+-- * 'dtngfptFixedPrices'
1818+dealTermsNonGuaranteedFixedPriceTerms
1819+ :: DealTermsNonGuaranteedFixedPriceTerms
1820+dealTermsNonGuaranteedFixedPriceTerms =
1821+ DealTermsNonGuaranteedFixedPriceTerms
1822+ { _dtngfptFixedPrices = Nothing
25041823 }
25051824
2506−buySponsorAccountId :: Lens' BuyerDTO (Maybe Int32)
2507−buySponsorAccountId
2508− = lens _buySponsorAccountId
2509− (\ s a -> s{_buySponsorAccountId = a})
2510− . mapping _Coerce
2511−
2512−buyEnabledForInterestTargetingDeals :: Lens' BuyerDTO (Maybe Bool)
2513−buyEnabledForInterestTargetingDeals
2514− = lens _buyEnabledForInterestTargetingDeals
2515− (\ s a ->
2516− s{_buyEnabledForInterestTargetingDeals = a})
2517−
2518−buyCustomerId :: Lens' BuyerDTO (Maybe Int32)
2519−buyCustomerId
2520− = lens _buyCustomerId
2521− (\ s a -> s{_buyCustomerId = a})
2522− . mapping _Coerce
2523−
2524−buyEnabledForPreferredDeals :: Lens' BuyerDTO (Maybe Bool)
2525−buyEnabledForPreferredDeals
2526− = lens _buyEnabledForPreferredDeals
2527− (\ s a -> s{_buyEnabledForPreferredDeals = a})
2528−
2529−buyAccountId :: Lens' BuyerDTO (Maybe Int32)
2530−buyAccountId
2531− = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
2532− . mapping _Coerce
2533−
2534−buyDisplayName :: Lens' BuyerDTO (Maybe Text)
2535−buyDisplayName
2536− = lens _buyDisplayName
2537− (\ s a -> s{_buyDisplayName = a})
2538−
2539−buyId :: Lens' BuyerDTO (Maybe Int32)
2540−buyId
2541− = lens _buyId (\ s a -> s{_buyId = a}) .
2542− mapping _Coerce
1825+-- | Fixed price for the specified buyer.
1826+dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
1827+dtngfptFixedPrices
1828+ = lens _dtngfptFixedPrices
1829+ (\ s a -> s{_dtngfptFixedPrices = a})
1830+ . _Default
1831+ . _Coerce
25431832
2544−instance FromJSON BuyerDTO where
1833+instance FromJSON
1834+ DealTermsNonGuaranteedFixedPriceTerms where
25451835 parseJSON
2546− = withObject "BuyerDTO"
1836+ = withObject "DealTermsNonGuaranteedFixedPriceTerms"
25471837 (\ o ->
2548− BuyerDTO <$>
2549− (o .:? "sponsorAccountId") <*>
2550− (o .:? "enabledForInterestTargetingDeals")
2551− <*> (o .:? "customerId")
2552− <*> (o .:? "enabledForPreferredDeals")
2553− <*> (o .:? "accountId")
2554− <*> (o .:? "displayName")
2555− <*> (o .:? "id"))
1838+ DealTermsNonGuaranteedFixedPriceTerms <$>
1839+ (o .:? "fixedPrices" .!= mempty))
25561840
2557−instance ToJSON BuyerDTO where
2558− toJSON BuyerDTO{..}
1841+instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
1842+ where
1843+ toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
25591844 = object
25601845 (catMaybes
2561− [("sponsorAccountId" .=) <$> _buySponsorAccountId,
2562− ("enabledForInterestTargetingDeals" .=) <$>
2563− _buyEnabledForInterestTargetingDeals,
2564− ("customerId" .=) <$> _buyCustomerId,
2565− ("enabledForPreferredDeals" .=) <$>
2566− _buyEnabledForPreferredDeals,
2567− ("accountId" .=) <$> _buyAccountId,
2568− ("displayName" .=) <$> _buyDisplayName,
2569− ("id" .=) <$> _buyId])
2570−
2571−--
2572−-- /See:/ 'adSlotDTO' smart constructor.
2573−data AdSlotDTO = AdSlotDTO
2574− { _asdtoWebPropertyId :: !(Maybe (Textual Int32))
2575− , _asdtoSize :: !(Maybe Text)
2576− , _asdtoChannelCode :: !(Maybe Text)
2577− , _asdtoChannelId :: !(Maybe (Textual Int32))
2578− , _asdtoName :: !(Maybe Text)
2579− , _asdtoDescription :: !(Maybe Text)
2580− } deriving (Eq,Show,Data,Typeable,Generic)
1846+ [("fixedPrices" .=) <$> _dtngfptFixedPrices])
25811847
2582−-- | Creates a value of 'AdSlotDTO' with the minimum fields required to make a request.
2583−--
2584−-- Use one of the following lenses to modify other fields as desired:
2585−--
2586−-- * 'asdtoWebPropertyId'
2587−--
2588−-- * 'asdtoSize'
2589−--
2590−-- * 'asdtoChannelCode'
2591−--
2592−-- * 'asdtoChannelId'
2593−--
2594−-- * 'asdtoName'
2595−--
2596−-- * 'asdtoDescription'
2597−adSlotDTO
2598− :: AdSlotDTO
2599−adSlotDTO =
2600− AdSlotDTO
2601− { _asdtoWebPropertyId = Nothing
2602− , _asdtoSize = Nothing
2603− , _asdtoChannelCode = Nothing
2604− , _asdtoChannelId = Nothing
2605− , _asdtoName = Nothing
2606− , _asdtoDescription = Nothing
2607− }
2608−
2609−asdtoWebPropertyId :: Lens' AdSlotDTO (Maybe Int32)
2610−asdtoWebPropertyId
2611− = lens _asdtoWebPropertyId
2612− (\ s a -> s{_asdtoWebPropertyId = a})
2613− . mapping _Coerce
2614−
2615−asdtoSize :: Lens' AdSlotDTO (Maybe Text)
2616−asdtoSize
2617− = lens _asdtoSize (\ s a -> s{_asdtoSize = a})
2618−
2619−asdtoChannelCode :: Lens' AdSlotDTO (Maybe Text)
2620−asdtoChannelCode
2621− = lens _asdtoChannelCode
2622− (\ s a -> s{_asdtoChannelCode = a})
2623−
2624−asdtoChannelId :: Lens' AdSlotDTO (Maybe Int32)
2625−asdtoChannelId
2626− = lens _asdtoChannelId
2627− (\ s a -> s{_asdtoChannelId = a})
2628− . mapping _Coerce
2629−
2630−asdtoName :: Lens' AdSlotDTO (Maybe Text)
2631−asdtoName
2632− = lens _asdtoName (\ s a -> s{_asdtoName = a})
2633−
2634−asdtoDescription :: Lens' AdSlotDTO (Maybe Text)
2635−asdtoDescription
2636− = lens _asdtoDescription
2637− (\ s a -> s{_asdtoDescription = a})
2638−
2639−instance FromJSON AdSlotDTO where
2640− parseJSON
2641− = withObject "AdSlotDTO"
2642− (\ o ->
2643− AdSlotDTO <$>
2644− (o .:? "webPropertyId") <*> (o .:? "size") <*>
2645− (o .:? "channelCode")
2646− <*> (o .:? "channelId")
2647− <*> (o .:? "name")
2648− <*> (o .:? "description"))
2649−
2650−instance ToJSON AdSlotDTO where
2651− toJSON AdSlotDTO{..}
2652− = object
2653− (catMaybes
2654− [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2655− ("size" .=) <$> _asdtoSize,
2656− ("channelCode" .=) <$> _asdtoChannelCode,
2657− ("channelId" .=) <$> _asdtoChannelId,
2658− ("name" .=) <$> _asdtoName,
2659− ("description" .=) <$> _asdtoDescription])
2660−
2661−--
2662−-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2663−newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2664− { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
2665− } deriving (Eq,Show,Data,Typeable,Generic)
2666−
2667−-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2668−--
2669−-- Use one of the following lenses to modify other fields as desired:
2670−--
2671−-- * 'dtngfptFixedPrices'
2672−dealTermsNonGuaranteedFixedPriceTerms
2673− :: DealTermsNonGuaranteedFixedPriceTerms
2674−dealTermsNonGuaranteedFixedPriceTerms =
2675− DealTermsNonGuaranteedFixedPriceTerms
2676− { _dtngfptFixedPrices = Nothing
2677− }
2678−
2679−-- | Fixed price for the specified buyer.
2680−dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2681−dtngfptFixedPrices
2682− = lens _dtngfptFixedPrices
2683− (\ s a -> s{_dtngfptFixedPrices = a})
2684− . _Default
2685− . _Coerce
2686−
2687−instance FromJSON
2688− DealTermsNonGuaranteedFixedPriceTerms where
2689− parseJSON
2690− = withObject "DealTermsNonGuaranteedFixedPriceTerms"
2691− (\ o ->
2692− DealTermsNonGuaranteedFixedPriceTerms <$>
2693− (o .:? "fixedPrices" .!= mempty))
2694−
2695−instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2696− where
2697− toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
2698− = object
2699− (catMaybes
2700− [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2701−
2702−-- | The configuration data for an Ad Exchange performance report list.
1848+-- | The configuration data for an Ad Exchange performance report list.
27031849--
27041850-- /See:/ 'performanceReport' smart constructor.
27051851data PerformanceReport = PerformanceReport
@@ -3099,7 +2245,7 @@ seller =
30992245 }
31002246
31012247-- | The unique id for the seller. The seller fills in this field. The seller
3102−-- account id is then available to buyer in the offer.
2248+-- account id is then available to buyer in the product.
31032249sAccountId :: Lens' Seller (Maybe Text)
31042250sAccountId
31052251 = lens _sAccountId (\ s a -> s{_sAccountId = a})
@@ -3260,9 +2406,9 @@ instance ToJSON Account where
32602406--
32612407-- /See:/ 'deleteOrderDealsRequest' smart constructor.
32622408data DeleteOrderDealsRequest = DeleteOrderDealsRequest
3263− { _dodrUpdateAction :: !(Maybe Text)
3264− , _dodrDealIds :: !(Maybe [Text])
3265− , _dodrOrderRevisionNumber :: !(Maybe (Textual Int64))
2409+ { _dodrUpdateAction :: !(Maybe Text)
2410+ , _dodrDealIds :: !(Maybe [Text])
2411+ , _dodrProposalRevisionNumber :: !(Maybe (Textual Int64))
32662412 } deriving (Eq,Show,Data,Typeable,Generic)
32672413
32682414-- | Creates a value of 'DeleteOrderDealsRequest' with the minimum fields required to make a request.
@@ -3273,14 +2419,14 @@ data DeleteOrderDealsRequest = DeleteOrderDealsRequest
32732419--
32742420-- * 'dodrDealIds'
32752421--
3276−-- * 'dodrOrderRevisionNumber'
2422+-- * 'dodrProposalRevisionNumber'
32772423deleteOrderDealsRequest
32782424 :: DeleteOrderDealsRequest
32792425deleteOrderDealsRequest =
32802426 DeleteOrderDealsRequest
32812427 { _dodrUpdateAction = Nothing
32822428 , _dodrDealIds = Nothing
3283− , _dodrOrderRevisionNumber = Nothing
2429+ , _dodrProposalRevisionNumber = Nothing
32842430 }
32852431
32862432dodrUpdateAction :: Lens' DeleteOrderDealsRequest (Maybe Text)
@@ -3288,18 +2434,18 @@ dodrUpdateAction
32882434 = lens _dodrUpdateAction
32892435 (\ s a -> s{_dodrUpdateAction = a})
32902436
3291−-- | List of deals to delete for a given order
2437+-- | List of deals to delete for a given proposal
32922438dodrDealIds :: Lens' DeleteOrderDealsRequest [Text]
32932439dodrDealIds
32942440 = lens _dodrDealIds (\ s a -> s{_dodrDealIds = a}) .
32952441 _Default
32962442 . _Coerce
32972443
3298−-- | The last known order revision number.
3299−dodrOrderRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64)
3300−dodrOrderRevisionNumber
3301− = lens _dodrOrderRevisionNumber
3302− (\ s a -> s{_dodrOrderRevisionNumber = a})
2444+-- | The last known proposal revision number.
2445+dodrProposalRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64)
2446+dodrProposalRevisionNumber
2447+ = lens _dodrProposalRevisionNumber
2448+ (\ s a -> s{_dodrProposalRevisionNumber = a})
33032449 . mapping _Coerce
33042450
33052451instance FromJSON DeleteOrderDealsRequest where
@@ -3309,7 +2455,7 @@ instance FromJSON DeleteOrderDealsRequest where
33092455 DeleteOrderDealsRequest <$>
33102456 (o .:? "updateAction") <*>
33112457 (o .:? "dealIds" .!= mempty)
3312− <*> (o .:? "orderRevisionNumber"))
2458+ <*> (o .:? "proposalRevisionNumber"))
33132459
33142460instance ToJSON DeleteOrderDealsRequest where
33152461 toJSON DeleteOrderDealsRequest{..}
@@ -3317,8 +2463,8 @@ instance ToJSON DeleteOrderDealsRequest where
33172463 (catMaybes
33182464 [("updateAction" .=) <$> _dodrUpdateAction,
33192465 ("dealIds" .=) <$> _dodrDealIds,
3320− ("orderRevisionNumber" .=) <$>
3321− _dodrOrderRevisionNumber])
2466+ ("proposalRevisionNumber" .=) <$>
2467+ _dodrProposalRevisionNumber])
33222468
33232469--
33242470-- /See:/ 'contactInformation' smart constructor.
@@ -3438,7 +2584,7 @@ getOrderDealsResponse =
34382584 { _godrDeals = Nothing
34392585 }
34402586
3441−-- | List of deals for the order
2587+-- | List of deals for the proposal
34422588godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
34432589godrDeals
34442590 = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
@@ -3522,6 +2668,7 @@ data PretargetingConfig = PretargetingConfig
35222668 , _pcMobileDevices :: !(Maybe [Textual Int64])
35232669 , _pcLanguages :: !(Maybe [Text])
35242670 , _pcVerticals :: !(Maybe [Textual Int64])
2671+ , _pcVideoPlayerSizes :: !(Maybe [PretargetingConfigVideoPlayerSizesItem])
35252672 , _pcConfigId :: !(Maybe (Textual Int64))
35262673 , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem])
35272674 , _pcExcludedUserLists :: !(Maybe [Textual Int64])
@@ -3562,6 +2709,8 @@ data PretargetingConfig = PretargetingConfig
35622709--
35632710-- * 'pcVerticals'
35642711--
2712+-- * 'pcVideoPlayerSizes'
2713+--
35652714-- * 'pcConfigId'
35662715--
35672716-- * 'pcPlacements'
@@ -3600,6 +2749,7 @@ pretargetingConfig =
36002749 , _pcMobileDevices = Nothing
36012750 , _pcLanguages = Nothing
36022751 , _pcVerticals = Nothing
2752+ , _pcVideoPlayerSizes = Nothing
36032753 , _pcConfigId = Nothing
36042754 , _pcPlacements = Nothing
36052755 , _pcExcludedUserLists = Nothing
@@ -3702,6 +2852,15 @@ pcVerticals
37022852 _Default
37032853 . _Coerce
37042854
2855+-- | Video requests satisfying any of these player size constraints will
2856+-- match.
2857+pcVideoPlayerSizes :: Lens' PretargetingConfig [PretargetingConfigVideoPlayerSizesItem]
2858+pcVideoPlayerSizes
2859+ = lens _pcVideoPlayerSizes
2860+ (\ s a -> s{_pcVideoPlayerSizes = a})
2861+ . _Default
2862+ . _Coerce
2863+
37052864-- | The config id; generated automatically. Leave this field blank for
37062865-- insert requests.
37072866pcConfigId :: Lens' PretargetingConfig (Maybe Int64)
@@ -3812,6 +2971,7 @@ instance FromJSON PretargetingConfig where
38122971 <*> (o .:? "mobileDevices" .!= mempty)
38132972 <*> (o .:? "languages" .!= mempty)
38142973 <*> (o .:? "verticals" .!= mempty)
2974+ <*> (o .:? "videoPlayerSizes" .!= mempty)
38152975 <*> (o .:? "configId")
38162976 <*> (o .:? "placements" .!= mempty)
38172977 <*> (o .:? "excludedUserLists" .!= mempty)
@@ -3843,6 +3003,7 @@ instance ToJSON PretargetingConfig where
38433003 ("mobileDevices" .=) <$> _pcMobileDevices,
38443004 ("languages" .=) <$> _pcLanguages,
38453005 ("verticals" .=) <$> _pcVerticals,
3006+ ("videoPlayerSizes" .=) <$> _pcVideoPlayerSizes,
38463007 ("configId" .=) <$> _pcConfigId,
38473008 ("placements" .=) <$> _pcPlacements,
38483009 ("excludedUserLists" .=) <$> _pcExcludedUserLists,
@@ -3934,7 +3095,8 @@ targetingValueCreativeSize =
39343095 , _tvcsCreativeSizeType = Nothing
39353096 }
39363097
3937−-- | For regular creative size type, specifies the size of the creative.
3098+-- | For regular or video creative size type, specifies the size of the
3099+-- creative.
39383100tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)
39393101tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
39403102
@@ -3969,474 +3131,293 @@ instance ToJSON TargetingValueCreativeSize where
39693131 ("companionSizes" .=) <$> _tvcsCompanionSizes,
39703132 ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
39713133
3134+-- | Represents a proposal in the marketplace. A proposal is the unit of
3135+-- negotiation between a seller and a buyer and contains deals which are
3136+-- served. Each field in a proposal can have one of the following setting:
3137+-- (readonly) - It is an error to try and set this field. (buyer-readonly)
3138+-- - Only the seller can set this field. (seller-readonly) - Only the buyer
3139+-- can set this field. (updatable) - The field is updatable at all times by
3140+-- either buyer or the seller.
39723141--
3973−-- /See:/ 'negotiationDTO' smart constructor.
3974−data NegotiationDTO = NegotiationDTO
3975− { _ndtoNegotiationState :: !(Maybe Text)
3976− , _ndtoExternalDealId :: !(Maybe (Textual Int64))
3977− , _ndtoStatus :: !(Maybe Text)
3978− , _ndtoDealType :: !(Maybe Text)
3979− , _ndtoNegotiationRounds :: !(Maybe [NegotiationRoundDTO])
3980− , _ndtoKind :: !Text
3981− , _ndtoBilledBuyer :: !(Maybe DealPartyDTO)
3982− , _ndtoBuyerEmailContacts :: !(Maybe [Text])
3983− , _ndtoStats :: !(Maybe StatsDTO)
3984− , _ndtoSeller :: !(Maybe DealPartyDTO)
3985− , _ndtoLabelNames :: !(Maybe [Text])
3986− , _ndtoOfferId :: !(Maybe (Textual Int64))
3987− , _ndtoNegotiationId :: !(Maybe (Textual Int64))
3988− , _ndtoSellerEmailContacts :: !(Maybe [Text])
3989− , _ndtoBuyer :: !(Maybe DealPartyDTO)
3142+-- /See:/ 'proposal' smart constructor.
3143+data Proposal = Proposal
3144+ { _pBuyerPrivateData :: !(Maybe PrivateData)
3145+ , _pIsSetupComplete :: !(Maybe Bool)
3146+ , _pInventorySource :: !(Maybe Text)
3147+ , _pBuyerContacts :: !(Maybe [ContactInformation])
3148+ , _pKind :: !Text
3149+ , _pOriginatorRole :: !(Maybe Text)
3150+ , _pRevisionNumber :: !(Maybe (Textual Int64))
3151+ , _pBilledBuyer :: !(Maybe Buyer)
3152+ , _pIsRenegotiating :: !(Maybe Bool)
3153+ , _pHasSellerSignedOff :: !(Maybe Bool)
3154+ , _pSeller :: !(Maybe Seller)
3155+ , _pProposalId :: !(Maybe Text)
3156+ , _pName :: !(Maybe Text)
3157+ , _pSellerContacts :: !(Maybe [ContactInformation])
3158+ , _pLastUpdaterRole :: !(Maybe Text)
3159+ , _pLabels :: !(Maybe [MarketplaceLabel])
3160+ , _pRevisionTimeMs :: !(Maybe (Textual Int64))
3161+ , _pProposalState :: !(Maybe Text)
3162+ , _pLastUpdaterOrCommentorRole :: !(Maybe Text)
3163+ , _pHasBuyerSignedOff :: !(Maybe Bool)
3164+ , _pBuyer :: !(Maybe Buyer)
39903165 } deriving (Eq,Show,Data,Typeable,Generic)
39913166
3992−-- | Creates a value of 'NegotiationDTO' with the minimum fields required to make a request.
3167+-- | Creates a value of 'Proposal' with the minimum fields required to make a request.
39933168--
39943169-- Use one of the following lenses to modify other fields as desired:
39953170--
3996−-- * 'ndtoNegotiationState'
3997−--
3998−-- * 'ndtoExternalDealId'
3999−--
4000−-- * 'ndtoStatus'
4001−--
4002−-- * 'ndtoDealType'
4003−--
4004−-- * 'ndtoNegotiationRounds'
4005−--
4006−-- * 'ndtoKind'
4007−--
4008−-- * 'ndtoBilledBuyer'
3171+-- * 'pBuyerPrivateData'
40093172--
4010−-- * 'ndtoBuyerEmailContacts'
3173+-- * 'pIsSetupComplete'
40113174--
4012−-- * 'ndtoStats'
3175+-- * 'pInventorySource'
40133176--
4014−-- * 'ndtoSeller'
3177+-- * 'pBuyerContacts'
40153178--
4016−-- * 'ndtoLabelNames'
3179+-- * 'pKind'
40173180--
4018−-- * 'ndtoOfferId'
4019−--
4020−-- * 'ndtoNegotiationId'
4021−--
4022−-- * 'ndtoSellerEmailContacts'
4023−--
4024−-- * 'ndtoBuyer'
4025−negotiationDTO
4026− :: NegotiationDTO
4027−negotiationDTO =
4028− NegotiationDTO
4029− { _ndtoNegotiationState = Nothing
4030− , _ndtoExternalDealId = Nothing
4031− , _ndtoStatus = Nothing
4032− , _ndtoDealType = Nothing
4033− , _ndtoNegotiationRounds = Nothing
4034− , _ndtoKind = "adexchangebuyer#negotiation"
4035− , _ndtoBilledBuyer = Nothing
4036− , _ndtoBuyerEmailContacts = Nothing
4037− , _ndtoStats = Nothing
4038− , _ndtoSeller = Nothing
4039− , _ndtoLabelNames = Nothing
4040− , _ndtoOfferId = Nothing
4041− , _ndtoNegotiationId = Nothing
4042− , _ndtoSellerEmailContacts = Nothing
4043− , _ndtoBuyer = Nothing
4044− }
4045−
4046−-- | The state of this negotiation.
4047−ndtoNegotiationState :: Lens' NegotiationDTO (Maybe Text)
4048−ndtoNegotiationState
4049− = lens _ndtoNegotiationState
4050− (\ s a -> s{_ndtoNegotiationState = a})
4051−
4052−-- | For finalized negotiations, the ID of the finalized deal.
4053−ndtoExternalDealId :: Lens' NegotiationDTO (Maybe Int64)
4054−ndtoExternalDealId
4055− = lens _ndtoExternalDealId
4056− (\ s a -> s{_ndtoExternalDealId = a})
4057− . mapping _Coerce
4058−
4059−-- | The status of this negotiation.
4060−ndtoStatus :: Lens' NegotiationDTO (Maybe Text)
4061−ndtoStatus
4062− = lens _ndtoStatus (\ s a -> s{_ndtoStatus = a})
4063−
4064−-- | The type of this deal.
4065−ndtoDealType :: Lens' NegotiationDTO (Maybe Text)
4066−ndtoDealType
4067− = lens _ndtoDealType (\ s a -> s{_ndtoDealType = a})
4068−
4069−-- | The series of negotiation rounds for this negotiation.
4070−ndtoNegotiationRounds :: Lens' NegotiationDTO [NegotiationRoundDTO]
4071−ndtoNegotiationRounds
4072− = lens _ndtoNegotiationRounds
4073− (\ s a -> s{_ndtoNegotiationRounds = a})
4074− . _Default
4075− . _Coerce
4076−
4077−ndtoKind :: Lens' NegotiationDTO Text
4078−ndtoKind = lens _ndtoKind (\ s a -> s{_ndtoKind = a})
4079−
4080−-- | The billed buyer; Specified by a buyer buying through an intermediary.
4081−ndtoBilledBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4082−ndtoBilledBuyer
4083− = lens _ndtoBilledBuyer
4084− (\ s a -> s{_ndtoBilledBuyer = a})
4085−
4086−-- | The buyer party\'s contact email.
4087−ndtoBuyerEmailContacts :: Lens' NegotiationDTO [Text]
4088−ndtoBuyerEmailContacts
4089− = lens _ndtoBuyerEmailContacts
4090− (\ s a -> s{_ndtoBuyerEmailContacts = a})
4091− . _Default
4092− . _Coerce
4093−
4094−-- | The stats for this negotiation.
4095−ndtoStats :: Lens' NegotiationDTO (Maybe StatsDTO)
4096−ndtoStats
4097− = lens _ndtoStats (\ s a -> s{_ndtoStats = a})
4098−
4099−-- | Details of the seller party in this negotiation.
4100−ndtoSeller :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4101−ndtoSeller
4102− = lens _ndtoSeller (\ s a -> s{_ndtoSeller = a})
4103−
4104−-- | A list of label names applicable to this negotiation.
4105−ndtoLabelNames :: Lens' NegotiationDTO [Text]
4106−ndtoLabelNames
4107− = lens _ndtoLabelNames
4108− (\ s a -> s{_ndtoLabelNames = a})
4109− . _Default
4110− . _Coerce
4111−
4112−-- | The ID of this negotiation\'s original offer.
4113−ndtoOfferId :: Lens' NegotiationDTO (Maybe Int64)
4114−ndtoOfferId
4115− = lens _ndtoOfferId (\ s a -> s{_ndtoOfferId = a}) .
4116− mapping _Coerce
4117−
4118−-- | The unique ID of this negotiation.
4119−ndtoNegotiationId :: Lens' NegotiationDTO (Maybe Int64)
4120−ndtoNegotiationId
4121− = lens _ndtoNegotiationId
4122− (\ s a -> s{_ndtoNegotiationId = a})
4123− . mapping _Coerce
4124−
4125−-- | The seller party\'s contact email.
4126−ndtoSellerEmailContacts :: Lens' NegotiationDTO [Text]
4127−ndtoSellerEmailContacts
4128− = lens _ndtoSellerEmailContacts
4129− (\ s a -> s{_ndtoSellerEmailContacts = a})
4130− . _Default
4131− . _Coerce
4132−
4133−-- | Details of the buyer party in this negotiation.
4134−ndtoBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4135−ndtoBuyer
4136− = lens _ndtoBuyer (\ s a -> s{_ndtoBuyer = a})
4137−
4138−instance FromJSON NegotiationDTO where
4139− parseJSON
4140− = withObject "NegotiationDTO"
4141− (\ o ->
4142− NegotiationDTO <$>
4143− (o .:? "negotiationState") <*>
4144− (o .:? "externalDealId")
4145− <*> (o .:? "status")
4146− <*> (o .:? "dealType")
4147− <*> (o .:? "negotiationRounds" .!= mempty)
4148− <*> (o .:? "kind" .!= "adexchangebuyer#negotiation")
4149− <*> (o .:? "billedBuyer")
4150− <*> (o .:? "buyerEmailContacts" .!= mempty)
4151− <*> (o .:? "stats")
4152− <*> (o .:? "seller")
4153− <*> (o .:? "labelNames" .!= mempty)
4154− <*> (o .:? "offerId")
4155− <*> (o .:? "negotiationId")
4156− <*> (o .:? "sellerEmailContacts" .!= mempty)
4157− <*> (o .:? "buyer"))
4158−
4159−instance ToJSON NegotiationDTO where
4160− toJSON NegotiationDTO{..}
4161− = object
4162− (catMaybes
4163− [("negotiationState" .=) <$> _ndtoNegotiationState,
4164− ("externalDealId" .=) <$> _ndtoExternalDealId,
4165− ("status" .=) <$> _ndtoStatus,
4166− ("dealType" .=) <$> _ndtoDealType,
4167− ("negotiationRounds" .=) <$> _ndtoNegotiationRounds,
4168− Just ("kind" .= _ndtoKind),
4169− ("billedBuyer" .=) <$> _ndtoBilledBuyer,
4170− ("buyerEmailContacts" .=) <$>
4171− _ndtoBuyerEmailContacts,
4172− ("stats" .=) <$> _ndtoStats,
4173− ("seller" .=) <$> _ndtoSeller,
4174− ("labelNames" .=) <$> _ndtoLabelNames,
4175− ("offerId" .=) <$> _ndtoOfferId,
4176− ("negotiationId" .=) <$> _ndtoNegotiationId,
4177− ("sellerEmailContacts" .=) <$>
4178− _ndtoSellerEmailContacts,
4179− ("buyer" .=) <$> _ndtoBuyer])
4180−
4181−--
4182−-- /See:/ 'offerDTO' smart constructor.
4183−data OfferDTO = OfferDTO
4184− { _odtoCreator :: !(Maybe DealPartyDTO)
4185− , _odtoStatus :: !(Maybe Text)
4186− , _odtoOfferState :: !(Maybe Text)
4187− , _odtoPointOfContact :: !(Maybe Text)
4188− , _odtoTerms :: !(Maybe TermsDTO)
4189− , _odtoKind :: !Text
4190− , _odtoBilledBuyer :: !(Maybe DealPartyDTO)
4191− , _odtoOpenToDealParties :: !(Maybe [DealPartyDTO])
4192− , _odtoEmailContacts :: !(Maybe [Text])
4193− , _odtoLabelNames :: !(Maybe [Text])
4194− , _odtoOfferId :: !(Maybe (Textual Int64))
4195− , _odtoClosedToDealParties :: !(Maybe [DealPartyDTO])
4196− , _odtoAnonymous :: !(Maybe Bool)
4197− , _odtoIsOpen :: !(Maybe Bool)
4198− } deriving (Eq,Show,Data,Typeable,Generic)
4199−
4200−-- | Creates a value of 'OfferDTO' with the minimum fields required to make a request.
3181+-- * 'pOriginatorRole'
42013182--
4202−-- Use one of the following lenses to modify other fields as desired:
3183+-- * 'pRevisionNumber'
42033184--
4204−-- * 'odtoCreator'
3185+-- * 'pBilledBuyer'
42053186--
4206−-- * 'odtoStatus'
3187+-- * 'pIsRenegotiating'
42073188--
4208−-- * 'odtoOfferState'
3189+-- * 'pHasSellerSignedOff'
42093190--
4210−-- * 'odtoPointOfContact'
3191+-- * 'pSeller'
42113192--
4212−-- * 'odtoTerms'
3193+-- * 'pProposalId'
42133194--
4214−-- * 'odtoKind'
3195+-- * 'pName'
42153196--
4216−-- * 'odtoBilledBuyer'
3197+-- * 'pSellerContacts'
42173198--
4218−-- * 'odtoOpenToDealParties'
3199+-- * 'pLastUpdaterRole'
42193200--
4220−-- * 'odtoEmailContacts'
3201+-- * 'pLabels'
42213202--
4222−-- * 'odtoLabelNames'
3203+-- * 'pRevisionTimeMs'
42233204--
4224−-- * 'odtoOfferId'
3205+-- * 'pProposalState'
42253206--
4226−-- * 'odtoClosedToDealParties'
3207+-- * 'pLastUpdaterOrCommentorRole'
42273208--
4228−-- * 'odtoAnonymous'
3209+-- * 'pHasBuyerSignedOff'
42293210--
4230−-- * 'odtoIsOpen'
4231−offerDTO
4232− :: OfferDTO
4233−offerDTO =
4234− OfferDTO
4235− { _odtoCreator = Nothing
4236− , _odtoStatus = Nothing
4237− , _odtoOfferState = Nothing
4238− , _odtoPointOfContact = Nothing
4239− , _odtoTerms = Nothing
4240− , _odtoKind = "adexchangebuyer#offer"
4241− , _odtoBilledBuyer = Nothing
4242− , _odtoOpenToDealParties = Nothing
4243− , _odtoEmailContacts = Nothing
4244− , _odtoLabelNames = Nothing
4245− , _odtoOfferId = Nothing
4246− , _odtoClosedToDealParties = Nothing
4247− , _odtoAnonymous = Nothing
4248− , _odtoIsOpen = Nothing
3211+-- * 'pBuyer'
3212+proposal
3213+ :: Proposal
3214+proposal =
3215+ Proposal
3216+ { _pBuyerPrivateData = Nothing
3217+ , _pIsSetupComplete = Nothing
3218+ , _pInventorySource = Nothing
3219+ , _pBuyerContacts = Nothing
3220+ , _pKind = "adexchangebuyer#proposal"
3221+ , _pOriginatorRole = Nothing
3222+ , _pRevisionNumber = Nothing
3223+ , _pBilledBuyer = Nothing
3224+ , _pIsRenegotiating = Nothing
3225+ , _pHasSellerSignedOff = Nothing
3226+ , _pSeller = Nothing
3227+ , _pProposalId = Nothing
3228+ , _pName = Nothing
3229+ , _pSellerContacts = Nothing
3230+ , _pLastUpdaterRole = Nothing
3231+ , _pLabels = Nothing
3232+ , _pRevisionTimeMs = Nothing
3233+ , _pProposalState = Nothing
3234+ , _pLastUpdaterOrCommentorRole = Nothing
3235+ , _pHasBuyerSignedOff = Nothing
3236+ , _pBuyer = Nothing
42493237 }
42503238
4251−-- | The creator of this offer.
4252−odtoCreator :: Lens' OfferDTO (Maybe DealPartyDTO)
4253−odtoCreator
4254− = lens _odtoCreator (\ s a -> s{_odtoCreator = a})
4255−
4256−-- | The status of this offer.
4257−odtoStatus :: Lens' OfferDTO (Maybe Text)
4258−odtoStatus
4259− = lens _odtoStatus (\ s a -> s{_odtoStatus = a})
4260−
4261−-- | The state of this offer.
4262−odtoOfferState :: Lens' OfferDTO (Maybe Text)
4263−odtoOfferState
4264− = lens _odtoOfferState
4265− (\ s a -> s{_odtoOfferState = a})
4266−
4267−-- | The point of contact for this offer.
4268−odtoPointOfContact :: Lens' OfferDTO (Maybe Text)
4269−odtoPointOfContact
4270− = lens _odtoPointOfContact
4271− (\ s a -> s{_odtoPointOfContact = a})
4272−
4273−-- | The terms of this offer.
4274−odtoTerms :: Lens' OfferDTO (Maybe TermsDTO)
4275−odtoTerms
4276− = lens _odtoTerms (\ s a -> s{_odtoTerms = a})
4277−
4278−odtoKind :: Lens' OfferDTO Text
4279−odtoKind = lens _odtoKind (\ s a -> s{_odtoKind = a})
4280−
4281−-- | The billed buyer; For buyer initiated offers, buying through an
4282−-- intermediary.
4283−odtoBilledBuyer :: Lens' OfferDTO (Maybe DealPartyDTO)
4284−odtoBilledBuyer
4285− = lens _odtoBilledBuyer
4286− (\ s a -> s{_odtoBilledBuyer = a})
4287−
4288−-- | The list of buyer or seller parties this offer is open to.
4289−odtoOpenToDealParties :: Lens' OfferDTO [DealPartyDTO]
4290−odtoOpenToDealParties
4291− = lens _odtoOpenToDealParties
4292− (\ s a -> s{_odtoOpenToDealParties = a})
4293− . _Default
4294− . _Coerce
3239+-- | Private data for buyer. (hidden from seller).
3240+pBuyerPrivateData :: Lens' Proposal (Maybe PrivateData)
3241+pBuyerPrivateData
3242+ = lens _pBuyerPrivateData
3243+ (\ s a -> s{_pBuyerPrivateData = a})
42953244
4296−-- | The list of email contacts for this offer.
4297−odtoEmailContacts :: Lens' OfferDTO [Text]
4298−odtoEmailContacts
4299− = lens _odtoEmailContacts
4300− (\ s a -> s{_odtoEmailContacts = a})
4301− . _Default
4302− . _Coerce
3245+-- | True, if the buyside inventory setup is complete for this proposal.
3246+-- (readonly)
3247+pIsSetupComplete :: Lens' Proposal (Maybe Bool)
3248+pIsSetupComplete
3249+ = lens _pIsSetupComplete
3250+ (\ s a -> s{_pIsSetupComplete = a})
3251+
3252+-- | What exchange will provide this inventory (readonly, except on create).
3253+pInventorySource :: Lens' Proposal (Maybe Text)
3254+pInventorySource
3255+ = lens _pInventorySource
3256+ (\ s a -> s{_pInventorySource = a})
43033257
4304−-- | The list of label names applicable to this offer.
4305−odtoLabelNames :: Lens' OfferDTO [Text]
4306−odtoLabelNames
4307− = lens _odtoLabelNames
4308− (\ s a -> s{_odtoLabelNames = a})
3258+-- | Optional contact information fort the buyer. (seller-readonly)
3259+pBuyerContacts :: Lens' Proposal [ContactInformation]
3260+pBuyerContacts
3261+ = lens _pBuyerContacts
3262+ (\ s a -> s{_pBuyerContacts = a})
43093263 . _Default
43103264 . _Coerce
43113265
4312−-- | The unique ID of this offer.
4313−odtoOfferId :: Lens' OfferDTO (Maybe Int64)
4314−odtoOfferId
4315− = lens _odtoOfferId (\ s a -> s{_odtoOfferId = a}) .
4316− mapping _Coerce
3266+-- | Identifies what kind of resource this is. Value: the fixed string
3267+-- \"adexchangebuyer#proposal\".
3268+pKind :: Lens' Proposal Text
3269+pKind = lens _pKind (\ s a -> s{_pKind = a})
3270+
3271+-- | Indicates whether the buyer\/seller created the proposal.(readonly)
3272+pOriginatorRole :: Lens' Proposal (Maybe Text)
3273+pOriginatorRole
3274+ = lens _pOriginatorRole
3275+ (\ s a -> s{_pOriginatorRole = a})
3276+
3277+-- | The revision number for the proposal (readonly).
3278+pRevisionNumber :: Lens' Proposal (Maybe Int64)
3279+pRevisionNumber
3280+ = lens _pRevisionNumber
3281+ (\ s a -> s{_pRevisionNumber = a})
3282+ . mapping _Coerce
43173283
4318−-- | The list of buyer or seller parties this offer is closed to.
4319−odtoClosedToDealParties :: Lens' OfferDTO [DealPartyDTO]
4320−odtoClosedToDealParties
4321− = lens _odtoClosedToDealParties
4322− (\ s a -> s{_odtoClosedToDealParties = a})
3284+-- | Reference to the buyer that will get billed for this proposal.
3285+-- (readonly)
3286+pBilledBuyer :: Lens' Proposal (Maybe Buyer)
3287+pBilledBuyer
3288+ = lens _pBilledBuyer (\ s a -> s{_pBilledBuyer = a})
3289+
3290+-- | True if the proposal is being renegotiated (readonly).
3291+pIsRenegotiating :: Lens' Proposal (Maybe Bool)
3292+pIsRenegotiating
3293+ = lens _pIsRenegotiating
3294+ (\ s a -> s{_pIsRenegotiating = a})
3295+
3296+-- | When an proposal is in an accepted state, indicates whether the buyer
3297+-- has signed off Once both sides have signed off on a deal, the proposal
3298+-- can be finalized by the seller. (buyer-readonly)
3299+pHasSellerSignedOff :: Lens' Proposal (Maybe Bool)
3300+pHasSellerSignedOff
3301+ = lens _pHasSellerSignedOff
3302+ (\ s a -> s{_pHasSellerSignedOff = a})
3303+
3304+-- | Reference to the seller on the proposal. (readonly, except on create)
3305+pSeller :: Lens' Proposal (Maybe Seller)
3306+pSeller = lens _pSeller (\ s a -> s{_pSeller = a})
3307+
3308+-- | The unique id of the proposal. (readonly).
3309+pProposalId :: Lens' Proposal (Maybe Text)
3310+pProposalId
3311+ = lens _pProposalId (\ s a -> s{_pProposalId = a})
3312+
3313+-- | The name for the proposal (updatable)
3314+pName :: Lens' Proposal (Maybe Text)
3315+pName = lens _pName (\ s a -> s{_pName = a})
3316+
3317+-- | Optional contact information for the seller (buyer-readonly).
3318+pSellerContacts :: Lens' Proposal [ContactInformation]
3319+pSellerContacts
3320+ = lens _pSellerContacts
3321+ (\ s a -> s{_pSellerContacts = a})
43233322 . _Default
43243323 . _Coerce
43253324
4326−-- | Whether this offer is anonymous.
4327−odtoAnonymous :: Lens' OfferDTO (Maybe Bool)
4328−odtoAnonymous
4329− = lens _odtoAnonymous
4330− (\ s a -> s{_odtoAnonymous = a})
4331−
4332−-- | Whether this offer is open.
4333−odtoIsOpen :: Lens' OfferDTO (Maybe Bool)
4334−odtoIsOpen
4335− = lens _odtoIsOpen (\ s a -> s{_odtoIsOpen = a})
4336−
4337−instance FromJSON OfferDTO where
4338− parseJSON
4339− = withObject "OfferDTO"
4340− (\ o ->
4341− OfferDTO <$>
4342− (o .:? "creator") <*> (o .:? "status") <*>
4343− (o .:? "offerState")
4344− <*> (o .:? "pointOfContact")
4345− <*> (o .:? "terms")
4346− <*> (o .:? "kind" .!= "adexchangebuyer#offer")
4347− <*> (o .:? "billedBuyer")
4348− <*> (o .:? "openToDealParties" .!= mempty)
4349− <*> (o .:? "emailContacts" .!= mempty)
4350− <*> (o .:? "labelNames" .!= mempty)
4351− <*> (o .:? "offerId")
4352− <*> (o .:? "closedToDealParties" .!= mempty)
4353− <*> (o .:? "anonymous")
4354− <*> (o .:? "isOpen"))
4355−
4356−instance ToJSON OfferDTO where
4357− toJSON OfferDTO{..}
4358− = object
4359− (catMaybes
4360− [("creator" .=) <$> _odtoCreator,
4361− ("status" .=) <$> _odtoStatus,
4362− ("offerState" .=) <$> _odtoOfferState,
4363− ("pointOfContact" .=) <$> _odtoPointOfContact,
4364− ("terms" .=) <$> _odtoTerms,
4365− Just ("kind" .= _odtoKind),
4366− ("billedBuyer" .=) <$> _odtoBilledBuyer,
4367− ("openToDealParties" .=) <$> _odtoOpenToDealParties,
4368− ("emailContacts" .=) <$> _odtoEmailContacts,
4369− ("labelNames" .=) <$> _odtoLabelNames,
4370− ("offerId" .=) <$> _odtoOfferId,
4371− ("closedToDealParties" .=) <$>
4372− _odtoClosedToDealParties,
4373− ("anonymous" .=) <$> _odtoAnonymous,
4374− ("isOpen" .=) <$> _odtoIsOpen])
4375−
4376−--
4377−-- /See:/ 'audienceSegment' smart constructor.
4378−data AudienceSegment = AudienceSegment
4379− { _asNumCookies :: !(Maybe (Textual Int64))
4380− , _asName :: !(Maybe Text)
4381− , _asId :: !(Maybe (Textual Int64))
4382− , _asDescription :: !(Maybe Text)
4383− } deriving (Eq,Show,Data,Typeable,Generic)
3325+pLastUpdaterRole :: Lens' Proposal (Maybe Text)
3326+pLastUpdaterRole
3327+ = lens _pLastUpdaterRole
3328+ (\ s a -> s{_pLastUpdaterRole = a})
43843329
4385−-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request.
4386−--
4387−-- Use one of the following lenses to modify other fields as desired:
4388−--
4389−-- * 'asNumCookies'
4390−--
4391−-- * 'asName'
4392−--
4393−-- * 'asId'
4394−--
4395−-- * 'asDescription'
4396−audienceSegment
4397− :: AudienceSegment
4398−audienceSegment =
4399− AudienceSegment
4400− { _asNumCookies = Nothing
4401− , _asName = Nothing
4402− , _asId = Nothing
4403− , _asDescription = Nothing
4404− }
3330+-- | List of labels associated with the proposal. (readonly)
3331+pLabels :: Lens' Proposal [MarketplaceLabel]
3332+pLabels
3333+ = lens _pLabels (\ s a -> s{_pLabels = a}) . _Default
3334+ . _Coerce
44053335
4406−asNumCookies :: Lens' AudienceSegment (Maybe Int64)
4407−asNumCookies
4408− = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
3336+-- | The time (ms since epoch) when the proposal was last revised (readonly).
3337+pRevisionTimeMs :: Lens' Proposal (Maybe Int64)
3338+pRevisionTimeMs
3339+ = lens _pRevisionTimeMs
3340+ (\ s a -> s{_pRevisionTimeMs = a})
44093341 . mapping _Coerce
44103342
4411−asName :: Lens' AudienceSegment (Maybe Text)
4412−asName = lens _asName (\ s a -> s{_asName = a})
3343+-- | The current state of the proposal. (readonly)
3344+pProposalState :: Lens' Proposal (Maybe Text)
3345+pProposalState
3346+ = lens _pProposalState
3347+ (\ s a -> s{_pProposalState = a})
44133348
4414−asId :: Lens' AudienceSegment (Maybe Int64)
4415−asId
4416− = lens _asId (\ s a -> s{_asId = a}) .
4417− mapping _Coerce
4418−
4419−asDescription :: Lens' AudienceSegment (Maybe Text)
4420−asDescription
4421− = lens _asDescription
4422− (\ s a -> s{_asDescription = a})
4423−
4424−instance FromJSON AudienceSegment where
3349+-- | The role of the last user that either updated the proposal or left a
3350+-- comment. (readonly)
3351+pLastUpdaterOrCommentorRole :: Lens' Proposal (Maybe Text)
3352+pLastUpdaterOrCommentorRole
3353+ = lens _pLastUpdaterOrCommentorRole
3354+ (\ s a -> s{_pLastUpdaterOrCommentorRole = a})
3355+
3356+-- | When an proposal is in an accepted state, indicates whether the buyer
3357+-- has signed off Once both sides have signed off on a deal, the proposal
3358+-- can be finalized by the seller. (seller-readonly)
3359+pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool)
3360+pHasBuyerSignedOff
3361+ = lens _pHasBuyerSignedOff
3362+ (\ s a -> s{_pHasBuyerSignedOff = a})
3363+
3364+-- | Reference to the buyer on the proposal. (readonly, except on create)
3365+pBuyer :: Lens' Proposal (Maybe Buyer)
3366+pBuyer = lens _pBuyer (\ s a -> s{_pBuyer = a})
3367+
3368+instance FromJSON Proposal where
44253369 parseJSON
4426− = withObject "AudienceSegment"
3370+ = withObject "Proposal"
44273371 (\ o ->
4428− AudienceSegment <$>
4429− (o .:? "numCookies") <*> (o .:? "name") <*>
4430− (o .:? "id")
4431− <*> (o .:? "description"))
3372+ Proposal <$>
3373+ (o .:? "buyerPrivateData") <*>
3374+ (o .:? "isSetupComplete")
3375+ <*> (o .:? "inventorySource")
3376+ <*> (o .:? "buyerContacts" .!= mempty)
3377+ <*> (o .:? "kind" .!= "adexchangebuyer#proposal")
3378+ <*> (o .:? "originatorRole")
3379+ <*> (o .:? "revisionNumber")
3380+ <*> (o .:? "billedBuyer")
3381+ <*> (o .:? "isRenegotiating")
3382+ <*> (o .:? "hasSellerSignedOff")
3383+ <*> (o .:? "seller")
3384+ <*> (o .:? "proposalId")
3385+ <*> (o .:? "name")
3386+ <*> (o .:? "sellerContacts" .!= mempty)
3387+ <*> (o .:? "lastUpdaterRole")
3388+ <*> (o .:? "labels" .!= mempty)
3389+ <*> (o .:? "revisionTimeMs")
3390+ <*> (o .:? "proposalState")
3391+ <*> (o .:? "lastUpdaterOrCommentorRole")
3392+ <*> (o .:? "hasBuyerSignedOff")
3393+ <*> (o .:? "buyer"))
44323394
4433−instance ToJSON AudienceSegment where
4434− toJSON AudienceSegment{..}
3395+instance ToJSON Proposal where
3396+ toJSON Proposal{..}
44353397 = object
44363398 (catMaybes
4437− [("numCookies" .=) <$> _asNumCookies,
4438− ("name" .=) <$> _asName, ("id" .=) <$> _asId,
4439− ("description" .=) <$> _asDescription])
3399+ [("buyerPrivateData" .=) <$> _pBuyerPrivateData,
3400+ ("isSetupComplete" .=) <$> _pIsSetupComplete,
3401+ ("inventorySource" .=) <$> _pInventorySource,
3402+ ("buyerContacts" .=) <$> _pBuyerContacts,
3403+ Just ("kind" .= _pKind),
3404+ ("originatorRole" .=) <$> _pOriginatorRole,
3405+ ("revisionNumber" .=) <$> _pRevisionNumber,
3406+ ("billedBuyer" .=) <$> _pBilledBuyer,
3407+ ("isRenegotiating" .=) <$> _pIsRenegotiating,
3408+ ("hasSellerSignedOff" .=) <$> _pHasSellerSignedOff,
3409+ ("seller" .=) <$> _pSeller,
3410+ ("proposalId" .=) <$> _pProposalId,
3411+ ("name" .=) <$> _pName,
3412+ ("sellerContacts" .=) <$> _pSellerContacts,
3413+ ("lastUpdaterRole" .=) <$> _pLastUpdaterRole,
3414+ ("labels" .=) <$> _pLabels,
3415+ ("revisionTimeMs" .=) <$> _pRevisionTimeMs,
3416+ ("proposalState" .=) <$> _pProposalState,
3417+ ("lastUpdaterOrCommentorRole" .=) <$>
3418+ _pLastUpdaterOrCommentorRole,
3419+ ("hasBuyerSignedOff" .=) <$> _pHasBuyerSignedOff,
3420+ ("buyer" .=) <$> _pBuyer])
44403421
44413422-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
44423423-- access to. Each entry in the feed corresponds to a single billing info.
@@ -4488,520 +3469,86 @@ instance ToJSON BillingInfoList where
44883469 [Just ("kind" .= _bilKind),
44893470 ("items" .=) <$> _bilItems])
44903471
4491−-- | An offer is segment of inventory that a seller wishes to sell. It is
4492−-- associated with certain terms and targeting information which helps
4493−-- buyer know more about the inventory. Each field in an order can have one
4494−-- of the following setting: (readonly) - It is an error to try and set
4495−-- this field. (buyer-readonly) - Only the seller can set this field.
4496−-- (seller-readonly) - Only the buyer can set this field. (updatable) - The
4497−-- field is updatable at all times by either buyer or the seller.
44983472--
4499−-- /See:/ 'marketplaceOffer' smart constructor.
4500−data MarketplaceOffer = MarketplaceOffer
4501− { _moState :: !(Maybe Text)
4502− , _moWebPropertyCode :: !(Maybe Text)
4503− , _moCreationTimeMs :: !(Maybe (Textual Int64))
4504− , _moTerms :: !(Maybe DealTerms)
4505− , _moLastUpdateTimeMs :: !(Maybe (Textual Int64))
4506− , _moKind :: !Text
4507− , _moRevisionNumber :: !(Maybe (Textual Int64))
4508− , _moHasCreatorSignedOff :: !(Maybe Bool)
4509− , _moFlightStartTimeMs :: !(Maybe (Textual Int64))
4510− , _moSharedTargetings :: !(Maybe [SharedTargeting])
4511− , _moSeller :: !(Maybe Seller)
4512− , _moSyndicationProduct :: !(Maybe Text)
4513− , _moFlightEndTimeMs :: !(Maybe (Textual Int64))
4514− , _moName :: !(Maybe Text)
4515− , _moCreatorContacts :: !(Maybe [ContactInformation])
4516− , _moOfferId :: !(Maybe Text)
4517− , _moLabels :: !(Maybe [MarketplaceLabel])
3473+-- /See:/ 'addOrderNotesResponse' smart constructor.
3474+newtype AddOrderNotesResponse = AddOrderNotesResponse
3475+ { _aNotes :: Maybe [MarketplaceNote]
45183476 } deriving (Eq,Show,Data,Typeable,Generic)
45193477
4520−-- | Creates a value of 'MarketplaceOffer' with the minimum fields required to make a request.
3478+-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.
45213479--
45223480-- Use one of the following lenses to modify other fields as desired:
45233481--
4524−-- * 'moState'
4525−--
4526−-- * 'moWebPropertyCode'
4527−--
4528−-- * 'moCreationTimeMs'
4529−--
4530−-- * 'moTerms'
4531−--
4532−-- * 'moLastUpdateTimeMs'
4533−--
4534−-- * 'moKind'
4535−--
4536−-- * 'moRevisionNumber'
4537−--
4538−-- * 'moHasCreatorSignedOff'
4539−--
4540−-- * 'moFlightStartTimeMs'
4541−--
4542−-- * 'moSharedTargetings'
4543−--
4544−-- * 'moSeller'
4545−--
4546−-- * 'moSyndicationProduct'
4547−--
4548−-- * 'moFlightEndTimeMs'
3482+-- * 'aNotes'
3483+addOrderNotesResponse
3484+ :: AddOrderNotesResponse
3485+addOrderNotesResponse =
3486+ AddOrderNotesResponse
3487+ { _aNotes = Nothing
3488+ }
3489+
3490+aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
3491+aNotes
3492+ = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
3493+ _Coerce
3494+
3495+instance FromJSON AddOrderNotesResponse where
3496+ parseJSON
3497+ = withObject "AddOrderNotesResponse"
3498+ (\ o ->
3499+ AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
3500+
3501+instance ToJSON AddOrderNotesResponse where
3502+ toJSON AddOrderNotesResponse{..}
3503+ = object (catMaybes [("notes" .=) <$> _aNotes])
3504+
45493505--
4550−-- * 'moName'
3506+-- /See:/ 'targetingValueSize' smart constructor.
3507+data TargetingValueSize = TargetingValueSize
3508+ { _tvsHeight :: !(Maybe (Textual Int32))
3509+ , _tvsWidth :: !(Maybe (Textual Int32))
3510+ } deriving (Eq,Show,Data,Typeable,Generic)
3511+
3512+-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
45513513--
4552−-- * 'moCreatorContacts'
3514+-- Use one of the following lenses to modify other fields as desired:
45533515--
4554−-- * 'moOfferId'
3516+-- * 'tvsHeight'
45553517--
4556−-- * 'moLabels'
4557−marketplaceOffer
4558− :: MarketplaceOffer
4559−marketplaceOffer =
4560− MarketplaceOffer
4561− { _moState = Nothing
4562− , _moWebPropertyCode = Nothing
4563− , _moCreationTimeMs = Nothing
4564− , _moTerms = Nothing
4565− , _moLastUpdateTimeMs = Nothing
4566− , _moKind = "adexchangebuyer#marketplaceOffer"
4567− , _moRevisionNumber = Nothing
4568− , _moHasCreatorSignedOff = Nothing
4569− , _moFlightStartTimeMs = Nothing
4570− , _moSharedTargetings = Nothing
4571− , _moSeller = Nothing
4572− , _moSyndicationProduct = Nothing
4573− , _moFlightEndTimeMs = Nothing
4574− , _moName = Nothing
4575− , _moCreatorContacts = Nothing
4576− , _moOfferId = Nothing
4577− , _moLabels = Nothing
3518+-- * 'tvsWidth'
3519+targetingValueSize
3520+ :: TargetingValueSize
3521+targetingValueSize =
3522+ TargetingValueSize
3523+ { _tvsHeight = Nothing
3524+ , _tvsWidth = Nothing
45783525 }
45793526
4580−-- | The state of the offer. (buyer-readonly)
4581−moState :: Lens' MarketplaceOffer (Maybe Text)
4582−moState = lens _moState (\ s a -> s{_moState = a})
3527+-- | The height of the creative.
3528+tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
3529+tvsHeight
3530+ = lens _tvsHeight (\ s a -> s{_tvsHeight = a}) .
3531+ mapping _Coerce
45833532
4584−moWebPropertyCode :: Lens' MarketplaceOffer (Maybe Text)
4585−moWebPropertyCode
4586− = lens _moWebPropertyCode
4587− (\ s a -> s{_moWebPropertyCode = a})
3533+-- | The width of the creative.
3534+tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
3535+tvsWidth
3536+ = lens _tvsWidth (\ s a -> s{_tvsWidth = a}) .
3537+ mapping _Coerce
45883538
4589−-- | Creation time in ms. since epoch (readonly)
4590−moCreationTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
4591−moCreationTimeMs
4592− = lens _moCreationTimeMs
4593− (\ s a -> s{_moCreationTimeMs = a})
4594− . mapping _Coerce
3539+instance FromJSON TargetingValueSize where
3540+ parseJSON
3541+ = withObject "TargetingValueSize"
3542+ (\ o ->
3543+ TargetingValueSize <$>
3544+ (o .:? "height") <*> (o .:? "width"))
45953545
4596−-- | The negotiable terms of the deal (buyer-readonly)
4597−moTerms :: Lens' MarketplaceOffer (Maybe DealTerms)
4598−moTerms = lens _moTerms (\ s a -> s{_moTerms = a})
4599−
4600−-- | Time of last update in ms. since epoch (readonly)
4601−moLastUpdateTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
4602−moLastUpdateTimeMs
4603− = lens _moLastUpdateTimeMs
4604− (\ s a -> s{_moLastUpdateTimeMs = a})
4605− . mapping _Coerce
4606−
4607−-- | Identifies what kind of resource this is. Value: the fixed string
4608−-- \"adexchangebuyer#marketplaceOffer\".
4609−moKind :: Lens' MarketplaceOffer Text
4610−moKind = lens _moKind (\ s a -> s{_moKind = a})
4611−
4612−-- | The revision number of the offer. (readonly)
4613−moRevisionNumber :: Lens' MarketplaceOffer (Maybe Int64)
4614−moRevisionNumber
4615− = lens _moRevisionNumber
4616− (\ s a -> s{_moRevisionNumber = a})
4617− . mapping _Coerce
4618−
4619−-- | If the creator has already signed off on the offer, then the buyer can
4620−-- finalize the deal by accepting the offer as is. When copying to an
4621−-- order, if any of the terms are changed, then auto_finalize is
4622−-- automatically set to false.
4623−moHasCreatorSignedOff :: Lens' MarketplaceOffer (Maybe Bool)
4624−moHasCreatorSignedOff
4625− = lens _moHasCreatorSignedOff
4626− (\ s a -> s{_moHasCreatorSignedOff = a})
4627−
4628−-- | Inventory availability dates. (times are in ms since epoch) The
4629−-- granularity is generally in the order of seconds. (buyer-readonly)
4630−moFlightStartTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
4631−moFlightStartTimeMs
4632− = lens _moFlightStartTimeMs
4633− (\ s a -> s{_moFlightStartTimeMs = a})
4634− . mapping _Coerce
4635−
4636−-- | Targeting that is shared between the buyer and the seller. Each
4637−-- targeting criteria has a specified key and for each key there is a list
4638−-- of inclusion value or exclusion values. (buyer-readonly)
4639−moSharedTargetings :: Lens' MarketplaceOffer [SharedTargeting]
4640−moSharedTargetings
4641− = lens _moSharedTargetings
4642− (\ s a -> s{_moSharedTargetings = a})
4643− . _Default
4644− . _Coerce
4645−
4646−-- | Information about the seller that created this offer (readonly, except
4647−-- on create)
4648−moSeller :: Lens' MarketplaceOffer (Maybe Seller)
4649−moSeller = lens _moSeller (\ s a -> s{_moSeller = a})
4650−
4651−-- | The syndication product associated with the deal. (readonly, except on
4652−-- create)
4653−moSyndicationProduct :: Lens' MarketplaceOffer (Maybe Text)
4654−moSyndicationProduct
4655− = lens _moSyndicationProduct
4656− (\ s a -> s{_moSyndicationProduct = a})
4657−
4658−-- | The proposed end time for the deal (ms since epoch) (buyer-readonly)
4659−moFlightEndTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
4660−moFlightEndTimeMs
4661− = lens _moFlightEndTimeMs
4662− (\ s a -> s{_moFlightEndTimeMs = a})
4663− . mapping _Coerce
4664−
4665−-- | The name for this offer as set by the seller. (buyer-readonly)
4666−moName :: Lens' MarketplaceOffer (Maybe Text)
4667−moName = lens _moName (\ s a -> s{_moName = a})
4668−
4669−-- | Optional contact information for the creator of this offer.
4670−-- (buyer-readonly)
4671−moCreatorContacts :: Lens' MarketplaceOffer [ContactInformation]
4672−moCreatorContacts
4673− = lens _moCreatorContacts
4674− (\ s a -> s{_moCreatorContacts = a})
4675− . _Default
4676− . _Coerce
4677−
4678−-- | The unique id for the offer (readonly)
4679−moOfferId :: Lens' MarketplaceOffer (Maybe Text)
4680−moOfferId
4681− = lens _moOfferId (\ s a -> s{_moOfferId = a})
4682−
4683−-- | Optional List of labels for the offer (optional, buyer-readonly).
4684−moLabels :: Lens' MarketplaceOffer [MarketplaceLabel]
4685−moLabels
4686− = lens _moLabels (\ s a -> s{_moLabels = a}) .
4687− _Default
4688− . _Coerce
4689−
4690−instance FromJSON MarketplaceOffer where
4691− parseJSON
4692− = withObject "MarketplaceOffer"
4693− (\ o ->
4694− MarketplaceOffer <$>
4695− (o .:? "state") <*> (o .:? "webPropertyCode") <*>
4696− (o .:? "creationTimeMs")
4697− <*> (o .:? "terms")
4698− <*> (o .:? "lastUpdateTimeMs")
4699− <*>
4700− (o .:? "kind" .!= "adexchangebuyer#marketplaceOffer")
4701− <*> (o .:? "revisionNumber")
4702− <*> (o .:? "hasCreatorSignedOff")
4703− <*> (o .:? "flightStartTimeMs")
4704− <*> (o .:? "sharedTargetings" .!= mempty)
4705− <*> (o .:? "seller")
4706− <*> (o .:? "syndicationProduct")
4707− <*> (o .:? "flightEndTimeMs")
4708− <*> (o .:? "name")
4709− <*> (o .:? "creatorContacts" .!= mempty)
4710− <*> (o .:? "offerId")
4711− <*> (o .:? "labels" .!= mempty))
4712−
4713−instance ToJSON MarketplaceOffer where
4714− toJSON MarketplaceOffer{..}
4715− = object
4716− (catMaybes
4717− [("state" .=) <$> _moState,
4718− ("webPropertyCode" .=) <$> _moWebPropertyCode,
4719− ("creationTimeMs" .=) <$> _moCreationTimeMs,
4720− ("terms" .=) <$> _moTerms,
4721− ("lastUpdateTimeMs" .=) <$> _moLastUpdateTimeMs,
4722− Just ("kind" .= _moKind),
4723− ("revisionNumber" .=) <$> _moRevisionNumber,
4724− ("hasCreatorSignedOff" .=) <$>
4725− _moHasCreatorSignedOff,
4726− ("flightStartTimeMs" .=) <$> _moFlightStartTimeMs,
4727− ("sharedTargetings" .=) <$> _moSharedTargetings,
4728− ("seller" .=) <$> _moSeller,
4729− ("syndicationProduct" .=) <$> _moSyndicationProduct,
4730− ("flightEndTimeMs" .=) <$> _moFlightEndTimeMs,
4731− ("name" .=) <$> _moName,
4732− ("creatorContacts" .=) <$> _moCreatorContacts,
4733− ("offerId" .=) <$> _moOfferId,
4734− ("labels" .=) <$> _moLabels])
4735−
4736−--
4737−-- /See:/ 'addOrderNotesResponse' smart constructor.
4738−newtype AddOrderNotesResponse = AddOrderNotesResponse
4739− { _aNotes :: Maybe [MarketplaceNote]
4740− } deriving (Eq,Show,Data,Typeable,Generic)
4741−
4742−-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.
4743−--
4744−-- Use one of the following lenses to modify other fields as desired:
4745−--
4746−-- * 'aNotes'
4747−addOrderNotesResponse
4748− :: AddOrderNotesResponse
4749−addOrderNotesResponse =
4750− AddOrderNotesResponse
4751− { _aNotes = Nothing
4752− }
4753−
4754−aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4755−aNotes
4756− = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4757− _Coerce
4758−
4759−instance FromJSON AddOrderNotesResponse where
4760− parseJSON
4761− = withObject "AddOrderNotesResponse"
4762− (\ o ->
4763− AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
4764−
4765−instance ToJSON AddOrderNotesResponse where
4766− toJSON AddOrderNotesResponse{..}
4767− = object (catMaybes [("notes" .=) <$> _aNotes])
4768−
4769−--
4770−-- /See:/ 'targetingValueSize' smart constructor.
4771−data TargetingValueSize = TargetingValueSize
4772− { _tvsHeight :: !(Maybe (Textual Int32))
4773− , _tvsWidth :: !(Maybe (Textual Int32))
4774− } deriving (Eq,Show,Data,Typeable,Generic)
4775−
4776−-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
4777−--
4778−-- Use one of the following lenses to modify other fields as desired:
4779−--
4780−-- * 'tvsHeight'
4781−--
4782−-- * 'tvsWidth'
4783−targetingValueSize
4784− :: TargetingValueSize
4785−targetingValueSize =
4786− TargetingValueSize
4787− { _tvsHeight = Nothing
4788− , _tvsWidth = Nothing
4789− }
4790−
4791−-- | The height of the creative.
4792−tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4793−tvsHeight
4794− = lens _tvsHeight (\ s a -> s{_tvsHeight = a}) .
4795− mapping _Coerce
4796−
4797−-- | The width of the creative.
4798−tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4799−tvsWidth
4800− = lens _tvsWidth (\ s a -> s{_tvsWidth = a}) .
4801− mapping _Coerce
4802−
4803−instance FromJSON TargetingValueSize where
4804− parseJSON
4805− = withObject "TargetingValueSize"
4806− (\ o ->
4807− TargetingValueSize <$>
4808− (o .:? "height") <*> (o .:? "width"))
4809−
4810−instance ToJSON TargetingValueSize where
4811− toJSON TargetingValueSize{..}
4812− = object
4813− (catMaybes
4814− [("height" .=) <$> _tvsHeight,
4815− ("width" .=) <$> _tvsWidth])
4816−
4817−--
4818−-- /See:/ 'getNegotiationsRequest' smart constructor.
4819−data GetNegotiationsRequest = GetNegotiationsRequest
4820− { _gnrSinceTimestampMillis :: !(Maybe (Textual Int64))
4821− , _gnrFinalized :: !(Maybe Bool)
4822− , _gnrIncludePrivateAuctions :: !(Maybe Bool)
4823− } deriving (Eq,Show,Data,Typeable,Generic)
4824−
4825−-- | Creates a value of 'GetNegotiationsRequest' with the minimum fields required to make a request.
4826−--
4827−-- Use one of the following lenses to modify other fields as desired:
4828−--
4829−-- * 'gnrSinceTimestampMillis'
4830−--
4831−-- * 'gnrFinalized'
4832−--
4833−-- * 'gnrIncludePrivateAuctions'
4834−getNegotiationsRequest
4835− :: GetNegotiationsRequest
4836−getNegotiationsRequest =
4837− GetNegotiationsRequest
4838− { _gnrSinceTimestampMillis = Nothing
4839− , _gnrFinalized = Nothing
4840− , _gnrIncludePrivateAuctions = Nothing
4841− }
4842−
4843−gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
4844−gnrSinceTimestampMillis
4845− = lens _gnrSinceTimestampMillis
4846− (\ s a -> s{_gnrSinceTimestampMillis = a})
4847− . mapping _Coerce
4848−
4849−gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
4850−gnrFinalized
4851− = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
4852−
4853−gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
4854−gnrIncludePrivateAuctions
4855− = lens _gnrIncludePrivateAuctions
4856− (\ s a -> s{_gnrIncludePrivateAuctions = a})
4857−
4858−instance FromJSON GetNegotiationsRequest where
4859− parseJSON
4860− = withObject "GetNegotiationsRequest"
4861− (\ o ->
4862− GetNegotiationsRequest <$>
4863− (o .:? "sinceTimestampMillis") <*>
4864− (o .:? "finalized")
4865− <*> (o .:? "includePrivateAuctions"))
4866−
4867−instance ToJSON GetNegotiationsRequest where
4868− toJSON GetNegotiationsRequest{..}
4869− = object
4870− (catMaybes
4871− [("sinceTimestampMillis" .=) <$>
4872− _gnrSinceTimestampMillis,
4873− ("finalized" .=) <$> _gnrFinalized,
4874− ("includePrivateAuctions" .=) <$>
4875− _gnrIncludePrivateAuctions])
4876−
4877−--
4878−-- /See:/ 'moneyDTO' smart constructor.
4879−data MoneyDTO = MoneyDTO
4880− { _mdtoCurrencyCode :: !(Maybe Text)
4881− , _mdtoMicros :: !(Maybe (Textual Int64))
4882− } deriving (Eq,Show,Data,Typeable,Generic)
4883−
4884−-- | Creates a value of 'MoneyDTO' with the minimum fields required to make a request.
4885−--
4886−-- Use one of the following lenses to modify other fields as desired:
4887−--
4888−-- * 'mdtoCurrencyCode'
4889−--
4890−-- * 'mdtoMicros'
4891−moneyDTO
4892− :: MoneyDTO
4893−moneyDTO =
4894− MoneyDTO
4895− { _mdtoCurrencyCode = Nothing
4896− , _mdtoMicros = Nothing
4897− }
4898−
4899−mdtoCurrencyCode :: Lens' MoneyDTO (Maybe Text)
4900−mdtoCurrencyCode
4901− = lens _mdtoCurrencyCode
4902− (\ s a -> s{_mdtoCurrencyCode = a})
4903−
4904−mdtoMicros :: Lens' MoneyDTO (Maybe Int64)
4905−mdtoMicros
4906− = lens _mdtoMicros (\ s a -> s{_mdtoMicros = a}) .
4907− mapping _Coerce
4908−
4909−instance FromJSON MoneyDTO where
4910− parseJSON
4911− = withObject "MoneyDTO"
4912− (\ o ->
4913− MoneyDTO <$>
4914− (o .:? "currencyCode") <*> (o .:? "micros"))
4915−
4916−instance ToJSON MoneyDTO where
4917− toJSON MoneyDTO{..}
4918− = object
4919− (catMaybes
4920− [("currencyCode" .=) <$> _mdtoCurrencyCode,
4921− ("micros" .=) <$> _mdtoMicros])
4922−
4923−--
4924−-- /See:/ 'getNegotiationByIdRequest' smart constructor.
4925−newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest
4926− { _gnbirIncludePrivateAuctions :: Maybe Bool
4927− } deriving (Eq,Show,Data,Typeable,Generic)
4928−
4929−-- | Creates a value of 'GetNegotiationByIdRequest' with the minimum fields required to make a request.
4930−--
4931−-- Use one of the following lenses to modify other fields as desired:
4932−--
4933−-- * 'gnbirIncludePrivateAuctions'
4934−getNegotiationByIdRequest
4935− :: GetNegotiationByIdRequest
4936−getNegotiationByIdRequest =
4937− GetNegotiationByIdRequest
4938− { _gnbirIncludePrivateAuctions = Nothing
4939− }
4940−
4941−gnbirIncludePrivateAuctions :: Lens' GetNegotiationByIdRequest (Maybe Bool)
4942−gnbirIncludePrivateAuctions
4943− = lens _gnbirIncludePrivateAuctions
4944− (\ s a -> s{_gnbirIncludePrivateAuctions = a})
4945−
4946−instance FromJSON GetNegotiationByIdRequest where
4947− parseJSON
4948− = withObject "GetNegotiationByIdRequest"
4949− (\ o ->
4950− GetNegotiationByIdRequest <$>
4951− (o .:? "includePrivateAuctions"))
4952−
4953−instance ToJSON GetNegotiationByIdRequest where
4954− toJSON GetNegotiationByIdRequest{..}
4955− = object
4956− (catMaybes
4957− [("includePrivateAuctions" .=) <$>
4958− _gnbirIncludePrivateAuctions])
4959−
4960−--
4961−-- /See:/ 'listOffersResponse' smart constructor.
4962−data ListOffersResponse = ListOffersResponse
4963− { _lorKind :: !Text
4964− , _lorOffers :: !(Maybe [OfferDTO])
4965− } deriving (Eq,Show,Data,Typeable,Generic)
4966−
4967−-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.
4968−--
4969−-- Use one of the following lenses to modify other fields as desired:
4970−--
4971−-- * 'lorKind'
4972−--
4973−-- * 'lorOffers'
4974−listOffersResponse
4975− :: ListOffersResponse
4976−listOffersResponse =
4977− ListOffersResponse
4978− { _lorKind = "adexchangebuyer#offersList"
4979− , _lorOffers = Nothing
4980− }
4981−
4982−lorKind :: Lens' ListOffersResponse Text
4983−lorKind = lens _lorKind (\ s a -> s{_lorKind = a})
4984−
4985−lorOffers :: Lens' ListOffersResponse [OfferDTO]
4986−lorOffers
4987− = lens _lorOffers (\ s a -> s{_lorOffers = a}) .
4988− _Default
4989− . _Coerce
4990−
4991−instance FromJSON ListOffersResponse where
4992− parseJSON
4993− = withObject "ListOffersResponse"
4994− (\ o ->
4995− ListOffersResponse <$>
4996− (o .:? "kind" .!= "adexchangebuyer#offersList") <*>
4997− (o .:? "offers" .!= mempty))
4998−
4999−instance ToJSON ListOffersResponse where
5000− toJSON ListOffersResponse{..}
5001− = object
5002− (catMaybes
5003− [Just ("kind" .= _lorKind),
5004− ("offers" .=) <$> _lorOffers])
3546+instance ToJSON TargetingValueSize where
3547+ toJSON TargetingValueSize{..}
3548+ = object
3549+ (catMaybes
3550+ [("height" .=) <$> _tvsHeight,
3551+ ("width" .=) <$> _tvsWidth])
50053552
50063553--
50073554-- /See:/ 'pretargetingConfigDimensionsItem' smart constructor.
@@ -5053,112 +3600,6 @@ instance ToJSON PretargetingConfigDimensionsItem
50533600 [("height" .=) <$> _pcdiHeight,
50543601 ("width" .=) <$> _pcdiWidth])
50553602
5056−--
5057−-- /See:/ 'advertiserDTO' smart constructor.
5058−data AdvertiserDTO = AdvertiserDTO
5059− { _adtoStatus :: !(Maybe Text)
5060− , _adtoBrands :: !(Maybe [BrandDTO])
5061− , _adtoName :: !(Maybe Text)
5062− , _adtoId :: !(Maybe (Textual Int64))
5063− } deriving (Eq,Show,Data,Typeable,Generic)
5064−
5065−-- | Creates a value of 'AdvertiserDTO' with the minimum fields required to make a request.
5066−--
5067−-- Use one of the following lenses to modify other fields as desired:
5068−--
5069−-- * 'adtoStatus'
5070−--
5071−-- * 'adtoBrands'
5072−--
5073−-- * 'adtoName'
5074−--
5075−-- * 'adtoId'
5076−advertiserDTO
5077− :: AdvertiserDTO
5078−advertiserDTO =
5079− AdvertiserDTO
5080− { _adtoStatus = Nothing
5081− , _adtoBrands = Nothing
5082− , _adtoName = Nothing
5083− , _adtoId = Nothing
5084− }
5085−
5086−adtoStatus :: Lens' AdvertiserDTO (Maybe Text)
5087−adtoStatus
5088− = lens _adtoStatus (\ s a -> s{_adtoStatus = a})
5089−
5090−adtoBrands :: Lens' AdvertiserDTO [BrandDTO]
5091−adtoBrands
5092− = lens _adtoBrands (\ s a -> s{_adtoBrands = a}) .
5093− _Default
5094− . _Coerce
5095−
5096−adtoName :: Lens' AdvertiserDTO (Maybe Text)
5097−adtoName = lens _adtoName (\ s a -> s{_adtoName = a})
5098−
5099−adtoId :: Lens' AdvertiserDTO (Maybe Int64)
5100−adtoId
5101− = lens _adtoId (\ s a -> s{_adtoId = a}) .
5102− mapping _Coerce
5103−
5104−instance FromJSON AdvertiserDTO where
5105− parseJSON
5106− = withObject "AdvertiserDTO"
5107− (\ o ->
5108− AdvertiserDTO <$>
5109− (o .:? "status") <*> (o .:? "brands" .!= mempty) <*>
5110− (o .:? "name")
5111− <*> (o .:? "id"))
5112−
5113−instance ToJSON AdvertiserDTO where
5114− toJSON AdvertiserDTO{..}
5115− = object
5116− (catMaybes
5117− [("status" .=) <$> _adtoStatus,
5118− ("brands" .=) <$> _adtoBrands,
5119− ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
5120−
5121−--
5122−-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
5123−newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
5124− { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]
5125− } deriving (Eq,Show,Data,Typeable,Generic)
5126−
5127−-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
5128−--
5129−-- Use one of the following lenses to modify other fields as desired:
5130−--
5131−-- * 'lcacrClientAccessPermissions'
5132−listClientAccessCapabilitiesResponse
5133− :: ListClientAccessCapabilitiesResponse
5134−listClientAccessCapabilitiesResponse =
5135− ListClientAccessCapabilitiesResponse
5136− { _lcacrClientAccessPermissions = Nothing
5137− }
5138−
5139−lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]
5140−lcacrClientAccessPermissions
5141− = lens _lcacrClientAccessPermissions
5142− (\ s a -> s{_lcacrClientAccessPermissions = a})
5143− . _Default
5144− . _Coerce
5145−
5146−instance FromJSON
5147− ListClientAccessCapabilitiesResponse where
5148− parseJSON
5149− = withObject "ListClientAccessCapabilitiesResponse"
5150− (\ o ->
5151− ListClientAccessCapabilitiesResponse <$>
5152− (o .:? "clientAccessPermissions" .!= mempty))
5153−
5154−instance ToJSON ListClientAccessCapabilitiesResponse
5155− where
5156− toJSON ListClientAccessCapabilitiesResponse{..}
5157− = object
5158− (catMaybes
5159− [("clientAccessPermissions" .=) <$>
5160− _lcacrClientAccessPermissions])
5161−
51623603--
51633604-- /See:/ 'targetingValue' smart constructor.
51643605data TargetingValue = TargetingValue
@@ -5296,6 +3737,7 @@ instance ToJSON CreativeNATiveAdAppIcon where
52963737data Price = Price
52973738 { _pCurrencyCode :: !(Maybe Text)
52983739 , _pAmountMicros :: !(Maybe (Textual Double))
3740+ , _pPricingType :: !(Maybe Text)
52993741 } deriving (Eq,Show,Data,Typeable,Generic)
53003742
53013743-- | Creates a value of 'Price' with the minimum fields required to make a request.
@@ -5305,12 +3747,15 @@ data Price = Price
53053747-- * 'pCurrencyCode'
53063748--
53073749-- * 'pAmountMicros'
3750+--
3751+-- * 'pPricingType'
53083752price
53093753 :: Price
53103754price =
53113755 Price
53123756 { _pCurrencyCode = Nothing
53133757 , _pAmountMicros = Nothing
3758+ , _pPricingType = Nothing
53143759 }
53153760
53163761-- | The currency code for the price.
@@ -5319,34 +3764,108 @@ pCurrencyCode
53193764 = lens _pCurrencyCode
53203765 (\ s a -> s{_pCurrencyCode = a})
53213766
5322−-- | The CPM value in micros.
3767+-- | The price value in micros.
53233768pAmountMicros :: Lens' Price (Maybe Double)
53243769pAmountMicros
53253770 = lens _pAmountMicros
53263771 (\ s a -> s{_pAmountMicros = a})
53273772 . mapping _Coerce
53283773
3774+-- | The pricing type for the deal\/product.
3775+pPricingType :: Lens' Price (Maybe Text)
3776+pPricingType
3777+ = lens _pPricingType (\ s a -> s{_pPricingType = a})
3778+
53293779instance FromJSON Price where
53303780 parseJSON
53313781 = withObject "Price"
53323782 (\ o ->
53333783 Price <$>
5334− (o .:? "currencyCode") <*> (o .:? "amountMicros"))
3784+ (o .:? "currencyCode") <*> (o .:? "amountMicros") <*>
3785+ (o .:? "pricingType"))
53353786
53363787instance ToJSON Price where
53373788 toJSON Price{..}
53383789 = object
53393790 (catMaybes
53403791 [("currencyCode" .=) <$> _pCurrencyCode,
5341− ("amountMicros" .=) <$> _pAmountMicros])
3792+ ("amountMicros" .=) <$> _pAmountMicros,
3793+ ("pricingType" .=) <$> _pPricingType])
3794+
3795+--
3796+-- /See:/ 'pretargetingConfigVideoPlayerSizesItem' smart constructor.
3797+data PretargetingConfigVideoPlayerSizesItem = PretargetingConfigVideoPlayerSizesItem
3798+ { _pcvpsiMinWidth :: !(Maybe (Textual Int64))
3799+ , _pcvpsiAspectRatio :: !(Maybe Text)
3800+ , _pcvpsiMinHeight :: !(Maybe (Textual Int64))
3801+ } deriving (Eq,Show,Data,Typeable,Generic)
3802+
3803+-- | Creates a value of 'PretargetingConfigVideoPlayerSizesItem' with the minimum fields required to make a request.
3804+--
3805+-- Use one of the following lenses to modify other fields as desired:
3806+--
3807+-- * 'pcvpsiMinWidth'
3808+--
3809+-- * 'pcvpsiAspectRatio'
3810+--
3811+-- * 'pcvpsiMinHeight'
3812+pretargetingConfigVideoPlayerSizesItem
3813+ :: PretargetingConfigVideoPlayerSizesItem
3814+pretargetingConfigVideoPlayerSizesItem =
3815+ PretargetingConfigVideoPlayerSizesItem
3816+ { _pcvpsiMinWidth = Nothing
3817+ , _pcvpsiAspectRatio = Nothing
3818+ , _pcvpsiMinHeight = Nothing
3819+ }
3820+
3821+-- | The minimum player width in pixels. Leave this field blank to match any
3822+-- player width.
3823+pcvpsiMinWidth :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Int64)
3824+pcvpsiMinWidth
3825+ = lens _pcvpsiMinWidth
3826+ (\ s a -> s{_pcvpsiMinWidth = a})
3827+ . mapping _Coerce
3828+
3829+-- | The type of aspect ratio. Leave this field blank to match all aspect
3830+-- ratios.
3831+pcvpsiAspectRatio :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Text)
3832+pcvpsiAspectRatio
3833+ = lens _pcvpsiAspectRatio
3834+ (\ s a -> s{_pcvpsiAspectRatio = a})
3835+
3836+-- | The minimum player height in pixels. Leave this field blank to match any
3837+-- player height.
3838+pcvpsiMinHeight :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Int64)
3839+pcvpsiMinHeight
3840+ = lens _pcvpsiMinHeight
3841+ (\ s a -> s{_pcvpsiMinHeight = a})
3842+ . mapping _Coerce
3843+
3844+instance FromJSON
3845+ PretargetingConfigVideoPlayerSizesItem where
3846+ parseJSON
3847+ = withObject "PretargetingConfigVideoPlayerSizesItem"
3848+ (\ o ->
3849+ PretargetingConfigVideoPlayerSizesItem <$>
3850+ (o .:? "minWidth") <*> (o .:? "aspectRatio") <*>
3851+ (o .:? "minHeight"))
3852+
3853+instance ToJSON
3854+ PretargetingConfigVideoPlayerSizesItem where
3855+ toJSON PretargetingConfigVideoPlayerSizesItem{..}
3856+ = object
3857+ (catMaybes
3858+ [("minWidth" .=) <$> _pcvpsiMinWidth,
3859+ ("aspectRatio" .=) <$> _pcvpsiAspectRatio,
3860+ ("minHeight" .=) <$> _pcvpsiMinHeight])
53423861
53433862--
53443863-- /See:/ 'editAllOrderDealsRequest' smart constructor.
53453864data EditAllOrderDealsRequest = EditAllOrderDealsRequest
5346− { _eUpdateAction :: !(Maybe Text)
5347− , _eDeals :: !(Maybe [MarketplaceDeal])
5348− , _eOrder :: !(Maybe MarketplaceOrder)
5349− , _eOrderRevisionNumber :: !(Maybe (Textual Int64))
3865+ { _eUpdateAction :: !(Maybe Text)
3866+ , _eDeals :: !(Maybe [MarketplaceDeal])
3867+ , _eProposalRevisionNumber :: !(Maybe (Textual Int64))
3868+ , _eProposal :: !(Maybe Proposal)
53503869 } deriving (Eq,Show,Data,Typeable,Generic)
53513870
53523871-- | Creates a value of 'EditAllOrderDealsRequest' with the minimum fields required to make a request.
@@ -5357,20 +3876,20 @@ data EditAllOrderDealsRequest = EditAllOrderDealsRequest
53573876--
53583877-- * 'eDeals'
53593878--
5360−-- * 'eOrder'
3879+-- * 'eProposalRevisionNumber'
53613880--
5362−-- * 'eOrderRevisionNumber'
3881+-- * 'eProposal'
53633882editAllOrderDealsRequest
53643883 :: EditAllOrderDealsRequest
53653884editAllOrderDealsRequest =
53663885 EditAllOrderDealsRequest
53673886 { _eUpdateAction = Nothing
53683887 , _eDeals = Nothing
5369− , _eOrder = Nothing
5370− , _eOrderRevisionNumber = Nothing
3888+ , _eProposalRevisionNumber = Nothing
3889+ , _eProposal = Nothing
53713890 }
53723891
5373−-- | Indicates an optional action to take on the order
3892+-- | Indicates an optional action to take on the proposal
53743893eUpdateAction :: Lens' EditAllOrderDealsRequest (Maybe Text)
53753894eUpdateAction
53763895 = lens _eUpdateAction
@@ -5378,50 +3897,52 @@ eUpdateAction
53783897
53793898-- | List of deals to edit. Service may perform 3 different operations based
53803899-- on comparison of deals in this list vs deals already persisted in
5381−-- database: 1. Add new deal to order If a deal in this list does not exist
5382−-- in the order, the service will create a new deal and add it to the
5383−-- order. Validation will follow AddOrderDealsRequest. 2. Update existing
5384−-- deal in the order If a deal in this list already exist in the order, the
5385−-- service will update that existing deal to this new deal in the request.
5386−-- Validation will follow UpdateOrderDealsRequest. 3. Delete deals from the
5387−-- order (just need the id) If a existing deal in the order is not present
5388−-- in this list, the service will delete that deal from the order.
5389−-- Validation will follow DeleteOrderDealsRequest.
3900+-- database: 1. Add new deal to proposal If a deal in this list does not
3901+-- exist in the proposal, the service will create a new deal and add it to
3902+-- the proposal. Validation will follow AddOrderDealsRequest. 2. Update
3903+-- existing deal in the proposal If a deal in this list already exist in
3904+-- the proposal, the service will update that existing deal to this new
3905+-- deal in the request. Validation will follow UpdateOrderDealsRequest. 3.
3906+-- Delete deals from the proposal (just need the id) If a existing deal in
3907+-- the proposal is not present in this list, the service will delete that
3908+-- deal from the proposal. Validation will follow DeleteOrderDealsRequest.
53903909eDeals :: Lens' EditAllOrderDealsRequest [MarketplaceDeal]
53913910eDeals
53923911 = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default .
53933912 _Coerce
53943913
5395−-- | If specified, also updates the order in the batch transaction. This is
5396−-- useful when the order and the deals need to be updated in one
5397−-- transaction.
5398−eOrder :: Lens' EditAllOrderDealsRequest (Maybe MarketplaceOrder)
5399−eOrder = lens _eOrder (\ s a -> s{_eOrder = a})
5400−
5401−-- | The last known revision number for the order.
5402−eOrderRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64)
5403−eOrderRevisionNumber
5404− = lens _eOrderRevisionNumber
5405− (\ s a -> s{_eOrderRevisionNumber = a})
3914+-- | The last known revision number for the proposal.
3915+eProposalRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64)
3916+eProposalRevisionNumber
3917+ = lens _eProposalRevisionNumber
3918+ (\ s a -> s{_eProposalRevisionNumber = a})
54063919 . mapping _Coerce
54073920
3921+-- | If specified, also updates the proposal in the batch transaction. This
3922+-- is useful when the proposal and the deals need to be updated in one
3923+-- transaction.
3924+eProposal :: Lens' EditAllOrderDealsRequest (Maybe Proposal)
3925+eProposal
3926+ = lens _eProposal (\ s a -> s{_eProposal = a})
3927+
54083928instance FromJSON EditAllOrderDealsRequest where
54093929 parseJSON
54103930 = withObject "EditAllOrderDealsRequest"
54113931 (\ o ->
54123932 EditAllOrderDealsRequest <$>
54133933 (o .:? "updateAction") <*> (o .:? "deals" .!= mempty)
5414− <*> (o .:? "order")
5415− <*> (o .:? "orderRevisionNumber"))
3934+ <*> (o .:? "proposalRevisionNumber")
3935+ <*> (o .:? "proposal"))
54163936
54173937instance ToJSON EditAllOrderDealsRequest where
54183938 toJSON EditAllOrderDealsRequest{..}
54193939 = object
54203940 (catMaybes
54213941 [("updateAction" .=) <$> _eUpdateAction,
5422− ("deals" .=) <$> _eDeals, ("order" .=) <$> _eOrder,
5423− ("orderRevisionNumber" .=) <$>
5424− _eOrderRevisionNumber])
3942+ ("deals" .=) <$> _eDeals,
3943+ ("proposalRevisionNumber" .=) <$>
3944+ _eProposalRevisionNumber,
3945+ ("proposal" .=) <$> _eProposal])
54253946
54263947-- | The configuration data for an Ad Exchange billing info.
54273948--
@@ -5608,563 +4129,6 @@ instance ToJSON SharedTargeting where
56084129 ("exclusions" .=) <$> _stExclusions,
56094130 ("inclusions" .=) <$> _stInclusions])
56104131
5611−--
5612−-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
5613−newtype ListClientAccessCapabilitiesRequest = ListClientAccessCapabilitiesRequest
5614− { _lcacrSponsorAccountId :: Maybe (Textual Int64)
5615− } deriving (Eq,Show,Data,Typeable,Generic)
5616−
5617−-- | Creates a value of 'ListClientAccessCapabilitiesRequest' with the minimum fields required to make a request.
5618−--
5619−-- Use one of the following lenses to modify other fields as desired:
5620−--
5621−-- * 'lcacrSponsorAccountId'
5622−listClientAccessCapabilitiesRequest
5623− :: ListClientAccessCapabilitiesRequest
5624−listClientAccessCapabilitiesRequest =
5625− ListClientAccessCapabilitiesRequest
5626− { _lcacrSponsorAccountId = Nothing
5627− }
5628−
5629−lcacrSponsorAccountId :: Lens' ListClientAccessCapabilitiesRequest (Maybe Int64)
5630−lcacrSponsorAccountId
5631− = lens _lcacrSponsorAccountId
5632− (\ s a -> s{_lcacrSponsorAccountId = a})
5633− . mapping _Coerce
5634−
5635−instance FromJSON ListClientAccessCapabilitiesRequest
5636− where
5637− parseJSON
5638− = withObject "ListClientAccessCapabilitiesRequest"
5639− (\ o ->
5640− ListClientAccessCapabilitiesRequest <$>
5641− (o .:? "sponsorAccountId"))
5642−
5643−instance ToJSON ListClientAccessCapabilitiesRequest
5644− where
5645− toJSON ListClientAccessCapabilitiesRequest{..}
5646− = object
5647− (catMaybes
5648− [("sponsorAccountId" .=) <$> _lcacrSponsorAccountId])
5649−
5650−--
5651−-- /See:/ 'inventorySegmentTargeting' smart constructor.
5652−data InventorySegmentTargeting = InventorySegmentTargeting
5653− { _istNegativeVideoDurationSegments :: !(Maybe [Textual Int64])
5654− , _istNegativeIcmBrands :: !(Maybe [Textual Int64])
5655− , _istNegativeKeyValues :: !(Maybe [RuleKeyValuePair])
5656− , _istPositiveAudienceSegments :: !(Maybe [Textual Int64])
5657− , _istPositiveXfpPlacements :: !(Maybe [Textual Int64])
5658− , _istNegativeXfpAdSlots :: !(Maybe [Textual Int64])
5659− , _istPositiveOperatingSystemVersions :: !(Maybe [Textual Int64])
5660− , _istPositiveSizes :: !(Maybe [Textual Int64])
5661− , _istPositiveDeviceCategories :: !(Maybe [Textual Int64])
5662− , _istPositiveLocations :: !(Maybe [Textual Int64])
5663− , _istNegativeAdSizes :: !(Maybe [AdSize])
5664− , _istPositiveOperatingSystems :: !(Maybe [Textual Int64])
5665− , _istPositiveSiteURLs :: !(Maybe [Text])
5666− , _istNegativeInventorySlots :: !(Maybe [Text])
5667− , _istNegativeVideoAdPositionSegments :: !(Maybe [Text])
5668− , _istPositiveAdTypeSegments :: !(Maybe [Text])
5669− , _istPositiveIcmInterests :: !(Maybe [Textual Int64])
5670− , _istPositiveMobileApps :: !(Maybe [Text])
5671− , _istPositiveKeyValues :: !(Maybe [RuleKeyValuePair])
5672− , _istPositiveIcmBrands :: !(Maybe [Textual Int64])
5673− , _istPositiveVideoDurationSegments :: !(Maybe [Textual Int64])
5674− , _istNegativeAudienceSegments :: !(Maybe [Textual Int64])
5675− , _istNegativeXfpPlacements :: !(Maybe [Textual Int64])
5676− , _istPositiveXfpAdSlots :: !(Maybe [Textual Int64])
5677− , _istNegativeOperatingSystemVersions :: !(Maybe [Textual Int64])
5678− , _istNegativeSizes :: !(Maybe [Textual Int64])
5679− , _istNegativeLocations :: !(Maybe [Textual Int64])
5680− , _istNegativeDeviceCategories :: !(Maybe [Textual Int64])
5681− , _istNegativeOperatingSystems :: !(Maybe [Textual Int64])
5682− , _istPositiveAdSizes :: !(Maybe [AdSize])
5683− , _istNegativeSiteURLs :: !(Maybe [Text])
5684− , _istNegativeAdTypeSegments :: !(Maybe [Text])
5685− , _istPositiveVideoAdPositionSegments :: !(Maybe [Text])
5686− , _istPositiveInventorySlots :: !(Maybe [Text])
5687− , _istNegativeMobileApps :: !(Maybe [Text])
5688− , _istNegativeIcmInterests :: !(Maybe [Textual Int64])
5689− } deriving (Eq,Show,Data,Typeable,Generic)
5690−
5691−-- | Creates a value of 'InventorySegmentTargeting' with the minimum fields required to make a request.
5692−--
5693−-- Use one of the following lenses to modify other fields as desired:
5694−--
5695−-- * 'istNegativeVideoDurationSegments'
5696−--
5697−-- * 'istNegativeIcmBrands'
5698−--
5699−-- * 'istNegativeKeyValues'
5700−--
5701−-- * 'istPositiveAudienceSegments'
5702−--
5703−-- * 'istPositiveXfpPlacements'
5704−--
5705−-- * 'istNegativeXfpAdSlots'
5706−--
5707−-- * 'istPositiveOperatingSystemVersions'
5708−--
5709−-- * 'istPositiveSizes'
5710−--
5711−-- * 'istPositiveDeviceCategories'
5712−--
5713−-- * 'istPositiveLocations'
5714−--
5715−-- * 'istNegativeAdSizes'
5716−--
5717−-- * 'istPositiveOperatingSystems'
5718−--
5719−-- * 'istPositiveSiteURLs'
5720−--
5721−-- * 'istNegativeInventorySlots'
5722−--
5723−-- * 'istNegativeVideoAdPositionSegments'
5724−--
5725−-- * 'istPositiveAdTypeSegments'
5726−--
5727−-- * 'istPositiveIcmInterests'
5728−--
5729−-- * 'istPositiveMobileApps'
5730−--
5731−-- * 'istPositiveKeyValues'
5732−--
5733−-- * 'istPositiveIcmBrands'
5734−--
5735−-- * 'istPositiveVideoDurationSegments'
5736−--
5737−-- * 'istNegativeAudienceSegments'
5738−--
5739−-- * 'istNegativeXfpPlacements'
5740−--
5741−-- * 'istPositiveXfpAdSlots'
5742−--
5743−-- * 'istNegativeOperatingSystemVersions'
5744−--
5745−-- * 'istNegativeSizes'
5746−--
5747−-- * 'istNegativeLocations'
5748−--
5749−-- * 'istNegativeDeviceCategories'
5750−--
5751−-- * 'istNegativeOperatingSystems'
5752−--
5753−-- * 'istPositiveAdSizes'
5754−--
5755−-- * 'istNegativeSiteURLs'
5756−--
5757−-- * 'istNegativeAdTypeSegments'
5758−--
5759−-- * 'istPositiveVideoAdPositionSegments'
5760−--
5761−-- * 'istPositiveInventorySlots'
5762−--
5763−-- * 'istNegativeMobileApps'
5764−--
5765−-- * 'istNegativeIcmInterests'
5766−inventorySegmentTargeting
5767− :: InventorySegmentTargeting
5768−inventorySegmentTargeting =
5769− InventorySegmentTargeting
5770− { _istNegativeVideoDurationSegments = Nothing
5771− , _istNegativeIcmBrands = Nothing
5772− , _istNegativeKeyValues = Nothing
5773− , _istPositiveAudienceSegments = Nothing
5774− , _istPositiveXfpPlacements = Nothing
5775− , _istNegativeXfpAdSlots = Nothing
5776− , _istPositiveOperatingSystemVersions = Nothing
5777− , _istPositiveSizes = Nothing
5778− , _istPositiveDeviceCategories = Nothing
5779− , _istPositiveLocations = Nothing
5780− , _istNegativeAdSizes = Nothing
5781− , _istPositiveOperatingSystems = Nothing
5782− , _istPositiveSiteURLs = Nothing
5783− , _istNegativeInventorySlots = Nothing
5784− , _istNegativeVideoAdPositionSegments = Nothing
5785− , _istPositiveAdTypeSegments = Nothing
5786− , _istPositiveIcmInterests = Nothing
5787− , _istPositiveMobileApps = Nothing
5788− , _istPositiveKeyValues = Nothing
5789− , _istPositiveIcmBrands = Nothing
5790− , _istPositiveVideoDurationSegments = Nothing
5791− , _istNegativeAudienceSegments = Nothing
5792− , _istNegativeXfpPlacements = Nothing
5793− , _istPositiveXfpAdSlots = Nothing
5794− , _istNegativeOperatingSystemVersions = Nothing
5795− , _istNegativeSizes = Nothing
5796− , _istNegativeLocations = Nothing
5797− , _istNegativeDeviceCategories = Nothing
5798− , _istNegativeOperatingSystems = Nothing
5799− , _istPositiveAdSizes = Nothing
5800− , _istNegativeSiteURLs = Nothing
5801− , _istNegativeAdTypeSegments = Nothing
5802− , _istPositiveVideoAdPositionSegments = Nothing
5803− , _istPositiveInventorySlots = Nothing
5804− , _istNegativeMobileApps = Nothing
5805− , _istNegativeIcmInterests = Nothing
5806− }
5807−
5808−istNegativeVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64]
5809−istNegativeVideoDurationSegments
5810− = lens _istNegativeVideoDurationSegments
5811− (\ s a -> s{_istNegativeVideoDurationSegments = a})
5812− . _Default
5813− . _Coerce
5814−
5815−istNegativeIcmBrands :: Lens' InventorySegmentTargeting [Int64]
5816−istNegativeIcmBrands
5817− = lens _istNegativeIcmBrands
5818− (\ s a -> s{_istNegativeIcmBrands = a})
5819− . _Default
5820− . _Coerce
5821−
5822−istNegativeKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair]
5823−istNegativeKeyValues
5824− = lens _istNegativeKeyValues
5825− (\ s a -> s{_istNegativeKeyValues = a})
5826− . _Default
5827− . _Coerce
5828−
5829−istPositiveAudienceSegments :: Lens' InventorySegmentTargeting [Int64]
5830−istPositiveAudienceSegments
5831− = lens _istPositiveAudienceSegments
5832− (\ s a -> s{_istPositiveAudienceSegments = a})
5833− . _Default
5834− . _Coerce
5835−
5836−istPositiveXfpPlacements :: Lens' InventorySegmentTargeting [Int64]
5837−istPositiveXfpPlacements
5838− = lens _istPositiveXfpPlacements
5839− (\ s a -> s{_istPositiveXfpPlacements = a})
5840− . _Default
5841− . _Coerce
5842−
5843−istNegativeXfpAdSlots :: Lens' InventorySegmentTargeting [Int64]
5844−istNegativeXfpAdSlots
5845− = lens _istNegativeXfpAdSlots
5846− (\ s a -> s{_istNegativeXfpAdSlots = a})
5847− . _Default
5848− . _Coerce
5849−
5850−istPositiveOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64]
5851−istPositiveOperatingSystemVersions
5852− = lens _istPositiveOperatingSystemVersions
5853− (\ s a -> s{_istPositiveOperatingSystemVersions = a})
5854− . _Default
5855− . _Coerce
5856−
5857−istPositiveSizes :: Lens' InventorySegmentTargeting [Int64]
5858−istPositiveSizes
5859− = lens _istPositiveSizes
5860− (\ s a -> s{_istPositiveSizes = a})
5861− . _Default
5862− . _Coerce
5863−
5864−istPositiveDeviceCategories :: Lens' InventorySegmentTargeting [Int64]
5865−istPositiveDeviceCategories
5866− = lens _istPositiveDeviceCategories
5867− (\ s a -> s{_istPositiveDeviceCategories = a})
5868− . _Default
5869− . _Coerce
5870−
5871−istPositiveLocations :: Lens' InventorySegmentTargeting [Int64]
5872−istPositiveLocations
5873− = lens _istPositiveLocations
5874− (\ s a -> s{_istPositiveLocations = a})
5875− . _Default
5876− . _Coerce
5877−
5878−istNegativeAdSizes :: Lens' InventorySegmentTargeting [AdSize]
5879−istNegativeAdSizes
5880− = lens _istNegativeAdSizes
5881− (\ s a -> s{_istNegativeAdSizes = a})
5882− . _Default
5883− . _Coerce
5884−
5885−istPositiveOperatingSystems :: Lens' InventorySegmentTargeting [Int64]
5886−istPositiveOperatingSystems
5887− = lens _istPositiveOperatingSystems
5888− (\ s a -> s{_istPositiveOperatingSystems = a})
5889− . _Default
5890− . _Coerce
5891−
5892−istPositiveSiteURLs :: Lens' InventorySegmentTargeting [Text]
5893−istPositiveSiteURLs
5894− = lens _istPositiveSiteURLs
5895− (\ s a -> s{_istPositiveSiteURLs = a})
5896− . _Default
5897− . _Coerce
5898−
5899−istNegativeInventorySlots :: Lens' InventorySegmentTargeting [Text]
5900−istNegativeInventorySlots
5901− = lens _istNegativeInventorySlots
5902− (\ s a -> s{_istNegativeInventorySlots = a})
5903− . _Default
5904− . _Coerce
5905−
5906−istNegativeVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text]
5907−istNegativeVideoAdPositionSegments
5908− = lens _istNegativeVideoAdPositionSegments
5909− (\ s a -> s{_istNegativeVideoAdPositionSegments = a})
5910− . _Default
5911− . _Coerce
5912−
5913−istPositiveAdTypeSegments :: Lens' InventorySegmentTargeting [Text]
5914−istPositiveAdTypeSegments
5915− = lens _istPositiveAdTypeSegments
5916− (\ s a -> s{_istPositiveAdTypeSegments = a})
5917− . _Default
5918− . _Coerce
5919−
5920−istPositiveIcmInterests :: Lens' InventorySegmentTargeting [Int64]
5921−istPositiveIcmInterests
5922− = lens _istPositiveIcmInterests
5923− (\ s a -> s{_istPositiveIcmInterests = a})
5924− . _Default
5925− . _Coerce
5926−
5927−istPositiveMobileApps :: Lens' InventorySegmentTargeting [Text]
5928−istPositiveMobileApps
5929− = lens _istPositiveMobileApps
5930− (\ s a -> s{_istPositiveMobileApps = a})
5931− . _Default
5932− . _Coerce
5933−
5934−istPositiveKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair]
5935−istPositiveKeyValues
5936− = lens _istPositiveKeyValues
5937− (\ s a -> s{_istPositiveKeyValues = a})
5938− . _Default
5939− . _Coerce
5940−
5941−istPositiveIcmBrands :: Lens' InventorySegmentTargeting [Int64]
5942−istPositiveIcmBrands
5943− = lens _istPositiveIcmBrands
5944− (\ s a -> s{_istPositiveIcmBrands = a})
5945− . _Default
5946− . _Coerce
5947−
5948−istPositiveVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64]
5949−istPositiveVideoDurationSegments
5950− = lens _istPositiveVideoDurationSegments
5951− (\ s a -> s{_istPositiveVideoDurationSegments = a})
5952− . _Default
5953− . _Coerce
5954−
5955−istNegativeAudienceSegments :: Lens' InventorySegmentTargeting [Int64]
5956−istNegativeAudienceSegments
5957− = lens _istNegativeAudienceSegments
5958− (\ s a -> s{_istNegativeAudienceSegments = a})
5959− . _Default
5960− . _Coerce
5961−
5962−istNegativeXfpPlacements :: Lens' InventorySegmentTargeting [Int64]
5963−istNegativeXfpPlacements
5964− = lens _istNegativeXfpPlacements
5965− (\ s a -> s{_istNegativeXfpPlacements = a})
5966− . _Default
5967− . _Coerce
5968−
5969−istPositiveXfpAdSlots :: Lens' InventorySegmentTargeting [Int64]
5970−istPositiveXfpAdSlots
5971− = lens _istPositiveXfpAdSlots
5972− (\ s a -> s{_istPositiveXfpAdSlots = a})
5973− . _Default
5974− . _Coerce
5975−
5976−istNegativeOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64]
5977−istNegativeOperatingSystemVersions
5978− = lens _istNegativeOperatingSystemVersions
5979− (\ s a -> s{_istNegativeOperatingSystemVersions = a})
5980− . _Default
5981− . _Coerce
5982−
5983−istNegativeSizes :: Lens' InventorySegmentTargeting [Int64]
5984−istNegativeSizes
5985− = lens _istNegativeSizes
5986− (\ s a -> s{_istNegativeSizes = a})
5987− . _Default
5988− . _Coerce
5989−
5990−istNegativeLocations :: Lens' InventorySegmentTargeting [Int64]
5991−istNegativeLocations
5992− = lens _istNegativeLocations
5993− (\ s a -> s{_istNegativeLocations = a})
5994− . _Default
5995− . _Coerce
5996−
5997−istNegativeDeviceCategories :: Lens' InventorySegmentTargeting [Int64]
5998−istNegativeDeviceCategories
5999− = lens _istNegativeDeviceCategories
6000− (\ s a -> s{_istNegativeDeviceCategories = a})
6001− . _Default
6002− . _Coerce
6003−
6004−istNegativeOperatingSystems :: Lens' InventorySegmentTargeting [Int64]
6005−istNegativeOperatingSystems
6006− = lens _istNegativeOperatingSystems
6007− (\ s a -> s{_istNegativeOperatingSystems = a})
6008− . _Default
6009− . _Coerce
6010−
6011−istPositiveAdSizes :: Lens' InventorySegmentTargeting [AdSize]
6012−istPositiveAdSizes
6013− = lens _istPositiveAdSizes
6014− (\ s a -> s{_istPositiveAdSizes = a})
6015− . _Default
6016− . _Coerce
6017−
6018−istNegativeSiteURLs :: Lens' InventorySegmentTargeting [Text]
6019−istNegativeSiteURLs
6020− = lens _istNegativeSiteURLs
6021− (\ s a -> s{_istNegativeSiteURLs = a})
6022− . _Default
6023− . _Coerce
6024−
6025−istNegativeAdTypeSegments :: Lens' InventorySegmentTargeting [Text]
6026−istNegativeAdTypeSegments
6027− = lens _istNegativeAdTypeSegments
6028− (\ s a -> s{_istNegativeAdTypeSegments = a})
6029− . _Default
6030− . _Coerce
6031−
6032−istPositiveVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text]
6033−istPositiveVideoAdPositionSegments
6034− = lens _istPositiveVideoAdPositionSegments
6035− (\ s a -> s{_istPositiveVideoAdPositionSegments = a})
6036− . _Default
6037− . _Coerce
6038−
6039−istPositiveInventorySlots :: Lens' InventorySegmentTargeting [Text]
6040−istPositiveInventorySlots
6041− = lens _istPositiveInventorySlots
6042− (\ s a -> s{_istPositiveInventorySlots = a})
6043− . _Default
6044− . _Coerce
6045−
6046−istNegativeMobileApps :: Lens' InventorySegmentTargeting [Text]
6047−istNegativeMobileApps
6048− = lens _istNegativeMobileApps
6049− (\ s a -> s{_istNegativeMobileApps = a})
6050− . _Default
6051− . _Coerce
6052−
6053−istNegativeIcmInterests :: Lens' InventorySegmentTargeting [Int64]
6054−istNegativeIcmInterests
6055− = lens _istNegativeIcmInterests
6056− (\ s a -> s{_istNegativeIcmInterests = a})
6057− . _Default
6058− . _Coerce
6059−
6060−instance FromJSON InventorySegmentTargeting where
6061− parseJSON
6062− = withObject "InventorySegmentTargeting"
6063− (\ o ->
6064− InventorySegmentTargeting <$>
6065− (o .:? "negativeVideoDurationSegments" .!= mempty)
6066− <*> (o .:? "negativeIcmBrands" .!= mempty)
6067− <*> (o .:? "negativeKeyValues" .!= mempty)
6068− <*> (o .:? "positiveAudienceSegments" .!= mempty)
6069− <*> (o .:? "positiveXfpPlacements" .!= mempty)
6070− <*> (o .:? "negativeXfpAdSlots" .!= mempty)
6071− <*>
6072− (o .:? "positiveOperatingSystemVersions" .!= mempty)
6073− <*> (o .:? "positiveSizes" .!= mempty)
6074− <*> (o .:? "positiveDeviceCategories" .!= mempty)
6075− <*> (o .:? "positiveLocations" .!= mempty)
6076− <*> (o .:? "negativeAdSizes" .!= mempty)
6077− <*> (o .:? "positiveOperatingSystems" .!= mempty)
6078− <*> (o .:? "positiveSiteUrls" .!= mempty)
6079− <*> (o .:? "negativeInventorySlots" .!= mempty)
6080− <*>
6081− (o .:? "negativeVideoAdPositionSegments" .!= mempty)
6082− <*> (o .:? "positiveAdTypeSegments" .!= mempty)
6083− <*> (o .:? "positiveIcmInterests" .!= mempty)
6084− <*> (o .:? "positiveMobileApps" .!= mempty)
6085− <*> (o .:? "positiveKeyValues" .!= mempty)
6086− <*> (o .:? "positiveIcmBrands" .!= mempty)
6087− <*>
6088− (o .:? "positiveVideoDurationSegments" .!= mempty)
6089− <*> (o .:? "negativeAudienceSegments" .!= mempty)
6090− <*> (o .:? "negativeXfpPlacements" .!= mempty)
6091− <*> (o .:? "positiveXfpAdSlots" .!= mempty)
6092− <*>
6093− (o .:? "negativeOperatingSystemVersions" .!= mempty)
6094− <*> (o .:? "negativeSizes" .!= mempty)
6095− <*> (o .:? "negativeLocations" .!= mempty)
6096− <*> (o .:? "negativeDeviceCategories" .!= mempty)
6097− <*> (o .:? "negativeOperatingSystems" .!= mempty)
6098− <*> (o .:? "positiveAdSizes" .!= mempty)
6099− <*> (o .:? "negativeSiteUrls" .!= mempty)
6100− <*> (o .:? "negativeAdTypeSegments" .!= mempty)
6101− <*>
6102− (o .:? "positiveVideoAdPositionSegments" .!= mempty)
6103− <*> (o .:? "positiveInventorySlots" .!= mempty)
6104− <*> (o .:? "negativeMobileApps" .!= mempty)
6105− <*> (o .:? "negativeIcmInterests" .!= mempty))
6106−
6107−instance ToJSON InventorySegmentTargeting where
6108− toJSON InventorySegmentTargeting{..}
6109− = object
6110− (catMaybes
6111− [("negativeVideoDurationSegments" .=) <$>
6112− _istNegativeVideoDurationSegments,
6113− ("negativeIcmBrands" .=) <$> _istNegativeIcmBrands,
6114− ("negativeKeyValues" .=) <$> _istNegativeKeyValues,
6115− ("positiveAudienceSegments" .=) <$>
6116− _istPositiveAudienceSegments,
6117− ("positiveXfpPlacements" .=) <$>
6118− _istPositiveXfpPlacements,
6119− ("negativeXfpAdSlots" .=) <$> _istNegativeXfpAdSlots,
6120− ("positiveOperatingSystemVersions" .=) <$>
6121− _istPositiveOperatingSystemVersions,
6122− ("positiveSizes" .=) <$> _istPositiveSizes,
6123− ("positiveDeviceCategories" .=) <$>
6124− _istPositiveDeviceCategories,
6125− ("positiveLocations" .=) <$> _istPositiveLocations,
6126− ("negativeAdSizes" .=) <$> _istNegativeAdSizes,
6127− ("positiveOperatingSystems" .=) <$>
6128− _istPositiveOperatingSystems,
6129− ("positiveSiteUrls" .=) <$> _istPositiveSiteURLs,
6130− ("negativeInventorySlots" .=) <$>
6131− _istNegativeInventorySlots,
6132− ("negativeVideoAdPositionSegments" .=) <$>
6133− _istNegativeVideoAdPositionSegments,
6134− ("positiveAdTypeSegments" .=) <$>
6135− _istPositiveAdTypeSegments,
6136− ("positiveIcmInterests" .=) <$>
6137− _istPositiveIcmInterests,
6138− ("positiveMobileApps" .=) <$> _istPositiveMobileApps,
6139− ("positiveKeyValues" .=) <$> _istPositiveKeyValues,
6140− ("positiveIcmBrands" .=) <$> _istPositiveIcmBrands,
6141− ("positiveVideoDurationSegments" .=) <$>
6142− _istPositiveVideoDurationSegments,
6143− ("negativeAudienceSegments" .=) <$>
6144− _istNegativeAudienceSegments,
6145− ("negativeXfpPlacements" .=) <$>
6146− _istNegativeXfpPlacements,
6147− ("positiveXfpAdSlots" .=) <$> _istPositiveXfpAdSlots,
6148− ("negativeOperatingSystemVersions" .=) <$>
6149− _istNegativeOperatingSystemVersions,
6150− ("negativeSizes" .=) <$> _istNegativeSizes,
6151− ("negativeLocations" .=) <$> _istNegativeLocations,
6152− ("negativeDeviceCategories" .=) <$>
6153− _istNegativeDeviceCategories,
6154− ("negativeOperatingSystems" .=) <$>
6155− _istNegativeOperatingSystems,
6156− ("positiveAdSizes" .=) <$> _istPositiveAdSizes,
6157− ("negativeSiteUrls" .=) <$> _istNegativeSiteURLs,
6158− ("negativeAdTypeSegments" .=) <$>
6159− _istNegativeAdTypeSegments,
6160− ("positiveVideoAdPositionSegments" .=) <$>
6161− _istPositiveVideoAdPositionSegments,
6162− ("positiveInventorySlots" .=) <$>
6163− _istPositiveInventorySlots,
6164− ("negativeMobileApps" .=) <$> _istNegativeMobileApps,
6165− ("negativeIcmInterests" .=) <$>
6166− _istNegativeIcmInterests])
6167−
61684132-- | A large image.
61694133--
61704134-- /See:/ 'creativeNATiveAdImage' smart constructor.
@@ -6222,198 +4186,262 @@ instance ToJSON CreativeNATiveAdImage where
62224186 ("url" .=) <$> _cnataiURL,
62234187 ("width" .=) <$> _cnataiWidth])
62244188
4189+-- | A product is segment of inventory that a seller wishes to sell. It is
4190+-- associated with certain terms and targeting information which helps
4191+-- buyer know more about the inventory. Each field in a product can have
4192+-- one of the following setting: (readonly) - It is an error to try and set
4193+-- this field. (buyer-readonly) - Only the seller can set this field.
4194+-- (seller-readonly) - Only the buyer can set this field. (updatable) - The
4195+-- field is updatable at all times by either buyer or the seller.
62254196--
6226−-- /See:/ 'webPropertyDTO' smart constructor.
6227−data WebPropertyDTO = WebPropertyDTO
6228− { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
6229− , _wpdtoSyndicationProduct :: !(Maybe Text)
6230− , _wpdtoName :: !(Maybe Text)
6231− , _wpdtoPropertyCode :: !(Maybe Text)
6232− , _wpdtoId :: !(Maybe (Textual Int32))
6233− , _wpdtoSiteURLs :: !(Maybe [Text])
6234− , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
4197+-- /See:/ 'product' smart constructor.
4198+data Product = Product
4199+ { _proState :: !(Maybe Text)
4200+ , _proInventorySource :: !(Maybe Text)
4201+ , _proWebPropertyCode :: !(Maybe Text)
4202+ , _proCreationTimeMs :: !(Maybe (Textual Int64))
4203+ , _proTerms :: !(Maybe DealTerms)
4204+ , _proLastUpdateTimeMs :: !(Maybe (Textual Int64))
4205+ , _proKind :: !Text
4206+ , _proRevisionNumber :: !(Maybe (Textual Int64))
4207+ , _proHasCreatorSignedOff :: !(Maybe Bool)
4208+ , _proFlightStartTimeMs :: !(Maybe (Textual Int64))
4209+ , _proSharedTargetings :: !(Maybe [SharedTargeting])
4210+ , _proSeller :: !(Maybe Seller)
4211+ , _proSyndicationProduct :: !(Maybe Text)
4212+ , _proFlightEndTimeMs :: !(Maybe (Textual Int64))
4213+ , _proName :: !(Maybe Text)
4214+ , _proCreatorContacts :: !(Maybe [ContactInformation])
4215+ , _proLabels :: !(Maybe [MarketplaceLabel])
4216+ , _proProductId :: !(Maybe Text)
62354217 } deriving (Eq,Show,Data,Typeable,Generic)
62364218
6237−-- | Creates a value of 'WebPropertyDTO' with the minimum fields required to make a request.
4219+-- | Creates a value of 'Product' with the minimum fields required to make a request.
62384220--
62394221-- Use one of the following lenses to modify other fields as desired:
62404222--
6241−-- * 'wpdtoEnabledForPreferredDeals'
4223+-- * 'proState'
4224+--
4225+-- * 'proInventorySource'
4226+--
4227+-- * 'proWebPropertyCode'
4228+--
4229+-- * 'proCreationTimeMs'
4230+--
4231+-- * 'proTerms'
4232+--
4233+-- * 'proLastUpdateTimeMs'
62424234--
6243−-- * 'wpdtoSyndicationProduct'
4235+-- * 'proKind'
62444236--
6245−-- * 'wpdtoName'
4237+-- * 'proRevisionNumber'
62464238--
6247−-- * 'wpdtoPropertyCode'
4239+-- * 'proHasCreatorSignedOff'
62484240--
6249−-- * 'wpdtoId'
4241+-- * 'proFlightStartTimeMs'
62504242--
6251−-- * 'wpdtoSiteURLs'
4243+-- * 'proSharedTargetings'
62524244--
6253−-- * 'wpdtoAllowInterestTargetedAds'
6254−webPropertyDTO
6255− :: WebPropertyDTO
6256−webPropertyDTO =
6257− WebPropertyDTO
6258− { _wpdtoEnabledForPreferredDeals = Nothing
6259− , _wpdtoSyndicationProduct = Nothing
6260− , _wpdtoName = Nothing
6261− , _wpdtoPropertyCode = Nothing
6262− , _wpdtoId = Nothing
6263− , _wpdtoSiteURLs = Nothing
6264− , _wpdtoAllowInterestTargetedAds = Nothing
4245+-- * 'proSeller'
4246+--
4247+-- * 'proSyndicationProduct'
4248+--
4249+-- * 'proFlightEndTimeMs'
4250+--
4251+-- * 'proName'
4252+--
4253+-- * 'proCreatorContacts'
4254+--
4255+-- * 'proLabels'
4256+--
4257+-- * 'proProductId'
4258+product
4259+ :: Product
4260+product =
4261+ Product
4262+ { _proState = Nothing
4263+ , _proInventorySource = Nothing
4264+ , _proWebPropertyCode = Nothing
4265+ , _proCreationTimeMs = Nothing
4266+ , _proTerms = Nothing
4267+ , _proLastUpdateTimeMs = Nothing
4268+ , _proKind = "adexchangebuyer#product"
4269+ , _proRevisionNumber = Nothing
4270+ , _proHasCreatorSignedOff = Nothing
4271+ , _proFlightStartTimeMs = Nothing
4272+ , _proSharedTargetings = Nothing
4273+ , _proSeller = Nothing
4274+ , _proSyndicationProduct = Nothing
4275+ , _proFlightEndTimeMs = Nothing
4276+ , _proName = Nothing
4277+ , _proCreatorContacts = Nothing
4278+ , _proLabels = Nothing
4279+ , _proProductId = Nothing
62654280 }
62664281
6267−wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
6268−wpdtoEnabledForPreferredDeals
6269− = lens _wpdtoEnabledForPreferredDeals
6270− (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
4282+-- | The state of the product. (buyer-readonly)
4283+proState :: Lens' Product (Maybe Text)
4284+proState = lens _proState (\ s a -> s{_proState = a})
62714285
6272−wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
6273−wpdtoSyndicationProduct
6274− = lens _wpdtoSyndicationProduct
6275− (\ s a -> s{_wpdtoSyndicationProduct = a})
4286+-- | What exchange will provide this inventory (readonly, except on create).
4287+proInventorySource :: Lens' Product (Maybe Text)
4288+proInventorySource
4289+ = lens _proInventorySource
4290+ (\ s a -> s{_proInventorySource = a})
62764291
6277−wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
6278−wpdtoName
6279− = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
4292+proWebPropertyCode :: Lens' Product (Maybe Text)
4293+proWebPropertyCode
4294+ = lens _proWebPropertyCode
4295+ (\ s a -> s{_proWebPropertyCode = a})
62804296
6281−wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
6282−wpdtoPropertyCode
6283− = lens _wpdtoPropertyCode
6284− (\ s a -> s{_wpdtoPropertyCode = a})
6285−
6286−wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
6287−wpdtoId
6288− = lens _wpdtoId (\ s a -> s{_wpdtoId = a}) .
6289− mapping _Coerce
6290−
6291−wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
6292−wpdtoSiteURLs
6293− = lens _wpdtoSiteURLs
6294− (\ s a -> s{_wpdtoSiteURLs = a})
6295− . _Default
6296− . _Coerce
4297+-- | Creation time in ms. since epoch (readonly)
4298+proCreationTimeMs :: Lens' Product (Maybe Int64)
4299+proCreationTimeMs
4300+ = lens _proCreationTimeMs
4301+ (\ s a -> s{_proCreationTimeMs = a})
4302+ . mapping _Coerce
62974303
6298−wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
6299−wpdtoAllowInterestTargetedAds
6300− = lens _wpdtoAllowInterestTargetedAds
6301− (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
4304+-- | The negotiable terms of the deal (buyer-readonly)
4305+proTerms :: Lens' Product (Maybe DealTerms)
4306+proTerms = lens _proTerms (\ s a -> s{_proTerms = a})
63024307
6303−instance FromJSON WebPropertyDTO where
6304− parseJSON
6305− = withObject "WebPropertyDTO"
6306− (\ o ->
6307− WebPropertyDTO <$>
6308− (o .:? "enabledForPreferredDeals") <*>
6309− (o .:? "syndicationProduct")
6310− <*> (o .:? "name")
6311− <*> (o .:? "propertyCode")
6312− <*> (o .:? "id")
6313− <*> (o .:? "siteUrls" .!= mempty)
6314− <*> (o .:? "allowInterestTargetedAds"))
4308+-- | Time of last update in ms. since epoch (readonly)
4309+proLastUpdateTimeMs :: Lens' Product (Maybe Int64)
4310+proLastUpdateTimeMs
4311+ = lens _proLastUpdateTimeMs
4312+ (\ s a -> s{_proLastUpdateTimeMs = a})
4313+ . mapping _Coerce
63154314
6316−instance ToJSON WebPropertyDTO where
6317− toJSON WebPropertyDTO{..}
6318− = object
6319− (catMaybes
6320− [("enabledForPreferredDeals" .=) <$>
6321− _wpdtoEnabledForPreferredDeals,
6322− ("syndicationProduct" .=) <$>
6323− _wpdtoSyndicationProduct,
6324− ("name" .=) <$> _wpdtoName,
6325− ("propertyCode" .=) <$> _wpdtoPropertyCode,
6326− ("id" .=) <$> _wpdtoId,
6327− ("siteUrls" .=) <$> _wpdtoSiteURLs,
6328− ("allowInterestTargetedAds" .=) <$>
6329− _wpdtoAllowInterestTargetedAds])
6330−
6331−--
6332−-- /See:/ 'listOffersRequest' smart constructor.
6333−newtype ListOffersRequest = ListOffersRequest
6334− { _lorSinceTimestampMillis :: Maybe (Textual Int64)
6335− } deriving (Eq,Show,Data,Typeable,Generic)
4315+-- | Identifies what kind of resource this is. Value: the fixed string
4316+-- \"adexchangebuyer#product\".
4317+proKind :: Lens' Product Text
4318+proKind = lens _proKind (\ s a -> s{_proKind = a})
4319+
4320+-- | The revision number of the product. (readonly)
4321+proRevisionNumber :: Lens' Product (Maybe Int64)
4322+proRevisionNumber
4323+ = lens _proRevisionNumber
4324+ (\ s a -> s{_proRevisionNumber = a})
4325+ . mapping _Coerce
63364326
6337−-- | Creates a value of 'ListOffersRequest' with the minimum fields required to make a request.
6338−--
6339−-- Use one of the following lenses to modify other fields as desired:
6340−--
6341−-- * 'lorSinceTimestampMillis'
6342−listOffersRequest
6343− :: ListOffersRequest
6344−listOffersRequest =
6345− ListOffersRequest
6346− { _lorSinceTimestampMillis = Nothing
6347− }
4327+-- | If the creator has already signed off on the product, then the buyer can
4328+-- finalize the deal by accepting the product as is. When copying to a
4329+-- proposal, if any of the terms are changed, then auto_finalize is
4330+-- automatically set to false.
4331+proHasCreatorSignedOff :: Lens' Product (Maybe Bool)
4332+proHasCreatorSignedOff
4333+ = lens _proHasCreatorSignedOff
4334+ (\ s a -> s{_proHasCreatorSignedOff = a})
63484335
6349−lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
6350−lorSinceTimestampMillis
6351− = lens _lorSinceTimestampMillis
6352− (\ s a -> s{_lorSinceTimestampMillis = a})
4336+-- | Inventory availability dates. (times are in ms since epoch) The
4337+-- granularity is generally in the order of seconds. (buyer-readonly)
4338+proFlightStartTimeMs :: Lens' Product (Maybe Int64)
4339+proFlightStartTimeMs
4340+ = lens _proFlightStartTimeMs
4341+ (\ s a -> s{_proFlightStartTimeMs = a})
63534342 . mapping _Coerce
63544343
6355−instance FromJSON ListOffersRequest where
6356− parseJSON
6357− = withObject "ListOffersRequest"
6358− (\ o ->
6359− ListOffersRequest <$> (o .:? "sinceTimestampMillis"))
6360−
6361−instance ToJSON ListOffersRequest where
6362− toJSON ListOffersRequest{..}
6363− = object
6364− (catMaybes
6365− [("sinceTimestampMillis" .=) <$>
6366− _lorSinceTimestampMillis])
4344+-- | Targeting that is shared between the buyer and the seller. Each
4345+-- targeting criteria has a specified key and for each key there is a list
4346+-- of inclusion value or exclusion values. (buyer-readonly)
4347+proSharedTargetings :: Lens' Product [SharedTargeting]
4348+proSharedTargetings
4349+ = lens _proSharedTargetings
4350+ (\ s a -> s{_proSharedTargetings = a})
4351+ . _Default
4352+ . _Coerce
63674353
6368−--
6369−-- /See:/ 'clientAccessCapabilities' smart constructor.
6370−data ClientAccessCapabilities = ClientAccessCapabilities
6371− { _cacClientAccountId :: !(Maybe (Textual Int64))
6372− , _cacCapabilities :: !(Maybe [Textual Int32])
6373− } deriving (Eq,Show,Data,Typeable,Generic)
4354+-- | Information about the seller that created this product (readonly, except
4355+-- on create)
4356+proSeller :: Lens' Product (Maybe Seller)
4357+proSeller
4358+ = lens _proSeller (\ s a -> s{_proSeller = a})
63744359
6375−-- | Creates a value of 'ClientAccessCapabilities' with the minimum fields required to make a request.
6376−--
6377−-- Use one of the following lenses to modify other fields as desired:
6378−--
6379−-- * 'cacClientAccountId'
6380−--
6381−-- * 'cacCapabilities'
6382−clientAccessCapabilities
6383− :: ClientAccessCapabilities
6384−clientAccessCapabilities =
6385− ClientAccessCapabilities
6386− { _cacClientAccountId = Nothing
6387− , _cacCapabilities = Nothing
6388− }
4360+-- | The syndication product associated with the deal. (readonly, except on
4361+-- create)
4362+proSyndicationProduct :: Lens' Product (Maybe Text)
4363+proSyndicationProduct
4364+ = lens _proSyndicationProduct
4365+ (\ s a -> s{_proSyndicationProduct = a})
63894366
6390−cacClientAccountId :: Lens' ClientAccessCapabilities (Maybe Int64)
6391−cacClientAccountId
6392− = lens _cacClientAccountId
6393− (\ s a -> s{_cacClientAccountId = a})
4367+-- | The proposed end time for the deal (ms since epoch) (buyer-readonly)
4368+proFlightEndTimeMs :: Lens' Product (Maybe Int64)
4369+proFlightEndTimeMs
4370+ = lens _proFlightEndTimeMs
4371+ (\ s a -> s{_proFlightEndTimeMs = a})
63944372 . mapping _Coerce
63954373
6396−cacCapabilities :: Lens' ClientAccessCapabilities [Int32]
6397−cacCapabilities
6398− = lens _cacCapabilities
6399− (\ s a -> s{_cacCapabilities = a})
4374+-- | The name for this product as set by the seller. (buyer-readonly)
4375+proName :: Lens' Product (Maybe Text)
4376+proName = lens _proName (\ s a -> s{_proName = a})
4377+
4378+-- | Optional contact information for the creator of this product.
4379+-- (buyer-readonly)
4380+proCreatorContacts :: Lens' Product [ContactInformation]
4381+proCreatorContacts
4382+ = lens _proCreatorContacts
4383+ (\ s a -> s{_proCreatorContacts = a})
64004384 . _Default
64014385 . _Coerce
64024386
6403−instance FromJSON ClientAccessCapabilities where
4387+-- | Optional List of labels for the product (optional, buyer-readonly).
4388+proLabels :: Lens' Product [MarketplaceLabel]
4389+proLabels
4390+ = lens _proLabels (\ s a -> s{_proLabels = a}) .
4391+ _Default
4392+ . _Coerce
4393+
4394+-- | The unique id for the product (readonly)
4395+proProductId :: Lens' Product (Maybe Text)
4396+proProductId
4397+ = lens _proProductId (\ s a -> s{_proProductId = a})
4398+
4399+instance FromJSON Product where
64044400 parseJSON
6405− = withObject "ClientAccessCapabilities"
4401+ = withObject "Product"
64064402 (\ o ->
6407− ClientAccessCapabilities <$>
6408− (o .:? "clientAccountId") <*>
6409− (o .:? "capabilities" .!= mempty))
4403+ Product <$>
4404+ (o .:? "state") <*> (o .:? "inventorySource") <*>
4405+ (o .:? "webPropertyCode")
4406+ <*> (o .:? "creationTimeMs")
4407+ <*> (o .:? "terms")
4408+ <*> (o .:? "lastUpdateTimeMs")
4409+ <*> (o .:? "kind" .!= "adexchangebuyer#product")
4410+ <*> (o .:? "revisionNumber")
4411+ <*> (o .:? "hasCreatorSignedOff")
4412+ <*> (o .:? "flightStartTimeMs")
4413+ <*> (o .:? "sharedTargetings" .!= mempty)
4414+ <*> (o .:? "seller")
4415+ <*> (o .:? "syndicationProduct")
4416+ <*> (o .:? "flightEndTimeMs")
4417+ <*> (o .:? "name")
4418+ <*> (o .:? "creatorContacts" .!= mempty)
4419+ <*> (o .:? "labels" .!= mempty)
4420+ <*> (o .:? "productId"))
64104421
6411−instance ToJSON ClientAccessCapabilities where
6412− toJSON ClientAccessCapabilities{..}
4422+instance ToJSON Product where
4423+ toJSON Product{..}
64134424 = object
64144425 (catMaybes
6415− [("clientAccountId" .=) <$> _cacClientAccountId,
6416− ("capabilities" .=) <$> _cacCapabilities])
4426+ [("state" .=) <$> _proState,
4427+ ("inventorySource" .=) <$> _proInventorySource,
4428+ ("webPropertyCode" .=) <$> _proWebPropertyCode,
4429+ ("creationTimeMs" .=) <$> _proCreationTimeMs,
4430+ ("terms" .=) <$> _proTerms,
4431+ ("lastUpdateTimeMs" .=) <$> _proLastUpdateTimeMs,
4432+ Just ("kind" .= _proKind),
4433+ ("revisionNumber" .=) <$> _proRevisionNumber,
4434+ ("hasCreatorSignedOff" .=) <$>
4435+ _proHasCreatorSignedOff,
4436+ ("flightStartTimeMs" .=) <$> _proFlightStartTimeMs,
4437+ ("sharedTargetings" .=) <$> _proSharedTargetings,
4438+ ("seller" .=) <$> _proSeller,
4439+ ("syndicationProduct" .=) <$> _proSyndicationProduct,
4440+ ("flightEndTimeMs" .=) <$> _proFlightEndTimeMs,
4441+ ("name" .=) <$> _proName,
4442+ ("creatorContacts" .=) <$> _proCreatorContacts,
4443+ ("labels" .=) <$> _proLabels,
4444+ ("productId" .=) <$> _proProductId])
64174445
64184446--
64194447-- /See:/ 'creativeServingRestrictionsItem' smart constructor.
@@ -6487,8 +4515,8 @@ instance ToJSON CreativeServingRestrictionsItem where
64874515--
64884516-- /See:/ 'deleteOrderDealsResponse' smart constructor.
64894517data DeleteOrderDealsResponse = DeleteOrderDealsResponse
6490− { _dDeals :: !(Maybe [MarketplaceDeal])
6491− , _dOrderRevisionNumber :: !(Maybe (Textual Int64))
4518+ { _dDeals :: !(Maybe [MarketplaceDeal])
4519+ , _dProposalRevisionNumber :: !(Maybe (Textual Int64))
64924520 } deriving (Eq,Show,Data,Typeable,Generic)
64934521
64944522-- | Creates a value of 'DeleteOrderDealsResponse' with the minimum fields required to make a request.
@@ -6497,26 +4525,26 @@ data DeleteOrderDealsResponse = DeleteOrderDealsResponse
64974525--
64984526-- * 'dDeals'
64994527--
6500−-- * 'dOrderRevisionNumber'
4528+-- * 'dProposalRevisionNumber'
65014529deleteOrderDealsResponse
65024530 :: DeleteOrderDealsResponse
65034531deleteOrderDealsResponse =
65044532 DeleteOrderDealsResponse
65054533 { _dDeals = Nothing
6506− , _dOrderRevisionNumber = Nothing
4534+ , _dProposalRevisionNumber = Nothing
65074535 }
65084536
6509−-- | List of deals deleted (in the same order as passed in the request)
4537+-- | List of deals deleted (in the same proposal as passed in the request)
65104538dDeals :: Lens' DeleteOrderDealsResponse [MarketplaceDeal]
65114539dDeals
65124540 = lens _dDeals (\ s a -> s{_dDeals = a}) . _Default .
65134541 _Coerce
65144542
6515−-- | The updated revision number for the order.
6516−dOrderRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64)
6517−dOrderRevisionNumber
6518− = lens _dOrderRevisionNumber
6519− (\ s a -> s{_dOrderRevisionNumber = a})
4543+-- | The updated revision number for the proposal.
4544+dProposalRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64)
4545+dProposalRevisionNumber
4546+ = lens _dProposalRevisionNumber
4547+ (\ s a -> s{_dProposalRevisionNumber = a})
65204548 . mapping _Coerce
65214549
65224550instance FromJSON DeleteOrderDealsResponse where
@@ -6525,15 +4553,15 @@ instance FromJSON DeleteOrderDealsResponse where
65254553 (\ o ->
65264554 DeleteOrderDealsResponse <$>
65274555 (o .:? "deals" .!= mempty) <*>
6528− (o .:? "orderRevisionNumber"))
4556+ (o .:? "proposalRevisionNumber"))
65294557
65304558instance ToJSON DeleteOrderDealsResponse where
65314559 toJSON DeleteOrderDealsResponse{..}
65324560 = object
65334561 (catMaybes
65344562 [("deals" .=) <$> _dDeals,
6535− ("orderRevisionNumber" .=) <$>
6536− _dOrderRevisionNumber])
4563+ ("proposalRevisionNumber" .=) <$>
4564+ _dProposalRevisionNumber])
65374565
65384566--
65394567-- /See:/ 'pretargetingConfigPlacementsItem' smart constructor.
@@ -6584,30 +4612,31 @@ instance ToJSON PretargetingConfigPlacementsItem
65844612 [("token" .=) <$> _pcpiToken,
65854613 ("type" .=) <$> _pcpiType])
65864614
6587−-- | An order can contain multiple deals. A deal contains the terms and
4615+-- | A proposal can contain multiple deals. A deal contains the terms and
65884616-- targeting information that is used for serving.
65894617--
65904618-- /See:/ 'marketplaceDeal' smart constructor.
65914619data MarketplaceDeal = MarketplaceDeal
6592− { _mdExternalDealId :: !(Maybe Text)
6593− , _mdBuyerPrivateData :: !(Maybe PrivateData)
6594− , _mdWebPropertyCode :: !(Maybe Text)
6595− , _mdCreationTimeMs :: !(Maybe (Textual Int64))
6596− , _mdTerms :: !(Maybe DealTerms)
6597− , _mdOfferRevisionNumber :: !(Maybe (Textual Int64))
6598− , _mdLastUpdateTimeMs :: !(Maybe (Textual Int64))
6599− , _mdKind :: !Text
6600− , _mdDeliveryControl :: !(Maybe DeliveryControl)
6601− , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
6602− , _mdSharedTargetings :: !(Maybe [SharedTargeting])
6603− , _mdDealId :: !(Maybe Text)
6604− , _mdInventoryDescription :: !(Maybe Text)
6605− , _mdSyndicationProduct :: !(Maybe Text)
6606− , _mdFlightEndTimeMs :: !(Maybe (Textual Int64))
6607− , _mdName :: !(Maybe Text)
6608− , _mdSellerContacts :: !(Maybe [ContactInformation])
6609− , _mdOfferId :: !(Maybe Text)
6610− , _mdOrderId :: !(Maybe Text)
4620+ { _mdExternalDealId :: !(Maybe Text)
4621+ , _mdBuyerPrivateData :: !(Maybe PrivateData)
4622+ , _mdWebPropertyCode :: !(Maybe Text)
4623+ , _mdCreationTimeMs :: !(Maybe (Textual Int64))
4624+ , _mdTerms :: !(Maybe DealTerms)
4625+ , _mdLastUpdateTimeMs :: !(Maybe (Textual Int64))
4626+ , _mdKind :: !Text
4627+ , _mdDeliveryControl :: !(Maybe DeliveryControl)
4628+ , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
4629+ , _mdSharedTargetings :: !(Maybe [SharedTargeting])
4630+ , _mdProposalId :: !(Maybe Text)
4631+ , _mdDealId :: !(Maybe Text)
4632+ , _mdInventoryDescription :: !(Maybe Text)
4633+ , _mdSyndicationProduct :: !(Maybe Text)
4634+ , _mdFlightEndTimeMs :: !(Maybe (Textual Int64))
4635+ , _mdName :: !(Maybe Text)
4636+ , _mdSellerContacts :: !(Maybe [ContactInformation])
4637+ , _mdCreativePreApprovalPolicy :: !(Maybe Text)
4638+ , _mdProductRevisionNumber :: !(Maybe (Textual Int64))
4639+ , _mdProductId :: !(Maybe Text)
66114640 } deriving (Eq,Show,Data,Typeable,Generic)
66124641
66134642-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.
@@ -6624,8 +4653,6 @@ data MarketplaceDeal = MarketplaceDeal
66244653--
66254654-- * 'mdTerms'
66264655--
6627−-- * 'mdOfferRevisionNumber'
6628−--
66294656-- * 'mdLastUpdateTimeMs'
66304657--
66314658-- * 'mdKind'
@@ -6636,6 +4663,8 @@ data MarketplaceDeal = MarketplaceDeal
66364663--
66374664-- * 'mdSharedTargetings'
66384665--
4666+-- * 'mdProposalId'
4667+--
66394668-- * 'mdDealId'
66404669--
66414670-- * 'mdInventoryDescription'
@@ -6648,9 +4677,11 @@ data MarketplaceDeal = MarketplaceDeal
66484677--
66494678-- * 'mdSellerContacts'
66504679--
6651−-- * 'mdOfferId'
4680+-- * 'mdCreativePreApprovalPolicy'
4681+--
4682+-- * 'mdProductRevisionNumber'
66524683--
6653−-- * 'mdOrderId'
4684+-- * 'mdProductId'
66544685marketplaceDeal
66554686 :: MarketplaceDeal
66564687marketplaceDeal =
@@ -6660,20 +4691,21 @@ marketplaceDeal =
66604691 , _mdWebPropertyCode = Nothing
66614692 , _mdCreationTimeMs = Nothing
66624693 , _mdTerms = Nothing
6663− , _mdOfferRevisionNumber = Nothing
66644694 , _mdLastUpdateTimeMs = Nothing
66654695 , _mdKind = "adexchangebuyer#marketplaceDeal"
66664696 , _mdDeliveryControl = Nothing
66674697 , _mdFlightStartTimeMs = Nothing
66684698 , _mdSharedTargetings = Nothing
4699+ , _mdProposalId = Nothing
66694700 , _mdDealId = Nothing
66704701 , _mdInventoryDescription = Nothing
66714702 , _mdSyndicationProduct = Nothing
66724703 , _mdFlightEndTimeMs = Nothing
66734704 , _mdName = Nothing
66744705 , _mdSellerContacts = Nothing
6675− , _mdOfferId = Nothing
6676− , _mdOrderId = Nothing
4706+ , _mdCreativePreApprovalPolicy = Nothing
4707+ , _mdProductRevisionNumber = Nothing
4708+ , _mdProductId = Nothing
66774709 }
66784710
66794711-- | The external deal id assigned to this deal once the deal is finalized.
@@ -6705,14 +4737,6 @@ mdCreationTimeMs
67054737mdTerms :: Lens' MarketplaceDeal (Maybe DealTerms)
67064738mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a})
67074739
6708−-- | The revision number of the offer that the deal was created from
6709−-- (readonly, except on create)
6710−mdOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)
6711−mdOfferRevisionNumber
6712− = lens _mdOfferRevisionNumber
6713− (\ s a -> s{_mdOfferRevisionNumber = a})
6714− . mapping _Coerce
6715−
67164740-- | The time (ms since epoch) when the deal was last updated. (readonly)
67174741mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
67184742mdLastUpdateTimeMs
@@ -6750,6 +4774,10 @@ mdSharedTargetings
67504774 . _Default
67514775 . _Coerce
67524776
4777+mdProposalId :: Lens' MarketplaceDeal (Maybe Text)
4778+mdProposalId
4779+ = lens _mdProposalId (\ s a -> s{_mdProposalId = a})
4780+
67534781-- | A unique deal=id for the deal (readonly).
67544782mdDealId :: Lens' MarketplaceDeal (Maybe Text)
67554783mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
@@ -6787,15 +4815,25 @@ mdSellerContacts
67874815 . _Default
67884816 . _Coerce
67894817
6790−-- | The offer-id from which this deal was created. (readonly, except on
6791−-- create)
6792−mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
6793−mdOfferId
6794− = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
4818+-- | Specifies the creative pre-approval policy (buyer-readonly)
4819+mdCreativePreApprovalPolicy :: Lens' MarketplaceDeal (Maybe Text)
4820+mdCreativePreApprovalPolicy
4821+ = lens _mdCreativePreApprovalPolicy
4822+ (\ s a -> s{_mdCreativePreApprovalPolicy = a})
4823+
4824+-- | The revision number of the product that the deal was created from
4825+-- (readonly, except on create)
4826+mdProductRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)
4827+mdProductRevisionNumber
4828+ = lens _mdProductRevisionNumber
4829+ (\ s a -> s{_mdProductRevisionNumber = a})
4830+ . mapping _Coerce
67954831
6796−mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
6797−mdOrderId
6798− = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
4832+-- | The product-id from which this deal was created. (readonly, except on
4833+-- create)
4834+mdProductId :: Lens' MarketplaceDeal (Maybe Text)
4835+mdProductId
4836+ = lens _mdProductId (\ s a -> s{_mdProductId = a})
67994837
68004838instance FromJSON MarketplaceDeal where
68014839 parseJSON
@@ -6807,21 +4845,22 @@ instance FromJSON MarketplaceDeal where
68074845 <*> (o .:? "webPropertyCode")
68084846 <*> (o .:? "creationTimeMs")
68094847 <*> (o .:? "terms")
6810− <*> (o .:? "offerRevisionNumber")
68114848 <*> (o .:? "lastUpdateTimeMs")
68124849 <*>
68134850 (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal")
68144851 <*> (o .:? "deliveryControl")
68154852 <*> (o .:? "flightStartTimeMs")
68164853 <*> (o .:? "sharedTargetings" .!= mempty)
4854+ <*> (o .:? "proposalId")
68174855 <*> (o .:? "dealId")
68184856 <*> (o .:? "inventoryDescription")
68194857 <*> (o .:? "syndicationProduct")
68204858 <*> (o .:? "flightEndTimeMs")
68214859 <*> (o .:? "name")
68224860 <*> (o .:? "sellerContacts" .!= mempty)
6823− <*> (o .:? "offerId")
6824− <*> (o .:? "orderId"))
4861+ <*> (o .:? "creativePreApprovalPolicy")
4862+ <*> (o .:? "productRevisionNumber")
4863+ <*> (o .:? "productId"))
68254864
68264865instance ToJSON MarketplaceDeal where
68274866 toJSON MarketplaceDeal{..}
@@ -6832,13 +4871,12 @@ instance ToJSON MarketplaceDeal where
68324871 ("webPropertyCode" .=) <$> _mdWebPropertyCode,
68334872 ("creationTimeMs" .=) <$> _mdCreationTimeMs,
68344873 ("terms" .=) <$> _mdTerms,
6835− ("offerRevisionNumber" .=) <$>
6836− _mdOfferRevisionNumber,
68374874 ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,
68384875 Just ("kind" .= _mdKind),
68394876 ("deliveryControl" .=) <$> _mdDeliveryControl,
68404877 ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
68414878 ("sharedTargetings" .=) <$> _mdSharedTargetings,
4879+ ("proposalId" .=) <$> _mdProposalId,
68424880 ("dealId" .=) <$> _mdDealId,
68434881 ("inventoryDescription" .=) <$>
68444882 _mdInventoryDescription,
@@ -6846,31 +4884,34 @@ instance ToJSON MarketplaceDeal where
68464884 ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,
68474885 ("name" .=) <$> _mdName,
68484886 ("sellerContacts" .=) <$> _mdSellerContacts,
6849− ("offerId" .=) <$> _mdOfferId,
6850− ("orderId" .=) <$> _mdOrderId])
4887+ ("creativePreApprovalPolicy" .=) <$>
4888+ _mdCreativePreApprovalPolicy,
4889+ ("productRevisionNumber" .=) <$>
4890+ _mdProductRevisionNumber,
4891+ ("productId" .=) <$> _mdProductId])
68514892
68524893--
68534894-- /See:/ 'getOffersResponse' smart constructor.
68544895newtype GetOffersResponse = GetOffersResponse
6855− { _gorOffers :: Maybe [MarketplaceOffer]
4896+ { _gorProducts :: Maybe [Product]
68564897 } deriving (Eq,Show,Data,Typeable,Generic)
68574898
68584899-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
68594900--
68604901-- Use one of the following lenses to modify other fields as desired:
68614902--
6862−-- * 'gorOffers'
4903+-- * 'gorProducts'
68634904getOffersResponse
68644905 :: GetOffersResponse
68654906getOffersResponse =
68664907 GetOffersResponse
6867− { _gorOffers = Nothing
4908+ { _gorProducts = Nothing
68684909 }
68694910
6870−-- | The returned list of offers.
6871−gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]
6872−gorOffers
6873− = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
4911+-- | The returned list of products.
4912+gorProducts :: Lens' GetOffersResponse [Product]
4913+gorProducts
4914+ = lens _gorProducts (\ s a -> s{_gorProducts = a}) .
68744915 _Default
68754916 . _Coerce
68764917
@@ -6878,100 +4919,12 @@ instance FromJSON GetOffersResponse where
68784919 parseJSON
68794920 = withObject "GetOffersResponse"
68804921 (\ o ->
6881− GetOffersResponse <$> (o .:? "offers" .!= mempty))
4922+ GetOffersResponse <$> (o .:? "products" .!= mempty))
68824923
68834924instance ToJSON GetOffersResponse where
68844925 toJSON GetOffersResponse{..}
6885− = object (catMaybes [("offers" .=) <$> _gorOffers])
6886−
6887−--
6888−-- /See:/ 'statsDTO' smart constructor.
6889−data StatsDTO = StatsDTO
6890− { _sdtoBids :: !(Maybe (Textual Int64))
6891− , _sdtoSpend :: !(Maybe MoneyDTO)
6892− , _sdtoImpressions :: !(Maybe (Textual Int64))
6893− , _sdtoGoodBids :: !(Maybe (Textual Int64))
6894− , _sdtoRevenue :: !(Maybe MoneyDTO)
6895− , _sdtoRequests :: !(Maybe (Textual Int64))
6896− } deriving (Eq,Show,Data,Typeable,Generic)
6897−
6898−-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request.
6899−--
6900−-- Use one of the following lenses to modify other fields as desired:
6901−--
6902−-- * 'sdtoBids'
6903−--
6904−-- * 'sdtoSpend'
6905−--
6906−-- * 'sdtoImpressions'
6907−--
6908−-- * 'sdtoGoodBids'
6909−--
6910−-- * 'sdtoRevenue'
6911−--
6912−-- * 'sdtoRequests'
6913−statsDTO
6914− :: StatsDTO
6915−statsDTO =
6916− StatsDTO
6917− { _sdtoBids = Nothing
6918− , _sdtoSpend = Nothing
6919− , _sdtoImpressions = Nothing
6920− , _sdtoGoodBids = Nothing
6921− , _sdtoRevenue = Nothing
6922− , _sdtoRequests = Nothing
6923− }
6924−
6925−sdtoBids :: Lens' StatsDTO (Maybe Int64)
6926−sdtoBids
6927− = lens _sdtoBids (\ s a -> s{_sdtoBids = a}) .
6928− mapping _Coerce
6929−
6930−sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6931−sdtoSpend
6932− = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6933−
6934−sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6935−sdtoImpressions
6936− = lens _sdtoImpressions
6937− (\ s a -> s{_sdtoImpressions = a})
6938− . mapping _Coerce
6939−
6940−sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6941−sdtoGoodBids
6942− = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6943− . mapping _Coerce
6944−
6945−sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6946−sdtoRevenue
6947− = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6948−
6949−sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6950−sdtoRequests
6951− = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6952− . mapping _Coerce
6953−
6954−instance FromJSON StatsDTO where
6955− parseJSON
6956− = withObject "StatsDTO"
6957− (\ o ->
6958− StatsDTO <$>
6959− (o .:? "bids") <*> (o .:? "spend") <*>
6960− (o .:? "impressions")
6961− <*> (o .:? "goodBids")
6962− <*> (o .:? "revenue")
6963− <*> (o .:? "requests"))
6964−
6965−instance ToJSON StatsDTO where
6966− toJSON StatsDTO{..}
69674926 = object
6968− (catMaybes
6969− [("bids" .=) <$> _sdtoBids,
6970− ("spend" .=) <$> _sdtoSpend,
6971− ("impressions" .=) <$> _sdtoImpressions,
6972− ("goodBids" .=) <$> _sdtoGoodBids,
6973− ("revenue" .=) <$> _sdtoRevenue,
6974− ("requests" .=) <$> _sdtoRequests])
4927+ (catMaybes [("products" .=) <$> _gorProducts])
69754928
69764929--
69774930-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
@@ -7082,142 +5035,14 @@ instance ToJSON CreativeFilteringReasonsReasonsItem
70825035 [("filteringStatus" .=) <$> _cfrriFilteringStatus,
70835036 ("filteringCount" .=) <$> _cfrriFilteringCount])
70845037
7085−--
7086−-- /See:/ 'negotiationRoundDTO' smart constructor.
7087−data NegotiationRoundDTO = NegotiationRoundDTO
7088− { _nrdtoTerms :: !(Maybe TermsDTO)
7089− , _nrdtoKind :: !Text
7090− , _nrdtoOriginatorRole :: !(Maybe Text)
7091− , _nrdtoAction :: !(Maybe Text)
7092− , _nrdtoDBmPartnerId :: !(Maybe (Textual Int64))
7093− , _nrdtoNotes :: !(Maybe Text)
7094− , _nrdtoNegotiationId :: !(Maybe (Textual Int64))
7095− , _nrdtoEditHistory :: !(Maybe EditHistoryDTO)
7096− , _nrdtoRoundNumber :: !(Maybe (Textual Int64))
7097− } deriving (Eq,Show,Data,Typeable,Generic)
7098−
7099−-- | Creates a value of 'NegotiationRoundDTO' with the minimum fields required to make a request.
7100−--
7101−-- Use one of the following lenses to modify other fields as desired:
7102−--
7103−-- * 'nrdtoTerms'
7104−--
7105−-- * 'nrdtoKind'
7106−--
7107−-- * 'nrdtoOriginatorRole'
7108−--
7109−-- * 'nrdtoAction'
7110−--
7111−-- * 'nrdtoDBmPartnerId'
7112−--
7113−-- * 'nrdtoNotes'
7114−--
7115−-- * 'nrdtoNegotiationId'
7116−--
7117−-- * 'nrdtoEditHistory'
7118−--
7119−-- * 'nrdtoRoundNumber'
7120−negotiationRoundDTO
7121− :: NegotiationRoundDTO
7122−negotiationRoundDTO =
7123− NegotiationRoundDTO
7124− { _nrdtoTerms = Nothing
7125− , _nrdtoKind = "adexchangebuyer#negotiationRound"
7126− , _nrdtoOriginatorRole = Nothing
7127− , _nrdtoAction = Nothing
7128− , _nrdtoDBmPartnerId = Nothing
7129− , _nrdtoNotes = Nothing
7130− , _nrdtoNegotiationId = Nothing
7131− , _nrdtoEditHistory = Nothing
7132− , _nrdtoRoundNumber = Nothing
7133− }
7134−
7135−-- | The detailed terms proposed in this negotiation round.
7136−nrdtoTerms :: Lens' NegotiationRoundDTO (Maybe TermsDTO)
7137−nrdtoTerms
7138− = lens _nrdtoTerms (\ s a -> s{_nrdtoTerms = a})
7139−
7140−nrdtoKind :: Lens' NegotiationRoundDTO Text
7141−nrdtoKind
7142− = lens _nrdtoKind (\ s a -> s{_nrdtoKind = a})
7143−
7144−-- | The role, either buyer or seller, initiating this negotiation round.
7145−nrdtoOriginatorRole :: Lens' NegotiationRoundDTO (Maybe Text)
7146−nrdtoOriginatorRole
7147− = lens _nrdtoOriginatorRole
7148− (\ s a -> s{_nrdtoOriginatorRole = a})
7149−
7150−-- | The action performed by this negotiation round.
7151−nrdtoAction :: Lens' NegotiationRoundDTO (Maybe Text)
7152−nrdtoAction
7153− = lens _nrdtoAction (\ s a -> s{_nrdtoAction = a})
7154−
7155−-- | Stores DBM partner ID for use by DBM
7156−nrdtoDBmPartnerId :: Lens' NegotiationRoundDTO (Maybe Int64)
7157−nrdtoDBmPartnerId
7158− = lens _nrdtoDBmPartnerId
7159− (\ s a -> s{_nrdtoDBmPartnerId = a})
7160− . mapping _Coerce
7161−
7162−-- | Notes regarding this negotiation round.
7163−nrdtoNotes :: Lens' NegotiationRoundDTO (Maybe Text)
7164−nrdtoNotes
7165− = lens _nrdtoNotes (\ s a -> s{_nrdtoNotes = a})
7166−
7167−-- | The ID of the negotiation to which this negotiation round applies.
7168−nrdtoNegotiationId :: Lens' NegotiationRoundDTO (Maybe Int64)
7169−nrdtoNegotiationId
7170− = lens _nrdtoNegotiationId
7171− (\ s a -> s{_nrdtoNegotiationId = a})
7172− . mapping _Coerce
7173−
7174−-- | The edit history of this negotiation round.
7175−nrdtoEditHistory :: Lens' NegotiationRoundDTO (Maybe EditHistoryDTO)
7176−nrdtoEditHistory
7177− = lens _nrdtoEditHistory
7178− (\ s a -> s{_nrdtoEditHistory = a})
7179−
7180−-- | The number of this negotiation round, in sequence.
7181−nrdtoRoundNumber :: Lens' NegotiationRoundDTO (Maybe Int64)
7182−nrdtoRoundNumber
7183− = lens _nrdtoRoundNumber
7184− (\ s a -> s{_nrdtoRoundNumber = a})
7185− . mapping _Coerce
7186−
7187−instance FromJSON NegotiationRoundDTO where
7188− parseJSON
7189− = withObject "NegotiationRoundDTO"
7190− (\ o ->
7191− NegotiationRoundDTO <$>
7192− (o .:? "terms") <*>
7193− (o .:? "kind" .!= "adexchangebuyer#negotiationRound")
7194− <*> (o .:? "originatorRole")
7195− <*> (o .:? "action")
7196− <*> (o .:? "dbmPartnerId")
7197− <*> (o .:? "notes")
7198− <*> (o .:? "negotiationId")
7199− <*> (o .:? "editHistory")
7200− <*> (o .:? "roundNumber"))
7201−
7202−instance ToJSON NegotiationRoundDTO where
7203− toJSON NegotiationRoundDTO{..}
7204− = object
7205− (catMaybes
7206− [("terms" .=) <$> _nrdtoTerms,
7207− Just ("kind" .= _nrdtoKind),
7208− ("originatorRole" .=) <$> _nrdtoOriginatorRole,
7209− ("action" .=) <$> _nrdtoAction,
7210− ("dbmPartnerId" .=) <$> _nrdtoDBmPartnerId,
7211− ("notes" .=) <$> _nrdtoNotes,
7212− ("negotiationId" .=) <$> _nrdtoNegotiationId,
7213− ("editHistory" .=) <$> _nrdtoEditHistory,
7214− ("roundNumber" .=) <$> _nrdtoRoundNumber])
7215−
72165038--
72175039-- /See:/ 'dealTerms' smart constructor.
72185040data DealTerms = DealTerms
7219− { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
5041+ { _dtEstimatedGrossSpend :: !(Maybe Price)
5042+ , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
72205043 , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
5044+ , _dtBrandingType :: !(Maybe Text)
5045+ , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
72215046 , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
72225047 , _dtDescription :: !(Maybe Text)
72235048 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -7226,10 +5051,16 @@ data DealTerms = DealTerms
72265051--
72275052-- Use one of the following lenses to modify other fields as desired:
72285053--
5054+-- * 'dtEstimatedGrossSpend'
5055+--
72295056-- * 'dtNonGuaranteedFixedPriceTerms'
72305057--
72315058-- * 'dtNonGuaranteedAuctionTerms'
72325059--
5060+-- * 'dtBrandingType'
5061+--
5062+-- * 'dtEstimatedImpressionsPerDay'
5063+--
72335064-- * 'dtGuaranteedFixedPriceTerms'
72345065--
72355066-- * 'dtDescription'
@@ -7237,12 +5068,22 @@ dealTerms
72375068 :: DealTerms
72385069dealTerms =
72395070 DealTerms
7240− { _dtNonGuaranteedFixedPriceTerms = Nothing
5071+ { _dtEstimatedGrossSpend = Nothing
5072+ , _dtNonGuaranteedFixedPriceTerms = Nothing
72415073 , _dtNonGuaranteedAuctionTerms = Nothing
5074+ , _dtBrandingType = Nothing
5075+ , _dtEstimatedImpressionsPerDay = Nothing
72425076 , _dtGuaranteedFixedPriceTerms = Nothing
72435077 , _dtDescription = Nothing
72445078 }
72455079
5080+-- | Non-binding estimate of the estimated gross spend for this deal Can be
5081+-- set by buyer or seller.
5082+dtEstimatedGrossSpend :: Lens' DealTerms (Maybe Price)
5083+dtEstimatedGrossSpend
5084+ = lens _dtEstimatedGrossSpend
5085+ (\ s a -> s{_dtEstimatedGrossSpend = a})
5086+
72465087-- | The terms for non-guaranteed fixed price deals.
72475088dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)
72485089dtNonGuaranteedFixedPriceTerms
@@ -7255,6 +5096,20 @@ dtNonGuaranteedAuctionTerms
72555096 = lens _dtNonGuaranteedAuctionTerms
72565097 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
72575098
5099+-- | Visibilty of the URL in bid requests.
5100+dtBrandingType :: Lens' DealTerms (Maybe Text)
5101+dtBrandingType
5102+ = lens _dtBrandingType
5103+ (\ s a -> s{_dtBrandingType = a})
5104+
5105+-- | Non-binding estimate of the impressions served per day Can be set by
5106+-- buyer or seller.
5107+dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64)
5108+dtEstimatedImpressionsPerDay
5109+ = lens _dtEstimatedImpressionsPerDay
5110+ (\ s a -> s{_dtEstimatedImpressionsPerDay = a})
5111+ . mapping _Coerce
5112+
72585113-- | The terms for guaranteed fixed price deals.
72595114dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)
72605115dtGuaranteedFixedPriceTerms
@@ -7272,8 +5127,11 @@ instance FromJSON DealTerms where
72725127 = withObject "DealTerms"
72735128 (\ o ->
72745129 DealTerms <$>
7275− (o .:? "nonGuaranteedFixedPriceTerms") <*>
7276− (o .:? "nonGuaranteedAuctionTerms")
5130+ (o .:? "estimatedGrossSpend") <*>
5131+ (o .:? "nonGuaranteedFixedPriceTerms")
5132+ <*> (o .:? "nonGuaranteedAuctionTerms")
5133+ <*> (o .:? "brandingType")
5134+ <*> (o .:? "estimatedImpressionsPerDay")
72775135 <*> (o .:? "guaranteedFixedPriceTerms")
72785136 <*> (o .:? "description"))
72795137
@@ -7281,111 +5139,19 @@ instance ToJSON DealTerms where
72815139 toJSON DealTerms{..}
72825140 = object
72835141 (catMaybes
7284− [("nonGuaranteedFixedPriceTerms" .=) <$>
5142+ [("estimatedGrossSpend" .=) <$>
5143+ _dtEstimatedGrossSpend,
5144+ ("nonGuaranteedFixedPriceTerms" .=) <$>
72855145 _dtNonGuaranteedFixedPriceTerms,
72865146 ("nonGuaranteedAuctionTerms" .=) <$>
72875147 _dtNonGuaranteedAuctionTerms,
5148+ ("brandingType" .=) <$> _dtBrandingType,
5149+ ("estimatedImpressionsPerDay" .=) <$>
5150+ _dtEstimatedImpressionsPerDay,
72885151 ("guaranteedFixedPriceTerms" .=) <$>
72895152 _dtGuaranteedFixedPriceTerms,
72905153 ("description" .=) <$> _dtDescription])
72915154
7292−--
7293−-- /See:/ 'dateTime' smart constructor.
7294−data DateTime = DateTime
7295− { _dtSecond :: !(Maybe (Textual Int32))
7296− , _dtDay :: !(Maybe (Textual Int32))
7297− , _dtYear :: !(Maybe (Textual Int32))
7298− , _dtHour :: !(Maybe (Textual Int32))
7299− , _dtMonth :: !(Maybe (Textual Int32))
7300− , _dtMinute :: !(Maybe (Textual Int32))
7301− , _dtTimeZoneId :: !(Maybe Text)
7302− } deriving (Eq,Show,Data,Typeable,Generic)
7303−
7304−-- | Creates a value of 'DateTime' with the minimum fields required to make a request.
7305−--
7306−-- Use one of the following lenses to modify other fields as desired:
7307−--
7308−-- * 'dtSecond'
7309−--
7310−-- * 'dtDay'
7311−--
7312−-- * 'dtYear'
7313−--
7314−-- * 'dtHour'
7315−--
7316−-- * 'dtMonth'
7317−--
7318−-- * 'dtMinute'
7319−--
7320−-- * 'dtTimeZoneId'
7321−dateTime
7322− :: DateTime
7323−dateTime =
7324− DateTime
7325− { _dtSecond = Nothing
7326− , _dtDay = Nothing
7327− , _dtYear = Nothing
7328− , _dtHour = Nothing
7329− , _dtMonth = Nothing
7330− , _dtMinute = Nothing
7331− , _dtTimeZoneId = Nothing
7332− }
7333−
7334−dtSecond :: Lens' DateTime (Maybe Int32)
7335−dtSecond
7336− = lens _dtSecond (\ s a -> s{_dtSecond = a}) .
7337− mapping _Coerce
7338−
7339−dtDay :: Lens' DateTime (Maybe Int32)
7340−dtDay
7341− = lens _dtDay (\ s a -> s{_dtDay = a}) .
7342− mapping _Coerce
7343−
7344−dtYear :: Lens' DateTime (Maybe Int32)
7345−dtYear
7346− = lens _dtYear (\ s a -> s{_dtYear = a}) .
7347− mapping _Coerce
7348−
7349−dtHour :: Lens' DateTime (Maybe Int32)
7350−dtHour
7351− = lens _dtHour (\ s a -> s{_dtHour = a}) .
7352− mapping _Coerce
7353−
7354−dtMonth :: Lens' DateTime (Maybe Int32)
7355−dtMonth
7356− = lens _dtMonth (\ s a -> s{_dtMonth = a}) .
7357− mapping _Coerce
7358−
7359−dtMinute :: Lens' DateTime (Maybe Int32)
7360−dtMinute
7361− = lens _dtMinute (\ s a -> s{_dtMinute = a}) .
7362− mapping _Coerce
7363−
7364−dtTimeZoneId :: Lens' DateTime (Maybe Text)
7365−dtTimeZoneId
7366− = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
7367−
7368−instance FromJSON DateTime where
7369− parseJSON
7370− = withObject "DateTime"
7371− (\ o ->
7372− DateTime <$>
7373− (o .:? "second") <*> (o .:? "day") <*> (o .:? "year")
7374− <*> (o .:? "hour")
7375− <*> (o .:? "month")
7376− <*> (o .:? "minute")
7377− <*> (o .:? "timeZoneId"))
7378−
7379−instance ToJSON DateTime where
7380− toJSON DateTime{..}
7381− = object
7382− (catMaybes
7383− [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay,
7384− ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour,
7385− ("month" .=) <$> _dtMonth,
7386− ("minute" .=) <$> _dtMinute,
7387− ("timeZoneId" .=) <$> _dtTimeZoneId])
7388−
73895155--
73905156-- /See:/ 'marketplaceLabel' smart constructor.
73915157data MarketplaceLabel = MarketplaceLabel
@@ -7458,102 +5224,28 @@ instance ToJSON MarketplaceLabel where
74585224 ("createTimeMs" .=) <$> _mlCreateTimeMs,
74595225 ("label" .=) <$> _mlLabel])
74605226
7461−--
7462−-- /See:/ 'editHistoryDTO' smart constructor.
7463−data EditHistoryDTO = EditHistoryDTO
7464− { _ehdtoLastUpdatedByLoginName :: !(Maybe Text)
7465− , _ehdtoCreatedByLoginName :: !(Maybe Text)
7466− , _ehdtoLastUpdateTimeStamp :: !(Maybe (Textual Int64))
7467− , _ehdtoCreatedTimeStamp :: !(Maybe (Textual Int64))
7468− } deriving (Eq,Show,Data,Typeable,Generic)
7469−
7470−-- | Creates a value of 'EditHistoryDTO' with the minimum fields required to make a request.
7471−--
7472−-- Use one of the following lenses to modify other fields as desired:
7473−--
7474−-- * 'ehdtoLastUpdatedByLoginName'
7475−--
7476−-- * 'ehdtoCreatedByLoginName'
7477−--
7478−-- * 'ehdtoLastUpdateTimeStamp'
7479−--
7480−-- * 'ehdtoCreatedTimeStamp'
7481−editHistoryDTO
7482− :: EditHistoryDTO
7483−editHistoryDTO =
7484− EditHistoryDTO
7485− { _ehdtoLastUpdatedByLoginName = Nothing
7486− , _ehdtoCreatedByLoginName = Nothing
7487− , _ehdtoLastUpdateTimeStamp = Nothing
7488− , _ehdtoCreatedTimeStamp = Nothing
7489− }
7490−
7491−ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7492−ehdtoLastUpdatedByLoginName
7493− = lens _ehdtoLastUpdatedByLoginName
7494− (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
7495−
7496−ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7497−ehdtoCreatedByLoginName
7498− = lens _ehdtoCreatedByLoginName
7499− (\ s a -> s{_ehdtoCreatedByLoginName = a})
7500−
7501−ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7502−ehdtoLastUpdateTimeStamp
7503− = lens _ehdtoLastUpdateTimeStamp
7504− (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
7505− . mapping _Coerce
7506−
7507−ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7508−ehdtoCreatedTimeStamp
7509− = lens _ehdtoCreatedTimeStamp
7510− (\ s a -> s{_ehdtoCreatedTimeStamp = a})
7511− . mapping _Coerce
7512−
7513−instance FromJSON EditHistoryDTO where
7514− parseJSON
7515− = withObject "EditHistoryDTO"
7516− (\ o ->
7517− EditHistoryDTO <$>
7518− (o .:? "lastUpdatedByLoginName") <*>
7519− (o .:? "createdByLoginName")
7520− <*> (o .:? "lastUpdateTimeStamp")
7521− <*> (o .:? "createdTimeStamp"))
7522−
7523−instance ToJSON EditHistoryDTO where
7524− toJSON EditHistoryDTO{..}
7525− = object
7526− (catMaybes
7527− [("lastUpdatedByLoginName" .=) <$>
7528− _ehdtoLastUpdatedByLoginName,
7529− ("createdByLoginName" .=) <$>
7530− _ehdtoCreatedByLoginName,
7531− ("lastUpdateTimeStamp" .=) <$>
7532− _ehdtoLastUpdateTimeStamp,
7533− ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])
7534−
75355227--
75365228-- /See:/ 'buyer' smart constructor.
75375229newtype Buyer = Buyer
7538− { _bbAccountId :: Maybe Text
5230+ { _buyAccountId :: Maybe Text
75395231 } deriving (Eq,Show,Data,Typeable,Generic)
75405232
75415233-- | Creates a value of 'Buyer' with the minimum fields required to make a request.
75425234--
75435235-- Use one of the following lenses to modify other fields as desired:
75445236--
7545−-- * 'bbAccountId'
5237+-- * 'buyAccountId'
75465238buyer
75475239 :: Buyer
75485240buyer =
75495241 Buyer
7550− { _bbAccountId = Nothing
5242+ { _buyAccountId = Nothing
75515243 }
75525244
75535245-- | Adx account id of the buyer.
7554−bbAccountId :: Lens' Buyer (Maybe Text)
7555−bbAccountId
7556− = lens _bbAccountId (\ s a -> s{_bbAccountId = a})
5246+buyAccountId :: Lens' Buyer (Maybe Text)
5247+buyAccountId
5248+ = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
75575249
75585250instance FromJSON Buyer where
75595251 parseJSON
@@ -7563,288 +5255,14 @@ instance FromJSON Buyer where
75635255instance ToJSON Buyer where
75645256 toJSON Buyer{..}
75655257 = object
7566− (catMaybes [("accountId" .=) <$> _bbAccountId])
7567−
7568−-- | Represents an order in the marketplace. An order is the unit of
7569−-- negotiation between a seller and a buyer and contains deals which are
7570−-- served. Each field in an order can have one of the following setting:
7571−-- (readonly) - It is an error to try and set this field. (buyer-readonly)
7572−-- - Only the seller can set this field. (seller-readonly) - Only the buyer
7573−-- can set this field. (updatable) - The field is updatable at all times by
7574−-- either buyer or the seller.
7575−--
7576−-- /See:/ 'marketplaceOrder' smart constructor.
7577−data MarketplaceOrder = MarketplaceOrder
7578− { _mBuyerPrivateData :: !(Maybe PrivateData)
7579− , _mIsSetupComplete :: !(Maybe Bool)
7580− , _mBuyerContacts :: !(Maybe [ContactInformation])
7581− , _mKind :: !Text
7582− , _mOriginatorRole :: !(Maybe Text)
7583− , _mRevisionNumber :: !(Maybe (Textual Int64))
7584− , _mBilledBuyer :: !(Maybe Buyer)
7585− , _mIsRenegotiating :: !(Maybe Bool)
7586− , _mHasSellerSignedOff :: !(Maybe Bool)
7587− , _mSeller :: !(Maybe Seller)
7588− , _mOrderState :: !(Maybe Text)
7589− , _mName :: !(Maybe Text)
7590− , _mSellerContacts :: !(Maybe [ContactInformation])
7591− , _mLastUpdaterRole :: !(Maybe Text)
7592− , _mLabels :: !(Maybe [MarketplaceLabel])
7593− , _mRevisionTimeMs :: !(Maybe (Textual Int64))
7594− , _mOrderId :: !(Maybe Text)
7595− , _mLastUpdaterOrCommentorRole :: !(Maybe Text)
7596− , _mHasBuyerSignedOff :: !(Maybe Bool)
7597− , _mBuyer :: !(Maybe Buyer)
7598− } deriving (Eq,Show,Data,Typeable,Generic)
7599−
7600−-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
7601−--
7602−-- Use one of the following lenses to modify other fields as desired:
7603−--
7604−-- * 'mBuyerPrivateData'
7605−--
7606−-- * 'mIsSetupComplete'
7607−--
7608−-- * 'mBuyerContacts'
7609−--
7610−-- * 'mKind'
7611−--
7612−-- * 'mOriginatorRole'
7613−--
7614−-- * 'mRevisionNumber'
7615−--
7616−-- * 'mBilledBuyer'
7617−--
7618−-- * 'mIsRenegotiating'
7619−--
7620−-- * 'mHasSellerSignedOff'
7621−--
7622−-- * 'mSeller'
7623−--
7624−-- * 'mOrderState'
7625−--
7626−-- * 'mName'
7627−--
7628−-- * 'mSellerContacts'
7629−--
7630−-- * 'mLastUpdaterRole'
7631−--
7632−-- * 'mLabels'
7633−--
7634−-- * 'mRevisionTimeMs'
7635−--
7636−-- * 'mOrderId'
7637−--
7638−-- * 'mLastUpdaterOrCommentorRole'
7639−--
7640−-- * 'mHasBuyerSignedOff'
7641−--
7642−-- * 'mBuyer'
7643−marketplaceOrder
7644− :: MarketplaceOrder
7645−marketplaceOrder =
7646− MarketplaceOrder
7647− { _mBuyerPrivateData = Nothing
7648− , _mIsSetupComplete = Nothing
7649− , _mBuyerContacts = Nothing
7650− , _mKind = "adexchangebuyer#marketplaceOrder"
7651− , _mOriginatorRole = Nothing
7652− , _mRevisionNumber = Nothing
7653− , _mBilledBuyer = Nothing
7654− , _mIsRenegotiating = Nothing
7655− , _mHasSellerSignedOff = Nothing
7656− , _mSeller = Nothing
7657− , _mOrderState = Nothing
7658− , _mName = Nothing
7659− , _mSellerContacts = Nothing
7660− , _mLastUpdaterRole = Nothing
7661− , _mLabels = Nothing
7662− , _mRevisionTimeMs = Nothing
7663− , _mOrderId = Nothing
7664− , _mLastUpdaterOrCommentorRole = Nothing
7665− , _mHasBuyerSignedOff = Nothing
7666− , _mBuyer = Nothing
7667− }
7668−
7669−-- | Private data for buyer. (hidden from seller).
7670−mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)
7671−mBuyerPrivateData
7672− = lens _mBuyerPrivateData
7673− (\ s a -> s{_mBuyerPrivateData = a})
7674−
7675−-- | True, if the buyside inventory setup is complete for this order.
7676−-- (readonly)
7677−mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
7678−mIsSetupComplete
7679− = lens _mIsSetupComplete
7680− (\ s a -> s{_mIsSetupComplete = a})
7681−
7682−-- | Optional contact information fort the buyer. (seller-readonly)
7683−mBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]
7684−mBuyerContacts
7685− = lens _mBuyerContacts
7686− (\ s a -> s{_mBuyerContacts = a})
7687− . _Default
7688− . _Coerce
7689−
7690−-- | Identifies what kind of resource this is. Value: the fixed string
7691−-- \"adexchangebuyer#marketplaceOrder\".
7692−mKind :: Lens' MarketplaceOrder Text
7693−mKind = lens _mKind (\ s a -> s{_mKind = a})
7694−
7695−-- | Indicates whether the buyer\/seller created the offer.(readonly)
7696−mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
7697−mOriginatorRole
7698− = lens _mOriginatorRole
7699− (\ s a -> s{_mOriginatorRole = a})
7700−
7701−-- | The revision number for the order (readonly).
7702−mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
7703−mRevisionNumber
7704− = lens _mRevisionNumber
7705− (\ s a -> s{_mRevisionNumber = a})
7706− . mapping _Coerce
7707−
7708−-- | Reference to the buyer that will get billed for this order. (readonly)
7709−mBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7710−mBilledBuyer
7711− = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a})
7712−
7713−-- | True if the order is being renegotiated (readonly).
7714−mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
7715−mIsRenegotiating
7716− = lens _mIsRenegotiating
7717− (\ s a -> s{_mIsRenegotiating = a})
7718−
7719−-- | When an order is in an accepted state, indicates whether the buyer has
7720−-- signed off Once both sides have signed off on a deal, the order can be
7721−-- finalized by the seller. (buyer-readonly)
7722−mHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7723−mHasSellerSignedOff
7724− = lens _mHasSellerSignedOff
7725− (\ s a -> s{_mHasSellerSignedOff = a})
7726−
7727−-- | Reference to the seller on the order. (readonly, except on create)
7728−mSeller :: Lens' MarketplaceOrder (Maybe Seller)
7729−mSeller = lens _mSeller (\ s a -> s{_mSeller = a})
7730−
7731−-- | The current state of the order. (readonly)
7732−mOrderState :: Lens' MarketplaceOrder (Maybe Text)
7733−mOrderState
7734− = lens _mOrderState (\ s a -> s{_mOrderState = a})
7735−
7736−-- | The name for the order (updatable)
7737−mName :: Lens' MarketplaceOrder (Maybe Text)
7738−mName = lens _mName (\ s a -> s{_mName = a})
7739−
7740−-- | Optional contact information for the seller (buyer-readonly).
7741−mSellerContacts :: Lens' MarketplaceOrder [ContactInformation]
7742−mSellerContacts
7743− = lens _mSellerContacts
7744− (\ s a -> s{_mSellerContacts = a})
7745− . _Default
7746− . _Coerce
7747−
7748−mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
7749−mLastUpdaterRole
7750− = lens _mLastUpdaterRole
7751− (\ s a -> s{_mLastUpdaterRole = a})
7752−
7753−-- | List of labels associated with the order. (readonly)
7754−mLabels :: Lens' MarketplaceOrder [MarketplaceLabel]
7755−mLabels
7756− = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default
7757− . _Coerce
7758−
7759−-- | The time (ms since epoch) when the order was last revised (readonly).
7760−mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
7761−mRevisionTimeMs
7762− = lens _mRevisionTimeMs
7763− (\ s a -> s{_mRevisionTimeMs = a})
7764− . mapping _Coerce
7765−
7766−-- | The unique id of the order. (readonly).
7767−mOrderId :: Lens' MarketplaceOrder (Maybe Text)
7768−mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
7769−
7770−-- | The role of the last user that either updated the order or left a
7771−-- comment. (readonly)
7772−mLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)
7773−mLastUpdaterOrCommentorRole
7774− = lens _mLastUpdaterOrCommentorRole
7775− (\ s a -> s{_mLastUpdaterOrCommentorRole = a})
7776−
7777−-- | When an order is in an accepted state, indicates whether the buyer has
7778−-- signed off Once both sides have signed off on a deal, the order can be
7779−-- finalized by the seller. (seller-readonly)
7780−mHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7781−mHasBuyerSignedOff
7782− = lens _mHasBuyerSignedOff
7783− (\ s a -> s{_mHasBuyerSignedOff = a})
7784−
7785−-- | Reference to the buyer on the order. (readonly, except on create)
7786−mBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7787−mBuyer = lens _mBuyer (\ s a -> s{_mBuyer = a})
7788−
7789−instance FromJSON MarketplaceOrder where
7790− parseJSON
7791− = withObject "MarketplaceOrder"
7792− (\ o ->
7793− MarketplaceOrder <$>
7794− (o .:? "buyerPrivateData") <*>
7795− (o .:? "isSetupComplete")
7796− <*> (o .:? "buyerContacts" .!= mempty)
7797− <*>
7798− (o .:? "kind" .!= "adexchangebuyer#marketplaceOrder")
7799− <*> (o .:? "originatorRole")
7800− <*> (o .:? "revisionNumber")
7801− <*> (o .:? "billedBuyer")
7802− <*> (o .:? "isRenegotiating")
7803− <*> (o .:? "hasSellerSignedOff")
7804− <*> (o .:? "seller")
7805− <*> (o .:? "orderState")
7806− <*> (o .:? "name")
7807− <*> (o .:? "sellerContacts" .!= mempty)
7808− <*> (o .:? "lastUpdaterRole")
7809− <*> (o .:? "labels" .!= mempty)
7810− <*> (o .:? "revisionTimeMs")
7811− <*> (o .:? "orderId")
7812− <*> (o .:? "lastUpdaterOrCommentorRole")
7813− <*> (o .:? "hasBuyerSignedOff")
7814− <*> (o .:? "buyer"))
7815−
7816−instance ToJSON MarketplaceOrder where
7817− toJSON MarketplaceOrder{..}
7818− = object
7819− (catMaybes
7820− [("buyerPrivateData" .=) <$> _mBuyerPrivateData,
7821− ("isSetupComplete" .=) <$> _mIsSetupComplete,
7822− ("buyerContacts" .=) <$> _mBuyerContacts,
7823− Just ("kind" .= _mKind),
7824− ("originatorRole" .=) <$> _mOriginatorRole,
7825− ("revisionNumber" .=) <$> _mRevisionNumber,
7826− ("billedBuyer" .=) <$> _mBilledBuyer,
7827− ("isRenegotiating" .=) <$> _mIsRenegotiating,
7828− ("hasSellerSignedOff" .=) <$> _mHasSellerSignedOff,
7829− ("seller" .=) <$> _mSeller,
7830− ("orderState" .=) <$> _mOrderState,
7831− ("name" .=) <$> _mName,
7832− ("sellerContacts" .=) <$> _mSellerContacts,
7833− ("lastUpdaterRole" .=) <$> _mLastUpdaterRole,
7834− ("labels" .=) <$> _mLabels,
7835− ("revisionTimeMs" .=) <$> _mRevisionTimeMs,
7836− ("orderId" .=) <$> _mOrderId,
7837− ("lastUpdaterOrCommentorRole" .=) <$>
7838− _mLastUpdaterOrCommentorRole,
7839− ("hasBuyerSignedOff" .=) <$> _mHasBuyerSignedOff,
7840− ("buyer" .=) <$> _mBuyer])
5258+ (catMaybes [("accountId" .=) <$> _buyAccountId])
78415259
78425260--
78435261-- /See:/ 'addOrderDealsRequest' smart constructor.
78445262data AddOrderDealsRequest = AddOrderDealsRequest
7845− { _aUpdateAction :: !(Maybe Text)
7846− , _aDeals :: !(Maybe [MarketplaceDeal])
7847− , _aOrderRevisionNumber :: !(Maybe (Textual Int64))
5263+ { _aUpdateAction :: !(Maybe Text)
5264+ , _aDeals :: !(Maybe [MarketplaceDeal])
5265+ , _aProposalRevisionNumber :: !(Maybe (Textual Int64))
78485266 } deriving (Eq,Show,Data,Typeable,Generic)
78495267
78505268-- | Creates a value of 'AddOrderDealsRequest' with the minimum fields required to make a request.
@@ -7855,17 +5273,17 @@ data AddOrderDealsRequest = AddOrderDealsRequest
78555273--
78565274-- * 'aDeals'
78575275--
7858−-- * 'aOrderRevisionNumber'
5276+-- * 'aProposalRevisionNumber'
78595277addOrderDealsRequest
78605278 :: AddOrderDealsRequest
78615279addOrderDealsRequest =
78625280 AddOrderDealsRequest
78635281 { _aUpdateAction = Nothing
78645282 , _aDeals = Nothing
7865− , _aOrderRevisionNumber = Nothing
5283+ , _aProposalRevisionNumber = Nothing
78665284 }
78675285
7868−-- | Indicates an optional action to take on the order
5286+-- | Indicates an optional action to take on the proposal
78695287aUpdateAction :: Lens' AddOrderDealsRequest (Maybe Text)
78705288aUpdateAction
78715289 = lens _aUpdateAction
@@ -7877,11 +5295,11 @@ aDeals
78775295 = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default .
78785296 _Coerce
78795297
7880−-- | The last known order revision number.
7881−aOrderRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64)
7882−aOrderRevisionNumber
7883− = lens _aOrderRevisionNumber
7884− (\ s a -> s{_aOrderRevisionNumber = a})
5298+-- | The last known proposal revision number.
5299+aProposalRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64)
5300+aProposalRevisionNumber
5301+ = lens _aProposalRevisionNumber
5302+ (\ s a -> s{_aProposalRevisionNumber = a})
78855303 . mapping _Coerce
78865304
78875305instance FromJSON AddOrderDealsRequest where
@@ -7890,7 +5308,7 @@ instance FromJSON AddOrderDealsRequest where
78905308 (\ o ->
78915309 AddOrderDealsRequest <$>
78925310 (o .:? "updateAction") <*> (o .:? "deals" .!= mempty)
7893− <*> (o .:? "orderRevisionNumber"))
5311+ <*> (o .:? "proposalRevisionNumber"))
78945312
78955313instance ToJSON AddOrderDealsRequest where
78965314 toJSON AddOrderDealsRequest{..}
@@ -7898,8 +5316,8 @@ instance ToJSON AddOrderDealsRequest where
78985316 (catMaybes
78995317 [("updateAction" .=) <$> _aUpdateAction,
79005318 ("deals" .=) <$> _aDeals,
7901− ("orderRevisionNumber" .=) <$>
7902− _aOrderRevisionNumber])
5319+ ("proposalRevisionNumber" .=) <$>
5320+ _aProposalRevisionNumber])
79035321
79045322--
79055323-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
@@ -7927,7 +5345,7 @@ dealTermsGuaranteedFixedPriceTerms =
79275345 , _dtgfptFixedPrices = Nothing
79285346 }
79295347
7930−-- | Count of guaranteed looks. Required for deal, optional for offer.
5348+-- | Count of guaranteed looks. Required for deal, optional for product.
79315349dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
79325350dtgfptGuaranteedLooks
79335351 = lens _dtgfptGuaranteedLooks