@@ -20,74 +20,19 @@ module Network.Google.AdExchangeBuyer.Types.Product where
20import Network.Google.AdExchangeBuyer.Types.Sum
20import Network.Google.AdExchangeBuyer.Types.Sum
21import Network.Google.Prelude
21import Network.Google.Prelude
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)
31−-- | Creates a value of 'BrandDTO' with the minimum fields required to make a request.
33−-- Use one of the following lenses to modify other fields as desired:
35−-- * 'bdtoAdvertiserId'
44− { _bdtoAdvertiserId = Nothing
45− , _bdtoName = Nothing
49−bdtoAdvertiserId :: Lens' BrandDTO (Maybe Int64)
51− = lens _bdtoAdvertiserId
52− (\ s a -> s{_bdtoAdvertiserId = a})
55−bdtoName :: Lens' BrandDTO (Maybe Text)
56−bdtoName = lens _bdtoName (\ s a -> s{_bdtoName = a})
58−bdtoId :: Lens' BrandDTO (Maybe Int64)
60− = lens _bdtoId (\ s a -> s{_bdtoId = a}) .
63−instance FromJSON BrandDTO where
65− = withObject "BrandDTO"
68− (o .:? "advertiserId") <*> (o .:? "name") <*>
71−instance ToJSON BrandDTO where
75− [("advertiserId" .=) <$> _bdtoAdvertiserId,
76− ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
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
79-- associated with a deal and\/or revision number.
24-- associated with a deal and\/or revision number.
81-- /See:/ 'marketplaceNote' smart constructor.
26-- /See:/ 'marketplaceNote' smart constructor.
82data MarketplaceNote = MarketplaceNote
27data MarketplaceNote = MarketplaceNote
83− { _mnNote :: !(Maybe Text)
28+ { _mnNote :: !(Maybe Text)
84− , _mnKind :: !Text
29+ , _mnKind :: !Text
85− , _mnTimestampMs :: !(Maybe (Textual Int64))
30+ , _mnTimestampMs :: !(Maybe (Textual Int64))
31+ , _mnProposalId :: !(Maybe Text)
86− , _mnDealId :: !(Maybe Text)
32+ , _mnDealId :: !(Maybe Text)
33+ , _mnProposalRevisionNumber :: !(Maybe (Textual Int64))
87− , _mnNoteId :: !(Maybe Text)
34+ , _mnNoteId :: !(Maybe Text)
88− , _mnCreatorRole :: !(Maybe Text)
35+ , _mnCreatorRole :: !(Maybe Text)
89− , _mnOrderId :: !(Maybe Text)
90− , _mnOrderRevisionNumber :: !(Maybe (Textual Int64))
91 } deriving (Eq,Show,Data,Typeable,Generic)
36 } deriving (Eq,Show,Data,Typeable,Generic)
93-- | Creates a value of 'MarketplaceNote' with the minimum fields required to make a request.
38-- | Creates a value of 'MarketplaceNote' with the minimum fields required to make a request.
@@ -100,15 +45,15 @@ data MarketplaceNote = MarketplaceNote
101-- * 'mnTimestampMs'
46-- * 'mnTimestampMs'
103-- * 'mnDealId'
50-- * 'mnDealId'
52+-- * 'mnProposalRevisionNumber'
105-- * 'mnNoteId'
54-- * 'mnNoteId'
107-- * 'mnCreatorRole'
56-- * 'mnCreatorRole'
111−-- * 'mnOrderRevisionNumber'
112marketplaceNote
57marketplaceNote
113 :: MarketplaceNote
58 :: MarketplaceNote
114marketplaceNote =
59marketplaceNote =
@@ -116,11 +61,11 @@ marketplaceNote =
116 { _mnNote = Nothing
61 { _mnNote = Nothing
117 , _mnKind = "adexchangebuyer#marketplaceNote"
62 , _mnKind = "adexchangebuyer#marketplaceNote"
118 , _mnTimestampMs = Nothing
63 , _mnTimestampMs = Nothing
64+ , _mnProposalId = Nothing
119 , _mnDealId = Nothing
65 , _mnDealId = Nothing
66+ , _mnProposalRevisionNumber = Nothing
120 , _mnNoteId = Nothing
67 , _mnNoteId = Nothing
121 , _mnCreatorRole = Nothing
68 , _mnCreatorRole = Nothing
122− , _mnOrderId = Nothing
123− , _mnOrderRevisionNumber = Nothing
126-- | The actual note to attach. (readonly, except on create)
71-- | The actual note to attach. (readonly, except on create)
@@ -139,11 +84,24 @@ mnTimestampMs
139 (\ s a -> s{_mnTimestampMs = a})
84 (\ s a -> s{_mnTimestampMs = a})
140 . mapping _Coerce
85 . mapping _Coerce
87+-- | The proposalId that a note is attached to. (readonly)
88+mnProposalId :: Lens' MarketplaceNote (Maybe Text)
90+ = lens _mnProposalId (\ s a -> s{_mnProposalId = a})
142-- | Notes can optionally be associated with a deal. (readonly, except on
92-- | Notes can optionally be associated with a deal. (readonly, except on
143-- create)
93-- create)
144mnDealId :: Lens' MarketplaceNote (Maybe Text)
94mnDealId :: Lens' MarketplaceNote (Maybe Text)
145mnDealId = lens _mnDealId (\ s a -> s{_mnDealId = a})
95mnDealId = lens _mnDealId (\ s a -> s{_mnDealId = a})
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})
147-- | The unique id for the note. (readonly)
105-- | The unique id for the note. (readonly)
148mnNoteId :: Lens' MarketplaceNote (Maybe Text)
106mnNoteId :: Lens' MarketplaceNote (Maybe Text)
149mnNoteId = lens _mnNoteId (\ s a -> s{_mnNoteId = a})
107mnNoteId = lens _mnNoteId (\ s a -> s{_mnNoteId = a})
@@ -154,19 +112,6 @@ mnCreatorRole
154 = lens _mnCreatorRole
112 = lens _mnCreatorRole
155 (\ s a -> s{_mnCreatorRole = a})
113 (\ s a -> s{_mnCreatorRole = a})
157−-- | The order_id that a note is attached to. (readonly)
158−mnOrderId :: Lens' MarketplaceNote (Maybe Text)
160− = lens _mnOrderId (\ s a -> s{_mnOrderId = a})
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})
170instance FromJSON MarketplaceNote where
115instance FromJSON MarketplaceNote where
171 parseJSON
116 parseJSON
172 = withObject "MarketplaceNote"
117 = withObject "MarketplaceNote"
@@ -175,11 +120,11 @@ instance FromJSON MarketplaceNote where
175 (o .:? "note") <*>
120 (o .:? "note") <*>
176 (o .:? "kind" .!= "adexchangebuyer#marketplaceNote")
121 (o .:? "kind" .!= "adexchangebuyer#marketplaceNote")
177 <*> (o .:? "timestampMs")
122 <*> (o .:? "timestampMs")
123+ <*> (o .:? "proposalId")
178 <*> (o .:? "dealId")
124 <*> (o .:? "dealId")
125+ <*> (o .:? "proposalRevisionNumber")
179 <*> (o .:? "noteId")
126 <*> (o .:? "noteId")
180− <*> (o .:? "creatorRole")
127+ <*> (o .:? "creatorRole"))
181− <*> (o .:? "orderId")
182− <*> (o .:? "orderRevisionNumber"))
184instance ToJSON MarketplaceNote where
129instance ToJSON MarketplaceNote where
185 toJSON MarketplaceNote{..}
130 toJSON MarketplaceNote{..}
@@ -187,12 +132,12 @@ instance ToJSON MarketplaceNote where
187 (catMaybes
132 (catMaybes
188 [("note" .=) <$> _mnNote, Just ("kind" .= _mnKind),
133 [("note" .=) <$> _mnNote, Just ("kind" .= _mnKind),
189 ("timestampMs" .=) <$> _mnTimestampMs,
134 ("timestampMs" .=) <$> _mnTimestampMs,
135+ ("proposalId" .=) <$> _mnProposalId,
190 ("dealId" .=) <$> _mnDealId,
136 ("dealId" .=) <$> _mnDealId,
137+ ("proposalRevisionNumber" .=) <$>
138+ _mnProposalRevisionNumber,
191 ("noteId" .=) <$> _mnNoteId,
139 ("noteId" .=) <$> _mnNoteId,
192− ("creatorRole" .=) <$> _mnCreatorRole,
140+ ("creatorRole" .=) <$> _mnCreatorRole])
193− ("orderId" .=) <$> _mnOrderId,
194− ("orderRevisionNumber" .=) <$>
195− _mnOrderRevisionNumber])
197-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
142-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
@@ -378,7 +323,7 @@ editAllOrderDealsResponse =
378 { _eaodrDeals = Nothing
323 { _eaodrDeals = Nothing
381−-- | List of all deals in the order after edit.
326+-- | List of all deals in the proposal after edit.
382eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
327eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]
383eaodrDeals
328eaodrDeals
384 = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
329 = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .
@@ -544,403 +489,42 @@ instance ToJSON
544 ("auctionType" .=) <$> _csriciAuctionType,
489 ("auctionType" .=) <$> _csriciAuctionType,
545 ("geoCriteriaId" .=) <$> _csriciGeoCriteriaId])
490 ("geoCriteriaId" .=) <$> _csriciGeoCriteriaId])
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)
579−-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request.
581−-- Use one of the following lenses to modify other fields as desired:
583−-- * 'tdtoFinalizeAutomatically'
585−-- * 'tdtoBuyerBillingType'
587−-- * 'tdtoTargetingAllAdSlots'
595−-- * 'tdtoEstimatedSpend'
597−-- * 'tdtoAdvertisers'
599−-- * 'tdtoEstimatedImpressionsPerDay'
601−-- * 'tdtoMonetizerType'
603−-- * 'tdtoAudienceSegmentDescription'
605−-- * 'tdtoCreativeReviewPolicy'
607−-- * 'tdtoMinimumTrueLooks'
611−-- * 'tdtoCreativeBlockingLevel'
613−-- * 'tdtoSemiTransparent'
615−-- * 'tdtoAudienceSegment'
617−-- * 'tdtoDealPremium'
619−-- * 'tdtoIsReservation'
623−-- * 'tdtoTermsAttributes'
625−-- * 'tdtoInventorySegmentTargeting'
627−-- * 'tdtoDescriptiveName'
629−-- * 'tdtoMinimumSpendMicros'
631−-- * 'tdtoTargetByDealId'
633−-- * 'tdtoBillingTerms'
635−-- * 'tdtoDescription'
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
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})
675−-- | The buyer billing type.
676−tdtoBuyerBillingType :: Lens' TermsDTO (Maybe Text)
678− = lens _tdtoBuyerBillingType
679− (\ s a -> s{_tdtoBuyerBillingType = a})
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})
687−-- | The urls applicable to the offer.
688−tdtoURLs :: Lens' TermsDTO [Text]
690− = lens _tdtoURLs (\ s a -> s{_tdtoURLs = a}) .
694−-- | The end date for the offer.
695−tdtoEndDate :: Lens' TermsDTO (Maybe DateTime)
697− = lens _tdtoEndDate (\ s a -> s{_tdtoEndDate = a})
700−tdtoCpm :: Lens' TermsDTO (Maybe MoneyDTO)
701−tdtoCpm = lens _tdtoCpm (\ s a -> s{_tdtoCpm = a})
703−-- | The estimated spend for the offer.
704−tdtoEstimatedSpend :: Lens' TermsDTO (Maybe MoneyDTO)
706− = lens _tdtoEstimatedSpend
707− (\ s a -> s{_tdtoEstimatedSpend = a})
709−-- | A list of advertisers for this offer.
710−tdtoAdvertisers :: Lens' TermsDTO [AdvertiserDTO]
712− = lens _tdtoAdvertisers
713− (\ s a -> s{_tdtoAdvertisers = a})
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})
724−-- | The monetizer type.
725−tdtoMonetizerType :: Lens' TermsDTO (Maybe Text)
727− = lens _tdtoMonetizerType
728− (\ s a -> s{_tdtoMonetizerType = a})
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})
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})
742−-- | The minimum true looks for the offer.
743−tdtoMinimumTrueLooks :: Lens' TermsDTO (Maybe Int64)
745− = lens _tdtoMinimumTrueLooks
746− (\ s a -> s{_tdtoMinimumTrueLooks = a})
749−-- | The start date for the offer.
750−tdtoStartDate :: Lens' TermsDTO (Maybe DateTime)
752− = lens _tdtoStartDate
753− (\ s a -> s{_tdtoStartDate = a})
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})
761−-- | Whether this offer is semi-transparent.
762−tdtoSemiTransparent :: Lens' TermsDTO (Maybe Bool)
764− = lens _tdtoSemiTransparent
765− (\ s a -> s{_tdtoSemiTransparent = a})
767−-- | The audience segment for the offer.
768−tdtoAudienceSegment :: Lens' TermsDTO (Maybe AudienceSegment)
770− = lens _tdtoAudienceSegment
771− (\ s a -> s{_tdtoAudienceSegment = a})
773−-- | The premium terms.
774−tdtoDealPremium :: Lens' TermsDTO (Maybe MoneyDTO)
776− = lens _tdtoDealPremium
777− (\ s a -> s{_tdtoDealPremium = a})
779−-- | Whether the offer is a reservation.
780−tdtoIsReservation :: Lens' TermsDTO (Maybe Bool)
782− = lens _tdtoIsReservation
783− (\ s a -> s{_tdtoIsReservation = a})
785−-- | The particular ad slots targeted by the offer.
786−tdtoAdSlots :: Lens' TermsDTO [AdSlotDTO]
788− = lens _tdtoAdSlots (\ s a -> s{_tdtoAdSlots = a}) .
792−-- | A list of terms attributes.
793−tdtoTermsAttributes :: Lens' TermsDTO [Text]
795− = lens _tdtoTermsAttributes
796− (\ s a -> s{_tdtoTermsAttributes = a})
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})
806−-- | A descriptive name for these terms.
807−tdtoDescriptiveName :: Lens' TermsDTO (Maybe Text)
809− = lens _tdtoDescriptiveName
810− (\ s a -> s{_tdtoDescriptiveName = a})
812−-- | The minimum spend for the offer.
813−tdtoMinimumSpendMicros :: Lens' TermsDTO (Maybe Int64)
814−tdtoMinimumSpendMicros
815− = lens _tdtoMinimumSpendMicros
816− (\ s a -> s{_tdtoMinimumSpendMicros = a})
819−-- | Whether to target by deal id.
820−tdtoTargetByDealId :: Lens' TermsDTO (Maybe Bool)
822− = lens _tdtoTargetByDealId
823− (\ s a -> s{_tdtoTargetByDealId = a})
825−-- | The billing terms.
826−tdtoBillingTerms :: Lens' TermsDTO (Maybe Text)
828− = lens _tdtoBillingTerms
829− (\ s a -> s{_tdtoBillingTerms = a})
831−-- | A description for these terms.
832−tdtoDescription :: Lens' TermsDTO (Maybe Text)
834− = lens _tdtoDescription
835− (\ s a -> s{_tdtoDescription = a})
837−instance FromJSON TermsDTO where
839− = withObject "TermsDTO"
842− (o .:? "finalizeAutomatically") <*>
843− (o .:? "buyerBillingType")
844− <*> (o .:? "targetingAllAdSlots")
845− <*> (o .:? "urls" .!= mempty)
846− <*> (o .:? "endDate")
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"))
870−instance ToJSON TermsDTO where
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])
911-- /See:/ 'createOrdersResponse' smart constructor.
493-- /See:/ 'createOrdersResponse' smart constructor.
912newtype CreateOrdersResponse = CreateOrdersResponse
494newtype CreateOrdersResponse = CreateOrdersResponse
913− { _corOrders :: Maybe [MarketplaceOrder]
495+ { _corProposals :: Maybe [Proposal]
914 } deriving (Eq,Show,Data,Typeable,Generic)
496 } deriving (Eq,Show,Data,Typeable,Generic)
916-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
498-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.
918-- Use one of the following lenses to modify other fields as desired:
500-- Use one of the following lenses to modify other fields as desired:
920−-- * 'corOrders'
502+-- * 'corProposals'
921createOrdersResponse
503createOrdersResponse
922 :: CreateOrdersResponse
504 :: CreateOrdersResponse
923createOrdersResponse =
505createOrdersResponse =
924 CreateOrdersResponse
506 CreateOrdersResponse
925− { _corOrders = Nothing
507+ { _corProposals = Nothing
928−-- | The list of orders successfully created.
510+-- | The list of proposals successfully created.
929−corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]
511+corProposals :: Lens' CreateOrdersResponse [Proposal]
930−corOrders
512+corProposals
931− = lens _corOrders (\ s a -> s{_corOrders = a}) .
513+ = lens _corProposals (\ s a -> s{_corProposals = a})
932− _Default
514+ . _Default
933 . _Coerce
515 . _Coerce
935instance FromJSON CreateOrdersResponse where
517instance FromJSON CreateOrdersResponse where
936 parseJSON
518 parseJSON
937 = withObject "CreateOrdersResponse"
519 = withObject "CreateOrdersResponse"
939− CreateOrdersResponse <$> (o .:? "orders" .!= mempty))
521+ CreateOrdersResponse <$>
522+ (o .:? "proposals" .!= mempty))
941instance ToJSON CreateOrdersResponse where
524instance ToJSON CreateOrdersResponse where
942 toJSON CreateOrdersResponse{..}
525 toJSON CreateOrdersResponse{..}
943− = object (catMaybes [("orders" .=) <$> _corOrders])
526+ = object
527+ (catMaybes [("proposals" .=) <$> _corProposals])
946-- /See:/ 'accountBidderLocationItem' smart constructor.
530-- /See:/ 'accountBidderLocationItem' smart constructor.
@@ -1098,8 +682,8 @@ bCurrencyCode
1098bKind :: Lens' Budget Text
682bKind :: Lens' Budget Text
1099bKind = lens _bKind (\ s a -> s{_bKind = a})
683bKind = lens _bKind (\ s a -> s{_bKind = a})
685+-- | The daily budget amount in unit amount of the account currency to apply
1101−-- | The budget amount to apply for the billingId provided. This is required
686+-- for the billingId provided. This is required for update requests.
1102−-- for update requests.
1103bBudgetAmount :: Lens' Budget (Maybe Int64)
687bBudgetAmount :: Lens' Budget (Maybe Int64)
1104bBudgetAmount
688bBudgetAmount
1105 = lens _bBudgetAmount
689 = lens _bBudgetAmount
@@ -1180,47 +764,6 @@ instance ToJSON AddOrderNotesRequest where
1180 toJSON AddOrderNotesRequest{..}
764 toJSON AddOrderNotesRequest{..}
1181 = object (catMaybes [("notes" .=) <$> _aonrNotes])
765 = object (catMaybes [("notes" .=) <$> _aonrNotes])
1184−-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor.
1185−newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest
1186− { _gfnbedirIncludePrivateAuctions :: Maybe Bool
1187− } deriving (Eq,Show,Data,Typeable,Generic)
1189−-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request.
1191−-- Use one of the following lenses to modify other fields as desired:
1193−-- * 'gfnbedirIncludePrivateAuctions'
1194−getFinalizedNegotiationByExternalDealIdRequest
1195− :: GetFinalizedNegotiationByExternalDealIdRequest
1196−getFinalizedNegotiationByExternalDealIdRequest =
1197− GetFinalizedNegotiationByExternalDealIdRequest
1198− { _gfnbedirIncludePrivateAuctions = Nothing
1201−gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool)
1202−gfnbedirIncludePrivateAuctions
1203− = lens _gfnbedirIncludePrivateAuctions
1204− (\ s a -> s{_gfnbedirIncludePrivateAuctions = a})
1207− GetFinalizedNegotiationByExternalDealIdRequest where
1210− "GetFinalizedNegotiationByExternalDealIdRequest"
1212− GetFinalizedNegotiationByExternalDealIdRequest <$>
1213− (o .:? "includePrivateAuctions"))
1216− GetFinalizedNegotiationByExternalDealIdRequest where
1218− GetFinalizedNegotiationByExternalDealIdRequest{..}
1221− [("includePrivateAuctions" .=) <$>
1222− _gfnbedirIncludePrivateAuctions])
1225-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
768-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
1226data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
769data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap
@@ -1280,131 +823,6 @@ instance ToJSON DeliveryControlFrequencyCap where
1280 ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
823 ("numTimeUnits" .=) <$> _dcfcNumTimeUnits,
1281 ("timeUnitType" .=) <$> _dcfcTimeUnitType])
824 ("timeUnitType" .=) <$> _dcfcTimeUnitType])
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)
1293−-- | Creates a value of 'DealPartyDTO' with the minimum fields required to make a request.
1295−-- Use one of the following lenses to modify other fields as desired:
1297−-- * 'dpdtoBuyerSellerRole'
1299−-- * 'dpdtoCustomerId'
1303−-- * 'dpdtoWebProperty'
1310− { _dpdtoBuyerSellerRole = Nothing
1311− , _dpdtoCustomerId = Nothing
1312− , _dpdtoName = Nothing
1313− , _dpdtoWebProperty = Nothing
1314− , _dpdtoBuyer = Nothing
1317−dpdtoBuyerSellerRole :: Lens' DealPartyDTO (Maybe Text)
1318−dpdtoBuyerSellerRole
1319− = lens _dpdtoBuyerSellerRole
1320− (\ s a -> s{_dpdtoBuyerSellerRole = a})
1322−dpdtoCustomerId :: Lens' DealPartyDTO (Maybe Int32)
1324− = lens _dpdtoCustomerId
1325− (\ s a -> s{_dpdtoCustomerId = a})
1328−dpdtoName :: Lens' DealPartyDTO (Maybe Text)
1330− = lens _dpdtoName (\ s a -> s{_dpdtoName = a})
1332−dpdtoWebProperty :: Lens' DealPartyDTO (Maybe WebPropertyDTO)
1334− = lens _dpdtoWebProperty
1335− (\ s a -> s{_dpdtoWebProperty = a})
1337−dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO)
1339− = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
1341−instance FromJSON DealPartyDTO where
1343− = withObject "DealPartyDTO"
1346− (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1348− <*> (o .:? "webProperty")
1349− <*> (o .:? "buyer"))
1351−instance ToJSON DealPartyDTO where
1352− toJSON DealPartyDTO{..}
1355− [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1356− ("customerId" .=) <$> _dpdtoCustomerId,
1357− ("name" .=) <$> _dpdtoName,
1358− ("webProperty" .=) <$> _dpdtoWebProperty,
1359− ("buyer" .=) <$> _dpdtoBuyer])
1362−-- /See:/ 'getNegotiationsResponse' smart constructor.
1363−data GetNegotiationsResponse = GetNegotiationsResponse
1364− { _gnrKind :: !Text
1365− , _gnrNegotiations :: !(Maybe [NegotiationDTO])
1366− } deriving (Eq,Show,Data,Typeable,Generic)
1368−-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.
1370−-- Use one of the following lenses to modify other fields as desired:
1374−-- * 'gnrNegotiations'
1375−getNegotiationsResponse
1376− :: GetNegotiationsResponse
1377−getNegotiationsResponse =
1378− GetNegotiationsResponse
1379− { _gnrKind = "adexchangebuyer#negotiationsList"
1380− , _gnrNegotiations = Nothing
1383−gnrKind :: Lens' GetNegotiationsResponse Text
1384−gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})
1386−gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDTO]
1388− = lens _gnrNegotiations
1389− (\ s a -> s{_gnrNegotiations = a})
1393−instance FromJSON GetNegotiationsResponse where
1395− = withObject "GetNegotiationsResponse"
1397− GetNegotiationsResponse <$>
1398− (o .:? "kind" .!= "adexchangebuyer#negotiationsList")
1399− <*> (o .:? "negotiations" .!= mempty))
1401−instance ToJSON GetNegotiationsResponse where
1402− toJSON GetNegotiationsResponse{..}
1405− [Just ("kind" .= _gnrKind),
1406− ("negotiations" .=) <$> _gnrNegotiations])
1409-- /See:/ 'marketplaceDealParty' smart constructor.
827-- /See:/ 'marketplaceDealParty' smart constructor.
1410data MarketplaceDealParty = MarketplaceDealParty
828data MarketplaceDealParty = MarketplaceDealParty
@@ -1487,84 +905,41 @@ instance ToJSON GetOrderNotesResponse where
1487 toJSON GetOrderNotesResponse{..}
905 toJSON GetOrderNotesResponse{..}
1488 = object (catMaybes [("notes" .=) <$> _gonrNotes])
906 = object (catMaybes [("notes" .=) <$> _gonrNotes])
1491−-- /See:/ 'ruleKeyValuePair' smart constructor.
1492−data RuleKeyValuePair = RuleKeyValuePair
1493− { _rkvpKeyName :: !(Maybe Text)
1494− , _rkvpValue :: !(Maybe Text)
1495− } deriving (Eq,Show,Data,Typeable,Generic)
1497−-- | Creates a value of 'RuleKeyValuePair' with the minimum fields required to make a request.
1499−-- Use one of the following lenses to modify other fields as desired:
1505− :: RuleKeyValuePair
1508− { _rkvpKeyName = Nothing
1509− , _rkvpValue = Nothing
1512−rkvpKeyName :: Lens' RuleKeyValuePair (Maybe Text)
1514− = lens _rkvpKeyName (\ s a -> s{_rkvpKeyName = a})
1516−rkvpValue :: Lens' RuleKeyValuePair (Maybe Text)
1518− = lens _rkvpValue (\ s a -> s{_rkvpValue = a})
1520−instance FromJSON RuleKeyValuePair where
1522− = withObject "RuleKeyValuePair"
1524− RuleKeyValuePair <$>
1525− (o .:? "keyName") <*> (o .:? "value"))
1527−instance ToJSON RuleKeyValuePair where
1528− toJSON RuleKeyValuePair{..}
1531− [("keyName" .=) <$> _rkvpKeyName,
1532− ("value" .=) <$> _rkvpValue])
1535-- /See:/ 'getOrdersResponse' smart constructor.
909-- /See:/ 'getOrdersResponse' smart constructor.
1536newtype GetOrdersResponse = GetOrdersResponse
910newtype GetOrdersResponse = GetOrdersResponse
1537− { _gorOrders :: Maybe [MarketplaceOrder]
911+ { _gorProposals :: Maybe [Proposal]
1538 } deriving (Eq,Show,Data,Typeable,Generic)
912 } deriving (Eq,Show,Data,Typeable,Generic)
1540-- | Creates a value of 'GetOrdersResponse' with the minimum fields required to make a request.
914-- | Creates a value of 'GetOrdersResponse' with the minimum fields required to make a request.
1542-- Use one of the following lenses to modify other fields as desired:
916-- Use one of the following lenses to modify other fields as desired:
1544−-- * 'gorOrders'
918+-- * 'gorProposals'
1545getOrdersResponse
919getOrdersResponse
1546 :: GetOrdersResponse
920 :: GetOrdersResponse
1547getOrdersResponse =
921getOrdersResponse =
1548 GetOrdersResponse
922 GetOrdersResponse
1549− { _gorOrders = Nothing
923+ { _gorProposals = Nothing
1552−-- | The list of matching orders.
926+-- | The list of matching proposals.
1553−gorOrders :: Lens' GetOrdersResponse [MarketplaceOrder]
927+gorProposals :: Lens' GetOrdersResponse [Proposal]
1554−gorOrders
928+gorProposals
1555− = lens _gorOrders (\ s a -> s{_gorOrders = a}) .
929+ = lens _gorProposals (\ s a -> s{_gorProposals = a})
1556− _Default
930+ . _Default
1557 . _Coerce
931 . _Coerce
1559instance FromJSON GetOrdersResponse where
933instance FromJSON GetOrdersResponse where
1560 parseJSON
934 parseJSON
1561 = withObject "GetOrdersResponse"
935 = withObject "GetOrdersResponse"
1563− GetOrdersResponse <$> (o .:? "orders" .!= mempty))
937+ GetOrdersResponse <$> (o .:? "proposals" .!= mempty))
1565instance ToJSON GetOrdersResponse where
939instance ToJSON GetOrdersResponse where
1566 toJSON GetOrdersResponse{..}
940 toJSON GetOrdersResponse{..}
1567− = object (catMaybes [("orders" .=) <$> _gorOrders])
941+ = object
942+ (catMaybes [("proposals" .=) <$> _gorProposals])
1570-- /See:/ 'creativeServingRestrictionsItemDisApprovalReasonsItem' smart constructor.
945-- /See:/ 'creativeServingRestrictionsItemDisApprovalReasonsItem' smart constructor.
@@ -1675,95 +1050,51 @@ instance ToJSON AccountsList where
1676-- /See:/ 'createOrdersRequest' smart constructor.
1051-- /See:/ 'createOrdersRequest' smart constructor.
1677data CreateOrdersRequest = CreateOrdersRequest
1052data CreateOrdersRequest = CreateOrdersRequest
1053+ { _cProposals :: !(Maybe [Proposal])
1678− { _cWebPropertyCode :: !(Maybe Text)
1054+ , _cWebPropertyCode :: !(Maybe Text)
1679− , _cOrders :: !(Maybe [MarketplaceOrder])
1680 } deriving (Eq,Show,Data,Typeable,Generic)
1055 } deriving (Eq,Show,Data,Typeable,Generic)
1682-- | Creates a value of 'CreateOrdersRequest' with the minimum fields required to make a request.
1057-- | Creates a value of 'CreateOrdersRequest' with the minimum fields required to make a request.
1684-- Use one of the following lenses to modify other fields as desired:
1059-- Use one of the following lenses to modify other fields as desired:
1686−-- * 'cWebPropertyCode'
1061+-- * 'cProposals'
1688−-- * 'cOrders'
1063+-- * 'cWebPropertyCode'
1689createOrdersRequest
1064createOrdersRequest
1690 :: CreateOrdersRequest
1065 :: CreateOrdersRequest
1691createOrdersRequest =
1066createOrdersRequest =
1692 CreateOrdersRequest
1067 CreateOrdersRequest
1693− { _cWebPropertyCode = Nothing
1068+ { _cProposals = Nothing
1694− , _cOrders = Nothing
1069+ , _cWebPropertyCode = Nothing
1072+-- | The list of proposals to create.
1073+cProposals :: Lens' CreateOrdersRequest [Proposal]
1075+ = lens _cProposals (\ s a -> s{_cProposals = a}) .
1697cWebPropertyCode :: Lens' CreateOrdersRequest (Maybe Text)
1079cWebPropertyCode :: Lens' CreateOrdersRequest (Maybe Text)
1698cWebPropertyCode
1080cWebPropertyCode
1699 = lens _cWebPropertyCode
1081 = lens _cWebPropertyCode
1700 (\ s a -> s{_cWebPropertyCode = a})
1082 (\ s a -> s{_cWebPropertyCode = a})
1702−-- | The list of orders to create.
1703−cOrders :: Lens' CreateOrdersRequest [MarketplaceOrder]
1705− = lens _cOrders (\ s a -> s{_cOrders = a}) . _Default
1708instance FromJSON CreateOrdersRequest where
1084instance FromJSON CreateOrdersRequest where
1709 parseJSON
1085 parseJSON
1710 = withObject "CreateOrdersRequest"
1086 = withObject "CreateOrdersRequest"
1712 CreateOrdersRequest <$>
1088 CreateOrdersRequest <$>
1713− (o .:? "webPropertyCode") <*>
1089+ (o .:? "proposals" .!= mempty) <*>
1714− (o .:? "orders" .!= mempty))
1090+ (o .:? "webPropertyCode"))
1716instance ToJSON CreateOrdersRequest where
1092instance ToJSON CreateOrdersRequest where
1717 toJSON CreateOrdersRequest{..}
1093 toJSON CreateOrdersRequest{..}
1718 = object
1094 = object
1719 (catMaybes
1095 (catMaybes
1096+ [("proposals" .=) <$> _cProposals,
1720− [("webPropertyCode" .=) <$> _cWebPropertyCode,
1097+ ("webPropertyCode" .=) <$> _cWebPropertyCode])
1721− ("orders" .=) <$> _cOrders])
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)
1730−-- | Creates a value of 'AdSize' with the minimum fields required to make a request.
1732−-- Use one of the following lenses to modify other fields as desired:
1741− { _asHeight = Nothing
1742− , _asWidth = Nothing
1745−asHeight :: Lens' AdSize (Maybe Int32)
1747− = lens _asHeight (\ s a -> s{_asHeight = a}) .
1750−asWidth :: Lens' AdSize (Maybe Int32)
1752− = lens _asWidth (\ s a -> s{_asWidth = a}) .
1755−instance FromJSON AdSize where
1757− = withObject "AdSize"
1759− AdSize <$> (o .:? "height") <*> (o .:? "width"))
1761−instance ToJSON AdSize where
1765− [("height" .=) <$> _asHeight,
1766− ("width" .=) <$> _asWidth])
1769-- /See:/ 'creativeCorrectionsItem' smart constructor.
1100-- /See:/ 'creativeCorrectionsItem' smart constructor.
@@ -1816,8 +1147,8 @@ instance ToJSON CreativeCorrectionsItem where
1817-- /See:/ 'addOrderDealsResponse' smart constructor.
1148-- /See:/ 'addOrderDealsResponse' smart constructor.
1818data AddOrderDealsResponse = AddOrderDealsResponse
1149data AddOrderDealsResponse = AddOrderDealsResponse
1819− { _aodrDeals :: !(Maybe [MarketplaceDeal])
1150+ { _aodrDeals :: !(Maybe [MarketplaceDeal])
1820− , _aodrOrderRevisionNumber :: !(Maybe (Textual Int64))
1151+ , _aodrProposalRevisionNumber :: !(Maybe (Textual Int64))
1821 } deriving (Eq,Show,Data,Typeable,Generic)
1152 } deriving (Eq,Show,Data,Typeable,Generic)
1823-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
1154-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request.
@@ -1826,27 +1157,27 @@ data AddOrderDealsResponse = AddOrderDealsResponse
1827-- * 'aodrDeals'
1158-- * 'aodrDeals'
1829−-- * 'aodrOrderRevisionNumber'
1160+-- * 'aodrProposalRevisionNumber'
1830addOrderDealsResponse
1161addOrderDealsResponse
1831 :: AddOrderDealsResponse
1162 :: AddOrderDealsResponse
1832addOrderDealsResponse =
1163addOrderDealsResponse =
1833 AddOrderDealsResponse
1164 AddOrderDealsResponse
1834 { _aodrDeals = Nothing
1165 { _aodrDeals = Nothing
1835− , _aodrOrderRevisionNumber = Nothing
1166+ , _aodrProposalRevisionNumber = Nothing
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)
1839aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
1170aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]
1840aodrDeals
1171aodrDeals
1841 = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
1172 = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .
1842 _Default
1173 _Default
1843 . _Coerce
1174 . _Coerce
1845−-- | The updated revision number for the order.
1176+-- | The updated revision number for the proposal.
1846−aodrOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
1177+aodrProposalRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64)
1847−aodrOrderRevisionNumber
1178+aodrProposalRevisionNumber
1848− = lens _aodrOrderRevisionNumber
1179+ = lens _aodrProposalRevisionNumber
1849− (\ s a -> s{_aodrOrderRevisionNumber = a})
1180+ (\ s a -> s{_aodrProposalRevisionNumber = a})
1850 . mapping _Coerce
1181 . mapping _Coerce
1852instance FromJSON AddOrderDealsResponse where
1183instance FromJSON AddOrderDealsResponse where
@@ -1855,27 +1186,30 @@ instance FromJSON AddOrderDealsResponse where
1856 AddOrderDealsResponse <$>
1187 AddOrderDealsResponse <$>
1857 (o .:? "deals" .!= mempty) <*>
1188 (o .:? "deals" .!= mempty) <*>
1858− (o .:? "orderRevisionNumber"))
1189+ (o .:? "proposalRevisionNumber"))
1860instance ToJSON AddOrderDealsResponse where
1191instance ToJSON AddOrderDealsResponse where
1861 toJSON AddOrderDealsResponse{..}
1192 toJSON AddOrderDealsResponse{..}
1862 = object
1193 = object
1863 (catMaybes
1194 (catMaybes
1864 [("deals" .=) <$> _aodrDeals,
1195 [("deals" .=) <$> _aodrDeals,
1865− ("orderRevisionNumber" .=) <$>
1196+ ("proposalRevisionNumber" .=) <$>
1866− _aodrOrderRevisionNumber])
1197+ _aodrProposalRevisionNumber])
1869-- /See:/ 'deliveryControl' smart constructor.
1200-- /See:/ 'deliveryControl' smart constructor.
1870data DeliveryControl = DeliveryControl
1201data DeliveryControl = DeliveryControl
1202+ { _dcCreativeBlockingLevel :: !(Maybe Text)
1871− { _dcFrequencyCaps :: !(Maybe [DeliveryControlFrequencyCap])
1203+ , _dcFrequencyCaps :: !(Maybe [DeliveryControlFrequencyCap])
1872− , _dcDeliveryRateType :: !(Maybe Text)
1204+ , _dcDeliveryRateType :: !(Maybe Text)
1873 } deriving (Eq,Show,Data,Typeable,Generic)
1205 } deriving (Eq,Show,Data,Typeable,Generic)
1875-- | Creates a value of 'DeliveryControl' with the minimum fields required to make a request.
1207-- | Creates a value of 'DeliveryControl' with the minimum fields required to make a request.
1877-- Use one of the following lenses to modify other fields as desired:
1209-- Use one of the following lenses to modify other fields as desired:
1211+-- * 'dcCreativeBlockingLevel'
1879-- * 'dcFrequencyCaps'
1213-- * 'dcFrequencyCaps'
1881-- * 'dcDeliveryRateType'
1215-- * 'dcDeliveryRateType'
@@ -1883,10 +1217,16 @@ deliveryControl
1883 :: DeliveryControl
1217 :: DeliveryControl
1884deliveryControl =
1218deliveryControl =
1885 DeliveryControl
1219 DeliveryControl
1220+ { _dcCreativeBlockingLevel = Nothing
1886− { _dcFrequencyCaps = Nothing
1221+ , _dcFrequencyCaps = Nothing
1887 , _dcDeliveryRateType = Nothing
1222 , _dcDeliveryRateType = Nothing
1225+dcCreativeBlockingLevel :: Lens' DeliveryControl (Maybe Text)
1226+dcCreativeBlockingLevel
1227+ = lens _dcCreativeBlockingLevel
1228+ (\ s a -> s{_dcCreativeBlockingLevel = a})
1890dcFrequencyCaps :: Lens' DeliveryControl [DeliveryControlFrequencyCap]
1230dcFrequencyCaps :: Lens' DeliveryControl [DeliveryControlFrequencyCap]
1891dcFrequencyCaps
1231dcFrequencyCaps
1892 = lens _dcFrequencyCaps
1232 = lens _dcFrequencyCaps
@@ -1904,23 +1244,26 @@ instance FromJSON DeliveryControl where
1904 = withObject "DeliveryControl"
1244 = withObject "DeliveryControl"
1906 DeliveryControl <$>
1246 DeliveryControl <$>
1247+ (o .:? "creativeBlockingLevel") <*>
1907− (o .:? "frequencyCaps" .!= mempty) <*>
1248+ (o .:? "frequencyCaps" .!= mempty)
1908− (o .:? "deliveryRateType"))
1249+ <*> (o .:? "deliveryRateType"))
1910instance ToJSON DeliveryControl where
1251instance ToJSON DeliveryControl where
1911 toJSON DeliveryControl{..}
1252 toJSON DeliveryControl{..}
1912 = object
1253 = object
1913 (catMaybes
1254 (catMaybes
1255+ [("creativeBlockingLevel" .=) <$>
1256+ _dcCreativeBlockingLevel,
1914− [("frequencyCaps" .=) <$> _dcFrequencyCaps,
1257+ ("frequencyCaps" .=) <$> _dcFrequencyCaps,
1915 ("deliveryRateType" .=) <$> _dcDeliveryRateType])
1258 ("deliveryRateType" .=) <$> _dcDeliveryRateType])
1917-- | Used to specify pricing rules for buyers\/advertisers. Each
1260-- | 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
1261+-- PricePerBuyer in an product can become [0,1] deals. To check if there is
1919−-- PricePerBuyer for a particular buyer or buyer\/advertiser pair, we look
1262+-- a PricePerBuyer for a particular buyer or buyer\/advertiser pair, we
1920−-- for the most specific matching rule - we first look for a rule matching
1263+-- look for the most specific matching rule - we first look for a rule
1921−-- the buyer and advertiser, next a rule with the buyer but an empty
1264+-- matching the buyer and advertiser, next a rule with the buyer but an
1922−-- advertiser list, and otherwise look for a matching rule where no buyer
1265+-- empty advertiser list, and otherwise look for a matching rule where no
1923−-- is set.
1266+-- buyer is set.
1925-- /See:/ 'pricePerBuyer' smart constructor.
1268-- /See:/ 'pricePerBuyer' smart constructor.
1926data PricePerBuyer = PricePerBuyer
1269data PricePerBuyer = PricePerBuyer
@@ -2291,7 +1634,7 @@ instance FromJSON Creative where
2291 <*> (o .:? "version")
1634 <*> (o .:? "version")
2292 <*> (o .:? "sensitiveCategories" .!= mempty)
1635 <*> (o .:? "sensitiveCategories" .!= mempty)
2293 <*> (o .:? "videoURL")
1636 <*> (o .:? "videoURL")
2294− <*> (o .:? "api_upload_timestamp")
1637+ <*> (o .:? "apiUploadTimestamp")
2295 <*> (o .:? "servingRestrictions" .!= mempty)
1638 <*> (o .:? "servingRestrictions" .!= mempty)
2296 <*> (o .:? "openAuctionStatus"))
1639 <*> (o .:? "openAuctionStatus"))
@@ -2323,7 +1666,7 @@ instance ToJSON Creative where
2323 ("version" .=) <$> _cVersion,
1666 ("version" .=) <$> _cVersion,
2324 ("sensitiveCategories" .=) <$> _cSensitiveCategories,
1667 ("sensitiveCategories" .=) <$> _cSensitiveCategories,
2325 ("videoURL" .=) <$> _cVideoURL,
1668 ("videoURL" .=) <$> _cVideoURL,
2326− ("api_upload_timestamp" .=) <$> _cAPIUploadTimestamp,
1669+ ("apiUploadTimestamp" .=) <$> _cAPIUploadTimestamp,
2327 ("servingRestrictions" .=) <$> _cServingRestrictions,
1670 ("servingRestrictions" .=) <$> _cServingRestrictions,
2328 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
1671 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
@@ -2462,244 +1805,47 @@ instance ToJSON PretargetingConfigList where
2462 ("items" .=) <$> _pclItems])
1805 ("items" .=) <$> _pclItems])
2465−-- /See:/ 'buyerDTO' smart constructor.
1808+-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2466−data BuyerDTO = BuyerDTO
1809+newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2467− { _buySponsorAccountId :: !(Maybe (Textual Int32))
1810+ { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
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))
2474 } deriving (Eq,Show,Data,Typeable,Generic)
1811 } deriving (Eq,Show,Data,Typeable,Generic)
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.
2478-- Use one of the following lenses to modify other fields as desired:
1815-- Use one of the following lenses to modify other fields as desired:
2480−-- * 'buySponsorAccountId'
1817+-- * 'dtngfptFixedPrices'
2481−--
1818+dealTermsNonGuaranteedFixedPriceTerms
2482−-- * 'buyEnabledForInterestTargetingDeals'
1819+ :: DealTermsNonGuaranteedFixedPriceTerms
2483−--
1820+dealTermsNonGuaranteedFixedPriceTerms =
2484−-- * 'buyCustomerId'
1821+ DealTermsNonGuaranteedFixedPriceTerms
2485−--
1822+ { _dtngfptFixedPrices = Nothing
2486−-- * 'buyEnabledForPreferredDeals'
2490−-- * 'buyDisplayName'
2497− { _buySponsorAccountId = Nothing
2498− , _buyEnabledForInterestTargetingDeals = Nothing
2499− , _buyCustomerId = Nothing
2500− , _buyEnabledForPreferredDeals = Nothing
2501− , _buyAccountId = Nothing
2502− , _buyDisplayName = Nothing
2506−buySponsorAccountId :: Lens' BuyerDTO (Maybe Int32)
1825+-- | Fixed price for the specified buyer.
2507−buySponsorAccountId
1826+dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2508− = lens _buySponsorAccountId
1827+dtngfptFixedPrices
2509− (\ s a -> s{_buySponsorAccountId = a})
1828+ = lens _dtngfptFixedPrices
2510− . mapping _Coerce
1829+ (\ s a -> s{_dtngfptFixedPrices = a})
2512−buyEnabledForInterestTargetingDeals :: Lens' BuyerDTO (Maybe Bool)
2513−buyEnabledForInterestTargetingDeals
2514− = lens _buyEnabledForInterestTargetingDeals
2516− s{_buyEnabledForInterestTargetingDeals = a})
2518−buyCustomerId :: Lens' BuyerDTO (Maybe Int32)
2520− = lens _buyCustomerId
2521− (\ s a -> s{_buyCustomerId = a})
2524−buyEnabledForPreferredDeals :: Lens' BuyerDTO (Maybe Bool)
2525−buyEnabledForPreferredDeals
2526− = lens _buyEnabledForPreferredDeals
2527− (\ s a -> s{_buyEnabledForPreferredDeals = a})
2529−buyAccountId :: Lens' BuyerDTO (Maybe Int32)
2531− = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
2534−buyDisplayName :: Lens' BuyerDTO (Maybe Text)
2536− = lens _buyDisplayName
2537− (\ s a -> s{_buyDisplayName = a})
2539−buyId :: Lens' BuyerDTO (Maybe Int32)
2541− = lens _buyId (\ s a -> s{_buyId = a}) .
2542− mapping _Coerce
1831+ . _Coerce
2544−instance FromJSON BuyerDTO where
1833+instance FromJSON
1834+ DealTermsNonGuaranteedFixedPriceTerms where
2545 parseJSON
1835 parseJSON
2546− = withObject "BuyerDTO"
1836+ = withObject "DealTermsNonGuaranteedFixedPriceTerms"
2548− BuyerDTO <$>
1838+ DealTermsNonGuaranteedFixedPriceTerms <$>
2549− (o .:? "sponsorAccountId") <*>
1839+ (o .:? "fixedPrices" .!= mempty))
2550− (o .:? "enabledForInterestTargetingDeals")
2551− <*> (o .:? "customerId")
2552− <*> (o .:? "enabledForPreferredDeals")
2553− <*> (o .:? "accountId")
2554− <*> (o .:? "displayName")
2557−instance ToJSON BuyerDTO where
1841+instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2558− toJSON BuyerDTO{..}
1842+ where
1843+ toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
2559 = object
1844 = object
2560 (catMaybes
1845 (catMaybes
2561− [("sponsorAccountId" .=) <$> _buySponsorAccountId,
1846+ [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2562− ("enabledForInterestTargetingDeals" .=) <$>
2563− _buyEnabledForInterestTargetingDeals,
2564− ("customerId" .=) <$> _buyCustomerId,
2565− ("enabledForPreferredDeals" .=) <$>
2566− _buyEnabledForPreferredDeals,
2567− ("accountId" .=) <$> _buyAccountId,
2568− ("displayName" .=) <$> _buyDisplayName,
2569− ("id" .=) <$> _buyId])
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)
2582−-- | Creates a value of 'AdSlotDTO' with the minimum fields required to make a request.
2584−-- Use one of the following lenses to modify other fields as desired:
2586−-- * 'asdtoWebPropertyId'
2590−-- * 'asdtoChannelCode'
2592−-- * 'asdtoChannelId'
2596−-- * 'asdtoDescription'
2601− { _asdtoWebPropertyId = Nothing
2602− , _asdtoSize = Nothing
2603− , _asdtoChannelCode = Nothing
2604− , _asdtoChannelId = Nothing
2605− , _asdtoName = Nothing
2606− , _asdtoDescription = Nothing
2609−asdtoWebPropertyId :: Lens' AdSlotDTO (Maybe Int32)
2611− = lens _asdtoWebPropertyId
2612− (\ s a -> s{_asdtoWebPropertyId = a})
2615−asdtoSize :: Lens' AdSlotDTO (Maybe Text)
2617− = lens _asdtoSize (\ s a -> s{_asdtoSize = a})
2619−asdtoChannelCode :: Lens' AdSlotDTO (Maybe Text)
2621− = lens _asdtoChannelCode
2622− (\ s a -> s{_asdtoChannelCode = a})
2624−asdtoChannelId :: Lens' AdSlotDTO (Maybe Int32)
2626− = lens _asdtoChannelId
2627− (\ s a -> s{_asdtoChannelId = a})
2630−asdtoName :: Lens' AdSlotDTO (Maybe Text)
2632− = lens _asdtoName (\ s a -> s{_asdtoName = a})
2634−asdtoDescription :: Lens' AdSlotDTO (Maybe Text)
2636− = lens _asdtoDescription
2637− (\ s a -> s{_asdtoDescription = a})
2639−instance FromJSON AdSlotDTO where
2641− = withObject "AdSlotDTO"
2644− (o .:? "webPropertyId") <*> (o .:? "size") <*>
2645− (o .:? "channelCode")
2646− <*> (o .:? "channelId")
2648− <*> (o .:? "description"))
2650−instance ToJSON AdSlotDTO where
2651− toJSON AdSlotDTO{..}
2654− [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2655− ("size" .=) <$> _asdtoSize,
2656− ("channelCode" .=) <$> _asdtoChannelCode,
2657− ("channelId" .=) <$> _asdtoChannelId,
2658− ("name" .=) <$> _asdtoName,
2659− ("description" .=) <$> _asdtoDescription])
2662−-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.
2663−newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms
2664− { _dtngfptFixedPrices :: Maybe [PricePerBuyer]
2665− } deriving (Eq,Show,Data,Typeable,Generic)
2667−-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
2669−-- Use one of the following lenses to modify other fields as desired:
2671−-- * 'dtngfptFixedPrices'
2672−dealTermsNonGuaranteedFixedPriceTerms
2673− :: DealTermsNonGuaranteedFixedPriceTerms
2674−dealTermsNonGuaranteedFixedPriceTerms =
2675− DealTermsNonGuaranteedFixedPriceTerms
2676− { _dtngfptFixedPrices = Nothing
2679−-- | Fixed price for the specified buyer.
2680−dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]
2682− = lens _dtngfptFixedPrices
2683− (\ s a -> s{_dtngfptFixedPrices = a})
2688− DealTermsNonGuaranteedFixedPriceTerms where
2690− = withObject "DealTermsNonGuaranteedFixedPriceTerms"
2692− DealTermsNonGuaranteedFixedPriceTerms <$>
2693− (o .:? "fixedPrices" .!= mempty))
2695−instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2697− toJSON DealTermsNonGuaranteedFixedPriceTerms{..}
2700− [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2702−-- | The configuration data for an Ad Exchange performance report list.
1848+-- | The configuration data for an Ad Exchange performance report list.
2704-- /See:/ 'performanceReport' smart constructor.
1850-- /See:/ 'performanceReport' smart constructor.
2705data PerformanceReport = PerformanceReport
1851data PerformanceReport = PerformanceReport
@@ -3099,7 +2245,7 @@ seller =
3101-- | The unique id for the seller. The seller fills in this field. The seller
2247-- | 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.
3103sAccountId :: Lens' Seller (Maybe Text)
2249sAccountId :: Lens' Seller (Maybe Text)
3104sAccountId
2250sAccountId
3105 = lens _sAccountId (\ s a -> s{_sAccountId = a})
2251 = lens _sAccountId (\ s a -> s{_sAccountId = a})
@@ -3260,9 +2406,9 @@ instance ToJSON Account where
3261-- /See:/ 'deleteOrderDealsRequest' smart constructor.
2407-- /See:/ 'deleteOrderDealsRequest' smart constructor.
3262data DeleteOrderDealsRequest = DeleteOrderDealsRequest
2408data DeleteOrderDealsRequest = DeleteOrderDealsRequest
3263− { _dodrUpdateAction :: !(Maybe Text)
2409+ { _dodrUpdateAction :: !(Maybe Text)
3264− , _dodrDealIds :: !(Maybe [Text])
2410+ , _dodrDealIds :: !(Maybe [Text])
3265− , _dodrOrderRevisionNumber :: !(Maybe (Textual Int64))
2411+ , _dodrProposalRevisionNumber :: !(Maybe (Textual Int64))
3266 } deriving (Eq,Show,Data,Typeable,Generic)
2412 } deriving (Eq,Show,Data,Typeable,Generic)
3268-- | Creates a value of 'DeleteOrderDealsRequest' with the minimum fields required to make a request.
2414-- | Creates a value of 'DeleteOrderDealsRequest' with the minimum fields required to make a request.
@@ -3273,14 +2419,14 @@ data DeleteOrderDealsRequest = DeleteOrderDealsRequest
3274-- * 'dodrDealIds'
2420-- * 'dodrDealIds'
3276−-- * 'dodrOrderRevisionNumber'
2422+-- * 'dodrProposalRevisionNumber'
3277deleteOrderDealsRequest
2423deleteOrderDealsRequest
3278 :: DeleteOrderDealsRequest
2424 :: DeleteOrderDealsRequest
3279deleteOrderDealsRequest =
2425deleteOrderDealsRequest =
3280 DeleteOrderDealsRequest
2426 DeleteOrderDealsRequest
3281 { _dodrUpdateAction = Nothing
2427 { _dodrUpdateAction = Nothing
3282 , _dodrDealIds = Nothing
2428 , _dodrDealIds = Nothing
3283− , _dodrOrderRevisionNumber = Nothing
2429+ , _dodrProposalRevisionNumber = Nothing
3286dodrUpdateAction :: Lens' DeleteOrderDealsRequest (Maybe Text)
2432dodrUpdateAction :: Lens' DeleteOrderDealsRequest (Maybe Text)
@@ -3288,18 +2434,18 @@ dodrUpdateAction
3288 = lens _dodrUpdateAction
2434 = lens _dodrUpdateAction
3289 (\ s a -> s{_dodrUpdateAction = a})
2435 (\ s a -> s{_dodrUpdateAction = a})
3291−-- | List of deals to delete for a given order
2437+-- | List of deals to delete for a given proposal
3292dodrDealIds :: Lens' DeleteOrderDealsRequest [Text]
2438dodrDealIds :: Lens' DeleteOrderDealsRequest [Text]
3293dodrDealIds
2439dodrDealIds
3294 = lens _dodrDealIds (\ s a -> s{_dodrDealIds = a}) .
2440 = lens _dodrDealIds (\ s a -> s{_dodrDealIds = a}) .
3295 _Default
2441 _Default
3296 . _Coerce
2442 . _Coerce
3298−-- | The last known order revision number.
2444+-- | The last known proposal revision number.
3299−dodrOrderRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64)
2445+dodrProposalRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64)
3300−dodrOrderRevisionNumber
2446+dodrProposalRevisionNumber
3301− = lens _dodrOrderRevisionNumber
2447+ = lens _dodrProposalRevisionNumber
3302− (\ s a -> s{_dodrOrderRevisionNumber = a})
2448+ (\ s a -> s{_dodrProposalRevisionNumber = a})
3303 . mapping _Coerce
2449 . mapping _Coerce
3305instance FromJSON DeleteOrderDealsRequest where
2451instance FromJSON DeleteOrderDealsRequest where
@@ -3309,7 +2455,7 @@ instance FromJSON DeleteOrderDealsRequest where
3309 DeleteOrderDealsRequest <$>
2455 DeleteOrderDealsRequest <$>
3310 (o .:? "updateAction") <*>
2456 (o .:? "updateAction") <*>
3311 (o .:? "dealIds" .!= mempty)
2457 (o .:? "dealIds" .!= mempty)
3312− <*> (o .:? "orderRevisionNumber"))
2458+ <*> (o .:? "proposalRevisionNumber"))
3314instance ToJSON DeleteOrderDealsRequest where
2460instance ToJSON DeleteOrderDealsRequest where
3315 toJSON DeleteOrderDealsRequest{..}
2461 toJSON DeleteOrderDealsRequest{..}
@@ -3317,8 +2463,8 @@ instance ToJSON DeleteOrderDealsRequest where
3317 (catMaybes
2463 (catMaybes
3318 [("updateAction" .=) <$> _dodrUpdateAction,
2464 [("updateAction" .=) <$> _dodrUpdateAction,
3319 ("dealIds" .=) <$> _dodrDealIds,
2465 ("dealIds" .=) <$> _dodrDealIds,
3320− ("orderRevisionNumber" .=) <$>
2466+ ("proposalRevisionNumber" .=) <$>
3321− _dodrOrderRevisionNumber])
2467+ _dodrProposalRevisionNumber])
3324-- /See:/ 'contactInformation' smart constructor.
2470-- /See:/ 'contactInformation' smart constructor.
@@ -3438,7 +2584,7 @@ getOrderDealsResponse =
3438 { _godrDeals = Nothing
2584 { _godrDeals = Nothing
3441−-- | List of deals for the order
2587+-- | List of deals for the proposal
3442godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
2588godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]
3443godrDeals
2589godrDeals
3444 = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
2590 = lens _godrDeals (\ s a -> s{_godrDeals = a}) .
@@ -3522,6 +2668,7 @@ data PretargetingConfig = PretargetingConfig
3522 , _pcMobileDevices :: !(Maybe [Textual Int64])
2668 , _pcMobileDevices :: !(Maybe [Textual Int64])
3523 , _pcLanguages :: !(Maybe [Text])
2669 , _pcLanguages :: !(Maybe [Text])
3524 , _pcVerticals :: !(Maybe [Textual Int64])
2670 , _pcVerticals :: !(Maybe [Textual Int64])
2671+ , _pcVideoPlayerSizes :: !(Maybe [PretargetingConfigVideoPlayerSizesItem])
3525 , _pcConfigId :: !(Maybe (Textual Int64))
2672 , _pcConfigId :: !(Maybe (Textual Int64))
3526 , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem])
2673 , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem])
3527 , _pcExcludedUserLists :: !(Maybe [Textual Int64])
2674 , _pcExcludedUserLists :: !(Maybe [Textual Int64])
@@ -3562,6 +2709,8 @@ data PretargetingConfig = PretargetingConfig
3563-- * 'pcVerticals'
2710-- * 'pcVerticals'
2712+-- * 'pcVideoPlayerSizes'
3565-- * 'pcConfigId'
2714-- * 'pcConfigId'
3567-- * 'pcPlacements'
2716-- * 'pcPlacements'
@@ -3600,6 +2749,7 @@ pretargetingConfig =
3600 , _pcMobileDevices = Nothing
2749 , _pcMobileDevices = Nothing
3601 , _pcLanguages = Nothing
2750 , _pcLanguages = Nothing
3602 , _pcVerticals = Nothing
2751 , _pcVerticals = Nothing
2752+ , _pcVideoPlayerSizes = Nothing
3603 , _pcConfigId = Nothing
2753 , _pcConfigId = Nothing
3604 , _pcPlacements = Nothing
2754 , _pcPlacements = Nothing
3605 , _pcExcludedUserLists = Nothing
2755 , _pcExcludedUserLists = Nothing
@@ -3702,6 +2852,15 @@ pcVerticals
3702 _Default
2852 _Default
3703 . _Coerce
2853 . _Coerce
2855+-- | Video requests satisfying any of these player size constraints will
2857+pcVideoPlayerSizes :: Lens' PretargetingConfig [PretargetingConfigVideoPlayerSizesItem]
2859+ = lens _pcVideoPlayerSizes
2860+ (\ s a -> s{_pcVideoPlayerSizes = a})
3705-- | The config id; generated automatically. Leave this field blank for
2864-- | The config id; generated automatically. Leave this field blank for
3706-- insert requests.
2865-- insert requests.
3707pcConfigId :: Lens' PretargetingConfig (Maybe Int64)
2866pcConfigId :: Lens' PretargetingConfig (Maybe Int64)
@@ -3812,6 +2971,7 @@ instance FromJSON PretargetingConfig where
3812 <*> (o .:? "mobileDevices" .!= mempty)
2971 <*> (o .:? "mobileDevices" .!= mempty)
3813 <*> (o .:? "languages" .!= mempty)
2972 <*> (o .:? "languages" .!= mempty)
3814 <*> (o .:? "verticals" .!= mempty)
2973 <*> (o .:? "verticals" .!= mempty)
2974+ <*> (o .:? "videoPlayerSizes" .!= mempty)
3815 <*> (o .:? "configId")
2975 <*> (o .:? "configId")
3816 <*> (o .:? "placements" .!= mempty)
2976 <*> (o .:? "placements" .!= mempty)
3817 <*> (o .:? "excludedUserLists" .!= mempty)
2977 <*> (o .:? "excludedUserLists" .!= mempty)
@@ -3843,6 +3003,7 @@ instance ToJSON PretargetingConfig where
3843 ("mobileDevices" .=) <$> _pcMobileDevices,
3003 ("mobileDevices" .=) <$> _pcMobileDevices,
3844 ("languages" .=) <$> _pcLanguages,
3004 ("languages" .=) <$> _pcLanguages,
3845 ("verticals" .=) <$> _pcVerticals,
3005 ("verticals" .=) <$> _pcVerticals,
3006+ ("videoPlayerSizes" .=) <$> _pcVideoPlayerSizes,
3846 ("configId" .=) <$> _pcConfigId,
3007 ("configId" .=) <$> _pcConfigId,
3847 ("placements" .=) <$> _pcPlacements,
3008 ("placements" .=) <$> _pcPlacements,
3848 ("excludedUserLists" .=) <$> _pcExcludedUserLists,
3009 ("excludedUserLists" .=) <$> _pcExcludedUserLists,
@@ -3934,7 +3095,8 @@ targetingValueCreativeSize =
3934 , _tvcsCreativeSizeType = Nothing
3095 , _tvcsCreativeSizeType = Nothing
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
3938tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)
3100tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)
3939tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
3101tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})
@@ -3969,474 +3131,293 @@ instance ToJSON TargetingValueCreativeSize where
3969 ("companionSizes" .=) <$> _tvcsCompanionSizes,
3131 ("companionSizes" .=) <$> _tvcsCompanionSizes,
3970 ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
3132 ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
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.
3973−-- /See:/ 'negotiationDTO' smart constructor.
3142+-- /See:/ 'proposal' smart constructor.
3974−data NegotiationDTO = NegotiationDTO
3143+data Proposal = Proposal
3975− { _ndtoNegotiationState :: !(Maybe Text)
3144+ { _pBuyerPrivateData :: !(Maybe PrivateData)
3976− , _ndtoExternalDealId :: !(Maybe (Textual Int64))
3145+ , _pIsSetupComplete :: !(Maybe Bool)
3977− , _ndtoStatus :: !(Maybe Text)
3146+ , _pInventorySource :: !(Maybe Text)
3978− , _ndtoDealType :: !(Maybe Text)
3147+ , _pBuyerContacts :: !(Maybe [ContactInformation])
3979− , _ndtoNegotiationRounds :: !(Maybe [NegotiationRoundDTO])
3148+ , _pKind :: !Text
3980− , _ndtoKind :: !Text
3149+ , _pOriginatorRole :: !(Maybe Text)
3981− , _ndtoBilledBuyer :: !(Maybe DealPartyDTO)
3150+ , _pRevisionNumber :: !(Maybe (Textual Int64))
3982− , _ndtoBuyerEmailContacts :: !(Maybe [Text])
3151+ , _pBilledBuyer :: !(Maybe Buyer)
3983− , _ndtoStats :: !(Maybe StatsDTO)
3152+ , _pIsRenegotiating :: !(Maybe Bool)
3984− , _ndtoSeller :: !(Maybe DealPartyDTO)
3153+ , _pHasSellerSignedOff :: !(Maybe Bool)
3985− , _ndtoLabelNames :: !(Maybe [Text])
3154+ , _pSeller :: !(Maybe Seller)
3986− , _ndtoOfferId :: !(Maybe (Textual Int64))
3155+ , _pProposalId :: !(Maybe Text)
3987− , _ndtoNegotiationId :: !(Maybe (Textual Int64))
3156+ , _pName :: !(Maybe Text)
3988− , _ndtoSellerEmailContacts :: !(Maybe [Text])
3157+ , _pSellerContacts :: !(Maybe [ContactInformation])
3989− , _ndtoBuyer :: !(Maybe DealPartyDTO)
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)
3990 } deriving (Eq,Show,Data,Typeable,Generic)
3165 } deriving (Eq,Show,Data,Typeable,Generic)
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.
3994-- Use one of the following lenses to modify other fields as desired:
3169-- Use one of the following lenses to modify other fields as desired:
3996−-- * 'ndtoNegotiationState'
3171+-- * 'pBuyerPrivateData'
3998−-- * 'ndtoExternalDealId'
4004−-- * 'ndtoNegotiationRounds'
4008−-- * 'ndtoBilledBuyer'
4010−-- * 'ndtoBuyerEmailContacts'
3173+-- * 'pIsSetupComplete'
4012−-- * 'ndtoStats'
3175+-- * 'pInventorySource'
4014−-- * 'ndtoSeller'
3177+-- * 'pBuyerContacts'
4016−-- * 'ndtoLabelNames'
3179+-- * 'pKind'
4018−-- * 'ndtoOfferId'
3181+-- * 'pOriginatorRole'
4020−-- * 'ndtoNegotiationId'
4022−-- * 'ndtoSellerEmailContacts'
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
4046−-- | The state of this negotiation.
4047−ndtoNegotiationState :: Lens' NegotiationDTO (Maybe Text)
4048−ndtoNegotiationState
4049− = lens _ndtoNegotiationState
4050− (\ s a -> s{_ndtoNegotiationState = a})
4052−-- | For finalized negotiations, the ID of the finalized deal.
4053−ndtoExternalDealId :: Lens' NegotiationDTO (Maybe Int64)
4055− = lens _ndtoExternalDealId
4056− (\ s a -> s{_ndtoExternalDealId = a})
4059−-- | The status of this negotiation.
4060−ndtoStatus :: Lens' NegotiationDTO (Maybe Text)
4062− = lens _ndtoStatus (\ s a -> s{_ndtoStatus = a})
4064−-- | The type of this deal.
4065−ndtoDealType :: Lens' NegotiationDTO (Maybe Text)
4067− = lens _ndtoDealType (\ s a -> s{_ndtoDealType = a})
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})
4077−ndtoKind :: Lens' NegotiationDTO Text
4078−ndtoKind = lens _ndtoKind (\ s a -> s{_ndtoKind = a})
4080−-- | The billed buyer; Specified by a buyer buying through an intermediary.
4081−ndtoBilledBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4083− = lens _ndtoBilledBuyer
4084− (\ s a -> s{_ndtoBilledBuyer = a})
4086−-- | The buyer party\'s contact email.
4087−ndtoBuyerEmailContacts :: Lens' NegotiationDTO [Text]
4088−ndtoBuyerEmailContacts
4089− = lens _ndtoBuyerEmailContacts
4090− (\ s a -> s{_ndtoBuyerEmailContacts = a})
4094−-- | The stats for this negotiation.
4095−ndtoStats :: Lens' NegotiationDTO (Maybe StatsDTO)
4097− = lens _ndtoStats (\ s a -> s{_ndtoStats = a})
4099−-- | Details of the seller party in this negotiation.
4100−ndtoSeller :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4102− = lens _ndtoSeller (\ s a -> s{_ndtoSeller = a})
4104−-- | A list of label names applicable to this negotiation.
4105−ndtoLabelNames :: Lens' NegotiationDTO [Text]
4107− = lens _ndtoLabelNames
4108− (\ s a -> s{_ndtoLabelNames = a})
4112−-- | The ID of this negotiation\'s original offer.
4113−ndtoOfferId :: Lens' NegotiationDTO (Maybe Int64)
4115− = lens _ndtoOfferId (\ s a -> s{_ndtoOfferId = a}) .
4118−-- | The unique ID of this negotiation.
4119−ndtoNegotiationId :: Lens' NegotiationDTO (Maybe Int64)
4121− = lens _ndtoNegotiationId
4122− (\ s a -> s{_ndtoNegotiationId = a})
4125−-- | The seller party\'s contact email.
4126−ndtoSellerEmailContacts :: Lens' NegotiationDTO [Text]
4127−ndtoSellerEmailContacts
4128− = lens _ndtoSellerEmailContacts
4129− (\ s a -> s{_ndtoSellerEmailContacts = a})
4133−-- | Details of the buyer party in this negotiation.
4134−ndtoBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4136− = lens _ndtoBuyer (\ s a -> s{_ndtoBuyer = a})
4138−instance FromJSON NegotiationDTO where
4140− = withObject "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"))
4159−instance ToJSON NegotiationDTO where
4160− toJSON NegotiationDTO{..}
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])
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)
4200−-- | Creates a value of 'OfferDTO' with the minimum fields required to make a request.
4202−-- Use one of the following lenses to modify other fields as desired:
3183+-- * 'pRevisionNumber'
4204−-- * 'odtoCreator'
3185+-- * 'pBilledBuyer'
4206−-- * 'odtoStatus'
3187+-- * 'pIsRenegotiating'
4208−-- * 'odtoOfferState'
3189+-- * 'pHasSellerSignedOff'
4210−-- * 'odtoPointOfContact'
3191+-- * 'pSeller'
4212−-- * 'odtoTerms'
3193+-- * 'pProposalId'
4214−-- * 'odtoKind'
3195+-- * 'pName'
4216−-- * 'odtoBilledBuyer'
3197+-- * 'pSellerContacts'
4218−-- * 'odtoOpenToDealParties'
3199+-- * 'pLastUpdaterRole'
4220−-- * 'odtoEmailContacts'
3201+-- * 'pLabels'
4222−-- * 'odtoLabelNames'
3203+-- * 'pRevisionTimeMs'
4224−-- * 'odtoOfferId'
3205+-- * 'pProposalState'
4226−-- * 'odtoClosedToDealParties'
3207+-- * 'pLastUpdaterOrCommentorRole'
4228−-- * 'odtoAnonymous'
3209+-- * 'pHasBuyerSignedOff'
4230−-- * 'odtoIsOpen'
3211+-- * 'pBuyer'
4231−offerDTO
3212+proposal
4232− :: OfferDTO
3213+ :: Proposal
4233−offerDTO =
3214+proposal =
4234− OfferDTO
3215+ Proposal
4235− { _odtoCreator = Nothing
3216+ { _pBuyerPrivateData = Nothing
4236− , _odtoStatus = Nothing
3217+ , _pIsSetupComplete = Nothing
4237− , _odtoOfferState = Nothing
3218+ , _pInventorySource = Nothing
4238− , _odtoPointOfContact = Nothing
3219+ , _pBuyerContacts = Nothing
4239− , _odtoTerms = Nothing
4240− , _odtoKind = "adexchangebuyer#offer"
3220+ , _pKind = "adexchangebuyer#proposal"
4241− , _odtoBilledBuyer = Nothing
3221+ , _pOriginatorRole = Nothing
4242− , _odtoOpenToDealParties = Nothing
3222+ , _pRevisionNumber = Nothing
4243− , _odtoEmailContacts = Nothing
3223+ , _pBilledBuyer = Nothing
4244− , _odtoLabelNames = Nothing
3224+ , _pIsRenegotiating = Nothing
4245− , _odtoOfferId = Nothing
3225+ , _pHasSellerSignedOff = Nothing
4246− , _odtoClosedToDealParties = Nothing
3226+ , _pSeller = Nothing
4247− , _odtoAnonymous = Nothing
3227+ , _pProposalId = Nothing
3229+ , _pSellerContacts = Nothing
3230+ , _pLastUpdaterRole = Nothing
3231+ , _pLabels = Nothing
3232+ , _pRevisionTimeMs = Nothing
3233+ , _pProposalState = Nothing
3234+ , _pLastUpdaterOrCommentorRole = Nothing
3235+ , _pHasBuyerSignedOff = Nothing
4248− , _odtoIsOpen = Nothing
3236+ , _pBuyer = Nothing
4251−-- | The creator of this offer.
3239+-- | Private data for buyer. (hidden from seller).
4252−odtoCreator :: Lens' OfferDTO (Maybe DealPartyDTO)
3240+pBuyerPrivateData :: Lens' Proposal (Maybe PrivateData)
4253−odtoCreator
3241+pBuyerPrivateData
4254− = lens _odtoCreator (\ s a -> s{_odtoCreator = a})
3242+ = lens _pBuyerPrivateData
4255−
3243+ (\ s a -> s{_pBuyerPrivateData = a})
4256−-- | The status of this offer.
4257−odtoStatus :: Lens' OfferDTO (Maybe Text)
4259− = lens _odtoStatus (\ s a -> s{_odtoStatus = a})
4261−-- | The state of this offer.
4262−odtoOfferState :: Lens' OfferDTO (Maybe Text)
4264− = lens _odtoOfferState
4265− (\ s a -> s{_odtoOfferState = a})
4267−-- | The point of contact for this offer.
4268−odtoPointOfContact :: Lens' OfferDTO (Maybe Text)
4270− = lens _odtoPointOfContact
4271− (\ s a -> s{_odtoPointOfContact = a})
4273−-- | The terms of this offer.
4274−odtoTerms :: Lens' OfferDTO (Maybe TermsDTO)
4276− = lens _odtoTerms (\ s a -> s{_odtoTerms = a})
4278−odtoKind :: Lens' OfferDTO Text
4279−odtoKind = lens _odtoKind (\ s a -> s{_odtoKind = a})
4281−-- | The billed buyer; For buyer initiated offers, buying through an
4283−odtoBilledBuyer :: Lens' OfferDTO (Maybe DealPartyDTO)
4285− = lens _odtoBilledBuyer
4286− (\ s a -> s{_odtoBilledBuyer = a})
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})
4296−-- | The list of email contacts for this offer.
3245+-- | True, if the buyside inventory setup is complete for this proposal.
4297−odtoEmailContacts :: Lens' OfferDTO [Text]
3246+-- (readonly)
4298−odtoEmailContacts
3247+pIsSetupComplete :: Lens' Proposal (Maybe Bool)
4299− = lens _odtoEmailContacts
3248+pIsSetupComplete
4300− (\ s a -> s{_odtoEmailContacts = a})
3249+ = lens _pIsSetupComplete
4301− . _Default
3250+ (\ s a -> s{_pIsSetupComplete = a})
3252+-- | What exchange will provide this inventory (readonly, except on create).
3253+pInventorySource :: Lens' Proposal (Maybe Text)
3255+ = lens _pInventorySource
3256+ (\ s a -> s{_pInventorySource = a})
4304−-- | The list of label names applicable to this offer.
3258+-- | Optional contact information fort the buyer. (seller-readonly)
4305−odtoLabelNames :: Lens' OfferDTO [Text]
3259+pBuyerContacts :: Lens' Proposal [ContactInformation]
4306−odtoLabelNames
3260+pBuyerContacts
4307− = lens _odtoLabelNames
3261+ = lens _pBuyerContacts
4308− (\ s a -> s{_odtoLabelNames = a})
3262+ (\ s a -> s{_pBuyerContacts = a})
4309 . _Default
3263 . _Default
4310 . _Coerce
3264 . _Coerce
4312−-- | The unique ID of this offer.
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})
3271+-- | Indicates whether the buyer\/seller created the proposal.(readonly)
3272+pOriginatorRole :: Lens' Proposal (Maybe Text)
3274+ = lens _pOriginatorRole
3275+ (\ s a -> s{_pOriginatorRole = a})
3277+-- | The revision number for the proposal (readonly).
4313−odtoOfferId :: Lens' OfferDTO (Maybe Int64)
3278+pRevisionNumber :: Lens' Proposal (Maybe Int64)
4314−odtoOfferId
3279+pRevisionNumber
4315− = lens _odtoOfferId (\ s a -> s{_odtoOfferId = a}) .
3280+ = lens _pRevisionNumber
3281+ (\ s a -> s{_pRevisionNumber = a})
4316− mapping _Coerce
3282+ . mapping _Coerce
4318−-- | The list of buyer or seller parties this offer is closed to.
3284+-- | Reference to the buyer that will get billed for this proposal.
4319−odtoClosedToDealParties :: Lens' OfferDTO [DealPartyDTO]
3285+-- (readonly)
4320−odtoClosedToDealParties
3286+pBilledBuyer :: Lens' Proposal (Maybe Buyer)
4321− = lens _odtoClosedToDealParties
3287+pBilledBuyer
4322− (\ s a -> s{_odtoClosedToDealParties = a})
3288+ = lens _pBilledBuyer (\ s a -> s{_pBilledBuyer = a})
3290+-- | True if the proposal is being renegotiated (readonly).
3291+pIsRenegotiating :: Lens' Proposal (Maybe Bool)
3293+ = lens _pIsRenegotiating
3294+ (\ s a -> s{_pIsRenegotiating = a})
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)
3301+ = lens _pHasSellerSignedOff
3302+ (\ s a -> s{_pHasSellerSignedOff = a})
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})
3308+-- | The unique id of the proposal. (readonly).
3309+pProposalId :: Lens' Proposal (Maybe Text)
3311+ = lens _pProposalId (\ s a -> s{_pProposalId = a})
3313+-- | The name for the proposal (updatable)
3314+pName :: Lens' Proposal (Maybe Text)
3315+pName = lens _pName (\ s a -> s{_pName = a})
3317+-- | Optional contact information for the seller (buyer-readonly).
3318+pSellerContacts :: Lens' Proposal [ContactInformation]
3320+ = lens _pSellerContacts
3321+ (\ s a -> s{_pSellerContacts = a})
4323 . _Default
3322 . _Default
4324 . _Coerce
3323 . _Coerce
4326−-- | Whether this offer is anonymous.
3325+pLastUpdaterRole :: Lens' Proposal (Maybe Text)
4327−odtoAnonymous :: Lens' OfferDTO (Maybe Bool)
3326+pLastUpdaterRole
4328−odtoAnonymous
3327+ = lens _pLastUpdaterRole
4329− = lens _odtoAnonymous
3328+ (\ s a -> s{_pLastUpdaterRole = a})
4330− (\ s a -> s{_odtoAnonymous = a})
4332−-- | Whether this offer is open.
4333−odtoIsOpen :: Lens' OfferDTO (Maybe Bool)
4335− = lens _odtoIsOpen (\ s a -> s{_odtoIsOpen = a})
4337−instance FromJSON OfferDTO where
4339− = withObject "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"))
4356−instance ToJSON OfferDTO where
4357− toJSON OfferDTO{..}
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])
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)
4385−-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request.
3330+-- | List of labels associated with the proposal. (readonly)
4386−--
3331+pLabels :: Lens' Proposal [MarketplaceLabel]
4387−-- Use one of the following lenses to modify other fields as desired:
3332+pLabels
4388−--
3333+ = lens _pLabels (\ s a -> s{_pLabels = a}) . _Default
4389−-- * 'asNumCookies'
3334+ . _Coerce
4395−-- * 'asDescription'
4400− { _asNumCookies = Nothing
4401− , _asName = Nothing
4403− , _asDescription = Nothing
4406−asNumCookies :: Lens' AudienceSegment (Maybe Int64)
3336+-- | The time (ms since epoch) when the proposal was last revised (readonly).
4407−asNumCookies
3337+pRevisionTimeMs :: Lens' Proposal (Maybe Int64)
4408− = lens _asNumCookies (\ s a -> s{_asNumCookies = a})
3338+pRevisionTimeMs
3339+ = lens _pRevisionTimeMs
3340+ (\ s a -> s{_pRevisionTimeMs = a})
4409 . mapping _Coerce
3341 . mapping _Coerce
4411−asName :: Lens' AudienceSegment (Maybe Text)
3343+-- | The current state of the proposal. (readonly)
4412−asName = lens _asName (\ s a -> s{_asName = a})
3344+pProposalState :: Lens' Proposal (Maybe Text)
3346+ = lens _pProposalState
3347+ (\ s a -> s{_pProposalState = a})
4414−asId :: Lens' AudienceSegment (Maybe Int64)
3349+-- | The role of the last user that either updated the proposal or left a
4415−asId
3350+-- comment. (readonly)
4416− = lens _asId (\ s a -> s{_asId = a}) .
3351+pLastUpdaterOrCommentorRole :: Lens' Proposal (Maybe Text)
4417− mapping _Coerce
3352+pLastUpdaterOrCommentorRole
4418−
3353+ = lens _pLastUpdaterOrCommentorRole
4419−asDescription :: Lens' AudienceSegment (Maybe Text)
3354+ (\ s a -> s{_pLastUpdaterOrCommentorRole = a})
4421− = lens _asDescription
3356+-- | When an proposal is in an accepted state, indicates whether the buyer
4422− (\ s a -> s{_asDescription = a})
3357+-- has signed off Once both sides have signed off on a deal, the proposal
4423−
3358+-- can be finalized by the seller. (seller-readonly)
3359+pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool)
3361+ = lens _pHasBuyerSignedOff
3362+ (\ s a -> s{_pHasBuyerSignedOff = a})
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})
4424−instance FromJSON AudienceSegment where
3368+instance FromJSON Proposal where
4425 parseJSON
3369 parseJSON
4426− = withObject "AudienceSegment"
3370+ = withObject "Proposal"
4428− AudienceSegment <$>
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")
4429− (o .:? "numCookies") <*> (o .:? "name") <*>
3385+ <*> (o .:? "name")
4430− (o .:? "id")
3386+ <*> (o .:? "sellerContacts" .!= mempty)
4431− <*> (o .:? "description"))
3387+ <*> (o .:? "lastUpdaterRole")
3388+ <*> (o .:? "labels" .!= mempty)
3389+ <*> (o .:? "revisionTimeMs")
3390+ <*> (o .:? "proposalState")
3391+ <*> (o .:? "lastUpdaterOrCommentorRole")
3392+ <*> (o .:? "hasBuyerSignedOff")
3393+ <*> (o .:? "buyer"))
4433−instance ToJSON AudienceSegment where
3395+instance ToJSON Proposal where
4434− toJSON AudienceSegment{..}
3396+ toJSON Proposal{..}
4435 = object
3397 = object
4436 (catMaybes
3398 (catMaybes
4437− [("numCookies" .=) <$> _asNumCookies,
3399+ [("buyerPrivateData" .=) <$> _pBuyerPrivateData,
4438− ("name" .=) <$> _asName, ("id" .=) <$> _asId,
3400+ ("isSetupComplete" .=) <$> _pIsSetupComplete,
4439− ("description" .=) <$> _asDescription])
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])
4441-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
3422-- | A billing info feed lists Billing Info the Ad Exchange buyer account has
4442-- access to. Each entry in the feed corresponds to a single billing info.
3423-- access to. Each entry in the feed corresponds to a single billing info.
@@ -4488,520 +3469,86 @@ instance ToJSON BillingInfoList where
4488 [Just ("kind" .= _bilKind),
3469 [Just ("kind" .= _bilKind),
4489 ("items" .=) <$> _bilItems])
3470 ("items" .=) <$> _bilItems])
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.
4499−-- /See:/ 'marketplaceOffer' smart constructor.
3473+-- /See:/ 'addOrderNotesResponse' smart constructor.
4500−data MarketplaceOffer = MarketplaceOffer
3474+newtype AddOrderNotesResponse = AddOrderNotesResponse
4501− { _moState :: !(Maybe Text)
3475+ { _aNotes :: Maybe [MarketplaceNote]
4502− , _moWebPropertyCode :: !(Maybe Text)
4503− , _moCreationTimeMs :: !(Maybe (Textual Int64))
4504− , _moTerms :: !(Maybe DealTerms)
4505− , _moLastUpdateTimeMs :: !(Maybe (Textual Int64))
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])
4518 } deriving (Eq,Show,Data,Typeable,Generic)
3476 } deriving (Eq,Show,Data,Typeable,Generic)
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.
4522-- Use one of the following lenses to modify other fields as desired:
3480-- Use one of the following lenses to modify other fields as desired:
4524−-- * 'moState'
3482+-- * 'aNotes'
4525−--
3483+addOrderNotesResponse
4526−-- * 'moWebPropertyCode'
3484+ :: AddOrderNotesResponse
4527−--
3485+addOrderNotesResponse =
4528−-- * 'moCreationTimeMs'
3486+ AddOrderNotesResponse
4529−--
3487+ { _aNotes = Nothing
4530−-- * 'moTerms'
3488+ }
4532−-- * 'moLastUpdateTimeMs'
3490+aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4534−-- * 'moKind'
3492+ = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4536−-- * 'moRevisionNumber'
3494+
4537−--
3495+instance FromJSON AddOrderNotesResponse where
4538−-- * 'moHasCreatorSignedOff'
3496+ parseJSON
4539−--
3497+ = withObject "AddOrderNotesResponse"
4540−-- * 'moFlightStartTimeMs'
3498+ (\ o ->
4541−--
3499+ AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
4542−-- * 'moSharedTargetings'
3500+
4543−--
3501+instance ToJSON AddOrderNotesResponse where
4544−-- * 'moSeller'
3502+ toJSON AddOrderNotesResponse{..}
4545−--
3503+ = object (catMaybes [("notes" .=) <$> _aNotes])
4546−-- * 'moSyndicationProduct'
3504+
4548−-- * 'moFlightEndTimeMs'
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)
3512+-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
4552−-- * 'moCreatorContacts'
3514+-- Use one of the following lenses to modify other fields as desired:
4554−-- * 'moOfferId'
3516+-- * 'tvsHeight'
4556−-- * 'moLabels'
3518+-- * 'tvsWidth'
4557−marketplaceOffer
3519+targetingValueSize
4558− :: MarketplaceOffer
3520+ :: TargetingValueSize
4559−marketplaceOffer =
3521+targetingValueSize =
4560− MarketplaceOffer
3522+ TargetingValueSize
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
3523+ { _tvsHeight = Nothing
4577− , _moLabels = Nothing
3524+ , _tvsWidth = Nothing
4580−-- | The state of the offer. (buyer-readonly)
3527+-- | The height of the creative.
4581−moState :: Lens' MarketplaceOffer (Maybe Text)
3528+tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4582−moState = lens _moState (\ s a -> s{_moState = a})
3529+tvsHeight
3530+ = lens _tvsHeight (\ s a -> s{_tvsHeight = a}) .
4584−moWebPropertyCode :: Lens' MarketplaceOffer (Maybe Text)
3533+-- | The width of the creative.
4585−moWebPropertyCode
3534+tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4586− = lens _moWebPropertyCode
3535+tvsWidth
4587− (\ s a -> s{_moWebPropertyCode = a})
3536+ = lens _tvsWidth (\ s a -> s{_tvsWidth = a}) .
4589−-- | Creation time in ms. since epoch (readonly)
3539+instance FromJSON TargetingValueSize where
4590−moCreationTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
3540+ parseJSON
4591−moCreationTimeMs
3541+ = withObject "TargetingValueSize"
4592− = lens _moCreationTimeMs
3542+ (\ o ->
4593− (\ s a -> s{_moCreationTimeMs = a})
3543+ TargetingValueSize <$>
4594− . mapping _Coerce
3544+ (o .:? "height") <*> (o .:? "width"))
4596−-- | The negotiable terms of the deal (buyer-readonly)
4597−moTerms :: Lens' MarketplaceOffer (Maybe DealTerms)
4598−moTerms = lens _moTerms (\ s a -> s{_moTerms = a})
4600−-- | Time of last update in ms. since epoch (readonly)
4601−moLastUpdateTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
4603− = lens _moLastUpdateTimeMs
4604− (\ s a -> s{_moLastUpdateTimeMs = a})
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})
4612−-- | The revision number of the offer. (readonly)
4613−moRevisionNumber :: Lens' MarketplaceOffer (Maybe Int64)
4615− = lens _moRevisionNumber
4616− (\ s a -> s{_moRevisionNumber = a})
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})
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)
4632− = lens _moFlightStartTimeMs
4633− (\ s a -> s{_moFlightStartTimeMs = a})
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]
4641− = lens _moSharedTargetings
4642− (\ s a -> s{_moSharedTargetings = a})
4646−-- | Information about the seller that created this offer (readonly, except
4648−moSeller :: Lens' MarketplaceOffer (Maybe Seller)
4649−moSeller = lens _moSeller (\ s a -> s{_moSeller = a})
4651−-- | The syndication product associated with the deal. (readonly, except on
4653−moSyndicationProduct :: Lens' MarketplaceOffer (Maybe Text)
4654−moSyndicationProduct
4655− = lens _moSyndicationProduct
4656− (\ s a -> s{_moSyndicationProduct = a})
4658−-- | The proposed end time for the deal (ms since epoch) (buyer-readonly)
4659−moFlightEndTimeMs :: Lens' MarketplaceOffer (Maybe Int64)
4661− = lens _moFlightEndTimeMs
4662− (\ s a -> s{_moFlightEndTimeMs = a})
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})
4669−-- | Optional contact information for the creator of this offer.
4671−moCreatorContacts :: Lens' MarketplaceOffer [ContactInformation]
4673− = lens _moCreatorContacts
4674− (\ s a -> s{_moCreatorContacts = a})
4678−-- | The unique id for the offer (readonly)
4679−moOfferId :: Lens' MarketplaceOffer (Maybe Text)
4681− = lens _moOfferId (\ s a -> s{_moOfferId = a})
4683−-- | Optional List of labels for the offer (optional, buyer-readonly).
4684−moLabels :: Lens' MarketplaceOffer [MarketplaceLabel]
4686− = lens _moLabels (\ s a -> s{_moLabels = a}) .
4690−instance FromJSON MarketplaceOffer where
4692− = withObject "MarketplaceOffer"
4694− MarketplaceOffer <$>
4695− (o .:? "state") <*> (o .:? "webPropertyCode") <*>
4696− (o .:? "creationTimeMs")
4697− <*> (o .:? "terms")
4698− <*> (o .:? "lastUpdateTimeMs")
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")
4709− <*> (o .:? "creatorContacts" .!= mempty)
4710− <*> (o .:? "offerId")
4711− <*> (o .:? "labels" .!= mempty))
4713−instance ToJSON MarketplaceOffer where
4714− toJSON MarketplaceOffer{..}
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])
4737−-- /See:/ 'addOrderNotesResponse' smart constructor.
4738−newtype AddOrderNotesResponse = AddOrderNotesResponse
4739− { _aNotes :: Maybe [MarketplaceNote]
4740− } deriving (Eq,Show,Data,Typeable,Generic)
4742−-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.
4744−-- Use one of the following lenses to modify other fields as desired:
4747−addOrderNotesResponse
4748− :: AddOrderNotesResponse
4749−addOrderNotesResponse =
4750− AddOrderNotesResponse
4751− { _aNotes = Nothing
4754−aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]
4756− = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .
4759−instance FromJSON AddOrderNotesResponse where
4761− = withObject "AddOrderNotesResponse"
4763− AddOrderNotesResponse <$> (o .:? "notes" .!= mempty))
4765−instance ToJSON AddOrderNotesResponse where
4766− toJSON AddOrderNotesResponse{..}
4767− = object (catMaybes [("notes" .=) <$> _aNotes])
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)
4776−-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request.
4778−-- Use one of the following lenses to modify other fields as desired:
4784− :: TargetingValueSize
4785−targetingValueSize =
4787− { _tvsHeight = Nothing
4788− , _tvsWidth = Nothing
4791−-- | The height of the creative.
4792−tvsHeight :: Lens' TargetingValueSize (Maybe Int32)
4794− = lens _tvsHeight (\ s a -> s{_tvsHeight = a}) .
4797−-- | The width of the creative.
4798−tvsWidth :: Lens' TargetingValueSize (Maybe Int32)
4800− = lens _tvsWidth (\ s a -> s{_tvsWidth = a}) .
4803−instance FromJSON TargetingValueSize where
4805− = withObject "TargetingValueSize"
4807− TargetingValueSize <$>
4808− (o .:? "height") <*> (o .:? "width"))
4810−instance ToJSON TargetingValueSize where
3546+instance ToJSON TargetingValueSize where
4811− toJSON TargetingValueSize{..}
3547+ toJSON TargetingValueSize{..}
4812− = object
3548+ = object
4813− (catMaybes
3549+ (catMaybes
4814− [("height" .=) <$> _tvsHeight,
3550+ [("height" .=) <$> _tvsHeight,
4815− ("width" .=) <$> _tvsWidth])
3551+ ("width" .=) <$> _tvsWidth])
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)
4825−-- | Creates a value of 'GetNegotiationsRequest' with the minimum fields required to make a request.
4827−-- Use one of the following lenses to modify other fields as desired:
4829−-- * 'gnrSinceTimestampMillis'
4833−-- * 'gnrIncludePrivateAuctions'
4834−getNegotiationsRequest
4835− :: GetNegotiationsRequest
4836−getNegotiationsRequest =
4837− GetNegotiationsRequest
4838− { _gnrSinceTimestampMillis = Nothing
4839− , _gnrFinalized = Nothing
4840− , _gnrIncludePrivateAuctions = Nothing
4843−gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64)
4844−gnrSinceTimestampMillis
4845− = lens _gnrSinceTimestampMillis
4846− (\ s a -> s{_gnrSinceTimestampMillis = a})
4849−gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool)
4851− = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a})
4853−gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool)
4854−gnrIncludePrivateAuctions
4855− = lens _gnrIncludePrivateAuctions
4856− (\ s a -> s{_gnrIncludePrivateAuctions = a})
4858−instance FromJSON GetNegotiationsRequest where
4860− = withObject "GetNegotiationsRequest"
4862− GetNegotiationsRequest <$>
4863− (o .:? "sinceTimestampMillis") <*>
4864− (o .:? "finalized")
4865− <*> (o .:? "includePrivateAuctions"))
4867−instance ToJSON GetNegotiationsRequest where
4868− toJSON GetNegotiationsRequest{..}
4871− [("sinceTimestampMillis" .=) <$>
4872− _gnrSinceTimestampMillis,
4873− ("finalized" .=) <$> _gnrFinalized,
4874− ("includePrivateAuctions" .=) <$>
4875− _gnrIncludePrivateAuctions])
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)
4884−-- | Creates a value of 'MoneyDTO' with the minimum fields required to make a request.
4886−-- Use one of the following lenses to modify other fields as desired:
4888−-- * 'mdtoCurrencyCode'
4895− { _mdtoCurrencyCode = Nothing
4896− , _mdtoMicros = Nothing
4899−mdtoCurrencyCode :: Lens' MoneyDTO (Maybe Text)
4901− = lens _mdtoCurrencyCode
4902− (\ s a -> s{_mdtoCurrencyCode = a})
4904−mdtoMicros :: Lens' MoneyDTO (Maybe Int64)
4906− = lens _mdtoMicros (\ s a -> s{_mdtoMicros = a}) .
4909−instance FromJSON MoneyDTO where
4911− = withObject "MoneyDTO"
4914− (o .:? "currencyCode") <*> (o .:? "micros"))
4916−instance ToJSON MoneyDTO where
4917− toJSON MoneyDTO{..}
4920− [("currencyCode" .=) <$> _mdtoCurrencyCode,
4921− ("micros" .=) <$> _mdtoMicros])
4924−-- /See:/ 'getNegotiationByIdRequest' smart constructor.
4925−newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest
4926− { _gnbirIncludePrivateAuctions :: Maybe Bool
4927− } deriving (Eq,Show,Data,Typeable,Generic)
4929−-- | Creates a value of 'GetNegotiationByIdRequest' with the minimum fields required to make a request.
4931−-- Use one of the following lenses to modify other fields as desired:
4933−-- * 'gnbirIncludePrivateAuctions'
4934−getNegotiationByIdRequest
4935− :: GetNegotiationByIdRequest
4936−getNegotiationByIdRequest =
4937− GetNegotiationByIdRequest
4938− { _gnbirIncludePrivateAuctions = Nothing
4941−gnbirIncludePrivateAuctions :: Lens' GetNegotiationByIdRequest (Maybe Bool)
4942−gnbirIncludePrivateAuctions
4943− = lens _gnbirIncludePrivateAuctions
4944− (\ s a -> s{_gnbirIncludePrivateAuctions = a})
4946−instance FromJSON GetNegotiationByIdRequest where
4948− = withObject "GetNegotiationByIdRequest"
4950− GetNegotiationByIdRequest <$>
4951− (o .:? "includePrivateAuctions"))
4953−instance ToJSON GetNegotiationByIdRequest where
4954− toJSON GetNegotiationByIdRequest{..}
4957− [("includePrivateAuctions" .=) <$>
4958− _gnbirIncludePrivateAuctions])
4961−-- /See:/ 'listOffersResponse' smart constructor.
4962−data ListOffersResponse = ListOffersResponse
4963− { _lorKind :: !Text
4964− , _lorOffers :: !(Maybe [OfferDTO])
4965− } deriving (Eq,Show,Data,Typeable,Generic)
4967−-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.
4969−-- Use one of the following lenses to modify other fields as desired:
4975− :: ListOffersResponse
4976−listOffersResponse =
4978− { _lorKind = "adexchangebuyer#offersList"
4979− , _lorOffers = Nothing
4982−lorKind :: Lens' ListOffersResponse Text
4983−lorKind = lens _lorKind (\ s a -> s{_lorKind = a})
4985−lorOffers :: Lens' ListOffersResponse [OfferDTO]
4987− = lens _lorOffers (\ s a -> s{_lorOffers = a}) .
4991−instance FromJSON ListOffersResponse where
4993− = withObject "ListOffersResponse"
4995− ListOffersResponse <$>
4996− (o .:? "kind" .!= "adexchangebuyer#offersList") <*>
4997− (o .:? "offers" .!= mempty))
4999−instance ToJSON ListOffersResponse where
5000− toJSON ListOffersResponse{..}
5003− [Just ("kind" .= _lorKind),
5004− ("offers" .=) <$> _lorOffers])
5007-- /See:/ 'pretargetingConfigDimensionsItem' smart constructor.
3554-- /See:/ 'pretargetingConfigDimensionsItem' smart constructor.
@@ -5053,112 +3600,6 @@ instance ToJSON PretargetingConfigDimensionsItem
5053 [("height" .=) <$> _pcdiHeight,
3600 [("height" .=) <$> _pcdiHeight,
5054 ("width" .=) <$> _pcdiWidth])
3601 ("width" .=) <$> _pcdiWidth])
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)
5065−-- | Creates a value of 'AdvertiserDTO' with the minimum fields required to make a request.
5067−-- Use one of the following lenses to modify other fields as desired:
5080− { _adtoStatus = Nothing
5081− , _adtoBrands = Nothing
5082− , _adtoName = Nothing
5083− , _adtoId = Nothing
5086−adtoStatus :: Lens' AdvertiserDTO (Maybe Text)
5088− = lens _adtoStatus (\ s a -> s{_adtoStatus = a})
5090−adtoBrands :: Lens' AdvertiserDTO [BrandDTO]
5092− = lens _adtoBrands (\ s a -> s{_adtoBrands = a}) .
5096−adtoName :: Lens' AdvertiserDTO (Maybe Text)
5097−adtoName = lens _adtoName (\ s a -> s{_adtoName = a})
5099−adtoId :: Lens' AdvertiserDTO (Maybe Int64)
5101− = lens _adtoId (\ s a -> s{_adtoId = a}) .
5104−instance FromJSON AdvertiserDTO where
5106− = withObject "AdvertiserDTO"
5109− (o .:? "status") <*> (o .:? "brands" .!= mempty) <*>
5113−instance ToJSON AdvertiserDTO where
5114− toJSON AdvertiserDTO{..}
5117− [("status" .=) <$> _adtoStatus,
5118− ("brands" .=) <$> _adtoBrands,
5119− ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
5122−-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
5123−newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse
5124− { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]
5125− } deriving (Eq,Show,Data,Typeable,Generic)
5127−-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.
5129−-- Use one of the following lenses to modify other fields as desired:
5131−-- * 'lcacrClientAccessPermissions'
5132−listClientAccessCapabilitiesResponse
5133− :: ListClientAccessCapabilitiesResponse
5134−listClientAccessCapabilitiesResponse =
5135− ListClientAccessCapabilitiesResponse
5136− { _lcacrClientAccessPermissions = Nothing
5139−lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]
5140−lcacrClientAccessPermissions
5141− = lens _lcacrClientAccessPermissions
5142− (\ s a -> s{_lcacrClientAccessPermissions = a})
5147− ListClientAccessCapabilitiesResponse where
5149− = withObject "ListClientAccessCapabilitiesResponse"
5151− ListClientAccessCapabilitiesResponse <$>
5152− (o .:? "clientAccessPermissions" .!= mempty))
5154−instance ToJSON ListClientAccessCapabilitiesResponse
5156− toJSON ListClientAccessCapabilitiesResponse{..}
5159− [("clientAccessPermissions" .=) <$>
5160− _lcacrClientAccessPermissions])
5163-- /See:/ 'targetingValue' smart constructor.
3604-- /See:/ 'targetingValue' smart constructor.
5164data TargetingValue = TargetingValue
3605data TargetingValue = TargetingValue
@@ -5296,6 +3737,7 @@ instance ToJSON CreativeNATiveAdAppIcon where
5296data Price = Price
3737data Price = Price
5297 { _pCurrencyCode :: !(Maybe Text)
3738 { _pCurrencyCode :: !(Maybe Text)
5298 , _pAmountMicros :: !(Maybe (Textual Double))
3739 , _pAmountMicros :: !(Maybe (Textual Double))
3740+ , _pPricingType :: !(Maybe Text)
5299 } deriving (Eq,Show,Data,Typeable,Generic)
3741 } deriving (Eq,Show,Data,Typeable,Generic)
5301-- | Creates a value of 'Price' with the minimum fields required to make a request.
3743-- | Creates a value of 'Price' with the minimum fields required to make a request.
@@ -5305,12 +3747,15 @@ data Price = Price
5305-- * 'pCurrencyCode'
3747-- * 'pCurrencyCode'
5307-- * 'pAmountMicros'
3749-- * 'pAmountMicros'
5309 :: Price
3753 :: Price
5312 { _pCurrencyCode = Nothing
3756 { _pCurrencyCode = Nothing
5313 , _pAmountMicros = Nothing
3757 , _pAmountMicros = Nothing
3758+ , _pPricingType = Nothing
5316-- | The currency code for the price.
3761-- | The currency code for the price.
@@ -5319,34 +3764,108 @@ pCurrencyCode
5319 = lens _pCurrencyCode
3764 = lens _pCurrencyCode
5320 (\ s a -> s{_pCurrencyCode = a})
3765 (\ s a -> s{_pCurrencyCode = a})
5322−-- | The CPM value in micros.
3767+-- | The price value in micros.
5323pAmountMicros :: Lens' Price (Maybe Double)
3768pAmountMicros :: Lens' Price (Maybe Double)
5324pAmountMicros
3769pAmountMicros
5325 = lens _pAmountMicros
3770 = lens _pAmountMicros
5326 (\ s a -> s{_pAmountMicros = a})
3771 (\ s a -> s{_pAmountMicros = a})
5327 . mapping _Coerce
3772 . mapping _Coerce
3774+-- | The pricing type for the deal\/product.
3775+pPricingType :: Lens' Price (Maybe Text)
3777+ = lens _pPricingType (\ s a -> s{_pPricingType = a})
5329instance FromJSON Price where
3779instance FromJSON Price where
5330 parseJSON
3780 parseJSON
5331 = withObject "Price"
3781 = withObject "Price"
5333 Price <$>
3783 Price <$>
5334− (o .:? "currencyCode") <*> (o .:? "amountMicros"))
3784+ (o .:? "currencyCode") <*> (o .:? "amountMicros") <*>
3785+ (o .:? "pricingType"))
5336instance ToJSON Price where
3787instance ToJSON Price where
5337 toJSON Price{..}
3788 toJSON Price{..}
5338 = object
3789 = object
5339 (catMaybes
3790 (catMaybes
5340 [("currencyCode" .=) <$> _pCurrencyCode,
3791 [("currencyCode" .=) <$> _pCurrencyCode,
5341− ("amountMicros" .=) <$> _pAmountMicros])
3792+ ("amountMicros" .=) <$> _pAmountMicros,
3793+ ("pricingType" .=) <$> _pPricingType])
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)
3803+-- | Creates a value of 'PretargetingConfigVideoPlayerSizesItem' with the minimum fields required to make a request.
3805+-- Use one of the following lenses to modify other fields as desired:
3807+-- * 'pcvpsiMinWidth'
3809+-- * 'pcvpsiAspectRatio'
3811+-- * 'pcvpsiMinHeight'
3812+pretargetingConfigVideoPlayerSizesItem
3813+ :: PretargetingConfigVideoPlayerSizesItem
3814+pretargetingConfigVideoPlayerSizesItem =
3815+ PretargetingConfigVideoPlayerSizesItem
3816+ { _pcvpsiMinWidth = Nothing
3817+ , _pcvpsiAspectRatio = Nothing
3818+ , _pcvpsiMinHeight = Nothing
3821+-- | The minimum player width in pixels. Leave this field blank to match any
3823+pcvpsiMinWidth :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Int64)
3825+ = lens _pcvpsiMinWidth
3826+ (\ s a -> s{_pcvpsiMinWidth = a})
3829+-- | The type of aspect ratio. Leave this field blank to match all aspect
3831+pcvpsiAspectRatio :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Text)
3833+ = lens _pcvpsiAspectRatio
3834+ (\ s a -> s{_pcvpsiAspectRatio = a})
3836+-- | The minimum player height in pixels. Leave this field blank to match any
3838+pcvpsiMinHeight :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Int64)
3840+ = lens _pcvpsiMinHeight
3841+ (\ s a -> s{_pcvpsiMinHeight = a})
3845+ PretargetingConfigVideoPlayerSizesItem where
3847+ = withObject "PretargetingConfigVideoPlayerSizesItem"
3849+ PretargetingConfigVideoPlayerSizesItem <$>
3850+ (o .:? "minWidth") <*> (o .:? "aspectRatio") <*>
3851+ (o .:? "minHeight"))
3854+ PretargetingConfigVideoPlayerSizesItem where
3855+ toJSON PretargetingConfigVideoPlayerSizesItem{..}
3858+ [("minWidth" .=) <$> _pcvpsiMinWidth,
3859+ ("aspectRatio" .=) <$> _pcvpsiAspectRatio,
3860+ ("minHeight" .=) <$> _pcvpsiMinHeight])
5344-- /See:/ 'editAllOrderDealsRequest' smart constructor.
3863-- /See:/ 'editAllOrderDealsRequest' smart constructor.
5345data EditAllOrderDealsRequest = EditAllOrderDealsRequest
3864data EditAllOrderDealsRequest = EditAllOrderDealsRequest
5346− { _eUpdateAction :: !(Maybe Text)
3865+ { _eUpdateAction :: !(Maybe Text)
5347− , _eDeals :: !(Maybe [MarketplaceDeal])
3866+ , _eDeals :: !(Maybe [MarketplaceDeal])
5348− , _eOrder :: !(Maybe MarketplaceOrder)
5349− , _eOrderRevisionNumber :: !(Maybe (Textual Int64))
3867+ , _eProposalRevisionNumber :: !(Maybe (Textual Int64))
3868+ , _eProposal :: !(Maybe Proposal)
5350 } deriving (Eq,Show,Data,Typeable,Generic)
3869 } deriving (Eq,Show,Data,Typeable,Generic)
5352-- | Creates a value of 'EditAllOrderDealsRequest' with the minimum fields required to make a request.
3871-- | Creates a value of 'EditAllOrderDealsRequest' with the minimum fields required to make a request.
@@ -5357,20 +3876,20 @@ data EditAllOrderDealsRequest = EditAllOrderDealsRequest
5358-- * 'eDeals'
3877-- * 'eDeals'
5360−-- * 'eOrder'
3879+-- * 'eProposalRevisionNumber'
5362−-- * 'eOrderRevisionNumber'
3881+-- * 'eProposal'
5363editAllOrderDealsRequest
3882editAllOrderDealsRequest
5364 :: EditAllOrderDealsRequest
3883 :: EditAllOrderDealsRequest
5365editAllOrderDealsRequest =
3884editAllOrderDealsRequest =
5366 EditAllOrderDealsRequest
3885 EditAllOrderDealsRequest
5367 { _eUpdateAction = Nothing
3886 { _eUpdateAction = Nothing
5368 , _eDeals = Nothing
3887 , _eDeals = Nothing
5369− , _eOrder = Nothing
3888+ , _eProposalRevisionNumber = Nothing
5370− , _eOrderRevisionNumber = Nothing
3889+ , _eProposal = Nothing
5373−-- | Indicates an optional action to take on the order
3892+-- | Indicates an optional action to take on the proposal
5374eUpdateAction :: Lens' EditAllOrderDealsRequest (Maybe Text)
3893eUpdateAction :: Lens' EditAllOrderDealsRequest (Maybe Text)
5375eUpdateAction
3894eUpdateAction
5376 = lens _eUpdateAction
3895 = lens _eUpdateAction
@@ -5378,50 +3897,52 @@ eUpdateAction
5379-- | List of deals to edit. Service may perform 3 different operations based
3898-- | List of deals to edit. Service may perform 3 different operations based
5380-- on comparison of deals in this list vs deals already persisted in
3899-- 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
3900+-- database: 1. Add new deal to proposal If a deal in this list does not
5382−-- in the order, the service will create a new deal and add it to the
3901+-- exist in the proposal, the service will create a new deal and add it to
5383−-- order. Validation will follow AddOrderDealsRequest. 2. Update existing
3902+-- the proposal. Validation will follow AddOrderDealsRequest. 2. Update
5384−-- deal in the order If a deal in this list already exist in the order, the
3903+-- existing deal in the proposal If a deal in this list already exist in
5385−-- service will update that existing deal to this new deal in the request.
3904+-- the proposal, the service will update that existing deal to this new
5386−-- Validation will follow UpdateOrderDealsRequest. 3. Delete deals from the
3905+-- deal in the request. Validation will follow UpdateOrderDealsRequest. 3.
5387−-- order (just need the id) If a existing deal in the order is not present
3906+-- Delete deals from the proposal (just need the id) If a existing deal in
5388−-- in this list, the service will delete that deal from the order.
3907+-- the proposal is not present in this list, the service will delete that
5389−-- Validation will follow DeleteOrderDealsRequest.
3908+-- deal from the proposal. Validation will follow DeleteOrderDealsRequest.
5390eDeals :: Lens' EditAllOrderDealsRequest [MarketplaceDeal]
3909eDeals :: Lens' EditAllOrderDealsRequest [MarketplaceDeal]
5392 = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default .
3911 = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default .
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
5398−eOrder :: Lens' EditAllOrderDealsRequest (Maybe MarketplaceOrder)
5399−eOrder = lens _eOrder (\ s a -> s{_eOrder = a})
5401−-- | The last known revision number for the order.
3914+-- | The last known revision number for the proposal.
5402−eOrderRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64)
3915+eProposalRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64)
5403−eOrderRevisionNumber
3916+eProposalRevisionNumber
5404− = lens _eOrderRevisionNumber
3917+ = lens _eProposalRevisionNumber
5405− (\ s a -> s{_eOrderRevisionNumber = a})
3918+ (\ s a -> s{_eProposalRevisionNumber = a})
5406 . mapping _Coerce
3919 . mapping _Coerce
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
3924+eProposal :: Lens' EditAllOrderDealsRequest (Maybe Proposal)
3926+ = lens _eProposal (\ s a -> s{_eProposal = a})
5408instance FromJSON EditAllOrderDealsRequest where
3928instance FromJSON EditAllOrderDealsRequest where
5409 parseJSON
3929 parseJSON
5410 = withObject "EditAllOrderDealsRequest"
3930 = withObject "EditAllOrderDealsRequest"
5412 EditAllOrderDealsRequest <$>
3932 EditAllOrderDealsRequest <$>
5413 (o .:? "updateAction") <*> (o .:? "deals" .!= mempty)
3933 (o .:? "updateAction") <*> (o .:? "deals" .!= mempty)
5414− <*> (o .:? "order")
3934+ <*> (o .:? "proposalRevisionNumber")
5415− <*> (o .:? "orderRevisionNumber"))
3935+ <*> (o .:? "proposal"))
5417instance ToJSON EditAllOrderDealsRequest where
3937instance ToJSON EditAllOrderDealsRequest where
5418 toJSON EditAllOrderDealsRequest{..}
3938 toJSON EditAllOrderDealsRequest{..}
5419 = object
3939 = object
5420 (catMaybes
3940 (catMaybes
5421 [("updateAction" .=) <$> _eUpdateAction,
3941 [("updateAction" .=) <$> _eUpdateAction,
5422− ("deals" .=) <$> _eDeals, ("order" .=) <$> _eOrder,
3942+ ("deals" .=) <$> _eDeals,
5423− ("orderRevisionNumber" .=) <$>
3943+ ("proposalRevisionNumber" .=) <$>
5424− _eOrderRevisionNumber])
3944+ _eProposalRevisionNumber,
3945+ ("proposal" .=) <$> _eProposal])
5426-- | The configuration data for an Ad Exchange billing info.
3947-- | The configuration data for an Ad Exchange billing info.
@@ -5608,563 +4129,6 @@ instance ToJSON SharedTargeting where
5608 ("exclusions" .=) <$> _stExclusions,
4129 ("exclusions" .=) <$> _stExclusions,
5609 ("inclusions" .=) <$> _stInclusions])
4130 ("inclusions" .=) <$> _stInclusions])
5612−-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
5613−newtype ListClientAccessCapabilitiesRequest = ListClientAccessCapabilitiesRequest
5614− { _lcacrSponsorAccountId :: Maybe (Textual Int64)
5615− } deriving (Eq,Show,Data,Typeable,Generic)
5617−-- | Creates a value of 'ListClientAccessCapabilitiesRequest' with the minimum fields required to make a request.
5619−-- Use one of the following lenses to modify other fields as desired:
5621−-- * 'lcacrSponsorAccountId'
5622−listClientAccessCapabilitiesRequest
5623− :: ListClientAccessCapabilitiesRequest
5624−listClientAccessCapabilitiesRequest =
5625− ListClientAccessCapabilitiesRequest
5626− { _lcacrSponsorAccountId = Nothing
5629−lcacrSponsorAccountId :: Lens' ListClientAccessCapabilitiesRequest (Maybe Int64)
5630−lcacrSponsorAccountId
5631− = lens _lcacrSponsorAccountId
5632− (\ s a -> s{_lcacrSponsorAccountId = a})
5635−instance FromJSON ListClientAccessCapabilitiesRequest
5638− = withObject "ListClientAccessCapabilitiesRequest"
5640− ListClientAccessCapabilitiesRequest <$>
5641− (o .:? "sponsorAccountId"))
5643−instance ToJSON ListClientAccessCapabilitiesRequest
5645− toJSON ListClientAccessCapabilitiesRequest{..}
5648− [("sponsorAccountId" .=) <$> _lcacrSponsorAccountId])
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)
5691−-- | Creates a value of 'InventorySegmentTargeting' with the minimum fields required to make a request.
5693−-- Use one of the following lenses to modify other fields as desired:
5695−-- * 'istNegativeVideoDurationSegments'
5697−-- * 'istNegativeIcmBrands'
5699−-- * 'istNegativeKeyValues'
5701−-- * 'istPositiveAudienceSegments'
5703−-- * 'istPositiveXfpPlacements'
5705−-- * 'istNegativeXfpAdSlots'
5707−-- * 'istPositiveOperatingSystemVersions'
5709−-- * 'istPositiveSizes'
5711−-- * 'istPositiveDeviceCategories'
5713−-- * 'istPositiveLocations'
5715−-- * 'istNegativeAdSizes'
5717−-- * 'istPositiveOperatingSystems'
5719−-- * 'istPositiveSiteURLs'
5721−-- * 'istNegativeInventorySlots'
5723−-- * 'istNegativeVideoAdPositionSegments'
5725−-- * 'istPositiveAdTypeSegments'
5727−-- * 'istPositiveIcmInterests'
5729−-- * 'istPositiveMobileApps'
5731−-- * 'istPositiveKeyValues'
5733−-- * 'istPositiveIcmBrands'
5735−-- * 'istPositiveVideoDurationSegments'
5737−-- * 'istNegativeAudienceSegments'
5739−-- * 'istNegativeXfpPlacements'
5741−-- * 'istPositiveXfpAdSlots'
5743−-- * 'istNegativeOperatingSystemVersions'
5745−-- * 'istNegativeSizes'
5747−-- * 'istNegativeLocations'
5749−-- * 'istNegativeDeviceCategories'
5751−-- * 'istNegativeOperatingSystems'
5753−-- * 'istPositiveAdSizes'
5755−-- * 'istNegativeSiteURLs'
5757−-- * 'istNegativeAdTypeSegments'
5759−-- * 'istPositiveVideoAdPositionSegments'
5761−-- * 'istPositiveInventorySlots'
5763−-- * 'istNegativeMobileApps'
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
5808−istNegativeVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64]
5809−istNegativeVideoDurationSegments
5810− = lens _istNegativeVideoDurationSegments
5811− (\ s a -> s{_istNegativeVideoDurationSegments = a})
5815−istNegativeIcmBrands :: Lens' InventorySegmentTargeting [Int64]
5816−istNegativeIcmBrands
5817− = lens _istNegativeIcmBrands
5818− (\ s a -> s{_istNegativeIcmBrands = a})
5822−istNegativeKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair]
5823−istNegativeKeyValues
5824− = lens _istNegativeKeyValues
5825− (\ s a -> s{_istNegativeKeyValues = a})
5829−istPositiveAudienceSegments :: Lens' InventorySegmentTargeting [Int64]
5830−istPositiveAudienceSegments
5831− = lens _istPositiveAudienceSegments
5832− (\ s a -> s{_istPositiveAudienceSegments = a})
5836−istPositiveXfpPlacements :: Lens' InventorySegmentTargeting [Int64]
5837−istPositiveXfpPlacements
5838− = lens _istPositiveXfpPlacements
5839− (\ s a -> s{_istPositiveXfpPlacements = a})
5843−istNegativeXfpAdSlots :: Lens' InventorySegmentTargeting [Int64]
5844−istNegativeXfpAdSlots
5845− = lens _istNegativeXfpAdSlots
5846− (\ s a -> s{_istNegativeXfpAdSlots = a})
5850−istPositiveOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64]
5851−istPositiveOperatingSystemVersions
5852− = lens _istPositiveOperatingSystemVersions
5853− (\ s a -> s{_istPositiveOperatingSystemVersions = a})
5857−istPositiveSizes :: Lens' InventorySegmentTargeting [Int64]
5859− = lens _istPositiveSizes
5860− (\ s a -> s{_istPositiveSizes = a})
5864−istPositiveDeviceCategories :: Lens' InventorySegmentTargeting [Int64]
5865−istPositiveDeviceCategories
5866− = lens _istPositiveDeviceCategories
5867− (\ s a -> s{_istPositiveDeviceCategories = a})
5871−istPositiveLocations :: Lens' InventorySegmentTargeting [Int64]
5872−istPositiveLocations
5873− = lens _istPositiveLocations
5874− (\ s a -> s{_istPositiveLocations = a})
5878−istNegativeAdSizes :: Lens' InventorySegmentTargeting [AdSize]
5880− = lens _istNegativeAdSizes
5881− (\ s a -> s{_istNegativeAdSizes = a})
5885−istPositiveOperatingSystems :: Lens' InventorySegmentTargeting [Int64]
5886−istPositiveOperatingSystems
5887− = lens _istPositiveOperatingSystems
5888− (\ s a -> s{_istPositiveOperatingSystems = a})
5892−istPositiveSiteURLs :: Lens' InventorySegmentTargeting [Text]
5894− = lens _istPositiveSiteURLs
5895− (\ s a -> s{_istPositiveSiteURLs = a})
5899−istNegativeInventorySlots :: Lens' InventorySegmentTargeting [Text]
5900−istNegativeInventorySlots
5901− = lens _istNegativeInventorySlots
5902− (\ s a -> s{_istNegativeInventorySlots = a})
5906−istNegativeVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text]
5907−istNegativeVideoAdPositionSegments
5908− = lens _istNegativeVideoAdPositionSegments
5909− (\ s a -> s{_istNegativeVideoAdPositionSegments = a})
5913−istPositiveAdTypeSegments :: Lens' InventorySegmentTargeting [Text]
5914−istPositiveAdTypeSegments
5915− = lens _istPositiveAdTypeSegments
5916− (\ s a -> s{_istPositiveAdTypeSegments = a})
5920−istPositiveIcmInterests :: Lens' InventorySegmentTargeting [Int64]
5921−istPositiveIcmInterests
5922− = lens _istPositiveIcmInterests
5923− (\ s a -> s{_istPositiveIcmInterests = a})
5927−istPositiveMobileApps :: Lens' InventorySegmentTargeting [Text]
5928−istPositiveMobileApps
5929− = lens _istPositiveMobileApps
5930− (\ s a -> s{_istPositiveMobileApps = a})
5934−istPositiveKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair]
5935−istPositiveKeyValues
5936− = lens _istPositiveKeyValues
5937− (\ s a -> s{_istPositiveKeyValues = a})
5941−istPositiveIcmBrands :: Lens' InventorySegmentTargeting [Int64]
5942−istPositiveIcmBrands
5943− = lens _istPositiveIcmBrands
5944− (\ s a -> s{_istPositiveIcmBrands = a})
5948−istPositiveVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64]
5949−istPositiveVideoDurationSegments
5950− = lens _istPositiveVideoDurationSegments
5951− (\ s a -> s{_istPositiveVideoDurationSegments = a})
5955−istNegativeAudienceSegments :: Lens' InventorySegmentTargeting [Int64]
5956−istNegativeAudienceSegments
5957− = lens _istNegativeAudienceSegments
5958− (\ s a -> s{_istNegativeAudienceSegments = a})
5962−istNegativeXfpPlacements :: Lens' InventorySegmentTargeting [Int64]
5963−istNegativeXfpPlacements
5964− = lens _istNegativeXfpPlacements
5965− (\ s a -> s{_istNegativeXfpPlacements = a})
5969−istPositiveXfpAdSlots :: Lens' InventorySegmentTargeting [Int64]
5970−istPositiveXfpAdSlots
5971− = lens _istPositiveXfpAdSlots
5972− (\ s a -> s{_istPositiveXfpAdSlots = a})
5976−istNegativeOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64]
5977−istNegativeOperatingSystemVersions
5978− = lens _istNegativeOperatingSystemVersions
5979− (\ s a -> s{_istNegativeOperatingSystemVersions = a})
5983−istNegativeSizes :: Lens' InventorySegmentTargeting [Int64]
5985− = lens _istNegativeSizes
5986− (\ s a -> s{_istNegativeSizes = a})
5990−istNegativeLocations :: Lens' InventorySegmentTargeting [Int64]
5991−istNegativeLocations
5992− = lens _istNegativeLocations
5993− (\ s a -> s{_istNegativeLocations = a})
5997−istNegativeDeviceCategories :: Lens' InventorySegmentTargeting [Int64]
5998−istNegativeDeviceCategories
5999− = lens _istNegativeDeviceCategories
6000− (\ s a -> s{_istNegativeDeviceCategories = a})
6004−istNegativeOperatingSystems :: Lens' InventorySegmentTargeting [Int64]
6005−istNegativeOperatingSystems
6006− = lens _istNegativeOperatingSystems
6007− (\ s a -> s{_istNegativeOperatingSystems = a})
6011−istPositiveAdSizes :: Lens' InventorySegmentTargeting [AdSize]
6013− = lens _istPositiveAdSizes
6014− (\ s a -> s{_istPositiveAdSizes = a})
6018−istNegativeSiteURLs :: Lens' InventorySegmentTargeting [Text]
6020− = lens _istNegativeSiteURLs
6021− (\ s a -> s{_istNegativeSiteURLs = a})
6025−istNegativeAdTypeSegments :: Lens' InventorySegmentTargeting [Text]
6026−istNegativeAdTypeSegments
6027− = lens _istNegativeAdTypeSegments
6028− (\ s a -> s{_istNegativeAdTypeSegments = a})
6032−istPositiveVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text]
6033−istPositiveVideoAdPositionSegments
6034− = lens _istPositiveVideoAdPositionSegments
6035− (\ s a -> s{_istPositiveVideoAdPositionSegments = a})
6039−istPositiveInventorySlots :: Lens' InventorySegmentTargeting [Text]
6040−istPositiveInventorySlots
6041− = lens _istPositiveInventorySlots
6042− (\ s a -> s{_istPositiveInventorySlots = a})
6046−istNegativeMobileApps :: Lens' InventorySegmentTargeting [Text]
6047−istNegativeMobileApps
6048− = lens _istNegativeMobileApps
6049− (\ s a -> s{_istNegativeMobileApps = a})
6053−istNegativeIcmInterests :: Lens' InventorySegmentTargeting [Int64]
6054−istNegativeIcmInterests
6055− = lens _istNegativeIcmInterests
6056− (\ s a -> s{_istNegativeIcmInterests = a})
6060−instance FromJSON InventorySegmentTargeting where
6062− = withObject "InventorySegmentTargeting"
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)
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)
6081− (o .:? "negativeVideoAdPositionSegments" .!= mempty)
6082− <*> (o .:? "positiveAdTypeSegments" .!= mempty)
6083− <*> (o .:? "positiveIcmInterests" .!= mempty)
6084− <*> (o .:? "positiveMobileApps" .!= mempty)
6085− <*> (o .:? "positiveKeyValues" .!= mempty)
6086− <*> (o .:? "positiveIcmBrands" .!= mempty)
6088− (o .:? "positiveVideoDurationSegments" .!= mempty)
6089− <*> (o .:? "negativeAudienceSegments" .!= mempty)
6090− <*> (o .:? "negativeXfpPlacements" .!= mempty)
6091− <*> (o .:? "positiveXfpAdSlots" .!= mempty)
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)
6102− (o .:? "positiveVideoAdPositionSegments" .!= mempty)
6103− <*> (o .:? "positiveInventorySlots" .!= mempty)
6104− <*> (o .:? "negativeMobileApps" .!= mempty)
6105− <*> (o .:? "negativeIcmInterests" .!= mempty))
6107−instance ToJSON InventorySegmentTargeting where
6108− toJSON InventorySegmentTargeting{..}
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])
6168-- | A large image.
4132-- | A large image.
6170-- /See:/ 'creativeNATiveAdImage' smart constructor.
4134-- /See:/ 'creativeNATiveAdImage' smart constructor.
@@ -6222,198 +4186,262 @@ instance ToJSON CreativeNATiveAdImage where
6222 ("url" .=) <$> _cnataiURL,
4186 ("url" .=) <$> _cnataiURL,
6223 ("width" .=) <$> _cnataiWidth])
4187 ("width" .=) <$> _cnataiWidth])
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.
6226−-- /See:/ 'webPropertyDTO' smart constructor.
4197+-- /See:/ 'product' smart constructor.
6227−data WebPropertyDTO = WebPropertyDTO
4198+data Product = Product
6228− { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
4199+ { _proState :: !(Maybe Text)
6229− , _wpdtoSyndicationProduct :: !(Maybe Text)
4200+ , _proInventorySource :: !(Maybe Text)
6230− , _wpdtoName :: !(Maybe Text)
4201+ , _proWebPropertyCode :: !(Maybe Text)
6231− , _wpdtoPropertyCode :: !(Maybe Text)
4202+ , _proCreationTimeMs :: !(Maybe (Textual Int64))
6232− , _wpdtoId :: !(Maybe (Textual Int32))
4203+ , _proTerms :: !(Maybe DealTerms)
6233− , _wpdtoSiteURLs :: !(Maybe [Text])
4204+ , _proLastUpdateTimeMs :: !(Maybe (Textual Int64))
6234− , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
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)
6235 } deriving (Eq,Show,Data,Typeable,Generic)
4217 } deriving (Eq,Show,Data,Typeable,Generic)
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.
6239-- Use one of the following lenses to modify other fields as desired:
4221-- Use one of the following lenses to modify other fields as desired:
6241−-- * 'wpdtoEnabledForPreferredDeals'
4223+-- * 'proState'
4225+-- * 'proInventorySource'
4227+-- * 'proWebPropertyCode'
4229+-- * 'proCreationTimeMs'
4233+-- * 'proLastUpdateTimeMs'
6243−-- * 'wpdtoSyndicationProduct'
4235+-- * 'proKind'
6245−-- * 'wpdtoName'
4237+-- * 'proRevisionNumber'
6247−-- * 'wpdtoPropertyCode'
4239+-- * 'proHasCreatorSignedOff'
6249−-- * 'wpdtoId'
4241+-- * 'proFlightStartTimeMs'
6251−-- * 'wpdtoSiteURLs'
4243+-- * 'proSharedTargetings'
6253−-- * 'wpdtoAllowInterestTargetedAds'
4245+-- * 'proSeller'
6254−webPropertyDTO
4246+--
6255− :: WebPropertyDTO
4247+-- * 'proSyndicationProduct'
6256−webPropertyDTO =
4248+--
6257− WebPropertyDTO
4249+-- * 'proFlightEndTimeMs'
6258− { _wpdtoEnabledForPreferredDeals = Nothing
4250+--
6259− , _wpdtoSyndicationProduct = Nothing
4251+-- * 'proName'
6260− , _wpdtoName = Nothing
4252+--
6261− , _wpdtoPropertyCode = Nothing
4253+-- * 'proCreatorContacts'
4262+ { _proState = Nothing
4263+ , _proInventorySource = Nothing
4264+ , _proWebPropertyCode = Nothing
4265+ , _proCreationTimeMs = Nothing
6262− , _wpdtoId = Nothing
4266+ , _proTerms = Nothing
6263− , _wpdtoSiteURLs = Nothing
4267+ , _proLastUpdateTimeMs = Nothing
6264− , _wpdtoAllowInterestTargetedAds = 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
6267−wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
4282+-- | The state of the product. (buyer-readonly)
6268−wpdtoEnabledForPreferredDeals
4283+proState :: Lens' Product (Maybe Text)
6269− = lens _wpdtoEnabledForPreferredDeals
4284+proState = lens _proState (\ s a -> s{_proState = a})
6270− (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
6272−wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
4286+-- | What exchange will provide this inventory (readonly, except on create).
6273−wpdtoSyndicationProduct
4287+proInventorySource :: Lens' Product (Maybe Text)
6274− = lens _wpdtoSyndicationProduct
4288+proInventorySource
6275− (\ s a -> s{_wpdtoSyndicationProduct = a})
4289+ = lens _proInventorySource
4290+ (\ s a -> s{_proInventorySource = a})
6277−wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
4292+proWebPropertyCode :: Lens' Product (Maybe Text)
6278−wpdtoName
4293+proWebPropertyCode
6279− = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
4294+ = lens _proWebPropertyCode
4295+ (\ s a -> s{_proWebPropertyCode = a})
6281−wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
4297+-- | Creation time in ms. since epoch (readonly)
6282−wpdtoPropertyCode
4298+proCreationTimeMs :: Lens' Product (Maybe Int64)
6283− = lens _wpdtoPropertyCode
4299+proCreationTimeMs
6284− (\ s a -> s{_wpdtoPropertyCode = a})
4300+ = lens _proCreationTimeMs
6285−
4301+ (\ s a -> s{_proCreationTimeMs = a})
6286−wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
6288− = lens _wpdtoId (\ s a -> s{_wpdtoId = a}) .
6289− mapping _Coerce
4302+ . mapping _Coerce
6291−wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
6293− = lens _wpdtoSiteURLs
6294− (\ s a -> s{_wpdtoSiteURLs = a})
6298−wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
4304+-- | The negotiable terms of the deal (buyer-readonly)
6299−wpdtoAllowInterestTargetedAds
4305+proTerms :: Lens' Product (Maybe DealTerms)
6300− = lens _wpdtoAllowInterestTargetedAds
4306+proTerms = lens _proTerms (\ s a -> s{_proTerms = a})
6301− (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
6303−instance FromJSON WebPropertyDTO where
4308+-- | Time of last update in ms. since epoch (readonly)
6304− parseJSON
4309+proLastUpdateTimeMs :: Lens' Product (Maybe Int64)
6305− = withObject "WebPropertyDTO"
4310+proLastUpdateTimeMs
6306− (\ o ->
4311+ = lens _proLastUpdateTimeMs
6307− WebPropertyDTO <$>
4312+ (\ s a -> s{_proLastUpdateTimeMs = a})
6308− (o .:? "enabledForPreferredDeals") <*>
4313+ . mapping _Coerce
6309− (o .:? "syndicationProduct")
6311− <*> (o .:? "propertyCode")
6313− <*> (o .:? "siteUrls" .!= mempty)
6314− <*> (o .:? "allowInterestTargetedAds"))
6316−instance ToJSON WebPropertyDTO where
4315+-- | Identifies what kind of resource this is. Value: the fixed string
6317− toJSON WebPropertyDTO{..}
4316+-- \"adexchangebuyer#product\".
6318− = object
4317+proKind :: Lens' Product Text
6319− (catMaybes
4318+proKind = lens _proKind (\ s a -> s{_proKind = a})
6320− [("enabledForPreferredDeals" .=) <$>
4319+
6321− _wpdtoEnabledForPreferredDeals,
4320+-- | The revision number of the product. (readonly)
6322− ("syndicationProduct" .=) <$>
4321+proRevisionNumber :: Lens' Product (Maybe Int64)
6323− _wpdtoSyndicationProduct,
4322+proRevisionNumber
6324− ("name" .=) <$> _wpdtoName,
4323+ = lens _proRevisionNumber
6325− ("propertyCode" .=) <$> _wpdtoPropertyCode,
4324+ (\ s a -> s{_proRevisionNumber = a})
6326− ("id" .=) <$> _wpdtoId,
4325+ . mapping _Coerce
6327− ("siteUrls" .=) <$> _wpdtoSiteURLs,
6328− ("allowInterestTargetedAds" .=) <$>
6329− _wpdtoAllowInterestTargetedAds])
6332−-- /See:/ 'listOffersRequest' smart constructor.
6333−newtype ListOffersRequest = ListOffersRequest
6334− { _lorSinceTimestampMillis :: Maybe (Textual Int64)
6335− } deriving (Eq,Show,Data,Typeable,Generic)
6337−-- | Creates a value of 'ListOffersRequest' with the minimum fields required to make a request.
4327+-- | If the creator has already signed off on the product, then the buyer can
6338−--
4328+-- finalize the deal by accepting the product as is. When copying to a
6339−-- Use one of the following lenses to modify other fields as desired:
4329+-- proposal, if any of the terms are changed, then auto_finalize is
6340−--
4330+-- automatically set to false.
6341−-- * 'lorSinceTimestampMillis'
4331+proHasCreatorSignedOff :: Lens' Product (Maybe Bool)
6342−listOffersRequest
4332+proHasCreatorSignedOff
6343− :: ListOffersRequest
4333+ = lens _proHasCreatorSignedOff
6344−listOffersRequest =
4334+ (\ s a -> s{_proHasCreatorSignedOff = a})
6346− { _lorSinceTimestampMillis = Nothing
6349−lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64)
4336+-- | Inventory availability dates. (times are in ms since epoch) The
6350−lorSinceTimestampMillis
4337+-- granularity is generally in the order of seconds. (buyer-readonly)
6351− = lens _lorSinceTimestampMillis
4338+proFlightStartTimeMs :: Lens' Product (Maybe Int64)
6352− (\ s a -> s{_lorSinceTimestampMillis = a})
4339+proFlightStartTimeMs
4340+ = lens _proFlightStartTimeMs
4341+ (\ s a -> s{_proFlightStartTimeMs = a})
6353 . mapping _Coerce
4342 . mapping _Coerce
6355−instance FromJSON ListOffersRequest where
4344+-- | Targeting that is shared between the buyer and the seller. Each
6356− parseJSON
4345+-- targeting criteria has a specified key and for each key there is a list
6357− = withObject "ListOffersRequest"
4346+-- of inclusion value or exclusion values. (buyer-readonly)
6358− (\ o ->
4347+proSharedTargetings :: Lens' Product [SharedTargeting]
6359− ListOffersRequest <$> (o .:? "sinceTimestampMillis"))
4348+proSharedTargetings
6360−
4349+ = lens _proSharedTargetings
6361−instance ToJSON ListOffersRequest where
4350+ (\ s a -> s{_proSharedTargetings = a})
6362− toJSON ListOffersRequest{..}
4351+ . _Default
6363− = object
4352+ . _Coerce
6365− [("sinceTimestampMillis" .=) <$>
6366− _lorSinceTimestampMillis])
6368−--
4354+-- | Information about the seller that created this product (readonly, except
6369−-- /See:/ 'clientAccessCapabilities' smart constructor.
4355+-- on create)
6370−data ClientAccessCapabilities = ClientAccessCapabilities
4356+proSeller :: Lens' Product (Maybe Seller)
6371− { _cacClientAccountId :: !(Maybe (Textual Int64))
4357+proSeller
6372− , _cacCapabilities :: !(Maybe [Textual Int32])
4358+ = lens _proSeller (\ s a -> s{_proSeller = a})
6373− } deriving (Eq,Show,Data,Typeable,Generic)
6375−-- | Creates a value of 'ClientAccessCapabilities' with the minimum fields required to make a request.
4360+-- | The syndication product associated with the deal. (readonly, except on
6377−-- Use one of the following lenses to modify other fields as desired:
4362+proSyndicationProduct :: Lens' Product (Maybe Text)
6378−--
4363+proSyndicationProduct
6379−-- * 'cacClientAccountId'
4364+ = lens _proSyndicationProduct
6380−--
4365+ (\ s a -> s{_proSyndicationProduct = a})
6381−-- * 'cacCapabilities'
6382−clientAccessCapabilities
6383− :: ClientAccessCapabilities
6384−clientAccessCapabilities =
6385− ClientAccessCapabilities
6386− { _cacClientAccountId = Nothing
6387− , _cacCapabilities = Nothing
6390−cacClientAccountId :: Lens' ClientAccessCapabilities (Maybe Int64)
4367+-- | The proposed end time for the deal (ms since epoch) (buyer-readonly)
6391−cacClientAccountId
4368+proFlightEndTimeMs :: Lens' Product (Maybe Int64)
6392− = lens _cacClientAccountId
4369+proFlightEndTimeMs
6393− (\ s a -> s{_cacClientAccountId = a})
4370+ = lens _proFlightEndTimeMs
4371+ (\ s a -> s{_proFlightEndTimeMs = a})
6394 . mapping _Coerce
4372 . mapping _Coerce
6396−cacCapabilities :: Lens' ClientAccessCapabilities [Int32]
4374+-- | The name for this product as set by the seller. (buyer-readonly)
6397−cacCapabilities
4375+proName :: Lens' Product (Maybe Text)
6398− = lens _cacCapabilities
4376+proName = lens _proName (\ s a -> s{_proName = a})
6399− (\ s a -> s{_cacCapabilities = a})
4377+
4378+-- | Optional contact information for the creator of this product.
4380+proCreatorContacts :: Lens' Product [ContactInformation]
4382+ = lens _proCreatorContacts
4383+ (\ s a -> s{_proCreatorContacts = a})
6400 . _Default
4384 . _Default
6401 . _Coerce
4385 . _Coerce
4387+-- | Optional List of labels for the product (optional, buyer-readonly).
4388+proLabels :: Lens' Product [MarketplaceLabel]
4390+ = lens _proLabels (\ s a -> s{_proLabels = a}) .
4394+-- | The unique id for the product (readonly)
4395+proProductId :: Lens' Product (Maybe Text)
4397+ = lens _proProductId (\ s a -> s{_proProductId = a})
6403−instance FromJSON ClientAccessCapabilities where
4399+instance FromJSON Product where
6404 parseJSON
4400 parseJSON
6405− = withObject "ClientAccessCapabilities"
4401+ = withObject "Product"
6407− ClientAccessCapabilities <$>
4403+ Product <$>
6408− (o .:? "clientAccountId") <*>
4404+ (o .:? "state") <*> (o .:? "inventorySource") <*>
6409− (o .:? "capabilities" .!= mempty))
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")
4418+ <*> (o .:? "creatorContacts" .!= mempty)
4419+ <*> (o .:? "labels" .!= mempty)
4420+ <*> (o .:? "productId"))
6411−instance ToJSON ClientAccessCapabilities where
4422+instance ToJSON Product where
6412− toJSON ClientAccessCapabilities{..}
4423+ toJSON Product{..}
6413 = object
4424 = object
6414 (catMaybes
4425 (catMaybes
6415− [("clientAccountId" .=) <$> _cacClientAccountId,
4426+ [("state" .=) <$> _proState,
6416− ("capabilities" .=) <$> _cacCapabilities])
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])
6419-- /See:/ 'creativeServingRestrictionsItem' smart constructor.
4447-- /See:/ 'creativeServingRestrictionsItem' smart constructor.
@@ -6487,8 +4515,8 @@ instance ToJSON CreativeServingRestrictionsItem where
6488-- /See:/ 'deleteOrderDealsResponse' smart constructor.
4516-- /See:/ 'deleteOrderDealsResponse' smart constructor.
6489data DeleteOrderDealsResponse = DeleteOrderDealsResponse
4517data DeleteOrderDealsResponse = DeleteOrderDealsResponse
6490− { _dDeals :: !(Maybe [MarketplaceDeal])
4518+ { _dDeals :: !(Maybe [MarketplaceDeal])
6491− , _dOrderRevisionNumber :: !(Maybe (Textual Int64))
4519+ , _dProposalRevisionNumber :: !(Maybe (Textual Int64))
6492 } deriving (Eq,Show,Data,Typeable,Generic)
4520 } deriving (Eq,Show,Data,Typeable,Generic)
6494-- | Creates a value of 'DeleteOrderDealsResponse' with the minimum fields required to make a request.
4522-- | Creates a value of 'DeleteOrderDealsResponse' with the minimum fields required to make a request.
@@ -6497,26 +4525,26 @@ data DeleteOrderDealsResponse = DeleteOrderDealsResponse
6498-- * 'dDeals'
4526-- * 'dDeals'
6500−-- * 'dOrderRevisionNumber'
4528+-- * 'dProposalRevisionNumber'
6501deleteOrderDealsResponse
4529deleteOrderDealsResponse
6502 :: DeleteOrderDealsResponse
4530 :: DeleteOrderDealsResponse
6503deleteOrderDealsResponse =
4531deleteOrderDealsResponse =
6504 DeleteOrderDealsResponse
4532 DeleteOrderDealsResponse
6505 { _dDeals = Nothing
4533 { _dDeals = Nothing
6506− , _dOrderRevisionNumber = Nothing
4534+ , _dProposalRevisionNumber = Nothing
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)
6510dDeals :: Lens' DeleteOrderDealsResponse [MarketplaceDeal]
4538dDeals :: Lens' DeleteOrderDealsResponse [MarketplaceDeal]
6512 = lens _dDeals (\ s a -> s{_dDeals = a}) . _Default .
4540 = lens _dDeals (\ s a -> s{_dDeals = a}) . _Default .
6515−-- | The updated revision number for the order.
4543+-- | The updated revision number for the proposal.
6516−dOrderRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64)
4544+dProposalRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64)
6517−dOrderRevisionNumber
4545+dProposalRevisionNumber
6518− = lens _dOrderRevisionNumber
4546+ = lens _dProposalRevisionNumber
6519− (\ s a -> s{_dOrderRevisionNumber = a})
4547+ (\ s a -> s{_dProposalRevisionNumber = a})
6520 . mapping _Coerce
4548 . mapping _Coerce
6522instance FromJSON DeleteOrderDealsResponse where
4550instance FromJSON DeleteOrderDealsResponse where
@@ -6525,15 +4553,15 @@ instance FromJSON DeleteOrderDealsResponse where
6526 DeleteOrderDealsResponse <$>
4554 DeleteOrderDealsResponse <$>
6527 (o .:? "deals" .!= mempty) <*>
4555 (o .:? "deals" .!= mempty) <*>
6528− (o .:? "orderRevisionNumber"))
4556+ (o .:? "proposalRevisionNumber"))
6530instance ToJSON DeleteOrderDealsResponse where
4558instance ToJSON DeleteOrderDealsResponse where
6531 toJSON DeleteOrderDealsResponse{..}
4559 toJSON DeleteOrderDealsResponse{..}
6532 = object
4560 = object
6533 (catMaybes
4561 (catMaybes
6534 [("deals" .=) <$> _dDeals,
4562 [("deals" .=) <$> _dDeals,
6535− ("orderRevisionNumber" .=) <$>
4563+ ("proposalRevisionNumber" .=) <$>
6536− _dOrderRevisionNumber])
4564+ _dProposalRevisionNumber])
6539-- /See:/ 'pretargetingConfigPlacementsItem' smart constructor.
4567-- /See:/ 'pretargetingConfigPlacementsItem' smart constructor.
@@ -6584,30 +4612,31 @@ instance ToJSON PretargetingConfigPlacementsItem
6584 [("token" .=) <$> _pcpiToken,
4612 [("token" .=) <$> _pcpiToken,
6585 ("type" .=) <$> _pcpiType])
4613 ("type" .=) <$> _pcpiType])
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
6588-- targeting information that is used for serving.
4616-- targeting information that is used for serving.
6590-- /See:/ 'marketplaceDeal' smart constructor.
4618-- /See:/ 'marketplaceDeal' smart constructor.
6591data MarketplaceDeal = MarketplaceDeal
4619data MarketplaceDeal = MarketplaceDeal
6592− { _mdExternalDealId :: !(Maybe Text)
4620+ { _mdExternalDealId :: !(Maybe Text)
6593− , _mdBuyerPrivateData :: !(Maybe PrivateData)
4621+ , _mdBuyerPrivateData :: !(Maybe PrivateData)
6594− , _mdWebPropertyCode :: !(Maybe Text)
4622+ , _mdWebPropertyCode :: !(Maybe Text)
6595− , _mdCreationTimeMs :: !(Maybe (Textual Int64))
4623+ , _mdCreationTimeMs :: !(Maybe (Textual Int64))
6596− , _mdTerms :: !(Maybe DealTerms)
4624+ , _mdTerms :: !(Maybe DealTerms)
6597− , _mdOfferRevisionNumber :: !(Maybe (Textual Int64))
6598− , _mdLastUpdateTimeMs :: !(Maybe (Textual Int64))
4625+ , _mdLastUpdateTimeMs :: !(Maybe (Textual Int64))
6599− , _mdKind :: !Text
4626+ , _mdKind :: !Text
6600− , _mdDeliveryControl :: !(Maybe DeliveryControl)
4627+ , _mdDeliveryControl :: !(Maybe DeliveryControl)
6601− , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
4628+ , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
6602− , _mdSharedTargetings :: !(Maybe [SharedTargeting])
4629+ , _mdSharedTargetings :: !(Maybe [SharedTargeting])
4630+ , _mdProposalId :: !(Maybe Text)
6603− , _mdDealId :: !(Maybe Text)
4631+ , _mdDealId :: !(Maybe Text)
6604− , _mdInventoryDescription :: !(Maybe Text)
4632+ , _mdInventoryDescription :: !(Maybe Text)
6605− , _mdSyndicationProduct :: !(Maybe Text)
4633+ , _mdSyndicationProduct :: !(Maybe Text)
6606− , _mdFlightEndTimeMs :: !(Maybe (Textual Int64))
4634+ , _mdFlightEndTimeMs :: !(Maybe (Textual Int64))
6607− , _mdName :: !(Maybe Text)
4635+ , _mdName :: !(Maybe Text)
6608− , _mdSellerContacts :: !(Maybe [ContactInformation])
4636+ , _mdSellerContacts :: !(Maybe [ContactInformation])
6609− , _mdOfferId :: !(Maybe Text)
4637+ , _mdCreativePreApprovalPolicy :: !(Maybe Text)
4638+ , _mdProductRevisionNumber :: !(Maybe (Textual Int64))
6610− , _mdOrderId :: !(Maybe Text)
4639+ , _mdProductId :: !(Maybe Text)
6611 } deriving (Eq,Show,Data,Typeable,Generic)
4640 } deriving (Eq,Show,Data,Typeable,Generic)
6613-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.
4642-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.
@@ -6624,8 +4653,6 @@ data MarketplaceDeal = MarketplaceDeal
6625-- * 'mdTerms'
4654-- * 'mdTerms'
6627−-- * 'mdOfferRevisionNumber'
6629-- * 'mdLastUpdateTimeMs'
4656-- * 'mdLastUpdateTimeMs'
6631-- * 'mdKind'
4658-- * 'mdKind'
@@ -6636,6 +4663,8 @@ data MarketplaceDeal = MarketplaceDeal
6637-- * 'mdSharedTargetings'
4664-- * 'mdSharedTargetings'
6639-- * 'mdDealId'
4668-- * 'mdDealId'
6641-- * 'mdInventoryDescription'
4670-- * 'mdInventoryDescription'
@@ -6648,9 +4677,11 @@ data MarketplaceDeal = MarketplaceDeal
6649-- * 'mdSellerContacts'
4678-- * 'mdSellerContacts'
6651−-- * 'mdOfferId'
4680+-- * 'mdCreativePreApprovalPolicy'
4682+-- * 'mdProductRevisionNumber'
6653−-- * 'mdOrderId'
4684+-- * 'mdProductId'
6654marketplaceDeal
4685marketplaceDeal
6655 :: MarketplaceDeal
4686 :: MarketplaceDeal
6656marketplaceDeal =
4687marketplaceDeal =
@@ -6660,20 +4691,21 @@ marketplaceDeal =
6660 , _mdWebPropertyCode = Nothing
4691 , _mdWebPropertyCode = Nothing
6661 , _mdCreationTimeMs = Nothing
4692 , _mdCreationTimeMs = Nothing
6662 , _mdTerms = Nothing
4693 , _mdTerms = Nothing
6663− , _mdOfferRevisionNumber = Nothing
6664 , _mdLastUpdateTimeMs = Nothing
4694 , _mdLastUpdateTimeMs = Nothing
6665 , _mdKind = "adexchangebuyer#marketplaceDeal"
4695 , _mdKind = "adexchangebuyer#marketplaceDeal"
6666 , _mdDeliveryControl = Nothing
4696 , _mdDeliveryControl = Nothing
6667 , _mdFlightStartTimeMs = Nothing
4697 , _mdFlightStartTimeMs = Nothing
6668 , _mdSharedTargetings = Nothing
4698 , _mdSharedTargetings = Nothing
4699+ , _mdProposalId = Nothing
6669 , _mdDealId = Nothing
4700 , _mdDealId = Nothing
6670 , _mdInventoryDescription = Nothing
4701 , _mdInventoryDescription = Nothing
6671 , _mdSyndicationProduct = Nothing
4702 , _mdSyndicationProduct = Nothing
6672 , _mdFlightEndTimeMs = Nothing
4703 , _mdFlightEndTimeMs = Nothing
6673 , _mdName = Nothing
4704 , _mdName = Nothing
6674 , _mdSellerContacts = Nothing
4705 , _mdSellerContacts = Nothing
6675− , _mdOfferId = Nothing
4706+ , _mdCreativePreApprovalPolicy = Nothing
6676− , _mdOrderId = Nothing
4707+ , _mdProductRevisionNumber = Nothing
4708+ , _mdProductId = Nothing
6679-- | The external deal id assigned to this deal once the deal is finalized.
4711-- | The external deal id assigned to this deal once the deal is finalized.
@@ -6705,14 +4737,6 @@ mdCreationTimeMs
6705mdTerms :: Lens' MarketplaceDeal (Maybe DealTerms)
4737mdTerms :: Lens' MarketplaceDeal (Maybe DealTerms)
6706mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a})
4738mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a})
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})
6716-- | The time (ms since epoch) when the deal was last updated. (readonly)
4740-- | The time (ms since epoch) when the deal was last updated. (readonly)
6717mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
4741mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
6718mdLastUpdateTimeMs
4742mdLastUpdateTimeMs
@@ -6750,6 +4774,10 @@ mdSharedTargetings
6750 . _Default
4774 . _Default
6751 . _Coerce
4775 . _Coerce
4777+mdProposalId :: Lens' MarketplaceDeal (Maybe Text)
4779+ = lens _mdProposalId (\ s a -> s{_mdProposalId = a})
6753-- | A unique deal=id for the deal (readonly).
4781-- | A unique deal=id for the deal (readonly).
6754mdDealId :: Lens' MarketplaceDeal (Maybe Text)
4782mdDealId :: Lens' MarketplaceDeal (Maybe Text)
6755mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
4783mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
@@ -6787,15 +4815,25 @@ mdSellerContacts
6787 . _Default
4815 . _Default
6788 . _Coerce
4816 . _Coerce
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})
4824+-- | The revision number of the product that the deal was created from
6790−-- | The offer-id from which this deal was created. (readonly, except on
4825+-- (readonly, except on create)
6792−mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
4826+mdProductRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)
6793−mdOfferId
4827+mdProductRevisionNumber
6794− = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
4828+ = lens _mdProductRevisionNumber
4829+ (\ s a -> s{_mdProductRevisionNumber = a})
4832+-- | The product-id from which this deal was created. (readonly, except on
6796−mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
4834+mdProductId :: Lens' MarketplaceDeal (Maybe Text)
6797−mdOrderId
4835+mdProductId
6798− = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
4836+ = lens _mdProductId (\ s a -> s{_mdProductId = a})
6800instance FromJSON MarketplaceDeal where
4838instance FromJSON MarketplaceDeal where
6801 parseJSON
4839 parseJSON
@@ -6807,21 +4845,22 @@ instance FromJSON MarketplaceDeal where
6807 <*> (o .:? "webPropertyCode")
4845 <*> (o .:? "webPropertyCode")
6808 <*> (o .:? "creationTimeMs")
4846 <*> (o .:? "creationTimeMs")
6809 <*> (o .:? "terms")
4847 <*> (o .:? "terms")
6810− <*> (o .:? "offerRevisionNumber")
6811 <*> (o .:? "lastUpdateTimeMs")
4848 <*> (o .:? "lastUpdateTimeMs")
6813 (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal")
4850 (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal")
6814 <*> (o .:? "deliveryControl")
4851 <*> (o .:? "deliveryControl")
6815 <*> (o .:? "flightStartTimeMs")
4852 <*> (o .:? "flightStartTimeMs")
6816 <*> (o .:? "sharedTargetings" .!= mempty)
4853 <*> (o .:? "sharedTargetings" .!= mempty)
4854+ <*> (o .:? "proposalId")
6817 <*> (o .:? "dealId")
4855 <*> (o .:? "dealId")
6818 <*> (o .:? "inventoryDescription")
4856 <*> (o .:? "inventoryDescription")
6819 <*> (o .:? "syndicationProduct")
4857 <*> (o .:? "syndicationProduct")
6820 <*> (o .:? "flightEndTimeMs")
4858 <*> (o .:? "flightEndTimeMs")
6821 <*> (o .:? "name")
4859 <*> (o .:? "name")
6822 <*> (o .:? "sellerContacts" .!= mempty)
4860 <*> (o .:? "sellerContacts" .!= mempty)
6823− <*> (o .:? "offerId")
4861+ <*> (o .:? "creativePreApprovalPolicy")
6824− <*> (o .:? "orderId"))
4862+ <*> (o .:? "productRevisionNumber")
4863+ <*> (o .:? "productId"))
6826instance ToJSON MarketplaceDeal where
4865instance ToJSON MarketplaceDeal where
6827 toJSON MarketplaceDeal{..}
4866 toJSON MarketplaceDeal{..}
@@ -6832,13 +4871,12 @@ instance ToJSON MarketplaceDeal where
6832 ("webPropertyCode" .=) <$> _mdWebPropertyCode,
4871 ("webPropertyCode" .=) <$> _mdWebPropertyCode,
6833 ("creationTimeMs" .=) <$> _mdCreationTimeMs,
4872 ("creationTimeMs" .=) <$> _mdCreationTimeMs,
6834 ("terms" .=) <$> _mdTerms,
4873 ("terms" .=) <$> _mdTerms,
6835− ("offerRevisionNumber" .=) <$>
6836− _mdOfferRevisionNumber,
6837 ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,
4874 ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,
6838 Just ("kind" .= _mdKind),
4875 Just ("kind" .= _mdKind),
6839 ("deliveryControl" .=) <$> _mdDeliveryControl,
4876 ("deliveryControl" .=) <$> _mdDeliveryControl,
6840 ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
4877 ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
6841 ("sharedTargetings" .=) <$> _mdSharedTargetings,
4878 ("sharedTargetings" .=) <$> _mdSharedTargetings,
4879+ ("proposalId" .=) <$> _mdProposalId,
6842 ("dealId" .=) <$> _mdDealId,
4880 ("dealId" .=) <$> _mdDealId,
6843 ("inventoryDescription" .=) <$>
4881 ("inventoryDescription" .=) <$>
6844 _mdInventoryDescription,
4882 _mdInventoryDescription,
@@ -6846,31 +4884,34 @@ instance ToJSON MarketplaceDeal where
6846 ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,
4884 ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,
6847 ("name" .=) <$> _mdName,
4885 ("name" .=) <$> _mdName,
6848 ("sellerContacts" .=) <$> _mdSellerContacts,
4886 ("sellerContacts" .=) <$> _mdSellerContacts,
6849− ("offerId" .=) <$> _mdOfferId,
4887+ ("creativePreApprovalPolicy" .=) <$>
6850− ("orderId" .=) <$> _mdOrderId])
4888+ _mdCreativePreApprovalPolicy,
4889+ ("productRevisionNumber" .=) <$>
4890+ _mdProductRevisionNumber,
4891+ ("productId" .=) <$> _mdProductId])
6853-- /See:/ 'getOffersResponse' smart constructor.
4894-- /See:/ 'getOffersResponse' smart constructor.
6854newtype GetOffersResponse = GetOffersResponse
4895newtype GetOffersResponse = GetOffersResponse
6855− { _gorOffers :: Maybe [MarketplaceOffer]
4896+ { _gorProducts :: Maybe [Product]
6856 } deriving (Eq,Show,Data,Typeable,Generic)
4897 } deriving (Eq,Show,Data,Typeable,Generic)
6858-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
4899-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.
6860-- Use one of the following lenses to modify other fields as desired:
4901-- Use one of the following lenses to modify other fields as desired:
6862−-- * 'gorOffers'
4903+-- * 'gorProducts'
6863getOffersResponse
4904getOffersResponse
6864 :: GetOffersResponse
4905 :: GetOffersResponse
6865getOffersResponse =
4906getOffersResponse =
6866 GetOffersResponse
4907 GetOffersResponse
6867− { _gorOffers = Nothing
4908+ { _gorProducts = Nothing
6870−-- | The returned list of offers.
4911+-- | The returned list of products.
6871−gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]
4912+gorProducts :: Lens' GetOffersResponse [Product]
6872−gorOffers
4913+gorProducts
6873− = lens _gorOffers (\ s a -> s{_gorOffers = a}) .
4914+ = lens _gorProducts (\ s a -> s{_gorProducts = a}) .
6874 _Default
4915 _Default
6875 . _Coerce
4916 . _Coerce
@@ -6878,100 +4919,12 @@ instance FromJSON GetOffersResponse where
6878 parseJSON
4919 parseJSON
6879 = withObject "GetOffersResponse"
4920 = withObject "GetOffersResponse"
6881− GetOffersResponse <$> (o .:? "offers" .!= mempty))
4922+ GetOffersResponse <$> (o .:? "products" .!= mempty))
6883instance ToJSON GetOffersResponse where
4924instance ToJSON GetOffersResponse where
6884 toJSON GetOffersResponse{..}
4925 toJSON GetOffersResponse{..}
6885− = object (catMaybes [("offers" .=) <$> _gorOffers])
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)
6898−-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request.
6900−-- Use one of the following lenses to modify other fields as desired:
6906−-- * 'sdtoImpressions'
6917− { _sdtoBids = Nothing
6918− , _sdtoSpend = Nothing
6919− , _sdtoImpressions = Nothing
6920− , _sdtoGoodBids = Nothing
6921− , _sdtoRevenue = Nothing
6922− , _sdtoRequests = Nothing
6925−sdtoBids :: Lens' StatsDTO (Maybe Int64)
6927− = lens _sdtoBids (\ s a -> s{_sdtoBids = a}) .
6930−sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6932− = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6934−sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6936− = lens _sdtoImpressions
6937− (\ s a -> s{_sdtoImpressions = a})
6940−sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6942− = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6945−sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6947− = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6949−sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6951− = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6954−instance FromJSON StatsDTO where
6956− = withObject "StatsDTO"
6959− (o .:? "bids") <*> (o .:? "spend") <*>
6960− (o .:? "impressions")
6961− <*> (o .:? "goodBids")
6962− <*> (o .:? "revenue")
6963− <*> (o .:? "requests"))
6965−instance ToJSON StatsDTO where
6966− toJSON StatsDTO{..}
6967 = object
4926 = object
6968− (catMaybes
4927+ (catMaybes [("products" .=) <$> _gorProducts])
6969− [("bids" .=) <$> _sdtoBids,
6970− ("spend" .=) <$> _sdtoSpend,
6971− ("impressions" .=) <$> _sdtoImpressions,
6972− ("goodBids" .=) <$> _sdtoGoodBids,
6973− ("revenue" .=) <$> _sdtoRevenue,
6974− ("requests" .=) <$> _sdtoRequests])
6977-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
4930-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.
@@ -7082,142 +5035,14 @@ instance ToJSON CreativeFilteringReasonsReasonsItem
7082 [("filteringStatus" .=) <$> _cfrriFilteringStatus,
5035 [("filteringStatus" .=) <$> _cfrriFilteringStatus,
7083 ("filteringCount" .=) <$> _cfrriFilteringCount])
5036 ("filteringCount" .=) <$> _cfrriFilteringCount])
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)
7099−-- | Creates a value of 'NegotiationRoundDTO' with the minimum fields required to make a request.
7101−-- Use one of the following lenses to modify other fields as desired:
7107−-- * 'nrdtoOriginatorRole'
7111−-- * 'nrdtoDBmPartnerId'
7115−-- * 'nrdtoNegotiationId'
7117−-- * 'nrdtoEditHistory'
7119−-- * 'nrdtoRoundNumber'
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
7135−-- | The detailed terms proposed in this negotiation round.
7136−nrdtoTerms :: Lens' NegotiationRoundDTO (Maybe TermsDTO)
7138− = lens _nrdtoTerms (\ s a -> s{_nrdtoTerms = a})
7140−nrdtoKind :: Lens' NegotiationRoundDTO Text
7142− = lens _nrdtoKind (\ s a -> s{_nrdtoKind = a})
7144−-- | The role, either buyer or seller, initiating this negotiation round.
7145−nrdtoOriginatorRole :: Lens' NegotiationRoundDTO (Maybe Text)
7147− = lens _nrdtoOriginatorRole
7148− (\ s a -> s{_nrdtoOriginatorRole = a})
7150−-- | The action performed by this negotiation round.
7151−nrdtoAction :: Lens' NegotiationRoundDTO (Maybe Text)
7153− = lens _nrdtoAction (\ s a -> s{_nrdtoAction = a})
7155−-- | Stores DBM partner ID for use by DBM
7156−nrdtoDBmPartnerId :: Lens' NegotiationRoundDTO (Maybe Int64)
7158− = lens _nrdtoDBmPartnerId
7159− (\ s a -> s{_nrdtoDBmPartnerId = a})
7162−-- | Notes regarding this negotiation round.
7163−nrdtoNotes :: Lens' NegotiationRoundDTO (Maybe Text)
7165− = lens _nrdtoNotes (\ s a -> s{_nrdtoNotes = a})
7167−-- | The ID of the negotiation to which this negotiation round applies.
7168−nrdtoNegotiationId :: Lens' NegotiationRoundDTO (Maybe Int64)
7170− = lens _nrdtoNegotiationId
7171− (\ s a -> s{_nrdtoNegotiationId = a})
7174−-- | The edit history of this negotiation round.
7175−nrdtoEditHistory :: Lens' NegotiationRoundDTO (Maybe EditHistoryDTO)
7177− = lens _nrdtoEditHistory
7178− (\ s a -> s{_nrdtoEditHistory = a})
7180−-- | The number of this negotiation round, in sequence.
7181−nrdtoRoundNumber :: Lens' NegotiationRoundDTO (Maybe Int64)
7183− = lens _nrdtoRoundNumber
7184− (\ s a -> s{_nrdtoRoundNumber = a})
7187−instance FromJSON NegotiationRoundDTO where
7189− = withObject "NegotiationRoundDTO"
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"))
7202−instance ToJSON NegotiationRoundDTO where
7203− toJSON NegotiationRoundDTO{..}
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])
7217-- /See:/ 'dealTerms' smart constructor.
5039-- /See:/ 'dealTerms' smart constructor.
7218data DealTerms = DealTerms
5040data DealTerms = DealTerms
5041+ { _dtEstimatedGrossSpend :: !(Maybe Price)
7219− { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
5042+ , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
7220 , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
5043 , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
5044+ , _dtBrandingType :: !(Maybe Text)
5045+ , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
7221 , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
5046 , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
7222 , _dtDescription :: !(Maybe Text)
5047 , _dtDescription :: !(Maybe Text)
7223 } deriving (Eq,Show,Data,Typeable,Generic)
5048 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -7226,10 +5051,16 @@ data DealTerms = DealTerms
7227-- Use one of the following lenses to modify other fields as desired:
5052-- Use one of the following lenses to modify other fields as desired:
5054+-- * 'dtEstimatedGrossSpend'
7229-- * 'dtNonGuaranteedFixedPriceTerms'
5056-- * 'dtNonGuaranteedFixedPriceTerms'
7231-- * 'dtNonGuaranteedAuctionTerms'
5058-- * 'dtNonGuaranteedAuctionTerms'
5060+-- * 'dtBrandingType'
5062+-- * 'dtEstimatedImpressionsPerDay'
7233-- * 'dtGuaranteedFixedPriceTerms'
5064-- * 'dtGuaranteedFixedPriceTerms'
7235-- * 'dtDescription'
5066-- * 'dtDescription'
@@ -7237,12 +5068,22 @@ dealTerms
7237 :: DealTerms
5068 :: DealTerms
7238dealTerms =
5069dealTerms =
7239 DealTerms
5070 DealTerms
5071+ { _dtEstimatedGrossSpend = Nothing
7240− { _dtNonGuaranteedFixedPriceTerms = Nothing
5072+ , _dtNonGuaranteedFixedPriceTerms = Nothing
7241 , _dtNonGuaranteedAuctionTerms = Nothing
5073 , _dtNonGuaranteedAuctionTerms = Nothing
5074+ , _dtBrandingType = Nothing
5075+ , _dtEstimatedImpressionsPerDay = Nothing
7242 , _dtGuaranteedFixedPriceTerms = Nothing
5076 , _dtGuaranteedFixedPriceTerms = Nothing
7243 , _dtDescription = Nothing
5077 , _dtDescription = Nothing
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})
7246-- | The terms for non-guaranteed fixed price deals.
5087-- | The terms for non-guaranteed fixed price deals.
7247dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)
5088dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)
7248dtNonGuaranteedFixedPriceTerms
5089dtNonGuaranteedFixedPriceTerms
@@ -7255,6 +5096,20 @@ dtNonGuaranteedAuctionTerms
7255 = lens _dtNonGuaranteedAuctionTerms
5096 = lens _dtNonGuaranteedAuctionTerms
7256 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
5097 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
5099+-- | Visibilty of the URL in bid requests.
5100+dtBrandingType :: Lens' DealTerms (Maybe Text)
5102+ = lens _dtBrandingType
5103+ (\ s a -> s{_dtBrandingType = a})
5105+-- | Non-binding estimate of the impressions served per day Can be set by
5107+dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64)
5108+dtEstimatedImpressionsPerDay
5109+ = lens _dtEstimatedImpressionsPerDay
5110+ (\ s a -> s{_dtEstimatedImpressionsPerDay = a})
7258-- | The terms for guaranteed fixed price deals.
5113-- | The terms for guaranteed fixed price deals.
7259dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)
5114dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)
7260dtGuaranteedFixedPriceTerms
5115dtGuaranteedFixedPriceTerms
@@ -7272,8 +5127,11 @@ instance FromJSON DealTerms where
7272 = withObject "DealTerms"
5127 = withObject "DealTerms"
7274 DealTerms <$>
5129 DealTerms <$>
5130+ (o .:? "estimatedGrossSpend") <*>
7275− (o .:? "nonGuaranteedFixedPriceTerms") <*>
5131+ (o .:? "nonGuaranteedFixedPriceTerms")
7276− (o .:? "nonGuaranteedAuctionTerms")
5132+ <*> (o .:? "nonGuaranteedAuctionTerms")
5133+ <*> (o .:? "brandingType")
5134+ <*> (o .:? "estimatedImpressionsPerDay")
7277 <*> (o .:? "guaranteedFixedPriceTerms")
5135 <*> (o .:? "guaranteedFixedPriceTerms")
7278 <*> (o .:? "description"))
5136 <*> (o .:? "description"))
@@ -7281,111 +5139,19 @@ instance ToJSON DealTerms where
7281 toJSON DealTerms{..}
5139 toJSON DealTerms{..}
7282 = object
5140 = object
7283 (catMaybes
5141 (catMaybes
5142+ [("estimatedGrossSpend" .=) <$>
5143+ _dtEstimatedGrossSpend,
7284− [("nonGuaranteedFixedPriceTerms" .=) <$>
5144+ ("nonGuaranteedFixedPriceTerms" .=) <$>
7285 _dtNonGuaranteedFixedPriceTerms,
5145 _dtNonGuaranteedFixedPriceTerms,
7286 ("nonGuaranteedAuctionTerms" .=) <$>
5146 ("nonGuaranteedAuctionTerms" .=) <$>
7287 _dtNonGuaranteedAuctionTerms,
5147 _dtNonGuaranteedAuctionTerms,
5148+ ("brandingType" .=) <$> _dtBrandingType,
5149+ ("estimatedImpressionsPerDay" .=) <$>
5150+ _dtEstimatedImpressionsPerDay,
7288 ("guaranteedFixedPriceTerms" .=) <$>
5151 ("guaranteedFixedPriceTerms" .=) <$>
7289 _dtGuaranteedFixedPriceTerms,
5152 _dtGuaranteedFixedPriceTerms,
7290 ("description" .=) <$> _dtDescription])
5153 ("description" .=) <$> _dtDescription])
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)
7304−-- | Creates a value of 'DateTime' with the minimum fields required to make a request.
7306−-- Use one of the following lenses to modify other fields as desired:
7325− { _dtSecond = Nothing
7327− , _dtYear = Nothing
7328− , _dtHour = Nothing
7329− , _dtMonth = Nothing
7330− , _dtMinute = Nothing
7331− , _dtTimeZoneId = Nothing
7334−dtSecond :: Lens' DateTime (Maybe Int32)
7336− = lens _dtSecond (\ s a -> s{_dtSecond = a}) .
7339−dtDay :: Lens' DateTime (Maybe Int32)
7341− = lens _dtDay (\ s a -> s{_dtDay = a}) .
7344−dtYear :: Lens' DateTime (Maybe Int32)
7346− = lens _dtYear (\ s a -> s{_dtYear = a}) .
7349−dtHour :: Lens' DateTime (Maybe Int32)
7351− = lens _dtHour (\ s a -> s{_dtHour = a}) .
7354−dtMonth :: Lens' DateTime (Maybe Int32)
7356− = lens _dtMonth (\ s a -> s{_dtMonth = a}) .
7359−dtMinute :: Lens' DateTime (Maybe Int32)
7361− = lens _dtMinute (\ s a -> s{_dtMinute = a}) .
7364−dtTimeZoneId :: Lens' DateTime (Maybe Text)
7366− = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a})
7368−instance FromJSON DateTime where
7370− = withObject "DateTime"
7373− (o .:? "second") <*> (o .:? "day") <*> (o .:? "year")
7375− <*> (o .:? "month")
7376− <*> (o .:? "minute")
7377− <*> (o .:? "timeZoneId"))
7379−instance ToJSON DateTime where
7380− toJSON DateTime{..}
7383− [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay,
7384− ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour,
7385− ("month" .=) <$> _dtMonth,
7386− ("minute" .=) <$> _dtMinute,
7387− ("timeZoneId" .=) <$> _dtTimeZoneId])
7390-- /See:/ 'marketplaceLabel' smart constructor.
5156-- /See:/ 'marketplaceLabel' smart constructor.
7391data MarketplaceLabel = MarketplaceLabel
5157data MarketplaceLabel = MarketplaceLabel
@@ -7458,102 +5224,28 @@ instance ToJSON MarketplaceLabel where
7458 ("createTimeMs" .=) <$> _mlCreateTimeMs,
5224 ("createTimeMs" .=) <$> _mlCreateTimeMs,
7459 ("label" .=) <$> _mlLabel])
5225 ("label" .=) <$> _mlLabel])
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)
7470−-- | Creates a value of 'EditHistoryDTO' with the minimum fields required to make a request.
7472−-- Use one of the following lenses to modify other fields as desired:
7474−-- * 'ehdtoLastUpdatedByLoginName'
7476−-- * 'ehdtoCreatedByLoginName'
7478−-- * 'ehdtoLastUpdateTimeStamp'
7480−-- * 'ehdtoCreatedTimeStamp'
7485− { _ehdtoLastUpdatedByLoginName = Nothing
7486− , _ehdtoCreatedByLoginName = Nothing
7487− , _ehdtoLastUpdateTimeStamp = Nothing
7488− , _ehdtoCreatedTimeStamp = Nothing
7491−ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7492−ehdtoLastUpdatedByLoginName
7493− = lens _ehdtoLastUpdatedByLoginName
7494− (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
7496−ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7497−ehdtoCreatedByLoginName
7498− = lens _ehdtoCreatedByLoginName
7499− (\ s a -> s{_ehdtoCreatedByLoginName = a})
7501−ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7502−ehdtoLastUpdateTimeStamp
7503− = lens _ehdtoLastUpdateTimeStamp
7504− (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
7507−ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7508−ehdtoCreatedTimeStamp
7509− = lens _ehdtoCreatedTimeStamp
7510− (\ s a -> s{_ehdtoCreatedTimeStamp = a})
7513−instance FromJSON EditHistoryDTO where
7515− = withObject "EditHistoryDTO"
7518− (o .:? "lastUpdatedByLoginName") <*>
7519− (o .:? "createdByLoginName")
7520− <*> (o .:? "lastUpdateTimeStamp")
7521− <*> (o .:? "createdTimeStamp"))
7523−instance ToJSON EditHistoryDTO where
7524− toJSON EditHistoryDTO{..}
7527− [("lastUpdatedByLoginName" .=) <$>
7528− _ehdtoLastUpdatedByLoginName,
7529− ("createdByLoginName" .=) <$>
7530− _ehdtoCreatedByLoginName,
7531− ("lastUpdateTimeStamp" .=) <$>
7532− _ehdtoLastUpdateTimeStamp,
7533− ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])
7536-- /See:/ 'buyer' smart constructor.
5228-- /See:/ 'buyer' smart constructor.
7537newtype Buyer = Buyer
5229newtype Buyer = Buyer
7538− { _bbAccountId :: Maybe Text
5230+ { _buyAccountId :: Maybe Text
7539 } deriving (Eq,Show,Data,Typeable,Generic)
5231 } deriving (Eq,Show,Data,Typeable,Generic)
7541-- | Creates a value of 'Buyer' with the minimum fields required to make a request.
5233-- | Creates a value of 'Buyer' with the minimum fields required to make a request.
7543-- Use one of the following lenses to modify other fields as desired:
5235-- Use one of the following lenses to modify other fields as desired:
7545−-- * 'bbAccountId'
5237+-- * 'buyAccountId'
7547 :: Buyer
5239 :: Buyer
7550− { _bbAccountId = Nothing
5242+ { _buyAccountId = Nothing
7553-- | Adx account id of the buyer.
5245-- | Adx account id of the buyer.
7554−bbAccountId :: Lens' Buyer (Maybe Text)
5246+buyAccountId :: Lens' Buyer (Maybe Text)
7555−bbAccountId
5247+buyAccountId
7556− = lens _bbAccountId (\ s a -> s{_bbAccountId = a})
5248+ = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
7558instance FromJSON Buyer where
5250instance FromJSON Buyer where
7559 parseJSON
5251 parseJSON
@@ -7563,288 +5255,14 @@ instance FromJSON Buyer where
7563instance ToJSON Buyer where
5255instance ToJSON Buyer where
7564 toJSON Buyer{..}
5256 toJSON Buyer{..}
7565 = object
5257 = object
7566− (catMaybes [("accountId" .=) <$> _bbAccountId])
5258+ (catMaybes [("accountId" .=) <$> _buyAccountId])
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.
7576−-- /See:/ 'marketplaceOrder' smart constructor.
7577−data MarketplaceOrder = MarketplaceOrder
7578− { _mBuyerPrivateData :: !(Maybe PrivateData)
7579− , _mIsSetupComplete :: !(Maybe Bool)
7580− , _mBuyerContacts :: !(Maybe [ContactInformation])
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)
7600−-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
7602−-- Use one of the following lenses to modify other fields as desired:
7604−-- * 'mBuyerPrivateData'
7606−-- * 'mIsSetupComplete'
7608−-- * 'mBuyerContacts'
7612−-- * 'mOriginatorRole'
7614−-- * 'mRevisionNumber'
7618−-- * 'mIsRenegotiating'
7620−-- * 'mHasSellerSignedOff'
7628−-- * 'mSellerContacts'
7630−-- * 'mLastUpdaterRole'
7634−-- * 'mRevisionTimeMs'
7638−-- * 'mLastUpdaterOrCommentorRole'
7640−-- * 'mHasBuyerSignedOff'
7644− :: 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
7659− , _mSellerContacts = Nothing
7660− , _mLastUpdaterRole = Nothing
7661− , _mLabels = Nothing
7662− , _mRevisionTimeMs = Nothing
7663− , _mOrderId = Nothing
7664− , _mLastUpdaterOrCommentorRole = Nothing
7665− , _mHasBuyerSignedOff = Nothing
7666− , _mBuyer = Nothing
7669−-- | Private data for buyer. (hidden from seller).
7670−mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)
7672− = lens _mBuyerPrivateData
7673− (\ s a -> s{_mBuyerPrivateData = a})
7675−-- | True, if the buyside inventory setup is complete for this order.
7677−mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
7679− = lens _mIsSetupComplete
7680− (\ s a -> s{_mIsSetupComplete = a})
7682−-- | Optional contact information fort the buyer. (seller-readonly)
7683−mBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]
7685− = lens _mBuyerContacts
7686− (\ s a -> s{_mBuyerContacts = a})
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})
7695−-- | Indicates whether the buyer\/seller created the offer.(readonly)
7696−mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
7698− = lens _mOriginatorRole
7699− (\ s a -> s{_mOriginatorRole = a})
7701−-- | The revision number for the order (readonly).
7702−mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
7704− = lens _mRevisionNumber
7705− (\ s a -> s{_mRevisionNumber = a})
7708−-- | Reference to the buyer that will get billed for this order. (readonly)
7709−mBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)
7711− = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a})
7713−-- | True if the order is being renegotiated (readonly).
7714−mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
7716− = lens _mIsRenegotiating
7717− (\ s a -> s{_mIsRenegotiating = a})
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)
7724− = lens _mHasSellerSignedOff
7725− (\ s a -> s{_mHasSellerSignedOff = a})
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})
7731−-- | The current state of the order. (readonly)
7732−mOrderState :: Lens' MarketplaceOrder (Maybe Text)
7734− = lens _mOrderState (\ s a -> s{_mOrderState = a})
7736−-- | The name for the order (updatable)
7737−mName :: Lens' MarketplaceOrder (Maybe Text)
7738−mName = lens _mName (\ s a -> s{_mName = a})
7740−-- | Optional contact information for the seller (buyer-readonly).
7741−mSellerContacts :: Lens' MarketplaceOrder [ContactInformation]
7743− = lens _mSellerContacts
7744− (\ s a -> s{_mSellerContacts = a})
7748−mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
7750− = lens _mLastUpdaterRole
7751− (\ s a -> s{_mLastUpdaterRole = a})
7753−-- | List of labels associated with the order. (readonly)
7754−mLabels :: Lens' MarketplaceOrder [MarketplaceLabel]
7756− = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default
7759−-- | The time (ms since epoch) when the order was last revised (readonly).
7760−mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
7762− = lens _mRevisionTimeMs
7763− (\ s a -> s{_mRevisionTimeMs = a})
7766−-- | The unique id of the order. (readonly).
7767−mOrderId :: Lens' MarketplaceOrder (Maybe Text)
7768−mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
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})
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)
7782− = lens _mHasBuyerSignedOff
7783− (\ s a -> s{_mHasBuyerSignedOff = a})
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})
7789−instance FromJSON MarketplaceOrder where
7791− = withObject "MarketplaceOrder"
7793− MarketplaceOrder <$>
7794− (o .:? "buyerPrivateData") <*>
7795− (o .:? "isSetupComplete")
7796− <*> (o .:? "buyerContacts" .!= mempty)
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")
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"))
7816−instance ToJSON MarketplaceOrder where
7817− toJSON MarketplaceOrder{..}
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])
7843-- /See:/ 'addOrderDealsRequest' smart constructor.
5261-- /See:/ 'addOrderDealsRequest' smart constructor.
7844data AddOrderDealsRequest = AddOrderDealsRequest
5262data AddOrderDealsRequest = AddOrderDealsRequest
7845− { _aUpdateAction :: !(Maybe Text)
5263+ { _aUpdateAction :: !(Maybe Text)
7846− , _aDeals :: !(Maybe [MarketplaceDeal])
5264+ , _aDeals :: !(Maybe [MarketplaceDeal])
7847− , _aOrderRevisionNumber :: !(Maybe (Textual Int64))
5265+ , _aProposalRevisionNumber :: !(Maybe (Textual Int64))
7848 } deriving (Eq,Show,Data,Typeable,Generic)
5266 } deriving (Eq,Show,Data,Typeable,Generic)
7850-- | Creates a value of 'AddOrderDealsRequest' with the minimum fields required to make a request.
5268-- | Creates a value of 'AddOrderDealsRequest' with the minimum fields required to make a request.
@@ -7855,17 +5273,17 @@ data AddOrderDealsRequest = AddOrderDealsRequest
7856-- * 'aDeals'
5274-- * 'aDeals'
7858−-- * 'aOrderRevisionNumber'
5276+-- * 'aProposalRevisionNumber'
7859addOrderDealsRequest
5277addOrderDealsRequest
7860 :: AddOrderDealsRequest
5278 :: AddOrderDealsRequest
7861addOrderDealsRequest =
5279addOrderDealsRequest =
7862 AddOrderDealsRequest
5280 AddOrderDealsRequest
7863 { _aUpdateAction = Nothing
5281 { _aUpdateAction = Nothing
7864 , _aDeals = Nothing
5282 , _aDeals = Nothing
7865− , _aOrderRevisionNumber = Nothing
5283+ , _aProposalRevisionNumber = Nothing
7868−-- | Indicates an optional action to take on the order
5286+-- | Indicates an optional action to take on the proposal
7869aUpdateAction :: Lens' AddOrderDealsRequest (Maybe Text)
5287aUpdateAction :: Lens' AddOrderDealsRequest (Maybe Text)
7870aUpdateAction
5288aUpdateAction
7871 = lens _aUpdateAction
5289 = lens _aUpdateAction
@@ -7877,11 +5295,11 @@ aDeals
7877 = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default .
5295 = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default .
7880−-- | The last known order revision number.
5298+-- | The last known proposal revision number.
7881−aOrderRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64)
5299+aProposalRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64)
7882−aOrderRevisionNumber
5300+aProposalRevisionNumber
7883− = lens _aOrderRevisionNumber
5301+ = lens _aProposalRevisionNumber
7884− (\ s a -> s{_aOrderRevisionNumber = a})
5302+ (\ s a -> s{_aProposalRevisionNumber = a})
7885 . mapping _Coerce
5303 . mapping _Coerce
7887instance FromJSON AddOrderDealsRequest where
5305instance FromJSON AddOrderDealsRequest where
@@ -7890,7 +5308,7 @@ instance FromJSON AddOrderDealsRequest where
7891 AddOrderDealsRequest <$>
5309 AddOrderDealsRequest <$>
7892 (o .:? "updateAction") <*> (o .:? "deals" .!= mempty)
5310 (o .:? "updateAction") <*> (o .:? "deals" .!= mempty)
7893− <*> (o .:? "orderRevisionNumber"))
5311+ <*> (o .:? "proposalRevisionNumber"))
7895instance ToJSON AddOrderDealsRequest where
5313instance ToJSON AddOrderDealsRequest where
7896 toJSON AddOrderDealsRequest{..}
5314 toJSON AddOrderDealsRequest{..}
@@ -7898,8 +5316,8 @@ instance ToJSON AddOrderDealsRequest where
7898 (catMaybes
5316 (catMaybes
7899 [("updateAction" .=) <$> _aUpdateAction,
5317 [("updateAction" .=) <$> _aUpdateAction,
7900 ("deals" .=) <$> _aDeals,
5318 ("deals" .=) <$> _aDeals,
7901− ("orderRevisionNumber" .=) <$>
5319+ ("proposalRevisionNumber" .=) <$>
7902− _aOrderRevisionNumber])
5320+ _aProposalRevisionNumber])
7905-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
5323-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor.
@@ -7927,7 +5345,7 @@ dealTermsGuaranteedFixedPriceTerms =
7927 , _dtgfptFixedPrices = Nothing
5345 , _dtgfptFixedPrices = Nothing
7930−-- | Count of guaranteed looks. Required for deal, optional for offer.
5348+-- | Count of guaranteed looks. Required for deal, optional for product.
7931dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
5349dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
7932dtgfptGuaranteedLooks
5350dtgfptGuaranteedLooks
7933 = lens _dtgfptGuaranteedLooks
5351 = lens _dtgfptGuaranteedLooks