diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.0` +`0.1.1` ## Description diff --git a/gen/Network/Google/AdExchangeBuyer.hs b/gen/Network/Google/AdExchangeBuyer.hs --- a/gen/Network/Google/AdExchangeBuyer.hs +++ b/gen/Network/Google/AdExchangeBuyer.hs @@ -70,6 +70,9 @@ -- ** adexchangebuyer.creatives.list , module Network.Google.Resource.AdExchangeBuyer.Creatives.List + -- ** adexchangebuyer.creatives.listDeals + , module Network.Google.Resource.AdExchangeBuyer.Creatives.ListDeals + -- ** adexchangebuyer.creatives.removeDeal , module Network.Google.Resource.AdExchangeBuyer.Creatives.RemoveDeal @@ -167,6 +170,7 @@ , cnataImpressionTrackingURL , cnataCallToAction , cnataStore + , cnataVideoURL , cnataPrice , cnataAdvertiser , cnataStarRating @@ -185,6 +189,13 @@ , clKind , clItems + -- ** CreativeDealIdsDealStatusesItem + , CreativeDealIdsDealStatusesItem + , creativeDealIdsDealStatusesItem + , cdidsiArcStatus + , cdidsiWebPropertyId + , cdidsiDealId + -- ** CreativeServingRestrictionsItemContextsItem , CreativeServingRestrictionsItemContextsItem , creativeServingRestrictionsItemContextsItem @@ -277,9 +288,16 @@ -- ** CreativeCorrectionsItem , CreativeCorrectionsItem , creativeCorrectionsItem + , cciContexts , cciReason , cciDetails + -- ** DealTermsRubiconNonGuaranteedTerms + , DealTermsRubiconNonGuaranteedTerms + , dealTermsRubiconNonGuaranteedTerms + , dtrngtPriorityPrice + , dtrngtStandardPrice + -- ** DealServingMetadata , DealServingMetadata , dealServingMetadata @@ -324,6 +342,7 @@ , cDealsStatus , cWidth , cClickThroughURL + , cLanguages , cVendorType , cAccountId , cImpressionTrackingURL @@ -333,6 +352,7 @@ , cVideoURL , cAPIUploadTimestamp , cServingRestrictions + , cDetectedDomains , cOpenAuctionStatus -- ** TargetingValueDayPartTargetingDayPart @@ -349,6 +369,7 @@ , dimensionDimensionValue , ddvName , ddvId + , ddvPercentage -- ** PretargetingConfigList , PretargetingConfigList @@ -484,12 +505,14 @@ , targetingValueCreativeSize , tvcsSize , tvcsCompanionSizes + , tvcsSkippableAdType , tvcsCreativeSizeType -- ** DealTermsGuaranteedFixedPriceTermsBillingInfo , DealTermsGuaranteedFixedPriceTermsBillingInfo , dealTermsGuaranteedFixedPriceTermsBillingInfo , dtgfptbiCurrencyConversionTimeMs + , dtgfptbiDfpLineItemId , dtgfptbiPrice , dtgfptbiOriginalContractedQuantity @@ -507,6 +530,7 @@ , pBuyerContacts , pKind , pOriginatorRole + , pDBmAdvertiserIds , pRevisionNumber , pBilledBuyer , pPrivateAuctionId @@ -555,6 +579,14 @@ , pcdiHeight , pcdiWidth + -- ** CreativeCorrectionsItemContextsItem + , CreativeCorrectionsItemContextsItem + , creativeCorrectionsItemContextsItem + , cciciPlatform + , cciciContextType + , cciciAuctionType + , cciciGeoCriteriaId + -- ** PublisherProvidedForecast , PublisherProvidedForecast , publisherProvidedForecast @@ -583,6 +615,7 @@ , pCurrencyCode , pAmountMicros , pPricingType + , pExpectedCpmMicros -- ** PretargetingConfigVideoPlayerSizesItem , PretargetingConfigVideoPlayerSizesItem @@ -714,6 +747,7 @@ , mdDealServingMetadata , mdFlightStartTimeMs , mdSharedTargetings + , mdIsRfpTemplate , mdProposalId , mdDealId , mdInventoryDescription @@ -756,12 +790,20 @@ , dtEstimatedGrossSpend , dtNonGuaranteedFixedPriceTerms , dtNonGuaranteedAuctionTerms + , dtRubiconNonGuaranteedTerms , dtBrandingType + , dtCrossListedExternalDealIdType , dtEstimatedImpressionsPerDay , dtSellerTimeZone , dtGuaranteedFixedPriceTerms , dtDescription + -- ** CreativeDealIds + , CreativeDealIds + , creativeDealIds + , cdiKind + , cdiDealStatuses + -- ** MarketplaceLabel , MarketplaceLabel , marketplaceLabel @@ -789,7 +831,9 @@ , DealServingMetadataDealPauseStatus , dealServingMetadataDealPauseStatus , dsmdpsFirstPausedBy + , dsmdpsBuyerPauseReason , dsmdpsHasBuyerPaused + , dsmdpsSellerPauseReason , dsmdpsHasSellerPaused -- ** DealTermsGuaranteedFixedPriceTerms @@ -799,6 +843,7 @@ , dtgfptGuaranteedImpressions , dtgfptBillingInfo , dtgfptFixedPrices + , dtgfptMinimumDailyLooks ) where import Network.Google.AdExchangeBuyer.Types @@ -816,6 +861,7 @@ import Network.Google.Resource.AdExchangeBuyer.Creatives.Get import Network.Google.Resource.AdExchangeBuyer.Creatives.Insert import Network.Google.Resource.AdExchangeBuyer.Creatives.List +import Network.Google.Resource.AdExchangeBuyer.Creatives.ListDeals import Network.Google.Resource.AdExchangeBuyer.Creatives.RemoveDeal import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert @@ -865,6 +911,7 @@ :<|> CreativesInsertResource :<|> CreativesRemoveDealResource :<|> CreativesListResource + :<|> CreativesListDealsResource :<|> CreativesGetResource :<|> CreativesAddDealResource :<|> PerformanceReportListResource diff --git a/gen/Network/Google/AdExchangeBuyer/Types.hs b/gen/Network/Google/AdExchangeBuyer/Types.hs --- a/gen/Network/Google/AdExchangeBuyer/Types.hs +++ b/gen/Network/Google/AdExchangeBuyer/Types.hs @@ -45,6 +45,7 @@ , cnataImpressionTrackingURL , cnataCallToAction , cnataStore + , cnataVideoURL , cnataPrice , cnataAdvertiser , cnataStarRating @@ -63,6 +64,13 @@ , clKind , clItems + -- * CreativeDealIdsDealStatusesItem + , CreativeDealIdsDealStatusesItem + , creativeDealIdsDealStatusesItem + , cdidsiArcStatus + , cdidsiWebPropertyId + , cdidsiDealId + -- * CreativeServingRestrictionsItemContextsItem , CreativeServingRestrictionsItemContextsItem , creativeServingRestrictionsItemContextsItem @@ -155,9 +163,16 @@ -- * CreativeCorrectionsItem , CreativeCorrectionsItem , creativeCorrectionsItem + , cciContexts , cciReason , cciDetails + -- * DealTermsRubiconNonGuaranteedTerms + , DealTermsRubiconNonGuaranteedTerms + , dealTermsRubiconNonGuaranteedTerms + , dtrngtPriorityPrice + , dtrngtStandardPrice + -- * DealServingMetadata , DealServingMetadata , dealServingMetadata @@ -202,6 +217,7 @@ , cDealsStatus , cWidth , cClickThroughURL + , cLanguages , cVendorType , cAccountId , cImpressionTrackingURL @@ -211,6 +227,7 @@ , cVideoURL , cAPIUploadTimestamp , cServingRestrictions + , cDetectedDomains , cOpenAuctionStatus -- * TargetingValueDayPartTargetingDayPart @@ -227,6 +244,7 @@ , dimensionDimensionValue , ddvName , ddvId + , ddvPercentage -- * PretargetingConfigList , PretargetingConfigList @@ -362,12 +380,14 @@ , targetingValueCreativeSize , tvcsSize , tvcsCompanionSizes + , tvcsSkippableAdType , tvcsCreativeSizeType -- * DealTermsGuaranteedFixedPriceTermsBillingInfo , DealTermsGuaranteedFixedPriceTermsBillingInfo , dealTermsGuaranteedFixedPriceTermsBillingInfo , dtgfptbiCurrencyConversionTimeMs + , dtgfptbiDfpLineItemId , dtgfptbiPrice , dtgfptbiOriginalContractedQuantity @@ -385,6 +405,7 @@ , pBuyerContacts , pKind , pOriginatorRole + , pDBmAdvertiserIds , pRevisionNumber , pBilledBuyer , pPrivateAuctionId @@ -433,6 +454,14 @@ , pcdiHeight , pcdiWidth + -- * CreativeCorrectionsItemContextsItem + , CreativeCorrectionsItemContextsItem + , creativeCorrectionsItemContextsItem + , cciciPlatform + , cciciContextType + , cciciAuctionType + , cciciGeoCriteriaId + -- * PublisherProvidedForecast , PublisherProvidedForecast , publisherProvidedForecast @@ -461,6 +490,7 @@ , pCurrencyCode , pAmountMicros , pPricingType + , pExpectedCpmMicros -- * PretargetingConfigVideoPlayerSizesItem , PretargetingConfigVideoPlayerSizesItem @@ -592,6 +622,7 @@ , mdDealServingMetadata , mdFlightStartTimeMs , mdSharedTargetings + , mdIsRfpTemplate , mdProposalId , mdDealId , mdInventoryDescription @@ -634,12 +665,20 @@ , dtEstimatedGrossSpend , dtNonGuaranteedFixedPriceTerms , dtNonGuaranteedAuctionTerms + , dtRubiconNonGuaranteedTerms , dtBrandingType + , dtCrossListedExternalDealIdType , dtEstimatedImpressionsPerDay , dtSellerTimeZone , dtGuaranteedFixedPriceTerms , dtDescription + -- * CreativeDealIds + , CreativeDealIds + , creativeDealIds + , cdiKind + , cdiDealStatuses + -- * MarketplaceLabel , MarketplaceLabel , marketplaceLabel @@ -667,7 +706,9 @@ , DealServingMetadataDealPauseStatus , dealServingMetadataDealPauseStatus , dsmdpsFirstPausedBy + , dsmdpsBuyerPauseReason , dsmdpsHasBuyerPaused + , dsmdpsSellerPauseReason , dsmdpsHasSellerPaused -- * DealTermsGuaranteedFixedPriceTerms @@ -677,6 +718,7 @@ , dtgfptGuaranteedImpressions , dtgfptBillingInfo , dtgfptFixedPrices + , dtgfptMinimumDailyLooks ) where import Network.Google.AdExchangeBuyer.Types.Product diff --git a/gen/Network/Google/AdExchangeBuyer/Types/Product.hs b/gen/Network/Google/AdExchangeBuyer/Types/Product.hs --- a/gen/Network/Google/AdExchangeBuyer/Types/Product.hs +++ b/gen/Network/Google/AdExchangeBuyer/Types/Product.hs @@ -139,7 +139,8 @@ ("noteId" .=) <$> _mnNoteId, ("creatorRole" .=) <$> _mnCreatorRole]) --- | If nativeAd is set, HTMLSnippet and videoURL should not be set. +-- | If nativeAd is set, HTMLSnippet and the videoURL outside of nativeAd +-- should not be set. (The videoURL inside nativeAd can be set.) -- -- /See:/ 'creativeNATiveAd' smart constructor. data CreativeNATiveAd = CreativeNATiveAd' @@ -151,6 +152,7 @@ , _cnataImpressionTrackingURL :: !(Maybe [Text]) , _cnataCallToAction :: !(Maybe Text) , _cnataStore :: !(Maybe Text) + , _cnataVideoURL :: !(Maybe Text) , _cnataPrice :: !(Maybe Text) , _cnataAdvertiser :: !(Maybe Text) , _cnataStarRating :: !(Maybe (Textual Double)) @@ -177,6 +179,8 @@ -- -- * 'cnataStore' -- +-- * 'cnataVideoURL' +-- -- * 'cnataPrice' -- -- * 'cnataAdvertiser' @@ -196,6 +200,7 @@ , _cnataImpressionTrackingURL = Nothing , _cnataCallToAction = Nothing , _cnataStore = Nothing + , _cnataVideoURL = Nothing , _cnataPrice = Nothing , _cnataAdvertiser = Nothing , _cnataStarRating = Nothing @@ -248,6 +253,11 @@ cnataStore = lens _cnataStore (\ s a -> s{_cnataStore = a}) +cnataVideoURL :: Lens' CreativeNATiveAd (Maybe Text) +cnataVideoURL + = lens _cnataVideoURL + (\ s a -> s{_cnataVideoURL = a}) + -- | The price of the promoted app including the currency info. cnataPrice :: Lens' CreativeNATiveAd (Maybe Text) cnataPrice @@ -282,6 +292,7 @@ <*> (o .:? "impressionTrackingUrl" .!= mempty) <*> (o .:? "callToAction") <*> (o .:? "store") + <*> (o .:? "videoURL") <*> (o .:? "price") <*> (o .:? "advertiser") <*> (o .:? "starRating") @@ -300,6 +311,7 @@ _cnataImpressionTrackingURL, ("callToAction" .=) <$> _cnataCallToAction, ("store" .=) <$> _cnataStore, + ("videoURL" .=) <$> _cnataVideoURL, ("price" .=) <$> _cnataPrice, ("advertiser" .=) <$> _cnataAdvertiser, ("starRating" .=) <$> _cnataStarRating, @@ -420,6 +432,68 @@ Just ("kind" .= _clKind), ("items" .=) <$> _clItems]) -- +-- /See:/ 'creativeDealIdsDealStatusesItem' smart constructor. +data CreativeDealIdsDealStatusesItem = CreativeDealIdsDealStatusesItem' + { _cdidsiArcStatus :: !(Maybe Text) + , _cdidsiWebPropertyId :: !(Maybe (Textual Int32)) + , _cdidsiDealId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeDealIdsDealStatusesItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cdidsiArcStatus' +-- +-- * 'cdidsiWebPropertyId' +-- +-- * 'cdidsiDealId' +creativeDealIdsDealStatusesItem + :: CreativeDealIdsDealStatusesItem +creativeDealIdsDealStatusesItem = + CreativeDealIdsDealStatusesItem' + { _cdidsiArcStatus = Nothing + , _cdidsiWebPropertyId = Nothing + , _cdidsiDealId = Nothing + } + +-- | ARC approval status. +cdidsiArcStatus :: Lens' CreativeDealIdsDealStatusesItem (Maybe Text) +cdidsiArcStatus + = lens _cdidsiArcStatus + (\ s a -> s{_cdidsiArcStatus = a}) + +-- | Publisher ID. +cdidsiWebPropertyId :: Lens' CreativeDealIdsDealStatusesItem (Maybe Int32) +cdidsiWebPropertyId + = lens _cdidsiWebPropertyId + (\ s a -> s{_cdidsiWebPropertyId = a}) + . mapping _Coerce + +-- | External deal ID. +cdidsiDealId :: Lens' CreativeDealIdsDealStatusesItem (Maybe Int64) +cdidsiDealId + = lens _cdidsiDealId (\ s a -> s{_cdidsiDealId = a}) + . mapping _Coerce + +instance FromJSON CreativeDealIdsDealStatusesItem + where + parseJSON + = withObject "CreativeDealIdsDealStatusesItem" + (\ o -> + CreativeDealIdsDealStatusesItem' <$> + (o .:? "arcStatus") <*> (o .:? "webPropertyId") <*> + (o .:? "dealId")) + +instance ToJSON CreativeDealIdsDealStatusesItem where + toJSON CreativeDealIdsDealStatusesItem'{..} + = object + (catMaybes + [("arcStatus" .=) <$> _cdidsiArcStatus, + ("webPropertyId" .=) <$> _cdidsiWebPropertyId, + ("dealId" .=) <$> _cdidsiDealId]) + +-- -- /See:/ 'creativeServingRestrictionsItemContextsItem' smart constructor. data CreativeServingRestrictionsItemContextsItem = CreativeServingRestrictionsItemContextsItem' { _csriciPlatform :: !(Maybe [Text]) @@ -921,7 +995,10 @@ { _gonrNotes = Nothing } --- | The list of matching notes. +-- | The list of matching notes. The notes for a proposal are ordered from +-- oldest to newest. If the notes span multiple proposals, they will be +-- grouped by proposal, with the notes for the most recently modified +-- proposal appearing first. gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote] gonrNotes = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) . @@ -1187,14 +1264,17 @@ -- -- /See:/ 'creativeCorrectionsItem' smart constructor. data CreativeCorrectionsItem = CreativeCorrectionsItem' - { _cciReason :: !(Maybe Text) - , _cciDetails :: !(Maybe [Text]) + { _cciContexts :: !(Maybe [CreativeCorrectionsItemContextsItem]) + , _cciReason :: !(Maybe Text) + , _cciDetails :: !(Maybe [Text]) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'CreativeCorrectionsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'cciContexts' +-- -- * 'cciReason' -- -- * 'cciDetails' @@ -1202,10 +1282,18 @@ :: CreativeCorrectionsItem creativeCorrectionsItem = CreativeCorrectionsItem' - { _cciReason = Nothing + { _cciContexts = Nothing + , _cciReason = Nothing , _cciDetails = Nothing } +-- | All known serving contexts containing serving status information. +cciContexts :: Lens' CreativeCorrectionsItem [CreativeCorrectionsItemContextsItem] +cciContexts + = lens _cciContexts (\ s a -> s{_cciContexts = a}) . + _Default + . _Coerce + -- | The type of correction that was applied to the creative. cciReason :: Lens' CreativeCorrectionsItem (Maybe Text) cciReason @@ -1223,16 +1311,68 @@ = withObject "CreativeCorrectionsItem" (\ o -> CreativeCorrectionsItem' <$> - (o .:? "reason") <*> (o .:? "details" .!= mempty)) + (o .:? "contexts" .!= mempty) <*> (o .:? "reason") + <*> (o .:? "details" .!= mempty)) instance ToJSON CreativeCorrectionsItem where toJSON CreativeCorrectionsItem'{..} = object (catMaybes - [("reason" .=) <$> _cciReason, + [("contexts" .=) <$> _cciContexts, + ("reason" .=) <$> _cciReason, ("details" .=) <$> _cciDetails]) -- +-- /See:/ 'dealTermsRubiconNonGuaranteedTerms' smart constructor. +data DealTermsRubiconNonGuaranteedTerms = DealTermsRubiconNonGuaranteedTerms' + { _dtrngtPriorityPrice :: !(Maybe Price) + , _dtrngtStandardPrice :: !(Maybe Price) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealTermsRubiconNonGuaranteedTerms' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtrngtPriorityPrice' +-- +-- * 'dtrngtStandardPrice' +dealTermsRubiconNonGuaranteedTerms + :: DealTermsRubiconNonGuaranteedTerms +dealTermsRubiconNonGuaranteedTerms = + DealTermsRubiconNonGuaranteedTerms' + { _dtrngtPriorityPrice = Nothing + , _dtrngtStandardPrice = Nothing + } + +-- | Optional price for Rubicon priority access in the auction. +dtrngtPriorityPrice :: Lens' DealTermsRubiconNonGuaranteedTerms (Maybe Price) +dtrngtPriorityPrice + = lens _dtrngtPriorityPrice + (\ s a -> s{_dtrngtPriorityPrice = a}) + +-- | Optional price for Rubicon standard access in the auction. +dtrngtStandardPrice :: Lens' DealTermsRubiconNonGuaranteedTerms (Maybe Price) +dtrngtStandardPrice + = lens _dtrngtStandardPrice + (\ s a -> s{_dtrngtStandardPrice = a}) + +instance FromJSON DealTermsRubiconNonGuaranteedTerms + where + parseJSON + = withObject "DealTermsRubiconNonGuaranteedTerms" + (\ o -> + DealTermsRubiconNonGuaranteedTerms' <$> + (o .:? "priorityPrice") <*> (o .:? "standardPrice")) + +instance ToJSON DealTermsRubiconNonGuaranteedTerms + where + toJSON DealTermsRubiconNonGuaranteedTerms'{..} + = object + (catMaybes + [("priorityPrice" .=) <$> _dtrngtPriorityPrice, + ("standardPrice" .=) <$> _dtrngtStandardPrice]) + +-- -- /See:/ 'dealServingMetadata' smart constructor. newtype DealServingMetadata = DealServingMetadata' { _dsmDealPauseStatus :: Maybe DealServingMetadataDealPauseStatus @@ -1467,6 +1607,7 @@ , _cDealsStatus :: !(Maybe Text) , _cWidth :: !(Maybe (Textual Int32)) , _cClickThroughURL :: !(Maybe [Text]) + , _cLanguages :: !(Maybe [Text]) , _cVendorType :: !(Maybe [Textual Int32]) , _cAccountId :: !(Maybe (Textual Int32)) , _cImpressionTrackingURL :: !(Maybe [Text]) @@ -1476,6 +1617,7 @@ , _cVideoURL :: !(Maybe Text) , _cAPIUploadTimestamp :: !(Maybe DateTime') , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem]) + , _cDetectedDomains :: !(Maybe [Text]) , _cOpenAuctionStatus :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1515,6 +1657,8 @@ -- -- * 'cClickThroughURL' -- +-- * 'cLanguages' +-- -- * 'cVendorType' -- -- * 'cAccountId' @@ -1533,6 +1677,8 @@ -- -- * 'cServingRestrictions' -- +-- * 'cDetectedDomains' +-- -- * 'cOpenAuctionStatus' creative :: Creative @@ -1554,6 +1700,7 @@ , _cDealsStatus = Nothing , _cWidth = Nothing , _cClickThroughURL = Nothing + , _cLanguages = Nothing , _cVendorType = Nothing , _cAccountId = Nothing , _cImpressionTrackingURL = Nothing @@ -1563,6 +1710,7 @@ , _cVideoURL = Nothing , _cAPIUploadTimestamp = Nothing , _cServingRestrictions = Nothing + , _cDetectedDomains = Nothing , _cOpenAuctionStatus = Nothing } @@ -1573,7 +1721,8 @@ _Default . _Coerce --- | If nativeAd is set, HTMLSnippet and videoURL should not be set. +-- | If nativeAd is set, HTMLSnippet and the videoURL outside of nativeAd +-- should not be set. (The videoURL inside nativeAd can be set.) cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd) cNATiveAd = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a}) @@ -1677,6 +1826,14 @@ . _Default . _Coerce +-- | Detected languages for this creative. Read-only. This field should not +-- be set in requests. +cLanguages :: Lens' Creative [Text] +cLanguages + = lens _cLanguages (\ s a -> s{_cLanguages = a}) . + _Default + . _Coerce + -- | All vendor types for the ads that may be shown from this snippet. cVendorType :: Lens' Creative [Int32] cVendorType @@ -1721,7 +1878,9 @@ . _Default . _Coerce --- | The url to fetch a video ad. If set, HTMLSnippet should not be set. +-- | The URL to fetch a video ad. If set, HTMLSnippet and the nativeAd should +-- not be set. Note, this is diffrent from resource.native_ad.video_url +-- above. cVideoURL :: Lens' Creative (Maybe Text) cVideoURL = lens _cVideoURL (\ s a -> s{_cVideoURL = a}) @@ -1746,6 +1905,15 @@ . _Default . _Coerce +-- | Detected domains for this creative. Read-only. This field should not be +-- set in requests. +cDetectedDomains :: Lens' Creative [Text] +cDetectedDomains + = lens _cDetectedDomains + (\ s a -> s{_cDetectedDomains = a}) + . _Default + . _Coerce + -- | Top-level open auction status. Read-only. This field should not be set -- in requests. If disapproved, an entry for auctionType=OPEN_AUCTION (or -- ALL) in servingRestrictions will also exist. Note that this may be @@ -1776,6 +1944,7 @@ <*> (o .:? "dealsStatus") <*> (o .:? "width") <*> (o .:? "clickThroughUrl" .!= mempty) + <*> (o .:? "languages" .!= mempty) <*> (o .:? "vendorType" .!= mempty) <*> (o .:? "accountId") <*> (o .:? "impressionTrackingUrl" .!= mempty) @@ -1785,6 +1954,7 @@ <*> (o .:? "videoURL") <*> (o .:? "apiUploadTimestamp") <*> (o .:? "servingRestrictions" .!= mempty) + <*> (o .:? "detectedDomains" .!= mempty) <*> (o .:? "openAuctionStatus")) instance ToJSON Creative where @@ -1809,6 +1979,7 @@ ("dealsStatus" .=) <$> _cDealsStatus, ("width" .=) <$> _cWidth, ("clickThroughUrl" .=) <$> _cClickThroughURL, + ("languages" .=) <$> _cLanguages, ("vendorType" .=) <$> _cVendorType, ("accountId" .=) <$> _cAccountId, ("impressionTrackingUrl" .=) <$> @@ -1819,6 +1990,7 @@ ("videoURL" .=) <$> _cVideoURL, ("apiUploadTimestamp" .=) <$> _cAPIUploadTimestamp, ("servingRestrictions" .=) <$> _cServingRestrictions, + ("detectedDomains" .=) <$> _cDetectedDomains, ("openAuctionStatus" .=) <$> _cOpenAuctionStatus]) -- @@ -1910,8 +2082,9 @@ -- -- /See:/ 'dimensionDimensionValue' smart constructor. data DimensionDimensionValue = DimensionDimensionValue' - { _ddvName :: !(Maybe Text) - , _ddvId :: !(Maybe (Textual Int32)) + { _ddvName :: !(Maybe Text) + , _ddvId :: !(Maybe (Textual Int32)) + , _ddvPercentage :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DimensionDimensionValue' with the minimum fields required to make a request. @@ -1921,15 +2094,19 @@ -- * 'ddvName' -- -- * 'ddvId' +-- +-- * 'ddvPercentage' dimensionDimensionValue :: DimensionDimensionValue dimensionDimensionValue = DimensionDimensionValue' { _ddvName = Nothing , _ddvId = Nothing + , _ddvPercentage = Nothing } --- | Name of the dimension mainly for debugging purposes. +-- | Name of the dimension mainly for debugging purposes, except for the case +-- of CREATIVE_SIZE. For CREATIVE_SIZE, strings are used instead of ids. ddvName :: Lens' DimensionDimensionValue (Maybe Text) ddvName = lens _ddvName (\ s a -> s{_ddvName = a}) @@ -1939,18 +2116,29 @@ = lens _ddvId (\ s a -> s{_ddvId = a}) . mapping _Coerce +-- | Percent of total impressions for a dimension type. e.g. {dimension_type: +-- \'GENDER\', [{dimension_value: {id: 1, name: \'MALE\', percentage: +-- 60}}]} Gender MALE is 60% of all impressions which have gender. +ddvPercentage :: Lens' DimensionDimensionValue (Maybe Int32) +ddvPercentage + = lens _ddvPercentage + (\ s a -> s{_ddvPercentage = a}) + . mapping _Coerce + instance FromJSON DimensionDimensionValue where parseJSON = withObject "DimensionDimensionValue" (\ o -> DimensionDimensionValue' <$> - (o .:? "name") <*> (o .:? "id")) + (o .:? "name") <*> (o .:? "id") <*> + (o .:? "percentage")) instance ToJSON DimensionDimensionValue where toJSON DimensionDimensionValue'{..} = object (catMaybes - [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId]) + [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId, + ("percentage" .=) <$> _ddvPercentage]) -- -- /See:/ 'pretargetingConfigList' smart constructor. @@ -3271,6 +3459,7 @@ data TargetingValueCreativeSize = TargetingValueCreativeSize' { _tvcsSize :: !(Maybe TargetingValueSize) , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize]) + , _tvcsSkippableAdType :: !(Maybe Text) , _tvcsCreativeSizeType :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -3282,6 +3471,8 @@ -- -- * 'tvcsCompanionSizes' -- +-- * 'tvcsSkippableAdType' +-- -- * 'tvcsCreativeSizeType' targetingValueCreativeSize :: TargetingValueCreativeSize @@ -3289,6 +3480,7 @@ TargetingValueCreativeSize' { _tvcsSize = Nothing , _tvcsCompanionSizes = Nothing + , _tvcsSkippableAdType = Nothing , _tvcsCreativeSizeType = Nothing } @@ -3305,6 +3497,12 @@ . _Default . _Coerce +-- | The skippable ad type for video size. +tvcsSkippableAdType :: Lens' TargetingValueCreativeSize (Maybe Text) +tvcsSkippableAdType + = lens _tvcsSkippableAdType + (\ s a -> s{_tvcsSkippableAdType = a}) + -- | The Creative size type. tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text) tvcsCreativeSizeType @@ -3318,6 +3516,7 @@ TargetingValueCreativeSize' <$> (o .:? "size") <*> (o .:? "companionSizes" .!= mempty) + <*> (o .:? "skippableAdType") <*> (o .:? "creativeSizeType")) instance ToJSON TargetingValueCreativeSize where @@ -3326,12 +3525,14 @@ (catMaybes [("size" .=) <$> _tvcsSize, ("companionSizes" .=) <$> _tvcsCompanionSizes, + ("skippableAdType" .=) <$> _tvcsSkippableAdType, ("creativeSizeType" .=) <$> _tvcsCreativeSizeType]) -- -- /See:/ 'dealTermsGuaranteedFixedPriceTermsBillingInfo' smart constructor. data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPriceTermsBillingInfo' { _dtgfptbiCurrencyConversionTimeMs :: !(Maybe (Textual Int64)) + , _dtgfptbiDfpLineItemId :: !(Maybe (Textual Int64)) , _dtgfptbiPrice :: !(Maybe Price) , _dtgfptbiOriginalContractedQuantity :: !(Maybe (Textual Int64)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -3342,6 +3543,8 @@ -- -- * 'dtgfptbiCurrencyConversionTimeMs' -- +-- * 'dtgfptbiDfpLineItemId' +-- -- * 'dtgfptbiPrice' -- -- * 'dtgfptbiOriginalContractedQuantity' @@ -3350,6 +3553,7 @@ dealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPriceTermsBillingInfo' { _dtgfptbiCurrencyConversionTimeMs = Nothing + , _dtgfptbiDfpLineItemId = Nothing , _dtgfptbiPrice = Nothing , _dtgfptbiOriginalContractedQuantity = Nothing } @@ -3364,6 +3568,14 @@ (\ s a -> s{_dtgfptbiCurrencyConversionTimeMs = a}) . mapping _Coerce +-- | The DFP line item id associated with this deal. For features like CPD, +-- buyers can retrieve the DFP line item for billing reconciliation. +dtgfptbiDfpLineItemId :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64) +dtgfptbiDfpLineItemId + = lens _dtgfptbiDfpLineItemId + (\ s a -> s{_dtgfptbiDfpLineItemId = a}) + . mapping _Coerce + -- | The original reservation price for the deal, if the currency code is -- different from the one used in negotiation. dtgfptbiPrice :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Price) @@ -3372,8 +3584,9 @@ (\ s a -> s{_dtgfptbiPrice = a}) -- | The original contracted quantity (# impressions) for this deal. To --- ensure delivery, sometimes publisher will book the deal with a --- impression buffer, however clients are billed using the original +-- ensure delivery, sometimes the publisher will book the deal with a +-- impression buffer, such that guaranteed_looks is greater than the +-- contracted quantity. However clients are billed using the original -- contracted quantity. dtgfptbiOriginalContractedQuantity :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64) dtgfptbiOriginalContractedQuantity @@ -3389,7 +3602,8 @@ (\ o -> DealTermsGuaranteedFixedPriceTermsBillingInfo' <$> (o .:? "currencyConversionTimeMs") <*> - (o .:? "price") + (o .:? "dfpLineItemId") + <*> (o .:? "price") <*> (o .:? "originalContractedQuantity")) instance ToJSON @@ -3400,6 +3614,7 @@ (catMaybes [("currencyConversionTimeMs" .=) <$> _dtgfptbiCurrencyConversionTimeMs, + ("dfpLineItemId" .=) <$> _dtgfptbiDfpLineItemId, ("price" .=) <$> _dtgfptbiPrice, ("originalContractedQuantity" .=) <$> _dtgfptbiOriginalContractedQuantity]) @@ -3461,6 +3676,7 @@ , _pBuyerContacts :: !(Maybe [ContactInformation]) , _pKind :: !Text , _pOriginatorRole :: !(Maybe Text) + , _pDBmAdvertiserIds :: !(Maybe [Text]) , _pRevisionNumber :: !(Maybe (Textual Int64)) , _pBilledBuyer :: !(Maybe Buyer) , _pPrivateAuctionId :: !(Maybe Text) @@ -3495,6 +3711,8 @@ -- -- * 'pOriginatorRole' -- +-- * 'pDBmAdvertiserIds' +-- -- * 'pRevisionNumber' -- -- * 'pBilledBuyer' @@ -3536,6 +3754,7 @@ , _pBuyerContacts = Nothing , _pKind = "adexchangebuyer#proposal" , _pOriginatorRole = Nothing + , _pDBmAdvertiserIds = Nothing , _pRevisionNumber = Nothing , _pBilledBuyer = Nothing , _pPrivateAuctionId = Nothing @@ -3573,7 +3792,7 @@ = lens _pInventorySource (\ s a -> s{_pInventorySource = a}) --- | Optional contact information fort the buyer. (seller-readonly) +-- | Optional contact information of the buyer. (seller-readonly) pBuyerContacts :: Lens' Proposal [ContactInformation] pBuyerContacts = lens _pBuyerContacts @@ -3592,6 +3811,14 @@ = lens _pOriginatorRole (\ s a -> s{_pOriginatorRole = a}) +-- | IDs of DBM advertisers permission to this proposal. +pDBmAdvertiserIds :: Lens' Proposal [Text] +pDBmAdvertiserIds + = lens _pDBmAdvertiserIds + (\ s a -> s{_pDBmAdvertiserIds = a}) + . _Default + . _Coerce + -- | The revision number for the proposal (readonly). pRevisionNumber :: Lens' Proposal (Maybe Int64) pRevisionNumber @@ -3639,7 +3866,7 @@ pName :: Lens' Proposal (Maybe Text) pName = lens _pName (\ s a -> s{_pName = a}) --- | Optional contact information for the seller (buyer-readonly). +-- | Optional contact information of the seller (buyer-readonly). pSellerContacts :: Lens' Proposal [ContactInformation] pSellerContacts = lens _pSellerContacts @@ -3680,7 +3907,7 @@ (\ s a -> s{_pNegotiationId = a}) -- | When an proposal is in an accepted state, indicates whether the buyer --- has signed off Once both sides have signed off on a deal, the proposal +-- has signed off. Once both sides have signed off on a deal, the proposal -- can be finalized by the seller. (seller-readonly) pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool) pHasBuyerSignedOff @@ -3702,6 +3929,7 @@ <*> (o .:? "buyerContacts" .!= mempty) <*> (o .:? "kind" .!= "adexchangebuyer#proposal") <*> (o .:? "originatorRole") + <*> (o .:? "dbmAdvertiserIds" .!= mempty) <*> (o .:? "revisionNumber") <*> (o .:? "billedBuyer") <*> (o .:? "privateAuctionId") @@ -3729,6 +3957,7 @@ ("buyerContacts" .=) <$> _pBuyerContacts, Just ("kind" .= _pKind), ("originatorRole" .=) <$> _pOriginatorRole, + ("dbmAdvertiserIds" .=) <$> _pDBmAdvertiserIds, ("revisionNumber" .=) <$> _pRevisionNumber, ("billedBuyer" .=) <$> _pBilledBuyer, ("privateAuctionId" .=) <$> _pPrivateAuctionId, @@ -4004,6 +4233,90 @@ [("height" .=) <$> _pcdiHeight, ("width" .=) <$> _pcdiWidth]) +-- +-- /See:/ 'creativeCorrectionsItemContextsItem' smart constructor. +data CreativeCorrectionsItemContextsItem = CreativeCorrectionsItemContextsItem' + { _cciciPlatform :: !(Maybe [Text]) + , _cciciContextType :: !(Maybe Text) + , _cciciAuctionType :: !(Maybe [Text]) + , _cciciGeoCriteriaId :: !(Maybe [Textual Int32]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeCorrectionsItemContextsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cciciPlatform' +-- +-- * 'cciciContextType' +-- +-- * 'cciciAuctionType' +-- +-- * 'cciciGeoCriteriaId' +creativeCorrectionsItemContextsItem + :: CreativeCorrectionsItemContextsItem +creativeCorrectionsItemContextsItem = + CreativeCorrectionsItemContextsItem' + { _cciciPlatform = Nothing + , _cciciContextType = Nothing + , _cciciAuctionType = Nothing + , _cciciGeoCriteriaId = Nothing + } + +-- | Only set when contextType=PLATFORM. Represents the platforms this +-- correction applies to. +cciciPlatform :: Lens' CreativeCorrectionsItemContextsItem [Text] +cciciPlatform + = lens _cciciPlatform + (\ s a -> s{_cciciPlatform = a}) + . _Default + . _Coerce + +-- | The type of context (e.g., location, platform, auction type, SSL-ness). +cciciContextType :: Lens' CreativeCorrectionsItemContextsItem (Maybe Text) +cciciContextType + = lens _cciciContextType + (\ s a -> s{_cciciContextType = a}) + +-- | Only set when contextType=AUCTION_TYPE. Represents the auction types +-- this correction applies to. +cciciAuctionType :: Lens' CreativeCorrectionsItemContextsItem [Text] +cciciAuctionType + = lens _cciciAuctionType + (\ s a -> s{_cciciAuctionType = a}) + . _Default + . _Coerce + +-- | Only set when contextType=LOCATION. Represents the geo criterias this +-- correction applies to. +cciciGeoCriteriaId :: Lens' CreativeCorrectionsItemContextsItem [Int32] +cciciGeoCriteriaId + = lens _cciciGeoCriteriaId + (\ s a -> s{_cciciGeoCriteriaId = a}) + . _Default + . _Coerce + +instance FromJSON CreativeCorrectionsItemContextsItem + where + parseJSON + = withObject "CreativeCorrectionsItemContextsItem" + (\ o -> + CreativeCorrectionsItemContextsItem' <$> + (o .:? "platform" .!= mempty) <*> + (o .:? "contextType") + <*> (o .:? "auctionType" .!= mempty) + <*> (o .:? "geoCriteriaId" .!= mempty)) + +instance ToJSON CreativeCorrectionsItemContextsItem + where + toJSON CreativeCorrectionsItemContextsItem'{..} + = object + (catMaybes + [("platform" .=) <$> _cciciPlatform, + ("contextType" .=) <$> _cciciContextType, + ("auctionType" .=) <$> _cciciAuctionType, + ("geoCriteriaId" .=) <$> _cciciGeoCriteriaId]) + -- | This message carries publisher provided forecasting information. -- -- /See:/ 'publisherProvidedForecast' smart constructor. @@ -4205,9 +4518,10 @@ -- -- /See:/ 'price' smart constructor. data Price = Price' - { _pCurrencyCode :: !(Maybe Text) - , _pAmountMicros :: !(Maybe (Textual Double)) - , _pPricingType :: !(Maybe Text) + { _pCurrencyCode :: !(Maybe Text) + , _pAmountMicros :: !(Maybe (Textual Double)) + , _pPricingType :: !(Maybe Text) + , _pExpectedCpmMicros :: !(Maybe (Textual Double)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Price' with the minimum fields required to make a request. @@ -4219,6 +4533,8 @@ -- * 'pAmountMicros' -- -- * 'pPricingType' +-- +-- * 'pExpectedCpmMicros' price :: Price price = @@ -4226,6 +4542,7 @@ { _pCurrencyCode = Nothing , _pAmountMicros = Nothing , _pPricingType = Nothing + , _pExpectedCpmMicros = Nothing } -- | The currency code for the price. @@ -4246,13 +4563,21 @@ pPricingType = lens _pPricingType (\ s a -> s{_pPricingType = a}) +-- | In case of CPD deals, the expected CPM in micros. +pExpectedCpmMicros :: Lens' Price (Maybe Double) +pExpectedCpmMicros + = lens _pExpectedCpmMicros + (\ s a -> s{_pExpectedCpmMicros = a}) + . mapping _Coerce + instance FromJSON Price where parseJSON = withObject "Price" (\ o -> Price' <$> (o .:? "currencyCode") <*> (o .:? "amountMicros") <*> - (o .:? "pricingType")) + (o .:? "pricingType") + <*> (o .:? "expectedCpmMicros")) instance ToJSON Price where toJSON Price'{..} @@ -4260,7 +4585,8 @@ (catMaybes [("currencyCode" .=) <$> _pCurrencyCode, ("amountMicros" .=) <$> _pAmountMicros, - ("pricingType" .=) <$> _pPricingType]) + ("pricingType" .=) <$> _pPricingType, + ("expectedCpmMicros" .=) <$> _pExpectedCpmMicros]) -- -- /See:/ 'pretargetingConfigVideoPlayerSizesItem' smart constructor. @@ -5478,6 +5804,7 @@ , _mdDealServingMetadata :: !(Maybe DealServingMetadata) , _mdFlightStartTimeMs :: !(Maybe (Textual Int64)) , _mdSharedTargetings :: !(Maybe [SharedTargeting]) + , _mdIsRfpTemplate :: !(Maybe Bool) , _mdProposalId :: !(Maybe Text) , _mdDealId :: !(Maybe Text) , _mdInventoryDescription :: !(Maybe Text) @@ -5518,6 +5845,8 @@ -- -- * 'mdSharedTargetings' -- +-- * 'mdIsRfpTemplate' +-- -- * 'mdProposalId' -- -- * 'mdDealId' @@ -5556,6 +5885,7 @@ , _mdDealServingMetadata = Nothing , _mdFlightStartTimeMs = Nothing , _mdSharedTargetings = Nothing + , _mdIsRfpTemplate = Nothing , _mdProposalId = Nothing , _mdDealId = Nothing , _mdInventoryDescription = Nothing @@ -5644,11 +5974,18 @@ . _Default . _Coerce +-- | Indicates whether the current deal is a RFP template. RFP template is +-- created by buyer and not based on seller created products. +mdIsRfpTemplate :: Lens' MarketplaceDeal (Maybe Bool) +mdIsRfpTemplate + = lens _mdIsRfpTemplate + (\ s a -> s{_mdIsRfpTemplate = a}) + mdProposalId :: Lens' MarketplaceDeal (Maybe Text) mdProposalId = lens _mdProposalId (\ s a -> s{_mdProposalId = a}) --- | A unique deal=id for the deal (readonly). +-- | A unique deal-id for the deal (readonly). mdDealId :: Lens' MarketplaceDeal (Maybe Text) mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a}) @@ -5736,6 +6073,7 @@ <*> (o .:? "dealServingMetadata") <*> (o .:? "flightStartTimeMs") <*> (o .:? "sharedTargetings" .!= mempty) + <*> (o .:? "isRfpTemplate") <*> (o .:? "proposalId") <*> (o .:? "dealId") <*> (o .:? "inventoryDescription") @@ -5765,6 +6103,7 @@ _mdDealServingMetadata, ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs, ("sharedTargetings" .=) <$> _mdSharedTargetings, + ("isRfpTemplate" .=) <$> _mdIsRfpTemplate, ("proposalId" .=) <$> _mdProposalId, ("dealId" .=) <$> _mdDealId, ("inventoryDescription" .=) <$> @@ -5933,14 +6272,16 @@ -- -- /See:/ 'dealTerms' smart constructor. data DealTerms = DealTerms' - { _dtEstimatedGrossSpend :: !(Maybe Price) - , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms) - , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms) - , _dtBrandingType :: !(Maybe Text) - , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64)) - , _dtSellerTimeZone :: !(Maybe Text) - , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms) - , _dtDescription :: !(Maybe Text) + { _dtEstimatedGrossSpend :: !(Maybe Price) + , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms) + , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms) + , _dtRubiconNonGuaranteedTerms :: !(Maybe DealTermsRubiconNonGuaranteedTerms) + , _dtBrandingType :: !(Maybe Text) + , _dtCrossListedExternalDealIdType :: !(Maybe Text) + , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64)) + , _dtSellerTimeZone :: !(Maybe Text) + , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms) + , _dtDescription :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DealTerms' with the minimum fields required to make a request. @@ -5953,8 +6294,12 @@ -- -- * 'dtNonGuaranteedAuctionTerms' -- +-- * 'dtRubiconNonGuaranteedTerms' +-- -- * 'dtBrandingType' -- +-- * 'dtCrossListedExternalDealIdType' +-- -- * 'dtEstimatedImpressionsPerDay' -- -- * 'dtSellerTimeZone' @@ -5969,7 +6314,9 @@ { _dtEstimatedGrossSpend = Nothing , _dtNonGuaranteedFixedPriceTerms = Nothing , _dtNonGuaranteedAuctionTerms = Nothing + , _dtRubiconNonGuaranteedTerms = Nothing , _dtBrandingType = Nothing + , _dtCrossListedExternalDealIdType = Nothing , _dtEstimatedImpressionsPerDay = Nothing , _dtSellerTimeZone = Nothing , _dtGuaranteedFixedPriceTerms = Nothing @@ -5995,12 +6342,26 @@ = lens _dtNonGuaranteedAuctionTerms (\ s a -> s{_dtNonGuaranteedAuctionTerms = a}) +-- | The terms for rubicon non-guaranteed deals. +dtRubiconNonGuaranteedTerms :: Lens' DealTerms (Maybe DealTermsRubiconNonGuaranteedTerms) +dtRubiconNonGuaranteedTerms + = lens _dtRubiconNonGuaranteedTerms + (\ s a -> s{_dtRubiconNonGuaranteedTerms = a}) + -- | Visibilty of the URL in bid requests. dtBrandingType :: Lens' DealTerms (Maybe Text) dtBrandingType = lens _dtBrandingType (\ s a -> s{_dtBrandingType = a}) +-- | Indicates that this ExternalDealId exists under at least two different +-- AdxInventoryDeals. Currently, the only case that the same ExternalDealId +-- will exist is programmatic cross sell case. +dtCrossListedExternalDealIdType :: Lens' DealTerms (Maybe Text) +dtCrossListedExternalDealIdType + = lens _dtCrossListedExternalDealIdType + (\ s a -> s{_dtCrossListedExternalDealIdType = a}) + -- | Non-binding estimate of the impressions served per day Can be set by -- buyer or seller. dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64) @@ -6036,7 +6397,9 @@ (o .:? "estimatedGrossSpend") <*> (o .:? "nonGuaranteedFixedPriceTerms") <*> (o .:? "nonGuaranteedAuctionTerms") + <*> (o .:? "rubiconNonGuaranteedTerms") <*> (o .:? "brandingType") + <*> (o .:? "crossListedExternalDealIdType") <*> (o .:? "estimatedImpressionsPerDay") <*> (o .:? "sellerTimeZone") <*> (o .:? "guaranteedFixedPriceTerms") @@ -6052,7 +6415,11 @@ _dtNonGuaranteedFixedPriceTerms, ("nonGuaranteedAuctionTerms" .=) <$> _dtNonGuaranteedAuctionTerms, + ("rubiconNonGuaranteedTerms" .=) <$> + _dtRubiconNonGuaranteedTerms, ("brandingType" .=) <$> _dtBrandingType, + ("crossListedExternalDealIdType" .=) <$> + _dtCrossListedExternalDealIdType, ("estimatedImpressionsPerDay" .=) <$> _dtEstimatedImpressionsPerDay, ("sellerTimeZone" .=) <$> _dtSellerTimeZone, @@ -6060,7 +6427,57 @@ _dtGuaranteedFixedPriceTerms, ("description" .=) <$> _dtDescription]) +-- | The external deal ids associated with a creative. -- +-- /See:/ 'creativeDealIds' smart constructor. +data CreativeDealIds = CreativeDealIds' + { _cdiKind :: !Text + , _cdiDealStatuses :: !(Maybe [CreativeDealIdsDealStatusesItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeDealIds' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cdiKind' +-- +-- * 'cdiDealStatuses' +creativeDealIds + :: CreativeDealIds +creativeDealIds = + CreativeDealIds' + { _cdiKind = "adexchangebuyer#creativeDealIds" + , _cdiDealStatuses = Nothing + } + +-- | Resource type. +cdiKind :: Lens' CreativeDealIds Text +cdiKind = lens _cdiKind (\ s a -> s{_cdiKind = a}) + +-- | A list of external deal ids and ARC approval status. +cdiDealStatuses :: Lens' CreativeDealIds [CreativeDealIdsDealStatusesItem] +cdiDealStatuses + = lens _cdiDealStatuses + (\ s a -> s{_cdiDealStatuses = a}) + . _Default + . _Coerce + +instance FromJSON CreativeDealIds where + parseJSON + = withObject "CreativeDealIds" + (\ o -> + CreativeDealIds' <$> + (o .:? "kind" .!= "adexchangebuyer#creativeDealIds") + <*> (o .:? "dealStatuses" .!= mempty)) + +instance ToJSON CreativeDealIds where + toJSON CreativeDealIds'{..} + = object + (catMaybes + [Just ("kind" .= _cdiKind), + ("dealStatuses" .=) <$> _cdiDealStatuses]) + +-- -- /See:/ 'marketplaceLabel' smart constructor. data MarketplaceLabel = MarketplaceLabel' { _mlDeprecatedMarketplaceDealParty :: !(Maybe MarketplaceDealParty) @@ -6233,9 +6650,11 @@ -- -- /See:/ 'dealServingMetadataDealPauseStatus' smart constructor. data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus' - { _dsmdpsFirstPausedBy :: !(Maybe Text) - , _dsmdpsHasBuyerPaused :: !(Maybe Bool) - , _dsmdpsHasSellerPaused :: !(Maybe Bool) + { _dsmdpsFirstPausedBy :: !(Maybe Text) + , _dsmdpsBuyerPauseReason :: !(Maybe Text) + , _dsmdpsHasBuyerPaused :: !(Maybe Bool) + , _dsmdpsSellerPauseReason :: !(Maybe Text) + , _dsmdpsHasSellerPaused :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DealServingMetadataDealPauseStatus' with the minimum fields required to make a request. @@ -6244,15 +6663,21 @@ -- -- * 'dsmdpsFirstPausedBy' -- +-- * 'dsmdpsBuyerPauseReason' +-- -- * 'dsmdpsHasBuyerPaused' -- +-- * 'dsmdpsSellerPauseReason' +-- -- * 'dsmdpsHasSellerPaused' dealServingMetadataDealPauseStatus :: DealServingMetadataDealPauseStatus dealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus' { _dsmdpsFirstPausedBy = Nothing + , _dsmdpsBuyerPauseReason = Nothing , _dsmdpsHasBuyerPaused = Nothing + , _dsmdpsSellerPauseReason = Nothing , _dsmdpsHasSellerPaused = Nothing } @@ -6262,11 +6687,21 @@ = lens _dsmdpsFirstPausedBy (\ s a -> s{_dsmdpsFirstPausedBy = a}) +dsmdpsBuyerPauseReason :: Lens' DealServingMetadataDealPauseStatus (Maybe Text) +dsmdpsBuyerPauseReason + = lens _dsmdpsBuyerPauseReason + (\ s a -> s{_dsmdpsBuyerPauseReason = a}) + dsmdpsHasBuyerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool) dsmdpsHasBuyerPaused = lens _dsmdpsHasBuyerPaused (\ s a -> s{_dsmdpsHasBuyerPaused = a}) +dsmdpsSellerPauseReason :: Lens' DealServingMetadataDealPauseStatus (Maybe Text) +dsmdpsSellerPauseReason + = lens _dsmdpsSellerPauseReason + (\ s a -> s{_dsmdpsSellerPauseReason = a}) + dsmdpsHasSellerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool) dsmdpsHasSellerPaused = lens _dsmdpsHasSellerPaused @@ -6278,7 +6713,10 @@ = withObject "DealServingMetadataDealPauseStatus" (\ o -> DealServingMetadataDealPauseStatus' <$> - (o .:? "firstPausedBy") <*> (o .:? "hasBuyerPaused") + (o .:? "firstPausedBy") <*> + (o .:? "buyerPauseReason") + <*> (o .:? "hasBuyerPaused") + <*> (o .:? "sellerPauseReason") <*> (o .:? "hasSellerPaused")) instance ToJSON DealServingMetadataDealPauseStatus @@ -6287,7 +6725,10 @@ = object (catMaybes [("firstPausedBy" .=) <$> _dsmdpsFirstPausedBy, + ("buyerPauseReason" .=) <$> _dsmdpsBuyerPauseReason, ("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused, + ("sellerPauseReason" .=) <$> + _dsmdpsSellerPauseReason, ("hasSellerPaused" .=) <$> _dsmdpsHasSellerPaused]) -- @@ -6297,6 +6738,7 @@ , _dtgfptGuaranteedImpressions :: !(Maybe (Textual Int64)) , _dtgfptBillingInfo :: !(Maybe DealTermsGuaranteedFixedPriceTermsBillingInfo) , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer]) + , _dtgfptMinimumDailyLooks :: !(Maybe (Textual Int64)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request. @@ -6310,6 +6752,8 @@ -- * 'dtgfptBillingInfo' -- -- * 'dtgfptFixedPrices' +-- +-- * 'dtgfptMinimumDailyLooks' dealTermsGuaranteedFixedPriceTerms :: DealTermsGuaranteedFixedPriceTerms dealTermsGuaranteedFixedPriceTerms = @@ -6318,9 +6762,11 @@ , _dtgfptGuaranteedImpressions = Nothing , _dtgfptBillingInfo = Nothing , _dtgfptFixedPrices = Nothing + , _dtgfptMinimumDailyLooks = Nothing } --- | Count of guaranteed looks. Required for deal, optional for product. +-- | Count of guaranteed looks. Required for deal, optional for product. For +-- CPD deals, buyer changes to guaranteed_looks will be ignored. dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64) dtgfptGuaranteedLooks = lens _dtgfptGuaranteedLooks @@ -6351,6 +6797,14 @@ . _Default . _Coerce +-- | Count of minimum daily looks for a CPD deal. For CPD deals, buyer should +-- negotiate on this field instead of guaranteed_looks. +dtgfptMinimumDailyLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64) +dtgfptMinimumDailyLooks + = lens _dtgfptMinimumDailyLooks + (\ s a -> s{_dtgfptMinimumDailyLooks = a}) + . mapping _Coerce + instance FromJSON DealTermsGuaranteedFixedPriceTerms where parseJSON @@ -6360,7 +6814,8 @@ (o .:? "guaranteedLooks") <*> (o .:? "guaranteedImpressions") <*> (o .:? "billingInfo") - <*> (o .:? "fixedPrices" .!= mempty)) + <*> (o .:? "fixedPrices" .!= mempty) + <*> (o .:? "minimumDailyLooks")) instance ToJSON DealTermsGuaranteedFixedPriceTerms where @@ -6371,4 +6826,6 @@ ("guaranteedImpressions" .=) <$> _dtgfptGuaranteedImpressions, ("billingInfo" .=) <$> _dtgfptBillingInfo, - ("fixedPrices" .=) <$> _dtgfptFixedPrices]) + ("fixedPrices" .=) <$> _dtgfptFixedPrices, + ("minimumDailyLooks" .=) <$> + _dtgfptMinimumDailyLooks]) diff --git a/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs b/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs --- a/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs +++ b/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs @@ -59,7 +59,8 @@ instance ToJSON CreativesListOpenAuctionStatusFilter where toJSON = toJSONText --- | The proposed action to take on the proposal. +-- | The proposed action to take on the proposal. This field is required and +-- it must be set when updating a proposal. data ProposalsPatchUpdateAction = Accept -- ^ @accept@ @@ -67,6 +68,8 @@ -- ^ @cancel@ | Propose -- ^ @propose@ + | ProposeAndAccept + -- ^ @proposeAndAccept@ | UnknownAction -- ^ @unknownAction@ | UpdateFinalized @@ -80,6 +83,7 @@ "accept" -> Right Accept "cancel" -> Right Cancel "propose" -> Right Propose + "proposeAndAccept" -> Right ProposeAndAccept "unknownAction" -> Right UnknownAction "updateFinalized" -> Right UpdateFinalized x -> Left ("Unable to parse ProposalsPatchUpdateAction from: " <> x) @@ -89,6 +93,7 @@ Accept -> "accept" Cancel -> "cancel" Propose -> "propose" + ProposeAndAccept -> "proposeAndAccept" UnknownAction -> "unknownAction" UpdateFinalized -> "updateFinalized" @@ -138,7 +143,8 @@ instance ToJSON CreativesListDealsStatusFilter where toJSON = toJSONText --- | The proposed action to take on the proposal. +-- | The proposed action to take on the proposal. This field is required and +-- it must be set when updating a proposal. data ProposalsUpdateUpdateAction = PUUAAccept -- ^ @accept@ @@ -146,6 +152,8 @@ -- ^ @cancel@ | PUUAPropose -- ^ @propose@ + | PUUAProposeAndAccept + -- ^ @proposeAndAccept@ | PUUAUnknownAction -- ^ @unknownAction@ | PUUAUpdateFinalized @@ -159,6 +167,7 @@ "accept" -> Right PUUAAccept "cancel" -> Right PUUACancel "propose" -> Right PUUAPropose + "proposeAndAccept" -> Right PUUAProposeAndAccept "unknownAction" -> Right PUUAUnknownAction "updateFinalized" -> Right PUUAUpdateFinalized x -> Left ("Unable to parse ProposalsUpdateUpdateAction from: " <> x) @@ -168,6 +177,7 @@ PUUAAccept -> "accept" PUUACancel -> "cancel" PUUAPropose -> "propose" + PUUAProposeAndAccept -> "proposeAndAccept" PUUAUnknownAction -> "unknownAction" PUUAUpdateFinalized -> "updateFinalized" diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs @@ -34,6 +34,7 @@ -- * Request Lenses , apPayload + , apConfirmUnsafeAccountChange , apId ) where @@ -47,15 +48,17 @@ "v1.4" :> "accounts" :> Capture "id" (Textual Int32) :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] Account :> Patch '[JSON] Account + QueryParam "confirmUnsafeAccountChange" Bool :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Account :> Patch '[JSON] Account -- | Updates an existing account. This method supports patch semantics. -- -- /See:/ 'accountsPatch' smart constructor. data AccountsPatch = AccountsPatch' - { _apPayload :: !Account - , _apId :: !(Textual Int32) + { _apPayload :: !Account + , _apConfirmUnsafeAccountChange :: !(Maybe Bool) + , _apId :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'AccountsPatch' with the minimum fields required to make a request. @@ -64,6 +67,8 @@ -- -- * 'apPayload' -- +-- * 'apConfirmUnsafeAccountChange' +-- -- * 'apId' accountsPatch :: Account -- ^ 'apPayload' @@ -72,6 +77,7 @@ accountsPatch pApPayload_ pApId_ = AccountsPatch' { _apPayload = pApPayload_ + , _apConfirmUnsafeAccountChange = Nothing , _apId = _Coerce # pApId_ } @@ -80,6 +86,12 @@ apPayload = lens _apPayload (\ s a -> s{_apPayload = a}) +-- | Confirmation for erasing bidder and cookie matching urls. +apConfirmUnsafeAccountChange :: Lens' AccountsPatch (Maybe Bool) +apConfirmUnsafeAccountChange + = lens _apConfirmUnsafeAccountChange + (\ s a -> s{_apConfirmUnsafeAccountChange = a}) + -- | The account id apId :: Lens' AccountsPatch Int32 apId = lens _apId (\ s a -> s{_apId = a}) . _Coerce @@ -89,7 +101,9 @@ type Scopes AccountsPatch = '["https://www.googleapis.com/auth/adexchange.buyer"] requestClient AccountsPatch'{..} - = go _apId (Just AltJSON) _apPayload + = go _apId _apConfirmUnsafeAccountChange + (Just AltJSON) + _apPayload adExchangeBuyerService where go = buildClient (Proxy :: Proxy AccountsPatchResource) diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs @@ -34,6 +34,7 @@ -- * Request Lenses , auPayload + , auConfirmUnsafeAccountChange , auId ) where @@ -47,15 +48,17 @@ "v1.4" :> "accounts" :> Capture "id" (Textual Int32) :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] Account :> Put '[JSON] Account + QueryParam "confirmUnsafeAccountChange" Bool :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Account :> Put '[JSON] Account -- | Updates an existing account. -- -- /See:/ 'accountsUpdate' smart constructor. data AccountsUpdate = AccountsUpdate' - { _auPayload :: !Account - , _auId :: !(Textual Int32) + { _auPayload :: !Account + , _auConfirmUnsafeAccountChange :: !(Maybe Bool) + , _auId :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'AccountsUpdate' with the minimum fields required to make a request. @@ -64,6 +67,8 @@ -- -- * 'auPayload' -- +-- * 'auConfirmUnsafeAccountChange' +-- -- * 'auId' accountsUpdate :: Account -- ^ 'auPayload' @@ -72,6 +77,7 @@ accountsUpdate pAuPayload_ pAuId_ = AccountsUpdate' { _auPayload = pAuPayload_ + , _auConfirmUnsafeAccountChange = Nothing , _auId = _Coerce # pAuId_ } @@ -80,6 +86,12 @@ auPayload = lens _auPayload (\ s a -> s{_auPayload = a}) +-- | Confirmation for erasing bidder and cookie matching urls. +auConfirmUnsafeAccountChange :: Lens' AccountsUpdate (Maybe Bool) +auConfirmUnsafeAccountChange + = lens _auConfirmUnsafeAccountChange + (\ s a -> s{_auConfirmUnsafeAccountChange = a}) + -- | The account id auId :: Lens' AccountsUpdate Int32 auId = lens _auId (\ s a -> s{_auId = a}) . _Coerce @@ -89,7 +101,9 @@ type Scopes AccountsUpdate = '["https://www.googleapis.com/auth/adexchange.buyer"] requestClient AccountsUpdate'{..} - = go _auId (Just AltJSON) _auPayload + = go _auId _auConfirmUnsafeAccountChange + (Just AltJSON) + _auPayload adExchangeBuyerService where go = buildClient (Proxy :: Proxy AccountsUpdateResource) diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/ListDeals.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/ListDeals.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/ListDeals.hs @@ -0,0 +1,102 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.AdExchangeBuyer.Creatives.ListDeals +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists the external deal ids associated with the creative. +-- +-- /See:/ for @adexchangebuyer.creatives.listDeals@. +module Network.Google.Resource.AdExchangeBuyer.Creatives.ListDeals + ( + -- * REST Resource + CreativesListDealsResource + + -- * Creating a Request + , creativesListDeals + , CreativesListDeals + + -- * Request Lenses + , cldBuyerCreativeId + , cldAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.creatives.listDeals@ method which the +-- 'CreativesListDeals' request conforms to. +type CreativesListDealsResource = + "adexchangebuyer" :> + "v1.4" :> + "creatives" :> + Capture "accountId" (Textual Int32) :> + Capture "buyerCreativeId" Text :> + "listDeals" :> + QueryParam "alt" AltJSON :> + Get '[JSON] CreativeDealIds + +-- | Lists the external deal ids associated with the creative. +-- +-- /See:/ 'creativesListDeals' smart constructor. +data CreativesListDeals = CreativesListDeals' + { _cldBuyerCreativeId :: !Text + , _cldAccountId :: !(Textual Int32) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesListDeals' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cldBuyerCreativeId' +-- +-- * 'cldAccountId' +creativesListDeals + :: Text -- ^ 'cldBuyerCreativeId' + -> Int32 -- ^ 'cldAccountId' + -> CreativesListDeals +creativesListDeals pCldBuyerCreativeId_ pCldAccountId_ = + CreativesListDeals' + { _cldBuyerCreativeId = pCldBuyerCreativeId_ + , _cldAccountId = _Coerce # pCldAccountId_ + } + +-- | The buyer-specific id for this creative. +cldBuyerCreativeId :: Lens' CreativesListDeals Text +cldBuyerCreativeId + = lens _cldBuyerCreativeId + (\ s a -> s{_cldBuyerCreativeId = a}) + +-- | The id for the account that will serve this creative. +cldAccountId :: Lens' CreativesListDeals Int32 +cldAccountId + = lens _cldAccountId (\ s a -> s{_cldAccountId = a}) + . _Coerce + +instance GoogleRequest CreativesListDeals where + type Rs CreativesListDeals = CreativeDealIds + type Scopes CreativesListDeals = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient CreativesListDeals'{..} + = go _cldAccountId _cldBuyerCreativeId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy CreativesListDealsResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs @@ -76,7 +76,7 @@ , _mdlPqlQuery = Nothing } --- | The proposalId to get deals for. To search across proposals specify +-- | The proposalId to get deals for. To search across all proposals specify -- order_id = \'-\' as part of the URL. mdlProposalId :: Lens' MarketplaceDealsList Text mdlProposalId diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs @@ -34,6 +34,7 @@ -- * Request Lenses , mnlProposalId + , mnlPqlQuery ) where import Network.Google.AdExchangeBuyer.Types @@ -47,14 +48,16 @@ "proposals" :> Capture "proposalId" Text :> "notes" :> - QueryParam "alt" AltJSON :> - Get '[JSON] GetOrderNotesResponse + QueryParam "pqlQuery" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOrderNotesResponse -- | Get all the notes associated with a proposal -- -- /See:/ 'marketplaceNotesList' smart constructor. -newtype MarketplaceNotesList = MarketplaceNotesList' - { _mnlProposalId :: Text +data MarketplaceNotesList = MarketplaceNotesList' + { _mnlProposalId :: !Text + , _mnlPqlQuery :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MarketplaceNotesList' with the minimum fields required to make a request. @@ -62,26 +65,37 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'mnlProposalId' +-- +-- * 'mnlPqlQuery' marketplaceNotesList :: Text -- ^ 'mnlProposalId' -> MarketplaceNotesList marketplaceNotesList pMnlProposalId_ = MarketplaceNotesList' { _mnlProposalId = pMnlProposalId_ + , _mnlPqlQuery = Nothing } --- | The proposalId to get notes for. +-- | The proposalId to get notes for. To search across all proposals specify +-- order_id = \'-\' as part of the URL. mnlProposalId :: Lens' MarketplaceNotesList Text mnlProposalId = lens _mnlProposalId (\ s a -> s{_mnlProposalId = a}) +-- | Query string to retrieve specific notes. To search the text contents of +-- notes, please use syntax like \"WHERE note.note = \"foo\" or \"WHERE +-- note.note LIKE \"%bar%\" +mnlPqlQuery :: Lens' MarketplaceNotesList (Maybe Text) +mnlPqlQuery + = lens _mnlPqlQuery (\ s a -> s{_mnlPqlQuery = a}) + instance GoogleRequest MarketplaceNotesList where type Rs MarketplaceNotesList = GetOrderNotesResponse type Scopes MarketplaceNotesList = '["https://www.googleapis.com/auth/adexchange.buyer"] requestClient MarketplaceNotesList'{..} - = go _mnlProposalId (Just AltJSON) + = go _mnlProposalId _mnlPqlQuery (Just AltJSON) adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs @@ -89,7 +89,8 @@ , _ppProposalId = pPpProposalId_ } --- | The proposed action to take on the proposal. +-- | The proposed action to take on the proposal. This field is required and +-- it must be set when updating a proposal. ppUpdateAction :: Lens' ProposalsPatch ProposalsPatchUpdateAction ppUpdateAction = lens _ppUpdateAction diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs @@ -89,7 +89,8 @@ , _puProposalId = pPuProposalId_ } --- | The proposed action to take on the proposal. +-- | The proposed action to take on the proposal. This field is required and +-- it must be set when updating a proposal. puUpdateAction :: Lens' ProposalsUpdate ProposalsUpdateUpdateAction puUpdateAction = lens _puUpdateAction diff --git a/gogol-adexchange-buyer.cabal b/gogol-adexchange-buyer.cabal --- a/gogol-adexchange-buyer.cabal +++ b/gogol-adexchange-buyer.cabal @@ -1,5 +1,5 @@ name: gogol-adexchange-buyer -version: 0.1.0 +version: 0.1.1 synopsis: Google Ad Exchange Buyer SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -11,7 +11,7 @@ category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 -extra-source-files: README.md +extra-source-files: README.md src/.gitkeep description: Accesses your bidding-account information, submits creatives for @@ -50,6 +50,7 @@ , Network.Google.Resource.AdExchangeBuyer.Creatives.Get , Network.Google.Resource.AdExchangeBuyer.Creatives.Insert , Network.Google.Resource.AdExchangeBuyer.Creatives.List + , Network.Google.Resource.AdExchangeBuyer.Creatives.ListDeals , Network.Google.Resource.AdExchangeBuyer.Creatives.RemoveDeal , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert @@ -80,5 +81,5 @@ , Network.Google.AdExchangeBuyer.Types.Sum build-depends: - gogol-core == 0.1.0.* + gogol-core == 0.1.1.* , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep