@@ -1451,31 +1451,32 @@ instance ToJSON PricePerBuyer where
14511451--
14521452-- /See:/ 'creative' smart constructor.
14531453data Creative = Creative'
1454− { _cAttribute :: !(Maybe [Textual Int32])
1455− , _cNATiveAd :: !(Maybe CreativeNATiveAd)
1456− , _cHeight :: !(Maybe (Textual Int32))
1457− , _cBuyerCreativeId :: !(Maybe Text)
1458− , _cAdvertiserName :: !(Maybe Text)
1459− , _cAgencyId :: !(Maybe (Textual Int64))
1460− , _cCorrections :: !(Maybe [CreativeCorrectionsItem])
1461− , _cProductCategories :: !(Maybe [Textual Int32])
1462− , _cKind :: !Text
1463− , _cHTMLSnippet :: !(Maybe Text)
1464− , _cAdvertiserId :: !(Maybe [Textual Int64])
1465− , _cRestrictedCategories :: !(Maybe [Textual Int32])
1466− , _cDealsStatus :: !(Maybe Text)
1467− , _cWidth :: !(Maybe (Textual Int32))
1468− , _cClickThroughURL :: !(Maybe [Text])
1469− , _cVendorType :: !(Maybe [Textual Int32])
1470− , _cAccountId :: !(Maybe (Textual Int32))
1471− , _cImpressionTrackingURL :: !(Maybe [Text])
1472− , _cFilteringReasons :: !(Maybe CreativeFilteringReasons)
1473− , _cVersion :: !(Maybe (Textual Int32))
1474− , _cSensitiveCategories :: !(Maybe [Textual Int32])
1475− , _cVideoURL :: !(Maybe Text)
1476− , _cAPIUploadTimestamp :: !(Maybe DateTime')
1477− , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
1478− , _cOpenAuctionStatus :: !(Maybe Text)
1454+ { _cAttribute :: !(Maybe [Textual Int32])
1455+ , _cNATiveAd :: !(Maybe CreativeNATiveAd)
1456+ , _cHeight :: !(Maybe (Textual Int32))
1457+ , _cBuyerCreativeId :: !(Maybe Text)
1458+ , _cAdvertiserName :: !(Maybe Text)
1459+ , _cAdChoicesDestinationURL :: !(Maybe Text)
1460+ , _cAgencyId :: !(Maybe (Textual Int64))
1461+ , _cCorrections :: !(Maybe [CreativeCorrectionsItem])
1462+ , _cProductCategories :: !(Maybe [Textual Int32])
1463+ , _cKind :: !Text
1464+ , _cHTMLSnippet :: !(Maybe Text)
1465+ , _cAdvertiserId :: !(Maybe [Textual Int64])
1466+ , _cRestrictedCategories :: !(Maybe [Textual Int32])
1467+ , _cDealsStatus :: !(Maybe Text)
1468+ , _cWidth :: !(Maybe (Textual Int32))
1469+ , _cClickThroughURL :: !(Maybe [Text])
1470+ , _cVendorType :: !(Maybe [Textual Int32])
1471+ , _cAccountId :: !(Maybe (Textual Int32))
1472+ , _cImpressionTrackingURL :: !(Maybe [Text])
1473+ , _cFilteringReasons :: !(Maybe CreativeFilteringReasons)
1474+ , _cVersion :: !(Maybe (Textual Int32))
1475+ , _cSensitiveCategories :: !(Maybe [Textual Int32])
1476+ , _cVideoURL :: !(Maybe Text)
1477+ , _cAPIUploadTimestamp :: !(Maybe DateTime')
1478+ , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
1479+ , _cOpenAuctionStatus :: !(Maybe Text)
14791480 } deriving (Eq,Show,Data,Typeable,Generic)
14801481
14811482-- | Creates a value of 'Creative' with the minimum fields required to make a request.
@@ -1492,6 +1493,8 @@ data Creative = Creative'
14921493--
14931494-- * 'cAdvertiserName'
14941495--
1496+-- * 'cAdChoicesDestinationURL'
1497+--
14951498-- * 'cAgencyId'
14961499--
14971500-- * 'cCorrections'
@@ -1540,6 +1543,7 @@ creative =
15401543 , _cHeight = Nothing
15411544 , _cBuyerCreativeId = Nothing
15421545 , _cAdvertiserName = Nothing
1546+ , _cAdChoicesDestinationURL = Nothing
15431547 , _cAgencyId = Nothing
15441548 , _cCorrections = Nothing
15451549 , _cProductCategories = Nothing
@@ -1592,6 +1596,13 @@ cAdvertiserName
15921596 = lens _cAdvertiserName
15931597 (\ s a -> s{_cAdvertiserName = a})
15941598
1599+-- | The link to the Ad Preferences page. This is only supported for native
1600+-- ads.
1601+cAdChoicesDestinationURL :: Lens' Creative (Maybe Text)
1602+cAdChoicesDestinationURL
1603+ = lens _cAdChoicesDestinationURL
1604+ (\ s a -> s{_cAdChoicesDestinationURL = a})
1605+
15951606-- | The agency id for this creative.
15961607cAgencyId :: Lens' Creative (Maybe Int64)
15971608cAgencyId
@@ -1754,6 +1765,7 @@ instance FromJSON Creative where
17541765 <*> (o .:? "height")
17551766 <*> (o .:? "buyerCreativeId")
17561767 <*> (o .:? "advertiserName")
1768+ <*> (o .:? "adChoicesDestinationUrl")
17571769 <*> (o .:? "agencyId")
17581770 <*> (o .:? "corrections" .!= mempty)
17591771 <*> (o .:? "productCategories" .!= mempty)
@@ -1784,6 +1796,8 @@ instance ToJSON Creative where
17841796 ("height" .=) <$> _cHeight,
17851797 ("buyerCreativeId" .=) <$> _cBuyerCreativeId,
17861798 ("advertiserName" .=) <$> _cAdvertiserName,
1799+ ("adChoicesDestinationUrl" .=) <$>
1800+ _cAdChoicesDestinationURL,
17871801 ("agencyId" .=) <$> _cAgencyId,
17881802 ("corrections" .=) <$> _cCorrections,
17891803 ("productCategories" .=) <$> _cProductCategories,
@@ -3456,7 +3470,6 @@ data Proposal = Proposal'
34563470 , _pProposalId :: !(Maybe Text)
34573471 , _pName :: !(Maybe Text)
34583472 , _pSellerContacts :: !(Maybe [ContactInformation])
3459− , _pLastUpdaterRole :: !(Maybe Text)
34603473 , _pLabels :: !(Maybe [MarketplaceLabel])
34613474 , _pRevisionTimeMs :: !(Maybe (Textual Int64))
34623475 , _pProposalState :: !(Maybe Text)
@@ -3500,8 +3513,6 @@ data Proposal = Proposal'
35003513--
35013514-- * 'pSellerContacts'
35023515--
3503−-- * 'pLastUpdaterRole'
3504−--
35053516-- * 'pLabels'
35063517--
35073518-- * 'pRevisionTimeMs'
@@ -3534,7 +3545,6 @@ proposal =
35343545 , _pProposalId = Nothing
35353546 , _pName = Nothing
35363547 , _pSellerContacts = Nothing
3537− , _pLastUpdaterRole = Nothing
35383548 , _pLabels = Nothing
35393549 , _pRevisionTimeMs = Nothing
35403550 , _pProposalState = Nothing
@@ -3637,11 +3647,6 @@ pSellerContacts
36373647 . _Default
36383648 . _Coerce
36393649
3640−pLastUpdaterRole :: Lens' Proposal (Maybe Text)
3641−pLastUpdaterRole
3642− = lens _pLastUpdaterRole
3643− (\ s a -> s{_pLastUpdaterRole = a})
3644−
36453650-- | List of labels associated with the proposal. (readonly)
36463651pLabels :: Lens' Proposal [MarketplaceLabel]
36473652pLabels
@@ -3706,7 +3711,6 @@ instance FromJSON Proposal where
37063711 <*> (o .:? "proposalId")
37073712 <*> (o .:? "name")
37083713 <*> (o .:? "sellerContacts" .!= mempty)
3709− <*> (o .:? "lastUpdaterRole")
37103714 <*> (o .:? "labels" .!= mempty)
37113715 <*> (o .:? "revisionTimeMs")
37123716 <*> (o .:? "proposalState")
@@ -3734,7 +3738,6 @@ instance ToJSON Proposal where
37343738 ("proposalId" .=) <$> _pProposalId,
37353739 ("name" .=) <$> _pName,
37363740 ("sellerContacts" .=) <$> _pSellerContacts,
3737− ("lastUpdaterRole" .=) <$> _pLastUpdaterRole,
37383741 ("labels" .=) <$> _pLabels,
37393742 ("revisionTimeMs" .=) <$> _pRevisionTimeMs,
37403743 ("proposalState" .=) <$> _pProposalState,
@@ -6225,11 +6228,13 @@ instance ToJSON AddOrderDealsRequest where
62256228 _aProposalRevisionNumber])
62266229
62276230-- | Tracks which parties (if any) have paused a deal. The deal is considered
6228−-- paused if has_buyer_paused || has_seller_paused.
6231+-- paused if has_buyer_paused || has_seller_paused. Each of the
6232+-- has_buyer_paused or the has_seller_paused bits can be set independently.
62296233--
62306234-- /See:/ 'dealServingMetadataDealPauseStatus' smart constructor.
62316235data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
6232− { _dsmdpsHasBuyerPaused :: !(Maybe Bool)
6236+ { _dsmdpsFirstPausedBy :: !(Maybe Text)
6237+ , _dsmdpsHasBuyerPaused :: !(Maybe Bool)
62336238 , _dsmdpsHasSellerPaused :: !(Maybe Bool)
62346239 } deriving (Eq,Show,Data,Typeable,Generic)
62356240
@@ -6237,6 +6242,8 @@ data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus'
62376242--
62386243-- Use one of the following lenses to modify other fields as desired:
62396244--
6245+-- * 'dsmdpsFirstPausedBy'
6246+--
62406247-- * 'dsmdpsHasBuyerPaused'
62416248--
62426249-- * 'dsmdpsHasSellerPaused'
@@ -6244,10 +6251,17 @@ dealServingMetadataDealPauseStatus
62446251 :: DealServingMetadataDealPauseStatus
62456252dealServingMetadataDealPauseStatus =
62466253 DealServingMetadataDealPauseStatus'
6247− { _dsmdpsHasBuyerPaused = Nothing
6254+ { _dsmdpsFirstPausedBy = Nothing
6255+ , _dsmdpsHasBuyerPaused = Nothing
62486256 , _dsmdpsHasSellerPaused = Nothing
62496257 }
62506258
6259+-- | If the deal is paused, records which party paused the deal first.
6260+dsmdpsFirstPausedBy :: Lens' DealServingMetadataDealPauseStatus (Maybe Text)
6261+dsmdpsFirstPausedBy
6262+ = lens _dsmdpsFirstPausedBy
6263+ (\ s a -> s{_dsmdpsFirstPausedBy = a})
6264+
62516265dsmdpsHasBuyerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool)
62526266dsmdpsHasBuyerPaused
62536267 = lens _dsmdpsHasBuyerPaused
@@ -6264,15 +6278,16 @@ instance FromJSON DealServingMetadataDealPauseStatus
62646278 = withObject "DealServingMetadataDealPauseStatus"
62656279 (\ o ->
62666280 DealServingMetadataDealPauseStatus' <$>
6267− (o .:? "hasBuyerPaused") <*>
6268− (o .:? "hasSellerPaused"))
6281+ (o .:? "firstPausedBy") <*> (o .:? "hasBuyerPaused")
6282+ <*> (o .:? "hasSellerPaused"))
62696283
62706284instance ToJSON DealServingMetadataDealPauseStatus
62716285 where
62726286 toJSON DealServingMetadataDealPauseStatus'{..}
62736287 = object
62746288 (catMaybes
6275− [("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused,
6289+ [("firstPausedBy" .=) <$> _dsmdpsFirstPausedBy,
6290+ ("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused,
62766291 ("hasSellerPaused" .=) <$> _dsmdpsHasSellerPaused])
62776292
62786293--