@@ -139,7 +139,8 @@ instance ToJSON MarketplaceNote where
139139 ("noteId" .=) <$> _mnNoteId,
140140 ("creatorRole" .=) <$> _mnCreatorRole])
141141
142−-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
142+-- | If nativeAd is set, HTMLSnippet and the videoURL outside of nativeAd
143+-- should not be set. (The videoURL inside nativeAd can be set.)
143144--
144145-- /See:/ 'creativeNATiveAd' smart constructor.
145146data CreativeNATiveAd = CreativeNATiveAd'
@@ -151,6 +152,7 @@ data CreativeNATiveAd = CreativeNATiveAd'
151152 , _cnataImpressionTrackingURL :: !(Maybe [Text])
152153 , _cnataCallToAction :: !(Maybe Text)
153154 , _cnataStore :: !(Maybe Text)
155+ , _cnataVideoURL :: !(Maybe Text)
154156 , _cnataPrice :: !(Maybe Text)
155157 , _cnataAdvertiser :: !(Maybe Text)
156158 , _cnataStarRating :: !(Maybe (Textual Double))
@@ -177,6 +179,8 @@ data CreativeNATiveAd = CreativeNATiveAd'
177179--
178180-- * 'cnataStore'
179181--
182+-- * 'cnataVideoURL'
183+--
180184-- * 'cnataPrice'
181185--
182186-- * 'cnataAdvertiser'
@@ -196,6 +200,7 @@ creativeNATiveAd =
196200 , _cnataImpressionTrackingURL = Nothing
197201 , _cnataCallToAction = Nothing
198202 , _cnataStore = Nothing
203+ , _cnataVideoURL = Nothing
199204 , _cnataPrice = Nothing
200205 , _cnataAdvertiser = Nothing
201206 , _cnataStarRating = Nothing
@@ -248,6 +253,11 @@ cnataStore :: Lens' CreativeNATiveAd (Maybe Text)
248253cnataStore
249254 = lens _cnataStore (\ s a -> s{_cnataStore = a})
250255
256+cnataVideoURL :: Lens' CreativeNATiveAd (Maybe Text)
257+cnataVideoURL
258+ = lens _cnataVideoURL
259+ (\ s a -> s{_cnataVideoURL = a})
260+
251261-- | The price of the promoted app including the currency info.
252262cnataPrice :: Lens' CreativeNATiveAd (Maybe Text)
253263cnataPrice
@@ -282,6 +292,7 @@ instance FromJSON CreativeNATiveAd where
282292 <*> (o .:? "impressionTrackingUrl" .!= mempty)
283293 <*> (o .:? "callToAction")
284294 <*> (o .:? "store")
295+ <*> (o .:? "videoURL")
285296 <*> (o .:? "price")
286297 <*> (o .:? "advertiser")
287298 <*> (o .:? "starRating")
@@ -300,6 +311,7 @@ instance ToJSON CreativeNATiveAd where
300311 _cnataImpressionTrackingURL,
301312 ("callToAction" .=) <$> _cnataCallToAction,
302313 ("store" .=) <$> _cnataStore,
314+ ("videoURL" .=) <$> _cnataVideoURL,
303315 ("price" .=) <$> _cnataPrice,
304316 ("advertiser" .=) <$> _cnataAdvertiser,
305317 ("starRating" .=) <$> _cnataStarRating,
@@ -419,6 +431,68 @@ instance ToJSON CreativesList where
419431 [("nextPageToken" .=) <$> _clNextPageToken,
420432 Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
421433
434+--
435+-- /See:/ 'creativeDealIdsDealStatusesItem' smart constructor.
436+data CreativeDealIdsDealStatusesItem = CreativeDealIdsDealStatusesItem'
437+ { _cdidsiArcStatus :: !(Maybe Text)
438+ , _cdidsiWebPropertyId :: !(Maybe (Textual Int32))
439+ , _cdidsiDealId :: !(Maybe (Textual Int64))
440+ } deriving (Eq,Show,Data,Typeable,Generic)
441+
442+-- | Creates a value of 'CreativeDealIdsDealStatusesItem' with the minimum fields required to make a request.
443+--
444+-- Use one of the following lenses to modify other fields as desired:
445+--
446+-- * 'cdidsiArcStatus'
447+--
448+-- * 'cdidsiWebPropertyId'
449+--
450+-- * 'cdidsiDealId'
451+creativeDealIdsDealStatusesItem
452+ :: CreativeDealIdsDealStatusesItem
453+creativeDealIdsDealStatusesItem =
454+ CreativeDealIdsDealStatusesItem'
455+ { _cdidsiArcStatus = Nothing
456+ , _cdidsiWebPropertyId = Nothing
457+ , _cdidsiDealId = Nothing
458+ }
459+
460+-- | ARC approval status.
461+cdidsiArcStatus :: Lens' CreativeDealIdsDealStatusesItem (Maybe Text)
462+cdidsiArcStatus
463+ = lens _cdidsiArcStatus
464+ (\ s a -> s{_cdidsiArcStatus = a})
465+
466+-- | Publisher ID.
467+cdidsiWebPropertyId :: Lens' CreativeDealIdsDealStatusesItem (Maybe Int32)
468+cdidsiWebPropertyId
469+ = lens _cdidsiWebPropertyId
470+ (\ s a -> s{_cdidsiWebPropertyId = a})
471+ . mapping _Coerce
472+
473+-- | External deal ID.
474+cdidsiDealId :: Lens' CreativeDealIdsDealStatusesItem (Maybe Int64)
475+cdidsiDealId
476+ = lens _cdidsiDealId (\ s a -> s{_cdidsiDealId = a})
477+ . mapping _Coerce
478+
479+instance FromJSON CreativeDealIdsDealStatusesItem
480+ where
481+ parseJSON
482+ = withObject "CreativeDealIdsDealStatusesItem"
483+ (\ o ->
484+ CreativeDealIdsDealStatusesItem' <$>
485+ (o .:? "arcStatus") <*> (o .:? "webPropertyId") <*>
486+ (o .:? "dealId"))
487+
488+instance ToJSON CreativeDealIdsDealStatusesItem where
489+ toJSON CreativeDealIdsDealStatusesItem'{..}
490+ = object
491+ (catMaybes
492+ [("arcStatus" .=) <$> _cdidsiArcStatus,
493+ ("webPropertyId" .=) <$> _cdidsiWebPropertyId,
494+ ("dealId" .=) <$> _cdidsiDealId])
495+
422496--
423497-- /See:/ 'creativeServingRestrictionsItemContextsItem' smart constructor.
424498data CreativeServingRestrictionsItemContextsItem = CreativeServingRestrictionsItemContextsItem'
@@ -921,7 +995,10 @@ getOrderNotesResponse =
921995 { _gonrNotes = Nothing
922996 }
923997
924−-- | The list of matching notes.
998+-- | The list of matching notes. The notes for a proposal are ordered from
999+-- oldest to newest. If the notes span multiple proposals, they will be
1000+-- grouped by proposal, with the notes for the most recently modified
1001+-- proposal appearing first.
9251002gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
9261003gonrNotes
9271004 = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
@@ -1187,14 +1264,17 @@ instance ToJSON CreateOrdersRequest where
11871264--
11881265-- /See:/ 'creativeCorrectionsItem' smart constructor.
11891266data CreativeCorrectionsItem = CreativeCorrectionsItem'
1190− { _cciReason :: !(Maybe Text)
1191− , _cciDetails :: !(Maybe [Text])
1267+ { _cciContexts :: !(Maybe [CreativeCorrectionsItemContextsItem])
1268+ , _cciReason :: !(Maybe Text)
1269+ , _cciDetails :: !(Maybe [Text])
11921270 } deriving (Eq,Show,Data,Typeable,Generic)
11931271
11941272-- | Creates a value of 'CreativeCorrectionsItem' with the minimum fields required to make a request.
11951273--
11961274-- Use one of the following lenses to modify other fields as desired:
11971275--
1276+-- * 'cciContexts'
1277+--
11981278-- * 'cciReason'
11991279--
12001280-- * 'cciDetails'
@@ -1202,10 +1282,18 @@ creativeCorrectionsItem
12021282 :: CreativeCorrectionsItem
12031283creativeCorrectionsItem =
12041284 CreativeCorrectionsItem'
1205− { _cciReason = Nothing
1285+ { _cciContexts = Nothing
1286+ , _cciReason = Nothing
12061287 , _cciDetails = Nothing
12071288 }
12081289
1290+-- | All known serving contexts containing serving status information.
1291+cciContexts :: Lens' CreativeCorrectionsItem [CreativeCorrectionsItemContextsItem]
1292+cciContexts
1293+ = lens _cciContexts (\ s a -> s{_cciContexts = a}) .
1294+ _Default
1295+ . _Coerce
1296+
12091297-- | The type of correction that was applied to the creative.
12101298cciReason :: Lens' CreativeCorrectionsItem (Maybe Text)
12111299cciReason
@@ -1223,15 +1311,67 @@ instance FromJSON CreativeCorrectionsItem where
12231311 = withObject "CreativeCorrectionsItem"
12241312 (\ o ->
12251313 CreativeCorrectionsItem' <$>
1226− (o .:? "reason") <*> (o .:? "details" .!= mempty))
1314+ (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
1315+ <*> (o .:? "details" .!= mempty))
12271316
12281317instance ToJSON CreativeCorrectionsItem where
12291318 toJSON CreativeCorrectionsItem'{..}
12301319 = object
12311320 (catMaybes
1232− [("reason" .=) <$> _cciReason,
1321+ [("contexts" .=) <$> _cciContexts,
1322+ ("reason" .=) <$> _cciReason,
12331323 ("details" .=) <$> _cciDetails])
12341324
1325+--
1326+-- /See:/ 'dealTermsRubiconNonGuaranteedTerms' smart constructor.
1327+data DealTermsRubiconNonGuaranteedTerms = DealTermsRubiconNonGuaranteedTerms'
1328+ { _dtrngtPriorityPrice :: !(Maybe Price)
1329+ , _dtrngtStandardPrice :: !(Maybe Price)
1330+ } deriving (Eq,Show,Data,Typeable,Generic)
1331+
1332+-- | Creates a value of 'DealTermsRubiconNonGuaranteedTerms' with the minimum fields required to make a request.
1333+--
1334+-- Use one of the following lenses to modify other fields as desired:
1335+--
1336+-- * 'dtrngtPriorityPrice'
1337+--
1338+-- * 'dtrngtStandardPrice'
1339+dealTermsRubiconNonGuaranteedTerms
1340+ :: DealTermsRubiconNonGuaranteedTerms
1341+dealTermsRubiconNonGuaranteedTerms =
1342+ DealTermsRubiconNonGuaranteedTerms'
1343+ { _dtrngtPriorityPrice = Nothing
1344+ , _dtrngtStandardPrice = Nothing
1345+ }
1346+
1347+-- | Optional price for Rubicon priority access in the auction.
1348+dtrngtPriorityPrice :: Lens' DealTermsRubiconNonGuaranteedTerms (Maybe Price)
1349+dtrngtPriorityPrice
1350+ = lens _dtrngtPriorityPrice
1351+ (\ s a -> s{_dtrngtPriorityPrice = a})
1352+
1353+-- | Optional price for Rubicon standard access in the auction.
1354+dtrngtStandardPrice :: Lens' DealTermsRubiconNonGuaranteedTerms (Maybe Price)
1355+dtrngtStandardPrice
1356+ = lens _dtrngtStandardPrice
1357+ (\ s a -> s{_dtrngtStandardPrice = a})
1358+
1359+instance FromJSON DealTermsRubiconNonGuaranteedTerms
1360+ where
1361+ parseJSON
1362+ = withObject "DealTermsRubiconNonGuaranteedTerms"
1363+ (\ o ->
1364+ DealTermsRubiconNonGuaranteedTerms' <$>
1365+ (o .:? "priorityPrice") <*> (o .:? "standardPrice"))
1366+
1367+instance ToJSON DealTermsRubiconNonGuaranteedTerms
1368+ where
1369+ toJSON DealTermsRubiconNonGuaranteedTerms'{..}
1370+ = object
1371+ (catMaybes
1372+ [("priorityPrice" .=) <$> _dtrngtPriorityPrice,
1373+ ("standardPrice" .=) <$> _dtrngtStandardPrice])
1374+
12351375--
12361376-- /See:/ 'dealServingMetadata' smart constructor.
12371377newtype DealServingMetadata = DealServingMetadata'
@@ -1467,6 +1607,7 @@ data Creative = Creative'
14671607 , _cDealsStatus :: !(Maybe Text)
14681608 , _cWidth :: !(Maybe (Textual Int32))
14691609 , _cClickThroughURL :: !(Maybe [Text])
1610+ , _cLanguages :: !(Maybe [Text])
14701611 , _cVendorType :: !(Maybe [Textual Int32])
14711612 , _cAccountId :: !(Maybe (Textual Int32))
14721613 , _cImpressionTrackingURL :: !(Maybe [Text])
@@ -1476,6 +1617,7 @@ data Creative = Creative'
14761617 , _cVideoURL :: !(Maybe Text)
14771618 , _cAPIUploadTimestamp :: !(Maybe DateTime')
14781619 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
1620+ , _cDetectedDomains :: !(Maybe [Text])
14791621 , _cOpenAuctionStatus :: !(Maybe Text)
14801622 } deriving (Eq,Show,Data,Typeable,Generic)
14811623
@@ -1515,6 +1657,8 @@ data Creative = Creative'
15151657--
15161658-- * 'cClickThroughURL'
15171659--
1660+-- * 'cLanguages'
1661+--
15181662-- * 'cVendorType'
15191663--
15201664-- * 'cAccountId'
@@ -1533,6 +1677,8 @@ data Creative = Creative'
15331677--
15341678-- * 'cServingRestrictions'
15351679--
1680+-- * 'cDetectedDomains'
1681+--
15361682-- * 'cOpenAuctionStatus'
15371683creative
15381684 :: Creative
@@ -1554,6 +1700,7 @@ creative =
15541700 , _cDealsStatus = Nothing
15551701 , _cWidth = Nothing
15561702 , _cClickThroughURL = Nothing
1703+ , _cLanguages = Nothing
15571704 , _cVendorType = Nothing
15581705 , _cAccountId = Nothing
15591706 , _cImpressionTrackingURL = Nothing
@@ -1563,6 +1710,7 @@ creative =
15631710 , _cVideoURL = Nothing
15641711 , _cAPIUploadTimestamp = Nothing
15651712 , _cServingRestrictions = Nothing
1713+ , _cDetectedDomains = Nothing
15661714 , _cOpenAuctionStatus = Nothing
15671715 }
15681716
@@ -1573,7 +1721,8 @@ cAttribute
15731721 _Default
15741722 . _Coerce
15751723
1576−-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
1724+-- | If nativeAd is set, HTMLSnippet and the videoURL outside of nativeAd
1725+-- should not be set. (The videoURL inside nativeAd can be set.)
15771726cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd)
15781727cNATiveAd
15791728 = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})
@@ -1677,6 +1826,14 @@ cClickThroughURL
16771826 . _Default
16781827 . _Coerce
16791828
1829+-- | Detected languages for this creative. Read-only. This field should not
1830+-- be set in requests.
1831+cLanguages :: Lens' Creative [Text]
1832+cLanguages
1833+ = lens _cLanguages (\ s a -> s{_cLanguages = a}) .
1834+ _Default
1835+ . _Coerce
1836+
16801837-- | All vendor types for the ads that may be shown from this snippet.
16811838cVendorType :: Lens' Creative [Int32]
16821839cVendorType
@@ -1721,7 +1878,9 @@ cSensitiveCategories
17211878 . _Default
17221879 . _Coerce
17231880
1724−-- | The url to fetch a video ad. If set, HTMLSnippet should not be set.
1881+-- | The URL to fetch a video ad. If set, HTMLSnippet and the nativeAd should
1882+-- not be set. Note, this is diffrent from resource.native_ad.video_url
1883+-- above.
17251884cVideoURL :: Lens' Creative (Maybe Text)
17261885cVideoURL
17271886 = lens _cVideoURL (\ s a -> s{_cVideoURL = a})
@@ -1746,6 +1905,15 @@ cServingRestrictions
17461905 . _Default
17471906 . _Coerce
17481907
1908+-- | Detected domains for this creative. Read-only. This field should not be
1909+-- set in requests.
1910+cDetectedDomains :: Lens' Creative [Text]
1911+cDetectedDomains
1912+ = lens _cDetectedDomains
1913+ (\ s a -> s{_cDetectedDomains = a})
1914+ . _Default
1915+ . _Coerce
1916+
17491917-- | Top-level open auction status. Read-only. This field should not be set
17501918-- in requests. If disapproved, an entry for auctionType=OPEN_AUCTION (or
17511919-- ALL) in servingRestrictions will also exist. Note that this may be
@@ -1776,6 +1944,7 @@ instance FromJSON Creative where
17761944 <*> (o .:? "dealsStatus")
17771945 <*> (o .:? "width")
17781946 <*> (o .:? "clickThroughUrl" .!= mempty)
1947+ <*> (o .:? "languages" .!= mempty)
17791948 <*> (o .:? "vendorType" .!= mempty)
17801949 <*> (o .:? "accountId")
17811950 <*> (o .:? "impressionTrackingUrl" .!= mempty)
@@ -1785,6 +1954,7 @@ instance FromJSON Creative where
17851954 <*> (o .:? "videoURL")
17861955 <*> (o .:? "apiUploadTimestamp")
17871956 <*> (o .:? "servingRestrictions" .!= mempty)
1957+ <*> (o .:? "detectedDomains" .!= mempty)
17881958 <*> (o .:? "openAuctionStatus"))
17891959
17901960instance ToJSON Creative where
@@ -1809,6 +1979,7 @@ instance ToJSON Creative where
18091979 ("dealsStatus" .=) <$> _cDealsStatus,
18101980 ("width" .=) <$> _cWidth,
18111981 ("clickThroughUrl" .=) <$> _cClickThroughURL,
1982+ ("languages" .=) <$> _cLanguages,
18121983 ("vendorType" .=) <$> _cVendorType,
18131984 ("accountId" .=) <$> _cAccountId,
18141985 ("impressionTrackingUrl" .=) <$>
@@ -1819,6 +1990,7 @@ instance ToJSON Creative where
18191990 ("videoURL" .=) <$> _cVideoURL,
18201991 ("apiUploadTimestamp" .=) <$> _cAPIUploadTimestamp,
18211992 ("servingRestrictions" .=) <$> _cServingRestrictions,
1993+ ("detectedDomains" .=) <$> _cDetectedDomains,
18221994 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
18231995
18241996--
@@ -1910,8 +2082,9 @@ instance ToJSON TargetingValueDayPartTargetingDayPart
19102082--
19112083-- /See:/ 'dimensionDimensionValue' smart constructor.
19122084data DimensionDimensionValue = DimensionDimensionValue'
1913− { _ddvName :: !(Maybe Text)
1914− , _ddvId :: !(Maybe (Textual Int32))
2085+ { _ddvName :: !(Maybe Text)
2086+ , _ddvId :: !(Maybe (Textual Int32))
2087+ , _ddvPercentage :: !(Maybe (Textual Int32))
19152088 } deriving (Eq,Show,Data,Typeable,Generic)
19162089
19172090-- | Creates a value of 'DimensionDimensionValue' with the minimum fields required to make a request.
@@ -1921,15 +2094,19 @@ data DimensionDimensionValue = DimensionDimensionValue'
19212094-- * 'ddvName'
19222095--
19232096-- * 'ddvId'
2097+--
2098+-- * 'ddvPercentage'
19242099dimensionDimensionValue
19252100 :: DimensionDimensionValue
19262101dimensionDimensionValue =
19272102 DimensionDimensionValue'
19282103 { _ddvName = Nothing
19292104 , _ddvId = Nothing
2105+ , _ddvPercentage = Nothing
19302106 }
19312107
1932−-- | Name of the dimension mainly for debugging purposes.
2108+-- | Name of the dimension mainly for debugging purposes, except for the case
2109+-- of CREATIVE_SIZE. For CREATIVE_SIZE, strings are used instead of ids.
19332110ddvName :: Lens' DimensionDimensionValue (Maybe Text)
19342111ddvName = lens _ddvName (\ s a -> s{_ddvName = a})
19352112
@@ -1939,18 +2116,29 @@ ddvId
19392116 = lens _ddvId (\ s a -> s{_ddvId = a}) .
19402117 mapping _Coerce
19412118
2119+-- | Percent of total impressions for a dimension type. e.g. {dimension_type:
2120+-- \'GENDER\', [{dimension_value: {id: 1, name: \'MALE\', percentage:
2121+-- 60}}]} Gender MALE is 60% of all impressions which have gender.
2122+ddvPercentage :: Lens' DimensionDimensionValue (Maybe Int32)
2123+ddvPercentage
2124+ = lens _ddvPercentage
2125+ (\ s a -> s{_ddvPercentage = a})
2126+ . mapping _Coerce
2127+
19422128instance FromJSON DimensionDimensionValue where
19432129 parseJSON
19442130 = withObject "DimensionDimensionValue"
19452131 (\ o ->
19462132 DimensionDimensionValue' <$>
1947− (o .:? "name") <*> (o .:? "id"))
2133+ (o .:? "name") <*> (o .:? "id") <*>
2134+ (o .:? "percentage"))
19482135
19492136instance ToJSON DimensionDimensionValue where
19502137 toJSON DimensionDimensionValue'{..}
19512138 = object
19522139 (catMaybes
1953− [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId])
2140+ [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId,
2141+ ("percentage" .=) <$> _ddvPercentage])
19542142
19552143--
19562144-- /See:/ 'pretargetingConfigList' smart constructor.
@@ -3271,6 +3459,7 @@ instance ToJSON CreativeFilteringReasons where
32713459data TargetingValueCreativeSize = TargetingValueCreativeSize'
32723460 { _tvcsSize :: !(Maybe TargetingValueSize)
32733461 , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])
3462+ , _tvcsSkippableAdType :: !(Maybe Text)
32743463 , _tvcsCreativeSizeType :: !(Maybe Text)
32753464 } deriving (Eq,Show,Data,Typeable,Generic)
32763465
@@ -3282,6 +3471,8 @@ data TargetingValueCreativeSize = TargetingValueCreativeSize'
32823471--
32833472-- * 'tvcsCompanionSizes'
32843473--
3474+-- * 'tvcsSkippableAdType'
3475+--
32853476-- * 'tvcsCreativeSizeType'
32863477targetingValueCreativeSize
32873478 :: TargetingValueCreativeSize
@@ -3289,6 +3480,7 @@ targetingValueCreativeSize =
32893480 TargetingValueCreativeSize'
32903481 { _tvcsSize = Nothing
32913482 , _tvcsCompanionSizes = Nothing
3483+ , _tvcsSkippableAdType = Nothing
32923484 , _tvcsCreativeSizeType = Nothing
32933485 }
32943486
@@ -3305,6 +3497,12 @@ tvcsCompanionSizes
33053497 . _Default
33063498 . _Coerce
33073499
3500+-- | The skippable ad type for video size.
3501+tvcsSkippableAdType :: Lens' TargetingValueCreativeSize (Maybe Text)
3502+tvcsSkippableAdType
3503+ = lens _tvcsSkippableAdType
3504+ (\ s a -> s{_tvcsSkippableAdType = a})
3505+
33083506-- | The Creative size type.
33093507tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
33103508tvcsCreativeSizeType
@@ -3318,6 +3516,7 @@ instance FromJSON TargetingValueCreativeSize where
33183516 TargetingValueCreativeSize' <$>
33193517 (o .:? "size") <*>
33203518 (o .:? "companionSizes" .!= mempty)
3519+ <*> (o .:? "skippableAdType")
33213520 <*> (o .:? "creativeSizeType"))
33223521
33233522instance ToJSON TargetingValueCreativeSize where
@@ -3326,12 +3525,14 @@ instance ToJSON TargetingValueCreativeSize where
33263525 (catMaybes
33273526 [("size" .=) <$> _tvcsSize,
33283527 ("companionSizes" .=) <$> _tvcsCompanionSizes,
3528+ ("skippableAdType" .=) <$> _tvcsSkippableAdType,
33293529 ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
33303530
33313531--
33323532-- /See:/ 'dealTermsGuaranteedFixedPriceTermsBillingInfo' smart constructor.
33333533data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPriceTermsBillingInfo'
33343534 { _dtgfptbiCurrencyConversionTimeMs :: !(Maybe (Textual Int64))
3535+ , _dtgfptbiDfpLineItemId :: !(Maybe (Textual Int64))
33353536 , _dtgfptbiPrice :: !(Maybe Price)
33363537 , _dtgfptbiOriginalContractedQuantity :: !(Maybe (Textual Int64))
33373538 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -3342,6 +3543,8 @@ data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPri
33423543--
33433544-- * 'dtgfptbiCurrencyConversionTimeMs'
33443545--
3546+-- * 'dtgfptbiDfpLineItemId'
3547+--
33453548-- * 'dtgfptbiPrice'
33463549--
33473550-- * 'dtgfptbiOriginalContractedQuantity'
@@ -3350,6 +3553,7 @@ dealTermsGuaranteedFixedPriceTermsBillingInfo
33503553dealTermsGuaranteedFixedPriceTermsBillingInfo =
33513554 DealTermsGuaranteedFixedPriceTermsBillingInfo'
33523555 { _dtgfptbiCurrencyConversionTimeMs = Nothing
3556+ , _dtgfptbiDfpLineItemId = Nothing
33533557 , _dtgfptbiPrice = Nothing
33543558 , _dtgfptbiOriginalContractedQuantity = Nothing
33553559 }
@@ -3364,6 +3568,14 @@ dtgfptbiCurrencyConversionTimeMs
33643568 (\ s a -> s{_dtgfptbiCurrencyConversionTimeMs = a})
33653569 . mapping _Coerce
33663570
3571+-- | The DFP line item id associated with this deal. For features like CPD,
3572+-- buyers can retrieve the DFP line item for billing reconciliation.
3573+dtgfptbiDfpLineItemId :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64)
3574+dtgfptbiDfpLineItemId
3575+ = lens _dtgfptbiDfpLineItemId
3576+ (\ s a -> s{_dtgfptbiDfpLineItemId = a})
3577+ . mapping _Coerce
3578+
33673579-- | The original reservation price for the deal, if the currency code is
33683580-- different from the one used in negotiation.
33693581dtgfptbiPrice :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Price)
@@ -3372,8 +3584,9 @@ dtgfptbiPrice
33723584 (\ s a -> s{_dtgfptbiPrice = a})
33733585
33743586-- | The original contracted quantity (# impressions) for this deal. To
3375−-- ensure delivery, sometimes publisher will book the deal with a
3376−-- impression buffer, however clients are billed using the original
3587+-- ensure delivery, sometimes the publisher will book the deal with a
3588+-- impression buffer, such that guaranteed_looks is greater than the
3589+-- contracted quantity. However clients are billed using the original
33773590-- contracted quantity.
33783591dtgfptbiOriginalContractedQuantity :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64)
33793592dtgfptbiOriginalContractedQuantity
@@ -3389,7 +3602,8 @@ instance FromJSON
33893602 (\ o ->
33903603 DealTermsGuaranteedFixedPriceTermsBillingInfo' <$>
33913604 (o .:? "currencyConversionTimeMs") <*>
3392− (o .:? "price")
3605+ (o .:? "dfpLineItemId")
3606+ <*> (o .:? "price")
33933607 <*> (o .:? "originalContractedQuantity"))
33943608
33953609instance ToJSON
@@ -3400,6 +3614,7 @@ instance ToJSON
34003614 (catMaybes
34013615 [("currencyConversionTimeMs" .=) <$>
34023616 _dtgfptbiCurrencyConversionTimeMs,
3617+ ("dfpLineItemId" .=) <$> _dtgfptbiDfpLineItemId,
34033618 ("price" .=) <$> _dtgfptbiPrice,
34043619 ("originalContractedQuantity" .=) <$>
34053620 _dtgfptbiOriginalContractedQuantity])
@@ -3461,6 +3676,7 @@ data Proposal = Proposal'
34613676 , _pBuyerContacts :: !(Maybe [ContactInformation])
34623677 , _pKind :: !Text
34633678 , _pOriginatorRole :: !(Maybe Text)
3679+ , _pDBmAdvertiserIds :: !(Maybe [Text])
34643680 , _pRevisionNumber :: !(Maybe (Textual Int64))
34653681 , _pBilledBuyer :: !(Maybe Buyer)
34663682 , _pPrivateAuctionId :: !(Maybe Text)
@@ -3495,6 +3711,8 @@ data Proposal = Proposal'
34953711--
34963712-- * 'pOriginatorRole'
34973713--
3714+-- * 'pDBmAdvertiserIds'
3715+--
34983716-- * 'pRevisionNumber'
34993717--
35003718-- * 'pBilledBuyer'
@@ -3536,6 +3754,7 @@ proposal =
35363754 , _pBuyerContacts = Nothing
35373755 , _pKind = "adexchangebuyer#proposal"
35383756 , _pOriginatorRole = Nothing
3757+ , _pDBmAdvertiserIds = Nothing
35393758 , _pRevisionNumber = Nothing
35403759 , _pBilledBuyer = Nothing
35413760 , _pPrivateAuctionId = Nothing
@@ -3573,7 +3792,7 @@ pInventorySource
35733792 = lens _pInventorySource
35743793 (\ s a -> s{_pInventorySource = a})
35753794
3576−-- | Optional contact information fort the buyer. (seller-readonly)
3795+-- | Optional contact information of the buyer. (seller-readonly)
35773796pBuyerContacts :: Lens' Proposal [ContactInformation]
35783797pBuyerContacts
35793798 = lens _pBuyerContacts
@@ -3592,6 +3811,14 @@ pOriginatorRole
35923811 = lens _pOriginatorRole
35933812 (\ s a -> s{_pOriginatorRole = a})
35943813
3814+-- | IDs of DBM advertisers permission to this proposal.
3815+pDBmAdvertiserIds :: Lens' Proposal [Text]
3816+pDBmAdvertiserIds
3817+ = lens _pDBmAdvertiserIds
3818+ (\ s a -> s{_pDBmAdvertiserIds = a})
3819+ . _Default
3820+ . _Coerce
3821+
35953822-- | The revision number for the proposal (readonly).
35963823pRevisionNumber :: Lens' Proposal (Maybe Int64)
35973824pRevisionNumber
@@ -3639,7 +3866,7 @@ pProposalId
36393866pName :: Lens' Proposal (Maybe Text)
36403867pName = lens _pName (\ s a -> s{_pName = a})
36413868
3642−-- | Optional contact information for the seller (buyer-readonly).
3869+-- | Optional contact information of the seller (buyer-readonly).
36433870pSellerContacts :: Lens' Proposal [ContactInformation]
36443871pSellerContacts
36453872 = lens _pSellerContacts
@@ -3680,7 +3907,7 @@ pNegotiationId
36803907 (\ s a -> s{_pNegotiationId = a})
36813908
36823909-- | When an proposal is in an accepted state, indicates whether the buyer
3683−-- has signed off Once both sides have signed off on a deal, the proposal
3910+-- has signed off. Once both sides have signed off on a deal, the proposal
36843911-- can be finalized by the seller. (seller-readonly)
36853912pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool)
36863913pHasBuyerSignedOff
@@ -3702,6 +3929,7 @@ instance FromJSON Proposal where
37023929 <*> (o .:? "buyerContacts" .!= mempty)
37033930 <*> (o .:? "kind" .!= "adexchangebuyer#proposal")
37043931 <*> (o .:? "originatorRole")
3932+ <*> (o .:? "dbmAdvertiserIds" .!= mempty)
37053933 <*> (o .:? "revisionNumber")
37063934 <*> (o .:? "billedBuyer")
37073935 <*> (o .:? "privateAuctionId")
@@ -3729,6 +3957,7 @@ instance ToJSON Proposal where
37293957 ("buyerContacts" .=) <$> _pBuyerContacts,
37303958 Just ("kind" .= _pKind),
37313959 ("originatorRole" .=) <$> _pOriginatorRole,
3960+ ("dbmAdvertiserIds" .=) <$> _pDBmAdvertiserIds,
37323961 ("revisionNumber" .=) <$> _pRevisionNumber,
37333962 ("billedBuyer" .=) <$> _pBilledBuyer,
37343963 ("privateAuctionId" .=) <$> _pPrivateAuctionId,
@@ -4004,6 +4233,90 @@ instance ToJSON PretargetingConfigDimensionsItem
40044233 [("height" .=) <$> _pcdiHeight,
40054234 ("width" .=) <$> _pcdiWidth])
40064235
4236+--
4237+-- /See:/ 'creativeCorrectionsItemContextsItem' smart constructor.
4238+data CreativeCorrectionsItemContextsItem = CreativeCorrectionsItemContextsItem'
4239+ { _cciciPlatform :: !(Maybe [Text])
4240+ , _cciciContextType :: !(Maybe Text)
4241+ , _cciciAuctionType :: !(Maybe [Text])
4242+ , _cciciGeoCriteriaId :: !(Maybe [Textual Int32])
4243+ } deriving (Eq,Show,Data,Typeable,Generic)
4244+
4245+-- | Creates a value of 'CreativeCorrectionsItemContextsItem' with the minimum fields required to make a request.
4246+--
4247+-- Use one of the following lenses to modify other fields as desired:
4248+--
4249+-- * 'cciciPlatform'
4250+--
4251+-- * 'cciciContextType'
4252+--
4253+-- * 'cciciAuctionType'
4254+--
4255+-- * 'cciciGeoCriteriaId'
4256+creativeCorrectionsItemContextsItem
4257+ :: CreativeCorrectionsItemContextsItem
4258+creativeCorrectionsItemContextsItem =
4259+ CreativeCorrectionsItemContextsItem'
4260+ { _cciciPlatform = Nothing
4261+ , _cciciContextType = Nothing
4262+ , _cciciAuctionType = Nothing
4263+ , _cciciGeoCriteriaId = Nothing
4264+ }
4265+
4266+-- | Only set when contextType=PLATFORM. Represents the platforms this
4267+-- correction applies to.
4268+cciciPlatform :: Lens' CreativeCorrectionsItemContextsItem [Text]
4269+cciciPlatform
4270+ = lens _cciciPlatform
4271+ (\ s a -> s{_cciciPlatform = a})
4272+ . _Default
4273+ . _Coerce
4274+
4275+-- | The type of context (e.g., location, platform, auction type, SSL-ness).
4276+cciciContextType :: Lens' CreativeCorrectionsItemContextsItem (Maybe Text)
4277+cciciContextType
4278+ = lens _cciciContextType
4279+ (\ s a -> s{_cciciContextType = a})
4280+
4281+-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
4282+-- this correction applies to.
4283+cciciAuctionType :: Lens' CreativeCorrectionsItemContextsItem [Text]
4284+cciciAuctionType
4285+ = lens _cciciAuctionType
4286+ (\ s a -> s{_cciciAuctionType = a})
4287+ . _Default
4288+ . _Coerce
4289+
4290+-- | Only set when contextType=LOCATION. Represents the geo criterias this
4291+-- correction applies to.
4292+cciciGeoCriteriaId :: Lens' CreativeCorrectionsItemContextsItem [Int32]
4293+cciciGeoCriteriaId
4294+ = lens _cciciGeoCriteriaId
4295+ (\ s a -> s{_cciciGeoCriteriaId = a})
4296+ . _Default
4297+ . _Coerce
4298+
4299+instance FromJSON CreativeCorrectionsItemContextsItem
4300+ where
4301+ parseJSON
4302+ = withObject "CreativeCorrectionsItemContextsItem"
4303+ (\ o ->
4304+ CreativeCorrectionsItemContextsItem' <$>
4305+ (o .:? "platform" .!= mempty) <*>
4306+ (o .:? "contextType")
4307+ <*> (o .:? "auctionType" .!= mempty)
4308+ <*> (o .:? "geoCriteriaId" .!= mempty))
4309+
4310+instance ToJSON CreativeCorrectionsItemContextsItem
4311+ where
4312+ toJSON CreativeCorrectionsItemContextsItem'{..}
4313+ = object
4314+ (catMaybes
4315+ [("platform" .=) <$> _cciciPlatform,
4316+ ("contextType" .=) <$> _cciciContextType,
4317+ ("auctionType" .=) <$> _cciciAuctionType,
4318+ ("geoCriteriaId" .=) <$> _cciciGeoCriteriaId])
4319+
40074320-- | This message carries publisher provided forecasting information.
40084321--
40094322-- /See:/ 'publisherProvidedForecast' smart constructor.
@@ -4205,9 +4518,10 @@ instance ToJSON CreativeNATiveAdAppIcon where
42054518--
42064519-- /See:/ 'price' smart constructor.
42074520data Price = Price'
4208− { _pCurrencyCode :: !(Maybe Text)
4209− , _pAmountMicros :: !(Maybe (Textual Double))
4210− , _pPricingType :: !(Maybe Text)
4521+ { _pCurrencyCode :: !(Maybe Text)
4522+ , _pAmountMicros :: !(Maybe (Textual Double))
4523+ , _pPricingType :: !(Maybe Text)
4524+ , _pExpectedCpmMicros :: !(Maybe (Textual Double))
42114525 } deriving (Eq,Show,Data,Typeable,Generic)
42124526
42134527-- | Creates a value of 'Price' with the minimum fields required to make a request.
@@ -4219,6 +4533,8 @@ data Price = Price'
42194533-- * 'pAmountMicros'
42204534--
42214535-- * 'pPricingType'
4536+--
4537+-- * 'pExpectedCpmMicros'
42224538price
42234539 :: Price
42244540price =
@@ -4226,6 +4542,7 @@ price =
42264542 { _pCurrencyCode = Nothing
42274543 , _pAmountMicros = Nothing
42284544 , _pPricingType = Nothing
4545+ , _pExpectedCpmMicros = Nothing
42294546 }
42304547
42314548-- | The currency code for the price.
@@ -4246,13 +4563,21 @@ pPricingType :: Lens' Price (Maybe Text)
42464563pPricingType
42474564 = lens _pPricingType (\ s a -> s{_pPricingType = a})
42484565
4566+-- | In case of CPD deals, the expected CPM in micros.
4567+pExpectedCpmMicros :: Lens' Price (Maybe Double)
4568+pExpectedCpmMicros
4569+ = lens _pExpectedCpmMicros
4570+ (\ s a -> s{_pExpectedCpmMicros = a})
4571+ . mapping _Coerce
4572+
42494573instance FromJSON Price where
42504574 parseJSON
42514575 = withObject "Price"
42524576 (\ o ->
42534577 Price' <$>
42544578 (o .:? "currencyCode") <*> (o .:? "amountMicros") <*>
4255− (o .:? "pricingType"))
4579+ (o .:? "pricingType")
4580+ <*> (o .:? "expectedCpmMicros"))
42564581
42574582instance ToJSON Price where
42584583 toJSON Price'{..}
@@ -4260,7 +4585,8 @@ instance ToJSON Price where
42604585 (catMaybes
42614586 [("currencyCode" .=) <$> _pCurrencyCode,
42624587 ("amountMicros" .=) <$> _pAmountMicros,
4263− ("pricingType" .=) <$> _pPricingType])
4588+ ("pricingType" .=) <$> _pPricingType,
4589+ ("expectedCpmMicros" .=) <$> _pExpectedCpmMicros])
42644590
42654591--
42664592-- /See:/ 'pretargetingConfigVideoPlayerSizesItem' smart constructor.
@@ -5478,6 +5804,7 @@ data MarketplaceDeal = MarketplaceDeal'
54785804 , _mdDealServingMetadata :: !(Maybe DealServingMetadata)
54795805 , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
54805806 , _mdSharedTargetings :: !(Maybe [SharedTargeting])
5807+ , _mdIsRfpTemplate :: !(Maybe Bool)
54815808 , _mdProposalId :: !(Maybe Text)
54825809 , _mdDealId :: !(Maybe Text)
54835810 , _mdInventoryDescription :: !(Maybe Text)
@@ -5518,6 +5845,8 @@ data MarketplaceDeal = MarketplaceDeal'
55185845--
55195846-- * 'mdSharedTargetings'
55205847--
5848+-- * 'mdIsRfpTemplate'
5849+--
55215850-- * 'mdProposalId'
55225851--
55235852-- * 'mdDealId'
@@ -5556,6 +5885,7 @@ marketplaceDeal =
55565885 , _mdDealServingMetadata = Nothing
55575886 , _mdFlightStartTimeMs = Nothing
55585887 , _mdSharedTargetings = Nothing
5888+ , _mdIsRfpTemplate = Nothing
55595889 , _mdProposalId = Nothing
55605890 , _mdDealId = Nothing
55615891 , _mdInventoryDescription = Nothing
@@ -5644,11 +5974,18 @@ mdSharedTargetings
56445974 . _Default
56455975 . _Coerce
56465976
5977+-- | Indicates whether the current deal is a RFP template. RFP template is
5978+-- created by buyer and not based on seller created products.
5979+mdIsRfpTemplate :: Lens' MarketplaceDeal (Maybe Bool)
5980+mdIsRfpTemplate
5981+ = lens _mdIsRfpTemplate
5982+ (\ s a -> s{_mdIsRfpTemplate = a})
5983+
56475984mdProposalId :: Lens' MarketplaceDeal (Maybe Text)
56485985mdProposalId
56495986 = lens _mdProposalId (\ s a -> s{_mdProposalId = a})
56505987
5651−-- | A unique deal=id for the deal (readonly).
5988+-- | A unique deal-id for the deal (readonly).
56525989mdDealId :: Lens' MarketplaceDeal (Maybe Text)
56535990mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
56545991
@@ -5736,6 +6073,7 @@ instance FromJSON MarketplaceDeal where
57366073 <*> (o .:? "dealServingMetadata")
57376074 <*> (o .:? "flightStartTimeMs")
57386075 <*> (o .:? "sharedTargetings" .!= mempty)
6076+ <*> (o .:? "isRfpTemplate")
57396077 <*> (o .:? "proposalId")
57406078 <*> (o .:? "dealId")
57416079 <*> (o .:? "inventoryDescription")
@@ -5765,6 +6103,7 @@ instance ToJSON MarketplaceDeal where
57656103 _mdDealServingMetadata,
57666104 ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
57676105 ("sharedTargetings" .=) <$> _mdSharedTargetings,
6106+ ("isRfpTemplate" .=) <$> _mdIsRfpTemplate,
57686107 ("proposalId" .=) <$> _mdProposalId,
57696108 ("dealId" .=) <$> _mdDealId,
57706109 ("inventoryDescription" .=) <$>
@@ -5933,14 +6272,16 @@ instance ToJSON CreativeFilteringReasonsReasonsItem
59336272--
59346273-- /See:/ 'dealTerms' smart constructor.
59356274data DealTerms = DealTerms'
5936− { _dtEstimatedGrossSpend :: !(Maybe Price)
5937− , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
5938− , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
5939− , _dtBrandingType :: !(Maybe Text)
5940− , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
5941− , _dtSellerTimeZone :: !(Maybe Text)
5942− , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
5943− , _dtDescription :: !(Maybe Text)
6275+ { _dtEstimatedGrossSpend :: !(Maybe Price)
6276+ , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
6277+ , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
6278+ , _dtRubiconNonGuaranteedTerms :: !(Maybe DealTermsRubiconNonGuaranteedTerms)
6279+ , _dtBrandingType :: !(Maybe Text)
6280+ , _dtCrossListedExternalDealIdType :: !(Maybe Text)
6281+ , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
6282+ , _dtSellerTimeZone :: !(Maybe Text)
6283+ , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
6284+ , _dtDescription :: !(Maybe Text)
59446285 } deriving (Eq,Show,Data,Typeable,Generic)
59456286
59466287-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
@@ -5953,8 +6294,12 @@ data DealTerms = DealTerms'
59536294--
59546295-- * 'dtNonGuaranteedAuctionTerms'
59556296--
6297+-- * 'dtRubiconNonGuaranteedTerms'
6298+--
59566299-- * 'dtBrandingType'
59576300--
6301+-- * 'dtCrossListedExternalDealIdType'
6302+--
59586303-- * 'dtEstimatedImpressionsPerDay'
59596304--
59606305-- * 'dtSellerTimeZone'
@@ -5969,7 +6314,9 @@ dealTerms =
59696314 { _dtEstimatedGrossSpend = Nothing
59706315 , _dtNonGuaranteedFixedPriceTerms = Nothing
59716316 , _dtNonGuaranteedAuctionTerms = Nothing
6317+ , _dtRubiconNonGuaranteedTerms = Nothing
59726318 , _dtBrandingType = Nothing
6319+ , _dtCrossListedExternalDealIdType = Nothing
59736320 , _dtEstimatedImpressionsPerDay = Nothing
59746321 , _dtSellerTimeZone = Nothing
59756322 , _dtGuaranteedFixedPriceTerms = Nothing
@@ -5995,12 +6342,26 @@ dtNonGuaranteedAuctionTerms
59956342 = lens _dtNonGuaranteedAuctionTerms
59966343 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
59976344
6345+-- | The terms for rubicon non-guaranteed deals.
6346+dtRubiconNonGuaranteedTerms :: Lens' DealTerms (Maybe DealTermsRubiconNonGuaranteedTerms)
6347+dtRubiconNonGuaranteedTerms
6348+ = lens _dtRubiconNonGuaranteedTerms
6349+ (\ s a -> s{_dtRubiconNonGuaranteedTerms = a})
6350+
59986351-- | Visibilty of the URL in bid requests.
59996352dtBrandingType :: Lens' DealTerms (Maybe Text)
60006353dtBrandingType
60016354 = lens _dtBrandingType
60026355 (\ s a -> s{_dtBrandingType = a})
60036356
6357+-- | Indicates that this ExternalDealId exists under at least two different
6358+-- AdxInventoryDeals. Currently, the only case that the same ExternalDealId
6359+-- will exist is programmatic cross sell case.
6360+dtCrossListedExternalDealIdType :: Lens' DealTerms (Maybe Text)
6361+dtCrossListedExternalDealIdType
6362+ = lens _dtCrossListedExternalDealIdType
6363+ (\ s a -> s{_dtCrossListedExternalDealIdType = a})
6364+
60046365-- | Non-binding estimate of the impressions served per day Can be set by
60056366-- buyer or seller.
60066367dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64)
@@ -6036,7 +6397,9 @@ instance FromJSON DealTerms where
60366397 (o .:? "estimatedGrossSpend") <*>
60376398 (o .:? "nonGuaranteedFixedPriceTerms")
60386399 <*> (o .:? "nonGuaranteedAuctionTerms")
6400+ <*> (o .:? "rubiconNonGuaranteedTerms")
60396401 <*> (o .:? "brandingType")
6402+ <*> (o .:? "crossListedExternalDealIdType")
60406403 <*> (o .:? "estimatedImpressionsPerDay")
60416404 <*> (o .:? "sellerTimeZone")
60426405 <*> (o .:? "guaranteedFixedPriceTerms")
@@ -6052,7 +6415,11 @@ instance ToJSON DealTerms where
60526415 _dtNonGuaranteedFixedPriceTerms,
60536416 ("nonGuaranteedAuctionTerms" .=) <$>
60546417 _dtNonGuaranteedAuctionTerms,
6418+ ("rubiconNonGuaranteedTerms" .=) <$>
6419+ _dtRubiconNonGuaranteedTerms,
60556420 ("brandingType" .=) <$> _dtBrandingType,
6421+ ("crossListedExternalDealIdType" .=) <$>
6422+ _dtCrossListedExternalDealIdType,
60566423 ("estimatedImpressionsPerDay" .=) <$>
60576424 _dtEstimatedImpressionsPerDay,
60586425 ("sellerTimeZone" .=) <$> _dtSellerTimeZone,
@@ -6060,6 +6427,56 @@ instance ToJSON DealTerms where
60606427 _dtGuaranteedFixedPriceTerms,
60616428 ("description" .=) <$> _dtDescription])
60626429
6430+-- | The external deal ids associated with a creative.
6431+--
6432+-- /See:/ 'creativeDealIds' smart constructor.
6433+data CreativeDealIds = CreativeDealIds'
6434+ { _cdiKind :: !Text
6435+ , _cdiDealStatuses :: !(Maybe [CreativeDealIdsDealStatusesItem])
6436+ } deriving (Eq,Show,Data,Typeable,Generic)
6437+
6438+-- | Creates a value of 'CreativeDealIds' with the minimum fields required to make a request.
6439+--
6440+-- Use one of the following lenses to modify other fields as desired:
6441+--
6442+-- * 'cdiKind'
6443+--
6444+-- * 'cdiDealStatuses'
6445+creativeDealIds
6446+ :: CreativeDealIds
6447+creativeDealIds =
6448+ CreativeDealIds'
6449+ { _cdiKind = "adexchangebuyer#creativeDealIds"
6450+ , _cdiDealStatuses = Nothing
6451+ }
6452+
6453+-- | Resource type.
6454+cdiKind :: Lens' CreativeDealIds Text
6455+cdiKind = lens _cdiKind (\ s a -> s{_cdiKind = a})
6456+
6457+-- | A list of external deal ids and ARC approval status.
6458+cdiDealStatuses :: Lens' CreativeDealIds [CreativeDealIdsDealStatusesItem]
6459+cdiDealStatuses
6460+ = lens _cdiDealStatuses
6461+ (\ s a -> s{_cdiDealStatuses = a})
6462+ . _Default
6463+ . _Coerce
6464+
6465+instance FromJSON CreativeDealIds where
6466+ parseJSON
6467+ = withObject "CreativeDealIds"
6468+ (\ o ->
6469+ CreativeDealIds' <$>
6470+ (o .:? "kind" .!= "adexchangebuyer#creativeDealIds")
6471+ <*> (o .:? "dealStatuses" .!= mempty))
6472+
6473+instance ToJSON CreativeDealIds where
6474+ toJSON CreativeDealIds'{..}
6475+ = object
6476+ (catMaybes
6477+ [Just ("kind" .= _cdiKind),
6478+ ("dealStatuses" .=) <$> _cdiDealStatuses])
6479+
60636480--
60646481-- /See:/ 'marketplaceLabel' smart constructor.
60656482data MarketplaceLabel = MarketplaceLabel'
@@ -6233,9 +6650,11 @@ instance ToJSON AddOrderDealsRequest where
62336650--
62346651-- /See:/ 'dealServingMetadataDealPauseStatus' smart constructor.
62356652data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
6236− { _dsmdpsFirstPausedBy :: !(Maybe Text)
6237− , _dsmdpsHasBuyerPaused :: !(Maybe Bool)
6238− , _dsmdpsHasSellerPaused :: !(Maybe Bool)
6653+ { _dsmdpsFirstPausedBy :: !(Maybe Text)
6654+ , _dsmdpsBuyerPauseReason :: !(Maybe Text)
6655+ , _dsmdpsHasBuyerPaused :: !(Maybe Bool)
6656+ , _dsmdpsSellerPauseReason :: !(Maybe Text)
6657+ , _dsmdpsHasSellerPaused :: !(Maybe Bool)
62396658 } deriving (Eq,Show,Data,Typeable,Generic)
62406659
62416660-- | Creates a value of 'DealServingMetadataDealPauseStatus' with the minimum fields required to make a request.
@@ -6244,15 +6663,21 @@ data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
62446663--
62456664-- * 'dsmdpsFirstPausedBy'
62466665--
6666+-- * 'dsmdpsBuyerPauseReason'
6667+--
62476668-- * 'dsmdpsHasBuyerPaused'
62486669--
6670+-- * 'dsmdpsSellerPauseReason'
6671+--
62496672-- * 'dsmdpsHasSellerPaused'
62506673dealServingMetadataDealPauseStatus
62516674 :: DealServingMetadataDealPauseStatus
62526675dealServingMetadataDealPauseStatus =
62536676 DealServingMetadataDealPauseStatus'
62546677 { _dsmdpsFirstPausedBy = Nothing
6678+ , _dsmdpsBuyerPauseReason = Nothing
62556679 , _dsmdpsHasBuyerPaused = Nothing
6680+ , _dsmdpsSellerPauseReason = Nothing
62566681 , _dsmdpsHasSellerPaused = Nothing
62576682 }
62586683
@@ -6262,11 +6687,21 @@ dsmdpsFirstPausedBy
62626687 = lens _dsmdpsFirstPausedBy
62636688 (\ s a -> s{_dsmdpsFirstPausedBy = a})
62646689
6690+dsmdpsBuyerPauseReason :: Lens' DealServingMetadataDealPauseStatus (Maybe Text)
6691+dsmdpsBuyerPauseReason
6692+ = lens _dsmdpsBuyerPauseReason
6693+ (\ s a -> s{_dsmdpsBuyerPauseReason = a})
6694+
62656695dsmdpsHasBuyerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
62666696dsmdpsHasBuyerPaused
62676697 = lens _dsmdpsHasBuyerPaused
62686698 (\ s a -> s{_dsmdpsHasBuyerPaused = a})
62696699
6700+dsmdpsSellerPauseReason :: Lens' DealServingMetadataDealPauseStatus (Maybe Text)
6701+dsmdpsSellerPauseReason
6702+ = lens _dsmdpsSellerPauseReason
6703+ (\ s a -> s{_dsmdpsSellerPauseReason = a})
6704+
62706705dsmdpsHasSellerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
62716706dsmdpsHasSellerPaused
62726707 = lens _dsmdpsHasSellerPaused
@@ -6278,7 +6713,10 @@ instance FromJSON DealServingMetadataDealPauseStatus
62786713 = withObject "DealServingMetadataDealPauseStatus"
62796714 (\ o ->
62806715 DealServingMetadataDealPauseStatus' <$>
6281− (o .:? "firstPausedBy") <*> (o .:? "hasBuyerPaused")
6716+ (o .:? "firstPausedBy") <*>
6717+ (o .:? "buyerPauseReason")
6718+ <*> (o .:? "hasBuyerPaused")
6719+ <*> (o .:? "sellerPauseReason")
62826720 <*> (o .:? "hasSellerPaused"))
62836721
62846722instance ToJSON DealServingMetadataDealPauseStatus
@@ -6287,7 +6725,10 @@ instance ToJSON DealServingMetadataDealPauseStatus
62876725 = object
62886726 (catMaybes
62896727 [("firstPausedBy" .=) <$> _dsmdpsFirstPausedBy,
6728+ ("buyerPauseReason" .=) <$> _dsmdpsBuyerPauseReason,
62906729 ("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused,
6730+ ("sellerPauseReason" .=) <$>
6731+ _dsmdpsSellerPauseReason,
62916732 ("hasSellerPaused" .=) <$> _dsmdpsHasSellerPaused])
62926733
62936734--
@@ -6297,6 +6738,7 @@ data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms'
62976738 , _dtgfptGuaranteedImpressions :: !(Maybe (Textual Int64))
62986739 , _dtgfptBillingInfo :: !(Maybe DealTermsGuaranteedFixedPriceTermsBillingInfo)
62996740 , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
6741+ , _dtgfptMinimumDailyLooks :: !(Maybe (Textual Int64))
63006742 } deriving (Eq,Show,Data,Typeable,Generic)
63016743
63026744-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
@@ -6310,6 +6752,8 @@ data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms'
63106752-- * 'dtgfptBillingInfo'
63116753--
63126754-- * 'dtgfptFixedPrices'
6755+--
6756+-- * 'dtgfptMinimumDailyLooks'
63136757dealTermsGuaranteedFixedPriceTerms
63146758 :: DealTermsGuaranteedFixedPriceTerms
63156759dealTermsGuaranteedFixedPriceTerms =
@@ -6318,9 +6762,11 @@ dealTermsGuaranteedFixedPriceTerms =
63186762 , _dtgfptGuaranteedImpressions = Nothing
63196763 , _dtgfptBillingInfo = Nothing
63206764 , _dtgfptFixedPrices = Nothing
6765+ , _dtgfptMinimumDailyLooks = Nothing
63216766 }
63226767
6323−-- | Count of guaranteed looks. Required for deal, optional for product.
6768+-- | Count of guaranteed looks. Required for deal, optional for product. For
6769+-- CPD deals, buyer changes to guaranteed_looks will be ignored.
63246770dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
63256771dtgfptGuaranteedLooks
63266772 = lens _dtgfptGuaranteedLooks
@@ -6351,6 +6797,14 @@ dtgfptFixedPrices
63516797 . _Default
63526798 . _Coerce
63536799
6800+-- | Count of minimum daily looks for a CPD deal. For CPD deals, buyer should
6801+-- negotiate on this field instead of guaranteed_looks.
6802+dtgfptMinimumDailyLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
6803+dtgfptMinimumDailyLooks
6804+ = lens _dtgfptMinimumDailyLooks
6805+ (\ s a -> s{_dtgfptMinimumDailyLooks = a})
6806+ . mapping _Coerce
6807+
63546808instance FromJSON DealTermsGuaranteedFixedPriceTerms
63556809 where
63566810 parseJSON
@@ -6360,7 +6814,8 @@ instance FromJSON DealTermsGuaranteedFixedPriceTerms
63606814 (o .:? "guaranteedLooks") <*>
63616815 (o .:? "guaranteedImpressions")
63626816 <*> (o .:? "billingInfo")
6363− <*> (o .:? "fixedPrices" .!= mempty))
6817+ <*> (o .:? "fixedPrices" .!= mempty)
6818+ <*> (o .:? "minimumDailyLooks"))
63646819
63656820instance ToJSON DealTermsGuaranteedFixedPriceTerms
63666821 where
@@ -6371,4 +6826,6 @@ instance ToJSON DealTermsGuaranteedFixedPriceTerms
63716826 ("guaranteedImpressions" .=) <$>
63726827 _dtgfptGuaranteedImpressions,
63736828 ("billingInfo" .=) <$> _dtgfptBillingInfo,
6374− ("fixedPrices" .=) <$> _dtgfptFixedPrices])
6829+ ("fixedPrices" .=) <$> _dtgfptFixedPrices,
6830+ ("minimumDailyLooks" .=) <$>
6831+ _dtgfptMinimumDailyLooks])