@@ -139,7 +139,8 @@ instance ToJSON MarketplaceNote where
139 ("noteId" .=) <$> _mnNoteId,
139 ("noteId" .=) <$> _mnNoteId,
140 ("creatorRole" .=) <$> _mnCreatorRole])
140 ("creatorRole" .=) <$> _mnCreatorRole])
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.)
144-- /See:/ 'creativeNATiveAd' smart constructor.
145-- /See:/ 'creativeNATiveAd' smart constructor.
145data CreativeNATiveAd = CreativeNATiveAd'
146data CreativeNATiveAd = CreativeNATiveAd'
@@ -151,6 +152,7 @@ data CreativeNATiveAd = CreativeNATiveAd'
151 , _cnataImpressionTrackingURL :: !(Maybe [Text])
152 , _cnataImpressionTrackingURL :: !(Maybe [Text])
152 , _cnataCallToAction :: !(Maybe Text)
153 , _cnataCallToAction :: !(Maybe Text)
153 , _cnataStore :: !(Maybe Text)
154 , _cnataStore :: !(Maybe Text)
155+ , _cnataVideoURL :: !(Maybe Text)
154 , _cnataPrice :: !(Maybe Text)
156 , _cnataPrice :: !(Maybe Text)
155 , _cnataAdvertiser :: !(Maybe Text)
157 , _cnataAdvertiser :: !(Maybe Text)
156 , _cnataStarRating :: !(Maybe (Textual Double))
158 , _cnataStarRating :: !(Maybe (Textual Double))
@@ -177,6 +179,8 @@ data CreativeNATiveAd = CreativeNATiveAd'
178-- * 'cnataStore'
180-- * 'cnataStore'
180-- * 'cnataPrice'
184-- * 'cnataPrice'
182-- * 'cnataAdvertiser'
186-- * 'cnataAdvertiser'
@@ -196,6 +200,7 @@ creativeNATiveAd =
196 , _cnataImpressionTrackingURL = Nothing
200 , _cnataImpressionTrackingURL = Nothing
197 , _cnataCallToAction = Nothing
201 , _cnataCallToAction = Nothing
198 , _cnataStore = Nothing
202 , _cnataStore = Nothing
203+ , _cnataVideoURL = Nothing
199 , _cnataPrice = Nothing
204 , _cnataPrice = Nothing
200 , _cnataAdvertiser = Nothing
205 , _cnataAdvertiser = Nothing
201 , _cnataStarRating = Nothing
206 , _cnataStarRating = Nothing
@@ -248,6 +253,11 @@ cnataStore :: Lens' CreativeNATiveAd (Maybe Text)
248cnataStore
253cnataStore
249 = lens _cnataStore (\ s a -> s{_cnataStore = a})
254 = lens _cnataStore (\ s a -> s{_cnataStore = a})
256+cnataVideoURL :: Lens' CreativeNATiveAd (Maybe Text)
258+ = lens _cnataVideoURL
259+ (\ s a -> s{_cnataVideoURL = a})
251-- | The price of the promoted app including the currency info.
261-- | The price of the promoted app including the currency info.
252cnataPrice :: Lens' CreativeNATiveAd (Maybe Text)
262cnataPrice :: Lens' CreativeNATiveAd (Maybe Text)
253cnataPrice
263cnataPrice
@@ -282,6 +292,7 @@ instance FromJSON CreativeNATiveAd where
282 <*> (o .:? "impressionTrackingUrl" .!= mempty)
292 <*> (o .:? "impressionTrackingUrl" .!= mempty)
283 <*> (o .:? "callToAction")
293 <*> (o .:? "callToAction")
284 <*> (o .:? "store")
294 <*> (o .:? "store")
295+ <*> (o .:? "videoURL")
285 <*> (o .:? "price")
296 <*> (o .:? "price")
286 <*> (o .:? "advertiser")
297 <*> (o .:? "advertiser")
287 <*> (o .:? "starRating")
298 <*> (o .:? "starRating")
@@ -300,6 +311,7 @@ instance ToJSON CreativeNATiveAd where
300 _cnataImpressionTrackingURL,
311 _cnataImpressionTrackingURL,
301 ("callToAction" .=) <$> _cnataCallToAction,
312 ("callToAction" .=) <$> _cnataCallToAction,
302 ("store" .=) <$> _cnataStore,
313 ("store" .=) <$> _cnataStore,
314+ ("videoURL" .=) <$> _cnataVideoURL,
303 ("price" .=) <$> _cnataPrice,
315 ("price" .=) <$> _cnataPrice,
304 ("advertiser" .=) <$> _cnataAdvertiser,
316 ("advertiser" .=) <$> _cnataAdvertiser,
305 ("starRating" .=) <$> _cnataStarRating,
317 ("starRating" .=) <$> _cnataStarRating,
@@ -419,6 +431,68 @@ instance ToJSON CreativesList where
419 [("nextPageToken" .=) <$> _clNextPageToken,
431 [("nextPageToken" .=) <$> _clNextPageToken,
420 Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
432 Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
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)
442+-- | Creates a value of 'CreativeDealIdsDealStatusesItem' with the minimum fields required to make a request.
444+-- Use one of the following lenses to modify other fields as desired:
446+-- * 'cdidsiArcStatus'
448+-- * 'cdidsiWebPropertyId'
451+creativeDealIdsDealStatusesItem
452+ :: CreativeDealIdsDealStatusesItem
453+creativeDealIdsDealStatusesItem =
454+ CreativeDealIdsDealStatusesItem'
455+ { _cdidsiArcStatus = Nothing
456+ , _cdidsiWebPropertyId = Nothing
457+ , _cdidsiDealId = Nothing
460+-- | ARC approval status.
461+cdidsiArcStatus :: Lens' CreativeDealIdsDealStatusesItem (Maybe Text)
463+ = lens _cdidsiArcStatus
464+ (\ s a -> s{_cdidsiArcStatus = a})
467+cdidsiWebPropertyId :: Lens' CreativeDealIdsDealStatusesItem (Maybe Int32)
469+ = lens _cdidsiWebPropertyId
470+ (\ s a -> s{_cdidsiWebPropertyId = a})
473+-- | External deal ID.
474+cdidsiDealId :: Lens' CreativeDealIdsDealStatusesItem (Maybe Int64)
476+ = lens _cdidsiDealId (\ s a -> s{_cdidsiDealId = a})
479+instance FromJSON CreativeDealIdsDealStatusesItem
482+ = withObject "CreativeDealIdsDealStatusesItem"
484+ CreativeDealIdsDealStatusesItem' <$>
485+ (o .:? "arcStatus") <*> (o .:? "webPropertyId") <*>
488+instance ToJSON CreativeDealIdsDealStatusesItem where
489+ toJSON CreativeDealIdsDealStatusesItem'{..}
492+ [("arcStatus" .=) <$> _cdidsiArcStatus,
493+ ("webPropertyId" .=) <$> _cdidsiWebPropertyId,
494+ ("dealId" .=) <$> _cdidsiDealId])
423-- /See:/ 'creativeServingRestrictionsItemContextsItem' smart constructor.
497-- /See:/ 'creativeServingRestrictionsItemContextsItem' smart constructor.
424data CreativeServingRestrictionsItemContextsItem = CreativeServingRestrictionsItemContextsItem'
498data CreativeServingRestrictionsItemContextsItem = CreativeServingRestrictionsItemContextsItem'
@@ -921,7 +995,10 @@ getOrderNotesResponse =
921 { _gonrNotes = Nothing
995 { _gonrNotes = Nothing
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.
925gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
1002gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]
926gonrNotes
1003gonrNotes
927 = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
1004 = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .
@@ -1187,14 +1264,17 @@ instance ToJSON CreateOrdersRequest where
1188-- /See:/ 'creativeCorrectionsItem' smart constructor.
1265-- /See:/ 'creativeCorrectionsItem' smart constructor.
1189data CreativeCorrectionsItem = CreativeCorrectionsItem'
1266data CreativeCorrectionsItem = CreativeCorrectionsItem'
1267+ { _cciContexts :: !(Maybe [CreativeCorrectionsItemContextsItem])
1190− { _cciReason :: !(Maybe Text)
1268+ , _cciReason :: !(Maybe Text)
1191− , _cciDetails :: !(Maybe [Text])
1269+ , _cciDetails :: !(Maybe [Text])
1192 } deriving (Eq,Show,Data,Typeable,Generic)
1270 } deriving (Eq,Show,Data,Typeable,Generic)
1194-- | Creates a value of 'CreativeCorrectionsItem' with the minimum fields required to make a request.
1272-- | Creates a value of 'CreativeCorrectionsItem' with the minimum fields required to make a request.
1196-- Use one of the following lenses to modify other fields as desired:
1274-- Use one of the following lenses to modify other fields as desired:
1198-- * 'cciReason'
1278-- * 'cciReason'
1200-- * 'cciDetails'
1280-- * 'cciDetails'
@@ -1202,10 +1282,18 @@ creativeCorrectionsItem
1202 :: CreativeCorrectionsItem
1282 :: CreativeCorrectionsItem
1203creativeCorrectionsItem =
1283creativeCorrectionsItem =
1204 CreativeCorrectionsItem'
1284 CreativeCorrectionsItem'
1285+ { _cciContexts = Nothing
1205− { _cciReason = Nothing
1286+ , _cciReason = Nothing
1206 , _cciDetails = Nothing
1287 , _cciDetails = Nothing
1290+-- | All known serving contexts containing serving status information.
1291+cciContexts :: Lens' CreativeCorrectionsItem [CreativeCorrectionsItemContextsItem]
1293+ = lens _cciContexts (\ s a -> s{_cciContexts = a}) .
1209-- | The type of correction that was applied to the creative.
1297-- | The type of correction that was applied to the creative.
1210cciReason :: Lens' CreativeCorrectionsItem (Maybe Text)
1298cciReason :: Lens' CreativeCorrectionsItem (Maybe Text)
1211cciReason
1299cciReason
@@ -1223,15 +1311,67 @@ instance FromJSON CreativeCorrectionsItem where
1223 = withObject "CreativeCorrectionsItem"
1311 = withObject "CreativeCorrectionsItem"
1225 CreativeCorrectionsItem' <$>
1313 CreativeCorrectionsItem' <$>
1314+ (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
1226− (o .:? "reason") <*> (o .:? "details" .!= mempty))
1315+ <*> (o .:? "details" .!= mempty))
1228instance ToJSON CreativeCorrectionsItem where
1317instance ToJSON CreativeCorrectionsItem where
1229 toJSON CreativeCorrectionsItem'{..}
1318 toJSON CreativeCorrectionsItem'{..}
1230 = object
1319 = object
1231 (catMaybes
1320 (catMaybes
1321+ [("contexts" .=) <$> _cciContexts,
1232− [("reason" .=) <$> _cciReason,
1322+ ("reason" .=) <$> _cciReason,
1233 ("details" .=) <$> _cciDetails])
1323 ("details" .=) <$> _cciDetails])
1326+-- /See:/ 'dealTermsRubiconNonGuaranteedTerms' smart constructor.
1327+data DealTermsRubiconNonGuaranteedTerms = DealTermsRubiconNonGuaranteedTerms'
1328+ { _dtrngtPriorityPrice :: !(Maybe Price)
1329+ , _dtrngtStandardPrice :: !(Maybe Price)
1330+ } deriving (Eq,Show,Data,Typeable,Generic)
1332+-- | Creates a value of 'DealTermsRubiconNonGuaranteedTerms' with the minimum fields required to make a request.
1334+-- Use one of the following lenses to modify other fields as desired:
1336+-- * 'dtrngtPriorityPrice'
1338+-- * 'dtrngtStandardPrice'
1339+dealTermsRubiconNonGuaranteedTerms
1340+ :: DealTermsRubiconNonGuaranteedTerms
1341+dealTermsRubiconNonGuaranteedTerms =
1342+ DealTermsRubiconNonGuaranteedTerms'
1343+ { _dtrngtPriorityPrice = Nothing
1344+ , _dtrngtStandardPrice = Nothing
1347+-- | Optional price for Rubicon priority access in the auction.
1348+dtrngtPriorityPrice :: Lens' DealTermsRubiconNonGuaranteedTerms (Maybe Price)
1350+ = lens _dtrngtPriorityPrice
1351+ (\ s a -> s{_dtrngtPriorityPrice = a})
1353+-- | Optional price for Rubicon standard access in the auction.
1354+dtrngtStandardPrice :: Lens' DealTermsRubiconNonGuaranteedTerms (Maybe Price)
1356+ = lens _dtrngtStandardPrice
1357+ (\ s a -> s{_dtrngtStandardPrice = a})
1359+instance FromJSON DealTermsRubiconNonGuaranteedTerms
1362+ = withObject "DealTermsRubiconNonGuaranteedTerms"
1364+ DealTermsRubiconNonGuaranteedTerms' <$>
1365+ (o .:? "priorityPrice") <*> (o .:? "standardPrice"))
1367+instance ToJSON DealTermsRubiconNonGuaranteedTerms
1369+ toJSON DealTermsRubiconNonGuaranteedTerms'{..}
1372+ [("priorityPrice" .=) <$> _dtrngtPriorityPrice,
1373+ ("standardPrice" .=) <$> _dtrngtStandardPrice])
1236-- /See:/ 'dealServingMetadata' smart constructor.
1376-- /See:/ 'dealServingMetadata' smart constructor.
1237newtype DealServingMetadata = DealServingMetadata'
1377newtype DealServingMetadata = DealServingMetadata'
@@ -1467,6 +1607,7 @@ data Creative = Creative'
1467 , _cDealsStatus :: !(Maybe Text)
1607 , _cDealsStatus :: !(Maybe Text)
1468 , _cWidth :: !(Maybe (Textual Int32))
1608 , _cWidth :: !(Maybe (Textual Int32))
1469 , _cClickThroughURL :: !(Maybe [Text])
1609 , _cClickThroughURL :: !(Maybe [Text])
1610+ , _cLanguages :: !(Maybe [Text])
1470 , _cVendorType :: !(Maybe [Textual Int32])
1611 , _cVendorType :: !(Maybe [Textual Int32])
1471 , _cAccountId :: !(Maybe (Textual Int32))
1612 , _cAccountId :: !(Maybe (Textual Int32))
1472 , _cImpressionTrackingURL :: !(Maybe [Text])
1613 , _cImpressionTrackingURL :: !(Maybe [Text])
@@ -1476,6 +1617,7 @@ data Creative = Creative'
1476 , _cVideoURL :: !(Maybe Text)
1617 , _cVideoURL :: !(Maybe Text)
1477 , _cAPIUploadTimestamp :: !(Maybe DateTime')
1618 , _cAPIUploadTimestamp :: !(Maybe DateTime')
1478 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
1619 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
1620+ , _cDetectedDomains :: !(Maybe [Text])
1479 , _cOpenAuctionStatus :: !(Maybe Text)
1621 , _cOpenAuctionStatus :: !(Maybe Text)
1480 } deriving (Eq,Show,Data,Typeable,Generic)
1622 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -1515,6 +1657,8 @@ data Creative = Creative'
1516-- * 'cClickThroughURL'
1658-- * 'cClickThroughURL'
1518-- * 'cVendorType'
1662-- * 'cVendorType'
1520-- * 'cAccountId'
1664-- * 'cAccountId'
@@ -1533,6 +1677,8 @@ data Creative = Creative'
1534-- * 'cServingRestrictions'
1678-- * 'cServingRestrictions'
1680+-- * 'cDetectedDomains'
1536-- * 'cOpenAuctionStatus'
1682-- * 'cOpenAuctionStatus'
1538 :: Creative
1684 :: Creative
@@ -1554,6 +1700,7 @@ creative =
1554 , _cDealsStatus = Nothing
1700 , _cDealsStatus = Nothing
1555 , _cWidth = Nothing
1701 , _cWidth = Nothing
1556 , _cClickThroughURL = Nothing
1702 , _cClickThroughURL = Nothing
1703+ , _cLanguages = Nothing
1557 , _cVendorType = Nothing
1704 , _cVendorType = Nothing
1558 , _cAccountId = Nothing
1705 , _cAccountId = Nothing
1559 , _cImpressionTrackingURL = Nothing
1706 , _cImpressionTrackingURL = Nothing
@@ -1563,6 +1710,7 @@ creative =
1563 , _cVideoURL = Nothing
1710 , _cVideoURL = Nothing
1564 , _cAPIUploadTimestamp = Nothing
1711 , _cAPIUploadTimestamp = Nothing
1565 , _cServingRestrictions = Nothing
1712 , _cServingRestrictions = Nothing
1713+ , _cDetectedDomains = Nothing
1566 , _cOpenAuctionStatus = Nothing
1714 , _cOpenAuctionStatus = Nothing
@@ -1573,7 +1721,8 @@ cAttribute
1573 _Default
1721 _Default
1574 . _Coerce
1722 . _Coerce
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.)
1577cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd)
1726cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd)
1578cNATiveAd
1727cNATiveAd
1579 = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})
1728 = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})
@@ -1677,6 +1826,14 @@ cClickThroughURL
1677 . _Default
1826 . _Default
1678 . _Coerce
1827 . _Coerce
1829+-- | Detected languages for this creative. Read-only. This field should not
1830+-- be set in requests.
1831+cLanguages :: Lens' Creative [Text]
1833+ = lens _cLanguages (\ s a -> s{_cLanguages = a}) .
1680-- | All vendor types for the ads that may be shown from this snippet.
1837-- | All vendor types for the ads that may be shown from this snippet.
1681cVendorType :: Lens' Creative [Int32]
1838cVendorType :: Lens' Creative [Int32]
1682cVendorType
1839cVendorType
@@ -1721,7 +1878,9 @@ cSensitiveCategories
1721 . _Default
1878 . _Default
1722 . _Coerce
1879 . _Coerce
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
1725cVideoURL :: Lens' Creative (Maybe Text)
1884cVideoURL :: Lens' Creative (Maybe Text)
1726cVideoURL
1885cVideoURL
1727 = lens _cVideoURL (\ s a -> s{_cVideoURL = a})
1886 = lens _cVideoURL (\ s a -> s{_cVideoURL = a})
@@ -1746,6 +1905,15 @@ cServingRestrictions
1746 . _Default
1905 . _Default
1747 . _Coerce
1906 . _Coerce
1908+-- | Detected domains for this creative. Read-only. This field should not be
1910+cDetectedDomains :: Lens' Creative [Text]
1912+ = lens _cDetectedDomains
1913+ (\ s a -> s{_cDetectedDomains = a})
1749-- | Top-level open auction status. Read-only. This field should not be set
1917-- | Top-level open auction status. Read-only. This field should not be set
1750-- in requests. If disapproved, an entry for auctionType=OPEN_AUCTION (or
1918-- in requests. If disapproved, an entry for auctionType=OPEN_AUCTION (or
1751-- ALL) in servingRestrictions will also exist. Note that this may be
1919-- ALL) in servingRestrictions will also exist. Note that this may be
@@ -1776,6 +1944,7 @@ instance FromJSON Creative where
1776 <*> (o .:? "dealsStatus")
1944 <*> (o .:? "dealsStatus")
1777 <*> (o .:? "width")
1945 <*> (o .:? "width")
1778 <*> (o .:? "clickThroughUrl" .!= mempty)
1946 <*> (o .:? "clickThroughUrl" .!= mempty)
1947+ <*> (o .:? "languages" .!= mempty)
1779 <*> (o .:? "vendorType" .!= mempty)
1948 <*> (o .:? "vendorType" .!= mempty)
1780 <*> (o .:? "accountId")
1949 <*> (o .:? "accountId")
1781 <*> (o .:? "impressionTrackingUrl" .!= mempty)
1950 <*> (o .:? "impressionTrackingUrl" .!= mempty)
@@ -1785,6 +1954,7 @@ instance FromJSON Creative where
1785 <*> (o .:? "videoURL")
1954 <*> (o .:? "videoURL")
1786 <*> (o .:? "apiUploadTimestamp")
1955 <*> (o .:? "apiUploadTimestamp")
1787 <*> (o .:? "servingRestrictions" .!= mempty)
1956 <*> (o .:? "servingRestrictions" .!= mempty)
1957+ <*> (o .:? "detectedDomains" .!= mempty)
1788 <*> (o .:? "openAuctionStatus"))
1958 <*> (o .:? "openAuctionStatus"))
1790instance ToJSON Creative where
1960instance ToJSON Creative where
@@ -1809,6 +1979,7 @@ instance ToJSON Creative where
1809 ("dealsStatus" .=) <$> _cDealsStatus,
1979 ("dealsStatus" .=) <$> _cDealsStatus,
1810 ("width" .=) <$> _cWidth,
1980 ("width" .=) <$> _cWidth,
1811 ("clickThroughUrl" .=) <$> _cClickThroughURL,
1981 ("clickThroughUrl" .=) <$> _cClickThroughURL,
1982+ ("languages" .=) <$> _cLanguages,
1812 ("vendorType" .=) <$> _cVendorType,
1983 ("vendorType" .=) <$> _cVendorType,
1813 ("accountId" .=) <$> _cAccountId,
1984 ("accountId" .=) <$> _cAccountId,
1814 ("impressionTrackingUrl" .=) <$>
1985 ("impressionTrackingUrl" .=) <$>
@@ -1819,6 +1990,7 @@ instance ToJSON Creative where
1819 ("videoURL" .=) <$> _cVideoURL,
1990 ("videoURL" .=) <$> _cVideoURL,
1820 ("apiUploadTimestamp" .=) <$> _cAPIUploadTimestamp,
1991 ("apiUploadTimestamp" .=) <$> _cAPIUploadTimestamp,
1821 ("servingRestrictions" .=) <$> _cServingRestrictions,
1992 ("servingRestrictions" .=) <$> _cServingRestrictions,
1993+ ("detectedDomains" .=) <$> _cDetectedDomains,
1822 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
1994 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])
@@ -1910,8 +2082,9 @@ instance ToJSON TargetingValueDayPartTargetingDayPart
1911-- /See:/ 'dimensionDimensionValue' smart constructor.
2083-- /See:/ 'dimensionDimensionValue' smart constructor.
1912data DimensionDimensionValue = DimensionDimensionValue'
2084data DimensionDimensionValue = DimensionDimensionValue'
1913− { _ddvName :: !(Maybe Text)
2085+ { _ddvName :: !(Maybe Text)
2086+ , _ddvId :: !(Maybe (Textual Int32))
1914− , _ddvId :: !(Maybe (Textual Int32))
2087+ , _ddvPercentage :: !(Maybe (Textual Int32))
1915 } deriving (Eq,Show,Data,Typeable,Generic)
2088 } deriving (Eq,Show,Data,Typeable,Generic)
1917-- | Creates a value of 'DimensionDimensionValue' with the minimum fields required to make a request.
2090-- | Creates a value of 'DimensionDimensionValue' with the minimum fields required to make a request.
@@ -1921,15 +2094,19 @@ data DimensionDimensionValue = DimensionDimensionValue'
1921-- * 'ddvName'
2094-- * 'ddvName'
1923-- * 'ddvId'
2096-- * 'ddvId'
2098+-- * 'ddvPercentage'
1924dimensionDimensionValue
2099dimensionDimensionValue
1925 :: DimensionDimensionValue
2100 :: DimensionDimensionValue
1926dimensionDimensionValue =
2101dimensionDimensionValue =
1927 DimensionDimensionValue'
2102 DimensionDimensionValue'
1928 { _ddvName = Nothing
2103 { _ddvName = Nothing
1929 , _ddvId = Nothing
2104 , _ddvId = Nothing
2105+ , _ddvPercentage = Nothing
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.
1933ddvName :: Lens' DimensionDimensionValue (Maybe Text)
2110ddvName :: Lens' DimensionDimensionValue (Maybe Text)
1934ddvName = lens _ddvName (\ s a -> s{_ddvName = a})
2111ddvName = lens _ddvName (\ s a -> s{_ddvName = a})
@@ -1939,18 +2116,29 @@ ddvId
1939 = lens _ddvId (\ s a -> s{_ddvId = a}) .
2116 = lens _ddvId (\ s a -> s{_ddvId = a}) .
1940 mapping _Coerce
2117 mapping _Coerce
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)
2124+ = lens _ddvPercentage
2125+ (\ s a -> s{_ddvPercentage = a})
1942instance FromJSON DimensionDimensionValue where
2128instance FromJSON DimensionDimensionValue where
1943 parseJSON
2129 parseJSON
1944 = withObject "DimensionDimensionValue"
2130 = withObject "DimensionDimensionValue"
1946 DimensionDimensionValue' <$>
2132 DimensionDimensionValue' <$>
1947− (o .:? "name") <*> (o .:? "id"))
2133+ (o .:? "name") <*> (o .:? "id") <*>
2134+ (o .:? "percentage"))
1949instance ToJSON DimensionDimensionValue where
2136instance ToJSON DimensionDimensionValue where
1950 toJSON DimensionDimensionValue'{..}
2137 toJSON DimensionDimensionValue'{..}
1951 = object
2138 = object
1952 (catMaybes
2139 (catMaybes
1953− [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId])
2140+ [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId,
2141+ ("percentage" .=) <$> _ddvPercentage])
1956-- /See:/ 'pretargetingConfigList' smart constructor.
2144-- /See:/ 'pretargetingConfigList' smart constructor.
@@ -3271,6 +3459,7 @@ instance ToJSON CreativeFilteringReasons where
3271data TargetingValueCreativeSize = TargetingValueCreativeSize'
3459data TargetingValueCreativeSize = TargetingValueCreativeSize'
3272 { _tvcsSize :: !(Maybe TargetingValueSize)
3460 { _tvcsSize :: !(Maybe TargetingValueSize)
3273 , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])
3461 , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])
3462+ , _tvcsSkippableAdType :: !(Maybe Text)
3274 , _tvcsCreativeSizeType :: !(Maybe Text)
3463 , _tvcsCreativeSizeType :: !(Maybe Text)
3275 } deriving (Eq,Show,Data,Typeable,Generic)
3464 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -3282,6 +3471,8 @@ data TargetingValueCreativeSize = TargetingValueCreativeSize'
3283-- * 'tvcsCompanionSizes'
3472-- * 'tvcsCompanionSizes'
3474+-- * 'tvcsSkippableAdType'
3285-- * 'tvcsCreativeSizeType'
3476-- * 'tvcsCreativeSizeType'
3286targetingValueCreativeSize
3477targetingValueCreativeSize
3287 :: TargetingValueCreativeSize
3478 :: TargetingValueCreativeSize
@@ -3289,6 +3480,7 @@ targetingValueCreativeSize =
3289 TargetingValueCreativeSize'
3480 TargetingValueCreativeSize'
3290 { _tvcsSize = Nothing
3481 { _tvcsSize = Nothing
3291 , _tvcsCompanionSizes = Nothing
3482 , _tvcsCompanionSizes = Nothing
3483+ , _tvcsSkippableAdType = Nothing
3292 , _tvcsCreativeSizeType = Nothing
3484 , _tvcsCreativeSizeType = Nothing
@@ -3305,6 +3497,12 @@ tvcsCompanionSizes
3305 . _Default
3497 . _Default
3306 . _Coerce
3498 . _Coerce
3500+-- | The skippable ad type for video size.
3501+tvcsSkippableAdType :: Lens' TargetingValueCreativeSize (Maybe Text)
3503+ = lens _tvcsSkippableAdType
3504+ (\ s a -> s{_tvcsSkippableAdType = a})
3308-- | The Creative size type.
3506-- | The Creative size type.
3309tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
3507tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text)
3310tvcsCreativeSizeType
3508tvcsCreativeSizeType
@@ -3318,6 +3516,7 @@ instance FromJSON TargetingValueCreativeSize where
3318 TargetingValueCreativeSize' <$>
3516 TargetingValueCreativeSize' <$>
3319 (o .:? "size") <*>
3517 (o .:? "size") <*>
3320 (o .:? "companionSizes" .!= mempty)
3518 (o .:? "companionSizes" .!= mempty)
3519+ <*> (o .:? "skippableAdType")
3321 <*> (o .:? "creativeSizeType"))
3520 <*> (o .:? "creativeSizeType"))
3323instance ToJSON TargetingValueCreativeSize where
3522instance ToJSON TargetingValueCreativeSize where
@@ -3326,12 +3525,14 @@ instance ToJSON TargetingValueCreativeSize where
3326 (catMaybes
3525 (catMaybes
3327 [("size" .=) <$> _tvcsSize,
3526 [("size" .=) <$> _tvcsSize,
3328 ("companionSizes" .=) <$> _tvcsCompanionSizes,
3527 ("companionSizes" .=) <$> _tvcsCompanionSizes,
3528+ ("skippableAdType" .=) <$> _tvcsSkippableAdType,
3329 ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
3529 ("creativeSizeType" .=) <$> _tvcsCreativeSizeType])
3332-- /See:/ 'dealTermsGuaranteedFixedPriceTermsBillingInfo' smart constructor.
3532-- /See:/ 'dealTermsGuaranteedFixedPriceTermsBillingInfo' smart constructor.
3333data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPriceTermsBillingInfo'
3533data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPriceTermsBillingInfo'
3334 { _dtgfptbiCurrencyConversionTimeMs :: !(Maybe (Textual Int64))
3534 { _dtgfptbiCurrencyConversionTimeMs :: !(Maybe (Textual Int64))
3535+ , _dtgfptbiDfpLineItemId :: !(Maybe (Textual Int64))
3335 , _dtgfptbiPrice :: !(Maybe Price)
3536 , _dtgfptbiPrice :: !(Maybe Price)
3336 , _dtgfptbiOriginalContractedQuantity :: !(Maybe (Textual Int64))
3537 , _dtgfptbiOriginalContractedQuantity :: !(Maybe (Textual Int64))
3337 } deriving (Eq,Show,Data,Typeable,Generic)
3538 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -3342,6 +3543,8 @@ data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPri
3343-- * 'dtgfptbiCurrencyConversionTimeMs'
3544-- * 'dtgfptbiCurrencyConversionTimeMs'
3546+-- * 'dtgfptbiDfpLineItemId'
3345-- * 'dtgfptbiPrice'
3548-- * 'dtgfptbiPrice'
3347-- * 'dtgfptbiOriginalContractedQuantity'
3550-- * 'dtgfptbiOriginalContractedQuantity'
@@ -3350,6 +3553,7 @@ dealTermsGuaranteedFixedPriceTermsBillingInfo
3350dealTermsGuaranteedFixedPriceTermsBillingInfo =
3553dealTermsGuaranteedFixedPriceTermsBillingInfo =
3351 DealTermsGuaranteedFixedPriceTermsBillingInfo'
3554 DealTermsGuaranteedFixedPriceTermsBillingInfo'
3352 { _dtgfptbiCurrencyConversionTimeMs = Nothing
3555 { _dtgfptbiCurrencyConversionTimeMs = Nothing
3556+ , _dtgfptbiDfpLineItemId = Nothing
3353 , _dtgfptbiPrice = Nothing
3557 , _dtgfptbiPrice = Nothing
3354 , _dtgfptbiOriginalContractedQuantity = Nothing
3558 , _dtgfptbiOriginalContractedQuantity = Nothing
@@ -3364,6 +3568,14 @@ dtgfptbiCurrencyConversionTimeMs
3364 (\ s a -> s{_dtgfptbiCurrencyConversionTimeMs = a})
3568 (\ s a -> s{_dtgfptbiCurrencyConversionTimeMs = a})
3365 . mapping _Coerce
3569 . mapping _Coerce
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})
3367-- | The original reservation price for the deal, if the currency code is
3579-- | The original reservation price for the deal, if the currency code is
3368-- different from the one used in negotiation.
3580-- different from the one used in negotiation.
3369dtgfptbiPrice :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Price)
3581dtgfptbiPrice :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Price)
@@ -3372,8 +3584,9 @@ dtgfptbiPrice
3372 (\ s a -> s{_dtgfptbiPrice = a})
3584 (\ s a -> s{_dtgfptbiPrice = a})
3374-- | The original contracted quantity (# impressions) for this deal. To
3586-- | The original contracted quantity (# impressions) for this deal. To
3375−-- ensure delivery, sometimes publisher will book the deal with a
3587+-- ensure delivery, sometimes the publisher will book the deal with a
3588+-- impression buffer, such that guaranteed_looks is greater than the
3376−-- impression buffer, however clients are billed using the original
3589+-- contracted quantity. However clients are billed using the original
3377-- contracted quantity.
3590-- contracted quantity.
3378dtgfptbiOriginalContractedQuantity :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64)
3591dtgfptbiOriginalContractedQuantity :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64)
3379dtgfptbiOriginalContractedQuantity
3592dtgfptbiOriginalContractedQuantity
@@ -3389,7 +3602,8 @@ instance FromJSON
3390 DealTermsGuaranteedFixedPriceTermsBillingInfo' <$>
3603 DealTermsGuaranteedFixedPriceTermsBillingInfo' <$>
3391 (o .:? "currencyConversionTimeMs") <*>
3604 (o .:? "currencyConversionTimeMs") <*>
3605+ (o .:? "dfpLineItemId")
3392− (o .:? "price")
3606+ <*> (o .:? "price")
3393 <*> (o .:? "originalContractedQuantity"))
3607 <*> (o .:? "originalContractedQuantity"))
3395instance ToJSON
3609instance ToJSON
@@ -3400,6 +3614,7 @@ instance ToJSON
3400 (catMaybes
3614 (catMaybes
3401 [("currencyConversionTimeMs" .=) <$>
3615 [("currencyConversionTimeMs" .=) <$>
3402 _dtgfptbiCurrencyConversionTimeMs,
3616 _dtgfptbiCurrencyConversionTimeMs,
3617+ ("dfpLineItemId" .=) <$> _dtgfptbiDfpLineItemId,
3403 ("price" .=) <$> _dtgfptbiPrice,
3618 ("price" .=) <$> _dtgfptbiPrice,
3404 ("originalContractedQuantity" .=) <$>
3619 ("originalContractedQuantity" .=) <$>
3405 _dtgfptbiOriginalContractedQuantity])
3620 _dtgfptbiOriginalContractedQuantity])
@@ -3461,6 +3676,7 @@ data Proposal = Proposal'
3461 , _pBuyerContacts :: !(Maybe [ContactInformation])
3676 , _pBuyerContacts :: !(Maybe [ContactInformation])
3462 , _pKind :: !Text
3677 , _pKind :: !Text
3463 , _pOriginatorRole :: !(Maybe Text)
3678 , _pOriginatorRole :: !(Maybe Text)
3679+ , _pDBmAdvertiserIds :: !(Maybe [Text])
3464 , _pRevisionNumber :: !(Maybe (Textual Int64))
3680 , _pRevisionNumber :: !(Maybe (Textual Int64))
3465 , _pBilledBuyer :: !(Maybe Buyer)
3681 , _pBilledBuyer :: !(Maybe Buyer)
3466 , _pPrivateAuctionId :: !(Maybe Text)
3682 , _pPrivateAuctionId :: !(Maybe Text)
@@ -3495,6 +3711,8 @@ data Proposal = Proposal'
3496-- * 'pOriginatorRole'
3712-- * 'pOriginatorRole'
3714+-- * 'pDBmAdvertiserIds'
3498-- * 'pRevisionNumber'
3716-- * 'pRevisionNumber'
3500-- * 'pBilledBuyer'
3718-- * 'pBilledBuyer'
@@ -3536,6 +3754,7 @@ proposal =
3536 , _pBuyerContacts = Nothing
3754 , _pBuyerContacts = Nothing
3537 , _pKind = "adexchangebuyer#proposal"
3755 , _pKind = "adexchangebuyer#proposal"
3538 , _pOriginatorRole = Nothing
3756 , _pOriginatorRole = Nothing
3757+ , _pDBmAdvertiserIds = Nothing
3539 , _pRevisionNumber = Nothing
3758 , _pRevisionNumber = Nothing
3540 , _pBilledBuyer = Nothing
3759 , _pBilledBuyer = Nothing
3541 , _pPrivateAuctionId = Nothing
3760 , _pPrivateAuctionId = Nothing
@@ -3573,7 +3792,7 @@ pInventorySource
3573 = lens _pInventorySource
3792 = lens _pInventorySource
3574 (\ s a -> s{_pInventorySource = a})
3793 (\ s a -> s{_pInventorySource = a})
3576−-- | Optional contact information fort the buyer. (seller-readonly)
3795+-- | Optional contact information of the buyer. (seller-readonly)
3577pBuyerContacts :: Lens' Proposal [ContactInformation]
3796pBuyerContacts :: Lens' Proposal [ContactInformation]
3578pBuyerContacts
3797pBuyerContacts
3579 = lens _pBuyerContacts
3798 = lens _pBuyerContacts
@@ -3592,6 +3811,14 @@ pOriginatorRole
3592 = lens _pOriginatorRole
3811 = lens _pOriginatorRole
3593 (\ s a -> s{_pOriginatorRole = a})
3812 (\ s a -> s{_pOriginatorRole = a})
3814+-- | IDs of DBM advertisers permission to this proposal.
3815+pDBmAdvertiserIds :: Lens' Proposal [Text]
3817+ = lens _pDBmAdvertiserIds
3818+ (\ s a -> s{_pDBmAdvertiserIds = a})
3595-- | The revision number for the proposal (readonly).
3822-- | The revision number for the proposal (readonly).
3596pRevisionNumber :: Lens' Proposal (Maybe Int64)
3823pRevisionNumber :: Lens' Proposal (Maybe Int64)
3597pRevisionNumber
3824pRevisionNumber
@@ -3639,7 +3866,7 @@ pProposalId
3639pName :: Lens' Proposal (Maybe Text)
3866pName :: Lens' Proposal (Maybe Text)
3640pName = lens _pName (\ s a -> s{_pName = a})
3867pName = lens _pName (\ s a -> s{_pName = a})
3642−-- | Optional contact information for the seller (buyer-readonly).
3869+-- | Optional contact information of the seller (buyer-readonly).
3643pSellerContacts :: Lens' Proposal [ContactInformation]
3870pSellerContacts :: Lens' Proposal [ContactInformation]
3644pSellerContacts
3871pSellerContacts
3645 = lens _pSellerContacts
3872 = lens _pSellerContacts
@@ -3680,7 +3907,7 @@ pNegotiationId
3680 (\ s a -> s{_pNegotiationId = a})
3907 (\ s a -> s{_pNegotiationId = a})
3682-- | When an proposal is in an accepted state, indicates whether the buyer
3909-- | 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
3684-- can be finalized by the seller. (seller-readonly)
3911-- can be finalized by the seller. (seller-readonly)
3685pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool)
3912pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool)
3686pHasBuyerSignedOff
3913pHasBuyerSignedOff
@@ -3702,6 +3929,7 @@ instance FromJSON Proposal where
3702 <*> (o .:? "buyerContacts" .!= mempty)
3929 <*> (o .:? "buyerContacts" .!= mempty)
3703 <*> (o .:? "kind" .!= "adexchangebuyer#proposal")
3930 <*> (o .:? "kind" .!= "adexchangebuyer#proposal")
3704 <*> (o .:? "originatorRole")
3931 <*> (o .:? "originatorRole")
3932+ <*> (o .:? "dbmAdvertiserIds" .!= mempty)
3705 <*> (o .:? "revisionNumber")
3933 <*> (o .:? "revisionNumber")
3706 <*> (o .:? "billedBuyer")
3934 <*> (o .:? "billedBuyer")
3707 <*> (o .:? "privateAuctionId")
3935 <*> (o .:? "privateAuctionId")
@@ -3729,6 +3957,7 @@ instance ToJSON Proposal where
3729 ("buyerContacts" .=) <$> _pBuyerContacts,
3957 ("buyerContacts" .=) <$> _pBuyerContacts,
3730 Just ("kind" .= _pKind),
3958 Just ("kind" .= _pKind),
3731 ("originatorRole" .=) <$> _pOriginatorRole,
3959 ("originatorRole" .=) <$> _pOriginatorRole,
3960+ ("dbmAdvertiserIds" .=) <$> _pDBmAdvertiserIds,
3732 ("revisionNumber" .=) <$> _pRevisionNumber,
3961 ("revisionNumber" .=) <$> _pRevisionNumber,
3733 ("billedBuyer" .=) <$> _pBilledBuyer,
3962 ("billedBuyer" .=) <$> _pBilledBuyer,
3734 ("privateAuctionId" .=) <$> _pPrivateAuctionId,
3963 ("privateAuctionId" .=) <$> _pPrivateAuctionId,
@@ -4004,6 +4233,90 @@ instance ToJSON PretargetingConfigDimensionsItem
4004 [("height" .=) <$> _pcdiHeight,
4233 [("height" .=) <$> _pcdiHeight,
4005 ("width" .=) <$> _pcdiWidth])
4234 ("width" .=) <$> _pcdiWidth])
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)
4245+-- | Creates a value of 'CreativeCorrectionsItemContextsItem' with the minimum fields required to make a request.
4247+-- Use one of the following lenses to modify other fields as desired:
4249+-- * 'cciciPlatform'
4251+-- * 'cciciContextType'
4253+-- * 'cciciAuctionType'
4255+-- * 'cciciGeoCriteriaId'
4256+creativeCorrectionsItemContextsItem
4257+ :: CreativeCorrectionsItemContextsItem
4258+creativeCorrectionsItemContextsItem =
4259+ CreativeCorrectionsItemContextsItem'
4260+ { _cciciPlatform = Nothing
4261+ , _cciciContextType = Nothing
4262+ , _cciciAuctionType = Nothing
4263+ , _cciciGeoCriteriaId = Nothing
4266+-- | Only set when contextType=PLATFORM. Represents the platforms this
4267+-- correction applies to.
4268+cciciPlatform :: Lens' CreativeCorrectionsItemContextsItem [Text]
4270+ = lens _cciciPlatform
4271+ (\ s a -> s{_cciciPlatform = a})
4275+-- | The type of context (e.g., location, platform, auction type, SSL-ness).
4276+cciciContextType :: Lens' CreativeCorrectionsItemContextsItem (Maybe Text)
4278+ = lens _cciciContextType
4279+ (\ s a -> s{_cciciContextType = a})
4281+-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
4282+-- this correction applies to.
4283+cciciAuctionType :: Lens' CreativeCorrectionsItemContextsItem [Text]
4285+ = lens _cciciAuctionType
4286+ (\ s a -> s{_cciciAuctionType = a})
4290+-- | Only set when contextType=LOCATION. Represents the geo criterias this
4291+-- correction applies to.
4292+cciciGeoCriteriaId :: Lens' CreativeCorrectionsItemContextsItem [Int32]
4294+ = lens _cciciGeoCriteriaId
4295+ (\ s a -> s{_cciciGeoCriteriaId = a})
4299+instance FromJSON CreativeCorrectionsItemContextsItem
4302+ = withObject "CreativeCorrectionsItemContextsItem"
4304+ CreativeCorrectionsItemContextsItem' <$>
4305+ (o .:? "platform" .!= mempty) <*>
4306+ (o .:? "contextType")
4307+ <*> (o .:? "auctionType" .!= mempty)
4308+ <*> (o .:? "geoCriteriaId" .!= mempty))
4310+instance ToJSON CreativeCorrectionsItemContextsItem
4312+ toJSON CreativeCorrectionsItemContextsItem'{..}
4315+ [("platform" .=) <$> _cciciPlatform,
4316+ ("contextType" .=) <$> _cciciContextType,
4317+ ("auctionType" .=) <$> _cciciAuctionType,
4318+ ("geoCriteriaId" .=) <$> _cciciGeoCriteriaId])
4007-- | This message carries publisher provided forecasting information.
4320-- | This message carries publisher provided forecasting information.
4009-- /See:/ 'publisherProvidedForecast' smart constructor.
4322-- /See:/ 'publisherProvidedForecast' smart constructor.
@@ -4205,9 +4518,10 @@ instance ToJSON CreativeNATiveAdAppIcon where
4206-- /See:/ 'price' smart constructor.
4519-- /See:/ 'price' smart constructor.
4207data Price = Price'
4520data Price = Price'
4208− { _pCurrencyCode :: !(Maybe Text)
4521+ { _pCurrencyCode :: !(Maybe Text)
4209− , _pAmountMicros :: !(Maybe (Textual Double))
4522+ , _pAmountMicros :: !(Maybe (Textual Double))
4210− , _pPricingType :: !(Maybe Text)
4523+ , _pPricingType :: !(Maybe Text)
4524+ , _pExpectedCpmMicros :: !(Maybe (Textual Double))
4211 } deriving (Eq,Show,Data,Typeable,Generic)
4525 } deriving (Eq,Show,Data,Typeable,Generic)
4213-- | Creates a value of 'Price' with the minimum fields required to make a request.
4527-- | Creates a value of 'Price' with the minimum fields required to make a request.
@@ -4219,6 +4533,8 @@ data Price = Price'
4219-- * 'pAmountMicros'
4533-- * 'pAmountMicros'
4221-- * 'pPricingType'
4535-- * 'pPricingType'
4537+-- * 'pExpectedCpmMicros'
4223 :: Price
4539 :: Price
@@ -4226,6 +4542,7 @@ price =
4226 { _pCurrencyCode = Nothing
4542 { _pCurrencyCode = Nothing
4227 , _pAmountMicros = Nothing
4543 , _pAmountMicros = Nothing
4228 , _pPricingType = Nothing
4544 , _pPricingType = Nothing
4545+ , _pExpectedCpmMicros = Nothing
4231-- | The currency code for the price.
4548-- | The currency code for the price.
@@ -4246,13 +4563,21 @@ pPricingType :: Lens' Price (Maybe Text)
4246pPricingType
4563pPricingType
4247 = lens _pPricingType (\ s a -> s{_pPricingType = a})
4564 = lens _pPricingType (\ s a -> s{_pPricingType = a})
4566+-- | In case of CPD deals, the expected CPM in micros.
4567+pExpectedCpmMicros :: Lens' Price (Maybe Double)
4569+ = lens _pExpectedCpmMicros
4570+ (\ s a -> s{_pExpectedCpmMicros = a})
4249instance FromJSON Price where
4573instance FromJSON Price where
4250 parseJSON
4574 parseJSON
4251 = withObject "Price"
4575 = withObject "Price"
4253 Price' <$>
4577 Price' <$>
4254 (o .:? "currencyCode") <*> (o .:? "amountMicros") <*>
4578 (o .:? "currencyCode") <*> (o .:? "amountMicros") <*>
4255− (o .:? "pricingType"))
4579+ (o .:? "pricingType")
4580+ <*> (o .:? "expectedCpmMicros"))
4257instance ToJSON Price where
4582instance ToJSON Price where
4258 toJSON Price'{..}
4583 toJSON Price'{..}
@@ -4260,7 +4585,8 @@ instance ToJSON Price where
4260 (catMaybes
4585 (catMaybes
4261 [("currencyCode" .=) <$> _pCurrencyCode,
4586 [("currencyCode" .=) <$> _pCurrencyCode,
4262 ("amountMicros" .=) <$> _pAmountMicros,
4587 ("amountMicros" .=) <$> _pAmountMicros,
4263− ("pricingType" .=) <$> _pPricingType])
4588+ ("pricingType" .=) <$> _pPricingType,
4589+ ("expectedCpmMicros" .=) <$> _pExpectedCpmMicros])
4266-- /See:/ 'pretargetingConfigVideoPlayerSizesItem' smart constructor.
4592-- /See:/ 'pretargetingConfigVideoPlayerSizesItem' smart constructor.
@@ -5478,6 +5804,7 @@ data MarketplaceDeal = MarketplaceDeal'
5478 , _mdDealServingMetadata :: !(Maybe DealServingMetadata)
5804 , _mdDealServingMetadata :: !(Maybe DealServingMetadata)
5479 , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
5805 , _mdFlightStartTimeMs :: !(Maybe (Textual Int64))
5480 , _mdSharedTargetings :: !(Maybe [SharedTargeting])
5806 , _mdSharedTargetings :: !(Maybe [SharedTargeting])
5807+ , _mdIsRfpTemplate :: !(Maybe Bool)
5481 , _mdProposalId :: !(Maybe Text)
5808 , _mdProposalId :: !(Maybe Text)
5482 , _mdDealId :: !(Maybe Text)
5809 , _mdDealId :: !(Maybe Text)
5483 , _mdInventoryDescription :: !(Maybe Text)
5810 , _mdInventoryDescription :: !(Maybe Text)
@@ -5518,6 +5845,8 @@ data MarketplaceDeal = MarketplaceDeal'
5519-- * 'mdSharedTargetings'
5846-- * 'mdSharedTargetings'
5848+-- * 'mdIsRfpTemplate'
5521-- * 'mdProposalId'
5850-- * 'mdProposalId'
5523-- * 'mdDealId'
5852-- * 'mdDealId'
@@ -5556,6 +5885,7 @@ marketplaceDeal =
5556 , _mdDealServingMetadata = Nothing
5885 , _mdDealServingMetadata = Nothing
5557 , _mdFlightStartTimeMs = Nothing
5886 , _mdFlightStartTimeMs = Nothing
5558 , _mdSharedTargetings = Nothing
5887 , _mdSharedTargetings = Nothing
5888+ , _mdIsRfpTemplate = Nothing
5559 , _mdProposalId = Nothing
5889 , _mdProposalId = Nothing
5560 , _mdDealId = Nothing
5890 , _mdDealId = Nothing
5561 , _mdInventoryDescription = Nothing
5891 , _mdInventoryDescription = Nothing
@@ -5644,11 +5974,18 @@ mdSharedTargetings
5644 . _Default
5974 . _Default
5645 . _Coerce
5975 . _Coerce
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)
5981+ = lens _mdIsRfpTemplate
5982+ (\ s a -> s{_mdIsRfpTemplate = a})
5647mdProposalId :: Lens' MarketplaceDeal (Maybe Text)
5984mdProposalId :: Lens' MarketplaceDeal (Maybe Text)
5648mdProposalId
5985mdProposalId
5649 = lens _mdProposalId (\ s a -> s{_mdProposalId = a})
5986 = lens _mdProposalId (\ s a -> s{_mdProposalId = a})
5651−-- | A unique deal=id for the deal (readonly).
5988+-- | A unique deal-id for the deal (readonly).
5652mdDealId :: Lens' MarketplaceDeal (Maybe Text)
5989mdDealId :: Lens' MarketplaceDeal (Maybe Text)
5653mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
5990mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
@@ -5736,6 +6073,7 @@ instance FromJSON MarketplaceDeal where
5736 <*> (o .:? "dealServingMetadata")
6073 <*> (o .:? "dealServingMetadata")
5737 <*> (o .:? "flightStartTimeMs")
6074 <*> (o .:? "flightStartTimeMs")
5738 <*> (o .:? "sharedTargetings" .!= mempty)
6075 <*> (o .:? "sharedTargetings" .!= mempty)
6076+ <*> (o .:? "isRfpTemplate")
5739 <*> (o .:? "proposalId")
6077 <*> (o .:? "proposalId")
5740 <*> (o .:? "dealId")
6078 <*> (o .:? "dealId")
5741 <*> (o .:? "inventoryDescription")
6079 <*> (o .:? "inventoryDescription")
@@ -5765,6 +6103,7 @@ instance ToJSON MarketplaceDeal where
5765 _mdDealServingMetadata,
6103 _mdDealServingMetadata,
5766 ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
6104 ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
5767 ("sharedTargetings" .=) <$> _mdSharedTargetings,
6105 ("sharedTargetings" .=) <$> _mdSharedTargetings,
6106+ ("isRfpTemplate" .=) <$> _mdIsRfpTemplate,
5768 ("proposalId" .=) <$> _mdProposalId,
6107 ("proposalId" .=) <$> _mdProposalId,
5769 ("dealId" .=) <$> _mdDealId,
6108 ("dealId" .=) <$> _mdDealId,
5770 ("inventoryDescription" .=) <$>
6109 ("inventoryDescription" .=) <$>
@@ -5933,14 +6272,16 @@ instance ToJSON CreativeFilteringReasonsReasonsItem
5934-- /See:/ 'dealTerms' smart constructor.
6273-- /See:/ 'dealTerms' smart constructor.
5935data DealTerms = DealTerms'
6274data DealTerms = DealTerms'
5936− { _dtEstimatedGrossSpend :: !(Maybe Price)
6275+ { _dtEstimatedGrossSpend :: !(Maybe Price)
5937− , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
6276+ , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)
5938− , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
6277+ , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)
6278+ , _dtRubiconNonGuaranteedTerms :: !(Maybe DealTermsRubiconNonGuaranteedTerms)
5939− , _dtBrandingType :: !(Maybe Text)
6279+ , _dtBrandingType :: !(Maybe Text)
6280+ , _dtCrossListedExternalDealIdType :: !(Maybe Text)
5940− , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
6281+ , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64))
5941− , _dtSellerTimeZone :: !(Maybe Text)
6282+ , _dtSellerTimeZone :: !(Maybe Text)
5942− , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
6283+ , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)
5943− , _dtDescription :: !(Maybe Text)
6284+ , _dtDescription :: !(Maybe Text)
5944 } deriving (Eq,Show,Data,Typeable,Generic)
6285 } deriving (Eq,Show,Data,Typeable,Generic)
5946-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
6287-- | Creates a value of 'DealTerms' with the minimum fields required to make a request.
@@ -5953,8 +6294,12 @@ data DealTerms = DealTerms'
5954-- * 'dtNonGuaranteedAuctionTerms'
6295-- * 'dtNonGuaranteedAuctionTerms'
6297+-- * 'dtRubiconNonGuaranteedTerms'
5956-- * 'dtBrandingType'
6299-- * 'dtBrandingType'
6301+-- * 'dtCrossListedExternalDealIdType'
5958-- * 'dtEstimatedImpressionsPerDay'
6303-- * 'dtEstimatedImpressionsPerDay'
5960-- * 'dtSellerTimeZone'
6305-- * 'dtSellerTimeZone'
@@ -5969,7 +6314,9 @@ dealTerms =
5969 { _dtEstimatedGrossSpend = Nothing
6314 { _dtEstimatedGrossSpend = Nothing
5970 , _dtNonGuaranteedFixedPriceTerms = Nothing
6315 , _dtNonGuaranteedFixedPriceTerms = Nothing
5971 , _dtNonGuaranteedAuctionTerms = Nothing
6316 , _dtNonGuaranteedAuctionTerms = Nothing
6317+ , _dtRubiconNonGuaranteedTerms = Nothing
5972 , _dtBrandingType = Nothing
6318 , _dtBrandingType = Nothing
6319+ , _dtCrossListedExternalDealIdType = Nothing
5973 , _dtEstimatedImpressionsPerDay = Nothing
6320 , _dtEstimatedImpressionsPerDay = Nothing
5974 , _dtSellerTimeZone = Nothing
6321 , _dtSellerTimeZone = Nothing
5975 , _dtGuaranteedFixedPriceTerms = Nothing
6322 , _dtGuaranteedFixedPriceTerms = Nothing
@@ -5995,12 +6342,26 @@ dtNonGuaranteedAuctionTerms
5995 = lens _dtNonGuaranteedAuctionTerms
6342 = lens _dtNonGuaranteedAuctionTerms
5996 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
6343 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})
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})
5998-- | Visibilty of the URL in bid requests.
6351-- | Visibilty of the URL in bid requests.
5999dtBrandingType :: Lens' DealTerms (Maybe Text)
6352dtBrandingType :: Lens' DealTerms (Maybe Text)
6000dtBrandingType
6353dtBrandingType
6001 = lens _dtBrandingType
6354 = lens _dtBrandingType
6002 (\ s a -> s{_dtBrandingType = a})
6355 (\ s a -> s{_dtBrandingType = a})
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})
6004-- | Non-binding estimate of the impressions served per day Can be set by
6365-- | Non-binding estimate of the impressions served per day Can be set by
6005-- buyer or seller.
6366-- buyer or seller.
6006dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64)
6367dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64)
@@ -6036,7 +6397,9 @@ instance FromJSON DealTerms where
6036 (o .:? "estimatedGrossSpend") <*>
6397 (o .:? "estimatedGrossSpend") <*>
6037 (o .:? "nonGuaranteedFixedPriceTerms")
6398 (o .:? "nonGuaranteedFixedPriceTerms")
6038 <*> (o .:? "nonGuaranteedAuctionTerms")
6399 <*> (o .:? "nonGuaranteedAuctionTerms")
6400+ <*> (o .:? "rubiconNonGuaranteedTerms")
6039 <*> (o .:? "brandingType")
6401 <*> (o .:? "brandingType")
6402+ <*> (o .:? "crossListedExternalDealIdType")
6040 <*> (o .:? "estimatedImpressionsPerDay")
6403 <*> (o .:? "estimatedImpressionsPerDay")
6041 <*> (o .:? "sellerTimeZone")
6404 <*> (o .:? "sellerTimeZone")
6042 <*> (o .:? "guaranteedFixedPriceTerms")
6405 <*> (o .:? "guaranteedFixedPriceTerms")
@@ -6052,7 +6415,11 @@ instance ToJSON DealTerms where
6052 _dtNonGuaranteedFixedPriceTerms,
6415 _dtNonGuaranteedFixedPriceTerms,
6053 ("nonGuaranteedAuctionTerms" .=) <$>
6416 ("nonGuaranteedAuctionTerms" .=) <$>
6054 _dtNonGuaranteedAuctionTerms,
6417 _dtNonGuaranteedAuctionTerms,
6418+ ("rubiconNonGuaranteedTerms" .=) <$>
6419+ _dtRubiconNonGuaranteedTerms,
6055 ("brandingType" .=) <$> _dtBrandingType,
6420 ("brandingType" .=) <$> _dtBrandingType,
6421+ ("crossListedExternalDealIdType" .=) <$>
6422+ _dtCrossListedExternalDealIdType,
6056 ("estimatedImpressionsPerDay" .=) <$>
6423 ("estimatedImpressionsPerDay" .=) <$>
6057 _dtEstimatedImpressionsPerDay,
6424 _dtEstimatedImpressionsPerDay,
6058 ("sellerTimeZone" .=) <$> _dtSellerTimeZone,
6425 ("sellerTimeZone" .=) <$> _dtSellerTimeZone,
@@ -6060,6 +6427,56 @@ instance ToJSON DealTerms where
6060 _dtGuaranteedFixedPriceTerms,
6427 _dtGuaranteedFixedPriceTerms,
6061 ("description" .=) <$> _dtDescription])
6428 ("description" .=) <$> _dtDescription])
6430+-- | The external deal ids associated with a creative.
6432+-- /See:/ 'creativeDealIds' smart constructor.
6433+data CreativeDealIds = CreativeDealIds'
6434+ { _cdiKind :: !Text
6435+ , _cdiDealStatuses :: !(Maybe [CreativeDealIdsDealStatusesItem])
6436+ } deriving (Eq,Show,Data,Typeable,Generic)
6438+-- | Creates a value of 'CreativeDealIds' with the minimum fields required to make a request.
6440+-- Use one of the following lenses to modify other fields as desired:
6444+-- * 'cdiDealStatuses'
6449+ { _cdiKind = "adexchangebuyer#creativeDealIds"
6450+ , _cdiDealStatuses = Nothing
6454+cdiKind :: Lens' CreativeDealIds Text
6455+cdiKind = lens _cdiKind (\ s a -> s{_cdiKind = a})
6457+-- | A list of external deal ids and ARC approval status.
6458+cdiDealStatuses :: Lens' CreativeDealIds [CreativeDealIdsDealStatusesItem]
6460+ = lens _cdiDealStatuses
6461+ (\ s a -> s{_cdiDealStatuses = a})
6465+instance FromJSON CreativeDealIds where
6467+ = withObject "CreativeDealIds"
6469+ CreativeDealIds' <$>
6470+ (o .:? "kind" .!= "adexchangebuyer#creativeDealIds")
6471+ <*> (o .:? "dealStatuses" .!= mempty))
6473+instance ToJSON CreativeDealIds where
6474+ toJSON CreativeDealIds'{..}
6477+ [Just ("kind" .= _cdiKind),
6478+ ("dealStatuses" .=) <$> _cdiDealStatuses])
6064-- /See:/ 'marketplaceLabel' smart constructor.
6481-- /See:/ 'marketplaceLabel' smart constructor.
6065data MarketplaceLabel = MarketplaceLabel'
6482data MarketplaceLabel = MarketplaceLabel'
@@ -6233,9 +6650,11 @@ instance ToJSON AddOrderDealsRequest where
6234-- /See:/ 'dealServingMetadataDealPauseStatus' smart constructor.
6651-- /See:/ 'dealServingMetadataDealPauseStatus' smart constructor.
6235data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
6652data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
6236− { _dsmdpsFirstPausedBy :: !(Maybe Text)
6653+ { _dsmdpsFirstPausedBy :: !(Maybe Text)
6654+ , _dsmdpsBuyerPauseReason :: !(Maybe Text)
6237− , _dsmdpsHasBuyerPaused :: !(Maybe Bool)
6655+ , _dsmdpsHasBuyerPaused :: !(Maybe Bool)
6656+ , _dsmdpsSellerPauseReason :: !(Maybe Text)
6238− , _dsmdpsHasSellerPaused :: !(Maybe Bool)
6657+ , _dsmdpsHasSellerPaused :: !(Maybe Bool)
6239 } deriving (Eq,Show,Data,Typeable,Generic)
6658 } deriving (Eq,Show,Data,Typeable,Generic)
6241-- | Creates a value of 'DealServingMetadataDealPauseStatus' with the minimum fields required to make a request.
6660-- | Creates a value of 'DealServingMetadataDealPauseStatus' with the minimum fields required to make a request.
@@ -6244,15 +6663,21 @@ data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
6245-- * 'dsmdpsFirstPausedBy'
6664-- * 'dsmdpsFirstPausedBy'
6666+-- * 'dsmdpsBuyerPauseReason'
6247-- * 'dsmdpsHasBuyerPaused'
6668-- * 'dsmdpsHasBuyerPaused'
6670+-- * 'dsmdpsSellerPauseReason'
6249-- * 'dsmdpsHasSellerPaused'
6672-- * 'dsmdpsHasSellerPaused'
6250dealServingMetadataDealPauseStatus
6673dealServingMetadataDealPauseStatus
6251 :: DealServingMetadataDealPauseStatus
6674 :: DealServingMetadataDealPauseStatus
6252dealServingMetadataDealPauseStatus =
6675dealServingMetadataDealPauseStatus =
6253 DealServingMetadataDealPauseStatus'
6676 DealServingMetadataDealPauseStatus'
6254 { _dsmdpsFirstPausedBy = Nothing
6677 { _dsmdpsFirstPausedBy = Nothing
6678+ , _dsmdpsBuyerPauseReason = Nothing
6255 , _dsmdpsHasBuyerPaused = Nothing
6679 , _dsmdpsHasBuyerPaused = Nothing
6680+ , _dsmdpsSellerPauseReason = Nothing
6256 , _dsmdpsHasSellerPaused = Nothing
6681 , _dsmdpsHasSellerPaused = Nothing
@@ -6262,11 +6687,21 @@ dsmdpsFirstPausedBy
6262 = lens _dsmdpsFirstPausedBy
6687 = lens _dsmdpsFirstPausedBy
6263 (\ s a -> s{_dsmdpsFirstPausedBy = a})
6688 (\ s a -> s{_dsmdpsFirstPausedBy = a})
6690+dsmdpsBuyerPauseReason :: Lens' DealServingMetadataDealPauseStatus (Maybe Text)
6691+dsmdpsBuyerPauseReason
6692+ = lens _dsmdpsBuyerPauseReason
6693+ (\ s a -> s{_dsmdpsBuyerPauseReason = a})
6265dsmdpsHasBuyerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
6695dsmdpsHasBuyerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
6266dsmdpsHasBuyerPaused
6696dsmdpsHasBuyerPaused
6267 = lens _dsmdpsHasBuyerPaused
6697 = lens _dsmdpsHasBuyerPaused
6268 (\ s a -> s{_dsmdpsHasBuyerPaused = a})
6698 (\ s a -> s{_dsmdpsHasBuyerPaused = a})
6700+dsmdpsSellerPauseReason :: Lens' DealServingMetadataDealPauseStatus (Maybe Text)
6701+dsmdpsSellerPauseReason
6702+ = lens _dsmdpsSellerPauseReason
6703+ (\ s a -> s{_dsmdpsSellerPauseReason = a})
6270dsmdpsHasSellerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
6705dsmdpsHasSellerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
6271dsmdpsHasSellerPaused
6706dsmdpsHasSellerPaused
6272 = lens _dsmdpsHasSellerPaused
6707 = lens _dsmdpsHasSellerPaused
@@ -6278,7 +6713,10 @@ instance FromJSON DealServingMetadataDealPauseStatus
6278 = withObject "DealServingMetadataDealPauseStatus"
6713 = withObject "DealServingMetadataDealPauseStatus"
6280 DealServingMetadataDealPauseStatus' <$>
6715 DealServingMetadataDealPauseStatus' <$>
6716+ (o .:? "firstPausedBy") <*>
6717+ (o .:? "buyerPauseReason")
6281− (o .:? "firstPausedBy") <*> (o .:? "hasBuyerPaused")
6718+ <*> (o .:? "hasBuyerPaused")
6719+ <*> (o .:? "sellerPauseReason")
6282 <*> (o .:? "hasSellerPaused"))
6720 <*> (o .:? "hasSellerPaused"))
6284instance ToJSON DealServingMetadataDealPauseStatus
6722instance ToJSON DealServingMetadataDealPauseStatus
@@ -6287,7 +6725,10 @@ instance ToJSON DealServingMetadataDealPauseStatus
6287 = object
6725 = object
6288 (catMaybes
6726 (catMaybes
6289 [("firstPausedBy" .=) <$> _dsmdpsFirstPausedBy,
6727 [("firstPausedBy" .=) <$> _dsmdpsFirstPausedBy,
6728+ ("buyerPauseReason" .=) <$> _dsmdpsBuyerPauseReason,
6290 ("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused,
6729 ("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused,
6730+ ("sellerPauseReason" .=) <$>
6731+ _dsmdpsSellerPauseReason,
6291 ("hasSellerPaused" .=) <$> _dsmdpsHasSellerPaused])
6732 ("hasSellerPaused" .=) <$> _dsmdpsHasSellerPaused])
@@ -6297,6 +6738,7 @@ data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms'
6297 , _dtgfptGuaranteedImpressions :: !(Maybe (Textual Int64))
6738 , _dtgfptGuaranteedImpressions :: !(Maybe (Textual Int64))
6298 , _dtgfptBillingInfo :: !(Maybe DealTermsGuaranteedFixedPriceTermsBillingInfo)
6739 , _dtgfptBillingInfo :: !(Maybe DealTermsGuaranteedFixedPriceTermsBillingInfo)
6299 , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
6740 , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])
6741+ , _dtgfptMinimumDailyLooks :: !(Maybe (Textual Int64))
6300 } deriving (Eq,Show,Data,Typeable,Generic)
6742 } deriving (Eq,Show,Data,Typeable,Generic)
6302-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
6744-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.
@@ -6310,6 +6752,8 @@ data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms'
6310-- * 'dtgfptBillingInfo'
6752-- * 'dtgfptBillingInfo'
6312-- * 'dtgfptFixedPrices'
6754-- * 'dtgfptFixedPrices'
6756+-- * 'dtgfptMinimumDailyLooks'
6313dealTermsGuaranteedFixedPriceTerms
6757dealTermsGuaranteedFixedPriceTerms
6314 :: DealTermsGuaranteedFixedPriceTerms
6758 :: DealTermsGuaranteedFixedPriceTerms
6315dealTermsGuaranteedFixedPriceTerms =
6759dealTermsGuaranteedFixedPriceTerms =
@@ -6318,9 +6762,11 @@ dealTermsGuaranteedFixedPriceTerms =
6318 , _dtgfptGuaranteedImpressions = Nothing
6762 , _dtgfptGuaranteedImpressions = Nothing
6319 , _dtgfptBillingInfo = Nothing
6763 , _dtgfptBillingInfo = Nothing
6320 , _dtgfptFixedPrices = Nothing
6764 , _dtgfptFixedPrices = Nothing
6765+ , _dtgfptMinimumDailyLooks = Nothing
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.
6324dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
6770dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64)
6325dtgfptGuaranteedLooks
6771dtgfptGuaranteedLooks
6326 = lens _dtgfptGuaranteedLooks
6772 = lens _dtgfptGuaranteedLooks
@@ -6351,6 +6797,14 @@ dtgfptFixedPrices
6351 . _Default
6797 . _Default
6352 . _Coerce
6798 . _Coerce
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})
6354instance FromJSON DealTermsGuaranteedFixedPriceTerms
6808instance FromJSON DealTermsGuaranteedFixedPriceTerms
6356 parseJSON
6810 parseJSON
@@ -6360,7 +6814,8 @@ instance FromJSON DealTermsGuaranteedFixedPriceTerms
6360 (o .:? "guaranteedLooks") <*>
6814 (o .:? "guaranteedLooks") <*>
6361 (o .:? "guaranteedImpressions")
6815 (o .:? "guaranteedImpressions")
6362 <*> (o .:? "billingInfo")
6816 <*> (o .:? "billingInfo")
6363− <*> (o .:? "fixedPrices" .!= mempty))
6817+ <*> (o .:? "fixedPrices" .!= mempty)
6818+ <*> (o .:? "minimumDailyLooks"))
6365instance ToJSON DealTermsGuaranteedFixedPriceTerms
6820instance ToJSON DealTermsGuaranteedFixedPriceTerms
@@ -6371,4 +6826,6 @@ instance ToJSON DealTermsGuaranteedFixedPriceTerms
6371 ("guaranteedImpressions" .=) <$>
6826 ("guaranteedImpressions" .=) <$>
6372 _dtgfptGuaranteedImpressions,
6827 _dtgfptGuaranteedImpressions,
6373 ("billingInfo" .=) <$> _dtgfptBillingInfo,
6828 ("billingInfo" .=) <$> _dtgfptBillingInfo,
6374− ("fixedPrices" .=) <$> _dtgfptFixedPrices])
6829+ ("fixedPrices" .=) <$> _dtgfptFixedPrices,
6830+ ("minimumDailyLooks" .=) <$>
6831+ _dtgfptMinimumDailyLooks])