gogol-adexchange-buyer 0.1.0 → 0.1.1

raw patch · 14 files changed

+769/−66 lines, 14 filesdep ~gogol-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/AdExchangeBuyer.hs +47/−0
• gen/Network/Google/AdExchangeBuyer/Types.hs +42/−0
• gen/Network/Google/AdExchangeBuyer/Types/Product.hs +498/−41
• gen/Network/Google/AdExchangeBuyer/Types/Sum.hs +12/−2
• gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs +19/−5
• gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs +19/−5
• gen/Network/Google/Resource/AdExchangeBuyer/Creatives/ListDeals.hs +102/−0
• gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs +1/−1
• gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs +20/−6
• gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs +2/−1
• gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs +2/−1
• gogol-adexchange-buyer.cabal +4/−3
• src/.gitkeep +0/−0

@@ -8,7 +8,7 @@  ## Version -`0.1.0`+`0.1.1`   ## Description

@@ -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

@@ -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

@@ -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])

@@ -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" 

@@ -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)

@@ -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)

@@ -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 <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the external deal ids associated with the creative.+--+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> 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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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