diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,367 @@ +Mozilla Public License Version 2.0 +================================== + +1. Definitions +-------------- + +1.1. "Contributor" + means each individual or legal entity that creates, contributes to + the creation of, or owns Covered Software. + +1.2. "Contributor Version" + means the combination of the Contributions of others (if any) used + by a Contributor and that particular Contributor's Contribution. + +1.3. "Contribution" + means Covered Software of a particular Contributor. + +1.4. "Covered Software" + means Source Code Form to which the initial Contributor has attached + the notice in Exhibit A, the Executable Form of such Source Code + Form, and Modifications of such Source Code Form, in each case + including portions thereof. + +1.5. "Incompatible With Secondary Licenses" + means + + (a) that the initial Contributor has attached the notice described + in Exhibit B to the Covered Software; or + + (b) that the Covered Software was made available under the terms of + version 1.1 or earlier of the License, but not also under the + terms of a Secondary License. + +1.6. "Executable Form" + means any form of the work other than Source Code Form. + +1.7. "Larger Work" + means a work that combines Covered Software with other material, in + a separate file or files, that is not Covered Software. + +1.8. "License" + means this document. + +1.9. "Licensable" + means having the right to grant, to the maximum extent possible, + whether at the time of the initial grant or subsequently, any and + all of the rights conveyed by this License. + +1.10. "Modifications" + means any of the following: + + (a) any file in Source Code Form that results from an addition to, + deletion from, or modification of the contents of Covered + Software; or + + (b) any new file in Source Code Form that contains any Covered + Software. + +1.11. "Patent Claims" of a Contributor + means any patent claim(s), including without limitation, method, + process, and apparatus claims, in any patent Licensable by such + Contributor that would be infringed, but for the grant of the + License, by the making, using, selling, offering for sale, having + made, import, or transfer of either its Contributions or its + Contributor Version. + +1.12. "Secondary License" + means either the GNU General Public License, Version 2.0, the GNU + Lesser General Public License, Version 2.1, the GNU Affero General + Public License, Version 3.0, or any later versions of those + licenses. + +1.13. "Source Code Form" + means the form of the work preferred for making modifications. + +1.14. "You" (or "Your") + means an individual or a legal entity exercising rights under this + License. For legal entities, "You" includes any entity that + controls, is controlled by, or is under common control with You. For + purposes of this definition, "control" means (a) the power, direct + or indirect, to cause the direction or management of such entity, + whether by contract or otherwise, or (b) ownership of more than + fifty percent (50%) of the outstanding shares or beneficial + ownership of such entity. + +2. License Grants and Conditions +-------------------------------- + +2.1. Grants + +Each Contributor hereby grants You a world-wide, royalty-free, +non-exclusive license: + +(a) under intellectual property rights (other than patent or trademark) + Licensable by such Contributor to use, reproduce, make available, + modify, display, perform, distribute, and otherwise exploit its + Contributions, either on an unmodified basis, with Modifications, or + as part of a Larger Work; and + +(b) under Patent Claims of such Contributor to make, use, sell, offer + for sale, have made, import, and otherwise transfer either its + Contributions or its Contributor Version. + +2.2. Effective Date + +The licenses granted in Section 2.1 with respect to any Contribution +become effective for each Contribution on the date the Contributor first +distributes such Contribution. + +2.3. Limitations on Grant Scope + +The licenses granted in this Section 2 are the only rights granted under +this License. No additional rights or licenses will be implied from the +distribution or licensing of Covered Software under this License. +Notwithstanding Section 2.1(b) above, no patent license is granted by a +Contributor: + +(a) for any code that a Contributor has removed from Covered Software; + or + +(b) for infringements caused by: (i) Your and any other third party's + modifications of Covered Software, or (ii) the combination of its + Contributions with other software (except as part of its Contributor + Version); or + +(c) under Patent Claims infringed by Covered Software in the absence of + its Contributions. + +This License does not grant any rights in the trademarks, service marks, +or logos of any Contributor (except as may be necessary to comply with +the notice requirements in Section 3.4). + +2.4. Subsequent Licenses + +No Contributor makes additional grants as a result of Your choice to +distribute the Covered Software under a subsequent version of this +License (see Section 10.2) or under the terms of a Secondary License (if +permitted under the terms of Section 3.3). + +2.5. Representation + +Each Contributor represents that the Contributor believes its +Contributions are its original creation(s) or it has sufficient rights +to grant the rights to its Contributions conveyed by this License. + +2.6. Fair Use + +This License is not intended to limit any rights You have under +applicable copyright doctrines of fair use, fair dealing, or other +equivalents. + +2.7. Conditions + +Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted +in Section 2.1. + +3. Responsibilities +------------------- + +3.1. Distribution of Source Form + +All distribution of Covered Software in Source Code Form, including any +Modifications that You create or to which You contribute, must be under +the terms of this License. You must inform recipients that the Source +Code Form of the Covered Software is governed by the terms of this +License, and how they can obtain a copy of this License. You may not +attempt to alter or restrict the recipients' rights in the Source Code +Form. + +3.2. Distribution of Executable Form + +If You distribute Covered Software in Executable Form then: + +(a) such Covered Software must also be made available in Source Code + Form, as described in Section 3.1, and You must inform recipients of + the Executable Form how they can obtain a copy of such Source Code + Form by reasonable means in a timely manner, at a charge no more + than the cost of distribution to the recipient; and + +(b) You may distribute such Executable Form under the terms of this + License, or sublicense it under different terms, provided that the + license for the Executable Form does not attempt to limit or alter + the recipients' rights in the Source Code Form under this License. + +3.3. Distribution of a Larger Work + +You may create and distribute a Larger Work under terms of Your choice, +provided that You also comply with the requirements of this License for +the Covered Software. If the Larger Work is a combination of Covered +Software with a work governed by one or more Secondary Licenses, and the +Covered Software is not Incompatible With Secondary Licenses, this +License permits You to additionally distribute such Covered Software +under the terms of such Secondary License(s), so that the recipient of +the Larger Work may, at their option, further distribute the Covered +Software under the terms of either this License or such Secondary +License(s). + +3.4. Notices + +You may not remove or alter the substance of any license notices +(including copyright notices, patent notices, disclaimers of warranty, +or limitations of liability) contained within the Source Code Form of +the Covered Software, except that You may alter any license notices to +the extent required to remedy known factual inaccuracies. + +3.5. Application of Additional Terms + +You may choose to offer, and to charge a fee for, warranty, support, +indemnity or liability obligations to one or more recipients of Covered +Software. However, You may do so only on Your own behalf, and not on +behalf of any Contributor. You must make it absolutely clear that any +such warranty, support, indemnity, or liability obligation is offered by +You alone, and You hereby agree to indemnify every Contributor for any +liability incurred by such Contributor as a result of warranty, support, +indemnity or liability terms You offer. You may include additional +disclaimers of warranty and limitations of liability specific to any +jurisdiction. + +4. Inability to Comply Due to Statute or Regulation +--------------------------------------------------- + +If it is impossible for You to comply with any of the terms of this +License with respect to some or all of the Covered Software due to +statute, judicial order, or regulation then You must: (a) comply with +the terms of this License to the maximum extent possible; and (b) +describe the limitations and the code they affect. Such description must +be placed in a text file included with all distributions of the Covered +Software under this License. Except to the extent prohibited by statute +or regulation, such description must be sufficiently detailed for a +recipient of ordinary skill to be able to understand it. + +5. Termination +-------------- + +5.1. The rights granted under this License will terminate automatically +if You fail to comply with any of its terms. However, if You become +compliant, then the rights granted under this License from a particular +Contributor are reinstated (a) provisionally, unless and until such +Contributor explicitly and finally terminates Your grants, and (b) on an +ongoing basis, if such Contributor fails to notify You of the +non-compliance by some reasonable means prior to 60 days after You have +come back into compliance. Moreover, Your grants from a particular +Contributor are reinstated on an ongoing basis if such Contributor +notifies You of the non-compliance by some reasonable means, this is the +first time You have received notice of non-compliance with this License +from such Contributor, and You become compliant prior to 30 days after +Your receipt of the notice. + +5.2. If You initiate litigation against any entity by asserting a patent +infringement claim (excluding declaratory judgment actions, +counter-claims, and cross-claims) alleging that a Contributor Version +directly or indirectly infringes any patent, then the rights granted to +You by any and all Contributors for the Covered Software under Section +2.1 of this License shall terminate. + +5.3. In the event of termination under Sections 5.1 or 5.2 above, all +end user license agreements (excluding distributors and resellers) which +have been validly granted by You or Your distributors under this License +prior to termination shall survive termination. + +************************************************************************ +* * +* 6. Disclaimer of Warranty * +* ------------------------- * +* * +* Covered Software is provided under this License on an "as is" * +* basis, without warranty of any kind, either expressed, implied, or * +* statutory, including, without limitation, warranties that the * +* Covered Software is free of defects, merchantable, fit for a * +* particular purpose or non-infringing. The entire risk as to the * +* quality and performance of the Covered Software is with You. * +* Should any Covered Software prove defective in any respect, You * +* (not any Contributor) assume the cost of any necessary servicing, * +* repair, or correction. This disclaimer of warranty constitutes an * +* essential part of this License. No use of any Covered Software is * +* authorized under this License except under this disclaimer. * +* * +************************************************************************ + +************************************************************************ +* * +* 7. Limitation of Liability * +* -------------------------- * +* * +* Under no circumstances and under no legal theory, whether tort * +* (including negligence), contract, or otherwise, shall any * +* Contributor, or anyone who distributes Covered Software as * +* permitted above, be liable to You for any direct, indirect, * +* special, incidental, or consequential damages of any character * +* including, without limitation, damages for lost profits, loss of * +* goodwill, work stoppage, computer failure or malfunction, or any * +* and all other commercial damages or losses, even if such party * +* shall have been informed of the possibility of such damages. This * +* limitation of liability shall not apply to liability for death or * +* personal injury resulting from such party's negligence to the * +* extent applicable law prohibits such limitation. Some * +* jurisdictions do not allow the exclusion or limitation of * +* incidental or consequential damages, so this exclusion and * +* limitation may not apply to You. * +* * +************************************************************************ + +8. Litigation +------------- + +Any litigation relating to this License may be brought only in the +courts of a jurisdiction where the defendant maintains its principal +place of business and such litigation shall be governed by laws of that +jurisdiction, without reference to its conflict-of-law provisions. +Nothing in this Section shall prevent a party's ability to bring +cross-claims or counter-claims. + +9. Miscellaneous +---------------- + +This License represents the complete agreement concerning the subject +matter hereof. If any provision of this License is held to be +unenforceable, such provision shall be reformed only to the extent +necessary to make it enforceable. Any law or regulation which provides +that the language of a contract shall be construed against the drafter +shall not be used to construe this License against a Contributor. + +10. Versions of the License +--------------------------- + +10.1. New Versions + +Mozilla Foundation is the license steward. Except as provided in Section +10.3, no one other than the license steward has the right to modify or +publish new versions of this License. Each version will be given a +distinguishing version number. + +10.2. Effect of New Versions + +You may distribute the Covered Software under the terms of the version +of the License under which You originally received the Covered Software, +or under the terms of any subsequent version published by the license +steward. + +10.3. Modified Versions + +If you create software not governed by this License, and you want to +create a new license for such software, you may create and use a +modified version of this License if you rename the license and remove +any references to the name of the license steward (except to note that +such modified license differs from this License). + +10.4. Distributing Source Code Form that is Incompatible With Secondary +Licenses + +If You choose to distribute Source Code Form that is Incompatible With +Secondary Licenses under the terms of this version of the License, the +notice described in Exhibit B of this License must be attached. + +Exhibit A - Source Code Form License Notice +------------------------------------------- + + This Source Code Form is subject to the terms of the Mozilla Public + License, v. 2.0. If a copy of the MPL was not distributed with this + file, You can obtain one at http://mozilla.org/MPL/2.0/. + +If it is not possible or desirable to put the notice in a particular +file, then You may include the notice in a location (such as a LICENSE +file in a relevant directory) where a recipient would be likely to look +for such a notice. + +You may add additional accurate notices of copyright ownership. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,28 @@ +# gogol-adexchange-buyer + +* [Version](#version) +* [Description](#description) +* [Contribute](#contribute) +* [Licence](#licence) + + +## Version + +`0.0.1` + + +## Description + +A client library for the Google Ad Exchange Buyer. + + +## Contribute + +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). + +> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. + + +## Licence + +`gogol-adexchange-buyer` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/). diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/gen/Network/Google/AdExchangeBuyer.hs b/gen/Network/Google/AdExchangeBuyer.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/AdExchangeBuyer.hs @@ -0,0 +1,1101 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} + +-- | +-- Module : Network.Google.AdExchangeBuyer +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Accesses your bidding-account information, submits creatives for +-- validation, finds available direct deals, and retrieves performance +-- reports. +-- +-- /See:/ +module Network.Google.AdExchangeBuyer + ( + -- * Service Configuration + adExchangeBuyerService + + -- * API Declaration + , AdExchangeBuyerAPI + + -- * Resources + + -- ** adexchangebuyer.accounts.get + , module Network.Google.Resource.AdExchangeBuyer.Accounts.Get + + -- ** adexchangebuyer.accounts.list + , module Network.Google.Resource.AdExchangeBuyer.Accounts.List + + -- ** adexchangebuyer.accounts.patch + , module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch + + -- ** adexchangebuyer.accounts.update + , module Network.Google.Resource.AdExchangeBuyer.Accounts.Update + + -- ** adexchangebuyer.billingInfo.get + , module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get + + -- ** adexchangebuyer.billingInfo.list + , module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List + + -- ** adexchangebuyer.budget.get + , module Network.Google.Resource.AdExchangeBuyer.Budget.Get + + -- ** adexchangebuyer.budget.patch + , module Network.Google.Resource.AdExchangeBuyer.Budget.Patch + + -- ** adexchangebuyer.budget.update + , module Network.Google.Resource.AdExchangeBuyer.Budget.Update + + -- ** adexchangebuyer.clientaccess.delete + , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete + + -- ** adexchangebuyer.clientaccess.get + , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get + + -- ** adexchangebuyer.clientaccess.insert + , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert + + -- ** adexchangebuyer.clientaccess.list + , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.List + + -- ** adexchangebuyer.clientaccess.patch + , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch + + -- ** adexchangebuyer.clientaccess.update + , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update + + -- ** adexchangebuyer.creatives.get + , module Network.Google.Resource.AdExchangeBuyer.Creatives.Get + + -- ** adexchangebuyer.creatives.insert + , module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert + + -- ** adexchangebuyer.creatives.list + , module Network.Google.Resource.AdExchangeBuyer.Creatives.List + + -- ** adexchangebuyer.deals.get + , module Network.Google.Resource.AdExchangeBuyer.Deals.Get + + -- ** adexchangebuyer.marketplacedeals.delete + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete + + -- ** adexchangebuyer.marketplacedeals.insert + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert + + -- ** adexchangebuyer.marketplacedeals.list + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List + + -- ** adexchangebuyer.marketplacedeals.update + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update + + -- ** adexchangebuyer.marketplacenotes.insert + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert + + -- ** adexchangebuyer.marketplacenotes.list + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List + + -- ** adexchangebuyer.marketplaceoffers.get + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get + + -- ** adexchangebuyer.marketplaceoffers.search + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search + + -- ** adexchangebuyer.marketplaceorders.get + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get + + -- ** adexchangebuyer.marketplaceorders.insert + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert + + -- ** adexchangebuyer.marketplaceorders.patch + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch + + -- ** adexchangebuyer.marketplaceorders.search + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search + + -- ** adexchangebuyer.marketplaceorders.update + , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update + + -- ** adexchangebuyer.negotiationrounds.insert + , module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert + + -- ** adexchangebuyer.negotiations.get + , module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get + + -- ** adexchangebuyer.negotiations.insert + , module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert + + -- ** adexchangebuyer.negotiations.list + , module Network.Google.Resource.AdExchangeBuyer.Negotiations.List + + -- ** adexchangebuyer.offers.get + , module Network.Google.Resource.AdExchangeBuyer.Offers.Get + + -- ** adexchangebuyer.offers.insert + , module Network.Google.Resource.AdExchangeBuyer.Offers.Insert + + -- ** adexchangebuyer.offers.list + , module Network.Google.Resource.AdExchangeBuyer.Offers.List + + -- ** adexchangebuyer.performanceReport.list + , module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List + + -- ** adexchangebuyer.pretargetingConfig.delete + , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete + + -- ** adexchangebuyer.pretargetingConfig.get + , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get + + -- ** adexchangebuyer.pretargetingConfig.insert + , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert + + -- ** adexchangebuyer.pretargetingConfig.list + , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List + + -- ** adexchangebuyer.pretargetingConfig.patch + , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch + + -- ** adexchangebuyer.pretargetingConfig.update + , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update + + -- * Types + + -- ** BrandDTO + , BrandDTO + , brandDTO + , bdtoAdvertiserId + , bdtoName + , bdtoId + + -- ** MarketplaceOrdersUpdateUpdateAction + , MarketplaceOrdersUpdateUpdateAction (..) + + -- ** MarketplaceNote + , MarketplaceNote + , marketplaceNote + , mnNote + , mnKind + , mnTimestampMs + , mnDealId + , mnNoteId + , mnCreatorRole + , mnOrderId + , mnOrderRevisionNumber + + -- ** CreativeNATiveAd + , CreativeNATiveAd + , creativeNATiveAd + , cnataImage + , cnataAppIcon + , cnataClickTrackingURL + , cnataBody + , cnataHeadline + , cnataImpressionTrackingURL + , cnataCallToAction + , cnataStore + , cnataPrice + , cnataAdvertiser + , cnataStarRating + , cnataLogo + + -- ** EditAllOrderDealsResponse + , EditAllOrderDealsResponse + , editAllOrderDealsResponse + , eaodrDeals + + -- ** CreativesList + , CreativesList + , creativesList + , clNextPageToken + , clKind + , clItems + + -- ** CreativeServingRestrictionsItemContextsItem + , CreativeServingRestrictionsItemContextsItem + , creativeServingRestrictionsItemContextsItem + , csriciPlatform + , csriciContextType + , csriciAuctionType + , csriciGeoCriteriaId + + -- ** TermsDTO + , TermsDTO + , termsDTO + , tdtoFinalizeAutomatically + , tdtoBuyerBillingType + , tdtoTargetingAllAdSlots + , tdtoURLs + , tdtoEndDate + , tdtoCpm + , tdtoEstimatedSpend + , tdtoAdvertisers + , tdtoEstimatedImpressionsPerDay + , tdtoMonetizerType + , tdtoAudienceSegmentDescription + , tdtoCreativeReviewPolicy + , tdtoMinimumTrueLooks + , tdtoStartDate + , tdtoCreativeBlockingLevel + , tdtoSemiTransparent + , tdtoAudienceSegment + , tdtoDealPremium + , tdtoIsReservation + , tdtoAdSlots + , tdtoTermsAttributes + , tdtoInventorySegmentTargeting + , tdtoDescriptiveName + , tdtoMinimumSpendMicros + , tdtoTargetByDealId + , tdtoBillingTerms + , tdtoDescription + + -- ** CreateOrdersResponse + , CreateOrdersResponse + , createOrdersResponse + , corOrders + + -- ** AccountBidderLocationItem + , AccountBidderLocationItem + , accountBidderLocationItem + , abliURL + , abliMaximumQps + , abliRegion + + -- ** PrivateData + , PrivateData + , privateData + , pdReferencePayload + , pdReferenceId + + -- ** Budget + , Budget + , budget + , bCurrencyCode + , bKind + , bBudgetAmount + , bAccountId + , bId + , bBillingId + + -- ** AddOrderNotesRequest + , AddOrderNotesRequest + , addOrderNotesRequest + , aonrNotes + + -- ** GetFinalizedNegotiationByExternalDealIdRequest + , GetFinalizedNegotiationByExternalDealIdRequest + , getFinalizedNegotiationByExternalDealIdRequest + , gfnbedirIncludePrivateAuctions + + -- ** DeliveryControlFrequencyCap + , DeliveryControlFrequencyCap + , deliveryControlFrequencyCap + , dcfcMaxImpressions + , dcfcNumTimeUnits + , dcfcTimeUnitType + + -- ** DealPartyDTO + , DealPartyDTO + , dealPartyDTO + , dpdtoBuyerSellerRole + , dpdtoCustomerId + , dpdtoName + , dpdtoWebProperty + , dpdtoBuyer + + -- ** GetNegotiationsResponse + , GetNegotiationsResponse + , getNegotiationsResponse + , gnrKind + , gnrNegotiations + + -- ** MarketplaceDealParty + , MarketplaceDealParty + , marketplaceDealParty + , mdpSeller + , mdpBuyer + + -- ** GetOrderNotesResponse + , GetOrderNotesResponse + , getOrderNotesResponse + , gonrNotes + + -- ** RuleKeyValuePair + , RuleKeyValuePair + , ruleKeyValuePair + , rkvpKeyName + , rkvpValue + + -- ** GetOrdersResponse + , GetOrdersResponse + , getOrdersResponse + , gorOrders + + -- ** CreativeServingRestrictionsItemDisApprovalReasonsItem + , CreativeServingRestrictionsItemDisApprovalReasonsItem + , creativeServingRestrictionsItemDisApprovalReasonsItem + , csridariReason + , csridariDetails + + -- ** AccountsList + , AccountsList + , accountsList + , alKind + , alItems + + -- ** CreateOrdersRequest + , CreateOrdersRequest + , createOrdersRequest + , cWebPropertyCode + , cOrders + + -- ** AdSize + , AdSize + , adSize + , asHeight + , asWidth + + -- ** MarketplaceOrdersPatchUpdateAction + , MarketplaceOrdersPatchUpdateAction (..) + + -- ** CreativeCorrectionsItem + , CreativeCorrectionsItem + , creativeCorrectionsItem + , cciReason + , cciDetails + + -- ** AddOrderDealsResponse + , AddOrderDealsResponse + , addOrderDealsResponse + , aodrDeals + , aodrOrderRevisionNumber + + -- ** DeliveryControl + , DeliveryControl + , deliveryControl + , dcFrequencyCaps + , dcDeliveryRateType + + -- ** PricePerBuyer + , PricePerBuyer + , pricePerBuyer + , ppbPrice + , ppbBuyer + + -- ** Creative + , Creative + , creative + , cAttribute + , cNATiveAd + , cHeight + , cBuyerCreativeId + , cAdvertiserName + , cAgencyId + , cCorrections + , cProductCategories + , cKind + , cHTMLSnippet + , cAdvertiserId + , cRestrictedCategories + , cDealsStatus + , cWidth + , cClickThroughURL + , cVendorType + , cAccountId + , cImpressionTrackingURL + , cFilteringReasons + , cVersion + , cSensitiveCategories + , cVideoURL + , cAPIUploadTimestamp + , cServingRestrictions + , cOpenAuctionStatus + + -- ** TargetingValueDayPartTargetingDayPart + , TargetingValueDayPartTargetingDayPart + , targetingValueDayPartTargetingDayPart + , tvdptdpEndHour + , tvdptdpStartHour + , tvdptdpStartMinute + , tvdptdpDayOfWeek + , tvdptdpEndMinute + + -- ** PretargetingConfigList + , PretargetingConfigList + , pretargetingConfigList + , pclKind + , pclItems + + -- ** BuyerDTO + , BuyerDTO + , buyerDTO + , buySponsorAccountId + , buyEnabledForInterestTargetingDeals + , buyCustomerId + , buyEnabledForPreferredDeals + , buyAccountId + , buyDisplayName + , buyId + + -- ** AdSlotDTO + , AdSlotDTO + , adSlotDTO + , asdtoWebPropertyId + , asdtoSize + , asdtoChannelCode + , asdtoChannelId + , asdtoName + , asdtoDescription + + -- ** DealTermsNonGuaranteedFixedPriceTerms + , DealTermsNonGuaranteedFixedPriceTerms + , dealTermsNonGuaranteedFixedPriceTerms + , dtngfptFixedPrices + + -- ** PerformanceReport + , PerformanceReport + , performanceReport + , prFilteredBidRate + , prKind + , prLatency95thPercentile + , prCookieMatcherStatusRate + , prHostedMatchStatusRate + , prUnsuccessfulRequestRate + , prBidRequestRate + , prQuotaThrottledLimit + , prQuotaConfiguredLimit + , prSuccessfulRequestRate + , prLatency85thPercentile + , prCalloutStatusRate + , prLatency50thPercentile + , prBidRate + , prCreativeStatusRate + , prNoQuotaInRegion + , prRegion + , prInventoryMatchRate + , prPixelMatchResponses + , prTimestamp + , prPixelMatchRequests + , prOutOfQuota + + -- ** PretargetingConfigExcludedPlacementsItem + , PretargetingConfigExcludedPlacementsItem + , pretargetingConfigExcludedPlacementsItem + , pcepiToken + , pcepiType + + -- ** Seller + , Seller + , seller + , sAccountId + , sSubAccountId + + -- ** Account + , Account + , account + , aMaximumTotalQps + , aKind + , aCookieMatchingURL + , aMaximumActiveCreatives + , aCookieMatchingNid + , aNumberActiveCreatives + , aId + , aBidderLocation + + -- ** DeleteOrderDealsRequest + , DeleteOrderDealsRequest + , deleteOrderDealsRequest + , dodrUpdateAction + , dodrDealIds + , dodrOrderRevisionNumber + + -- ** CreativesListOpenAuctionStatusFilter + , CreativesListOpenAuctionStatusFilter (..) + + -- ** ContactInformation + , ContactInformation + , contactInformation + , ciEmail + , ciName + + -- ** CreativeNATiveAdLogo + , CreativeNATiveAdLogo + , creativeNATiveAdLogo + , cnatalHeight + , cnatalURL + , cnatalWidth + + -- ** GetOrderDealsResponse + , GetOrderDealsResponse + , getOrderDealsResponse + , godrDeals + + -- ** PerformanceReportList + , PerformanceReportList + , performanceReportList + , prlKind + , prlPerformanceReport + + -- ** PretargetingConfig + , PretargetingConfig + , pretargetingConfig + , pcPlatforms + , pcMobileCarriers + , pcVendorTypes + , pcExcludedGeoCriteriaIds + , pcSupportedCreativeAttributes + , pcUserLists + , pcKind + , pcExcludedPlacements + , pcMobileDevices + , pcLanguages + , pcVerticals + , pcConfigId + , pcPlacements + , pcExcludedUserLists + , pcConfigName + , pcGeoCriteriaIds + , pcDimensions + , pcExcludedVerticals + , pcCreativeType + , pcIsActive + , pcExcludedContentLabels + , pcBillingId + , pcMobileOperatingSystemVersions + + -- ** CreativeFilteringReasons + , CreativeFilteringReasons + , creativeFilteringReasons + , cfrReasons + , cfrDate + + -- ** TargetingValueCreativeSize + , TargetingValueCreativeSize + , targetingValueCreativeSize + , tvcsSize + , tvcsCompanionSizes + , tvcsCreativeSizeType + + -- ** NegotiationDTO + , NegotiationDTO + , negotiationDTO + , ndtoNegotiationState + , ndtoExternalDealId + , ndtoStatus + , ndtoDealType + , ndtoNegotiationRounds + , ndtoKind + , ndtoBilledBuyer + , ndtoBuyerEmailContacts + , ndtoStats + , ndtoSeller + , ndtoLabelNames + , ndtoOfferId + , ndtoNegotiationId + , ndtoSellerEmailContacts + , ndtoBuyer + + -- ** OfferDTO + , OfferDTO + , offerDTO + , odtoCreator + , odtoStatus + , odtoOfferState + , odtoPointOfContact + , odtoTerms + , odtoKind + , odtoBilledBuyer + , odtoOpenToDealParties + , odtoEmailContacts + , odtoLabelNames + , odtoOfferId + , odtoClosedToDealParties + , odtoAnonymous + , odtoIsOpen + + -- ** AudienceSegment + , AudienceSegment + , audienceSegment + , asNumCookies + , asName + , asId + , asDescription + + -- ** BillingInfoList + , BillingInfoList + , billingInfoList + , bilKind + , bilItems + + -- ** MarketplaceOffer + , MarketplaceOffer + , marketplaceOffer + , moState + , moWebPropertyCode + , moCreationTimeMs + , moTerms + , moLastUpdateTimeMs + , moKind + , moRevisionNumber + , moHasCreatorSignedOff + , moFlightStartTimeMs + , moSharedTargetings + , moSeller + , moSyndicationProduct + , moFlightEndTimeMs + , moName + , moCreatorContacts + , moOfferId + , moLabels + + -- ** AddOrderNotesResponse + , AddOrderNotesResponse + , addOrderNotesResponse + , aNotes + + -- ** TargetingValueSize + , TargetingValueSize + , targetingValueSize + , tvsHeight + , tvsWidth + + -- ** GetNegotiationsRequest + , GetNegotiationsRequest + , getNegotiationsRequest + , gnrSinceTimestampMillis + , gnrFinalized + , gnrIncludePrivateAuctions + + -- ** MoneyDTO + , MoneyDTO + , moneyDTO + , mdtoCurrencyCode + , mdtoMicros + + -- ** GetNegotiationByIdRequest + , GetNegotiationByIdRequest + , getNegotiationByIdRequest + , gnbirIncludePrivateAuctions + + -- ** ListOffersResponse + , ListOffersResponse + , listOffersResponse + , lorKind + , lorOffers + + -- ** PretargetingConfigDimensionsItem + , PretargetingConfigDimensionsItem + , pretargetingConfigDimensionsItem + , pcdiHeight + , pcdiWidth + + -- ** AdvertiserDTO + , AdvertiserDTO + , advertiserDTO + , adtoStatus + , adtoBrands + , adtoName + , adtoId + + -- ** ListClientAccessCapabilitiesResponse + , ListClientAccessCapabilitiesResponse + , listClientAccessCapabilitiesResponse + , lcacrClientAccessPermissions + + -- ** TargetingValue + , TargetingValue + , targetingValue + , tvCreativeSizeValue + , tvStringValue + , tvLongValue + , tvDayPartTargetingValue + + -- ** CreativeNATiveAdAppIcon + , CreativeNATiveAdAppIcon + , creativeNATiveAdAppIcon + , cnataaiHeight + , cnataaiURL + , cnataaiWidth + + -- ** Price + , Price + , price + , pCurrencyCode + , pAmountMicros + + -- ** EditAllOrderDealsRequest + , EditAllOrderDealsRequest + , editAllOrderDealsRequest + , eUpdateAction + , eDeals + , eOrder + , eOrderRevisionNumber + + -- ** BillingInfo + , BillingInfo + , billingInfo + , biKind + , biAccountName + , biAccountId + , biBillingId + + -- ** TargetingValueDayPartTargeting + , TargetingValueDayPartTargeting + , targetingValueDayPartTargeting + , tvdptTimeZoneType + , tvdptDayParts + + -- ** SharedTargeting + , SharedTargeting + , sharedTargeting + , stKey + , stExclusions + , stInclusions + + -- ** ListClientAccessCapabilitiesRequest + , ListClientAccessCapabilitiesRequest + , listClientAccessCapabilitiesRequest + , lcacrSponsorAccountId + + -- ** InventorySegmentTargeting + , InventorySegmentTargeting + , inventorySegmentTargeting + , istNegativeVideoDurationSegments + , istNegativeIcmBrands + , istNegativeKeyValues + , istPositiveAudienceSegments + , istPositiveXfpPlacements + , istNegativeXfpAdSlots + , istPositiveOperatingSystemVersions + , istPositiveSizes + , istPositiveDeviceCategories + , istPositiveLocations + , istNegativeAdSizes + , istPositiveOperatingSystems + , istPositiveSiteURLs + , istNegativeInventorySlots + , istNegativeVideoAdPositionSegments + , istPositiveAdTypeSegments + , istPositiveIcmInterests + , istPositiveMobileApps + , istPositiveKeyValues + , istPositiveIcmBrands + , istPositiveVideoDurationSegments + , istNegativeAudienceSegments + , istNegativeXfpPlacements + , istPositiveXfpAdSlots + , istNegativeOperatingSystemVersions + , istNegativeSizes + , istNegativeLocations + , istNegativeDeviceCategories + , istNegativeOperatingSystems + , istPositiveAdSizes + , istNegativeSiteURLs + , istNegativeAdTypeSegments + , istPositiveVideoAdPositionSegments + , istPositiveInventorySlots + , istNegativeMobileApps + , istNegativeIcmInterests + + -- ** CreativeNATiveAdImage + , CreativeNATiveAdImage + , creativeNATiveAdImage + , cnataiHeight + , cnataiURL + , cnataiWidth + + -- ** WebPropertyDTO + , WebPropertyDTO + , webPropertyDTO + , wpdtoEnabledForPreferredDeals + , wpdtoSyndicationProduct + , wpdtoName + , wpdtoPropertyCode + , wpdtoId + , wpdtoSiteURLs + , wpdtoAllowInterestTargetedAds + + -- ** ListOffersRequest + , ListOffersRequest + , listOffersRequest + , lorSinceTimestampMillis + + -- ** ClientAccessCapabilities + , ClientAccessCapabilities + , clientAccessCapabilities + , cacClientAccountId + , cacCapabilities + + -- ** CreativeServingRestrictionsItem + , CreativeServingRestrictionsItem + , creativeServingRestrictionsItem + , csriContexts + , csriReason + , csriDisApprovalReasons + + -- ** DeleteOrderDealsResponse + , DeleteOrderDealsResponse + , deleteOrderDealsResponse + , dDeals + , dOrderRevisionNumber + + -- ** PretargetingConfigPlacementsItem + , PretargetingConfigPlacementsItem + , pretargetingConfigPlacementsItem + , pcpiToken + , pcpiType + + -- ** MarketplaceDeal + , MarketplaceDeal + , marketplaceDeal + , mdExternalDealId + , mdBuyerPrivateData + , mdWebPropertyCode + , mdCreationTimeMs + , mdTerms + , mdOfferRevisionNumber + , mdLastUpdateTimeMs + , mdKind + , mdDeliveryControl + , mdFlightStartTimeMs + , mdSharedTargetings + , mdDealId + , mdInventoryDescription + , mdSyndicationProduct + , mdFlightEndTimeMs + , mdName + , mdSellerContacts + , mdOfferId + , mdOrderId + + -- ** GetOffersResponse + , GetOffersResponse + , getOffersResponse + , gorOffers + + -- ** StatsDTO + , StatsDTO + , statsDTO + , sdtoBids + , sdtoSpend + , sdtoImpressions + , sdtoGoodBids + , sdtoRevenue + , sdtoRequests + + -- ** DealTermsNonGuaranteedAuctionTerms + , DealTermsNonGuaranteedAuctionTerms + , dealTermsNonGuaranteedAuctionTerms + , dtngatReservePricePerBuyers + , dtngatPrivateAuctionId + + -- ** CreativeFilteringReasonsReasonsItem + , CreativeFilteringReasonsReasonsItem + , creativeFilteringReasonsReasonsItem + , cfrriFilteringStatus + , cfrriFilteringCount + + -- ** NegotiationRoundDTO + , NegotiationRoundDTO + , negotiationRoundDTO + , nrdtoTerms + , nrdtoKind + , nrdtoOriginatorRole + , nrdtoAction + , nrdtoDBmPartnerId + , nrdtoNotes + , nrdtoNegotiationId + , nrdtoEditHistory + , nrdtoRoundNumber + + -- ** CreativesListDealsStatusFilter + , CreativesListDealsStatusFilter (..) + + -- ** DealTerms + , DealTerms + , dealTerms + , dtNonGuaranteedFixedPriceTerms + , dtNonGuaranteedAuctionTerms + , dtGuaranteedFixedPriceTerms + , dtDescription + + -- ** DateTime + , DateTime + , dateTime + , dtSecond + , dtDay + , dtYear + , dtHour + , dtMonth + , dtMinute + , dtTimeZoneId + + -- ** MarketplaceLabel + , MarketplaceLabel + , marketplaceLabel + , mlDeprecatedMarketplaceDealParty + , mlAccountId + , mlCreateTimeMs + , mlLabel + + -- ** EditHistoryDTO + , EditHistoryDTO + , editHistoryDTO + , ehdtoLastUpdatedByLoginName + , ehdtoCreatedByLoginName + , ehdtoLastUpdateTimeStamp + , ehdtoCreatedTimeStamp + + -- ** Buyer + , Buyer + , buyer + , bbAccountId + + -- ** MarketplaceOrder + , MarketplaceOrder + , marketplaceOrder + , mBuyerPrivateData + , mIsSetupComplete + , mBuyerContacts + , mKind + , mOriginatorRole + , mRevisionNumber + , mBilledBuyer + , mIsRenegotiating + , mHasSellerSignedOff + , mSeller + , mOrderState + , mName + , mSellerContacts + , mLastUpdaterRole + , mLabels + , mRevisionTimeMs + , mOrderId + , mLastUpdaterOrCommentorRole + , mHasBuyerSignedOff + , mBuyer + + -- ** AddOrderDealsRequest + , AddOrderDealsRequest + , addOrderDealsRequest + , aUpdateAction + , aDeals + , aOrderRevisionNumber + + -- ** DealTermsGuaranteedFixedPriceTerms + , DealTermsGuaranteedFixedPriceTerms + , dealTermsGuaranteedFixedPriceTerms + , dtgfptGuaranteedLooks + , dtgfptGuaranteedImpressions + , dtgfptFixedPrices + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude +import Network.Google.Resource.AdExchangeBuyer.Accounts.Get +import Network.Google.Resource.AdExchangeBuyer.Accounts.List +import Network.Google.Resource.AdExchangeBuyer.Accounts.Patch +import Network.Google.Resource.AdExchangeBuyer.Accounts.Update +import Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get +import Network.Google.Resource.AdExchangeBuyer.BillingInfo.List +import Network.Google.Resource.AdExchangeBuyer.Budget.Get +import Network.Google.Resource.AdExchangeBuyer.Budget.Patch +import Network.Google.Resource.AdExchangeBuyer.Budget.Update +import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete +import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get +import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert +import Network.Google.Resource.AdExchangeBuyer.ClientAccess.List +import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch +import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update +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.Deals.Get +import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete +import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert +import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List +import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update +import Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert +import Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search +import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update +import Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert +import Network.Google.Resource.AdExchangeBuyer.Negotiations.Get +import Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert +import Network.Google.Resource.AdExchangeBuyer.Negotiations.List +import Network.Google.Resource.AdExchangeBuyer.Offers.Get +import Network.Google.Resource.AdExchangeBuyer.Offers.Insert +import Network.Google.Resource.AdExchangeBuyer.Offers.List +import Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List +import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete +import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get +import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert +import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List +import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch +import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update + +{- $resources +TODO +-} + +-- | Represents the entirety of the methods and resources available for the Ad Exchange Buyer API service. +type AdExchangeBuyerAPI = + MarketplaceNotesInsertResource :<|> + MarketplaceNotesListResource + :<|> DealsGetResource + :<|> NegotiationRoundsInsertResource + :<|> AccountsListResource + :<|> AccountsPatchResource + :<|> AccountsGetResource + :<|> AccountsUpdateResource + :<|> BudgetPatchResource + :<|> BudgetGetResource + :<|> BudgetUpdateResource + :<|> CreativesInsertResource + :<|> CreativesListResource + :<|> CreativesGetResource + :<|> PerformanceReportListResource + :<|> MarketplaceOffersGetResource + :<|> MarketplaceOffersSearchResource + :<|> PretargetingConfigInsertResource + :<|> PretargetingConfigListResource + :<|> PretargetingConfigPatchResource + :<|> PretargetingConfigGetResource + :<|> PretargetingConfigDeleteResource + :<|> PretargetingConfigUpdateResource + :<|> MarketplaceOrdersInsertResource + :<|> MarketplaceOrdersPatchResource + :<|> MarketplaceOrdersGetResource + :<|> MarketplaceOrdersSearchResource + :<|> MarketplaceOrdersUpdateResource + :<|> ClientAccessInsertResource + :<|> ClientAccessListResource + :<|> ClientAccessPatchResource + :<|> ClientAccessGetResource + :<|> ClientAccessDeleteResource + :<|> ClientAccessUpdateResource + :<|> BillingInfoListResource + :<|> BillingInfoGetResource + :<|> MarketplaceDealsInsertResource + :<|> MarketplaceDealsListResource + :<|> MarketplaceDealsDeleteResource + :<|> MarketplaceDealsUpdateResource + :<|> NegotiationsInsertResource + :<|> NegotiationsListResource + :<|> NegotiationsGetResource + :<|> OffersInsertResource + :<|> OffersListResource + :<|> OffersGetResource diff --git a/gen/Network/Google/AdExchangeBuyer/Types.hs b/gen/Network/Google/AdExchangeBuyer/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/AdExchangeBuyer/Types.hs @@ -0,0 +1,866 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.AdExchangeBuyer.Types +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.AdExchangeBuyer.Types + ( + -- * Service Configuration + adExchangeBuyerService + + -- * OAuth Scopes + , adexchangeBuyerScope + + -- * BrandDTO + , BrandDTO + , brandDTO + , bdtoAdvertiserId + , bdtoName + , bdtoId + + -- * MarketplaceOrdersUpdateUpdateAction + , MarketplaceOrdersUpdateUpdateAction (..) + + -- * MarketplaceNote + , MarketplaceNote + , marketplaceNote + , mnNote + , mnKind + , mnTimestampMs + , mnDealId + , mnNoteId + , mnCreatorRole + , mnOrderId + , mnOrderRevisionNumber + + -- * CreativeNATiveAd + , CreativeNATiveAd + , creativeNATiveAd + , cnataImage + , cnataAppIcon + , cnataClickTrackingURL + , cnataBody + , cnataHeadline + , cnataImpressionTrackingURL + , cnataCallToAction + , cnataStore + , cnataPrice + , cnataAdvertiser + , cnataStarRating + , cnataLogo + + -- * EditAllOrderDealsResponse + , EditAllOrderDealsResponse + , editAllOrderDealsResponse + , eaodrDeals + + -- * CreativesList + , CreativesList + , creativesList + , clNextPageToken + , clKind + , clItems + + -- * CreativeServingRestrictionsItemContextsItem + , CreativeServingRestrictionsItemContextsItem + , creativeServingRestrictionsItemContextsItem + , csriciPlatform + , csriciContextType + , csriciAuctionType + , csriciGeoCriteriaId + + -- * TermsDTO + , TermsDTO + , termsDTO + , tdtoFinalizeAutomatically + , tdtoBuyerBillingType + , tdtoTargetingAllAdSlots + , tdtoURLs + , tdtoEndDate + , tdtoCpm + , tdtoEstimatedSpend + , tdtoAdvertisers + , tdtoEstimatedImpressionsPerDay + , tdtoMonetizerType + , tdtoAudienceSegmentDescription + , tdtoCreativeReviewPolicy + , tdtoMinimumTrueLooks + , tdtoStartDate + , tdtoCreativeBlockingLevel + , tdtoSemiTransparent + , tdtoAudienceSegment + , tdtoDealPremium + , tdtoIsReservation + , tdtoAdSlots + , tdtoTermsAttributes + , tdtoInventorySegmentTargeting + , tdtoDescriptiveName + , tdtoMinimumSpendMicros + , tdtoTargetByDealId + , tdtoBillingTerms + , tdtoDescription + + -- * CreateOrdersResponse + , CreateOrdersResponse + , createOrdersResponse + , corOrders + + -- * AccountBidderLocationItem + , AccountBidderLocationItem + , accountBidderLocationItem + , abliURL + , abliMaximumQps + , abliRegion + + -- * PrivateData + , PrivateData + , privateData + , pdReferencePayload + , pdReferenceId + + -- * Budget + , Budget + , budget + , bCurrencyCode + , bKind + , bBudgetAmount + , bAccountId + , bId + , bBillingId + + -- * AddOrderNotesRequest + , AddOrderNotesRequest + , addOrderNotesRequest + , aonrNotes + + -- * GetFinalizedNegotiationByExternalDealIdRequest + , GetFinalizedNegotiationByExternalDealIdRequest + , getFinalizedNegotiationByExternalDealIdRequest + , gfnbedirIncludePrivateAuctions + + -- * DeliveryControlFrequencyCap + , DeliveryControlFrequencyCap + , deliveryControlFrequencyCap + , dcfcMaxImpressions + , dcfcNumTimeUnits + , dcfcTimeUnitType + + -- * DealPartyDTO + , DealPartyDTO + , dealPartyDTO + , dpdtoBuyerSellerRole + , dpdtoCustomerId + , dpdtoName + , dpdtoWebProperty + , dpdtoBuyer + + -- * GetNegotiationsResponse + , GetNegotiationsResponse + , getNegotiationsResponse + , gnrKind + , gnrNegotiations + + -- * MarketplaceDealParty + , MarketplaceDealParty + , marketplaceDealParty + , mdpSeller + , mdpBuyer + + -- * GetOrderNotesResponse + , GetOrderNotesResponse + , getOrderNotesResponse + , gonrNotes + + -- * RuleKeyValuePair + , RuleKeyValuePair + , ruleKeyValuePair + , rkvpKeyName + , rkvpValue + + -- * GetOrdersResponse + , GetOrdersResponse + , getOrdersResponse + , gorOrders + + -- * CreativeServingRestrictionsItemDisApprovalReasonsItem + , CreativeServingRestrictionsItemDisApprovalReasonsItem + , creativeServingRestrictionsItemDisApprovalReasonsItem + , csridariReason + , csridariDetails + + -- * AccountsList + , AccountsList + , accountsList + , alKind + , alItems + + -- * CreateOrdersRequest + , CreateOrdersRequest + , createOrdersRequest + , cWebPropertyCode + , cOrders + + -- * AdSize + , AdSize + , adSize + , asHeight + , asWidth + + -- * MarketplaceOrdersPatchUpdateAction + , MarketplaceOrdersPatchUpdateAction (..) + + -- * CreativeCorrectionsItem + , CreativeCorrectionsItem + , creativeCorrectionsItem + , cciReason + , cciDetails + + -- * AddOrderDealsResponse + , AddOrderDealsResponse + , addOrderDealsResponse + , aodrDeals + , aodrOrderRevisionNumber + + -- * DeliveryControl + , DeliveryControl + , deliveryControl + , dcFrequencyCaps + , dcDeliveryRateType + + -- * PricePerBuyer + , PricePerBuyer + , pricePerBuyer + , ppbPrice + , ppbBuyer + + -- * Creative + , Creative + , creative + , cAttribute + , cNATiveAd + , cHeight + , cBuyerCreativeId + , cAdvertiserName + , cAgencyId + , cCorrections + , cProductCategories + , cKind + , cHTMLSnippet + , cAdvertiserId + , cRestrictedCategories + , cDealsStatus + , cWidth + , cClickThroughURL + , cVendorType + , cAccountId + , cImpressionTrackingURL + , cFilteringReasons + , cVersion + , cSensitiveCategories + , cVideoURL + , cAPIUploadTimestamp + , cServingRestrictions + , cOpenAuctionStatus + + -- * TargetingValueDayPartTargetingDayPart + , TargetingValueDayPartTargetingDayPart + , targetingValueDayPartTargetingDayPart + , tvdptdpEndHour + , tvdptdpStartHour + , tvdptdpStartMinute + , tvdptdpDayOfWeek + , tvdptdpEndMinute + + -- * PretargetingConfigList + , PretargetingConfigList + , pretargetingConfigList + , pclKind + , pclItems + + -- * BuyerDTO + , BuyerDTO + , buyerDTO + , buySponsorAccountId + , buyEnabledForInterestTargetingDeals + , buyCustomerId + , buyEnabledForPreferredDeals + , buyAccountId + , buyDisplayName + , buyId + + -- * AdSlotDTO + , AdSlotDTO + , adSlotDTO + , asdtoWebPropertyId + , asdtoSize + , asdtoChannelCode + , asdtoChannelId + , asdtoName + , asdtoDescription + + -- * DealTermsNonGuaranteedFixedPriceTerms + , DealTermsNonGuaranteedFixedPriceTerms + , dealTermsNonGuaranteedFixedPriceTerms + , dtngfptFixedPrices + + -- * PerformanceReport + , PerformanceReport + , performanceReport + , prFilteredBidRate + , prKind + , prLatency95thPercentile + , prCookieMatcherStatusRate + , prHostedMatchStatusRate + , prUnsuccessfulRequestRate + , prBidRequestRate + , prQuotaThrottledLimit + , prQuotaConfiguredLimit + , prSuccessfulRequestRate + , prLatency85thPercentile + , prCalloutStatusRate + , prLatency50thPercentile + , prBidRate + , prCreativeStatusRate + , prNoQuotaInRegion + , prRegion + , prInventoryMatchRate + , prPixelMatchResponses + , prTimestamp + , prPixelMatchRequests + , prOutOfQuota + + -- * PretargetingConfigExcludedPlacementsItem + , PretargetingConfigExcludedPlacementsItem + , pretargetingConfigExcludedPlacementsItem + , pcepiToken + , pcepiType + + -- * Seller + , Seller + , seller + , sAccountId + , sSubAccountId + + -- * Account + , Account + , account + , aMaximumTotalQps + , aKind + , aCookieMatchingURL + , aMaximumActiveCreatives + , aCookieMatchingNid + , aNumberActiveCreatives + , aId + , aBidderLocation + + -- * DeleteOrderDealsRequest + , DeleteOrderDealsRequest + , deleteOrderDealsRequest + , dodrUpdateAction + , dodrDealIds + , dodrOrderRevisionNumber + + -- * CreativesListOpenAuctionStatusFilter + , CreativesListOpenAuctionStatusFilter (..) + + -- * ContactInformation + , ContactInformation + , contactInformation + , ciEmail + , ciName + + -- * CreativeNATiveAdLogo + , CreativeNATiveAdLogo + , creativeNATiveAdLogo + , cnatalHeight + , cnatalURL + , cnatalWidth + + -- * GetOrderDealsResponse + , GetOrderDealsResponse + , getOrderDealsResponse + , godrDeals + + -- * PerformanceReportList + , PerformanceReportList + , performanceReportList + , prlKind + , prlPerformanceReport + + -- * PretargetingConfig + , PretargetingConfig + , pretargetingConfig + , pcPlatforms + , pcMobileCarriers + , pcVendorTypes + , pcExcludedGeoCriteriaIds + , pcSupportedCreativeAttributes + , pcUserLists + , pcKind + , pcExcludedPlacements + , pcMobileDevices + , pcLanguages + , pcVerticals + , pcConfigId + , pcPlacements + , pcExcludedUserLists + , pcConfigName + , pcGeoCriteriaIds + , pcDimensions + , pcExcludedVerticals + , pcCreativeType + , pcIsActive + , pcExcludedContentLabels + , pcBillingId + , pcMobileOperatingSystemVersions + + -- * CreativeFilteringReasons + , CreativeFilteringReasons + , creativeFilteringReasons + , cfrReasons + , cfrDate + + -- * TargetingValueCreativeSize + , TargetingValueCreativeSize + , targetingValueCreativeSize + , tvcsSize + , tvcsCompanionSizes + , tvcsCreativeSizeType + + -- * NegotiationDTO + , NegotiationDTO + , negotiationDTO + , ndtoNegotiationState + , ndtoExternalDealId + , ndtoStatus + , ndtoDealType + , ndtoNegotiationRounds + , ndtoKind + , ndtoBilledBuyer + , ndtoBuyerEmailContacts + , ndtoStats + , ndtoSeller + , ndtoLabelNames + , ndtoOfferId + , ndtoNegotiationId + , ndtoSellerEmailContacts + , ndtoBuyer + + -- * OfferDTO + , OfferDTO + , offerDTO + , odtoCreator + , odtoStatus + , odtoOfferState + , odtoPointOfContact + , odtoTerms + , odtoKind + , odtoBilledBuyer + , odtoOpenToDealParties + , odtoEmailContacts + , odtoLabelNames + , odtoOfferId + , odtoClosedToDealParties + , odtoAnonymous + , odtoIsOpen + + -- * AudienceSegment + , AudienceSegment + , audienceSegment + , asNumCookies + , asName + , asId + , asDescription + + -- * BillingInfoList + , BillingInfoList + , billingInfoList + , bilKind + , bilItems + + -- * MarketplaceOffer + , MarketplaceOffer + , marketplaceOffer + , moState + , moWebPropertyCode + , moCreationTimeMs + , moTerms + , moLastUpdateTimeMs + , moKind + , moRevisionNumber + , moHasCreatorSignedOff + , moFlightStartTimeMs + , moSharedTargetings + , moSeller + , moSyndicationProduct + , moFlightEndTimeMs + , moName + , moCreatorContacts + , moOfferId + , moLabels + + -- * AddOrderNotesResponse + , AddOrderNotesResponse + , addOrderNotesResponse + , aNotes + + -- * TargetingValueSize + , TargetingValueSize + , targetingValueSize + , tvsHeight + , tvsWidth + + -- * GetNegotiationsRequest + , GetNegotiationsRequest + , getNegotiationsRequest + , gnrSinceTimestampMillis + , gnrFinalized + , gnrIncludePrivateAuctions + + -- * MoneyDTO + , MoneyDTO + , moneyDTO + , mdtoCurrencyCode + , mdtoMicros + + -- * GetNegotiationByIdRequest + , GetNegotiationByIdRequest + , getNegotiationByIdRequest + , gnbirIncludePrivateAuctions + + -- * ListOffersResponse + , ListOffersResponse + , listOffersResponse + , lorKind + , lorOffers + + -- * PretargetingConfigDimensionsItem + , PretargetingConfigDimensionsItem + , pretargetingConfigDimensionsItem + , pcdiHeight + , pcdiWidth + + -- * AdvertiserDTO + , AdvertiserDTO + , advertiserDTO + , adtoStatus + , adtoBrands + , adtoName + , adtoId + + -- * ListClientAccessCapabilitiesResponse + , ListClientAccessCapabilitiesResponse + , listClientAccessCapabilitiesResponse + , lcacrClientAccessPermissions + + -- * TargetingValue + , TargetingValue + , targetingValue + , tvCreativeSizeValue + , tvStringValue + , tvLongValue + , tvDayPartTargetingValue + + -- * CreativeNATiveAdAppIcon + , CreativeNATiveAdAppIcon + , creativeNATiveAdAppIcon + , cnataaiHeight + , cnataaiURL + , cnataaiWidth + + -- * Price + , Price + , price + , pCurrencyCode + , pAmountMicros + + -- * EditAllOrderDealsRequest + , EditAllOrderDealsRequest + , editAllOrderDealsRequest + , eUpdateAction + , eDeals + , eOrder + , eOrderRevisionNumber + + -- * BillingInfo + , BillingInfo + , billingInfo + , biKind + , biAccountName + , biAccountId + , biBillingId + + -- * TargetingValueDayPartTargeting + , TargetingValueDayPartTargeting + , targetingValueDayPartTargeting + , tvdptTimeZoneType + , tvdptDayParts + + -- * SharedTargeting + , SharedTargeting + , sharedTargeting + , stKey + , stExclusions + , stInclusions + + -- * ListClientAccessCapabilitiesRequest + , ListClientAccessCapabilitiesRequest + , listClientAccessCapabilitiesRequest + , lcacrSponsorAccountId + + -- * InventorySegmentTargeting + , InventorySegmentTargeting + , inventorySegmentTargeting + , istNegativeVideoDurationSegments + , istNegativeIcmBrands + , istNegativeKeyValues + , istPositiveAudienceSegments + , istPositiveXfpPlacements + , istNegativeXfpAdSlots + , istPositiveOperatingSystemVersions + , istPositiveSizes + , istPositiveDeviceCategories + , istPositiveLocations + , istNegativeAdSizes + , istPositiveOperatingSystems + , istPositiveSiteURLs + , istNegativeInventorySlots + , istNegativeVideoAdPositionSegments + , istPositiveAdTypeSegments + , istPositiveIcmInterests + , istPositiveMobileApps + , istPositiveKeyValues + , istPositiveIcmBrands + , istPositiveVideoDurationSegments + , istNegativeAudienceSegments + , istNegativeXfpPlacements + , istPositiveXfpAdSlots + , istNegativeOperatingSystemVersions + , istNegativeSizes + , istNegativeLocations + , istNegativeDeviceCategories + , istNegativeOperatingSystems + , istPositiveAdSizes + , istNegativeSiteURLs + , istNegativeAdTypeSegments + , istPositiveVideoAdPositionSegments + , istPositiveInventorySlots + , istNegativeMobileApps + , istNegativeIcmInterests + + -- * CreativeNATiveAdImage + , CreativeNATiveAdImage + , creativeNATiveAdImage + , cnataiHeight + , cnataiURL + , cnataiWidth + + -- * WebPropertyDTO + , WebPropertyDTO + , webPropertyDTO + , wpdtoEnabledForPreferredDeals + , wpdtoSyndicationProduct + , wpdtoName + , wpdtoPropertyCode + , wpdtoId + , wpdtoSiteURLs + , wpdtoAllowInterestTargetedAds + + -- * ListOffersRequest + , ListOffersRequest + , listOffersRequest + , lorSinceTimestampMillis + + -- * ClientAccessCapabilities + , ClientAccessCapabilities + , clientAccessCapabilities + , cacClientAccountId + , cacCapabilities + + -- * CreativeServingRestrictionsItem + , CreativeServingRestrictionsItem + , creativeServingRestrictionsItem + , csriContexts + , csriReason + , csriDisApprovalReasons + + -- * DeleteOrderDealsResponse + , DeleteOrderDealsResponse + , deleteOrderDealsResponse + , dDeals + , dOrderRevisionNumber + + -- * PretargetingConfigPlacementsItem + , PretargetingConfigPlacementsItem + , pretargetingConfigPlacementsItem + , pcpiToken + , pcpiType + + -- * MarketplaceDeal + , MarketplaceDeal + , marketplaceDeal + , mdExternalDealId + , mdBuyerPrivateData + , mdWebPropertyCode + , mdCreationTimeMs + , mdTerms + , mdOfferRevisionNumber + , mdLastUpdateTimeMs + , mdKind + , mdDeliveryControl + , mdFlightStartTimeMs + , mdSharedTargetings + , mdDealId + , mdInventoryDescription + , mdSyndicationProduct + , mdFlightEndTimeMs + , mdName + , mdSellerContacts + , mdOfferId + , mdOrderId + + -- * GetOffersResponse + , GetOffersResponse + , getOffersResponse + , gorOffers + + -- * StatsDTO + , StatsDTO + , statsDTO + , sdtoBids + , sdtoSpend + , sdtoImpressions + , sdtoGoodBids + , sdtoRevenue + , sdtoRequests + + -- * DealTermsNonGuaranteedAuctionTerms + , DealTermsNonGuaranteedAuctionTerms + , dealTermsNonGuaranteedAuctionTerms + , dtngatReservePricePerBuyers + , dtngatPrivateAuctionId + + -- * CreativeFilteringReasonsReasonsItem + , CreativeFilteringReasonsReasonsItem + , creativeFilteringReasonsReasonsItem + , cfrriFilteringStatus + , cfrriFilteringCount + + -- * NegotiationRoundDTO + , NegotiationRoundDTO + , negotiationRoundDTO + , nrdtoTerms + , nrdtoKind + , nrdtoOriginatorRole + , nrdtoAction + , nrdtoDBmPartnerId + , nrdtoNotes + , nrdtoNegotiationId + , nrdtoEditHistory + , nrdtoRoundNumber + + -- * CreativesListDealsStatusFilter + , CreativesListDealsStatusFilter (..) + + -- * DealTerms + , DealTerms + , dealTerms + , dtNonGuaranteedFixedPriceTerms + , dtNonGuaranteedAuctionTerms + , dtGuaranteedFixedPriceTerms + , dtDescription + + -- * DateTime + , DateTime + , dateTime + , dtSecond + , dtDay + , dtYear + , dtHour + , dtMonth + , dtMinute + , dtTimeZoneId + + -- * MarketplaceLabel + , MarketplaceLabel + , marketplaceLabel + , mlDeprecatedMarketplaceDealParty + , mlAccountId + , mlCreateTimeMs + , mlLabel + + -- * EditHistoryDTO + , EditHistoryDTO + , editHistoryDTO + , ehdtoLastUpdatedByLoginName + , ehdtoCreatedByLoginName + , ehdtoLastUpdateTimeStamp + , ehdtoCreatedTimeStamp + + -- * Buyer + , Buyer + , buyer + , bbAccountId + + -- * MarketplaceOrder + , MarketplaceOrder + , marketplaceOrder + , mBuyerPrivateData + , mIsSetupComplete + , mBuyerContacts + , mKind + , mOriginatorRole + , mRevisionNumber + , mBilledBuyer + , mIsRenegotiating + , mHasSellerSignedOff + , mSeller + , mOrderState + , mName + , mSellerContacts + , mLastUpdaterRole + , mLabels + , mRevisionTimeMs + , mOrderId + , mLastUpdaterOrCommentorRole + , mHasBuyerSignedOff + , mBuyer + + -- * AddOrderDealsRequest + , AddOrderDealsRequest + , addOrderDealsRequest + , aUpdateAction + , aDeals + , aOrderRevisionNumber + + -- * DealTermsGuaranteedFixedPriceTerms + , DealTermsGuaranteedFixedPriceTerms + , dealTermsGuaranteedFixedPriceTerms + , dtgfptGuaranteedLooks + , dtgfptGuaranteedImpressions + , dtgfptFixedPrices + ) where + +import Network.Google.AdExchangeBuyer.Types.Product +import Network.Google.AdExchangeBuyer.Types.Sum +import Network.Google.Prelude + +-- | Default request referring to version 'v1.4' of the Ad Exchange Buyer API. This contains the host and root path used as a starting point for constructing service requests. +adExchangeBuyerService :: Service +adExchangeBuyerService + = defaultService (ServiceId "adexchangebuyer:v1.4") + "www.googleapis.com" + +-- | Manage your Ad Exchange buyer account configuration +adexchangeBuyerScope :: OAuthScope +adexchangeBuyerScope = "https://www.googleapis.com/auth/adexchange.buyer"; diff --git a/gen/Network/Google/AdExchangeBuyer/Types/Product.hs b/gen/Network/Google/AdExchangeBuyer/Types/Product.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/AdExchangeBuyer/Types/Product.hs @@ -0,0 +1,7971 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} + +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.AdExchangeBuyer.Types.Product +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.AdExchangeBuyer.Types.Product where + +import Network.Google.AdExchangeBuyer.Types.Sum +import Network.Google.Prelude + +-- +-- /See:/ 'brandDTO' smart constructor. +data BrandDTO = BrandDTO + { _bdtoAdvertiserId :: !(Maybe (Textual Int64)) + , _bdtoName :: !(Maybe Text) + , _bdtoId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BrandDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bdtoAdvertiserId' +-- +-- * 'bdtoName' +-- +-- * 'bdtoId' +brandDTO + :: BrandDTO +brandDTO = + BrandDTO + { _bdtoAdvertiserId = Nothing + , _bdtoName = Nothing + , _bdtoId = Nothing + } + +bdtoAdvertiserId :: Lens' BrandDTO (Maybe Int64) +bdtoAdvertiserId + = lens _bdtoAdvertiserId + (\ s a -> s{_bdtoAdvertiserId = a}) + . mapping _Coerce + +bdtoName :: Lens' BrandDTO (Maybe Text) +bdtoName = lens _bdtoName (\ s a -> s{_bdtoName = a}) + +bdtoId :: Lens' BrandDTO (Maybe Int64) +bdtoId + = lens _bdtoId (\ s a -> s{_bdtoId = a}) . + mapping _Coerce + +instance FromJSON BrandDTO where + parseJSON + = withObject "BrandDTO" + (\ o -> + BrandDTO <$> + (o .:? "advertiserId") <*> (o .:? "name") <*> + (o .:? "id")) + +instance ToJSON BrandDTO where + toJSON BrandDTO{..} + = object + (catMaybes + [("advertiserId" .=) <$> _bdtoAdvertiserId, + ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId]) + +-- | An order is associated with a bunch of notes which may optionally be +-- associated with a deal and\/or revision number. +-- +-- /See:/ 'marketplaceNote' smart constructor. +data MarketplaceNote = MarketplaceNote + { _mnNote :: !(Maybe Text) + , _mnKind :: !Text + , _mnTimestampMs :: !(Maybe (Textual Int64)) + , _mnDealId :: !(Maybe Text) + , _mnNoteId :: !(Maybe Text) + , _mnCreatorRole :: !(Maybe Text) + , _mnOrderId :: !(Maybe Text) + , _mnOrderRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceNote' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mnNote' +-- +-- * 'mnKind' +-- +-- * 'mnTimestampMs' +-- +-- * 'mnDealId' +-- +-- * 'mnNoteId' +-- +-- * 'mnCreatorRole' +-- +-- * 'mnOrderId' +-- +-- * 'mnOrderRevisionNumber' +marketplaceNote + :: MarketplaceNote +marketplaceNote = + MarketplaceNote + { _mnNote = Nothing + , _mnKind = "adexchangebuyer#marketplaceNote" + , _mnTimestampMs = Nothing + , _mnDealId = Nothing + , _mnNoteId = Nothing + , _mnCreatorRole = Nothing + , _mnOrderId = Nothing + , _mnOrderRevisionNumber = Nothing + } + +-- | The actual note to attach. (readonly, except on create) +mnNote :: Lens' MarketplaceNote (Maybe Text) +mnNote = lens _mnNote (\ s a -> s{_mnNote = a}) + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#marketplaceNote\". +mnKind :: Lens' MarketplaceNote Text +mnKind = lens _mnKind (\ s a -> s{_mnKind = a}) + +-- | The timestamp (ms since epoch) that this note was created. (readonly) +mnTimestampMs :: Lens' MarketplaceNote (Maybe Int64) +mnTimestampMs + = lens _mnTimestampMs + (\ s a -> s{_mnTimestampMs = a}) + . mapping _Coerce + +-- | Notes can optionally be associated with a deal. (readonly, except on +-- create) +mnDealId :: Lens' MarketplaceNote (Maybe Text) +mnDealId = lens _mnDealId (\ s a -> s{_mnDealId = a}) + +-- | The unique id for the note. (readonly) +mnNoteId :: Lens' MarketplaceNote (Maybe Text) +mnNoteId = lens _mnNoteId (\ s a -> s{_mnNoteId = a}) + +-- | The role of the person (buyer\/seller) creating the note. (readonly) +mnCreatorRole :: Lens' MarketplaceNote (Maybe Text) +mnCreatorRole + = lens _mnCreatorRole + (\ s a -> s{_mnCreatorRole = a}) + +-- | The order_id that a note is attached to. (readonly) +mnOrderId :: Lens' MarketplaceNote (Maybe Text) +mnOrderId + = lens _mnOrderId (\ s a -> s{_mnOrderId = a}) + +-- | If the note is associated with an order revision number, then store that +-- here. (readonly, except on create) +mnOrderRevisionNumber :: Lens' MarketplaceNote (Maybe Int64) +mnOrderRevisionNumber + = lens _mnOrderRevisionNumber + (\ s a -> s{_mnOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON MarketplaceNote where + parseJSON + = withObject "MarketplaceNote" + (\ o -> + MarketplaceNote <$> + (o .:? "note") <*> + (o .:? "kind" .!= "adexchangebuyer#marketplaceNote") + <*> (o .:? "timestampMs") + <*> (o .:? "dealId") + <*> (o .:? "noteId") + <*> (o .:? "creatorRole") + <*> (o .:? "orderId") + <*> (o .:? "orderRevisionNumber")) + +instance ToJSON MarketplaceNote where + toJSON MarketplaceNote{..} + = object + (catMaybes + [("note" .=) <$> _mnNote, Just ("kind" .= _mnKind), + ("timestampMs" .=) <$> _mnTimestampMs, + ("dealId" .=) <$> _mnDealId, + ("noteId" .=) <$> _mnNoteId, + ("creatorRole" .=) <$> _mnCreatorRole, + ("orderId" .=) <$> _mnOrderId, + ("orderRevisionNumber" .=) <$> + _mnOrderRevisionNumber]) + +-- | If nativeAd is set, HTMLSnippet and videoURL should not be set. +-- +-- /See:/ 'creativeNATiveAd' smart constructor. +data CreativeNATiveAd = CreativeNATiveAd + { _cnataImage :: !(Maybe CreativeNATiveAdImage) + , _cnataAppIcon :: !(Maybe CreativeNATiveAdAppIcon) + , _cnataClickTrackingURL :: !(Maybe Text) + , _cnataBody :: !(Maybe Text) + , _cnataHeadline :: !(Maybe Text) + , _cnataImpressionTrackingURL :: !(Maybe [Text]) + , _cnataCallToAction :: !(Maybe Text) + , _cnataStore :: !(Maybe Text) + , _cnataPrice :: !(Maybe Text) + , _cnataAdvertiser :: !(Maybe Text) + , _cnataStarRating :: !(Maybe (Textual Double)) + , _cnataLogo :: !(Maybe CreativeNATiveAdLogo) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeNATiveAd' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cnataImage' +-- +-- * 'cnataAppIcon' +-- +-- * 'cnataClickTrackingURL' +-- +-- * 'cnataBody' +-- +-- * 'cnataHeadline' +-- +-- * 'cnataImpressionTrackingURL' +-- +-- * 'cnataCallToAction' +-- +-- * 'cnataStore' +-- +-- * 'cnataPrice' +-- +-- * 'cnataAdvertiser' +-- +-- * 'cnataStarRating' +-- +-- * 'cnataLogo' +creativeNATiveAd + :: CreativeNATiveAd +creativeNATiveAd = + CreativeNATiveAd + { _cnataImage = Nothing + , _cnataAppIcon = Nothing + , _cnataClickTrackingURL = Nothing + , _cnataBody = Nothing + , _cnataHeadline = Nothing + , _cnataImpressionTrackingURL = Nothing + , _cnataCallToAction = Nothing + , _cnataStore = Nothing + , _cnataPrice = Nothing + , _cnataAdvertiser = Nothing + , _cnataStarRating = Nothing + , _cnataLogo = Nothing + } + +-- | A large image. +cnataImage :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdImage) +cnataImage + = lens _cnataImage (\ s a -> s{_cnataImage = a}) + +-- | The app icon, for app download ads. +cnataAppIcon :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdAppIcon) +cnataAppIcon + = lens _cnataAppIcon (\ s a -> s{_cnataAppIcon = a}) + +-- | The URL to use for click tracking. +cnataClickTrackingURL :: Lens' CreativeNATiveAd (Maybe Text) +cnataClickTrackingURL + = lens _cnataClickTrackingURL + (\ s a -> s{_cnataClickTrackingURL = a}) + +-- | A long description of the ad. +cnataBody :: Lens' CreativeNATiveAd (Maybe Text) +cnataBody + = lens _cnataBody (\ s a -> s{_cnataBody = a}) + +-- | A short title for the ad. +cnataHeadline :: Lens' CreativeNATiveAd (Maybe Text) +cnataHeadline + = lens _cnataHeadline + (\ s a -> s{_cnataHeadline = a}) + +-- | The URLs are called when the impression is rendered. +cnataImpressionTrackingURL :: Lens' CreativeNATiveAd [Text] +cnataImpressionTrackingURL + = lens _cnataImpressionTrackingURL + (\ s a -> s{_cnataImpressionTrackingURL = a}) + . _Default + . _Coerce + +-- | A label for the button that the user is supposed to click. +cnataCallToAction :: Lens' CreativeNATiveAd (Maybe Text) +cnataCallToAction + = lens _cnataCallToAction + (\ s a -> s{_cnataCallToAction = a}) + +-- | The URL to the app store to purchase\/download the promoted app. +cnataStore :: Lens' CreativeNATiveAd (Maybe Text) +cnataStore + = lens _cnataStore (\ s a -> s{_cnataStore = a}) + +-- | The price of the promoted app including the currency info. +cnataPrice :: Lens' CreativeNATiveAd (Maybe Text) +cnataPrice + = lens _cnataPrice (\ s a -> s{_cnataPrice = a}) + +cnataAdvertiser :: Lens' CreativeNATiveAd (Maybe Text) +cnataAdvertiser + = lens _cnataAdvertiser + (\ s a -> s{_cnataAdvertiser = a}) + +-- | The app rating in the app store. Must be in the range [0-5]. +cnataStarRating :: Lens' CreativeNATiveAd (Maybe Double) +cnataStarRating + = lens _cnataStarRating + (\ s a -> s{_cnataStarRating = a}) + . mapping _Coerce + +-- | A smaller image, for the advertiser logo. +cnataLogo :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdLogo) +cnataLogo + = lens _cnataLogo (\ s a -> s{_cnataLogo = a}) + +instance FromJSON CreativeNATiveAd where + parseJSON + = withObject "CreativeNATiveAd" + (\ o -> + CreativeNATiveAd <$> + (o .:? "image") <*> (o .:? "appIcon") <*> + (o .:? "clickTrackingUrl") + <*> (o .:? "body") + <*> (o .:? "headline") + <*> (o .:? "impressionTrackingUrl" .!= mempty) + <*> (o .:? "callToAction") + <*> (o .:? "store") + <*> (o .:? "price") + <*> (o .:? "advertiser") + <*> (o .:? "starRating") + <*> (o .:? "logo")) + +instance ToJSON CreativeNATiveAd where + toJSON CreativeNATiveAd{..} + = object + (catMaybes + [("image" .=) <$> _cnataImage, + ("appIcon" .=) <$> _cnataAppIcon, + ("clickTrackingUrl" .=) <$> _cnataClickTrackingURL, + ("body" .=) <$> _cnataBody, + ("headline" .=) <$> _cnataHeadline, + ("impressionTrackingUrl" .=) <$> + _cnataImpressionTrackingURL, + ("callToAction" .=) <$> _cnataCallToAction, + ("store" .=) <$> _cnataStore, + ("price" .=) <$> _cnataPrice, + ("advertiser" .=) <$> _cnataAdvertiser, + ("starRating" .=) <$> _cnataStarRating, + ("logo" .=) <$> _cnataLogo]) + +-- +-- /See:/ 'editAllOrderDealsResponse' smart constructor. +newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse + { _eaodrDeals :: Maybe [MarketplaceDeal] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'EditAllOrderDealsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eaodrDeals' +editAllOrderDealsResponse + :: EditAllOrderDealsResponse +editAllOrderDealsResponse = + EditAllOrderDealsResponse + { _eaodrDeals = Nothing + } + +-- | List of all deals in the order after edit. +eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal] +eaodrDeals + = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) . + _Default + . _Coerce + +instance FromJSON EditAllOrderDealsResponse where + parseJSON + = withObject "EditAllOrderDealsResponse" + (\ o -> + EditAllOrderDealsResponse <$> + (o .:? "deals" .!= mempty)) + +instance ToJSON EditAllOrderDealsResponse where + toJSON EditAllOrderDealsResponse{..} + = object (catMaybes [("deals" .=) <$> _eaodrDeals]) + +-- | The creatives feed lists the active creatives for the Ad Exchange buyer +-- accounts that the user has access to. Each entry in the feed corresponds +-- to a single creative. +-- +-- /See:/ 'creativesList' smart constructor. +data CreativesList = CreativesList + { _clNextPageToken :: !(Maybe Text) + , _clKind :: !Text + , _clItems :: !(Maybe [Creative]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'clNextPageToken' +-- +-- * 'clKind' +-- +-- * 'clItems' +creativesList + :: CreativesList +creativesList = + CreativesList + { _clNextPageToken = Nothing + , _clKind = "adexchangebuyer#creativesList" + , _clItems = Nothing + } + +-- | Continuation token used to page through creatives. To retrieve the next +-- page of results, set the next request\'s \"pageToken\" value to this. +clNextPageToken :: Lens' CreativesList (Maybe Text) +clNextPageToken + = lens _clNextPageToken + (\ s a -> s{_clNextPageToken = a}) + +-- | Resource type. +clKind :: Lens' CreativesList Text +clKind = lens _clKind (\ s a -> s{_clKind = a}) + +-- | A list of creatives. +clItems :: Lens' CreativesList [Creative] +clItems + = lens _clItems (\ s a -> s{_clItems = a}) . _Default + . _Coerce + +instance FromJSON CreativesList where + parseJSON + = withObject "CreativesList" + (\ o -> + CreativesList <$> + (o .:? "nextPageToken") <*> + (o .:? "kind" .!= "adexchangebuyer#creativesList") + <*> (o .:? "items" .!= mempty)) + +instance ToJSON CreativesList where + toJSON CreativesList{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _clNextPageToken, + Just ("kind" .= _clKind), ("items" .=) <$> _clItems]) + +-- +-- /See:/ 'creativeServingRestrictionsItemContextsItem' smart constructor. +data CreativeServingRestrictionsItemContextsItem = CreativeServingRestrictionsItemContextsItem + { _csriciPlatform :: !(Maybe [Text]) + , _csriciContextType :: !(Maybe Text) + , _csriciAuctionType :: !(Maybe [Text]) + , _csriciGeoCriteriaId :: !(Maybe [Textual Int32]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeServingRestrictionsItemContextsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csriciPlatform' +-- +-- * 'csriciContextType' +-- +-- * 'csriciAuctionType' +-- +-- * 'csriciGeoCriteriaId' +creativeServingRestrictionsItemContextsItem + :: CreativeServingRestrictionsItemContextsItem +creativeServingRestrictionsItemContextsItem = + CreativeServingRestrictionsItemContextsItem + { _csriciPlatform = Nothing + , _csriciContextType = Nothing + , _csriciAuctionType = Nothing + , _csriciGeoCriteriaId = Nothing + } + +-- | Only set when contextType=PLATFORM. Represents the platforms this +-- restriction applies to. +csriciPlatform :: Lens' CreativeServingRestrictionsItemContextsItem [Text] +csriciPlatform + = lens _csriciPlatform + (\ s a -> s{_csriciPlatform = a}) + . _Default + . _Coerce + +-- | The type of context (e.g., location, platform, auction type, SSL-ness). +csriciContextType :: Lens' CreativeServingRestrictionsItemContextsItem (Maybe Text) +csriciContextType + = lens _csriciContextType + (\ s a -> s{_csriciContextType = a}) + +-- | Only set when contextType=AUCTION_TYPE. Represents the auction types +-- this restriction applies to. +csriciAuctionType :: Lens' CreativeServingRestrictionsItemContextsItem [Text] +csriciAuctionType + = lens _csriciAuctionType + (\ s a -> s{_csriciAuctionType = a}) + . _Default + . _Coerce + +-- | Only set when contextType=LOCATION. Represents the geo criterias this +-- restriction applies to. +csriciGeoCriteriaId :: Lens' CreativeServingRestrictionsItemContextsItem [Int32] +csriciGeoCriteriaId + = lens _csriciGeoCriteriaId + (\ s a -> s{_csriciGeoCriteriaId = a}) + . _Default + . _Coerce + +instance FromJSON + CreativeServingRestrictionsItemContextsItem where + parseJSON + = withObject + "CreativeServingRestrictionsItemContextsItem" + (\ o -> + CreativeServingRestrictionsItemContextsItem <$> + (o .:? "platform" .!= mempty) <*> + (o .:? "contextType") + <*> (o .:? "auctionType" .!= mempty) + <*> (o .:? "geoCriteriaId" .!= mempty)) + +instance ToJSON + CreativeServingRestrictionsItemContextsItem where + toJSON + CreativeServingRestrictionsItemContextsItem{..} + = object + (catMaybes + [("platform" .=) <$> _csriciPlatform, + ("contextType" .=) <$> _csriciContextType, + ("auctionType" .=) <$> _csriciAuctionType, + ("geoCriteriaId" .=) <$> _csriciGeoCriteriaId]) + +-- +-- /See:/ 'termsDTO' smart constructor. +data TermsDTO = TermsDTO + { _tdtoFinalizeAutomatically :: !(Maybe Bool) + , _tdtoBuyerBillingType :: !(Maybe Text) + , _tdtoTargetingAllAdSlots :: !(Maybe Bool) + , _tdtoURLs :: !(Maybe [Text]) + , _tdtoEndDate :: !(Maybe DateTime) + , _tdtoCpm :: !(Maybe MoneyDTO) + , _tdtoEstimatedSpend :: !(Maybe MoneyDTO) + , _tdtoAdvertisers :: !(Maybe [AdvertiserDTO]) + , _tdtoEstimatedImpressionsPerDay :: !(Maybe (Textual Int64)) + , _tdtoMonetizerType :: !(Maybe Text) + , _tdtoAudienceSegmentDescription :: !(Maybe Text) + , _tdtoCreativeReviewPolicy :: !(Maybe Text) + , _tdtoMinimumTrueLooks :: !(Maybe (Textual Int64)) + , _tdtoStartDate :: !(Maybe DateTime) + , _tdtoCreativeBlockingLevel :: !(Maybe Text) + , _tdtoSemiTransparent :: !(Maybe Bool) + , _tdtoAudienceSegment :: !(Maybe AudienceSegment) + , _tdtoDealPremium :: !(Maybe MoneyDTO) + , _tdtoIsReservation :: !(Maybe Bool) + , _tdtoAdSlots :: !(Maybe [AdSlotDTO]) + , _tdtoTermsAttributes :: !(Maybe [Text]) + , _tdtoInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting) + , _tdtoDescriptiveName :: !(Maybe Text) + , _tdtoMinimumSpendMicros :: !(Maybe (Textual Int64)) + , _tdtoTargetByDealId :: !(Maybe Bool) + , _tdtoBillingTerms :: !(Maybe Text) + , _tdtoDescription :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tdtoFinalizeAutomatically' +-- +-- * 'tdtoBuyerBillingType' +-- +-- * 'tdtoTargetingAllAdSlots' +-- +-- * 'tdtoURLs' +-- +-- * 'tdtoEndDate' +-- +-- * 'tdtoCpm' +-- +-- * 'tdtoEstimatedSpend' +-- +-- * 'tdtoAdvertisers' +-- +-- * 'tdtoEstimatedImpressionsPerDay' +-- +-- * 'tdtoMonetizerType' +-- +-- * 'tdtoAudienceSegmentDescription' +-- +-- * 'tdtoCreativeReviewPolicy' +-- +-- * 'tdtoMinimumTrueLooks' +-- +-- * 'tdtoStartDate' +-- +-- * 'tdtoCreativeBlockingLevel' +-- +-- * 'tdtoSemiTransparent' +-- +-- * 'tdtoAudienceSegment' +-- +-- * 'tdtoDealPremium' +-- +-- * 'tdtoIsReservation' +-- +-- * 'tdtoAdSlots' +-- +-- * 'tdtoTermsAttributes' +-- +-- * 'tdtoInventorySegmentTargeting' +-- +-- * 'tdtoDescriptiveName' +-- +-- * 'tdtoMinimumSpendMicros' +-- +-- * 'tdtoTargetByDealId' +-- +-- * 'tdtoBillingTerms' +-- +-- * 'tdtoDescription' +termsDTO + :: TermsDTO +termsDTO = + TermsDTO + { _tdtoFinalizeAutomatically = Nothing + , _tdtoBuyerBillingType = Nothing + , _tdtoTargetingAllAdSlots = Nothing + , _tdtoURLs = Nothing + , _tdtoEndDate = Nothing + , _tdtoCpm = Nothing + , _tdtoEstimatedSpend = Nothing + , _tdtoAdvertisers = Nothing + , _tdtoEstimatedImpressionsPerDay = Nothing + , _tdtoMonetizerType = Nothing + , _tdtoAudienceSegmentDescription = Nothing + , _tdtoCreativeReviewPolicy = Nothing + , _tdtoMinimumTrueLooks = Nothing + , _tdtoStartDate = Nothing + , _tdtoCreativeBlockingLevel = Nothing + , _tdtoSemiTransparent = Nothing + , _tdtoAudienceSegment = Nothing + , _tdtoDealPremium = Nothing + , _tdtoIsReservation = Nothing + , _tdtoAdSlots = Nothing + , _tdtoTermsAttributes = Nothing + , _tdtoInventorySegmentTargeting = Nothing + , _tdtoDescriptiveName = Nothing + , _tdtoMinimumSpendMicros = Nothing + , _tdtoTargetByDealId = Nothing + , _tdtoBillingTerms = Nothing + , _tdtoDescription = Nothing + } + +-- | If true, the offer will finalize automatically when accepted. +tdtoFinalizeAutomatically :: Lens' TermsDTO (Maybe Bool) +tdtoFinalizeAutomatically + = lens _tdtoFinalizeAutomatically + (\ s a -> s{_tdtoFinalizeAutomatically = a}) + +-- | The buyer billing type. +tdtoBuyerBillingType :: Lens' TermsDTO (Maybe Text) +tdtoBuyerBillingType + = lens _tdtoBuyerBillingType + (\ s a -> s{_tdtoBuyerBillingType = a}) + +-- | If true, the offer targets all ad slots. +tdtoTargetingAllAdSlots :: Lens' TermsDTO (Maybe Bool) +tdtoTargetingAllAdSlots + = lens _tdtoTargetingAllAdSlots + (\ s a -> s{_tdtoTargetingAllAdSlots = a}) + +-- | The urls applicable to the offer. +tdtoURLs :: Lens' TermsDTO [Text] +tdtoURLs + = lens _tdtoURLs (\ s a -> s{_tdtoURLs = a}) . + _Default + . _Coerce + +-- | The end date for the offer. +tdtoEndDate :: Lens' TermsDTO (Maybe DateTime) +tdtoEndDate + = lens _tdtoEndDate (\ s a -> s{_tdtoEndDate = a}) + +-- | The cpm terms. +tdtoCpm :: Lens' TermsDTO (Maybe MoneyDTO) +tdtoCpm = lens _tdtoCpm (\ s a -> s{_tdtoCpm = a}) + +-- | The estimated spend for the offer. +tdtoEstimatedSpend :: Lens' TermsDTO (Maybe MoneyDTO) +tdtoEstimatedSpend + = lens _tdtoEstimatedSpend + (\ s a -> s{_tdtoEstimatedSpend = a}) + +-- | A list of advertisers for this offer. +tdtoAdvertisers :: Lens' TermsDTO [AdvertiserDTO] +tdtoAdvertisers + = lens _tdtoAdvertisers + (\ s a -> s{_tdtoAdvertisers = a}) + . _Default + . _Coerce + +-- | The estimated daily impressions for the offer. +tdtoEstimatedImpressionsPerDay :: Lens' TermsDTO (Maybe Int64) +tdtoEstimatedImpressionsPerDay + = lens _tdtoEstimatedImpressionsPerDay + (\ s a -> s{_tdtoEstimatedImpressionsPerDay = a}) + . mapping _Coerce + +-- | The monetizer type. +tdtoMonetizerType :: Lens' TermsDTO (Maybe Text) +tdtoMonetizerType + = lens _tdtoMonetizerType + (\ s a -> s{_tdtoMonetizerType = a}) + +-- | A description of the audience segment for the offer. +tdtoAudienceSegmentDescription :: Lens' TermsDTO (Maybe Text) +tdtoAudienceSegmentDescription + = lens _tdtoAudienceSegmentDescription + (\ s a -> s{_tdtoAudienceSegmentDescription = a}) + +-- | Whether to use publisher review policy or AdX review policy. +tdtoCreativeReviewPolicy :: Lens' TermsDTO (Maybe Text) +tdtoCreativeReviewPolicy + = lens _tdtoCreativeReviewPolicy + (\ s a -> s{_tdtoCreativeReviewPolicy = a}) + +-- | The minimum true looks for the offer. +tdtoMinimumTrueLooks :: Lens' TermsDTO (Maybe Int64) +tdtoMinimumTrueLooks + = lens _tdtoMinimumTrueLooks + (\ s a -> s{_tdtoMinimumTrueLooks = a}) + . mapping _Coerce + +-- | The start date for the offer. +tdtoStartDate :: Lens' TermsDTO (Maybe DateTime) +tdtoStartDate + = lens _tdtoStartDate + (\ s a -> s{_tdtoStartDate = a}) + +-- | Whether to use or ignore publisher blocking rules. +tdtoCreativeBlockingLevel :: Lens' TermsDTO (Maybe Text) +tdtoCreativeBlockingLevel + = lens _tdtoCreativeBlockingLevel + (\ s a -> s{_tdtoCreativeBlockingLevel = a}) + +-- | Whether this offer is semi-transparent. +tdtoSemiTransparent :: Lens' TermsDTO (Maybe Bool) +tdtoSemiTransparent + = lens _tdtoSemiTransparent + (\ s a -> s{_tdtoSemiTransparent = a}) + +-- | The audience segment for the offer. +tdtoAudienceSegment :: Lens' TermsDTO (Maybe AudienceSegment) +tdtoAudienceSegment + = lens _tdtoAudienceSegment + (\ s a -> s{_tdtoAudienceSegment = a}) + +-- | The premium terms. +tdtoDealPremium :: Lens' TermsDTO (Maybe MoneyDTO) +tdtoDealPremium + = lens _tdtoDealPremium + (\ s a -> s{_tdtoDealPremium = a}) + +-- | Whether the offer is a reservation. +tdtoIsReservation :: Lens' TermsDTO (Maybe Bool) +tdtoIsReservation + = lens _tdtoIsReservation + (\ s a -> s{_tdtoIsReservation = a}) + +-- | The particular ad slots targeted by the offer. +tdtoAdSlots :: Lens' TermsDTO [AdSlotDTO] +tdtoAdSlots + = lens _tdtoAdSlots (\ s a -> s{_tdtoAdSlots = a}) . + _Default + . _Coerce + +-- | A list of terms attributes. +tdtoTermsAttributes :: Lens' TermsDTO [Text] +tdtoTermsAttributes + = lens _tdtoTermsAttributes + (\ s a -> s{_tdtoTermsAttributes = a}) + . _Default + . _Coerce + +-- | The inventory segment targeting for the offer. +tdtoInventorySegmentTargeting :: Lens' TermsDTO (Maybe InventorySegmentTargeting) +tdtoInventorySegmentTargeting + = lens _tdtoInventorySegmentTargeting + (\ s a -> s{_tdtoInventorySegmentTargeting = a}) + +-- | A descriptive name for these terms. +tdtoDescriptiveName :: Lens' TermsDTO (Maybe Text) +tdtoDescriptiveName + = lens _tdtoDescriptiveName + (\ s a -> s{_tdtoDescriptiveName = a}) + +-- | The minimum spend for the offer. +tdtoMinimumSpendMicros :: Lens' TermsDTO (Maybe Int64) +tdtoMinimumSpendMicros + = lens _tdtoMinimumSpendMicros + (\ s a -> s{_tdtoMinimumSpendMicros = a}) + . mapping _Coerce + +-- | Whether to target by deal id. +tdtoTargetByDealId :: Lens' TermsDTO (Maybe Bool) +tdtoTargetByDealId + = lens _tdtoTargetByDealId + (\ s a -> s{_tdtoTargetByDealId = a}) + +-- | The billing terms. +tdtoBillingTerms :: Lens' TermsDTO (Maybe Text) +tdtoBillingTerms + = lens _tdtoBillingTerms + (\ s a -> s{_tdtoBillingTerms = a}) + +-- | A description for these terms. +tdtoDescription :: Lens' TermsDTO (Maybe Text) +tdtoDescription + = lens _tdtoDescription + (\ s a -> s{_tdtoDescription = a}) + +instance FromJSON TermsDTO where + parseJSON + = withObject "TermsDTO" + (\ o -> + TermsDTO <$> + (o .:? "finalizeAutomatically") <*> + (o .:? "buyerBillingType") + <*> (o .:? "targetingAllAdSlots") + <*> (o .:? "urls" .!= mempty) + <*> (o .:? "endDate") + <*> (o .:? "cpm") + <*> (o .:? "estimatedSpend") + <*> (o .:? "advertisers" .!= mempty) + <*> (o .:? "estimatedImpressionsPerDay") + <*> (o .:? "monetizerType") + <*> (o .:? "audienceSegmentDescription") + <*> (o .:? "creativeReviewPolicy") + <*> (o .:? "minimumTrueLooks") + <*> (o .:? "startDate") + <*> (o .:? "creativeBlockingLevel") + <*> (o .:? "semiTransparent") + <*> (o .:? "audienceSegment") + <*> (o .:? "dealPremium") + <*> (o .:? "isReservation") + <*> (o .:? "adSlots" .!= mempty) + <*> (o .:? "termsAttributes" .!= mempty) + <*> (o .:? "inventorySegmentTargeting") + <*> (o .:? "descriptiveName") + <*> (o .:? "minimumSpendMicros") + <*> (o .:? "targetByDealId") + <*> (o .:? "billingTerms") + <*> (o .:? "description")) + +instance ToJSON TermsDTO where + toJSON TermsDTO{..} + = object + (catMaybes + [("finalizeAutomatically" .=) <$> + _tdtoFinalizeAutomatically, + ("buyerBillingType" .=) <$> _tdtoBuyerBillingType, + ("targetingAllAdSlots" .=) <$> + _tdtoTargetingAllAdSlots, + ("urls" .=) <$> _tdtoURLs, + ("endDate" .=) <$> _tdtoEndDate, + ("cpm" .=) <$> _tdtoCpm, + ("estimatedSpend" .=) <$> _tdtoEstimatedSpend, + ("advertisers" .=) <$> _tdtoAdvertisers, + ("estimatedImpressionsPerDay" .=) <$> + _tdtoEstimatedImpressionsPerDay, + ("monetizerType" .=) <$> _tdtoMonetizerType, + ("audienceSegmentDescription" .=) <$> + _tdtoAudienceSegmentDescription, + ("creativeReviewPolicy" .=) <$> + _tdtoCreativeReviewPolicy, + ("minimumTrueLooks" .=) <$> _tdtoMinimumTrueLooks, + ("startDate" .=) <$> _tdtoStartDate, + ("creativeBlockingLevel" .=) <$> + _tdtoCreativeBlockingLevel, + ("semiTransparent" .=) <$> _tdtoSemiTransparent, + ("audienceSegment" .=) <$> _tdtoAudienceSegment, + ("dealPremium" .=) <$> _tdtoDealPremium, + ("isReservation" .=) <$> _tdtoIsReservation, + ("adSlots" .=) <$> _tdtoAdSlots, + ("termsAttributes" .=) <$> _tdtoTermsAttributes, + ("inventorySegmentTargeting" .=) <$> + _tdtoInventorySegmentTargeting, + ("descriptiveName" .=) <$> _tdtoDescriptiveName, + ("minimumSpendMicros" .=) <$> + _tdtoMinimumSpendMicros, + ("targetByDealId" .=) <$> _tdtoTargetByDealId, + ("billingTerms" .=) <$> _tdtoBillingTerms, + ("description" .=) <$> _tdtoDescription]) + +-- +-- /See:/ 'createOrdersResponse' smart constructor. +newtype CreateOrdersResponse = CreateOrdersResponse + { _corOrders :: Maybe [MarketplaceOrder] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'corOrders' +createOrdersResponse + :: CreateOrdersResponse +createOrdersResponse = + CreateOrdersResponse + { _corOrders = Nothing + } + +-- | The list of orders successfully created. +corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder] +corOrders + = lens _corOrders (\ s a -> s{_corOrders = a}) . + _Default + . _Coerce + +instance FromJSON CreateOrdersResponse where + parseJSON + = withObject "CreateOrdersResponse" + (\ o -> + CreateOrdersResponse <$> (o .:? "orders" .!= mempty)) + +instance ToJSON CreateOrdersResponse where + toJSON CreateOrdersResponse{..} + = object (catMaybes [("orders" .=) <$> _corOrders]) + +-- +-- /See:/ 'accountBidderLocationItem' smart constructor. +data AccountBidderLocationItem = AccountBidderLocationItem + { _abliURL :: !(Maybe Text) + , _abliMaximumQps :: !(Maybe (Textual Int32)) + , _abliRegion :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountBidderLocationItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'abliURL' +-- +-- * 'abliMaximumQps' +-- +-- * 'abliRegion' +accountBidderLocationItem + :: AccountBidderLocationItem +accountBidderLocationItem = + AccountBidderLocationItem + { _abliURL = Nothing + , _abliMaximumQps = Nothing + , _abliRegion = Nothing + } + +-- | The URL to which the Ad Exchange will send bid requests. +abliURL :: Lens' AccountBidderLocationItem (Maybe Text) +abliURL = lens _abliURL (\ s a -> s{_abliURL = a}) + +-- | The maximum queries per second the Ad Exchange will send. +abliMaximumQps :: Lens' AccountBidderLocationItem (Maybe Int32) +abliMaximumQps + = lens _abliMaximumQps + (\ s a -> s{_abliMaximumQps = a}) + . mapping _Coerce + +-- | The geographical region the Ad Exchange should send requests from. Only +-- used by some quota systems, but always setting the value is recommended. +-- Allowed values: - ASIA - EUROPE - US_EAST - US_WEST +abliRegion :: Lens' AccountBidderLocationItem (Maybe Text) +abliRegion + = lens _abliRegion (\ s a -> s{_abliRegion = a}) + +instance FromJSON AccountBidderLocationItem where + parseJSON + = withObject "AccountBidderLocationItem" + (\ o -> + AccountBidderLocationItem <$> + (o .:? "url") <*> (o .:? "maximumQps") <*> + (o .:? "region")) + +instance ToJSON AccountBidderLocationItem where + toJSON AccountBidderLocationItem{..} + = object + (catMaybes + [("url" .=) <$> _abliURL, + ("maximumQps" .=) <$> _abliMaximumQps, + ("region" .=) <$> _abliRegion]) + +-- +-- /See:/ 'privateData' smart constructor. +data PrivateData = PrivateData + { _pdReferencePayload :: !(Maybe (Textual Word8)) + , _pdReferenceId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PrivateData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pdReferencePayload' +-- +-- * 'pdReferenceId' +privateData + :: PrivateData +privateData = + PrivateData + { _pdReferencePayload = Nothing + , _pdReferenceId = Nothing + } + +pdReferencePayload :: Lens' PrivateData (Maybe Word8) +pdReferencePayload + = lens _pdReferencePayload + (\ s a -> s{_pdReferencePayload = a}) + . mapping _Coerce + +pdReferenceId :: Lens' PrivateData (Maybe Text) +pdReferenceId + = lens _pdReferenceId + (\ s a -> s{_pdReferenceId = a}) + +instance FromJSON PrivateData where + parseJSON + = withObject "PrivateData" + (\ o -> + PrivateData <$> + (o .:? "referencePayload") <*> (o .:? "referenceId")) + +instance ToJSON PrivateData where + toJSON PrivateData{..} + = object + (catMaybes + [("referencePayload" .=) <$> _pdReferencePayload, + ("referenceId" .=) <$> _pdReferenceId]) + +-- | The configuration data for Ad Exchange RTB - Budget API. +-- +-- /See:/ 'budget' smart constructor. +data Budget = Budget + { _bCurrencyCode :: !(Maybe Text) + , _bKind :: !Text + , _bBudgetAmount :: !(Maybe (Textual Int64)) + , _bAccountId :: !(Maybe (Textual Int64)) + , _bId :: !(Maybe Text) + , _bBillingId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Budget' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bCurrencyCode' +-- +-- * 'bKind' +-- +-- * 'bBudgetAmount' +-- +-- * 'bAccountId' +-- +-- * 'bId' +-- +-- * 'bBillingId' +budget + :: Budget +budget = + Budget + { _bCurrencyCode = Nothing + , _bKind = "adexchangebuyer#budget" + , _bBudgetAmount = Nothing + , _bAccountId = Nothing + , _bId = Nothing + , _bBillingId = Nothing + } + +-- | The currency code for the buyer. This cannot be altered here. +bCurrencyCode :: Lens' Budget (Maybe Text) +bCurrencyCode + = lens _bCurrencyCode + (\ s a -> s{_bCurrencyCode = a}) + +-- | The kind of the resource, i.e. \"adexchangebuyer#budget\". +bKind :: Lens' Budget Text +bKind = lens _bKind (\ s a -> s{_bKind = a}) + +-- | The budget amount to apply for the billingId provided. This is required +-- for update requests. +bBudgetAmount :: Lens' Budget (Maybe Int64) +bBudgetAmount + = lens _bBudgetAmount + (\ s a -> s{_bBudgetAmount = a}) + . mapping _Coerce + +-- | The id of the account. This is required for get and update requests. +bAccountId :: Lens' Budget (Maybe Int64) +bAccountId + = lens _bAccountId (\ s a -> s{_bAccountId = a}) . + mapping _Coerce + +-- | The unique id that describes this item. +bId :: Lens' Budget (Maybe Text) +bId = lens _bId (\ s a -> s{_bId = a}) + +-- | The billing id to determine which adgroup to provide budget information +-- for. This is required for get and update requests. +bBillingId :: Lens' Budget (Maybe Int64) +bBillingId + = lens _bBillingId (\ s a -> s{_bBillingId = a}) . + mapping _Coerce + +instance FromJSON Budget where + parseJSON + = withObject "Budget" + (\ o -> + Budget <$> + (o .:? "currencyCode") <*> + (o .:? "kind" .!= "adexchangebuyer#budget") + <*> (o .:? "budgetAmount") + <*> (o .:? "accountId") + <*> (o .:? "id") + <*> (o .:? "billingId")) + +instance ToJSON Budget where + toJSON Budget{..} + = object + (catMaybes + [("currencyCode" .=) <$> _bCurrencyCode, + Just ("kind" .= _bKind), + ("budgetAmount" .=) <$> _bBudgetAmount, + ("accountId" .=) <$> _bAccountId, ("id" .=) <$> _bId, + ("billingId" .=) <$> _bBillingId]) + +-- +-- /See:/ 'addOrderNotesRequest' smart constructor. +newtype AddOrderNotesRequest = AddOrderNotesRequest + { _aonrNotes :: Maybe [MarketplaceNote] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AddOrderNotesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aonrNotes' +addOrderNotesRequest + :: AddOrderNotesRequest +addOrderNotesRequest = + AddOrderNotesRequest + { _aonrNotes = Nothing + } + +-- | The list of notes to add. +aonrNotes :: Lens' AddOrderNotesRequest [MarketplaceNote] +aonrNotes + = lens _aonrNotes (\ s a -> s{_aonrNotes = a}) . + _Default + . _Coerce + +instance FromJSON AddOrderNotesRequest where + parseJSON + = withObject "AddOrderNotesRequest" + (\ o -> + AddOrderNotesRequest <$> (o .:? "notes" .!= mempty)) + +instance ToJSON AddOrderNotesRequest where + toJSON AddOrderNotesRequest{..} + = object (catMaybes [("notes" .=) <$> _aonrNotes]) + +-- +-- /See:/ 'getFinalizedNegotiationByExternalDealIdRequest' smart constructor. +newtype GetFinalizedNegotiationByExternalDealIdRequest = GetFinalizedNegotiationByExternalDealIdRequest + { _gfnbedirIncludePrivateAuctions :: Maybe Bool + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetFinalizedNegotiationByExternalDealIdRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gfnbedirIncludePrivateAuctions' +getFinalizedNegotiationByExternalDealIdRequest + :: GetFinalizedNegotiationByExternalDealIdRequest +getFinalizedNegotiationByExternalDealIdRequest = + GetFinalizedNegotiationByExternalDealIdRequest + { _gfnbedirIncludePrivateAuctions = Nothing + } + +gfnbedirIncludePrivateAuctions :: Lens' GetFinalizedNegotiationByExternalDealIdRequest (Maybe Bool) +gfnbedirIncludePrivateAuctions + = lens _gfnbedirIncludePrivateAuctions + (\ s a -> s{_gfnbedirIncludePrivateAuctions = a}) + +instance FromJSON + GetFinalizedNegotiationByExternalDealIdRequest where + parseJSON + = withObject + "GetFinalizedNegotiationByExternalDealIdRequest" + (\ o -> + GetFinalizedNegotiationByExternalDealIdRequest <$> + (o .:? "includePrivateAuctions")) + +instance ToJSON + GetFinalizedNegotiationByExternalDealIdRequest where + toJSON + GetFinalizedNegotiationByExternalDealIdRequest{..} + = object + (catMaybes + [("includePrivateAuctions" .=) <$> + _gfnbedirIncludePrivateAuctions]) + +-- +-- /See:/ 'deliveryControlFrequencyCap' smart constructor. +data DeliveryControlFrequencyCap = DeliveryControlFrequencyCap + { _dcfcMaxImpressions :: !(Maybe (Textual Int32)) + , _dcfcNumTimeUnits :: !(Maybe (Textual Int32)) + , _dcfcTimeUnitType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DeliveryControlFrequencyCap' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dcfcMaxImpressions' +-- +-- * 'dcfcNumTimeUnits' +-- +-- * 'dcfcTimeUnitType' +deliveryControlFrequencyCap + :: DeliveryControlFrequencyCap +deliveryControlFrequencyCap = + DeliveryControlFrequencyCap + { _dcfcMaxImpressions = Nothing + , _dcfcNumTimeUnits = Nothing + , _dcfcTimeUnitType = Nothing + } + +dcfcMaxImpressions :: Lens' DeliveryControlFrequencyCap (Maybe Int32) +dcfcMaxImpressions + = lens _dcfcMaxImpressions + (\ s a -> s{_dcfcMaxImpressions = a}) + . mapping _Coerce + +dcfcNumTimeUnits :: Lens' DeliveryControlFrequencyCap (Maybe Int32) +dcfcNumTimeUnits + = lens _dcfcNumTimeUnits + (\ s a -> s{_dcfcNumTimeUnits = a}) + . mapping _Coerce + +dcfcTimeUnitType :: Lens' DeliveryControlFrequencyCap (Maybe Text) +dcfcTimeUnitType + = lens _dcfcTimeUnitType + (\ s a -> s{_dcfcTimeUnitType = a}) + +instance FromJSON DeliveryControlFrequencyCap where + parseJSON + = withObject "DeliveryControlFrequencyCap" + (\ o -> + DeliveryControlFrequencyCap <$> + (o .:? "maxImpressions") <*> (o .:? "numTimeUnits") + <*> (o .:? "timeUnitType")) + +instance ToJSON DeliveryControlFrequencyCap where + toJSON DeliveryControlFrequencyCap{..} + = object + (catMaybes + [("maxImpressions" .=) <$> _dcfcMaxImpressions, + ("numTimeUnits" .=) <$> _dcfcNumTimeUnits, + ("timeUnitType" .=) <$> _dcfcTimeUnitType]) + +-- +-- /See:/ 'dealPartyDTO' smart constructor. +data DealPartyDTO = DealPartyDTO + { _dpdtoBuyerSellerRole :: !(Maybe Text) + , _dpdtoCustomerId :: !(Maybe (Textual Int32)) + , _dpdtoName :: !(Maybe Text) + , _dpdtoWebProperty :: !(Maybe WebPropertyDTO) + , _dpdtoBuyer :: !(Maybe BuyerDTO) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealPartyDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dpdtoBuyerSellerRole' +-- +-- * 'dpdtoCustomerId' +-- +-- * 'dpdtoName' +-- +-- * 'dpdtoWebProperty' +-- +-- * 'dpdtoBuyer' +dealPartyDTO + :: DealPartyDTO +dealPartyDTO = + DealPartyDTO + { _dpdtoBuyerSellerRole = Nothing + , _dpdtoCustomerId = Nothing + , _dpdtoName = Nothing + , _dpdtoWebProperty = Nothing + , _dpdtoBuyer = Nothing + } + +dpdtoBuyerSellerRole :: Lens' DealPartyDTO (Maybe Text) +dpdtoBuyerSellerRole + = lens _dpdtoBuyerSellerRole + (\ s a -> s{_dpdtoBuyerSellerRole = a}) + +dpdtoCustomerId :: Lens' DealPartyDTO (Maybe Int32) +dpdtoCustomerId + = lens _dpdtoCustomerId + (\ s a -> s{_dpdtoCustomerId = a}) + . mapping _Coerce + +dpdtoName :: Lens' DealPartyDTO (Maybe Text) +dpdtoName + = lens _dpdtoName (\ s a -> s{_dpdtoName = a}) + +dpdtoWebProperty :: Lens' DealPartyDTO (Maybe WebPropertyDTO) +dpdtoWebProperty + = lens _dpdtoWebProperty + (\ s a -> s{_dpdtoWebProperty = a}) + +dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO) +dpdtoBuyer + = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a}) + +instance FromJSON DealPartyDTO where + parseJSON + = withObject "DealPartyDTO" + (\ o -> + DealPartyDTO <$> + (o .:? "buyerSellerRole") <*> (o .:? "customerId") + <*> (o .:? "name") + <*> (o .:? "webProperty") + <*> (o .:? "buyer")) + +instance ToJSON DealPartyDTO where + toJSON DealPartyDTO{..} + = object + (catMaybes + [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole, + ("customerId" .=) <$> _dpdtoCustomerId, + ("name" .=) <$> _dpdtoName, + ("webProperty" .=) <$> _dpdtoWebProperty, + ("buyer" .=) <$> _dpdtoBuyer]) + +-- +-- /See:/ 'getNegotiationsResponse' smart constructor. +data GetNegotiationsResponse = GetNegotiationsResponse + { _gnrKind :: !Text + , _gnrNegotiations :: !(Maybe [NegotiationDTO]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gnrKind' +-- +-- * 'gnrNegotiations' +getNegotiationsResponse + :: GetNegotiationsResponse +getNegotiationsResponse = + GetNegotiationsResponse + { _gnrKind = "adexchangebuyer#negotiationsList" + , _gnrNegotiations = Nothing + } + +gnrKind :: Lens' GetNegotiationsResponse Text +gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a}) + +gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDTO] +gnrNegotiations + = lens _gnrNegotiations + (\ s a -> s{_gnrNegotiations = a}) + . _Default + . _Coerce + +instance FromJSON GetNegotiationsResponse where + parseJSON + = withObject "GetNegotiationsResponse" + (\ o -> + GetNegotiationsResponse <$> + (o .:? "kind" .!= "adexchangebuyer#negotiationsList") + <*> (o .:? "negotiations" .!= mempty)) + +instance ToJSON GetNegotiationsResponse where + toJSON GetNegotiationsResponse{..} + = object + (catMaybes + [Just ("kind" .= _gnrKind), + ("negotiations" .=) <$> _gnrNegotiations]) + +-- +-- /See:/ 'marketplaceDealParty' smart constructor. +data MarketplaceDealParty = MarketplaceDealParty + { _mdpSeller :: !(Maybe Seller) + , _mdpBuyer :: !(Maybe Buyer) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceDealParty' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mdpSeller' +-- +-- * 'mdpBuyer' +marketplaceDealParty + :: MarketplaceDealParty +marketplaceDealParty = + MarketplaceDealParty + { _mdpSeller = Nothing + , _mdpBuyer = Nothing + } + +-- | The buyer\/seller associated with the deal. One of buyer\/seller is +-- specified for a deal party. +mdpSeller :: Lens' MarketplaceDealParty (Maybe Seller) +mdpSeller + = lens _mdpSeller (\ s a -> s{_mdpSeller = a}) + +-- | The buyer\/seller associated with the deal. One of buyer\/seller is +-- specified for a deal-party. +mdpBuyer :: Lens' MarketplaceDealParty (Maybe Buyer) +mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a}) + +instance FromJSON MarketplaceDealParty where + parseJSON + = withObject "MarketplaceDealParty" + (\ o -> + MarketplaceDealParty <$> + (o .:? "seller") <*> (o .:? "buyer")) + +instance ToJSON MarketplaceDealParty where + toJSON MarketplaceDealParty{..} + = object + (catMaybes + [("seller" .=) <$> _mdpSeller, + ("buyer" .=) <$> _mdpBuyer]) + +-- +-- /See:/ 'getOrderNotesResponse' smart constructor. +newtype GetOrderNotesResponse = GetOrderNotesResponse + { _gonrNotes :: Maybe [MarketplaceNote] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetOrderNotesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gonrNotes' +getOrderNotesResponse + :: GetOrderNotesResponse +getOrderNotesResponse = + GetOrderNotesResponse + { _gonrNotes = Nothing + } + +-- | The list of matching notes. +gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote] +gonrNotes + = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) . + _Default + . _Coerce + +instance FromJSON GetOrderNotesResponse where + parseJSON + = withObject "GetOrderNotesResponse" + (\ o -> + GetOrderNotesResponse <$> (o .:? "notes" .!= mempty)) + +instance ToJSON GetOrderNotesResponse where + toJSON GetOrderNotesResponse{..} + = object (catMaybes [("notes" .=) <$> _gonrNotes]) + +-- +-- /See:/ 'ruleKeyValuePair' smart constructor. +data RuleKeyValuePair = RuleKeyValuePair + { _rkvpKeyName :: !(Maybe Text) + , _rkvpValue :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'RuleKeyValuePair' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rkvpKeyName' +-- +-- * 'rkvpValue' +ruleKeyValuePair + :: RuleKeyValuePair +ruleKeyValuePair = + RuleKeyValuePair + { _rkvpKeyName = Nothing + , _rkvpValue = Nothing + } + +rkvpKeyName :: Lens' RuleKeyValuePair (Maybe Text) +rkvpKeyName + = lens _rkvpKeyName (\ s a -> s{_rkvpKeyName = a}) + +rkvpValue :: Lens' RuleKeyValuePair (Maybe Text) +rkvpValue + = lens _rkvpValue (\ s a -> s{_rkvpValue = a}) + +instance FromJSON RuleKeyValuePair where + parseJSON + = withObject "RuleKeyValuePair" + (\ o -> + RuleKeyValuePair <$> + (o .:? "keyName") <*> (o .:? "value")) + +instance ToJSON RuleKeyValuePair where + toJSON RuleKeyValuePair{..} + = object + (catMaybes + [("keyName" .=) <$> _rkvpKeyName, + ("value" .=) <$> _rkvpValue]) + +-- +-- /See:/ 'getOrdersResponse' smart constructor. +newtype GetOrdersResponse = GetOrdersResponse + { _gorOrders :: Maybe [MarketplaceOrder] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetOrdersResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gorOrders' +getOrdersResponse + :: GetOrdersResponse +getOrdersResponse = + GetOrdersResponse + { _gorOrders = Nothing + } + +-- | The list of matching orders. +gorOrders :: Lens' GetOrdersResponse [MarketplaceOrder] +gorOrders + = lens _gorOrders (\ s a -> s{_gorOrders = a}) . + _Default + . _Coerce + +instance FromJSON GetOrdersResponse where + parseJSON + = withObject "GetOrdersResponse" + (\ o -> + GetOrdersResponse <$> (o .:? "orders" .!= mempty)) + +instance ToJSON GetOrdersResponse where + toJSON GetOrdersResponse{..} + = object (catMaybes [("orders" .=) <$> _gorOrders]) + +-- +-- /See:/ 'creativeServingRestrictionsItemDisApprovalReasonsItem' smart constructor. +data CreativeServingRestrictionsItemDisApprovalReasonsItem = CreativeServingRestrictionsItemDisApprovalReasonsItem + { _csridariReason :: !(Maybe Text) + , _csridariDetails :: !(Maybe [Text]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeServingRestrictionsItemDisApprovalReasonsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csridariReason' +-- +-- * 'csridariDetails' +creativeServingRestrictionsItemDisApprovalReasonsItem + :: CreativeServingRestrictionsItemDisApprovalReasonsItem +creativeServingRestrictionsItemDisApprovalReasonsItem = + CreativeServingRestrictionsItemDisApprovalReasonsItem + { _csridariReason = Nothing + , _csridariDetails = Nothing + } + +-- | The categorized reason for disapproval. +csridariReason :: Lens' CreativeServingRestrictionsItemDisApprovalReasonsItem (Maybe Text) +csridariReason + = lens _csridariReason + (\ s a -> s{_csridariReason = a}) + +-- | Additional details about the reason for disapproval. +csridariDetails :: Lens' CreativeServingRestrictionsItemDisApprovalReasonsItem [Text] +csridariDetails + = lens _csridariDetails + (\ s a -> s{_csridariDetails = a}) + . _Default + . _Coerce + +instance FromJSON + CreativeServingRestrictionsItemDisApprovalReasonsItem + where + parseJSON + = withObject + "CreativeServingRestrictionsItemDisApprovalReasonsItem" + (\ o -> + CreativeServingRestrictionsItemDisApprovalReasonsItem + <$> + (o .:? "reason") <*> (o .:? "details" .!= mempty)) + +instance ToJSON + CreativeServingRestrictionsItemDisApprovalReasonsItem + where + toJSON + CreativeServingRestrictionsItemDisApprovalReasonsItem{..} + = object + (catMaybes + [("reason" .=) <$> _csridariReason, + ("details" .=) <$> _csridariDetails]) + +-- | An account feed lists Ad Exchange buyer accounts that the user has +-- access to. Each entry in the feed corresponds to a single buyer account. +-- +-- /See:/ 'accountsList' smart constructor. +data AccountsList = AccountsList + { _alKind :: !Text + , _alItems :: !(Maybe [Account]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountsList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'alKind' +-- +-- * 'alItems' +accountsList + :: AccountsList +accountsList = + AccountsList + { _alKind = "adexchangebuyer#accountsList" + , _alItems = Nothing + } + +-- | Resource type. +alKind :: Lens' AccountsList Text +alKind = lens _alKind (\ s a -> s{_alKind = a}) + +-- | A list of accounts. +alItems :: Lens' AccountsList [Account] +alItems + = lens _alItems (\ s a -> s{_alItems = a}) . _Default + . _Coerce + +instance FromJSON AccountsList where + parseJSON + = withObject "AccountsList" + (\ o -> + AccountsList <$> + (o .:? "kind" .!= "adexchangebuyer#accountsList") <*> + (o .:? "items" .!= mempty)) + +instance ToJSON AccountsList where + toJSON AccountsList{..} + = object + (catMaybes + [Just ("kind" .= _alKind), + ("items" .=) <$> _alItems]) + +-- +-- /See:/ 'createOrdersRequest' smart constructor. +data CreateOrdersRequest = CreateOrdersRequest + { _cWebPropertyCode :: !(Maybe Text) + , _cOrders :: !(Maybe [MarketplaceOrder]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreateOrdersRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cWebPropertyCode' +-- +-- * 'cOrders' +createOrdersRequest + :: CreateOrdersRequest +createOrdersRequest = + CreateOrdersRequest + { _cWebPropertyCode = Nothing + , _cOrders = Nothing + } + +cWebPropertyCode :: Lens' CreateOrdersRequest (Maybe Text) +cWebPropertyCode + = lens _cWebPropertyCode + (\ s a -> s{_cWebPropertyCode = a}) + +-- | The list of orders to create. +cOrders :: Lens' CreateOrdersRequest [MarketplaceOrder] +cOrders + = lens _cOrders (\ s a -> s{_cOrders = a}) . _Default + . _Coerce + +instance FromJSON CreateOrdersRequest where + parseJSON + = withObject "CreateOrdersRequest" + (\ o -> + CreateOrdersRequest <$> + (o .:? "webPropertyCode") <*> + (o .:? "orders" .!= mempty)) + +instance ToJSON CreateOrdersRequest where + toJSON CreateOrdersRequest{..} + = object + (catMaybes + [("webPropertyCode" .=) <$> _cWebPropertyCode, + ("orders" .=) <$> _cOrders]) + +-- +-- /See:/ 'adSize' smart constructor. +data AdSize = AdSize + { _asHeight :: !(Maybe (Textual Int32)) + , _asWidth :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AdSize' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'asHeight' +-- +-- * 'asWidth' +adSize + :: AdSize +adSize = + AdSize + { _asHeight = Nothing + , _asWidth = Nothing + } + +asHeight :: Lens' AdSize (Maybe Int32) +asHeight + = lens _asHeight (\ s a -> s{_asHeight = a}) . + mapping _Coerce + +asWidth :: Lens' AdSize (Maybe Int32) +asWidth + = lens _asWidth (\ s a -> s{_asWidth = a}) . + mapping _Coerce + +instance FromJSON AdSize where + parseJSON + = withObject "AdSize" + (\ o -> + AdSize <$> (o .:? "height") <*> (o .:? "width")) + +instance ToJSON AdSize where + toJSON AdSize{..} + = object + (catMaybes + [("height" .=) <$> _asHeight, + ("width" .=) <$> _asWidth]) + +-- +-- /See:/ 'creativeCorrectionsItem' smart constructor. +data CreativeCorrectionsItem = CreativeCorrectionsItem + { _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: +-- +-- * 'cciReason' +-- +-- * 'cciDetails' +creativeCorrectionsItem + :: CreativeCorrectionsItem +creativeCorrectionsItem = + CreativeCorrectionsItem + { _cciReason = Nothing + , _cciDetails = Nothing + } + +-- | The type of correction that was applied to the creative. +cciReason :: Lens' CreativeCorrectionsItem (Maybe Text) +cciReason + = lens _cciReason (\ s a -> s{_cciReason = a}) + +-- | Additional details about the correction. +cciDetails :: Lens' CreativeCorrectionsItem [Text] +cciDetails + = lens _cciDetails (\ s a -> s{_cciDetails = a}) . + _Default + . _Coerce + +instance FromJSON CreativeCorrectionsItem where + parseJSON + = withObject "CreativeCorrectionsItem" + (\ o -> + CreativeCorrectionsItem <$> + (o .:? "reason") <*> (o .:? "details" .!= mempty)) + +instance ToJSON CreativeCorrectionsItem where + toJSON CreativeCorrectionsItem{..} + = object + (catMaybes + [("reason" .=) <$> _cciReason, + ("details" .=) <$> _cciDetails]) + +-- +-- /See:/ 'addOrderDealsResponse' smart constructor. +data AddOrderDealsResponse = AddOrderDealsResponse + { _aodrDeals :: !(Maybe [MarketplaceDeal]) + , _aodrOrderRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AddOrderDealsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aodrDeals' +-- +-- * 'aodrOrderRevisionNumber' +addOrderDealsResponse + :: AddOrderDealsResponse +addOrderDealsResponse = + AddOrderDealsResponse + { _aodrDeals = Nothing + , _aodrOrderRevisionNumber = Nothing + } + +-- | List of deals added (in the same order as passed in the request) +aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal] +aodrDeals + = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) . + _Default + . _Coerce + +-- | The updated revision number for the order. +aodrOrderRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64) +aodrOrderRevisionNumber + = lens _aodrOrderRevisionNumber + (\ s a -> s{_aodrOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON AddOrderDealsResponse where + parseJSON + = withObject "AddOrderDealsResponse" + (\ o -> + AddOrderDealsResponse <$> + (o .:? "deals" .!= mempty) <*> + (o .:? "orderRevisionNumber")) + +instance ToJSON AddOrderDealsResponse where + toJSON AddOrderDealsResponse{..} + = object + (catMaybes + [("deals" .=) <$> _aodrDeals, + ("orderRevisionNumber" .=) <$> + _aodrOrderRevisionNumber]) + +-- +-- /See:/ 'deliveryControl' smart constructor. +data DeliveryControl = DeliveryControl + { _dcFrequencyCaps :: !(Maybe [DeliveryControlFrequencyCap]) + , _dcDeliveryRateType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DeliveryControl' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dcFrequencyCaps' +-- +-- * 'dcDeliveryRateType' +deliveryControl + :: DeliveryControl +deliveryControl = + DeliveryControl + { _dcFrequencyCaps = Nothing + , _dcDeliveryRateType = Nothing + } + +dcFrequencyCaps :: Lens' DeliveryControl [DeliveryControlFrequencyCap] +dcFrequencyCaps + = lens _dcFrequencyCaps + (\ s a -> s{_dcFrequencyCaps = a}) + . _Default + . _Coerce + +dcDeliveryRateType :: Lens' DeliveryControl (Maybe Text) +dcDeliveryRateType + = lens _dcDeliveryRateType + (\ s a -> s{_dcDeliveryRateType = a}) + +instance FromJSON DeliveryControl where + parseJSON + = withObject "DeliveryControl" + (\ o -> + DeliveryControl <$> + (o .:? "frequencyCaps" .!= mempty) <*> + (o .:? "deliveryRateType")) + +instance ToJSON DeliveryControl where + toJSON DeliveryControl{..} + = object + (catMaybes + [("frequencyCaps" .=) <$> _dcFrequencyCaps, + ("deliveryRateType" .=) <$> _dcDeliveryRateType]) + +-- | Used to specify pricing rules for buyers\/advertisers. Each +-- PricePerBuyer in an offer can become [0,1] deals. To check if there is a +-- PricePerBuyer for a particular buyer or buyer\/advertiser pair, we look +-- for the most specific matching rule - we first look for a rule matching +-- the buyer and advertiser, next a rule with the buyer but an empty +-- advertiser list, and otherwise look for a matching rule where no buyer +-- is set. +-- +-- /See:/ 'pricePerBuyer' smart constructor. +data PricePerBuyer = PricePerBuyer + { _ppbPrice :: !(Maybe Price) + , _ppbBuyer :: !(Maybe Buyer) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PricePerBuyer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ppbPrice' +-- +-- * 'ppbBuyer' +pricePerBuyer + :: PricePerBuyer +pricePerBuyer = + PricePerBuyer + { _ppbPrice = Nothing + , _ppbBuyer = Nothing + } + +-- | The specified price +ppbPrice :: Lens' PricePerBuyer (Maybe Price) +ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a}) + +-- | The buyer who will pay this price. If unset, all buyers can pay this +-- price (if the advertisers match, and there\'s no more specific rule +-- matching the buyer). +ppbBuyer :: Lens' PricePerBuyer (Maybe Buyer) +ppbBuyer = lens _ppbBuyer (\ s a -> s{_ppbBuyer = a}) + +instance FromJSON PricePerBuyer where + parseJSON + = withObject "PricePerBuyer" + (\ o -> + PricePerBuyer <$> + (o .:? "price") <*> (o .:? "buyer")) + +instance ToJSON PricePerBuyer where + toJSON PricePerBuyer{..} + = object + (catMaybes + [("price" .=) <$> _ppbPrice, + ("buyer" .=) <$> _ppbBuyer]) + +-- | A creative and its classification data. +-- +-- /See:/ 'creative' smart constructor. +data Creative = Creative + { _cAttribute :: !(Maybe [Textual Int32]) + , _cNATiveAd :: !(Maybe CreativeNATiveAd) + , _cHeight :: !(Maybe (Textual Int32)) + , _cBuyerCreativeId :: !(Maybe Text) + , _cAdvertiserName :: !(Maybe Text) + , _cAgencyId :: !(Maybe (Textual Int64)) + , _cCorrections :: !(Maybe [CreativeCorrectionsItem]) + , _cProductCategories :: !(Maybe [Textual Int32]) + , _cKind :: !Text + , _cHTMLSnippet :: !(Maybe Text) + , _cAdvertiserId :: !(Maybe [Textual Int64]) + , _cRestrictedCategories :: !(Maybe [Textual Int32]) + , _cDealsStatus :: !(Maybe Text) + , _cWidth :: !(Maybe (Textual Int32)) + , _cClickThroughURL :: !(Maybe [Text]) + , _cVendorType :: !(Maybe [Textual Int32]) + , _cAccountId :: !(Maybe (Textual Int32)) + , _cImpressionTrackingURL :: !(Maybe [Text]) + , _cFilteringReasons :: !(Maybe CreativeFilteringReasons) + , _cVersion :: !(Maybe (Textual Int32)) + , _cSensitiveCategories :: !(Maybe [Textual Int32]) + , _cVideoURL :: !(Maybe Text) + , _cAPIUploadTimestamp :: !(Maybe DateTime') + , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem]) + , _cOpenAuctionStatus :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Creative' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cAttribute' +-- +-- * 'cNATiveAd' +-- +-- * 'cHeight' +-- +-- * 'cBuyerCreativeId' +-- +-- * 'cAdvertiserName' +-- +-- * 'cAgencyId' +-- +-- * 'cCorrections' +-- +-- * 'cProductCategories' +-- +-- * 'cKind' +-- +-- * 'cHTMLSnippet' +-- +-- * 'cAdvertiserId' +-- +-- * 'cRestrictedCategories' +-- +-- * 'cDealsStatus' +-- +-- * 'cWidth' +-- +-- * 'cClickThroughURL' +-- +-- * 'cVendorType' +-- +-- * 'cAccountId' +-- +-- * 'cImpressionTrackingURL' +-- +-- * 'cFilteringReasons' +-- +-- * 'cVersion' +-- +-- * 'cSensitiveCategories' +-- +-- * 'cVideoURL' +-- +-- * 'cAPIUploadTimestamp' +-- +-- * 'cServingRestrictions' +-- +-- * 'cOpenAuctionStatus' +creative + :: Creative +creative = + Creative + { _cAttribute = Nothing + , _cNATiveAd = Nothing + , _cHeight = Nothing + , _cBuyerCreativeId = Nothing + , _cAdvertiserName = Nothing + , _cAgencyId = Nothing + , _cCorrections = Nothing + , _cProductCategories = Nothing + , _cKind = "adexchangebuyer#creative" + , _cHTMLSnippet = Nothing + , _cAdvertiserId = Nothing + , _cRestrictedCategories = Nothing + , _cDealsStatus = Nothing + , _cWidth = Nothing + , _cClickThroughURL = Nothing + , _cVendorType = Nothing + , _cAccountId = Nothing + , _cImpressionTrackingURL = Nothing + , _cFilteringReasons = Nothing + , _cVersion = Nothing + , _cSensitiveCategories = Nothing + , _cVideoURL = Nothing + , _cAPIUploadTimestamp = Nothing + , _cServingRestrictions = Nothing + , _cOpenAuctionStatus = Nothing + } + +-- | All attributes for the ads that may be shown from this snippet. +cAttribute :: Lens' Creative [Int32] +cAttribute + = lens _cAttribute (\ s a -> s{_cAttribute = a}) . + _Default + . _Coerce + +-- | If nativeAd is set, HTMLSnippet and videoURL should not be set. +cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd) +cNATiveAd + = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a}) + +-- | Ad height. +cHeight :: Lens' Creative (Maybe Int32) +cHeight + = lens _cHeight (\ s a -> s{_cHeight = a}) . + mapping _Coerce + +-- | A buyer-specific id identifying the creative in this ad. +cBuyerCreativeId :: Lens' Creative (Maybe Text) +cBuyerCreativeId + = lens _cBuyerCreativeId + (\ s a -> s{_cBuyerCreativeId = a}) + +-- | The name of the company being advertised in the creative. +cAdvertiserName :: Lens' Creative (Maybe Text) +cAdvertiserName + = lens _cAdvertiserName + (\ s a -> s{_cAdvertiserName = a}) + +-- | The agency id for this creative. +cAgencyId :: Lens' Creative (Maybe Int64) +cAgencyId + = lens _cAgencyId (\ s a -> s{_cAgencyId = a}) . + mapping _Coerce + +-- | Shows any corrections that were applied to this creative. Read-only. +-- This field should not be set in requests. +cCorrections :: Lens' Creative [CreativeCorrectionsItem] +cCorrections + = lens _cCorrections (\ s a -> s{_cCorrections = a}) + . _Default + . _Coerce + +-- | Detected product categories, if any. Read-only. This field should not be +-- set in requests. +cProductCategories :: Lens' Creative [Int32] +cProductCategories + = lens _cProductCategories + (\ s a -> s{_cProductCategories = a}) + . _Default + . _Coerce + +-- | Resource type. +cKind :: Lens' Creative Text +cKind = lens _cKind (\ s a -> s{_cKind = a}) + +-- | The HTML snippet that displays the ad when inserted in the web page. If +-- set, videoURL should not be set. +cHTMLSnippet :: Lens' Creative (Maybe Text) +cHTMLSnippet + = lens _cHTMLSnippet (\ s a -> s{_cHTMLSnippet = a}) + +-- | Detected advertiser id, if any. Read-only. This field should not be set +-- in requests. +cAdvertiserId :: Lens' Creative [Int64] +cAdvertiserId + = lens _cAdvertiserId + (\ s a -> s{_cAdvertiserId = a}) + . _Default + . _Coerce + +-- | All restricted categories for the ads that may be shown from this +-- snippet. +cRestrictedCategories :: Lens' Creative [Int32] +cRestrictedCategories + = lens _cRestrictedCategories + (\ s a -> s{_cRestrictedCategories = a}) + . _Default + . _Coerce + +-- | Top-level deals status. Read-only. This field should not be set in +-- requests. If disapproved, an entry for auctionType=DIRECT_DEALS (or ALL) +-- in servingRestrictions will also exist. Note that this may be nuanced +-- with other contextual restrictions, in which case it may be preferable +-- to read from servingRestrictions directly. +cDealsStatus :: Lens' Creative (Maybe Text) +cDealsStatus + = lens _cDealsStatus (\ s a -> s{_cDealsStatus = a}) + +-- | Ad width. +cWidth :: Lens' Creative (Maybe Int32) +cWidth + = lens _cWidth (\ s a -> s{_cWidth = a}) . + mapping _Coerce + +-- | The set of destination urls for the snippet. +cClickThroughURL :: Lens' Creative [Text] +cClickThroughURL + = lens _cClickThroughURL + (\ s a -> s{_cClickThroughURL = a}) + . _Default + . _Coerce + +-- | All vendor types for the ads that may be shown from this snippet. +cVendorType :: Lens' Creative [Int32] +cVendorType + = lens _cVendorType (\ s a -> s{_cVendorType = a}) . + _Default + . _Coerce + +-- | Account id. +cAccountId :: Lens' Creative (Maybe Int32) +cAccountId + = lens _cAccountId (\ s a -> s{_cAccountId = a}) . + mapping _Coerce + +-- | The set of urls to be called to record an impression. +cImpressionTrackingURL :: Lens' Creative [Text] +cImpressionTrackingURL + = lens _cImpressionTrackingURL + (\ s a -> s{_cImpressionTrackingURL = a}) + . _Default + . _Coerce + +-- | The filtering reasons for the creative. Read-only. This field should not +-- be set in requests. +cFilteringReasons :: Lens' Creative (Maybe CreativeFilteringReasons) +cFilteringReasons + = lens _cFilteringReasons + (\ s a -> s{_cFilteringReasons = a}) + +-- | The version for this creative. Read-only. This field should not be set +-- in requests. +cVersion :: Lens' Creative (Maybe Int32) +cVersion + = lens _cVersion (\ s a -> s{_cVersion = a}) . + mapping _Coerce + +-- | Detected sensitive categories, if any. Read-only. This field should not +-- be set in requests. +cSensitiveCategories :: Lens' Creative [Int32] +cSensitiveCategories + = lens _cSensitiveCategories + (\ s a -> s{_cSensitiveCategories = a}) + . _Default + . _Coerce + +-- | The url to fetch a video ad. If set, HTMLSnippet should not be set. +cVideoURL :: Lens' Creative (Maybe Text) +cVideoURL + = lens _cVideoURL (\ s a -> s{_cVideoURL = a}) + +-- | The last upload timestamp of this creative if it was uploaded via API. +-- Read-only. The value of this field is generated, and will be ignored for +-- uploads. (formatted RFC 3339 timestamp). +cAPIUploadTimestamp :: Lens' Creative (Maybe UTCTime) +cAPIUploadTimestamp + = lens _cAPIUploadTimestamp + (\ s a -> s{_cAPIUploadTimestamp = a}) + . mapping _DateTime + +-- | The granular status of this ad in specific contexts. A context here +-- relates to where something ultimately serves (for example, a physical +-- location, a platform, an HTTPS vs HTTP request, or the type of auction). +-- Read-only. This field should not be set in requests. +cServingRestrictions :: Lens' Creative [CreativeServingRestrictionsItem] +cServingRestrictions + = lens _cServingRestrictions + (\ s a -> s{_cServingRestrictions = 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 +-- nuanced with other contextual restrictions, in which case it may be +-- preferable to read from ServingRestrictions directly. +cOpenAuctionStatus :: Lens' Creative (Maybe Text) +cOpenAuctionStatus + = lens _cOpenAuctionStatus + (\ s a -> s{_cOpenAuctionStatus = a}) + +instance FromJSON Creative where + parseJSON + = withObject "Creative" + (\ o -> + Creative <$> + (o .:? "attribute" .!= mempty) <*> (o .:? "nativeAd") + <*> (o .:? "height") + <*> (o .:? "buyerCreativeId") + <*> (o .:? "advertiserName") + <*> (o .:? "agencyId") + <*> (o .:? "corrections" .!= mempty) + <*> (o .:? "productCategories" .!= mempty) + <*> (o .:? "kind" .!= "adexchangebuyer#creative") + <*> (o .:? "HTMLSnippet") + <*> (o .:? "advertiserId" .!= mempty) + <*> (o .:? "restrictedCategories" .!= mempty) + <*> (o .:? "dealsStatus") + <*> (o .:? "width") + <*> (o .:? "clickThroughUrl" .!= mempty) + <*> (o .:? "vendorType" .!= mempty) + <*> (o .:? "accountId") + <*> (o .:? "impressionTrackingUrl" .!= mempty) + <*> (o .:? "filteringReasons") + <*> (o .:? "version") + <*> (o .:? "sensitiveCategories" .!= mempty) + <*> (o .:? "videoURL") + <*> (o .:? "api_upload_timestamp") + <*> (o .:? "servingRestrictions" .!= mempty) + <*> (o .:? "openAuctionStatus")) + +instance ToJSON Creative where + toJSON Creative{..} + = object + (catMaybes + [("attribute" .=) <$> _cAttribute, + ("nativeAd" .=) <$> _cNATiveAd, + ("height" .=) <$> _cHeight, + ("buyerCreativeId" .=) <$> _cBuyerCreativeId, + ("advertiserName" .=) <$> _cAdvertiserName, + ("agencyId" .=) <$> _cAgencyId, + ("corrections" .=) <$> _cCorrections, + ("productCategories" .=) <$> _cProductCategories, + Just ("kind" .= _cKind), + ("HTMLSnippet" .=) <$> _cHTMLSnippet, + ("advertiserId" .=) <$> _cAdvertiserId, + ("restrictedCategories" .=) <$> + _cRestrictedCategories, + ("dealsStatus" .=) <$> _cDealsStatus, + ("width" .=) <$> _cWidth, + ("clickThroughUrl" .=) <$> _cClickThroughURL, + ("vendorType" .=) <$> _cVendorType, + ("accountId" .=) <$> _cAccountId, + ("impressionTrackingUrl" .=) <$> + _cImpressionTrackingURL, + ("filteringReasons" .=) <$> _cFilteringReasons, + ("version" .=) <$> _cVersion, + ("sensitiveCategories" .=) <$> _cSensitiveCategories, + ("videoURL" .=) <$> _cVideoURL, + ("api_upload_timestamp" .=) <$> _cAPIUploadTimestamp, + ("servingRestrictions" .=) <$> _cServingRestrictions, + ("openAuctionStatus" .=) <$> _cOpenAuctionStatus]) + +-- +-- /See:/ 'targetingValueDayPartTargetingDayPart' smart constructor. +data TargetingValueDayPartTargetingDayPart = TargetingValueDayPartTargetingDayPart + { _tvdptdpEndHour :: !(Maybe (Textual Int32)) + , _tvdptdpStartHour :: !(Maybe (Textual Int32)) + , _tvdptdpStartMinute :: !(Maybe (Textual Int32)) + , _tvdptdpDayOfWeek :: !(Maybe Text) + , _tvdptdpEndMinute :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingValueDayPartTargetingDayPart' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tvdptdpEndHour' +-- +-- * 'tvdptdpStartHour' +-- +-- * 'tvdptdpStartMinute' +-- +-- * 'tvdptdpDayOfWeek' +-- +-- * 'tvdptdpEndMinute' +targetingValueDayPartTargetingDayPart + :: TargetingValueDayPartTargetingDayPart +targetingValueDayPartTargetingDayPart = + TargetingValueDayPartTargetingDayPart + { _tvdptdpEndHour = Nothing + , _tvdptdpStartHour = Nothing + , _tvdptdpStartMinute = Nothing + , _tvdptdpDayOfWeek = Nothing + , _tvdptdpEndMinute = Nothing + } + +tvdptdpEndHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32) +tvdptdpEndHour + = lens _tvdptdpEndHour + (\ s a -> s{_tvdptdpEndHour = a}) + . mapping _Coerce + +tvdptdpStartHour :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32) +tvdptdpStartHour + = lens _tvdptdpStartHour + (\ s a -> s{_tvdptdpStartHour = a}) + . mapping _Coerce + +tvdptdpStartMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32) +tvdptdpStartMinute + = lens _tvdptdpStartMinute + (\ s a -> s{_tvdptdpStartMinute = a}) + . mapping _Coerce + +tvdptdpDayOfWeek :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Text) +tvdptdpDayOfWeek + = lens _tvdptdpDayOfWeek + (\ s a -> s{_tvdptdpDayOfWeek = a}) + +tvdptdpEndMinute :: Lens' TargetingValueDayPartTargetingDayPart (Maybe Int32) +tvdptdpEndMinute + = lens _tvdptdpEndMinute + (\ s a -> s{_tvdptdpEndMinute = a}) + . mapping _Coerce + +instance FromJSON + TargetingValueDayPartTargetingDayPart where + parseJSON + = withObject "TargetingValueDayPartTargetingDayPart" + (\ o -> + TargetingValueDayPartTargetingDayPart <$> + (o .:? "endHour") <*> (o .:? "startHour") <*> + (o .:? "startMinute") + <*> (o .:? "dayOfWeek") + <*> (o .:? "endMinute")) + +instance ToJSON TargetingValueDayPartTargetingDayPart + where + toJSON TargetingValueDayPartTargetingDayPart{..} + = object + (catMaybes + [("endHour" .=) <$> _tvdptdpEndHour, + ("startHour" .=) <$> _tvdptdpStartHour, + ("startMinute" .=) <$> _tvdptdpStartMinute, + ("dayOfWeek" .=) <$> _tvdptdpDayOfWeek, + ("endMinute" .=) <$> _tvdptdpEndMinute]) + +-- +-- /See:/ 'pretargetingConfigList' smart constructor. +data PretargetingConfigList = PretargetingConfigList + { _pclKind :: !Text + , _pclItems :: !(Maybe [PretargetingConfig]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pclKind' +-- +-- * 'pclItems' +pretargetingConfigList + :: PretargetingConfigList +pretargetingConfigList = + PretargetingConfigList + { _pclKind = "adexchangebuyer#pretargetingConfigList" + , _pclItems = Nothing + } + +-- | Resource type. +pclKind :: Lens' PretargetingConfigList Text +pclKind = lens _pclKind (\ s a -> s{_pclKind = a}) + +-- | A list of pretargeting configs +pclItems :: Lens' PretargetingConfigList [PretargetingConfig] +pclItems + = lens _pclItems (\ s a -> s{_pclItems = a}) . + _Default + . _Coerce + +instance FromJSON PretargetingConfigList where + parseJSON + = withObject "PretargetingConfigList" + (\ o -> + PretargetingConfigList <$> + (o .:? "kind" .!= + "adexchangebuyer#pretargetingConfigList") + <*> (o .:? "items" .!= mempty)) + +instance ToJSON PretargetingConfigList where + toJSON PretargetingConfigList{..} + = object + (catMaybes + [Just ("kind" .= _pclKind), + ("items" .=) <$> _pclItems]) + +-- +-- /See:/ 'buyerDTO' smart constructor. +data BuyerDTO = BuyerDTO + { _buySponsorAccountId :: !(Maybe (Textual Int32)) + , _buyEnabledForInterestTargetingDeals :: !(Maybe Bool) + , _buyCustomerId :: !(Maybe (Textual Int32)) + , _buyEnabledForPreferredDeals :: !(Maybe Bool) + , _buyAccountId :: !(Maybe (Textual Int32)) + , _buyDisplayName :: !(Maybe Text) + , _buyId :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BuyerDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'buySponsorAccountId' +-- +-- * 'buyEnabledForInterestTargetingDeals' +-- +-- * 'buyCustomerId' +-- +-- * 'buyEnabledForPreferredDeals' +-- +-- * 'buyAccountId' +-- +-- * 'buyDisplayName' +-- +-- * 'buyId' +buyerDTO + :: BuyerDTO +buyerDTO = + BuyerDTO + { _buySponsorAccountId = Nothing + , _buyEnabledForInterestTargetingDeals = Nothing + , _buyCustomerId = Nothing + , _buyEnabledForPreferredDeals = Nothing + , _buyAccountId = Nothing + , _buyDisplayName = Nothing + , _buyId = Nothing + } + +buySponsorAccountId :: Lens' BuyerDTO (Maybe Int32) +buySponsorAccountId + = lens _buySponsorAccountId + (\ s a -> s{_buySponsorAccountId = a}) + . mapping _Coerce + +buyEnabledForInterestTargetingDeals :: Lens' BuyerDTO (Maybe Bool) +buyEnabledForInterestTargetingDeals + = lens _buyEnabledForInterestTargetingDeals + (\ s a -> + s{_buyEnabledForInterestTargetingDeals = a}) + +buyCustomerId :: Lens' BuyerDTO (Maybe Int32) +buyCustomerId + = lens _buyCustomerId + (\ s a -> s{_buyCustomerId = a}) + . mapping _Coerce + +buyEnabledForPreferredDeals :: Lens' BuyerDTO (Maybe Bool) +buyEnabledForPreferredDeals + = lens _buyEnabledForPreferredDeals + (\ s a -> s{_buyEnabledForPreferredDeals = a}) + +buyAccountId :: Lens' BuyerDTO (Maybe Int32) +buyAccountId + = lens _buyAccountId (\ s a -> s{_buyAccountId = a}) + . mapping _Coerce + +buyDisplayName :: Lens' BuyerDTO (Maybe Text) +buyDisplayName + = lens _buyDisplayName + (\ s a -> s{_buyDisplayName = a}) + +buyId :: Lens' BuyerDTO (Maybe Int32) +buyId + = lens _buyId (\ s a -> s{_buyId = a}) . + mapping _Coerce + +instance FromJSON BuyerDTO where + parseJSON + = withObject "BuyerDTO" + (\ o -> + BuyerDTO <$> + (o .:? "sponsorAccountId") <*> + (o .:? "enabledForInterestTargetingDeals") + <*> (o .:? "customerId") + <*> (o .:? "enabledForPreferredDeals") + <*> (o .:? "accountId") + <*> (o .:? "displayName") + <*> (o .:? "id")) + +instance ToJSON BuyerDTO where + toJSON BuyerDTO{..} + = object + (catMaybes + [("sponsorAccountId" .=) <$> _buySponsorAccountId, + ("enabledForInterestTargetingDeals" .=) <$> + _buyEnabledForInterestTargetingDeals, + ("customerId" .=) <$> _buyCustomerId, + ("enabledForPreferredDeals" .=) <$> + _buyEnabledForPreferredDeals, + ("accountId" .=) <$> _buyAccountId, + ("displayName" .=) <$> _buyDisplayName, + ("id" .=) <$> _buyId]) + +-- +-- /See:/ 'adSlotDTO' smart constructor. +data AdSlotDTO = AdSlotDTO + { _asdtoWebPropertyId :: !(Maybe (Textual Int32)) + , _asdtoSize :: !(Maybe Text) + , _asdtoChannelCode :: !(Maybe Text) + , _asdtoChannelId :: !(Maybe (Textual Int32)) + , _asdtoName :: !(Maybe Text) + , _asdtoDescription :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AdSlotDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'asdtoWebPropertyId' +-- +-- * 'asdtoSize' +-- +-- * 'asdtoChannelCode' +-- +-- * 'asdtoChannelId' +-- +-- * 'asdtoName' +-- +-- * 'asdtoDescription' +adSlotDTO + :: AdSlotDTO +adSlotDTO = + AdSlotDTO + { _asdtoWebPropertyId = Nothing + , _asdtoSize = Nothing + , _asdtoChannelCode = Nothing + , _asdtoChannelId = Nothing + , _asdtoName = Nothing + , _asdtoDescription = Nothing + } + +asdtoWebPropertyId :: Lens' AdSlotDTO (Maybe Int32) +asdtoWebPropertyId + = lens _asdtoWebPropertyId + (\ s a -> s{_asdtoWebPropertyId = a}) + . mapping _Coerce + +asdtoSize :: Lens' AdSlotDTO (Maybe Text) +asdtoSize + = lens _asdtoSize (\ s a -> s{_asdtoSize = a}) + +asdtoChannelCode :: Lens' AdSlotDTO (Maybe Text) +asdtoChannelCode + = lens _asdtoChannelCode + (\ s a -> s{_asdtoChannelCode = a}) + +asdtoChannelId :: Lens' AdSlotDTO (Maybe Int32) +asdtoChannelId + = lens _asdtoChannelId + (\ s a -> s{_asdtoChannelId = a}) + . mapping _Coerce + +asdtoName :: Lens' AdSlotDTO (Maybe Text) +asdtoName + = lens _asdtoName (\ s a -> s{_asdtoName = a}) + +asdtoDescription :: Lens' AdSlotDTO (Maybe Text) +asdtoDescription + = lens _asdtoDescription + (\ s a -> s{_asdtoDescription = a}) + +instance FromJSON AdSlotDTO where + parseJSON + = withObject "AdSlotDTO" + (\ o -> + AdSlotDTO <$> + (o .:? "webPropertyId") <*> (o .:? "size") <*> + (o .:? "channelCode") + <*> (o .:? "channelId") + <*> (o .:? "name") + <*> (o .:? "description")) + +instance ToJSON AdSlotDTO where + toJSON AdSlotDTO{..} + = object + (catMaybes + [("webPropertyId" .=) <$> _asdtoWebPropertyId, + ("size" .=) <$> _asdtoSize, + ("channelCode" .=) <$> _asdtoChannelCode, + ("channelId" .=) <$> _asdtoChannelId, + ("name" .=) <$> _asdtoName, + ("description" .=) <$> _asdtoDescription]) + +-- +-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor. +newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms + { _dtngfptFixedPrices :: Maybe [PricePerBuyer] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtngfptFixedPrices' +dealTermsNonGuaranteedFixedPriceTerms + :: DealTermsNonGuaranteedFixedPriceTerms +dealTermsNonGuaranteedFixedPriceTerms = + DealTermsNonGuaranteedFixedPriceTerms + { _dtngfptFixedPrices = Nothing + } + +-- | Fixed price for the specified buyer. +dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer] +dtngfptFixedPrices + = lens _dtngfptFixedPrices + (\ s a -> s{_dtngfptFixedPrices = a}) + . _Default + . _Coerce + +instance FromJSON + DealTermsNonGuaranteedFixedPriceTerms where + parseJSON + = withObject "DealTermsNonGuaranteedFixedPriceTerms" + (\ o -> + DealTermsNonGuaranteedFixedPriceTerms <$> + (o .:? "fixedPrices" .!= mempty)) + +instance ToJSON DealTermsNonGuaranteedFixedPriceTerms + where + toJSON DealTermsNonGuaranteedFixedPriceTerms{..} + = object + (catMaybes + [("fixedPrices" .=) <$> _dtngfptFixedPrices]) + +-- | The configuration data for an Ad Exchange performance report list. +-- +-- /See:/ 'performanceReport' smart constructor. +data PerformanceReport = PerformanceReport + { _prFilteredBidRate :: !(Maybe (Textual Double)) + , _prKind :: !Text + , _prLatency95thPercentile :: !(Maybe (Textual Double)) + , _prCookieMatcherStatusRate :: !(Maybe [JSONValue]) + , _prHostedMatchStatusRate :: !(Maybe [JSONValue]) + , _prUnsuccessfulRequestRate :: !(Maybe (Textual Double)) + , _prBidRequestRate :: !(Maybe (Textual Double)) + , _prQuotaThrottledLimit :: !(Maybe (Textual Double)) + , _prQuotaConfiguredLimit :: !(Maybe (Textual Double)) + , _prSuccessfulRequestRate :: !(Maybe (Textual Double)) + , _prLatency85thPercentile :: !(Maybe (Textual Double)) + , _prCalloutStatusRate :: !(Maybe [JSONValue]) + , _prLatency50thPercentile :: !(Maybe (Textual Double)) + , _prBidRate :: !(Maybe (Textual Double)) + , _prCreativeStatusRate :: !(Maybe [JSONValue]) + , _prNoQuotaInRegion :: !(Maybe (Textual Double)) + , _prRegion :: !(Maybe Text) + , _prInventoryMatchRate :: !(Maybe (Textual Double)) + , _prPixelMatchResponses :: !(Maybe (Textual Double)) + , _prTimestamp :: !(Maybe (Textual Int64)) + , _prPixelMatchRequests :: !(Maybe (Textual Double)) + , _prOutOfQuota :: !(Maybe (Textual Double)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PerformanceReport' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'prFilteredBidRate' +-- +-- * 'prKind' +-- +-- * 'prLatency95thPercentile' +-- +-- * 'prCookieMatcherStatusRate' +-- +-- * 'prHostedMatchStatusRate' +-- +-- * 'prUnsuccessfulRequestRate' +-- +-- * 'prBidRequestRate' +-- +-- * 'prQuotaThrottledLimit' +-- +-- * 'prQuotaConfiguredLimit' +-- +-- * 'prSuccessfulRequestRate' +-- +-- * 'prLatency85thPercentile' +-- +-- * 'prCalloutStatusRate' +-- +-- * 'prLatency50thPercentile' +-- +-- * 'prBidRate' +-- +-- * 'prCreativeStatusRate' +-- +-- * 'prNoQuotaInRegion' +-- +-- * 'prRegion' +-- +-- * 'prInventoryMatchRate' +-- +-- * 'prPixelMatchResponses' +-- +-- * 'prTimestamp' +-- +-- * 'prPixelMatchRequests' +-- +-- * 'prOutOfQuota' +performanceReport + :: PerformanceReport +performanceReport = + PerformanceReport + { _prFilteredBidRate = Nothing + , _prKind = "adexchangebuyer#performanceReport" + , _prLatency95thPercentile = Nothing + , _prCookieMatcherStatusRate = Nothing + , _prHostedMatchStatusRate = Nothing + , _prUnsuccessfulRequestRate = Nothing + , _prBidRequestRate = Nothing + , _prQuotaThrottledLimit = Nothing + , _prQuotaConfiguredLimit = Nothing + , _prSuccessfulRequestRate = Nothing + , _prLatency85thPercentile = Nothing + , _prCalloutStatusRate = Nothing + , _prLatency50thPercentile = Nothing + , _prBidRate = Nothing + , _prCreativeStatusRate = Nothing + , _prNoQuotaInRegion = Nothing + , _prRegion = Nothing + , _prInventoryMatchRate = Nothing + , _prPixelMatchResponses = Nothing + , _prTimestamp = Nothing + , _prPixelMatchRequests = Nothing + , _prOutOfQuota = Nothing + } + +-- | The number of bid responses that were filtered due to a policy violation +-- or other errors. +prFilteredBidRate :: Lens' PerformanceReport (Maybe Double) +prFilteredBidRate + = lens _prFilteredBidRate + (\ s a -> s{_prFilteredBidRate = a}) + . mapping _Coerce + +-- | Resource type. +prKind :: Lens' PerformanceReport Text +prKind = lens _prKind (\ s a -> s{_prKind = a}) + +-- | The 95th percentile round trip latency(ms) as perceived from Google +-- servers for the duration period covered by the report. +prLatency95thPercentile :: Lens' PerformanceReport (Maybe Double) +prLatency95thPercentile + = lens _prLatency95thPercentile + (\ s a -> s{_prLatency95thPercentile = a}) + . mapping _Coerce + +-- | Average QPS for cookie matcher operations. +prCookieMatcherStatusRate :: Lens' PerformanceReport [JSONValue] +prCookieMatcherStatusRate + = lens _prCookieMatcherStatusRate + (\ s a -> s{_prCookieMatcherStatusRate = a}) + . _Default + . _Coerce + +-- | Average QPS for hosted match operations. +prHostedMatchStatusRate :: Lens' PerformanceReport [JSONValue] +prHostedMatchStatusRate + = lens _prHostedMatchStatusRate + (\ s a -> s{_prHostedMatchStatusRate = a}) + . _Default + . _Coerce + +-- | The number of bid responses that were unsuccessful due to timeouts, +-- incorrect formatting, etc. +prUnsuccessfulRequestRate :: Lens' PerformanceReport (Maybe Double) +prUnsuccessfulRequestRate + = lens _prUnsuccessfulRequestRate + (\ s a -> s{_prUnsuccessfulRequestRate = a}) + . mapping _Coerce + +-- | The number of bid requests sent to your bidder. +prBidRequestRate :: Lens' PerformanceReport (Maybe Double) +prBidRequestRate + = lens _prBidRequestRate + (\ s a -> s{_prBidRequestRate = a}) + . mapping _Coerce + +-- | The throttled quota limits for this account. +prQuotaThrottledLimit :: Lens' PerformanceReport (Maybe Double) +prQuotaThrottledLimit + = lens _prQuotaThrottledLimit + (\ s a -> s{_prQuotaThrottledLimit = a}) + . mapping _Coerce + +-- | The configured quota limits for this account. +prQuotaConfiguredLimit :: Lens' PerformanceReport (Maybe Double) +prQuotaConfiguredLimit + = lens _prQuotaConfiguredLimit + (\ s a -> s{_prQuotaConfiguredLimit = a}) + . mapping _Coerce + +-- | The number of properly formed bid responses received by our servers +-- within the deadline. +prSuccessfulRequestRate :: Lens' PerformanceReport (Maybe Double) +prSuccessfulRequestRate + = lens _prSuccessfulRequestRate + (\ s a -> s{_prSuccessfulRequestRate = a}) + . mapping _Coerce + +-- | The 85th percentile round trip latency(ms) as perceived from Google +-- servers for the duration period covered by the report. +prLatency85thPercentile :: Lens' PerformanceReport (Maybe Double) +prLatency85thPercentile + = lens _prLatency85thPercentile + (\ s a -> s{_prLatency85thPercentile = a}) + . mapping _Coerce + +-- | Rate of various prefiltering statuses per match. Please refer to the +-- callout-status-codes.txt file for different statuses. +prCalloutStatusRate :: Lens' PerformanceReport [JSONValue] +prCalloutStatusRate + = lens _prCalloutStatusRate + (\ s a -> s{_prCalloutStatusRate = a}) + . _Default + . _Coerce + +-- | The 50th percentile round trip latency(ms) as perceived from Google +-- servers for the duration period covered by the report. +prLatency50thPercentile :: Lens' PerformanceReport (Maybe Double) +prLatency50thPercentile + = lens _prLatency50thPercentile + (\ s a -> s{_prLatency50thPercentile = a}) + . mapping _Coerce + +-- | The number of bid responses with an ad. +prBidRate :: Lens' PerformanceReport (Maybe Double) +prBidRate + = lens _prBidRate (\ s a -> s{_prBidRate = a}) . + mapping _Coerce + +-- | Rate of ads with a given status. Please refer to the +-- creative-status-codes.txt file for different statuses. +prCreativeStatusRate :: Lens' PerformanceReport [JSONValue] +prCreativeStatusRate + = lens _prCreativeStatusRate + (\ s a -> s{_prCreativeStatusRate = a}) + . _Default + . _Coerce + +-- | Rate of various quota account statuses per quota check. +prNoQuotaInRegion :: Lens' PerformanceReport (Maybe Double) +prNoQuotaInRegion + = lens _prNoQuotaInRegion + (\ s a -> s{_prNoQuotaInRegion = a}) + . mapping _Coerce + +-- | The trading location of this data. +prRegion :: Lens' PerformanceReport (Maybe Text) +prRegion = lens _prRegion (\ s a -> s{_prRegion = a}) + +-- | The number of potential queries based on your pretargeting settings. +prInventoryMatchRate :: Lens' PerformanceReport (Maybe Double) +prInventoryMatchRate + = lens _prInventoryMatchRate + (\ s a -> s{_prInventoryMatchRate = a}) + . mapping _Coerce + +-- | Average QPS for pixel match responses from clients. +prPixelMatchResponses :: Lens' PerformanceReport (Maybe Double) +prPixelMatchResponses + = lens _prPixelMatchResponses + (\ s a -> s{_prPixelMatchResponses = a}) + . mapping _Coerce + +-- | The unix timestamp of the starting time of this performance data. +prTimestamp :: Lens' PerformanceReport (Maybe Int64) +prTimestamp + = lens _prTimestamp (\ s a -> s{_prTimestamp = a}) . + mapping _Coerce + +-- | Average QPS for pixel match requests from clients. +prPixelMatchRequests :: Lens' PerformanceReport (Maybe Double) +prPixelMatchRequests + = lens _prPixelMatchRequests + (\ s a -> s{_prPixelMatchRequests = a}) + . mapping _Coerce + +-- | Rate of various quota account statuses per quota check. +prOutOfQuota :: Lens' PerformanceReport (Maybe Double) +prOutOfQuota + = lens _prOutOfQuota (\ s a -> s{_prOutOfQuota = a}) + . mapping _Coerce + +instance FromJSON PerformanceReport where + parseJSON + = withObject "PerformanceReport" + (\ o -> + PerformanceReport <$> + (o .:? "filteredBidRate") <*> + (o .:? "kind" .!= + "adexchangebuyer#performanceReport") + <*> (o .:? "latency95thPercentile") + <*> (o .:? "cookieMatcherStatusRate" .!= mempty) + <*> (o .:? "hostedMatchStatusRate" .!= mempty) + <*> (o .:? "unsuccessfulRequestRate") + <*> (o .:? "bidRequestRate") + <*> (o .:? "quotaThrottledLimit") + <*> (o .:? "quotaConfiguredLimit") + <*> (o .:? "successfulRequestRate") + <*> (o .:? "latency85thPercentile") + <*> (o .:? "calloutStatusRate" .!= mempty) + <*> (o .:? "latency50thPercentile") + <*> (o .:? "bidRate") + <*> (o .:? "creativeStatusRate" .!= mempty) + <*> (o .:? "noQuotaInRegion") + <*> (o .:? "region") + <*> (o .:? "inventoryMatchRate") + <*> (o .:? "pixelMatchResponses") + <*> (o .:? "timestamp") + <*> (o .:? "pixelMatchRequests") + <*> (o .:? "outOfQuota")) + +instance ToJSON PerformanceReport where + toJSON PerformanceReport{..} + = object + (catMaybes + [("filteredBidRate" .=) <$> _prFilteredBidRate, + Just ("kind" .= _prKind), + ("latency95thPercentile" .=) <$> + _prLatency95thPercentile, + ("cookieMatcherStatusRate" .=) <$> + _prCookieMatcherStatusRate, + ("hostedMatchStatusRate" .=) <$> + _prHostedMatchStatusRate, + ("unsuccessfulRequestRate" .=) <$> + _prUnsuccessfulRequestRate, + ("bidRequestRate" .=) <$> _prBidRequestRate, + ("quotaThrottledLimit" .=) <$> + _prQuotaThrottledLimit, + ("quotaConfiguredLimit" .=) <$> + _prQuotaConfiguredLimit, + ("successfulRequestRate" .=) <$> + _prSuccessfulRequestRate, + ("latency85thPercentile" .=) <$> + _prLatency85thPercentile, + ("calloutStatusRate" .=) <$> _prCalloutStatusRate, + ("latency50thPercentile" .=) <$> + _prLatency50thPercentile, + ("bidRate" .=) <$> _prBidRate, + ("creativeStatusRate" .=) <$> _prCreativeStatusRate, + ("noQuotaInRegion" .=) <$> _prNoQuotaInRegion, + ("region" .=) <$> _prRegion, + ("inventoryMatchRate" .=) <$> _prInventoryMatchRate, + ("pixelMatchResponses" .=) <$> + _prPixelMatchResponses, + ("timestamp" .=) <$> _prTimestamp, + ("pixelMatchRequests" .=) <$> _prPixelMatchRequests, + ("outOfQuota" .=) <$> _prOutOfQuota]) + +-- +-- /See:/ 'pretargetingConfigExcludedPlacementsItem' smart constructor. +data PretargetingConfigExcludedPlacementsItem = PretargetingConfigExcludedPlacementsItem + { _pcepiToken :: !(Maybe Text) + , _pcepiType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigExcludedPlacementsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcepiToken' +-- +-- * 'pcepiType' +pretargetingConfigExcludedPlacementsItem + :: PretargetingConfigExcludedPlacementsItem +pretargetingConfigExcludedPlacementsItem = + PretargetingConfigExcludedPlacementsItem + { _pcepiToken = Nothing + , _pcepiType = Nothing + } + +-- | The value of the placement. Interpretation depends on the placement +-- type, e.g. URL for a site placement, channel name for a channel +-- placement, app id for a mobile app placement. +pcepiToken :: Lens' PretargetingConfigExcludedPlacementsItem (Maybe Text) +pcepiToken + = lens _pcepiToken (\ s a -> s{_pcepiToken = a}) + +-- | The type of the placement. +pcepiType :: Lens' PretargetingConfigExcludedPlacementsItem (Maybe Text) +pcepiType + = lens _pcepiType (\ s a -> s{_pcepiType = a}) + +instance FromJSON + PretargetingConfigExcludedPlacementsItem where + parseJSON + = withObject + "PretargetingConfigExcludedPlacementsItem" + (\ o -> + PretargetingConfigExcludedPlacementsItem <$> + (o .:? "token") <*> (o .:? "type")) + +instance ToJSON + PretargetingConfigExcludedPlacementsItem where + toJSON PretargetingConfigExcludedPlacementsItem{..} + = object + (catMaybes + [("token" .=) <$> _pcepiToken, + ("type" .=) <$> _pcepiType]) + +-- +-- /See:/ 'seller' smart constructor. +data Seller = Seller + { _sAccountId :: !(Maybe Text) + , _sSubAccountId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Seller' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sAccountId' +-- +-- * 'sSubAccountId' +seller + :: Seller +seller = + Seller + { _sAccountId = Nothing + , _sSubAccountId = Nothing + } + +-- | The unique id for the seller. The seller fills in this field. The seller +-- account id is then available to buyer in the offer. +sAccountId :: Lens' Seller (Maybe Text) +sAccountId + = lens _sAccountId (\ s a -> s{_sAccountId = a}) + +-- | Optional sub-account id for the seller. +sSubAccountId :: Lens' Seller (Maybe Text) +sSubAccountId + = lens _sSubAccountId + (\ s a -> s{_sSubAccountId = a}) + +instance FromJSON Seller where + parseJSON + = withObject "Seller" + (\ o -> + Seller <$> + (o .:? "accountId") <*> (o .:? "subAccountId")) + +instance ToJSON Seller where + toJSON Seller{..} + = object + (catMaybes + [("accountId" .=) <$> _sAccountId, + ("subAccountId" .=) <$> _sSubAccountId]) + +-- | Configuration data for an Ad Exchange buyer account. +-- +-- /See:/ 'account' smart constructor. +data Account = Account + { _aMaximumTotalQps :: !(Maybe (Textual Int32)) + , _aKind :: !Text + , _aCookieMatchingURL :: !(Maybe Text) + , _aMaximumActiveCreatives :: !(Maybe (Textual Int32)) + , _aCookieMatchingNid :: !(Maybe Text) + , _aNumberActiveCreatives :: !(Maybe (Textual Int32)) + , _aId :: !(Maybe (Textual Int32)) + , _aBidderLocation :: !(Maybe [AccountBidderLocationItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Account' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aMaximumTotalQps' +-- +-- * 'aKind' +-- +-- * 'aCookieMatchingURL' +-- +-- * 'aMaximumActiveCreatives' +-- +-- * 'aCookieMatchingNid' +-- +-- * 'aNumberActiveCreatives' +-- +-- * 'aId' +-- +-- * 'aBidderLocation' +account + :: Account +account = + Account + { _aMaximumTotalQps = Nothing + , _aKind = "adexchangebuyer#account" + , _aCookieMatchingURL = Nothing + , _aMaximumActiveCreatives = Nothing + , _aCookieMatchingNid = Nothing + , _aNumberActiveCreatives = Nothing + , _aId = Nothing + , _aBidderLocation = Nothing + } + +-- | The sum of all bidderLocation.maximumQps values cannot exceed this. +-- Please contact your technical account manager if you need to change +-- this. +aMaximumTotalQps :: Lens' Account (Maybe Int32) +aMaximumTotalQps + = lens _aMaximumTotalQps + (\ s a -> s{_aMaximumTotalQps = a}) + . mapping _Coerce + +-- | Resource type. +aKind :: Lens' Account Text +aKind = lens _aKind (\ s a -> s{_aKind = a}) + +-- | The base URL used in cookie match requests. +aCookieMatchingURL :: Lens' Account (Maybe Text) +aCookieMatchingURL + = lens _aCookieMatchingURL + (\ s a -> s{_aCookieMatchingURL = a}) + +-- | The maximum number of active creatives that an account can have, where a +-- creative is active if it was inserted or bid with in the last 30 days. +-- Please contact your technical account manager if you need to change +-- this. +aMaximumActiveCreatives :: Lens' Account (Maybe Int32) +aMaximumActiveCreatives + = lens _aMaximumActiveCreatives + (\ s a -> s{_aMaximumActiveCreatives = a}) + . mapping _Coerce + +-- | The nid parameter value used in cookie match requests. Please contact +-- your technical account manager if you need to change this. +aCookieMatchingNid :: Lens' Account (Maybe Text) +aCookieMatchingNid + = lens _aCookieMatchingNid + (\ s a -> s{_aCookieMatchingNid = a}) + +-- | The number of creatives that this account inserted or bid with in the +-- last 30 days. +aNumberActiveCreatives :: Lens' Account (Maybe Int32) +aNumberActiveCreatives + = lens _aNumberActiveCreatives + (\ s a -> s{_aNumberActiveCreatives = a}) + . mapping _Coerce + +-- | Account id. +aId :: Lens' Account (Maybe Int32) +aId + = lens _aId (\ s a -> s{_aId = a}) . mapping _Coerce + +-- | Your bidder locations that have distinct URLs. +aBidderLocation :: Lens' Account [AccountBidderLocationItem] +aBidderLocation + = lens _aBidderLocation + (\ s a -> s{_aBidderLocation = a}) + . _Default + . _Coerce + +instance FromJSON Account where + parseJSON + = withObject "Account" + (\ o -> + Account <$> + (o .:? "maximumTotalQps") <*> + (o .:? "kind" .!= "adexchangebuyer#account") + <*> (o .:? "cookieMatchingUrl") + <*> (o .:? "maximumActiveCreatives") + <*> (o .:? "cookieMatchingNid") + <*> (o .:? "numberActiveCreatives") + <*> (o .:? "id") + <*> (o .:? "bidderLocation" .!= mempty)) + +instance ToJSON Account where + toJSON Account{..} + = object + (catMaybes + [("maximumTotalQps" .=) <$> _aMaximumTotalQps, + Just ("kind" .= _aKind), + ("cookieMatchingUrl" .=) <$> _aCookieMatchingURL, + ("maximumActiveCreatives" .=) <$> + _aMaximumActiveCreatives, + ("cookieMatchingNid" .=) <$> _aCookieMatchingNid, + ("numberActiveCreatives" .=) <$> + _aNumberActiveCreatives, + ("id" .=) <$> _aId, + ("bidderLocation" .=) <$> _aBidderLocation]) + +-- +-- /See:/ 'deleteOrderDealsRequest' smart constructor. +data DeleteOrderDealsRequest = DeleteOrderDealsRequest + { _dodrUpdateAction :: !(Maybe Text) + , _dodrDealIds :: !(Maybe [Text]) + , _dodrOrderRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DeleteOrderDealsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dodrUpdateAction' +-- +-- * 'dodrDealIds' +-- +-- * 'dodrOrderRevisionNumber' +deleteOrderDealsRequest + :: DeleteOrderDealsRequest +deleteOrderDealsRequest = + DeleteOrderDealsRequest + { _dodrUpdateAction = Nothing + , _dodrDealIds = Nothing + , _dodrOrderRevisionNumber = Nothing + } + +dodrUpdateAction :: Lens' DeleteOrderDealsRequest (Maybe Text) +dodrUpdateAction + = lens _dodrUpdateAction + (\ s a -> s{_dodrUpdateAction = a}) + +-- | List of deals to delete for a given order +dodrDealIds :: Lens' DeleteOrderDealsRequest [Text] +dodrDealIds + = lens _dodrDealIds (\ s a -> s{_dodrDealIds = a}) . + _Default + . _Coerce + +-- | The last known order revision number. +dodrOrderRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64) +dodrOrderRevisionNumber + = lens _dodrOrderRevisionNumber + (\ s a -> s{_dodrOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON DeleteOrderDealsRequest where + parseJSON + = withObject "DeleteOrderDealsRequest" + (\ o -> + DeleteOrderDealsRequest <$> + (o .:? "updateAction") <*> + (o .:? "dealIds" .!= mempty) + <*> (o .:? "orderRevisionNumber")) + +instance ToJSON DeleteOrderDealsRequest where + toJSON DeleteOrderDealsRequest{..} + = object + (catMaybes + [("updateAction" .=) <$> _dodrUpdateAction, + ("dealIds" .=) <$> _dodrDealIds, + ("orderRevisionNumber" .=) <$> + _dodrOrderRevisionNumber]) + +-- +-- /See:/ 'contactInformation' smart constructor. +data ContactInformation = ContactInformation + { _ciEmail :: !(Maybe Text) + , _ciName :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ContactInformation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ciEmail' +-- +-- * 'ciName' +contactInformation + :: ContactInformation +contactInformation = + ContactInformation + { _ciEmail = Nothing + , _ciName = Nothing + } + +-- | Email address of the contact. +ciEmail :: Lens' ContactInformation (Maybe Text) +ciEmail = lens _ciEmail (\ s a -> s{_ciEmail = a}) + +-- | The name of the contact. +ciName :: Lens' ContactInformation (Maybe Text) +ciName = lens _ciName (\ s a -> s{_ciName = a}) + +instance FromJSON ContactInformation where + parseJSON + = withObject "ContactInformation" + (\ o -> + ContactInformation <$> + (o .:? "email") <*> (o .:? "name")) + +instance ToJSON ContactInformation where + toJSON ContactInformation{..} + = object + (catMaybes + [("email" .=) <$> _ciEmail, ("name" .=) <$> _ciName]) + +-- | A smaller image, for the advertiser logo. +-- +-- /See:/ 'creativeNATiveAdLogo' smart constructor. +data CreativeNATiveAdLogo = CreativeNATiveAdLogo + { _cnatalHeight :: !(Maybe (Textual Int32)) + , _cnatalURL :: !(Maybe Text) + , _cnatalWidth :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeNATiveAdLogo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cnatalHeight' +-- +-- * 'cnatalURL' +-- +-- * 'cnatalWidth' +creativeNATiveAdLogo + :: CreativeNATiveAdLogo +creativeNATiveAdLogo = + CreativeNATiveAdLogo + { _cnatalHeight = Nothing + , _cnatalURL = Nothing + , _cnatalWidth = Nothing + } + +cnatalHeight :: Lens' CreativeNATiveAdLogo (Maybe Int32) +cnatalHeight + = lens _cnatalHeight (\ s a -> s{_cnatalHeight = a}) + . mapping _Coerce + +cnatalURL :: Lens' CreativeNATiveAdLogo (Maybe Text) +cnatalURL + = lens _cnatalURL (\ s a -> s{_cnatalURL = a}) + +cnatalWidth :: Lens' CreativeNATiveAdLogo (Maybe Int32) +cnatalWidth + = lens _cnatalWidth (\ s a -> s{_cnatalWidth = a}) . + mapping _Coerce + +instance FromJSON CreativeNATiveAdLogo where + parseJSON + = withObject "CreativeNATiveAdLogo" + (\ o -> + CreativeNATiveAdLogo <$> + (o .:? "height") <*> (o .:? "url") <*> + (o .:? "width")) + +instance ToJSON CreativeNATiveAdLogo where + toJSON CreativeNATiveAdLogo{..} + = object + (catMaybes + [("height" .=) <$> _cnatalHeight, + ("url" .=) <$> _cnatalURL, + ("width" .=) <$> _cnatalWidth]) + +-- +-- /See:/ 'getOrderDealsResponse' smart constructor. +newtype GetOrderDealsResponse = GetOrderDealsResponse + { _godrDeals :: Maybe [MarketplaceDeal] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'godrDeals' +getOrderDealsResponse + :: GetOrderDealsResponse +getOrderDealsResponse = + GetOrderDealsResponse + { _godrDeals = Nothing + } + +-- | List of deals for the order +godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal] +godrDeals + = lens _godrDeals (\ s a -> s{_godrDeals = a}) . + _Default + . _Coerce + +instance FromJSON GetOrderDealsResponse where + parseJSON + = withObject "GetOrderDealsResponse" + (\ o -> + GetOrderDealsResponse <$> (o .:? "deals" .!= mempty)) + +instance ToJSON GetOrderDealsResponse where + toJSON GetOrderDealsResponse{..} + = object (catMaybes [("deals" .=) <$> _godrDeals]) + +-- | The configuration data for an Ad Exchange performance report list. +-- https:\/\/sites.google.com\/a\/google.com\/adx-integration\/Home\/engineering\/binary-releases\/rtb-api-release +-- https:\/\/cs.corp.google.com\/#piper\/\/\/depot\/google3\/contentads\/adx\/tools\/rtb_api\/adxrtb.py +-- +-- /See:/ 'performanceReportList' smart constructor. +data PerformanceReportList = PerformanceReportList + { _prlKind :: !Text + , _prlPerformanceReport :: !(Maybe [PerformanceReport]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PerformanceReportList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'prlKind' +-- +-- * 'prlPerformanceReport' +performanceReportList + :: PerformanceReportList +performanceReportList = + PerformanceReportList + { _prlKind = "adexchangebuyer#performanceReportList" + , _prlPerformanceReport = Nothing + } + +-- | Resource type. +prlKind :: Lens' PerformanceReportList Text +prlKind = lens _prlKind (\ s a -> s{_prlKind = a}) + +-- | A list of performance reports relevant for the account. +prlPerformanceReport :: Lens' PerformanceReportList [PerformanceReport] +prlPerformanceReport + = lens _prlPerformanceReport + (\ s a -> s{_prlPerformanceReport = a}) + . _Default + . _Coerce + +instance FromJSON PerformanceReportList where + parseJSON + = withObject "PerformanceReportList" + (\ o -> + PerformanceReportList <$> + (o .:? "kind" .!= + "adexchangebuyer#performanceReportList") + <*> (o .:? "performanceReport" .!= mempty)) + +instance ToJSON PerformanceReportList where + toJSON PerformanceReportList{..} + = object + (catMaybes + [Just ("kind" .= _prlKind), + ("performanceReport" .=) <$> _prlPerformanceReport]) + +-- +-- /See:/ 'pretargetingConfig' smart constructor. +data PretargetingConfig = PretargetingConfig + { _pcPlatforms :: !(Maybe [Text]) + , _pcMobileCarriers :: !(Maybe [Textual Int64]) + , _pcVendorTypes :: !(Maybe [Textual Int64]) + , _pcExcludedGeoCriteriaIds :: !(Maybe [Textual Int64]) + , _pcSupportedCreativeAttributes :: !(Maybe [Textual Int64]) + , _pcUserLists :: !(Maybe [Textual Int64]) + , _pcKind :: !Text + , _pcExcludedPlacements :: !(Maybe [PretargetingConfigExcludedPlacementsItem]) + , _pcMobileDevices :: !(Maybe [Textual Int64]) + , _pcLanguages :: !(Maybe [Text]) + , _pcVerticals :: !(Maybe [Textual Int64]) + , _pcConfigId :: !(Maybe (Textual Int64)) + , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem]) + , _pcExcludedUserLists :: !(Maybe [Textual Int64]) + , _pcConfigName :: !(Maybe Text) + , _pcGeoCriteriaIds :: !(Maybe [Textual Int64]) + , _pcDimensions :: !(Maybe [PretargetingConfigDimensionsItem]) + , _pcExcludedVerticals :: !(Maybe [Textual Int64]) + , _pcCreativeType :: !(Maybe [Text]) + , _pcIsActive :: !(Maybe Bool) + , _pcExcludedContentLabels :: !(Maybe [Textual Int64]) + , _pcBillingId :: !(Maybe (Textual Int64)) + , _pcMobileOperatingSystemVersions :: !(Maybe [Textual Int64]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcPlatforms' +-- +-- * 'pcMobileCarriers' +-- +-- * 'pcVendorTypes' +-- +-- * 'pcExcludedGeoCriteriaIds' +-- +-- * 'pcSupportedCreativeAttributes' +-- +-- * 'pcUserLists' +-- +-- * 'pcKind' +-- +-- * 'pcExcludedPlacements' +-- +-- * 'pcMobileDevices' +-- +-- * 'pcLanguages' +-- +-- * 'pcVerticals' +-- +-- * 'pcConfigId' +-- +-- * 'pcPlacements' +-- +-- * 'pcExcludedUserLists' +-- +-- * 'pcConfigName' +-- +-- * 'pcGeoCriteriaIds' +-- +-- * 'pcDimensions' +-- +-- * 'pcExcludedVerticals' +-- +-- * 'pcCreativeType' +-- +-- * 'pcIsActive' +-- +-- * 'pcExcludedContentLabels' +-- +-- * 'pcBillingId' +-- +-- * 'pcMobileOperatingSystemVersions' +pretargetingConfig + :: PretargetingConfig +pretargetingConfig = + PretargetingConfig + { _pcPlatforms = Nothing + , _pcMobileCarriers = Nothing + , _pcVendorTypes = Nothing + , _pcExcludedGeoCriteriaIds = Nothing + , _pcSupportedCreativeAttributes = Nothing + , _pcUserLists = Nothing + , _pcKind = "adexchangebuyer#pretargetingConfig" + , _pcExcludedPlacements = Nothing + , _pcMobileDevices = Nothing + , _pcLanguages = Nothing + , _pcVerticals = Nothing + , _pcConfigId = Nothing + , _pcPlacements = Nothing + , _pcExcludedUserLists = Nothing + , _pcConfigName = Nothing + , _pcGeoCriteriaIds = Nothing + , _pcDimensions = Nothing + , _pcExcludedVerticals = Nothing + , _pcCreativeType = Nothing + , _pcIsActive = Nothing + , _pcExcludedContentLabels = Nothing + , _pcBillingId = Nothing + , _pcMobileOperatingSystemVersions = Nothing + } + +-- | Requests matching any of these platforms will match. Possible values are +-- PRETARGETING_PLATFORM_MOBILE, PRETARGETING_PLATFORM_DESKTOP, and +-- PRETARGETING_PLATFORM_TABLET. +pcPlatforms :: Lens' PretargetingConfig [Text] +pcPlatforms + = lens _pcPlatforms (\ s a -> s{_pcPlatforms = a}) . + _Default + . _Coerce + +-- | Requests containing any of these mobile carrier ids will match. Values +-- are from mobile-carriers.csv in the downloadable files section. +pcMobileCarriers :: Lens' PretargetingConfig [Int64] +pcMobileCarriers + = lens _pcMobileCarriers + (\ s a -> s{_pcMobileCarriers = a}) + . _Default + . _Coerce + +-- | Requests that allow any of these vendor ids will match. Values are from +-- vendors.txt in the downloadable files section. +pcVendorTypes :: Lens' PretargetingConfig [Int64] +pcVendorTypes + = lens _pcVendorTypes + (\ s a -> s{_pcVendorTypes = a}) + . _Default + . _Coerce + +-- | Requests containing any of these geo criteria ids will not match. +pcExcludedGeoCriteriaIds :: Lens' PretargetingConfig [Int64] +pcExcludedGeoCriteriaIds + = lens _pcExcludedGeoCriteriaIds + (\ s a -> s{_pcExcludedGeoCriteriaIds = a}) + . _Default + . _Coerce + +-- | Creative attributes should be declared here if all creatives +-- corresponding to this pretargeting configuration have that creative +-- attribute. Values are from pretargetable-creative-attributes.txt in the +-- downloadable files section. +pcSupportedCreativeAttributes :: Lens' PretargetingConfig [Int64] +pcSupportedCreativeAttributes + = lens _pcSupportedCreativeAttributes + (\ s a -> s{_pcSupportedCreativeAttributes = a}) + . _Default + . _Coerce + +-- | Requests containing any of these user list ids will match. +pcUserLists :: Lens' PretargetingConfig [Int64] +pcUserLists + = lens _pcUserLists (\ s a -> s{_pcUserLists = a}) . + _Default + . _Coerce + +-- | The kind of the resource, i.e. \"adexchangebuyer#pretargetingConfig\". +pcKind :: Lens' PretargetingConfig Text +pcKind = lens _pcKind (\ s a -> s{_pcKind = a}) + +-- | Requests containing any of these placements will not match. +pcExcludedPlacements :: Lens' PretargetingConfig [PretargetingConfigExcludedPlacementsItem] +pcExcludedPlacements + = lens _pcExcludedPlacements + (\ s a -> s{_pcExcludedPlacements = a}) + . _Default + . _Coerce + +-- | Requests containing any of these mobile device ids will match. Values +-- are from mobile-devices.csv in the downloadable files section. +pcMobileDevices :: Lens' PretargetingConfig [Int64] +pcMobileDevices + = lens _pcMobileDevices + (\ s a -> s{_pcMobileDevices = a}) + . _Default + . _Coerce + +-- | Request containing any of these language codes will match. +pcLanguages :: Lens' PretargetingConfig [Text] +pcLanguages + = lens _pcLanguages (\ s a -> s{_pcLanguages = a}) . + _Default + . _Coerce + +-- | Requests containing any of these vertical ids will match. +pcVerticals :: Lens' PretargetingConfig [Int64] +pcVerticals + = lens _pcVerticals (\ s a -> s{_pcVerticals = a}) . + _Default + . _Coerce + +-- | The config id; generated automatically. Leave this field blank for +-- insert requests. +pcConfigId :: Lens' PretargetingConfig (Maybe Int64) +pcConfigId + = lens _pcConfigId (\ s a -> s{_pcConfigId = a}) . + mapping _Coerce + +-- | Requests containing any of these placements will match. +pcPlacements :: Lens' PretargetingConfig [PretargetingConfigPlacementsItem] +pcPlacements + = lens _pcPlacements (\ s a -> s{_pcPlacements = a}) + . _Default + . _Coerce + +-- | Requests containing any of these users list ids will not match. +pcExcludedUserLists :: Lens' PretargetingConfig [Int64] +pcExcludedUserLists + = lens _pcExcludedUserLists + (\ s a -> s{_pcExcludedUserLists = a}) + . _Default + . _Coerce + +-- | The name of the config. Must be unique. Required for all requests. +pcConfigName :: Lens' PretargetingConfig (Maybe Text) +pcConfigName + = lens _pcConfigName (\ s a -> s{_pcConfigName = a}) + +-- | Requests containing any of these geo criteria ids will match. +pcGeoCriteriaIds :: Lens' PretargetingConfig [Int64] +pcGeoCriteriaIds + = lens _pcGeoCriteriaIds + (\ s a -> s{_pcGeoCriteriaIds = a}) + . _Default + . _Coerce + +-- | Requests which allow one of these (width, height) pairs will match. All +-- pairs must be supported ad dimensions. +pcDimensions :: Lens' PretargetingConfig [PretargetingConfigDimensionsItem] +pcDimensions + = lens _pcDimensions (\ s a -> s{_pcDimensions = a}) + . _Default + . _Coerce + +-- | Requests containing any of these vertical ids will not match. Values are +-- from the publisher-verticals.txt file in the downloadable files section. +pcExcludedVerticals :: Lens' PretargetingConfig [Int64] +pcExcludedVerticals + = lens _pcExcludedVerticals + (\ s a -> s{_pcExcludedVerticals = a}) + . _Default + . _Coerce + +-- | List must contain exactly one of PRETARGETING_CREATIVE_TYPE_HTML or +-- PRETARGETING_CREATIVE_TYPE_VIDEO. +pcCreativeType :: Lens' PretargetingConfig [Text] +pcCreativeType + = lens _pcCreativeType + (\ s a -> s{_pcCreativeType = a}) + . _Default + . _Coerce + +-- | Whether this config is active. Required for all requests. +pcIsActive :: Lens' PretargetingConfig (Maybe Bool) +pcIsActive + = lens _pcIsActive (\ s a -> s{_pcIsActive = a}) + +-- | Requests with any of these content labels will not match. Values are +-- from content-labels.txt in the downloadable files section. +pcExcludedContentLabels :: Lens' PretargetingConfig [Int64] +pcExcludedContentLabels + = lens _pcExcludedContentLabels + (\ s a -> s{_pcExcludedContentLabels = a}) + . _Default + . _Coerce + +-- | The id for billing purposes, provided for reference. Leave this field +-- blank for insert requests; the id will be generated automatically. +pcBillingId :: Lens' PretargetingConfig (Maybe Int64) +pcBillingId + = lens _pcBillingId (\ s a -> s{_pcBillingId = a}) . + mapping _Coerce + +-- | Requests containing any of these mobile operating system version ids +-- will match. Values are from mobile-os.csv in the downloadable files +-- section. +pcMobileOperatingSystemVersions :: Lens' PretargetingConfig [Int64] +pcMobileOperatingSystemVersions + = lens _pcMobileOperatingSystemVersions + (\ s a -> s{_pcMobileOperatingSystemVersions = a}) + . _Default + . _Coerce + +instance FromJSON PretargetingConfig where + parseJSON + = withObject "PretargetingConfig" + (\ o -> + PretargetingConfig <$> + (o .:? "platforms" .!= mempty) <*> + (o .:? "mobileCarriers" .!= mempty) + <*> (o .:? "vendorTypes" .!= mempty) + <*> (o .:? "excludedGeoCriteriaIds" .!= mempty) + <*> (o .:? "supportedCreativeAttributes" .!= mempty) + <*> (o .:? "userLists" .!= mempty) + <*> + (o .:? "kind" .!= + "adexchangebuyer#pretargetingConfig") + <*> (o .:? "excludedPlacements" .!= mempty) + <*> (o .:? "mobileDevices" .!= mempty) + <*> (o .:? "languages" .!= mempty) + <*> (o .:? "verticals" .!= mempty) + <*> (o .:? "configId") + <*> (o .:? "placements" .!= mempty) + <*> (o .:? "excludedUserLists" .!= mempty) + <*> (o .:? "configName") + <*> (o .:? "geoCriteriaIds" .!= mempty) + <*> (o .:? "dimensions" .!= mempty) + <*> (o .:? "excludedVerticals" .!= mempty) + <*> (o .:? "creativeType" .!= mempty) + <*> (o .:? "isActive") + <*> (o .:? "excludedContentLabels" .!= mempty) + <*> (o .:? "billingId") + <*> + (o .:? "mobileOperatingSystemVersions" .!= mempty)) + +instance ToJSON PretargetingConfig where + toJSON PretargetingConfig{..} + = object + (catMaybes + [("platforms" .=) <$> _pcPlatforms, + ("mobileCarriers" .=) <$> _pcMobileCarriers, + ("vendorTypes" .=) <$> _pcVendorTypes, + ("excludedGeoCriteriaIds" .=) <$> + _pcExcludedGeoCriteriaIds, + ("supportedCreativeAttributes" .=) <$> + _pcSupportedCreativeAttributes, + ("userLists" .=) <$> _pcUserLists, + Just ("kind" .= _pcKind), + ("excludedPlacements" .=) <$> _pcExcludedPlacements, + ("mobileDevices" .=) <$> _pcMobileDevices, + ("languages" .=) <$> _pcLanguages, + ("verticals" .=) <$> _pcVerticals, + ("configId" .=) <$> _pcConfigId, + ("placements" .=) <$> _pcPlacements, + ("excludedUserLists" .=) <$> _pcExcludedUserLists, + ("configName" .=) <$> _pcConfigName, + ("geoCriteriaIds" .=) <$> _pcGeoCriteriaIds, + ("dimensions" .=) <$> _pcDimensions, + ("excludedVerticals" .=) <$> _pcExcludedVerticals, + ("creativeType" .=) <$> _pcCreativeType, + ("isActive" .=) <$> _pcIsActive, + ("excludedContentLabels" .=) <$> + _pcExcludedContentLabels, + ("billingId" .=) <$> _pcBillingId, + ("mobileOperatingSystemVersions" .=) <$> + _pcMobileOperatingSystemVersions]) + +-- | The filtering reasons for the creative. Read-only. This field should not +-- be set in requests. +-- +-- /See:/ 'creativeFilteringReasons' smart constructor. +data CreativeFilteringReasons = CreativeFilteringReasons + { _cfrReasons :: !(Maybe [CreativeFilteringReasonsReasonsItem]) + , _cfrDate :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeFilteringReasons' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfrReasons' +-- +-- * 'cfrDate' +creativeFilteringReasons + :: CreativeFilteringReasons +creativeFilteringReasons = + CreativeFilteringReasons + { _cfrReasons = Nothing + , _cfrDate = Nothing + } + +-- | The filtering reasons. +cfrReasons :: Lens' CreativeFilteringReasons [CreativeFilteringReasonsReasonsItem] +cfrReasons + = lens _cfrReasons (\ s a -> s{_cfrReasons = a}) . + _Default + . _Coerce + +-- | The date in ISO 8601 format for the data. The data is collected from +-- 00:00:00 to 23:59:59 in PST. +cfrDate :: Lens' CreativeFilteringReasons (Maybe Text) +cfrDate = lens _cfrDate (\ s a -> s{_cfrDate = a}) + +instance FromJSON CreativeFilteringReasons where + parseJSON + = withObject "CreativeFilteringReasons" + (\ o -> + CreativeFilteringReasons <$> + (o .:? "reasons" .!= mempty) <*> (o .:? "date")) + +instance ToJSON CreativeFilteringReasons where + toJSON CreativeFilteringReasons{..} + = object + (catMaybes + [("reasons" .=) <$> _cfrReasons, + ("date" .=) <$> _cfrDate]) + +-- +-- /See:/ 'targetingValueCreativeSize' smart constructor. +data TargetingValueCreativeSize = TargetingValueCreativeSize + { _tvcsSize :: !(Maybe TargetingValueSize) + , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize]) + , _tvcsCreativeSizeType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingValueCreativeSize' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tvcsSize' +-- +-- * 'tvcsCompanionSizes' +-- +-- * 'tvcsCreativeSizeType' +targetingValueCreativeSize + :: TargetingValueCreativeSize +targetingValueCreativeSize = + TargetingValueCreativeSize + { _tvcsSize = Nothing + , _tvcsCompanionSizes = Nothing + , _tvcsCreativeSizeType = Nothing + } + +-- | For regular creative size type, specifies the size of the creative. +tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize) +tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a}) + +-- | For video size type, the list of companion sizes. +tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [TargetingValueSize] +tvcsCompanionSizes + = lens _tvcsCompanionSizes + (\ s a -> s{_tvcsCompanionSizes = a}) + . _Default + . _Coerce + +-- | The Creative size type. +tvcsCreativeSizeType :: Lens' TargetingValueCreativeSize (Maybe Text) +tvcsCreativeSizeType + = lens _tvcsCreativeSizeType + (\ s a -> s{_tvcsCreativeSizeType = a}) + +instance FromJSON TargetingValueCreativeSize where + parseJSON + = withObject "TargetingValueCreativeSize" + (\ o -> + TargetingValueCreativeSize <$> + (o .:? "size") <*> + (o .:? "companionSizes" .!= mempty) + <*> (o .:? "creativeSizeType")) + +instance ToJSON TargetingValueCreativeSize where + toJSON TargetingValueCreativeSize{..} + = object + (catMaybes + [("size" .=) <$> _tvcsSize, + ("companionSizes" .=) <$> _tvcsCompanionSizes, + ("creativeSizeType" .=) <$> _tvcsCreativeSizeType]) + +-- +-- /See:/ 'negotiationDTO' smart constructor. +data NegotiationDTO = NegotiationDTO + { _ndtoNegotiationState :: !(Maybe Text) + , _ndtoExternalDealId :: !(Maybe (Textual Int64)) + , _ndtoStatus :: !(Maybe Text) + , _ndtoDealType :: !(Maybe Text) + , _ndtoNegotiationRounds :: !(Maybe [NegotiationRoundDTO]) + , _ndtoKind :: !Text + , _ndtoBilledBuyer :: !(Maybe DealPartyDTO) + , _ndtoBuyerEmailContacts :: !(Maybe [Text]) + , _ndtoStats :: !(Maybe StatsDTO) + , _ndtoSeller :: !(Maybe DealPartyDTO) + , _ndtoLabelNames :: !(Maybe [Text]) + , _ndtoOfferId :: !(Maybe (Textual Int64)) + , _ndtoNegotiationId :: !(Maybe (Textual Int64)) + , _ndtoSellerEmailContacts :: !(Maybe [Text]) + , _ndtoBuyer :: !(Maybe DealPartyDTO) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'NegotiationDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ndtoNegotiationState' +-- +-- * 'ndtoExternalDealId' +-- +-- * 'ndtoStatus' +-- +-- * 'ndtoDealType' +-- +-- * 'ndtoNegotiationRounds' +-- +-- * 'ndtoKind' +-- +-- * 'ndtoBilledBuyer' +-- +-- * 'ndtoBuyerEmailContacts' +-- +-- * 'ndtoStats' +-- +-- * 'ndtoSeller' +-- +-- * 'ndtoLabelNames' +-- +-- * 'ndtoOfferId' +-- +-- * 'ndtoNegotiationId' +-- +-- * 'ndtoSellerEmailContacts' +-- +-- * 'ndtoBuyer' +negotiationDTO + :: NegotiationDTO +negotiationDTO = + NegotiationDTO + { _ndtoNegotiationState = Nothing + , _ndtoExternalDealId = Nothing + , _ndtoStatus = Nothing + , _ndtoDealType = Nothing + , _ndtoNegotiationRounds = Nothing + , _ndtoKind = "adexchangebuyer#negotiation" + , _ndtoBilledBuyer = Nothing + , _ndtoBuyerEmailContacts = Nothing + , _ndtoStats = Nothing + , _ndtoSeller = Nothing + , _ndtoLabelNames = Nothing + , _ndtoOfferId = Nothing + , _ndtoNegotiationId = Nothing + , _ndtoSellerEmailContacts = Nothing + , _ndtoBuyer = Nothing + } + +-- | The state of this negotiation. +ndtoNegotiationState :: Lens' NegotiationDTO (Maybe Text) +ndtoNegotiationState + = lens _ndtoNegotiationState + (\ s a -> s{_ndtoNegotiationState = a}) + +-- | For finalized negotiations, the ID of the finalized deal. +ndtoExternalDealId :: Lens' NegotiationDTO (Maybe Int64) +ndtoExternalDealId + = lens _ndtoExternalDealId + (\ s a -> s{_ndtoExternalDealId = a}) + . mapping _Coerce + +-- | The status of this negotiation. +ndtoStatus :: Lens' NegotiationDTO (Maybe Text) +ndtoStatus + = lens _ndtoStatus (\ s a -> s{_ndtoStatus = a}) + +-- | The type of this deal. +ndtoDealType :: Lens' NegotiationDTO (Maybe Text) +ndtoDealType + = lens _ndtoDealType (\ s a -> s{_ndtoDealType = a}) + +-- | The series of negotiation rounds for this negotiation. +ndtoNegotiationRounds :: Lens' NegotiationDTO [NegotiationRoundDTO] +ndtoNegotiationRounds + = lens _ndtoNegotiationRounds + (\ s a -> s{_ndtoNegotiationRounds = a}) + . _Default + . _Coerce + +ndtoKind :: Lens' NegotiationDTO Text +ndtoKind = lens _ndtoKind (\ s a -> s{_ndtoKind = a}) + +-- | The billed buyer; Specified by a buyer buying through an intermediary. +ndtoBilledBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO) +ndtoBilledBuyer + = lens _ndtoBilledBuyer + (\ s a -> s{_ndtoBilledBuyer = a}) + +-- | The buyer party\'s contact email. +ndtoBuyerEmailContacts :: Lens' NegotiationDTO [Text] +ndtoBuyerEmailContacts + = lens _ndtoBuyerEmailContacts + (\ s a -> s{_ndtoBuyerEmailContacts = a}) + . _Default + . _Coerce + +-- | The stats for this negotiation. +ndtoStats :: Lens' NegotiationDTO (Maybe StatsDTO) +ndtoStats + = lens _ndtoStats (\ s a -> s{_ndtoStats = a}) + +-- | Details of the seller party in this negotiation. +ndtoSeller :: Lens' NegotiationDTO (Maybe DealPartyDTO) +ndtoSeller + = lens _ndtoSeller (\ s a -> s{_ndtoSeller = a}) + +-- | A list of label names applicable to this negotiation. +ndtoLabelNames :: Lens' NegotiationDTO [Text] +ndtoLabelNames + = lens _ndtoLabelNames + (\ s a -> s{_ndtoLabelNames = a}) + . _Default + . _Coerce + +-- | The ID of this negotiation\'s original offer. +ndtoOfferId :: Lens' NegotiationDTO (Maybe Int64) +ndtoOfferId + = lens _ndtoOfferId (\ s a -> s{_ndtoOfferId = a}) . + mapping _Coerce + +-- | The unique ID of this negotiation. +ndtoNegotiationId :: Lens' NegotiationDTO (Maybe Int64) +ndtoNegotiationId + = lens _ndtoNegotiationId + (\ s a -> s{_ndtoNegotiationId = a}) + . mapping _Coerce + +-- | The seller party\'s contact email. +ndtoSellerEmailContacts :: Lens' NegotiationDTO [Text] +ndtoSellerEmailContacts + = lens _ndtoSellerEmailContacts + (\ s a -> s{_ndtoSellerEmailContacts = a}) + . _Default + . _Coerce + +-- | Details of the buyer party in this negotiation. +ndtoBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO) +ndtoBuyer + = lens _ndtoBuyer (\ s a -> s{_ndtoBuyer = a}) + +instance FromJSON NegotiationDTO where + parseJSON + = withObject "NegotiationDTO" + (\ o -> + NegotiationDTO <$> + (o .:? "negotiationState") <*> + (o .:? "externalDealId") + <*> (o .:? "status") + <*> (o .:? "dealType") + <*> (o .:? "negotiationRounds" .!= mempty) + <*> (o .:? "kind" .!= "adexchangebuyer#negotiation") + <*> (o .:? "billedBuyer") + <*> (o .:? "buyerEmailContacts" .!= mempty) + <*> (o .:? "stats") + <*> (o .:? "seller") + <*> (o .:? "labelNames" .!= mempty) + <*> (o .:? "offerId") + <*> (o .:? "negotiationId") + <*> (o .:? "sellerEmailContacts" .!= mempty) + <*> (o .:? "buyer")) + +instance ToJSON NegotiationDTO where + toJSON NegotiationDTO{..} + = object + (catMaybes + [("negotiationState" .=) <$> _ndtoNegotiationState, + ("externalDealId" .=) <$> _ndtoExternalDealId, + ("status" .=) <$> _ndtoStatus, + ("dealType" .=) <$> _ndtoDealType, + ("negotiationRounds" .=) <$> _ndtoNegotiationRounds, + Just ("kind" .= _ndtoKind), + ("billedBuyer" .=) <$> _ndtoBilledBuyer, + ("buyerEmailContacts" .=) <$> + _ndtoBuyerEmailContacts, + ("stats" .=) <$> _ndtoStats, + ("seller" .=) <$> _ndtoSeller, + ("labelNames" .=) <$> _ndtoLabelNames, + ("offerId" .=) <$> _ndtoOfferId, + ("negotiationId" .=) <$> _ndtoNegotiationId, + ("sellerEmailContacts" .=) <$> + _ndtoSellerEmailContacts, + ("buyer" .=) <$> _ndtoBuyer]) + +-- +-- /See:/ 'offerDTO' smart constructor. +data OfferDTO = OfferDTO + { _odtoCreator :: !(Maybe DealPartyDTO) + , _odtoStatus :: !(Maybe Text) + , _odtoOfferState :: !(Maybe Text) + , _odtoPointOfContact :: !(Maybe Text) + , _odtoTerms :: !(Maybe TermsDTO) + , _odtoKind :: !Text + , _odtoBilledBuyer :: !(Maybe DealPartyDTO) + , _odtoOpenToDealParties :: !(Maybe [DealPartyDTO]) + , _odtoEmailContacts :: !(Maybe [Text]) + , _odtoLabelNames :: !(Maybe [Text]) + , _odtoOfferId :: !(Maybe (Textual Int64)) + , _odtoClosedToDealParties :: !(Maybe [DealPartyDTO]) + , _odtoAnonymous :: !(Maybe Bool) + , _odtoIsOpen :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'OfferDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'odtoCreator' +-- +-- * 'odtoStatus' +-- +-- * 'odtoOfferState' +-- +-- * 'odtoPointOfContact' +-- +-- * 'odtoTerms' +-- +-- * 'odtoKind' +-- +-- * 'odtoBilledBuyer' +-- +-- * 'odtoOpenToDealParties' +-- +-- * 'odtoEmailContacts' +-- +-- * 'odtoLabelNames' +-- +-- * 'odtoOfferId' +-- +-- * 'odtoClosedToDealParties' +-- +-- * 'odtoAnonymous' +-- +-- * 'odtoIsOpen' +offerDTO + :: OfferDTO +offerDTO = + OfferDTO + { _odtoCreator = Nothing + , _odtoStatus = Nothing + , _odtoOfferState = Nothing + , _odtoPointOfContact = Nothing + , _odtoTerms = Nothing + , _odtoKind = "adexchangebuyer#offer" + , _odtoBilledBuyer = Nothing + , _odtoOpenToDealParties = Nothing + , _odtoEmailContacts = Nothing + , _odtoLabelNames = Nothing + , _odtoOfferId = Nothing + , _odtoClosedToDealParties = Nothing + , _odtoAnonymous = Nothing + , _odtoIsOpen = Nothing + } + +-- | The creator of this offer. +odtoCreator :: Lens' OfferDTO (Maybe DealPartyDTO) +odtoCreator + = lens _odtoCreator (\ s a -> s{_odtoCreator = a}) + +-- | The status of this offer. +odtoStatus :: Lens' OfferDTO (Maybe Text) +odtoStatus + = lens _odtoStatus (\ s a -> s{_odtoStatus = a}) + +-- | The state of this offer. +odtoOfferState :: Lens' OfferDTO (Maybe Text) +odtoOfferState + = lens _odtoOfferState + (\ s a -> s{_odtoOfferState = a}) + +-- | The point of contact for this offer. +odtoPointOfContact :: Lens' OfferDTO (Maybe Text) +odtoPointOfContact + = lens _odtoPointOfContact + (\ s a -> s{_odtoPointOfContact = a}) + +-- | The terms of this offer. +odtoTerms :: Lens' OfferDTO (Maybe TermsDTO) +odtoTerms + = lens _odtoTerms (\ s a -> s{_odtoTerms = a}) + +odtoKind :: Lens' OfferDTO Text +odtoKind = lens _odtoKind (\ s a -> s{_odtoKind = a}) + +-- | The billed buyer; For buyer initiated offers, buying through an +-- intermediary. +odtoBilledBuyer :: Lens' OfferDTO (Maybe DealPartyDTO) +odtoBilledBuyer + = lens _odtoBilledBuyer + (\ s a -> s{_odtoBilledBuyer = a}) + +-- | The list of buyer or seller parties this offer is open to. +odtoOpenToDealParties :: Lens' OfferDTO [DealPartyDTO] +odtoOpenToDealParties + = lens _odtoOpenToDealParties + (\ s a -> s{_odtoOpenToDealParties = a}) + . _Default + . _Coerce + +-- | The list of email contacts for this offer. +odtoEmailContacts :: Lens' OfferDTO [Text] +odtoEmailContacts + = lens _odtoEmailContacts + (\ s a -> s{_odtoEmailContacts = a}) + . _Default + . _Coerce + +-- | The list of label names applicable to this offer. +odtoLabelNames :: Lens' OfferDTO [Text] +odtoLabelNames + = lens _odtoLabelNames + (\ s a -> s{_odtoLabelNames = a}) + . _Default + . _Coerce + +-- | The unique ID of this offer. +odtoOfferId :: Lens' OfferDTO (Maybe Int64) +odtoOfferId + = lens _odtoOfferId (\ s a -> s{_odtoOfferId = a}) . + mapping _Coerce + +-- | The list of buyer or seller parties this offer is closed to. +odtoClosedToDealParties :: Lens' OfferDTO [DealPartyDTO] +odtoClosedToDealParties + = lens _odtoClosedToDealParties + (\ s a -> s{_odtoClosedToDealParties = a}) + . _Default + . _Coerce + +-- | Whether this offer is anonymous. +odtoAnonymous :: Lens' OfferDTO (Maybe Bool) +odtoAnonymous + = lens _odtoAnonymous + (\ s a -> s{_odtoAnonymous = a}) + +-- | Whether this offer is open. +odtoIsOpen :: Lens' OfferDTO (Maybe Bool) +odtoIsOpen + = lens _odtoIsOpen (\ s a -> s{_odtoIsOpen = a}) + +instance FromJSON OfferDTO where + parseJSON + = withObject "OfferDTO" + (\ o -> + OfferDTO <$> + (o .:? "creator") <*> (o .:? "status") <*> + (o .:? "offerState") + <*> (o .:? "pointOfContact") + <*> (o .:? "terms") + <*> (o .:? "kind" .!= "adexchangebuyer#offer") + <*> (o .:? "billedBuyer") + <*> (o .:? "openToDealParties" .!= mempty) + <*> (o .:? "emailContacts" .!= mempty) + <*> (o .:? "labelNames" .!= mempty) + <*> (o .:? "offerId") + <*> (o .:? "closedToDealParties" .!= mempty) + <*> (o .:? "anonymous") + <*> (o .:? "isOpen")) + +instance ToJSON OfferDTO where + toJSON OfferDTO{..} + = object + (catMaybes + [("creator" .=) <$> _odtoCreator, + ("status" .=) <$> _odtoStatus, + ("offerState" .=) <$> _odtoOfferState, + ("pointOfContact" .=) <$> _odtoPointOfContact, + ("terms" .=) <$> _odtoTerms, + Just ("kind" .= _odtoKind), + ("billedBuyer" .=) <$> _odtoBilledBuyer, + ("openToDealParties" .=) <$> _odtoOpenToDealParties, + ("emailContacts" .=) <$> _odtoEmailContacts, + ("labelNames" .=) <$> _odtoLabelNames, + ("offerId" .=) <$> _odtoOfferId, + ("closedToDealParties" .=) <$> + _odtoClosedToDealParties, + ("anonymous" .=) <$> _odtoAnonymous, + ("isOpen" .=) <$> _odtoIsOpen]) + +-- +-- /See:/ 'audienceSegment' smart constructor. +data AudienceSegment = AudienceSegment + { _asNumCookies :: !(Maybe (Textual Int64)) + , _asName :: !(Maybe Text) + , _asId :: !(Maybe (Textual Int64)) + , _asDescription :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AudienceSegment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'asNumCookies' +-- +-- * 'asName' +-- +-- * 'asId' +-- +-- * 'asDescription' +audienceSegment + :: AudienceSegment +audienceSegment = + AudienceSegment + { _asNumCookies = Nothing + , _asName = Nothing + , _asId = Nothing + , _asDescription = Nothing + } + +asNumCookies :: Lens' AudienceSegment (Maybe Int64) +asNumCookies + = lens _asNumCookies (\ s a -> s{_asNumCookies = a}) + . mapping _Coerce + +asName :: Lens' AudienceSegment (Maybe Text) +asName = lens _asName (\ s a -> s{_asName = a}) + +asId :: Lens' AudienceSegment (Maybe Int64) +asId + = lens _asId (\ s a -> s{_asId = a}) . + mapping _Coerce + +asDescription :: Lens' AudienceSegment (Maybe Text) +asDescription + = lens _asDescription + (\ s a -> s{_asDescription = a}) + +instance FromJSON AudienceSegment where + parseJSON + = withObject "AudienceSegment" + (\ o -> + AudienceSegment <$> + (o .:? "numCookies") <*> (o .:? "name") <*> + (o .:? "id") + <*> (o .:? "description")) + +instance ToJSON AudienceSegment where + toJSON AudienceSegment{..} + = object + (catMaybes + [("numCookies" .=) <$> _asNumCookies, + ("name" .=) <$> _asName, ("id" .=) <$> _asId, + ("description" .=) <$> _asDescription]) + +-- | A billing info feed lists Billing Info the Ad Exchange buyer account has +-- access to. Each entry in the feed corresponds to a single billing info. +-- +-- /See:/ 'billingInfoList' smart constructor. +data BillingInfoList = BillingInfoList + { _bilKind :: !Text + , _bilItems :: !(Maybe [BillingInfo]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BillingInfoList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bilKind' +-- +-- * 'bilItems' +billingInfoList + :: BillingInfoList +billingInfoList = + BillingInfoList + { _bilKind = "adexchangebuyer#billingInfoList" + , _bilItems = Nothing + } + +-- | Resource type. +bilKind :: Lens' BillingInfoList Text +bilKind = lens _bilKind (\ s a -> s{_bilKind = a}) + +-- | A list of billing info relevant for your account. +bilItems :: Lens' BillingInfoList [BillingInfo] +bilItems + = lens _bilItems (\ s a -> s{_bilItems = a}) . + _Default + . _Coerce + +instance FromJSON BillingInfoList where + parseJSON + = withObject "BillingInfoList" + (\ o -> + BillingInfoList <$> + (o .:? "kind" .!= "adexchangebuyer#billingInfoList") + <*> (o .:? "items" .!= mempty)) + +instance ToJSON BillingInfoList where + toJSON BillingInfoList{..} + = object + (catMaybes + [Just ("kind" .= _bilKind), + ("items" .=) <$> _bilItems]) + +-- | An offer is segment of inventory that a seller wishes to sell. It is +-- associated with certain terms and targeting information which helps +-- buyer know more about the inventory. Each field in an order can have one +-- of the following setting: (readonly) - It is an error to try and set +-- this field. (buyer-readonly) - Only the seller can set this field. +-- (seller-readonly) - Only the buyer can set this field. (updatable) - The +-- field is updatable at all times by either buyer or the seller. +-- +-- /See:/ 'marketplaceOffer' smart constructor. +data MarketplaceOffer = MarketplaceOffer + { _moState :: !(Maybe Text) + , _moWebPropertyCode :: !(Maybe Text) + , _moCreationTimeMs :: !(Maybe (Textual Int64)) + , _moTerms :: !(Maybe DealTerms) + , _moLastUpdateTimeMs :: !(Maybe (Textual Int64)) + , _moKind :: !Text + , _moRevisionNumber :: !(Maybe (Textual Int64)) + , _moHasCreatorSignedOff :: !(Maybe Bool) + , _moFlightStartTimeMs :: !(Maybe (Textual Int64)) + , _moSharedTargetings :: !(Maybe [SharedTargeting]) + , _moSeller :: !(Maybe Seller) + , _moSyndicationProduct :: !(Maybe Text) + , _moFlightEndTimeMs :: !(Maybe (Textual Int64)) + , _moName :: !(Maybe Text) + , _moCreatorContacts :: !(Maybe [ContactInformation]) + , _moOfferId :: !(Maybe Text) + , _moLabels :: !(Maybe [MarketplaceLabel]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOffer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'moState' +-- +-- * 'moWebPropertyCode' +-- +-- * 'moCreationTimeMs' +-- +-- * 'moTerms' +-- +-- * 'moLastUpdateTimeMs' +-- +-- * 'moKind' +-- +-- * 'moRevisionNumber' +-- +-- * 'moHasCreatorSignedOff' +-- +-- * 'moFlightStartTimeMs' +-- +-- * 'moSharedTargetings' +-- +-- * 'moSeller' +-- +-- * 'moSyndicationProduct' +-- +-- * 'moFlightEndTimeMs' +-- +-- * 'moName' +-- +-- * 'moCreatorContacts' +-- +-- * 'moOfferId' +-- +-- * 'moLabels' +marketplaceOffer + :: MarketplaceOffer +marketplaceOffer = + MarketplaceOffer + { _moState = Nothing + , _moWebPropertyCode = Nothing + , _moCreationTimeMs = Nothing + , _moTerms = Nothing + , _moLastUpdateTimeMs = Nothing + , _moKind = "adexchangebuyer#marketplaceOffer" + , _moRevisionNumber = Nothing + , _moHasCreatorSignedOff = Nothing + , _moFlightStartTimeMs = Nothing + , _moSharedTargetings = Nothing + , _moSeller = Nothing + , _moSyndicationProduct = Nothing + , _moFlightEndTimeMs = Nothing + , _moName = Nothing + , _moCreatorContacts = Nothing + , _moOfferId = Nothing + , _moLabels = Nothing + } + +-- | The state of the offer. (buyer-readonly) +moState :: Lens' MarketplaceOffer (Maybe Text) +moState = lens _moState (\ s a -> s{_moState = a}) + +moWebPropertyCode :: Lens' MarketplaceOffer (Maybe Text) +moWebPropertyCode + = lens _moWebPropertyCode + (\ s a -> s{_moWebPropertyCode = a}) + +-- | Creation time in ms. since epoch (readonly) +moCreationTimeMs :: Lens' MarketplaceOffer (Maybe Int64) +moCreationTimeMs + = lens _moCreationTimeMs + (\ s a -> s{_moCreationTimeMs = a}) + . mapping _Coerce + +-- | The negotiable terms of the deal (buyer-readonly) +moTerms :: Lens' MarketplaceOffer (Maybe DealTerms) +moTerms = lens _moTerms (\ s a -> s{_moTerms = a}) + +-- | Time of last update in ms. since epoch (readonly) +moLastUpdateTimeMs :: Lens' MarketplaceOffer (Maybe Int64) +moLastUpdateTimeMs + = lens _moLastUpdateTimeMs + (\ s a -> s{_moLastUpdateTimeMs = a}) + . mapping _Coerce + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#marketplaceOffer\". +moKind :: Lens' MarketplaceOffer Text +moKind = lens _moKind (\ s a -> s{_moKind = a}) + +-- | The revision number of the offer. (readonly) +moRevisionNumber :: Lens' MarketplaceOffer (Maybe Int64) +moRevisionNumber + = lens _moRevisionNumber + (\ s a -> s{_moRevisionNumber = a}) + . mapping _Coerce + +-- | If the creator has already signed off on the offer, then the buyer can +-- finalize the deal by accepting the offer as is. When copying to an +-- order, if any of the terms are changed, then auto_finalize is +-- automatically set to false. +moHasCreatorSignedOff :: Lens' MarketplaceOffer (Maybe Bool) +moHasCreatorSignedOff + = lens _moHasCreatorSignedOff + (\ s a -> s{_moHasCreatorSignedOff = a}) + +-- | Inventory availability dates. (times are in ms since epoch) The +-- granularity is generally in the order of seconds. (buyer-readonly) +moFlightStartTimeMs :: Lens' MarketplaceOffer (Maybe Int64) +moFlightStartTimeMs + = lens _moFlightStartTimeMs + (\ s a -> s{_moFlightStartTimeMs = a}) + . mapping _Coerce + +-- | Targeting that is shared between the buyer and the seller. Each +-- targeting criteria has a specified key and for each key there is a list +-- of inclusion value or exclusion values. (buyer-readonly) +moSharedTargetings :: Lens' MarketplaceOffer [SharedTargeting] +moSharedTargetings + = lens _moSharedTargetings + (\ s a -> s{_moSharedTargetings = a}) + . _Default + . _Coerce + +-- | Information about the seller that created this offer (readonly, except +-- on create) +moSeller :: Lens' MarketplaceOffer (Maybe Seller) +moSeller = lens _moSeller (\ s a -> s{_moSeller = a}) + +-- | The syndication product associated with the deal. (readonly, except on +-- create) +moSyndicationProduct :: Lens' MarketplaceOffer (Maybe Text) +moSyndicationProduct + = lens _moSyndicationProduct + (\ s a -> s{_moSyndicationProduct = a}) + +-- | The proposed end time for the deal (ms since epoch) (buyer-readonly) +moFlightEndTimeMs :: Lens' MarketplaceOffer (Maybe Int64) +moFlightEndTimeMs + = lens _moFlightEndTimeMs + (\ s a -> s{_moFlightEndTimeMs = a}) + . mapping _Coerce + +-- | The name for this offer as set by the seller. (buyer-readonly) +moName :: Lens' MarketplaceOffer (Maybe Text) +moName = lens _moName (\ s a -> s{_moName = a}) + +-- | Optional contact information for the creator of this offer. +-- (buyer-readonly) +moCreatorContacts :: Lens' MarketplaceOffer [ContactInformation] +moCreatorContacts + = lens _moCreatorContacts + (\ s a -> s{_moCreatorContacts = a}) + . _Default + . _Coerce + +-- | The unique id for the offer (readonly) +moOfferId :: Lens' MarketplaceOffer (Maybe Text) +moOfferId + = lens _moOfferId (\ s a -> s{_moOfferId = a}) + +-- | Optional List of labels for the offer (optional, buyer-readonly). +moLabels :: Lens' MarketplaceOffer [MarketplaceLabel] +moLabels + = lens _moLabels (\ s a -> s{_moLabels = a}) . + _Default + . _Coerce + +instance FromJSON MarketplaceOffer where + parseJSON + = withObject "MarketplaceOffer" + (\ o -> + MarketplaceOffer <$> + (o .:? "state") <*> (o .:? "webPropertyCode") <*> + (o .:? "creationTimeMs") + <*> (o .:? "terms") + <*> (o .:? "lastUpdateTimeMs") + <*> + (o .:? "kind" .!= "adexchangebuyer#marketplaceOffer") + <*> (o .:? "revisionNumber") + <*> (o .:? "hasCreatorSignedOff") + <*> (o .:? "flightStartTimeMs") + <*> (o .:? "sharedTargetings" .!= mempty) + <*> (o .:? "seller") + <*> (o .:? "syndicationProduct") + <*> (o .:? "flightEndTimeMs") + <*> (o .:? "name") + <*> (o .:? "creatorContacts" .!= mempty) + <*> (o .:? "offerId") + <*> (o .:? "labels" .!= mempty)) + +instance ToJSON MarketplaceOffer where + toJSON MarketplaceOffer{..} + = object + (catMaybes + [("state" .=) <$> _moState, + ("webPropertyCode" .=) <$> _moWebPropertyCode, + ("creationTimeMs" .=) <$> _moCreationTimeMs, + ("terms" .=) <$> _moTerms, + ("lastUpdateTimeMs" .=) <$> _moLastUpdateTimeMs, + Just ("kind" .= _moKind), + ("revisionNumber" .=) <$> _moRevisionNumber, + ("hasCreatorSignedOff" .=) <$> + _moHasCreatorSignedOff, + ("flightStartTimeMs" .=) <$> _moFlightStartTimeMs, + ("sharedTargetings" .=) <$> _moSharedTargetings, + ("seller" .=) <$> _moSeller, + ("syndicationProduct" .=) <$> _moSyndicationProduct, + ("flightEndTimeMs" .=) <$> _moFlightEndTimeMs, + ("name" .=) <$> _moName, + ("creatorContacts" .=) <$> _moCreatorContacts, + ("offerId" .=) <$> _moOfferId, + ("labels" .=) <$> _moLabels]) + +-- +-- /See:/ 'addOrderNotesResponse' smart constructor. +newtype AddOrderNotesResponse = AddOrderNotesResponse + { _aNotes :: Maybe [MarketplaceNote] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aNotes' +addOrderNotesResponse + :: AddOrderNotesResponse +addOrderNotesResponse = + AddOrderNotesResponse + { _aNotes = Nothing + } + +aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote] +aNotes + = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default . + _Coerce + +instance FromJSON AddOrderNotesResponse where + parseJSON + = withObject "AddOrderNotesResponse" + (\ o -> + AddOrderNotesResponse <$> (o .:? "notes" .!= mempty)) + +instance ToJSON AddOrderNotesResponse where + toJSON AddOrderNotesResponse{..} + = object (catMaybes [("notes" .=) <$> _aNotes]) + +-- +-- /See:/ 'targetingValueSize' smart constructor. +data TargetingValueSize = TargetingValueSize + { _tvsHeight :: !(Maybe (Textual Int32)) + , _tvsWidth :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingValueSize' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tvsHeight' +-- +-- * 'tvsWidth' +targetingValueSize + :: TargetingValueSize +targetingValueSize = + TargetingValueSize + { _tvsHeight = Nothing + , _tvsWidth = Nothing + } + +-- | The height of the creative. +tvsHeight :: Lens' TargetingValueSize (Maybe Int32) +tvsHeight + = lens _tvsHeight (\ s a -> s{_tvsHeight = a}) . + mapping _Coerce + +-- | The width of the creative. +tvsWidth :: Lens' TargetingValueSize (Maybe Int32) +tvsWidth + = lens _tvsWidth (\ s a -> s{_tvsWidth = a}) . + mapping _Coerce + +instance FromJSON TargetingValueSize where + parseJSON + = withObject "TargetingValueSize" + (\ o -> + TargetingValueSize <$> + (o .:? "height") <*> (o .:? "width")) + +instance ToJSON TargetingValueSize where + toJSON TargetingValueSize{..} + = object + (catMaybes + [("height" .=) <$> _tvsHeight, + ("width" .=) <$> _tvsWidth]) + +-- +-- /See:/ 'getNegotiationsRequest' smart constructor. +data GetNegotiationsRequest = GetNegotiationsRequest + { _gnrSinceTimestampMillis :: !(Maybe (Textual Int64)) + , _gnrFinalized :: !(Maybe Bool) + , _gnrIncludePrivateAuctions :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetNegotiationsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gnrSinceTimestampMillis' +-- +-- * 'gnrFinalized' +-- +-- * 'gnrIncludePrivateAuctions' +getNegotiationsRequest + :: GetNegotiationsRequest +getNegotiationsRequest = + GetNegotiationsRequest + { _gnrSinceTimestampMillis = Nothing + , _gnrFinalized = Nothing + , _gnrIncludePrivateAuctions = Nothing + } + +gnrSinceTimestampMillis :: Lens' GetNegotiationsRequest (Maybe Int64) +gnrSinceTimestampMillis + = lens _gnrSinceTimestampMillis + (\ s a -> s{_gnrSinceTimestampMillis = a}) + . mapping _Coerce + +gnrFinalized :: Lens' GetNegotiationsRequest (Maybe Bool) +gnrFinalized + = lens _gnrFinalized (\ s a -> s{_gnrFinalized = a}) + +gnrIncludePrivateAuctions :: Lens' GetNegotiationsRequest (Maybe Bool) +gnrIncludePrivateAuctions + = lens _gnrIncludePrivateAuctions + (\ s a -> s{_gnrIncludePrivateAuctions = a}) + +instance FromJSON GetNegotiationsRequest where + parseJSON + = withObject "GetNegotiationsRequest" + (\ o -> + GetNegotiationsRequest <$> + (o .:? "sinceTimestampMillis") <*> + (o .:? "finalized") + <*> (o .:? "includePrivateAuctions")) + +instance ToJSON GetNegotiationsRequest where + toJSON GetNegotiationsRequest{..} + = object + (catMaybes + [("sinceTimestampMillis" .=) <$> + _gnrSinceTimestampMillis, + ("finalized" .=) <$> _gnrFinalized, + ("includePrivateAuctions" .=) <$> + _gnrIncludePrivateAuctions]) + +-- +-- /See:/ 'moneyDTO' smart constructor. +data MoneyDTO = MoneyDTO + { _mdtoCurrencyCode :: !(Maybe Text) + , _mdtoMicros :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MoneyDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mdtoCurrencyCode' +-- +-- * 'mdtoMicros' +moneyDTO + :: MoneyDTO +moneyDTO = + MoneyDTO + { _mdtoCurrencyCode = Nothing + , _mdtoMicros = Nothing + } + +mdtoCurrencyCode :: Lens' MoneyDTO (Maybe Text) +mdtoCurrencyCode + = lens _mdtoCurrencyCode + (\ s a -> s{_mdtoCurrencyCode = a}) + +mdtoMicros :: Lens' MoneyDTO (Maybe Int64) +mdtoMicros + = lens _mdtoMicros (\ s a -> s{_mdtoMicros = a}) . + mapping _Coerce + +instance FromJSON MoneyDTO where + parseJSON + = withObject "MoneyDTO" + (\ o -> + MoneyDTO <$> + (o .:? "currencyCode") <*> (o .:? "micros")) + +instance ToJSON MoneyDTO where + toJSON MoneyDTO{..} + = object + (catMaybes + [("currencyCode" .=) <$> _mdtoCurrencyCode, + ("micros" .=) <$> _mdtoMicros]) + +-- +-- /See:/ 'getNegotiationByIdRequest' smart constructor. +newtype GetNegotiationByIdRequest = GetNegotiationByIdRequest + { _gnbirIncludePrivateAuctions :: Maybe Bool + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetNegotiationByIdRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gnbirIncludePrivateAuctions' +getNegotiationByIdRequest + :: GetNegotiationByIdRequest +getNegotiationByIdRequest = + GetNegotiationByIdRequest + { _gnbirIncludePrivateAuctions = Nothing + } + +gnbirIncludePrivateAuctions :: Lens' GetNegotiationByIdRequest (Maybe Bool) +gnbirIncludePrivateAuctions + = lens _gnbirIncludePrivateAuctions + (\ s a -> s{_gnbirIncludePrivateAuctions = a}) + +instance FromJSON GetNegotiationByIdRequest where + parseJSON + = withObject "GetNegotiationByIdRequest" + (\ o -> + GetNegotiationByIdRequest <$> + (o .:? "includePrivateAuctions")) + +instance ToJSON GetNegotiationByIdRequest where + toJSON GetNegotiationByIdRequest{..} + = object + (catMaybes + [("includePrivateAuctions" .=) <$> + _gnbirIncludePrivateAuctions]) + +-- +-- /See:/ 'listOffersResponse' smart constructor. +data ListOffersResponse = ListOffersResponse + { _lorKind :: !Text + , _lorOffers :: !(Maybe [OfferDTO]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lorKind' +-- +-- * 'lorOffers' +listOffersResponse + :: ListOffersResponse +listOffersResponse = + ListOffersResponse + { _lorKind = "adexchangebuyer#offersList" + , _lorOffers = Nothing + } + +lorKind :: Lens' ListOffersResponse Text +lorKind = lens _lorKind (\ s a -> s{_lorKind = a}) + +lorOffers :: Lens' ListOffersResponse [OfferDTO] +lorOffers + = lens _lorOffers (\ s a -> s{_lorOffers = a}) . + _Default + . _Coerce + +instance FromJSON ListOffersResponse where + parseJSON + = withObject "ListOffersResponse" + (\ o -> + ListOffersResponse <$> + (o .:? "kind" .!= "adexchangebuyer#offersList") <*> + (o .:? "offers" .!= mempty)) + +instance ToJSON ListOffersResponse where + toJSON ListOffersResponse{..} + = object + (catMaybes + [Just ("kind" .= _lorKind), + ("offers" .=) <$> _lorOffers]) + +-- +-- /See:/ 'pretargetingConfigDimensionsItem' smart constructor. +data PretargetingConfigDimensionsItem = PretargetingConfigDimensionsItem + { _pcdiHeight :: !(Maybe (Textual Int64)) + , _pcdiWidth :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigDimensionsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcdiHeight' +-- +-- * 'pcdiWidth' +pretargetingConfigDimensionsItem + :: PretargetingConfigDimensionsItem +pretargetingConfigDimensionsItem = + PretargetingConfigDimensionsItem + { _pcdiHeight = Nothing + , _pcdiWidth = Nothing + } + +-- | Height in pixels. +pcdiHeight :: Lens' PretargetingConfigDimensionsItem (Maybe Int64) +pcdiHeight + = lens _pcdiHeight (\ s a -> s{_pcdiHeight = a}) . + mapping _Coerce + +-- | Width in pixels. +pcdiWidth :: Lens' PretargetingConfigDimensionsItem (Maybe Int64) +pcdiWidth + = lens _pcdiWidth (\ s a -> s{_pcdiWidth = a}) . + mapping _Coerce + +instance FromJSON PretargetingConfigDimensionsItem + where + parseJSON + = withObject "PretargetingConfigDimensionsItem" + (\ o -> + PretargetingConfigDimensionsItem <$> + (o .:? "height") <*> (o .:? "width")) + +instance ToJSON PretargetingConfigDimensionsItem + where + toJSON PretargetingConfigDimensionsItem{..} + = object + (catMaybes + [("height" .=) <$> _pcdiHeight, + ("width" .=) <$> _pcdiWidth]) + +-- +-- /See:/ 'advertiserDTO' smart constructor. +data AdvertiserDTO = AdvertiserDTO + { _adtoStatus :: !(Maybe Text) + , _adtoBrands :: !(Maybe [BrandDTO]) + , _adtoName :: !(Maybe Text) + , _adtoId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AdvertiserDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'adtoStatus' +-- +-- * 'adtoBrands' +-- +-- * 'adtoName' +-- +-- * 'adtoId' +advertiserDTO + :: AdvertiserDTO +advertiserDTO = + AdvertiserDTO + { _adtoStatus = Nothing + , _adtoBrands = Nothing + , _adtoName = Nothing + , _adtoId = Nothing + } + +adtoStatus :: Lens' AdvertiserDTO (Maybe Text) +adtoStatus + = lens _adtoStatus (\ s a -> s{_adtoStatus = a}) + +adtoBrands :: Lens' AdvertiserDTO [BrandDTO] +adtoBrands + = lens _adtoBrands (\ s a -> s{_adtoBrands = a}) . + _Default + . _Coerce + +adtoName :: Lens' AdvertiserDTO (Maybe Text) +adtoName = lens _adtoName (\ s a -> s{_adtoName = a}) + +adtoId :: Lens' AdvertiserDTO (Maybe Int64) +adtoId + = lens _adtoId (\ s a -> s{_adtoId = a}) . + mapping _Coerce + +instance FromJSON AdvertiserDTO where + parseJSON + = withObject "AdvertiserDTO" + (\ o -> + AdvertiserDTO <$> + (o .:? "status") <*> (o .:? "brands" .!= mempty) <*> + (o .:? "name") + <*> (o .:? "id")) + +instance ToJSON AdvertiserDTO where + toJSON AdvertiserDTO{..} + = object + (catMaybes + [("status" .=) <$> _adtoStatus, + ("brands" .=) <$> _adtoBrands, + ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId]) + +-- +-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor. +newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse + { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lcacrClientAccessPermissions' +listClientAccessCapabilitiesResponse + :: ListClientAccessCapabilitiesResponse +listClientAccessCapabilitiesResponse = + ListClientAccessCapabilitiesResponse + { _lcacrClientAccessPermissions = Nothing + } + +lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities] +lcacrClientAccessPermissions + = lens _lcacrClientAccessPermissions + (\ s a -> s{_lcacrClientAccessPermissions = a}) + . _Default + . _Coerce + +instance FromJSON + ListClientAccessCapabilitiesResponse where + parseJSON + = withObject "ListClientAccessCapabilitiesResponse" + (\ o -> + ListClientAccessCapabilitiesResponse <$> + (o .:? "clientAccessPermissions" .!= mempty)) + +instance ToJSON ListClientAccessCapabilitiesResponse + where + toJSON ListClientAccessCapabilitiesResponse{..} + = object + (catMaybes + [("clientAccessPermissions" .=) <$> + _lcacrClientAccessPermissions]) + +-- +-- /See:/ 'targetingValue' smart constructor. +data TargetingValue = TargetingValue + { _tvCreativeSizeValue :: !(Maybe TargetingValueCreativeSize) + , _tvStringValue :: !(Maybe Text) + , _tvLongValue :: !(Maybe (Textual Int64)) + , _tvDayPartTargetingValue :: !(Maybe TargetingValueDayPartTargeting) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tvCreativeSizeValue' +-- +-- * 'tvStringValue' +-- +-- * 'tvLongValue' +-- +-- * 'tvDayPartTargetingValue' +targetingValue + :: TargetingValue +targetingValue = + TargetingValue + { _tvCreativeSizeValue = Nothing + , _tvStringValue = Nothing + , _tvLongValue = Nothing + , _tvDayPartTargetingValue = Nothing + } + +-- | The creative size value to exclude\/include. +tvCreativeSizeValue :: Lens' TargetingValue (Maybe TargetingValueCreativeSize) +tvCreativeSizeValue + = lens _tvCreativeSizeValue + (\ s a -> s{_tvCreativeSizeValue = a}) + +-- | The string value to exclude\/include. +tvStringValue :: Lens' TargetingValue (Maybe Text) +tvStringValue + = lens _tvStringValue + (\ s a -> s{_tvStringValue = a}) + +-- | The long value to exclude\/include. +tvLongValue :: Lens' TargetingValue (Maybe Int64) +tvLongValue + = lens _tvLongValue (\ s a -> s{_tvLongValue = a}) . + mapping _Coerce + +-- | The daypart targeting to include \/ exclude. Filled in when the key is +-- GOOG_DAYPART_TARGETING. +tvDayPartTargetingValue :: Lens' TargetingValue (Maybe TargetingValueDayPartTargeting) +tvDayPartTargetingValue + = lens _tvDayPartTargetingValue + (\ s a -> s{_tvDayPartTargetingValue = a}) + +instance FromJSON TargetingValue where + parseJSON + = withObject "TargetingValue" + (\ o -> + TargetingValue <$> + (o .:? "creativeSizeValue") <*> (o .:? "stringValue") + <*> (o .:? "longValue") + <*> (o .:? "dayPartTargetingValue")) + +instance ToJSON TargetingValue where + toJSON TargetingValue{..} + = object + (catMaybes + [("creativeSizeValue" .=) <$> _tvCreativeSizeValue, + ("stringValue" .=) <$> _tvStringValue, + ("longValue" .=) <$> _tvLongValue, + ("dayPartTargetingValue" .=) <$> + _tvDayPartTargetingValue]) + +-- | The app icon, for app download ads. +-- +-- /See:/ 'creativeNATiveAdAppIcon' smart constructor. +data CreativeNATiveAdAppIcon = CreativeNATiveAdAppIcon + { _cnataaiHeight :: !(Maybe (Textual Int32)) + , _cnataaiURL :: !(Maybe Text) + , _cnataaiWidth :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeNATiveAdAppIcon' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cnataaiHeight' +-- +-- * 'cnataaiURL' +-- +-- * 'cnataaiWidth' +creativeNATiveAdAppIcon + :: CreativeNATiveAdAppIcon +creativeNATiveAdAppIcon = + CreativeNATiveAdAppIcon + { _cnataaiHeight = Nothing + , _cnataaiURL = Nothing + , _cnataaiWidth = Nothing + } + +cnataaiHeight :: Lens' CreativeNATiveAdAppIcon (Maybe Int32) +cnataaiHeight + = lens _cnataaiHeight + (\ s a -> s{_cnataaiHeight = a}) + . mapping _Coerce + +cnataaiURL :: Lens' CreativeNATiveAdAppIcon (Maybe Text) +cnataaiURL + = lens _cnataaiURL (\ s a -> s{_cnataaiURL = a}) + +cnataaiWidth :: Lens' CreativeNATiveAdAppIcon (Maybe Int32) +cnataaiWidth + = lens _cnataaiWidth (\ s a -> s{_cnataaiWidth = a}) + . mapping _Coerce + +instance FromJSON CreativeNATiveAdAppIcon where + parseJSON + = withObject "CreativeNATiveAdAppIcon" + (\ o -> + CreativeNATiveAdAppIcon <$> + (o .:? "height") <*> (o .:? "url") <*> + (o .:? "width")) + +instance ToJSON CreativeNATiveAdAppIcon where + toJSON CreativeNATiveAdAppIcon{..} + = object + (catMaybes + [("height" .=) <$> _cnataaiHeight, + ("url" .=) <$> _cnataaiURL, + ("width" .=) <$> _cnataaiWidth]) + +-- +-- /See:/ 'price' smart constructor. +data Price = Price + { _pCurrencyCode :: !(Maybe Text) + , _pAmountMicros :: !(Maybe (Textual Double)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Price' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pCurrencyCode' +-- +-- * 'pAmountMicros' +price + :: Price +price = + Price + { _pCurrencyCode = Nothing + , _pAmountMicros = Nothing + } + +-- | The currency code for the price. +pCurrencyCode :: Lens' Price (Maybe Text) +pCurrencyCode + = lens _pCurrencyCode + (\ s a -> s{_pCurrencyCode = a}) + +-- | The CPM value in micros. +pAmountMicros :: Lens' Price (Maybe Double) +pAmountMicros + = lens _pAmountMicros + (\ s a -> s{_pAmountMicros = a}) + . mapping _Coerce + +instance FromJSON Price where + parseJSON + = withObject "Price" + (\ o -> + Price <$> + (o .:? "currencyCode") <*> (o .:? "amountMicros")) + +instance ToJSON Price where + toJSON Price{..} + = object + (catMaybes + [("currencyCode" .=) <$> _pCurrencyCode, + ("amountMicros" .=) <$> _pAmountMicros]) + +-- +-- /See:/ 'editAllOrderDealsRequest' smart constructor. +data EditAllOrderDealsRequest = EditAllOrderDealsRequest + { _eUpdateAction :: !(Maybe Text) + , _eDeals :: !(Maybe [MarketplaceDeal]) + , _eOrder :: !(Maybe MarketplaceOrder) + , _eOrderRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'EditAllOrderDealsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eUpdateAction' +-- +-- * 'eDeals' +-- +-- * 'eOrder' +-- +-- * 'eOrderRevisionNumber' +editAllOrderDealsRequest + :: EditAllOrderDealsRequest +editAllOrderDealsRequest = + EditAllOrderDealsRequest + { _eUpdateAction = Nothing + , _eDeals = Nothing + , _eOrder = Nothing + , _eOrderRevisionNumber = Nothing + } + +-- | Indicates an optional action to take on the order +eUpdateAction :: Lens' EditAllOrderDealsRequest (Maybe Text) +eUpdateAction + = lens _eUpdateAction + (\ s a -> s{_eUpdateAction = a}) + +-- | List of deals to edit. Service may perform 3 different operations based +-- on comparison of deals in this list vs deals already persisted in +-- database: 1. Add new deal to order If a deal in this list does not exist +-- in the order, the service will create a new deal and add it to the +-- order. Validation will follow AddOrderDealsRequest. 2. Update existing +-- deal in the order If a deal in this list already exist in the order, the +-- service will update that existing deal to this new deal in the request. +-- Validation will follow UpdateOrderDealsRequest. 3. Delete deals from the +-- order (just need the id) If a existing deal in the order is not present +-- in this list, the service will delete that deal from the order. +-- Validation will follow DeleteOrderDealsRequest. +eDeals :: Lens' EditAllOrderDealsRequest [MarketplaceDeal] +eDeals + = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default . + _Coerce + +-- | If specified, also updates the order in the batch transaction. This is +-- useful when the order and the deals need to be updated in one +-- transaction. +eOrder :: Lens' EditAllOrderDealsRequest (Maybe MarketplaceOrder) +eOrder = lens _eOrder (\ s a -> s{_eOrder = a}) + +-- | The last known revision number for the order. +eOrderRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64) +eOrderRevisionNumber + = lens _eOrderRevisionNumber + (\ s a -> s{_eOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON EditAllOrderDealsRequest where + parseJSON + = withObject "EditAllOrderDealsRequest" + (\ o -> + EditAllOrderDealsRequest <$> + (o .:? "updateAction") <*> (o .:? "deals" .!= mempty) + <*> (o .:? "order") + <*> (o .:? "orderRevisionNumber")) + +instance ToJSON EditAllOrderDealsRequest where + toJSON EditAllOrderDealsRequest{..} + = object + (catMaybes + [("updateAction" .=) <$> _eUpdateAction, + ("deals" .=) <$> _eDeals, ("order" .=) <$> _eOrder, + ("orderRevisionNumber" .=) <$> + _eOrderRevisionNumber]) + +-- | The configuration data for an Ad Exchange billing info. +-- +-- /See:/ 'billingInfo' smart constructor. +data BillingInfo = BillingInfo + { _biKind :: !Text + , _biAccountName :: !(Maybe Text) + , _biAccountId :: !(Maybe (Textual Int32)) + , _biBillingId :: !(Maybe [Text]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BillingInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'biKind' +-- +-- * 'biAccountName' +-- +-- * 'biAccountId' +-- +-- * 'biBillingId' +billingInfo + :: BillingInfo +billingInfo = + BillingInfo + { _biKind = "adexchangebuyer#billingInfo" + , _biAccountName = Nothing + , _biAccountId = Nothing + , _biBillingId = Nothing + } + +-- | Resource type. +biKind :: Lens' BillingInfo Text +biKind = lens _biKind (\ s a -> s{_biKind = a}) + +-- | Account name. +biAccountName :: Lens' BillingInfo (Maybe Text) +biAccountName + = lens _biAccountName + (\ s a -> s{_biAccountName = a}) + +-- | Account id. +biAccountId :: Lens' BillingInfo (Maybe Int32) +biAccountId + = lens _biAccountId (\ s a -> s{_biAccountId = a}) . + mapping _Coerce + +-- | A list of adgroup IDs associated with this particular account. These IDs +-- may show up as part of a realtime bidding BidRequest, which indicates a +-- bid request for this account. +biBillingId :: Lens' BillingInfo [Text] +biBillingId + = lens _biBillingId (\ s a -> s{_biBillingId = a}) . + _Default + . _Coerce + +instance FromJSON BillingInfo where + parseJSON + = withObject "BillingInfo" + (\ o -> + BillingInfo <$> + (o .:? "kind" .!= "adexchangebuyer#billingInfo") <*> + (o .:? "accountName") + <*> (o .:? "accountId") + <*> (o .:? "billingId" .!= mempty)) + +instance ToJSON BillingInfo where + toJSON BillingInfo{..} + = object + (catMaybes + [Just ("kind" .= _biKind), + ("accountName" .=) <$> _biAccountName, + ("accountId" .=) <$> _biAccountId, + ("billingId" .=) <$> _biBillingId]) + +-- +-- /See:/ 'targetingValueDayPartTargeting' smart constructor. +data TargetingValueDayPartTargeting = TargetingValueDayPartTargeting + { _tvdptTimeZoneType :: !(Maybe Text) + , _tvdptDayParts :: !(Maybe [TargetingValueDayPartTargetingDayPart]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingValueDayPartTargeting' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tvdptTimeZoneType' +-- +-- * 'tvdptDayParts' +targetingValueDayPartTargeting + :: TargetingValueDayPartTargeting +targetingValueDayPartTargeting = + TargetingValueDayPartTargeting + { _tvdptTimeZoneType = Nothing + , _tvdptDayParts = Nothing + } + +tvdptTimeZoneType :: Lens' TargetingValueDayPartTargeting (Maybe Text) +tvdptTimeZoneType + = lens _tvdptTimeZoneType + (\ s a -> s{_tvdptTimeZoneType = a}) + +tvdptDayParts :: Lens' TargetingValueDayPartTargeting [TargetingValueDayPartTargetingDayPart] +tvdptDayParts + = lens _tvdptDayParts + (\ s a -> s{_tvdptDayParts = a}) + . _Default + . _Coerce + +instance FromJSON TargetingValueDayPartTargeting + where + parseJSON + = withObject "TargetingValueDayPartTargeting" + (\ o -> + TargetingValueDayPartTargeting <$> + (o .:? "timeZoneType") <*> + (o .:? "dayParts" .!= mempty)) + +instance ToJSON TargetingValueDayPartTargeting where + toJSON TargetingValueDayPartTargeting{..} + = object + (catMaybes + [("timeZoneType" .=) <$> _tvdptTimeZoneType, + ("dayParts" .=) <$> _tvdptDayParts]) + +-- +-- /See:/ 'sharedTargeting' smart constructor. +data SharedTargeting = SharedTargeting + { _stKey :: !(Maybe Text) + , _stExclusions :: !(Maybe [TargetingValue]) + , _stInclusions :: !(Maybe [TargetingValue]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'SharedTargeting' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'stKey' +-- +-- * 'stExclusions' +-- +-- * 'stInclusions' +sharedTargeting + :: SharedTargeting +sharedTargeting = + SharedTargeting + { _stKey = Nothing + , _stExclusions = Nothing + , _stInclusions = Nothing + } + +-- | The key representing the shared targeting criterion. +stKey :: Lens' SharedTargeting (Maybe Text) +stKey = lens _stKey (\ s a -> s{_stKey = a}) + +-- | The list of values to exclude from targeting. +stExclusions :: Lens' SharedTargeting [TargetingValue] +stExclusions + = lens _stExclusions (\ s a -> s{_stExclusions = a}) + . _Default + . _Coerce + +-- | The list of value to include as part of the targeting. +stInclusions :: Lens' SharedTargeting [TargetingValue] +stInclusions + = lens _stInclusions (\ s a -> s{_stInclusions = a}) + . _Default + . _Coerce + +instance FromJSON SharedTargeting where + parseJSON + = withObject "SharedTargeting" + (\ o -> + SharedTargeting <$> + (o .:? "key") <*> (o .:? "exclusions" .!= mempty) <*> + (o .:? "inclusions" .!= mempty)) + +instance ToJSON SharedTargeting where + toJSON SharedTargeting{..} + = object + (catMaybes + [("key" .=) <$> _stKey, + ("exclusions" .=) <$> _stExclusions, + ("inclusions" .=) <$> _stInclusions]) + +-- +-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor. +newtype ListClientAccessCapabilitiesRequest = ListClientAccessCapabilitiesRequest + { _lcacrSponsorAccountId :: Maybe (Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ListClientAccessCapabilitiesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lcacrSponsorAccountId' +listClientAccessCapabilitiesRequest + :: ListClientAccessCapabilitiesRequest +listClientAccessCapabilitiesRequest = + ListClientAccessCapabilitiesRequest + { _lcacrSponsorAccountId = Nothing + } + +lcacrSponsorAccountId :: Lens' ListClientAccessCapabilitiesRequest (Maybe Int64) +lcacrSponsorAccountId + = lens _lcacrSponsorAccountId + (\ s a -> s{_lcacrSponsorAccountId = a}) + . mapping _Coerce + +instance FromJSON ListClientAccessCapabilitiesRequest + where + parseJSON + = withObject "ListClientAccessCapabilitiesRequest" + (\ o -> + ListClientAccessCapabilitiesRequest <$> + (o .:? "sponsorAccountId")) + +instance ToJSON ListClientAccessCapabilitiesRequest + where + toJSON ListClientAccessCapabilitiesRequest{..} + = object + (catMaybes + [("sponsorAccountId" .=) <$> _lcacrSponsorAccountId]) + +-- +-- /See:/ 'inventorySegmentTargeting' smart constructor. +data InventorySegmentTargeting = InventorySegmentTargeting + { _istNegativeVideoDurationSegments :: !(Maybe [Textual Int64]) + , _istNegativeIcmBrands :: !(Maybe [Textual Int64]) + , _istNegativeKeyValues :: !(Maybe [RuleKeyValuePair]) + , _istPositiveAudienceSegments :: !(Maybe [Textual Int64]) + , _istPositiveXfpPlacements :: !(Maybe [Textual Int64]) + , _istNegativeXfpAdSlots :: !(Maybe [Textual Int64]) + , _istPositiveOperatingSystemVersions :: !(Maybe [Textual Int64]) + , _istPositiveSizes :: !(Maybe [Textual Int64]) + , _istPositiveDeviceCategories :: !(Maybe [Textual Int64]) + , _istPositiveLocations :: !(Maybe [Textual Int64]) + , _istNegativeAdSizes :: !(Maybe [AdSize]) + , _istPositiveOperatingSystems :: !(Maybe [Textual Int64]) + , _istPositiveSiteURLs :: !(Maybe [Text]) + , _istNegativeInventorySlots :: !(Maybe [Text]) + , _istNegativeVideoAdPositionSegments :: !(Maybe [Text]) + , _istPositiveAdTypeSegments :: !(Maybe [Text]) + , _istPositiveIcmInterests :: !(Maybe [Textual Int64]) + , _istPositiveMobileApps :: !(Maybe [Text]) + , _istPositiveKeyValues :: !(Maybe [RuleKeyValuePair]) + , _istPositiveIcmBrands :: !(Maybe [Textual Int64]) + , _istPositiveVideoDurationSegments :: !(Maybe [Textual Int64]) + , _istNegativeAudienceSegments :: !(Maybe [Textual Int64]) + , _istNegativeXfpPlacements :: !(Maybe [Textual Int64]) + , _istPositiveXfpAdSlots :: !(Maybe [Textual Int64]) + , _istNegativeOperatingSystemVersions :: !(Maybe [Textual Int64]) + , _istNegativeSizes :: !(Maybe [Textual Int64]) + , _istNegativeLocations :: !(Maybe [Textual Int64]) + , _istNegativeDeviceCategories :: !(Maybe [Textual Int64]) + , _istNegativeOperatingSystems :: !(Maybe [Textual Int64]) + , _istPositiveAdSizes :: !(Maybe [AdSize]) + , _istNegativeSiteURLs :: !(Maybe [Text]) + , _istNegativeAdTypeSegments :: !(Maybe [Text]) + , _istPositiveVideoAdPositionSegments :: !(Maybe [Text]) + , _istPositiveInventorySlots :: !(Maybe [Text]) + , _istNegativeMobileApps :: !(Maybe [Text]) + , _istNegativeIcmInterests :: !(Maybe [Textual Int64]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'InventorySegmentTargeting' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'istNegativeVideoDurationSegments' +-- +-- * 'istNegativeIcmBrands' +-- +-- * 'istNegativeKeyValues' +-- +-- * 'istPositiveAudienceSegments' +-- +-- * 'istPositiveXfpPlacements' +-- +-- * 'istNegativeXfpAdSlots' +-- +-- * 'istPositiveOperatingSystemVersions' +-- +-- * 'istPositiveSizes' +-- +-- * 'istPositiveDeviceCategories' +-- +-- * 'istPositiveLocations' +-- +-- * 'istNegativeAdSizes' +-- +-- * 'istPositiveOperatingSystems' +-- +-- * 'istPositiveSiteURLs' +-- +-- * 'istNegativeInventorySlots' +-- +-- * 'istNegativeVideoAdPositionSegments' +-- +-- * 'istPositiveAdTypeSegments' +-- +-- * 'istPositiveIcmInterests' +-- +-- * 'istPositiveMobileApps' +-- +-- * 'istPositiveKeyValues' +-- +-- * 'istPositiveIcmBrands' +-- +-- * 'istPositiveVideoDurationSegments' +-- +-- * 'istNegativeAudienceSegments' +-- +-- * 'istNegativeXfpPlacements' +-- +-- * 'istPositiveXfpAdSlots' +-- +-- * 'istNegativeOperatingSystemVersions' +-- +-- * 'istNegativeSizes' +-- +-- * 'istNegativeLocations' +-- +-- * 'istNegativeDeviceCategories' +-- +-- * 'istNegativeOperatingSystems' +-- +-- * 'istPositiveAdSizes' +-- +-- * 'istNegativeSiteURLs' +-- +-- * 'istNegativeAdTypeSegments' +-- +-- * 'istPositiveVideoAdPositionSegments' +-- +-- * 'istPositiveInventorySlots' +-- +-- * 'istNegativeMobileApps' +-- +-- * 'istNegativeIcmInterests' +inventorySegmentTargeting + :: InventorySegmentTargeting +inventorySegmentTargeting = + InventorySegmentTargeting + { _istNegativeVideoDurationSegments = Nothing + , _istNegativeIcmBrands = Nothing + , _istNegativeKeyValues = Nothing + , _istPositiveAudienceSegments = Nothing + , _istPositiveXfpPlacements = Nothing + , _istNegativeXfpAdSlots = Nothing + , _istPositiveOperatingSystemVersions = Nothing + , _istPositiveSizes = Nothing + , _istPositiveDeviceCategories = Nothing + , _istPositiveLocations = Nothing + , _istNegativeAdSizes = Nothing + , _istPositiveOperatingSystems = Nothing + , _istPositiveSiteURLs = Nothing + , _istNegativeInventorySlots = Nothing + , _istNegativeVideoAdPositionSegments = Nothing + , _istPositiveAdTypeSegments = Nothing + , _istPositiveIcmInterests = Nothing + , _istPositiveMobileApps = Nothing + , _istPositiveKeyValues = Nothing + , _istPositiveIcmBrands = Nothing + , _istPositiveVideoDurationSegments = Nothing + , _istNegativeAudienceSegments = Nothing + , _istNegativeXfpPlacements = Nothing + , _istPositiveXfpAdSlots = Nothing + , _istNegativeOperatingSystemVersions = Nothing + , _istNegativeSizes = Nothing + , _istNegativeLocations = Nothing + , _istNegativeDeviceCategories = Nothing + , _istNegativeOperatingSystems = Nothing + , _istPositiveAdSizes = Nothing + , _istNegativeSiteURLs = Nothing + , _istNegativeAdTypeSegments = Nothing + , _istPositiveVideoAdPositionSegments = Nothing + , _istPositiveInventorySlots = Nothing + , _istNegativeMobileApps = Nothing + , _istNegativeIcmInterests = Nothing + } + +istNegativeVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64] +istNegativeVideoDurationSegments + = lens _istNegativeVideoDurationSegments + (\ s a -> s{_istNegativeVideoDurationSegments = a}) + . _Default + . _Coerce + +istNegativeIcmBrands :: Lens' InventorySegmentTargeting [Int64] +istNegativeIcmBrands + = lens _istNegativeIcmBrands + (\ s a -> s{_istNegativeIcmBrands = a}) + . _Default + . _Coerce + +istNegativeKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair] +istNegativeKeyValues + = lens _istNegativeKeyValues + (\ s a -> s{_istNegativeKeyValues = a}) + . _Default + . _Coerce + +istPositiveAudienceSegments :: Lens' InventorySegmentTargeting [Int64] +istPositiveAudienceSegments + = lens _istPositiveAudienceSegments + (\ s a -> s{_istPositiveAudienceSegments = a}) + . _Default + . _Coerce + +istPositiveXfpPlacements :: Lens' InventorySegmentTargeting [Int64] +istPositiveXfpPlacements + = lens _istPositiveXfpPlacements + (\ s a -> s{_istPositiveXfpPlacements = a}) + . _Default + . _Coerce + +istNegativeXfpAdSlots :: Lens' InventorySegmentTargeting [Int64] +istNegativeXfpAdSlots + = lens _istNegativeXfpAdSlots + (\ s a -> s{_istNegativeXfpAdSlots = a}) + . _Default + . _Coerce + +istPositiveOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64] +istPositiveOperatingSystemVersions + = lens _istPositiveOperatingSystemVersions + (\ s a -> s{_istPositiveOperatingSystemVersions = a}) + . _Default + . _Coerce + +istPositiveSizes :: Lens' InventorySegmentTargeting [Int64] +istPositiveSizes + = lens _istPositiveSizes + (\ s a -> s{_istPositiveSizes = a}) + . _Default + . _Coerce + +istPositiveDeviceCategories :: Lens' InventorySegmentTargeting [Int64] +istPositiveDeviceCategories + = lens _istPositiveDeviceCategories + (\ s a -> s{_istPositiveDeviceCategories = a}) + . _Default + . _Coerce + +istPositiveLocations :: Lens' InventorySegmentTargeting [Int64] +istPositiveLocations + = lens _istPositiveLocations + (\ s a -> s{_istPositiveLocations = a}) + . _Default + . _Coerce + +istNegativeAdSizes :: Lens' InventorySegmentTargeting [AdSize] +istNegativeAdSizes + = lens _istNegativeAdSizes + (\ s a -> s{_istNegativeAdSizes = a}) + . _Default + . _Coerce + +istPositiveOperatingSystems :: Lens' InventorySegmentTargeting [Int64] +istPositiveOperatingSystems + = lens _istPositiveOperatingSystems + (\ s a -> s{_istPositiveOperatingSystems = a}) + . _Default + . _Coerce + +istPositiveSiteURLs :: Lens' InventorySegmentTargeting [Text] +istPositiveSiteURLs + = lens _istPositiveSiteURLs + (\ s a -> s{_istPositiveSiteURLs = a}) + . _Default + . _Coerce + +istNegativeInventorySlots :: Lens' InventorySegmentTargeting [Text] +istNegativeInventorySlots + = lens _istNegativeInventorySlots + (\ s a -> s{_istNegativeInventorySlots = a}) + . _Default + . _Coerce + +istNegativeVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text] +istNegativeVideoAdPositionSegments + = lens _istNegativeVideoAdPositionSegments + (\ s a -> s{_istNegativeVideoAdPositionSegments = a}) + . _Default + . _Coerce + +istPositiveAdTypeSegments :: Lens' InventorySegmentTargeting [Text] +istPositiveAdTypeSegments + = lens _istPositiveAdTypeSegments + (\ s a -> s{_istPositiveAdTypeSegments = a}) + . _Default + . _Coerce + +istPositiveIcmInterests :: Lens' InventorySegmentTargeting [Int64] +istPositiveIcmInterests + = lens _istPositiveIcmInterests + (\ s a -> s{_istPositiveIcmInterests = a}) + . _Default + . _Coerce + +istPositiveMobileApps :: Lens' InventorySegmentTargeting [Text] +istPositiveMobileApps + = lens _istPositiveMobileApps + (\ s a -> s{_istPositiveMobileApps = a}) + . _Default + . _Coerce + +istPositiveKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair] +istPositiveKeyValues + = lens _istPositiveKeyValues + (\ s a -> s{_istPositiveKeyValues = a}) + . _Default + . _Coerce + +istPositiveIcmBrands :: Lens' InventorySegmentTargeting [Int64] +istPositiveIcmBrands + = lens _istPositiveIcmBrands + (\ s a -> s{_istPositiveIcmBrands = a}) + . _Default + . _Coerce + +istPositiveVideoDurationSegments :: Lens' InventorySegmentTargeting [Int64] +istPositiveVideoDurationSegments + = lens _istPositiveVideoDurationSegments + (\ s a -> s{_istPositiveVideoDurationSegments = a}) + . _Default + . _Coerce + +istNegativeAudienceSegments :: Lens' InventorySegmentTargeting [Int64] +istNegativeAudienceSegments + = lens _istNegativeAudienceSegments + (\ s a -> s{_istNegativeAudienceSegments = a}) + . _Default + . _Coerce + +istNegativeXfpPlacements :: Lens' InventorySegmentTargeting [Int64] +istNegativeXfpPlacements + = lens _istNegativeXfpPlacements + (\ s a -> s{_istNegativeXfpPlacements = a}) + . _Default + . _Coerce + +istPositiveXfpAdSlots :: Lens' InventorySegmentTargeting [Int64] +istPositiveXfpAdSlots + = lens _istPositiveXfpAdSlots + (\ s a -> s{_istPositiveXfpAdSlots = a}) + . _Default + . _Coerce + +istNegativeOperatingSystemVersions :: Lens' InventorySegmentTargeting [Int64] +istNegativeOperatingSystemVersions + = lens _istNegativeOperatingSystemVersions + (\ s a -> s{_istNegativeOperatingSystemVersions = a}) + . _Default + . _Coerce + +istNegativeSizes :: Lens' InventorySegmentTargeting [Int64] +istNegativeSizes + = lens _istNegativeSizes + (\ s a -> s{_istNegativeSizes = a}) + . _Default + . _Coerce + +istNegativeLocations :: Lens' InventorySegmentTargeting [Int64] +istNegativeLocations + = lens _istNegativeLocations + (\ s a -> s{_istNegativeLocations = a}) + . _Default + . _Coerce + +istNegativeDeviceCategories :: Lens' InventorySegmentTargeting [Int64] +istNegativeDeviceCategories + = lens _istNegativeDeviceCategories + (\ s a -> s{_istNegativeDeviceCategories = a}) + . _Default + . _Coerce + +istNegativeOperatingSystems :: Lens' InventorySegmentTargeting [Int64] +istNegativeOperatingSystems + = lens _istNegativeOperatingSystems + (\ s a -> s{_istNegativeOperatingSystems = a}) + . _Default + . _Coerce + +istPositiveAdSizes :: Lens' InventorySegmentTargeting [AdSize] +istPositiveAdSizes + = lens _istPositiveAdSizes + (\ s a -> s{_istPositiveAdSizes = a}) + . _Default + . _Coerce + +istNegativeSiteURLs :: Lens' InventorySegmentTargeting [Text] +istNegativeSiteURLs + = lens _istNegativeSiteURLs + (\ s a -> s{_istNegativeSiteURLs = a}) + . _Default + . _Coerce + +istNegativeAdTypeSegments :: Lens' InventorySegmentTargeting [Text] +istNegativeAdTypeSegments + = lens _istNegativeAdTypeSegments + (\ s a -> s{_istNegativeAdTypeSegments = a}) + . _Default + . _Coerce + +istPositiveVideoAdPositionSegments :: Lens' InventorySegmentTargeting [Text] +istPositiveVideoAdPositionSegments + = lens _istPositiveVideoAdPositionSegments + (\ s a -> s{_istPositiveVideoAdPositionSegments = a}) + . _Default + . _Coerce + +istPositiveInventorySlots :: Lens' InventorySegmentTargeting [Text] +istPositiveInventorySlots + = lens _istPositiveInventorySlots + (\ s a -> s{_istPositiveInventorySlots = a}) + . _Default + . _Coerce + +istNegativeMobileApps :: Lens' InventorySegmentTargeting [Text] +istNegativeMobileApps + = lens _istNegativeMobileApps + (\ s a -> s{_istNegativeMobileApps = a}) + . _Default + . _Coerce + +istNegativeIcmInterests :: Lens' InventorySegmentTargeting [Int64] +istNegativeIcmInterests + = lens _istNegativeIcmInterests + (\ s a -> s{_istNegativeIcmInterests = a}) + . _Default + . _Coerce + +instance FromJSON InventorySegmentTargeting where + parseJSON + = withObject "InventorySegmentTargeting" + (\ o -> + InventorySegmentTargeting <$> + (o .:? "negativeVideoDurationSegments" .!= mempty) + <*> (o .:? "negativeIcmBrands" .!= mempty) + <*> (o .:? "negativeKeyValues" .!= mempty) + <*> (o .:? "positiveAudienceSegments" .!= mempty) + <*> (o .:? "positiveXfpPlacements" .!= mempty) + <*> (o .:? "negativeXfpAdSlots" .!= mempty) + <*> + (o .:? "positiveOperatingSystemVersions" .!= mempty) + <*> (o .:? "positiveSizes" .!= mempty) + <*> (o .:? "positiveDeviceCategories" .!= mempty) + <*> (o .:? "positiveLocations" .!= mempty) + <*> (o .:? "negativeAdSizes" .!= mempty) + <*> (o .:? "positiveOperatingSystems" .!= mempty) + <*> (o .:? "positiveSiteUrls" .!= mempty) + <*> (o .:? "negativeInventorySlots" .!= mempty) + <*> + (o .:? "negativeVideoAdPositionSegments" .!= mempty) + <*> (o .:? "positiveAdTypeSegments" .!= mempty) + <*> (o .:? "positiveIcmInterests" .!= mempty) + <*> (o .:? "positiveMobileApps" .!= mempty) + <*> (o .:? "positiveKeyValues" .!= mempty) + <*> (o .:? "positiveIcmBrands" .!= mempty) + <*> + (o .:? "positiveVideoDurationSegments" .!= mempty) + <*> (o .:? "negativeAudienceSegments" .!= mempty) + <*> (o .:? "negativeXfpPlacements" .!= mempty) + <*> (o .:? "positiveXfpAdSlots" .!= mempty) + <*> + (o .:? "negativeOperatingSystemVersions" .!= mempty) + <*> (o .:? "negativeSizes" .!= mempty) + <*> (o .:? "negativeLocations" .!= mempty) + <*> (o .:? "negativeDeviceCategories" .!= mempty) + <*> (o .:? "negativeOperatingSystems" .!= mempty) + <*> (o .:? "positiveAdSizes" .!= mempty) + <*> (o .:? "negativeSiteUrls" .!= mempty) + <*> (o .:? "negativeAdTypeSegments" .!= mempty) + <*> + (o .:? "positiveVideoAdPositionSegments" .!= mempty) + <*> (o .:? "positiveInventorySlots" .!= mempty) + <*> (o .:? "negativeMobileApps" .!= mempty) + <*> (o .:? "negativeIcmInterests" .!= mempty)) + +instance ToJSON InventorySegmentTargeting where + toJSON InventorySegmentTargeting{..} + = object + (catMaybes + [("negativeVideoDurationSegments" .=) <$> + _istNegativeVideoDurationSegments, + ("negativeIcmBrands" .=) <$> _istNegativeIcmBrands, + ("negativeKeyValues" .=) <$> _istNegativeKeyValues, + ("positiveAudienceSegments" .=) <$> + _istPositiveAudienceSegments, + ("positiveXfpPlacements" .=) <$> + _istPositiveXfpPlacements, + ("negativeXfpAdSlots" .=) <$> _istNegativeXfpAdSlots, + ("positiveOperatingSystemVersions" .=) <$> + _istPositiveOperatingSystemVersions, + ("positiveSizes" .=) <$> _istPositiveSizes, + ("positiveDeviceCategories" .=) <$> + _istPositiveDeviceCategories, + ("positiveLocations" .=) <$> _istPositiveLocations, + ("negativeAdSizes" .=) <$> _istNegativeAdSizes, + ("positiveOperatingSystems" .=) <$> + _istPositiveOperatingSystems, + ("positiveSiteUrls" .=) <$> _istPositiveSiteURLs, + ("negativeInventorySlots" .=) <$> + _istNegativeInventorySlots, + ("negativeVideoAdPositionSegments" .=) <$> + _istNegativeVideoAdPositionSegments, + ("positiveAdTypeSegments" .=) <$> + _istPositiveAdTypeSegments, + ("positiveIcmInterests" .=) <$> + _istPositiveIcmInterests, + ("positiveMobileApps" .=) <$> _istPositiveMobileApps, + ("positiveKeyValues" .=) <$> _istPositiveKeyValues, + ("positiveIcmBrands" .=) <$> _istPositiveIcmBrands, + ("positiveVideoDurationSegments" .=) <$> + _istPositiveVideoDurationSegments, + ("negativeAudienceSegments" .=) <$> + _istNegativeAudienceSegments, + ("negativeXfpPlacements" .=) <$> + _istNegativeXfpPlacements, + ("positiveXfpAdSlots" .=) <$> _istPositiveXfpAdSlots, + ("negativeOperatingSystemVersions" .=) <$> + _istNegativeOperatingSystemVersions, + ("negativeSizes" .=) <$> _istNegativeSizes, + ("negativeLocations" .=) <$> _istNegativeLocations, + ("negativeDeviceCategories" .=) <$> + _istNegativeDeviceCategories, + ("negativeOperatingSystems" .=) <$> + _istNegativeOperatingSystems, + ("positiveAdSizes" .=) <$> _istPositiveAdSizes, + ("negativeSiteUrls" .=) <$> _istNegativeSiteURLs, + ("negativeAdTypeSegments" .=) <$> + _istNegativeAdTypeSegments, + ("positiveVideoAdPositionSegments" .=) <$> + _istPositiveVideoAdPositionSegments, + ("positiveInventorySlots" .=) <$> + _istPositiveInventorySlots, + ("negativeMobileApps" .=) <$> _istNegativeMobileApps, + ("negativeIcmInterests" .=) <$> + _istNegativeIcmInterests]) + +-- | A large image. +-- +-- /See:/ 'creativeNATiveAdImage' smart constructor. +data CreativeNATiveAdImage = CreativeNATiveAdImage + { _cnataiHeight :: !(Maybe (Textual Int32)) + , _cnataiURL :: !(Maybe Text) + , _cnataiWidth :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeNATiveAdImage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cnataiHeight' +-- +-- * 'cnataiURL' +-- +-- * 'cnataiWidth' +creativeNATiveAdImage + :: CreativeNATiveAdImage +creativeNATiveAdImage = + CreativeNATiveAdImage + { _cnataiHeight = Nothing + , _cnataiURL = Nothing + , _cnataiWidth = Nothing + } + +cnataiHeight :: Lens' CreativeNATiveAdImage (Maybe Int32) +cnataiHeight + = lens _cnataiHeight (\ s a -> s{_cnataiHeight = a}) + . mapping _Coerce + +cnataiURL :: Lens' CreativeNATiveAdImage (Maybe Text) +cnataiURL + = lens _cnataiURL (\ s a -> s{_cnataiURL = a}) + +cnataiWidth :: Lens' CreativeNATiveAdImage (Maybe Int32) +cnataiWidth + = lens _cnataiWidth (\ s a -> s{_cnataiWidth = a}) . + mapping _Coerce + +instance FromJSON CreativeNATiveAdImage where + parseJSON + = withObject "CreativeNATiveAdImage" + (\ o -> + CreativeNATiveAdImage <$> + (o .:? "height") <*> (o .:? "url") <*> + (o .:? "width")) + +instance ToJSON CreativeNATiveAdImage where + toJSON CreativeNATiveAdImage{..} + = object + (catMaybes + [("height" .=) <$> _cnataiHeight, + ("url" .=) <$> _cnataiURL, + ("width" .=) <$> _cnataiWidth]) + +-- +-- /See:/ 'webPropertyDTO' smart constructor. +data WebPropertyDTO = WebPropertyDTO + { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool) + , _wpdtoSyndicationProduct :: !(Maybe Text) + , _wpdtoName :: !(Maybe Text) + , _wpdtoPropertyCode :: !(Maybe Text) + , _wpdtoId :: !(Maybe (Textual Int32)) + , _wpdtoSiteURLs :: !(Maybe [Text]) + , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'WebPropertyDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'wpdtoEnabledForPreferredDeals' +-- +-- * 'wpdtoSyndicationProduct' +-- +-- * 'wpdtoName' +-- +-- * 'wpdtoPropertyCode' +-- +-- * 'wpdtoId' +-- +-- * 'wpdtoSiteURLs' +-- +-- * 'wpdtoAllowInterestTargetedAds' +webPropertyDTO + :: WebPropertyDTO +webPropertyDTO = + WebPropertyDTO + { _wpdtoEnabledForPreferredDeals = Nothing + , _wpdtoSyndicationProduct = Nothing + , _wpdtoName = Nothing + , _wpdtoPropertyCode = Nothing + , _wpdtoId = Nothing + , _wpdtoSiteURLs = Nothing + , _wpdtoAllowInterestTargetedAds = Nothing + } + +wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool) +wpdtoEnabledForPreferredDeals + = lens _wpdtoEnabledForPreferredDeals + (\ s a -> s{_wpdtoEnabledForPreferredDeals = a}) + +wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text) +wpdtoSyndicationProduct + = lens _wpdtoSyndicationProduct + (\ s a -> s{_wpdtoSyndicationProduct = a}) + +wpdtoName :: Lens' WebPropertyDTO (Maybe Text) +wpdtoName + = lens _wpdtoName (\ s a -> s{_wpdtoName = a}) + +wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text) +wpdtoPropertyCode + = lens _wpdtoPropertyCode + (\ s a -> s{_wpdtoPropertyCode = a}) + +wpdtoId :: Lens' WebPropertyDTO (Maybe Int32) +wpdtoId + = lens _wpdtoId (\ s a -> s{_wpdtoId = a}) . + mapping _Coerce + +wpdtoSiteURLs :: Lens' WebPropertyDTO [Text] +wpdtoSiteURLs + = lens _wpdtoSiteURLs + (\ s a -> s{_wpdtoSiteURLs = a}) + . _Default + . _Coerce + +wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool) +wpdtoAllowInterestTargetedAds + = lens _wpdtoAllowInterestTargetedAds + (\ s a -> s{_wpdtoAllowInterestTargetedAds = a}) + +instance FromJSON WebPropertyDTO where + parseJSON + = withObject "WebPropertyDTO" + (\ o -> + WebPropertyDTO <$> + (o .:? "enabledForPreferredDeals") <*> + (o .:? "syndicationProduct") + <*> (o .:? "name") + <*> (o .:? "propertyCode") + <*> (o .:? "id") + <*> (o .:? "siteUrls" .!= mempty) + <*> (o .:? "allowInterestTargetedAds")) + +instance ToJSON WebPropertyDTO where + toJSON WebPropertyDTO{..} + = object + (catMaybes + [("enabledForPreferredDeals" .=) <$> + _wpdtoEnabledForPreferredDeals, + ("syndicationProduct" .=) <$> + _wpdtoSyndicationProduct, + ("name" .=) <$> _wpdtoName, + ("propertyCode" .=) <$> _wpdtoPropertyCode, + ("id" .=) <$> _wpdtoId, + ("siteUrls" .=) <$> _wpdtoSiteURLs, + ("allowInterestTargetedAds" .=) <$> + _wpdtoAllowInterestTargetedAds]) + +-- +-- /See:/ 'listOffersRequest' smart constructor. +newtype ListOffersRequest = ListOffersRequest + { _lorSinceTimestampMillis :: Maybe (Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ListOffersRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lorSinceTimestampMillis' +listOffersRequest + :: ListOffersRequest +listOffersRequest = + ListOffersRequest + { _lorSinceTimestampMillis = Nothing + } + +lorSinceTimestampMillis :: Lens' ListOffersRequest (Maybe Int64) +lorSinceTimestampMillis + = lens _lorSinceTimestampMillis + (\ s a -> s{_lorSinceTimestampMillis = a}) + . mapping _Coerce + +instance FromJSON ListOffersRequest where + parseJSON + = withObject "ListOffersRequest" + (\ o -> + ListOffersRequest <$> (o .:? "sinceTimestampMillis")) + +instance ToJSON ListOffersRequest where + toJSON ListOffersRequest{..} + = object + (catMaybes + [("sinceTimestampMillis" .=) <$> + _lorSinceTimestampMillis]) + +-- +-- /See:/ 'clientAccessCapabilities' smart constructor. +data ClientAccessCapabilities = ClientAccessCapabilities + { _cacClientAccountId :: !(Maybe (Textual Int64)) + , _cacCapabilities :: !(Maybe [Textual Int32]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessCapabilities' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cacClientAccountId' +-- +-- * 'cacCapabilities' +clientAccessCapabilities + :: ClientAccessCapabilities +clientAccessCapabilities = + ClientAccessCapabilities + { _cacClientAccountId = Nothing + , _cacCapabilities = Nothing + } + +cacClientAccountId :: Lens' ClientAccessCapabilities (Maybe Int64) +cacClientAccountId + = lens _cacClientAccountId + (\ s a -> s{_cacClientAccountId = a}) + . mapping _Coerce + +cacCapabilities :: Lens' ClientAccessCapabilities [Int32] +cacCapabilities + = lens _cacCapabilities + (\ s a -> s{_cacCapabilities = a}) + . _Default + . _Coerce + +instance FromJSON ClientAccessCapabilities where + parseJSON + = withObject "ClientAccessCapabilities" + (\ o -> + ClientAccessCapabilities <$> + (o .:? "clientAccountId") <*> + (o .:? "capabilities" .!= mempty)) + +instance ToJSON ClientAccessCapabilities where + toJSON ClientAccessCapabilities{..} + = object + (catMaybes + [("clientAccountId" .=) <$> _cacClientAccountId, + ("capabilities" .=) <$> _cacCapabilities]) + +-- +-- /See:/ 'creativeServingRestrictionsItem' smart constructor. +data CreativeServingRestrictionsItem = CreativeServingRestrictionsItem + { _csriContexts :: !(Maybe [CreativeServingRestrictionsItemContextsItem]) + , _csriReason :: !(Maybe Text) + , _csriDisApprovalReasons :: !(Maybe [CreativeServingRestrictionsItemDisApprovalReasonsItem]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeServingRestrictionsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csriContexts' +-- +-- * 'csriReason' +-- +-- * 'csriDisApprovalReasons' +creativeServingRestrictionsItem + :: CreativeServingRestrictionsItem +creativeServingRestrictionsItem = + CreativeServingRestrictionsItem + { _csriContexts = Nothing + , _csriReason = Nothing + , _csriDisApprovalReasons = Nothing + } + +-- | All known contexts\/restrictions. +csriContexts :: Lens' CreativeServingRestrictionsItem [CreativeServingRestrictionsItemContextsItem] +csriContexts + = lens _csriContexts (\ s a -> s{_csriContexts = a}) + . _Default + . _Coerce + +-- | Why the creative is ineligible to serve in this context (e.g., it has +-- been explicitly disapproved or is pending review). +csriReason :: Lens' CreativeServingRestrictionsItem (Maybe Text) +csriReason + = lens _csriReason (\ s a -> s{_csriReason = a}) + +-- | The reasons for disapproval within this restriction, if any. Note that +-- not all disapproval reasons may be categorized, so it is possible for +-- the creative to have a status of DISAPPROVED or CONDITIONALLY_APPROVED +-- with an empty list for disapproval_reasons. In this case, please reach +-- out to your TAM to help debug the issue. +csriDisApprovalReasons :: Lens' CreativeServingRestrictionsItem [CreativeServingRestrictionsItemDisApprovalReasonsItem] +csriDisApprovalReasons + = lens _csriDisApprovalReasons + (\ s a -> s{_csriDisApprovalReasons = a}) + . _Default + . _Coerce + +instance FromJSON CreativeServingRestrictionsItem + where + parseJSON + = withObject "CreativeServingRestrictionsItem" + (\ o -> + CreativeServingRestrictionsItem <$> + (o .:? "contexts" .!= mempty) <*> (o .:? "reason") + <*> (o .:? "disapprovalReasons" .!= mempty)) + +instance ToJSON CreativeServingRestrictionsItem where + toJSON CreativeServingRestrictionsItem{..} + = object + (catMaybes + [("contexts" .=) <$> _csriContexts, + ("reason" .=) <$> _csriReason, + ("disapprovalReasons" .=) <$> + _csriDisApprovalReasons]) + +-- +-- /See:/ 'deleteOrderDealsResponse' smart constructor. +data DeleteOrderDealsResponse = DeleteOrderDealsResponse + { _dDeals :: !(Maybe [MarketplaceDeal]) + , _dOrderRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DeleteOrderDealsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dDeals' +-- +-- * 'dOrderRevisionNumber' +deleteOrderDealsResponse + :: DeleteOrderDealsResponse +deleteOrderDealsResponse = + DeleteOrderDealsResponse + { _dDeals = Nothing + , _dOrderRevisionNumber = Nothing + } + +-- | List of deals deleted (in the same order as passed in the request) +dDeals :: Lens' DeleteOrderDealsResponse [MarketplaceDeal] +dDeals + = lens _dDeals (\ s a -> s{_dDeals = a}) . _Default . + _Coerce + +-- | The updated revision number for the order. +dOrderRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64) +dOrderRevisionNumber + = lens _dOrderRevisionNumber + (\ s a -> s{_dOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON DeleteOrderDealsResponse where + parseJSON + = withObject "DeleteOrderDealsResponse" + (\ o -> + DeleteOrderDealsResponse <$> + (o .:? "deals" .!= mempty) <*> + (o .:? "orderRevisionNumber")) + +instance ToJSON DeleteOrderDealsResponse where + toJSON DeleteOrderDealsResponse{..} + = object + (catMaybes + [("deals" .=) <$> _dDeals, + ("orderRevisionNumber" .=) <$> + _dOrderRevisionNumber]) + +-- +-- /See:/ 'pretargetingConfigPlacementsItem' smart constructor. +data PretargetingConfigPlacementsItem = PretargetingConfigPlacementsItem + { _pcpiToken :: !(Maybe Text) + , _pcpiType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigPlacementsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcpiToken' +-- +-- * 'pcpiType' +pretargetingConfigPlacementsItem + :: PretargetingConfigPlacementsItem +pretargetingConfigPlacementsItem = + PretargetingConfigPlacementsItem + { _pcpiToken = Nothing + , _pcpiType = Nothing + } + +-- | The value of the placement. Interpretation depends on the placement +-- type, e.g. URL for a site placement, channel name for a channel +-- placement, app id for a mobile app placement. +pcpiToken :: Lens' PretargetingConfigPlacementsItem (Maybe Text) +pcpiToken + = lens _pcpiToken (\ s a -> s{_pcpiToken = a}) + +-- | The type of the placement. +pcpiType :: Lens' PretargetingConfigPlacementsItem (Maybe Text) +pcpiType = lens _pcpiType (\ s a -> s{_pcpiType = a}) + +instance FromJSON PretargetingConfigPlacementsItem + where + parseJSON + = withObject "PretargetingConfigPlacementsItem" + (\ o -> + PretargetingConfigPlacementsItem <$> + (o .:? "token") <*> (o .:? "type")) + +instance ToJSON PretargetingConfigPlacementsItem + where + toJSON PretargetingConfigPlacementsItem{..} + = object + (catMaybes + [("token" .=) <$> _pcpiToken, + ("type" .=) <$> _pcpiType]) + +-- | An order can contain multiple deals. A deal contains the terms and +-- targeting information that is used for serving. +-- +-- /See:/ 'marketplaceDeal' smart constructor. +data MarketplaceDeal = MarketplaceDeal + { _mdExternalDealId :: !(Maybe Text) + , _mdBuyerPrivateData :: !(Maybe PrivateData) + , _mdWebPropertyCode :: !(Maybe Text) + , _mdCreationTimeMs :: !(Maybe (Textual Int64)) + , _mdTerms :: !(Maybe DealTerms) + , _mdOfferRevisionNumber :: !(Maybe (Textual Int64)) + , _mdLastUpdateTimeMs :: !(Maybe (Textual Int64)) + , _mdKind :: !Text + , _mdDeliveryControl :: !(Maybe DeliveryControl) + , _mdFlightStartTimeMs :: !(Maybe (Textual Int64)) + , _mdSharedTargetings :: !(Maybe [SharedTargeting]) + , _mdDealId :: !(Maybe Text) + , _mdInventoryDescription :: !(Maybe Text) + , _mdSyndicationProduct :: !(Maybe Text) + , _mdFlightEndTimeMs :: !(Maybe (Textual Int64)) + , _mdName :: !(Maybe Text) + , _mdSellerContacts :: !(Maybe [ContactInformation]) + , _mdOfferId :: !(Maybe Text) + , _mdOrderId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mdExternalDealId' +-- +-- * 'mdBuyerPrivateData' +-- +-- * 'mdWebPropertyCode' +-- +-- * 'mdCreationTimeMs' +-- +-- * 'mdTerms' +-- +-- * 'mdOfferRevisionNumber' +-- +-- * 'mdLastUpdateTimeMs' +-- +-- * 'mdKind' +-- +-- * 'mdDeliveryControl' +-- +-- * 'mdFlightStartTimeMs' +-- +-- * 'mdSharedTargetings' +-- +-- * 'mdDealId' +-- +-- * 'mdInventoryDescription' +-- +-- * 'mdSyndicationProduct' +-- +-- * 'mdFlightEndTimeMs' +-- +-- * 'mdName' +-- +-- * 'mdSellerContacts' +-- +-- * 'mdOfferId' +-- +-- * 'mdOrderId' +marketplaceDeal + :: MarketplaceDeal +marketplaceDeal = + MarketplaceDeal + { _mdExternalDealId = Nothing + , _mdBuyerPrivateData = Nothing + , _mdWebPropertyCode = Nothing + , _mdCreationTimeMs = Nothing + , _mdTerms = Nothing + , _mdOfferRevisionNumber = Nothing + , _mdLastUpdateTimeMs = Nothing + , _mdKind = "adexchangebuyer#marketplaceDeal" + , _mdDeliveryControl = Nothing + , _mdFlightStartTimeMs = Nothing + , _mdSharedTargetings = Nothing + , _mdDealId = Nothing + , _mdInventoryDescription = Nothing + , _mdSyndicationProduct = Nothing + , _mdFlightEndTimeMs = Nothing + , _mdName = Nothing + , _mdSellerContacts = Nothing + , _mdOfferId = Nothing + , _mdOrderId = Nothing + } + +-- | The external deal id assigned to this deal once the deal is finalized. +-- This is the deal-id that shows up in serving\/reporting etc. (readonly) +mdExternalDealId :: Lens' MarketplaceDeal (Maybe Text) +mdExternalDealId + = lens _mdExternalDealId + (\ s a -> s{_mdExternalDealId = a}) + +-- | Buyer private data (hidden from seller). +mdBuyerPrivateData :: Lens' MarketplaceDeal (Maybe PrivateData) +mdBuyerPrivateData + = lens _mdBuyerPrivateData + (\ s a -> s{_mdBuyerPrivateData = a}) + +mdWebPropertyCode :: Lens' MarketplaceDeal (Maybe Text) +mdWebPropertyCode + = lens _mdWebPropertyCode + (\ s a -> s{_mdWebPropertyCode = a}) + +-- | The time (ms since epoch) of the deal creation. (readonly) +mdCreationTimeMs :: Lens' MarketplaceDeal (Maybe Int64) +mdCreationTimeMs + = lens _mdCreationTimeMs + (\ s a -> s{_mdCreationTimeMs = a}) + . mapping _Coerce + +-- | The negotiable terms of the deal. (updatable) +mdTerms :: Lens' MarketplaceDeal (Maybe DealTerms) +mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a}) + +-- | The revision number of the offer that the deal was created from +-- (readonly, except on create) +mdOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64) +mdOfferRevisionNumber + = lens _mdOfferRevisionNumber + (\ s a -> s{_mdOfferRevisionNumber = a}) + . mapping _Coerce + +-- | The time (ms since epoch) when the deal was last updated. (readonly) +mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64) +mdLastUpdateTimeMs + = lens _mdLastUpdateTimeMs + (\ s a -> s{_mdLastUpdateTimeMs = a}) + . mapping _Coerce + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#marketplaceDeal\". +mdKind :: Lens' MarketplaceDeal Text +mdKind = lens _mdKind (\ s a -> s{_mdKind = a}) + +-- | The set of fields around delivery control that are interesting for a +-- buyer to see but are non-negotiable. These are set by the publisher. +-- This message is assigned an id of 100 since some day we would want to +-- model this as a protobuf extension. +mdDeliveryControl :: Lens' MarketplaceDeal (Maybe DeliveryControl) +mdDeliveryControl + = lens _mdDeliveryControl + (\ s a -> s{_mdDeliveryControl = a}) + +-- | Proposed flight start time of the deal (ms since epoch) This will +-- generally be stored in a granularity of a second. (updatable) +mdFlightStartTimeMs :: Lens' MarketplaceDeal (Maybe Int64) +mdFlightStartTimeMs + = lens _mdFlightStartTimeMs + (\ s a -> s{_mdFlightStartTimeMs = a}) + . mapping _Coerce + +-- | The shared targeting visible to buyers and sellers. (updatable) +mdSharedTargetings :: Lens' MarketplaceDeal [SharedTargeting] +mdSharedTargetings + = lens _mdSharedTargetings + (\ s a -> s{_mdSharedTargetings = a}) + . _Default + . _Coerce + +-- | A unique deal=id for the deal (readonly). +mdDealId :: Lens' MarketplaceDeal (Maybe Text) +mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a}) + +-- | Description for the deal terms. (updatable) +mdInventoryDescription :: Lens' MarketplaceDeal (Maybe Text) +mdInventoryDescription + = lens _mdInventoryDescription + (\ s a -> s{_mdInventoryDescription = a}) + +-- | The syndication product associated with the deal. (readonly, except on +-- create) +mdSyndicationProduct :: Lens' MarketplaceDeal (Maybe Text) +mdSyndicationProduct + = lens _mdSyndicationProduct + (\ s a -> s{_mdSyndicationProduct = a}) + +-- | Proposed flight end time of the deal (ms since epoch) This will +-- generally be stored in a granularity of a second. (updatable) +mdFlightEndTimeMs :: Lens' MarketplaceDeal (Maybe Int64) +mdFlightEndTimeMs + = lens _mdFlightEndTimeMs + (\ s a -> s{_mdFlightEndTimeMs = a}) + . mapping _Coerce + +-- | The name of the deal. (updatable) +mdName :: Lens' MarketplaceDeal (Maybe Text) +mdName = lens _mdName (\ s a -> s{_mdName = a}) + +-- | Optional Seller contact information for the deal (buyer-readonly) +mdSellerContacts :: Lens' MarketplaceDeal [ContactInformation] +mdSellerContacts + = lens _mdSellerContacts + (\ s a -> s{_mdSellerContacts = a}) + . _Default + . _Coerce + +-- | The offer-id from which this deal was created. (readonly, except on +-- create) +mdOfferId :: Lens' MarketplaceDeal (Maybe Text) +mdOfferId + = lens _mdOfferId (\ s a -> s{_mdOfferId = a}) + +mdOrderId :: Lens' MarketplaceDeal (Maybe Text) +mdOrderId + = lens _mdOrderId (\ s a -> s{_mdOrderId = a}) + +instance FromJSON MarketplaceDeal where + parseJSON + = withObject "MarketplaceDeal" + (\ o -> + MarketplaceDeal <$> + (o .:? "externalDealId") <*> + (o .:? "buyerPrivateData") + <*> (o .:? "webPropertyCode") + <*> (o .:? "creationTimeMs") + <*> (o .:? "terms") + <*> (o .:? "offerRevisionNumber") + <*> (o .:? "lastUpdateTimeMs") + <*> + (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal") + <*> (o .:? "deliveryControl") + <*> (o .:? "flightStartTimeMs") + <*> (o .:? "sharedTargetings" .!= mempty) + <*> (o .:? "dealId") + <*> (o .:? "inventoryDescription") + <*> (o .:? "syndicationProduct") + <*> (o .:? "flightEndTimeMs") + <*> (o .:? "name") + <*> (o .:? "sellerContacts" .!= mempty) + <*> (o .:? "offerId") + <*> (o .:? "orderId")) + +instance ToJSON MarketplaceDeal where + toJSON MarketplaceDeal{..} + = object + (catMaybes + [("externalDealId" .=) <$> _mdExternalDealId, + ("buyerPrivateData" .=) <$> _mdBuyerPrivateData, + ("webPropertyCode" .=) <$> _mdWebPropertyCode, + ("creationTimeMs" .=) <$> _mdCreationTimeMs, + ("terms" .=) <$> _mdTerms, + ("offerRevisionNumber" .=) <$> + _mdOfferRevisionNumber, + ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs, + Just ("kind" .= _mdKind), + ("deliveryControl" .=) <$> _mdDeliveryControl, + ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs, + ("sharedTargetings" .=) <$> _mdSharedTargetings, + ("dealId" .=) <$> _mdDealId, + ("inventoryDescription" .=) <$> + _mdInventoryDescription, + ("syndicationProduct" .=) <$> _mdSyndicationProduct, + ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs, + ("name" .=) <$> _mdName, + ("sellerContacts" .=) <$> _mdSellerContacts, + ("offerId" .=) <$> _mdOfferId, + ("orderId" .=) <$> _mdOrderId]) + +-- +-- /See:/ 'getOffersResponse' smart constructor. +newtype GetOffersResponse = GetOffersResponse + { _gorOffers :: Maybe [MarketplaceOffer] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gorOffers' +getOffersResponse + :: GetOffersResponse +getOffersResponse = + GetOffersResponse + { _gorOffers = Nothing + } + +-- | The returned list of offers. +gorOffers :: Lens' GetOffersResponse [MarketplaceOffer] +gorOffers + = lens _gorOffers (\ s a -> s{_gorOffers = a}) . + _Default + . _Coerce + +instance FromJSON GetOffersResponse where + parseJSON + = withObject "GetOffersResponse" + (\ o -> + GetOffersResponse <$> (o .:? "offers" .!= mempty)) + +instance ToJSON GetOffersResponse where + toJSON GetOffersResponse{..} + = object (catMaybes [("offers" .=) <$> _gorOffers]) + +-- +-- /See:/ 'statsDTO' smart constructor. +data StatsDTO = StatsDTO + { _sdtoBids :: !(Maybe (Textual Int64)) + , _sdtoSpend :: !(Maybe MoneyDTO) + , _sdtoImpressions :: !(Maybe (Textual Int64)) + , _sdtoGoodBids :: !(Maybe (Textual Int64)) + , _sdtoRevenue :: !(Maybe MoneyDTO) + , _sdtoRequests :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdtoBids' +-- +-- * 'sdtoSpend' +-- +-- * 'sdtoImpressions' +-- +-- * 'sdtoGoodBids' +-- +-- * 'sdtoRevenue' +-- +-- * 'sdtoRequests' +statsDTO + :: StatsDTO +statsDTO = + StatsDTO + { _sdtoBids = Nothing + , _sdtoSpend = Nothing + , _sdtoImpressions = Nothing + , _sdtoGoodBids = Nothing + , _sdtoRevenue = Nothing + , _sdtoRequests = Nothing + } + +sdtoBids :: Lens' StatsDTO (Maybe Int64) +sdtoBids + = lens _sdtoBids (\ s a -> s{_sdtoBids = a}) . + mapping _Coerce + +sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO) +sdtoSpend + = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a}) + +sdtoImpressions :: Lens' StatsDTO (Maybe Int64) +sdtoImpressions + = lens _sdtoImpressions + (\ s a -> s{_sdtoImpressions = a}) + . mapping _Coerce + +sdtoGoodBids :: Lens' StatsDTO (Maybe Int64) +sdtoGoodBids + = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a}) + . mapping _Coerce + +sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO) +sdtoRevenue + = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a}) + +sdtoRequests :: Lens' StatsDTO (Maybe Int64) +sdtoRequests + = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a}) + . mapping _Coerce + +instance FromJSON StatsDTO where + parseJSON + = withObject "StatsDTO" + (\ o -> + StatsDTO <$> + (o .:? "bids") <*> (o .:? "spend") <*> + (o .:? "impressions") + <*> (o .:? "goodBids") + <*> (o .:? "revenue") + <*> (o .:? "requests")) + +instance ToJSON StatsDTO where + toJSON StatsDTO{..} + = object + (catMaybes + [("bids" .=) <$> _sdtoBids, + ("spend" .=) <$> _sdtoSpend, + ("impressions" .=) <$> _sdtoImpressions, + ("goodBids" .=) <$> _sdtoGoodBids, + ("revenue" .=) <$> _sdtoRevenue, + ("requests" .=) <$> _sdtoRequests]) + +-- +-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor. +data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms + { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer]) + , _dtngatPrivateAuctionId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealTermsNonGuaranteedAuctionTerms' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtngatReservePricePerBuyers' +-- +-- * 'dtngatPrivateAuctionId' +dealTermsNonGuaranteedAuctionTerms + :: DealTermsNonGuaranteedAuctionTerms +dealTermsNonGuaranteedAuctionTerms = + DealTermsNonGuaranteedAuctionTerms + { _dtngatReservePricePerBuyers = Nothing + , _dtngatPrivateAuctionId = Nothing + } + +-- | Reserve price for the specified buyer. +dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer] +dtngatReservePricePerBuyers + = lens _dtngatReservePricePerBuyers + (\ s a -> s{_dtngatReservePricePerBuyers = a}) + . _Default + . _Coerce + +-- | Id of the corresponding private auction. +dtngatPrivateAuctionId :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Text) +dtngatPrivateAuctionId + = lens _dtngatPrivateAuctionId + (\ s a -> s{_dtngatPrivateAuctionId = a}) + +instance FromJSON DealTermsNonGuaranteedAuctionTerms + where + parseJSON + = withObject "DealTermsNonGuaranteedAuctionTerms" + (\ o -> + DealTermsNonGuaranteedAuctionTerms <$> + (o .:? "reservePricePerBuyers" .!= mempty) <*> + (o .:? "privateAuctionId")) + +instance ToJSON DealTermsNonGuaranteedAuctionTerms + where + toJSON DealTermsNonGuaranteedAuctionTerms{..} + = object + (catMaybes + [("reservePricePerBuyers" .=) <$> + _dtngatReservePricePerBuyers, + ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId]) + +-- +-- /See:/ 'creativeFilteringReasonsReasonsItem' smart constructor. +data CreativeFilteringReasonsReasonsItem = CreativeFilteringReasonsReasonsItem + { _cfrriFilteringStatus :: !(Maybe (Textual Int32)) + , _cfrriFilteringCount :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeFilteringReasonsReasonsItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfrriFilteringStatus' +-- +-- * 'cfrriFilteringCount' +creativeFilteringReasonsReasonsItem + :: CreativeFilteringReasonsReasonsItem +creativeFilteringReasonsReasonsItem = + CreativeFilteringReasonsReasonsItem + { _cfrriFilteringStatus = Nothing + , _cfrriFilteringCount = Nothing + } + +-- | The filtering status code. Please refer to the creative-status-codes.txt +-- file for different statuses. +cfrriFilteringStatus :: Lens' CreativeFilteringReasonsReasonsItem (Maybe Int32) +cfrriFilteringStatus + = lens _cfrriFilteringStatus + (\ s a -> s{_cfrriFilteringStatus = a}) + . mapping _Coerce + +-- | The number of times the creative was filtered for the status. The count +-- is aggregated across all publishers on the exchange. +cfrriFilteringCount :: Lens' CreativeFilteringReasonsReasonsItem (Maybe Int64) +cfrriFilteringCount + = lens _cfrriFilteringCount + (\ s a -> s{_cfrriFilteringCount = a}) + . mapping _Coerce + +instance FromJSON CreativeFilteringReasonsReasonsItem + where + parseJSON + = withObject "CreativeFilteringReasonsReasonsItem" + (\ o -> + CreativeFilteringReasonsReasonsItem <$> + (o .:? "filteringStatus") <*> + (o .:? "filteringCount")) + +instance ToJSON CreativeFilteringReasonsReasonsItem + where + toJSON CreativeFilteringReasonsReasonsItem{..} + = object + (catMaybes + [("filteringStatus" .=) <$> _cfrriFilteringStatus, + ("filteringCount" .=) <$> _cfrriFilteringCount]) + +-- +-- /See:/ 'negotiationRoundDTO' smart constructor. +data NegotiationRoundDTO = NegotiationRoundDTO + { _nrdtoTerms :: !(Maybe TermsDTO) + , _nrdtoKind :: !Text + , _nrdtoOriginatorRole :: !(Maybe Text) + , _nrdtoAction :: !(Maybe Text) + , _nrdtoDBmPartnerId :: !(Maybe (Textual Int64)) + , _nrdtoNotes :: !(Maybe Text) + , _nrdtoNegotiationId :: !(Maybe (Textual Int64)) + , _nrdtoEditHistory :: !(Maybe EditHistoryDTO) + , _nrdtoRoundNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'NegotiationRoundDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'nrdtoTerms' +-- +-- * 'nrdtoKind' +-- +-- * 'nrdtoOriginatorRole' +-- +-- * 'nrdtoAction' +-- +-- * 'nrdtoDBmPartnerId' +-- +-- * 'nrdtoNotes' +-- +-- * 'nrdtoNegotiationId' +-- +-- * 'nrdtoEditHistory' +-- +-- * 'nrdtoRoundNumber' +negotiationRoundDTO + :: NegotiationRoundDTO +negotiationRoundDTO = + NegotiationRoundDTO + { _nrdtoTerms = Nothing + , _nrdtoKind = "adexchangebuyer#negotiationRound" + , _nrdtoOriginatorRole = Nothing + , _nrdtoAction = Nothing + , _nrdtoDBmPartnerId = Nothing + , _nrdtoNotes = Nothing + , _nrdtoNegotiationId = Nothing + , _nrdtoEditHistory = Nothing + , _nrdtoRoundNumber = Nothing + } + +-- | The detailed terms proposed in this negotiation round. +nrdtoTerms :: Lens' NegotiationRoundDTO (Maybe TermsDTO) +nrdtoTerms + = lens _nrdtoTerms (\ s a -> s{_nrdtoTerms = a}) + +nrdtoKind :: Lens' NegotiationRoundDTO Text +nrdtoKind + = lens _nrdtoKind (\ s a -> s{_nrdtoKind = a}) + +-- | The role, either buyer or seller, initiating this negotiation round. +nrdtoOriginatorRole :: Lens' NegotiationRoundDTO (Maybe Text) +nrdtoOriginatorRole + = lens _nrdtoOriginatorRole + (\ s a -> s{_nrdtoOriginatorRole = a}) + +-- | The action performed by this negotiation round. +nrdtoAction :: Lens' NegotiationRoundDTO (Maybe Text) +nrdtoAction + = lens _nrdtoAction (\ s a -> s{_nrdtoAction = a}) + +-- | Stores DBM partner ID for use by DBM +nrdtoDBmPartnerId :: Lens' NegotiationRoundDTO (Maybe Int64) +nrdtoDBmPartnerId + = lens _nrdtoDBmPartnerId + (\ s a -> s{_nrdtoDBmPartnerId = a}) + . mapping _Coerce + +-- | Notes regarding this negotiation round. +nrdtoNotes :: Lens' NegotiationRoundDTO (Maybe Text) +nrdtoNotes + = lens _nrdtoNotes (\ s a -> s{_nrdtoNotes = a}) + +-- | The ID of the negotiation to which this negotiation round applies. +nrdtoNegotiationId :: Lens' NegotiationRoundDTO (Maybe Int64) +nrdtoNegotiationId + = lens _nrdtoNegotiationId + (\ s a -> s{_nrdtoNegotiationId = a}) + . mapping _Coerce + +-- | The edit history of this negotiation round. +nrdtoEditHistory :: Lens' NegotiationRoundDTO (Maybe EditHistoryDTO) +nrdtoEditHistory + = lens _nrdtoEditHistory + (\ s a -> s{_nrdtoEditHistory = a}) + +-- | The number of this negotiation round, in sequence. +nrdtoRoundNumber :: Lens' NegotiationRoundDTO (Maybe Int64) +nrdtoRoundNumber + = lens _nrdtoRoundNumber + (\ s a -> s{_nrdtoRoundNumber = a}) + . mapping _Coerce + +instance FromJSON NegotiationRoundDTO where + parseJSON + = withObject "NegotiationRoundDTO" + (\ o -> + NegotiationRoundDTO <$> + (o .:? "terms") <*> + (o .:? "kind" .!= "adexchangebuyer#negotiationRound") + <*> (o .:? "originatorRole") + <*> (o .:? "action") + <*> (o .:? "dbmPartnerId") + <*> (o .:? "notes") + <*> (o .:? "negotiationId") + <*> (o .:? "editHistory") + <*> (o .:? "roundNumber")) + +instance ToJSON NegotiationRoundDTO where + toJSON NegotiationRoundDTO{..} + = object + (catMaybes + [("terms" .=) <$> _nrdtoTerms, + Just ("kind" .= _nrdtoKind), + ("originatorRole" .=) <$> _nrdtoOriginatorRole, + ("action" .=) <$> _nrdtoAction, + ("dbmPartnerId" .=) <$> _nrdtoDBmPartnerId, + ("notes" .=) <$> _nrdtoNotes, + ("negotiationId" .=) <$> _nrdtoNegotiationId, + ("editHistory" .=) <$> _nrdtoEditHistory, + ("roundNumber" .=) <$> _nrdtoRoundNumber]) + +-- +-- /See:/ 'dealTerms' smart constructor. +data DealTerms = DealTerms + { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms) + , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms) + , _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. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtNonGuaranteedFixedPriceTerms' +-- +-- * 'dtNonGuaranteedAuctionTerms' +-- +-- * 'dtGuaranteedFixedPriceTerms' +-- +-- * 'dtDescription' +dealTerms + :: DealTerms +dealTerms = + DealTerms + { _dtNonGuaranteedFixedPriceTerms = Nothing + , _dtNonGuaranteedAuctionTerms = Nothing + , _dtGuaranteedFixedPriceTerms = Nothing + , _dtDescription = Nothing + } + +-- | The terms for non-guaranteed fixed price deals. +dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms) +dtNonGuaranteedFixedPriceTerms + = lens _dtNonGuaranteedFixedPriceTerms + (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a}) + +-- | The terms for non-guaranteed auction deals. +dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedAuctionTerms) +dtNonGuaranteedAuctionTerms + = lens _dtNonGuaranteedAuctionTerms + (\ s a -> s{_dtNonGuaranteedAuctionTerms = a}) + +-- | The terms for guaranteed fixed price deals. +dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms) +dtGuaranteedFixedPriceTerms + = lens _dtGuaranteedFixedPriceTerms + (\ s a -> s{_dtGuaranteedFixedPriceTerms = a}) + +-- | Description for the proposed terms of the deal. +dtDescription :: Lens' DealTerms (Maybe Text) +dtDescription + = lens _dtDescription + (\ s a -> s{_dtDescription = a}) + +instance FromJSON DealTerms where + parseJSON + = withObject "DealTerms" + (\ o -> + DealTerms <$> + (o .:? "nonGuaranteedFixedPriceTerms") <*> + (o .:? "nonGuaranteedAuctionTerms") + <*> (o .:? "guaranteedFixedPriceTerms") + <*> (o .:? "description")) + +instance ToJSON DealTerms where + toJSON DealTerms{..} + = object + (catMaybes + [("nonGuaranteedFixedPriceTerms" .=) <$> + _dtNonGuaranteedFixedPriceTerms, + ("nonGuaranteedAuctionTerms" .=) <$> + _dtNonGuaranteedAuctionTerms, + ("guaranteedFixedPriceTerms" .=) <$> + _dtGuaranteedFixedPriceTerms, + ("description" .=) <$> _dtDescription]) + +-- +-- /See:/ 'dateTime' smart constructor. +data DateTime = DateTime + { _dtSecond :: !(Maybe (Textual Int32)) + , _dtDay :: !(Maybe (Textual Int32)) + , _dtYear :: !(Maybe (Textual Int32)) + , _dtHour :: !(Maybe (Textual Int32)) + , _dtMonth :: !(Maybe (Textual Int32)) + , _dtMinute :: !(Maybe (Textual Int32)) + , _dtTimeZoneId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DateTime' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtSecond' +-- +-- * 'dtDay' +-- +-- * 'dtYear' +-- +-- * 'dtHour' +-- +-- * 'dtMonth' +-- +-- * 'dtMinute' +-- +-- * 'dtTimeZoneId' +dateTime + :: DateTime +dateTime = + DateTime + { _dtSecond = Nothing + , _dtDay = Nothing + , _dtYear = Nothing + , _dtHour = Nothing + , _dtMonth = Nothing + , _dtMinute = Nothing + , _dtTimeZoneId = Nothing + } + +dtSecond :: Lens' DateTime (Maybe Int32) +dtSecond + = lens _dtSecond (\ s a -> s{_dtSecond = a}) . + mapping _Coerce + +dtDay :: Lens' DateTime (Maybe Int32) +dtDay + = lens _dtDay (\ s a -> s{_dtDay = a}) . + mapping _Coerce + +dtYear :: Lens' DateTime (Maybe Int32) +dtYear + = lens _dtYear (\ s a -> s{_dtYear = a}) . + mapping _Coerce + +dtHour :: Lens' DateTime (Maybe Int32) +dtHour + = lens _dtHour (\ s a -> s{_dtHour = a}) . + mapping _Coerce + +dtMonth :: Lens' DateTime (Maybe Int32) +dtMonth + = lens _dtMonth (\ s a -> s{_dtMonth = a}) . + mapping _Coerce + +dtMinute :: Lens' DateTime (Maybe Int32) +dtMinute + = lens _dtMinute (\ s a -> s{_dtMinute = a}) . + mapping _Coerce + +dtTimeZoneId :: Lens' DateTime (Maybe Text) +dtTimeZoneId + = lens _dtTimeZoneId (\ s a -> s{_dtTimeZoneId = a}) + +instance FromJSON DateTime where + parseJSON + = withObject "DateTime" + (\ o -> + DateTime <$> + (o .:? "second") <*> (o .:? "day") <*> (o .:? "year") + <*> (o .:? "hour") + <*> (o .:? "month") + <*> (o .:? "minute") + <*> (o .:? "timeZoneId")) + +instance ToJSON DateTime where + toJSON DateTime{..} + = object + (catMaybes + [("second" .=) <$> _dtSecond, ("day" .=) <$> _dtDay, + ("year" .=) <$> _dtYear, ("hour" .=) <$> _dtHour, + ("month" .=) <$> _dtMonth, + ("minute" .=) <$> _dtMinute, + ("timeZoneId" .=) <$> _dtTimeZoneId]) + +-- +-- /See:/ 'marketplaceLabel' smart constructor. +data MarketplaceLabel = MarketplaceLabel + { _mlDeprecatedMarketplaceDealParty :: !(Maybe MarketplaceDealParty) + , _mlAccountId :: !(Maybe Text) + , _mlCreateTimeMs :: !(Maybe (Textual Int64)) + , _mlLabel :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceLabel' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mlDeprecatedMarketplaceDealParty' +-- +-- * 'mlAccountId' +-- +-- * 'mlCreateTimeMs' +-- +-- * 'mlLabel' +marketplaceLabel + :: MarketplaceLabel +marketplaceLabel = + MarketplaceLabel + { _mlDeprecatedMarketplaceDealParty = Nothing + , _mlAccountId = Nothing + , _mlCreateTimeMs = Nothing + , _mlLabel = Nothing + } + +-- | Information about the party that created the label. +mlDeprecatedMarketplaceDealParty :: Lens' MarketplaceLabel (Maybe MarketplaceDealParty) +mlDeprecatedMarketplaceDealParty + = lens _mlDeprecatedMarketplaceDealParty + (\ s a -> s{_mlDeprecatedMarketplaceDealParty = a}) + +-- | The accountId of the party that created the label. +mlAccountId :: Lens' MarketplaceLabel (Maybe Text) +mlAccountId + = lens _mlAccountId (\ s a -> s{_mlAccountId = a}) + +-- | The creation time (in ms since epoch) for the label. +mlCreateTimeMs :: Lens' MarketplaceLabel (Maybe Int64) +mlCreateTimeMs + = lens _mlCreateTimeMs + (\ s a -> s{_mlCreateTimeMs = a}) + . mapping _Coerce + +-- | The label to use. +mlLabel :: Lens' MarketplaceLabel (Maybe Text) +mlLabel = lens _mlLabel (\ s a -> s{_mlLabel = a}) + +instance FromJSON MarketplaceLabel where + parseJSON + = withObject "MarketplaceLabel" + (\ o -> + MarketplaceLabel <$> + (o .:? "deprecatedMarketplaceDealParty") <*> + (o .:? "accountId") + <*> (o .:? "createTimeMs") + <*> (o .:? "label")) + +instance ToJSON MarketplaceLabel where + toJSON MarketplaceLabel{..} + = object + (catMaybes + [("deprecatedMarketplaceDealParty" .=) <$> + _mlDeprecatedMarketplaceDealParty, + ("accountId" .=) <$> _mlAccountId, + ("createTimeMs" .=) <$> _mlCreateTimeMs, + ("label" .=) <$> _mlLabel]) + +-- +-- /See:/ 'editHistoryDTO' smart constructor. +data EditHistoryDTO = EditHistoryDTO + { _ehdtoLastUpdatedByLoginName :: !(Maybe Text) + , _ehdtoCreatedByLoginName :: !(Maybe Text) + , _ehdtoLastUpdateTimeStamp :: !(Maybe (Textual Int64)) + , _ehdtoCreatedTimeStamp :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'EditHistoryDTO' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ehdtoLastUpdatedByLoginName' +-- +-- * 'ehdtoCreatedByLoginName' +-- +-- * 'ehdtoLastUpdateTimeStamp' +-- +-- * 'ehdtoCreatedTimeStamp' +editHistoryDTO + :: EditHistoryDTO +editHistoryDTO = + EditHistoryDTO + { _ehdtoLastUpdatedByLoginName = Nothing + , _ehdtoCreatedByLoginName = Nothing + , _ehdtoLastUpdateTimeStamp = Nothing + , _ehdtoCreatedTimeStamp = Nothing + } + +ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text) +ehdtoLastUpdatedByLoginName + = lens _ehdtoLastUpdatedByLoginName + (\ s a -> s{_ehdtoLastUpdatedByLoginName = a}) + +ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text) +ehdtoCreatedByLoginName + = lens _ehdtoCreatedByLoginName + (\ s a -> s{_ehdtoCreatedByLoginName = a}) + +ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64) +ehdtoLastUpdateTimeStamp + = lens _ehdtoLastUpdateTimeStamp + (\ s a -> s{_ehdtoLastUpdateTimeStamp = a}) + . mapping _Coerce + +ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64) +ehdtoCreatedTimeStamp + = lens _ehdtoCreatedTimeStamp + (\ s a -> s{_ehdtoCreatedTimeStamp = a}) + . mapping _Coerce + +instance FromJSON EditHistoryDTO where + parseJSON + = withObject "EditHistoryDTO" + (\ o -> + EditHistoryDTO <$> + (o .:? "lastUpdatedByLoginName") <*> + (o .:? "createdByLoginName") + <*> (o .:? "lastUpdateTimeStamp") + <*> (o .:? "createdTimeStamp")) + +instance ToJSON EditHistoryDTO where + toJSON EditHistoryDTO{..} + = object + (catMaybes + [("lastUpdatedByLoginName" .=) <$> + _ehdtoLastUpdatedByLoginName, + ("createdByLoginName" .=) <$> + _ehdtoCreatedByLoginName, + ("lastUpdateTimeStamp" .=) <$> + _ehdtoLastUpdateTimeStamp, + ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp]) + +-- +-- /See:/ 'buyer' smart constructor. +newtype Buyer = Buyer + { _bbAccountId :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Buyer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bbAccountId' +buyer + :: Buyer +buyer = + Buyer + { _bbAccountId = Nothing + } + +-- | Adx account id of the buyer. +bbAccountId :: Lens' Buyer (Maybe Text) +bbAccountId + = lens _bbAccountId (\ s a -> s{_bbAccountId = a}) + +instance FromJSON Buyer where + parseJSON + = withObject "Buyer" + (\ o -> Buyer <$> (o .:? "accountId")) + +instance ToJSON Buyer where + toJSON Buyer{..} + = object + (catMaybes [("accountId" .=) <$> _bbAccountId]) + +-- | Represents an order in the marketplace. An order is the unit of +-- negotiation between a seller and a buyer and contains deals which are +-- served. Each field in an order can have one of the following setting: +-- (readonly) - It is an error to try and set this field. (buyer-readonly) +-- - Only the seller can set this field. (seller-readonly) - Only the buyer +-- can set this field. (updatable) - The field is updatable at all times by +-- either buyer or the seller. +-- +-- /See:/ 'marketplaceOrder' smart constructor. +data MarketplaceOrder = MarketplaceOrder + { _mBuyerPrivateData :: !(Maybe PrivateData) + , _mIsSetupComplete :: !(Maybe Bool) + , _mBuyerContacts :: !(Maybe [ContactInformation]) + , _mKind :: !Text + , _mOriginatorRole :: !(Maybe Text) + , _mRevisionNumber :: !(Maybe (Textual Int64)) + , _mBilledBuyer :: !(Maybe Buyer) + , _mIsRenegotiating :: !(Maybe Bool) + , _mHasSellerSignedOff :: !(Maybe Bool) + , _mSeller :: !(Maybe Seller) + , _mOrderState :: !(Maybe Text) + , _mName :: !(Maybe Text) + , _mSellerContacts :: !(Maybe [ContactInformation]) + , _mLastUpdaterRole :: !(Maybe Text) + , _mLabels :: !(Maybe [MarketplaceLabel]) + , _mRevisionTimeMs :: !(Maybe (Textual Int64)) + , _mOrderId :: !(Maybe Text) + , _mLastUpdaterOrCommentorRole :: !(Maybe Text) + , _mHasBuyerSignedOff :: !(Maybe Bool) + , _mBuyer :: !(Maybe Buyer) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mBuyerPrivateData' +-- +-- * 'mIsSetupComplete' +-- +-- * 'mBuyerContacts' +-- +-- * 'mKind' +-- +-- * 'mOriginatorRole' +-- +-- * 'mRevisionNumber' +-- +-- * 'mBilledBuyer' +-- +-- * 'mIsRenegotiating' +-- +-- * 'mHasSellerSignedOff' +-- +-- * 'mSeller' +-- +-- * 'mOrderState' +-- +-- * 'mName' +-- +-- * 'mSellerContacts' +-- +-- * 'mLastUpdaterRole' +-- +-- * 'mLabels' +-- +-- * 'mRevisionTimeMs' +-- +-- * 'mOrderId' +-- +-- * 'mLastUpdaterOrCommentorRole' +-- +-- * 'mHasBuyerSignedOff' +-- +-- * 'mBuyer' +marketplaceOrder + :: MarketplaceOrder +marketplaceOrder = + MarketplaceOrder + { _mBuyerPrivateData = Nothing + , _mIsSetupComplete = Nothing + , _mBuyerContacts = Nothing + , _mKind = "adexchangebuyer#marketplaceOrder" + , _mOriginatorRole = Nothing + , _mRevisionNumber = Nothing + , _mBilledBuyer = Nothing + , _mIsRenegotiating = Nothing + , _mHasSellerSignedOff = Nothing + , _mSeller = Nothing + , _mOrderState = Nothing + , _mName = Nothing + , _mSellerContacts = Nothing + , _mLastUpdaterRole = Nothing + , _mLabels = Nothing + , _mRevisionTimeMs = Nothing + , _mOrderId = Nothing + , _mLastUpdaterOrCommentorRole = Nothing + , _mHasBuyerSignedOff = Nothing + , _mBuyer = Nothing + } + +-- | Private data for buyer. (hidden from seller). +mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData) +mBuyerPrivateData + = lens _mBuyerPrivateData + (\ s a -> s{_mBuyerPrivateData = a}) + +-- | True, if the buyside inventory setup is complete for this order. +-- (readonly) +mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool) +mIsSetupComplete + = lens _mIsSetupComplete + (\ s a -> s{_mIsSetupComplete = a}) + +-- | Optional contact information fort the buyer. (seller-readonly) +mBuyerContacts :: Lens' MarketplaceOrder [ContactInformation] +mBuyerContacts + = lens _mBuyerContacts + (\ s a -> s{_mBuyerContacts = a}) + . _Default + . _Coerce + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#marketplaceOrder\". +mKind :: Lens' MarketplaceOrder Text +mKind = lens _mKind (\ s a -> s{_mKind = a}) + +-- | Indicates whether the buyer\/seller created the offer.(readonly) +mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text) +mOriginatorRole + = lens _mOriginatorRole + (\ s a -> s{_mOriginatorRole = a}) + +-- | The revision number for the order (readonly). +mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64) +mRevisionNumber + = lens _mRevisionNumber + (\ s a -> s{_mRevisionNumber = a}) + . mapping _Coerce + +-- | Reference to the buyer that will get billed for this order. (readonly) +mBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer) +mBilledBuyer + = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a}) + +-- | True if the order is being renegotiated (readonly). +mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool) +mIsRenegotiating + = lens _mIsRenegotiating + (\ s a -> s{_mIsRenegotiating = a}) + +-- | When an order is in an accepted state, indicates whether the buyer has +-- signed off Once both sides have signed off on a deal, the order can be +-- finalized by the seller. (buyer-readonly) +mHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool) +mHasSellerSignedOff + = lens _mHasSellerSignedOff + (\ s a -> s{_mHasSellerSignedOff = a}) + +-- | Reference to the seller on the order. (readonly, except on create) +mSeller :: Lens' MarketplaceOrder (Maybe Seller) +mSeller = lens _mSeller (\ s a -> s{_mSeller = a}) + +-- | The current state of the order. (readonly) +mOrderState :: Lens' MarketplaceOrder (Maybe Text) +mOrderState + = lens _mOrderState (\ s a -> s{_mOrderState = a}) + +-- | The name for the order (updatable) +mName :: Lens' MarketplaceOrder (Maybe Text) +mName = lens _mName (\ s a -> s{_mName = a}) + +-- | Optional contact information for the seller (buyer-readonly). +mSellerContacts :: Lens' MarketplaceOrder [ContactInformation] +mSellerContacts + = lens _mSellerContacts + (\ s a -> s{_mSellerContacts = a}) + . _Default + . _Coerce + +mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text) +mLastUpdaterRole + = lens _mLastUpdaterRole + (\ s a -> s{_mLastUpdaterRole = a}) + +-- | List of labels associated with the order. (readonly) +mLabels :: Lens' MarketplaceOrder [MarketplaceLabel] +mLabels + = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default + . _Coerce + +-- | The time (ms since epoch) when the order was last revised (readonly). +mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64) +mRevisionTimeMs + = lens _mRevisionTimeMs + (\ s a -> s{_mRevisionTimeMs = a}) + . mapping _Coerce + +-- | The unique id of the order. (readonly). +mOrderId :: Lens' MarketplaceOrder (Maybe Text) +mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a}) + +-- | The role of the last user that either updated the order or left a +-- comment. (readonly) +mLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text) +mLastUpdaterOrCommentorRole + = lens _mLastUpdaterOrCommentorRole + (\ s a -> s{_mLastUpdaterOrCommentorRole = a}) + +-- | When an order is in an accepted state, indicates whether the buyer has +-- signed off Once both sides have signed off on a deal, the order can be +-- finalized by the seller. (seller-readonly) +mHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool) +mHasBuyerSignedOff + = lens _mHasBuyerSignedOff + (\ s a -> s{_mHasBuyerSignedOff = a}) + +-- | Reference to the buyer on the order. (readonly, except on create) +mBuyer :: Lens' MarketplaceOrder (Maybe Buyer) +mBuyer = lens _mBuyer (\ s a -> s{_mBuyer = a}) + +instance FromJSON MarketplaceOrder where + parseJSON + = withObject "MarketplaceOrder" + (\ o -> + MarketplaceOrder <$> + (o .:? "buyerPrivateData") <*> + (o .:? "isSetupComplete") + <*> (o .:? "buyerContacts" .!= mempty) + <*> + (o .:? "kind" .!= "adexchangebuyer#marketplaceOrder") + <*> (o .:? "originatorRole") + <*> (o .:? "revisionNumber") + <*> (o .:? "billedBuyer") + <*> (o .:? "isRenegotiating") + <*> (o .:? "hasSellerSignedOff") + <*> (o .:? "seller") + <*> (o .:? "orderState") + <*> (o .:? "name") + <*> (o .:? "sellerContacts" .!= mempty) + <*> (o .:? "lastUpdaterRole") + <*> (o .:? "labels" .!= mempty) + <*> (o .:? "revisionTimeMs") + <*> (o .:? "orderId") + <*> (o .:? "lastUpdaterOrCommentorRole") + <*> (o .:? "hasBuyerSignedOff") + <*> (o .:? "buyer")) + +instance ToJSON MarketplaceOrder where + toJSON MarketplaceOrder{..} + = object + (catMaybes + [("buyerPrivateData" .=) <$> _mBuyerPrivateData, + ("isSetupComplete" .=) <$> _mIsSetupComplete, + ("buyerContacts" .=) <$> _mBuyerContacts, + Just ("kind" .= _mKind), + ("originatorRole" .=) <$> _mOriginatorRole, + ("revisionNumber" .=) <$> _mRevisionNumber, + ("billedBuyer" .=) <$> _mBilledBuyer, + ("isRenegotiating" .=) <$> _mIsRenegotiating, + ("hasSellerSignedOff" .=) <$> _mHasSellerSignedOff, + ("seller" .=) <$> _mSeller, + ("orderState" .=) <$> _mOrderState, + ("name" .=) <$> _mName, + ("sellerContacts" .=) <$> _mSellerContacts, + ("lastUpdaterRole" .=) <$> _mLastUpdaterRole, + ("labels" .=) <$> _mLabels, + ("revisionTimeMs" .=) <$> _mRevisionTimeMs, + ("orderId" .=) <$> _mOrderId, + ("lastUpdaterOrCommentorRole" .=) <$> + _mLastUpdaterOrCommentorRole, + ("hasBuyerSignedOff" .=) <$> _mHasBuyerSignedOff, + ("buyer" .=) <$> _mBuyer]) + +-- +-- /See:/ 'addOrderDealsRequest' smart constructor. +data AddOrderDealsRequest = AddOrderDealsRequest + { _aUpdateAction :: !(Maybe Text) + , _aDeals :: !(Maybe [MarketplaceDeal]) + , _aOrderRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AddOrderDealsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aUpdateAction' +-- +-- * 'aDeals' +-- +-- * 'aOrderRevisionNumber' +addOrderDealsRequest + :: AddOrderDealsRequest +addOrderDealsRequest = + AddOrderDealsRequest + { _aUpdateAction = Nothing + , _aDeals = Nothing + , _aOrderRevisionNumber = Nothing + } + +-- | Indicates an optional action to take on the order +aUpdateAction :: Lens' AddOrderDealsRequest (Maybe Text) +aUpdateAction + = lens _aUpdateAction + (\ s a -> s{_aUpdateAction = a}) + +-- | The list of deals to add +aDeals :: Lens' AddOrderDealsRequest [MarketplaceDeal] +aDeals + = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default . + _Coerce + +-- | The last known order revision number. +aOrderRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64) +aOrderRevisionNumber + = lens _aOrderRevisionNumber + (\ s a -> s{_aOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON AddOrderDealsRequest where + parseJSON + = withObject "AddOrderDealsRequest" + (\ o -> + AddOrderDealsRequest <$> + (o .:? "updateAction") <*> (o .:? "deals" .!= mempty) + <*> (o .:? "orderRevisionNumber")) + +instance ToJSON AddOrderDealsRequest where + toJSON AddOrderDealsRequest{..} + = object + (catMaybes + [("updateAction" .=) <$> _aUpdateAction, + ("deals" .=) <$> _aDeals, + ("orderRevisionNumber" .=) <$> + _aOrderRevisionNumber]) + +-- +-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor. +data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms + { _dtgfptGuaranteedLooks :: !(Maybe (Textual Int64)) + , _dtgfptGuaranteedImpressions :: !(Maybe (Textual Int64)) + , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtgfptGuaranteedLooks' +-- +-- * 'dtgfptGuaranteedImpressions' +-- +-- * 'dtgfptFixedPrices' +dealTermsGuaranteedFixedPriceTerms + :: DealTermsGuaranteedFixedPriceTerms +dealTermsGuaranteedFixedPriceTerms = + DealTermsGuaranteedFixedPriceTerms + { _dtgfptGuaranteedLooks = Nothing + , _dtgfptGuaranteedImpressions = Nothing + , _dtgfptFixedPrices = Nothing + } + +-- | Count of guaranteed looks. Required for deal, optional for offer. +dtgfptGuaranteedLooks :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64) +dtgfptGuaranteedLooks + = lens _dtgfptGuaranteedLooks + (\ s a -> s{_dtgfptGuaranteedLooks = a}) + . mapping _Coerce + +-- | Guaranteed impressions as a percentage. This is the percentage of +-- guaranteed looks that the buyer is guaranteeing to buy. +dtgfptGuaranteedImpressions :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe Int64) +dtgfptGuaranteedImpressions + = lens _dtgfptGuaranteedImpressions + (\ s a -> s{_dtgfptGuaranteedImpressions = a}) + . mapping _Coerce + +-- | Fixed price for the specified buyer. +dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [PricePerBuyer] +dtgfptFixedPrices + = lens _dtgfptFixedPrices + (\ s a -> s{_dtgfptFixedPrices = a}) + . _Default + . _Coerce + +instance FromJSON DealTermsGuaranteedFixedPriceTerms + where + parseJSON + = withObject "DealTermsGuaranteedFixedPriceTerms" + (\ o -> + DealTermsGuaranteedFixedPriceTerms <$> + (o .:? "guaranteedLooks") <*> + (o .:? "guaranteedImpressions") + <*> (o .:? "fixedPrices" .!= mempty)) + +instance ToJSON DealTermsGuaranteedFixedPriceTerms + where + toJSON DealTermsGuaranteedFixedPriceTerms{..} + = object + (catMaybes + [("guaranteedLooks" .=) <$> _dtgfptGuaranteedLooks, + ("guaranteedImpressions" .=) <$> + _dtgfptGuaranteedImpressions, + ("fixedPrices" .=) <$> _dtgfptFixedPrices]) diff --git a/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs b/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs @@ -0,0 +1,179 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.AdExchangeBuyer.Types.Sum +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.Google.AdExchangeBuyer.Types.Sum where + +import Network.Google.Prelude + +-- | The proposed action to take on the order. +data MarketplaceOrdersUpdateUpdateAction + = Accept + -- ^ @accept@ + | Cancel + -- ^ @cancel@ + | Propose + -- ^ @propose@ + | UnknownAction + -- ^ @unknownAction@ + | UpdateFinalized + -- ^ @updateFinalized@ + deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + +instance Hashable MarketplaceOrdersUpdateUpdateAction + +instance FromText MarketplaceOrdersUpdateUpdateAction where + fromText = \case + "accept" -> Just Accept + "cancel" -> Just Cancel + "propose" -> Just Propose + "unknownAction" -> Just UnknownAction + "updateFinalized" -> Just UpdateFinalized + _ -> Nothing + +instance ToText MarketplaceOrdersUpdateUpdateAction where + toText = \case + Accept -> "accept" + Cancel -> "cancel" + Propose -> "propose" + UnknownAction -> "unknownAction" + UpdateFinalized -> "updateFinalized" + +instance FromJSON MarketplaceOrdersUpdateUpdateAction where + parseJSON = parseJSONText "MarketplaceOrdersUpdateUpdateAction" + +instance ToJSON MarketplaceOrdersUpdateUpdateAction where + toJSON = toJSONText + +-- | The proposed action to take on the order. +data MarketplaceOrdersPatchUpdateAction + = MOPUAAccept + -- ^ @accept@ + | MOPUACancel + -- ^ @cancel@ + | MOPUAPropose + -- ^ @propose@ + | MOPUAUnknownAction + -- ^ @unknownAction@ + | MOPUAUpdateFinalized + -- ^ @updateFinalized@ + deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + +instance Hashable MarketplaceOrdersPatchUpdateAction + +instance FromText MarketplaceOrdersPatchUpdateAction where + fromText = \case + "accept" -> Just MOPUAAccept + "cancel" -> Just MOPUACancel + "propose" -> Just MOPUAPropose + "unknownAction" -> Just MOPUAUnknownAction + "updateFinalized" -> Just MOPUAUpdateFinalized + _ -> Nothing + +instance ToText MarketplaceOrdersPatchUpdateAction where + toText = \case + MOPUAAccept -> "accept" + MOPUACancel -> "cancel" + MOPUAPropose -> "propose" + MOPUAUnknownAction -> "unknownAction" + MOPUAUpdateFinalized -> "updateFinalized" + +instance FromJSON MarketplaceOrdersPatchUpdateAction where + parseJSON = parseJSONText "MarketplaceOrdersPatchUpdateAction" + +instance ToJSON MarketplaceOrdersPatchUpdateAction where + toJSON = toJSONText + +-- | When specified, only creatives having the given open auction status are +-- returned. +data CreativesListOpenAuctionStatusFilter + = Approved + -- ^ @approved@ + -- Creatives which have been approved for serving on the open auction. + | ConditionallyApproved + -- ^ @conditionally_approved@ + -- Creatives which have been conditionally approved for serving on the open + -- auction. + | DisApproved + -- ^ @disapproved@ + -- Creatives which have been disapproved for serving on the open auction. + | NotChecked + -- ^ @not_checked@ + -- Creatives whose open auction status is not yet checked. + deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + +instance Hashable CreativesListOpenAuctionStatusFilter + +instance FromText CreativesListOpenAuctionStatusFilter where + fromText = \case + "approved" -> Just Approved + "conditionally_approved" -> Just ConditionallyApproved + "disapproved" -> Just DisApproved + "not_checked" -> Just NotChecked + _ -> Nothing + +instance ToText CreativesListOpenAuctionStatusFilter where + toText = \case + Approved -> "approved" + ConditionallyApproved -> "conditionally_approved" + DisApproved -> "disapproved" + NotChecked -> "not_checked" + +instance FromJSON CreativesListOpenAuctionStatusFilter where + parseJSON = parseJSONText "CreativesListOpenAuctionStatusFilter" + +instance ToJSON CreativesListOpenAuctionStatusFilter where + toJSON = toJSONText + +-- | When specified, only creatives having the given direct deals status are +-- returned. +data CreativesListDealsStatusFilter + = CLDSFApproved + -- ^ @approved@ + -- Creatives which have been approved for serving on direct deals. + | CLDSFConditionallyApproved + -- ^ @conditionally_approved@ + -- Creatives which have been conditionally approved for serving on direct + -- deals. + | CLDSFDisApproved + -- ^ @disapproved@ + -- Creatives which have been disapproved for serving on direct deals. + | CLDSFNotChecked + -- ^ @not_checked@ + -- Creatives whose direct deals status is not yet checked. + deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + +instance Hashable CreativesListDealsStatusFilter + +instance FromText CreativesListDealsStatusFilter where + fromText = \case + "approved" -> Just CLDSFApproved + "conditionally_approved" -> Just CLDSFConditionallyApproved + "disapproved" -> Just CLDSFDisApproved + "not_checked" -> Just CLDSFNotChecked + _ -> Nothing + +instance ToText CreativesListDealsStatusFilter where + toText = \case + CLDSFApproved -> "approved" + CLDSFConditionallyApproved -> "conditionally_approved" + CLDSFDisApproved -> "disapproved" + CLDSFNotChecked -> "not_checked" + +instance FromJSON CreativesListDealsStatusFilter where + parseJSON = parseJSONText "CreativesListDealsStatusFilter" + +instance ToJSON CreativesListDealsStatusFilter where + toJSON = toJSONText diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs @@ -0,0 +1,81 @@ +{-# 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.Accounts.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets one account by ID. +-- +-- /See:/ for @adexchangebuyer.accounts.get@. +module Network.Google.Resource.AdExchangeBuyer.Accounts.Get + ( + -- * REST Resource + AccountsGetResource + + -- * Creating a Request + , accountsGet + , AccountsGet + + -- * Request Lenses + , agId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.accounts.get@ method which the +-- 'AccountsGet' request conforms to. +type AccountsGetResource = + "adexchangebuyer" :> + "v1.4" :> + "accounts" :> + Capture "id" (Textual Int32) :> + QueryParam "alt" AltJSON :> Get '[JSON] Account + +-- | Gets one account by ID. +-- +-- /See:/ 'accountsGet' smart constructor. +newtype AccountsGet = AccountsGet + { _agId :: Textual Int32 + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'agId' +accountsGet + :: Int32 -- ^ 'agId' + -> AccountsGet +accountsGet pAgId_ = + AccountsGet + { _agId = _Coerce # pAgId_ + } + +-- | The account id +agId :: Lens' AccountsGet Int32 +agId = lens _agId (\ s a -> s{_agId = a}) . _Coerce + +instance GoogleRequest AccountsGet where + type Rs AccountsGet = Account + requestClient AccountsGet{..} + = go _agId (Just AltJSON) adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy AccountsGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs @@ -0,0 +1,67 @@ +{-# 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.Accounts.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the authenticated user\'s list of accounts. +-- +-- /See:/ for @adexchangebuyer.accounts.list@. +module Network.Google.Resource.AdExchangeBuyer.Accounts.List + ( + -- * REST Resource + AccountsListResource + + -- * Creating a Request + , accountsList' + , AccountsList' + + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.accounts.list@ method which the +-- 'AccountsList'' request conforms to. +type AccountsListResource = + "adexchangebuyer" :> + "v1.4" :> + "accounts" :> + QueryParam "alt" AltJSON :> Get '[JSON] AccountsList + +-- | Retrieves the authenticated user\'s list of accounts. +-- +-- /See:/ 'accountsList'' smart constructor. +data AccountsList' = + AccountsList' + deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request. +-- +accountsList' + :: AccountsList' +accountsList' = AccountsList' + +instance GoogleRequest AccountsList' where + type Rs AccountsList' = AccountsList + requestClient AccountsList'{} + = go (Just AltJSON) adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy AccountsListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs @@ -0,0 +1,94 @@ +{-# 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.Accounts.Patch +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates an existing account. This method supports patch semantics. +-- +-- /See:/ for @adexchangebuyer.accounts.patch@. +module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch + ( + -- * REST Resource + AccountsPatchResource + + -- * Creating a Request + , accountsPatch + , AccountsPatch + + -- * Request Lenses + , apPayload + , apId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.accounts.patch@ method which the +-- 'AccountsPatch' request conforms to. +type AccountsPatchResource = + "adexchangebuyer" :> + "v1.4" :> + "accounts" :> + Capture "id" (Textual Int32) :> + 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) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountsPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'apPayload' +-- +-- * 'apId' +accountsPatch + :: Account -- ^ 'apPayload' + -> Int32 -- ^ 'apId' + -> AccountsPatch +accountsPatch pApPayload_ pApId_ = + AccountsPatch + { _apPayload = pApPayload_ + , _apId = _Coerce # pApId_ + } + +-- | Multipart request metadata. +apPayload :: Lens' AccountsPatch Account +apPayload + = lens _apPayload (\ s a -> s{_apPayload = a}) + +-- | The account id +apId :: Lens' AccountsPatch Int32 +apId = lens _apId (\ s a -> s{_apId = a}) . _Coerce + +instance GoogleRequest AccountsPatch where + type Rs AccountsPatch = Account + requestClient AccountsPatch{..} + = go _apId (Just AltJSON) _apPayload + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy AccountsPatchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs @@ -0,0 +1,94 @@ +{-# 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.Accounts.Update +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates an existing account. +-- +-- /See:/ for @adexchangebuyer.accounts.update@. +module Network.Google.Resource.AdExchangeBuyer.Accounts.Update + ( + -- * REST Resource + AccountsUpdateResource + + -- * Creating a Request + , accountsUpdate + , AccountsUpdate + + -- * Request Lenses + , auPayload + , auId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.accounts.update@ method which the +-- 'AccountsUpdate' request conforms to. +type AccountsUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "accounts" :> + Capture "id" (Textual Int32) :> + 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) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AccountsUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'auPayload' +-- +-- * 'auId' +accountsUpdate + :: Account -- ^ 'auPayload' + -> Int32 -- ^ 'auId' + -> AccountsUpdate +accountsUpdate pAuPayload_ pAuId_ = + AccountsUpdate + { _auPayload = pAuPayload_ + , _auId = _Coerce # pAuId_ + } + +-- | Multipart request metadata. +auPayload :: Lens' AccountsUpdate Account +auPayload + = lens _auPayload (\ s a -> s{_auPayload = a}) + +-- | The account id +auId :: Lens' AccountsUpdate Int32 +auId = lens _auId (\ s a -> s{_auId = a}) . _Coerce + +instance GoogleRequest AccountsUpdate where + type Rs AccountsUpdate = Account + requestClient AccountsUpdate{..} + = go _auId (Just AltJSON) _auPayload + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy AccountsUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs @@ -0,0 +1,84 @@ +{-# 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.BillingInfo.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the billing information for one account specified by account ID. +-- +-- /See:/ for @adexchangebuyer.billingInfo.get@. +module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get + ( + -- * REST Resource + BillingInfoGetResource + + -- * Creating a Request + , billingInfoGet + , BillingInfoGet + + -- * Request Lenses + , bigAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.billingInfo.get@ method which the +-- 'BillingInfoGet' request conforms to. +type BillingInfoGetResource = + "adexchangebuyer" :> + "v1.4" :> + "billinginfo" :> + Capture "accountId" (Textual Int32) :> + QueryParam "alt" AltJSON :> Get '[JSON] BillingInfo + +-- | Returns the billing information for one account specified by account ID. +-- +-- /See:/ 'billingInfoGet' smart constructor. +newtype BillingInfoGet = BillingInfoGet + { _bigAccountId :: Textual Int32 + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BillingInfoGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bigAccountId' +billingInfoGet + :: Int32 -- ^ 'bigAccountId' + -> BillingInfoGet +billingInfoGet pBigAccountId_ = + BillingInfoGet + { _bigAccountId = _Coerce # pBigAccountId_ + } + +-- | The account id. +bigAccountId :: Lens' BillingInfoGet Int32 +bigAccountId + = lens _bigAccountId (\ s a -> s{_bigAccountId = a}) + . _Coerce + +instance GoogleRequest BillingInfoGet where + type Rs BillingInfoGet = BillingInfo + requestClient BillingInfoGet{..} + = go _bigAccountId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy BillingInfoGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs @@ -0,0 +1,71 @@ +{-# 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.BillingInfo.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves a list of billing information for all accounts of the +-- authenticated user. +-- +-- /See:/ for @adexchangebuyer.billingInfo.list@. +module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List + ( + -- * REST Resource + BillingInfoListResource + + -- * Creating a Request + , billingInfoList' + , BillingInfoList' + + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.billingInfo.list@ method which the +-- 'BillingInfoList'' request conforms to. +type BillingInfoListResource = + "adexchangebuyer" :> + "v1.4" :> + "billinginfo" :> + QueryParam "alt" AltJSON :> + Get '[JSON] BillingInfoList + +-- | Retrieves a list of billing information for all accounts of the +-- authenticated user. +-- +-- /See:/ 'billingInfoList'' smart constructor. +data BillingInfoList' = + BillingInfoList' + deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request. +-- +billingInfoList' + :: BillingInfoList' +billingInfoList' = BillingInfoList' + +instance GoogleRequest BillingInfoList' where + type Rs BillingInfoList' = BillingInfoList + requestClient BillingInfoList'{} + = go (Just AltJSON) adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy BillingInfoListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs @@ -0,0 +1,99 @@ +{-# 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.Budget.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Returns the budget information for the adgroup specified by the +-- accountId and billingId. +-- +-- /See:/ for @adexchangebuyer.budget.get@. +module Network.Google.Resource.AdExchangeBuyer.Budget.Get + ( + -- * REST Resource + BudgetGetResource + + -- * Creating a Request + , budgetGet + , BudgetGet + + -- * Request Lenses + , bgAccountId + , bgBillingId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.budget.get@ method which the +-- 'BudgetGet' request conforms to. +type BudgetGetResource = + "adexchangebuyer" :> + "v1.4" :> + "billinginfo" :> + Capture "accountId" (Textual Int64) :> + Capture "billingId" (Textual Int64) :> + QueryParam "alt" AltJSON :> Get '[JSON] Budget + +-- | Returns the budget information for the adgroup specified by the +-- accountId and billingId. +-- +-- /See:/ 'budgetGet' smart constructor. +data BudgetGet = BudgetGet + { _bgAccountId :: !(Textual Int64) + , _bgBillingId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BudgetGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bgAccountId' +-- +-- * 'bgBillingId' +budgetGet + :: Int64 -- ^ 'bgAccountId' + -> Int64 -- ^ 'bgBillingId' + -> BudgetGet +budgetGet pBgAccountId_ pBgBillingId_ = + BudgetGet + { _bgAccountId = _Coerce # pBgAccountId_ + , _bgBillingId = _Coerce # pBgBillingId_ + } + +-- | The account id to get the budget information for. +bgAccountId :: Lens' BudgetGet Int64 +bgAccountId + = lens _bgAccountId (\ s a -> s{_bgAccountId = a}) . + _Coerce + +-- | The billing id to get the budget information for. +bgBillingId :: Lens' BudgetGet Int64 +bgBillingId + = lens _bgBillingId (\ s a -> s{_bgBillingId = a}) . + _Coerce + +instance GoogleRequest BudgetGet where + type Rs BudgetGet = Budget + requestClient BudgetGet{..} + = go _bgAccountId _bgBillingId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy BudgetGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs @@ -0,0 +1,114 @@ +{-# 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.Budget.Patch +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the budget amount for the budget of the adgroup specified by the +-- accountId and billingId, with the budget amount in the request. This +-- method supports patch semantics. +-- +-- /See:/ for @adexchangebuyer.budget.patch@. +module Network.Google.Resource.AdExchangeBuyer.Budget.Patch + ( + -- * REST Resource + BudgetPatchResource + + -- * Creating a Request + , budgetPatch + , BudgetPatch + + -- * Request Lenses + , bpPayload + , bpAccountId + , bpBillingId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.budget.patch@ method which the +-- 'BudgetPatch' request conforms to. +type BudgetPatchResource = + "adexchangebuyer" :> + "v1.4" :> + "billinginfo" :> + Capture "accountId" (Textual Int64) :> + Capture "billingId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Budget :> Patch '[JSON] Budget + +-- | Updates the budget amount for the budget of the adgroup specified by the +-- accountId and billingId, with the budget amount in the request. This +-- method supports patch semantics. +-- +-- /See:/ 'budgetPatch' smart constructor. +data BudgetPatch = BudgetPatch + { _bpPayload :: !Budget + , _bpAccountId :: !(Textual Int64) + , _bpBillingId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BudgetPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bpPayload' +-- +-- * 'bpAccountId' +-- +-- * 'bpBillingId' +budgetPatch + :: Budget -- ^ 'bpPayload' + -> Int64 -- ^ 'bpAccountId' + -> Int64 -- ^ 'bpBillingId' + -> BudgetPatch +budgetPatch pBpPayload_ pBpAccountId_ pBpBillingId_ = + BudgetPatch + { _bpPayload = pBpPayload_ + , _bpAccountId = _Coerce # pBpAccountId_ + , _bpBillingId = _Coerce # pBpBillingId_ + } + +-- | Multipart request metadata. +bpPayload :: Lens' BudgetPatch Budget +bpPayload + = lens _bpPayload (\ s a -> s{_bpPayload = a}) + +-- | The account id associated with the budget being updated. +bpAccountId :: Lens' BudgetPatch Int64 +bpAccountId + = lens _bpAccountId (\ s a -> s{_bpAccountId = a}) . + _Coerce + +-- | The billing id associated with the budget being updated. +bpBillingId :: Lens' BudgetPatch Int64 +bpBillingId + = lens _bpBillingId (\ s a -> s{_bpBillingId = a}) . + _Coerce + +instance GoogleRequest BudgetPatch where + type Rs BudgetPatch = Budget + requestClient BudgetPatch{..} + = go _bpAccountId _bpBillingId (Just AltJSON) + _bpPayload + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy BudgetPatchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs @@ -0,0 +1,112 @@ +{-# 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.Budget.Update +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates the budget amount for the budget of the adgroup specified by the +-- accountId and billingId, with the budget amount in the request. +-- +-- /See:/ for @adexchangebuyer.budget.update@. +module Network.Google.Resource.AdExchangeBuyer.Budget.Update + ( + -- * REST Resource + BudgetUpdateResource + + -- * Creating a Request + , budgetUpdate + , BudgetUpdate + + -- * Request Lenses + , buPayload + , buAccountId + , buBillingId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.budget.update@ method which the +-- 'BudgetUpdate' request conforms to. +type BudgetUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "billinginfo" :> + Capture "accountId" (Textual Int64) :> + Capture "billingId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Budget :> Put '[JSON] Budget + +-- | Updates the budget amount for the budget of the adgroup specified by the +-- accountId and billingId, with the budget amount in the request. +-- +-- /See:/ 'budgetUpdate' smart constructor. +data BudgetUpdate = BudgetUpdate + { _buPayload :: !Budget + , _buAccountId :: !(Textual Int64) + , _buBillingId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'BudgetUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'buPayload' +-- +-- * 'buAccountId' +-- +-- * 'buBillingId' +budgetUpdate + :: Budget -- ^ 'buPayload' + -> Int64 -- ^ 'buAccountId' + -> Int64 -- ^ 'buBillingId' + -> BudgetUpdate +budgetUpdate pBuPayload_ pBuAccountId_ pBuBillingId_ = + BudgetUpdate + { _buPayload = pBuPayload_ + , _buAccountId = _Coerce # pBuAccountId_ + , _buBillingId = _Coerce # pBuBillingId_ + } + +-- | Multipart request metadata. +buPayload :: Lens' BudgetUpdate Budget +buPayload + = lens _buPayload (\ s a -> s{_buPayload = a}) + +-- | The account id associated with the budget being updated. +buAccountId :: Lens' BudgetUpdate Int64 +buAccountId + = lens _buAccountId (\ s a -> s{_buAccountId = a}) . + _Coerce + +-- | The billing id associated with the budget being updated. +buBillingId :: Lens' BudgetUpdate Int64 +buBillingId + = lens _buBillingId (\ s a -> s{_buBillingId = a}) . + _Coerce + +instance GoogleRequest BudgetUpdate where + type Rs BudgetUpdate = Budget + requestClient BudgetUpdate{..} + = go _buAccountId _buBillingId (Just AltJSON) + _buPayload + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy BudgetUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs @@ -0,0 +1,96 @@ +{-# 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.ClientAccess.Delete +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- /See:/ for @adexchangebuyer.clientaccess.delete@. +module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete + ( + -- * REST Resource + ClientAccessDeleteResource + + -- * Creating a Request + , clientAccessDelete + , ClientAccessDelete + + -- * Request Lenses + , cadSponsorAccountId + , cadClientAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.clientaccess.delete@ method which the +-- 'ClientAccessDelete' request conforms to. +type ClientAccessDeleteResource = + "adexchangebuyer" :> + "v1.4" :> + "clientAccess" :> + Capture "clientAccountId" (Textual Int64) :> + QueryParam "sponsorAccountId" (Textual Int32) :> + QueryParam "alt" AltJSON :> Delete '[JSON] () + +-- +-- /See:/ 'clientAccessDelete' smart constructor. +data ClientAccessDelete = ClientAccessDelete + { _cadSponsorAccountId :: !(Textual Int32) + , _cadClientAccountId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cadSponsorAccountId' +-- +-- * 'cadClientAccountId' +clientAccessDelete + :: Int32 -- ^ 'cadSponsorAccountId' + -> Int64 -- ^ 'cadClientAccountId' + -> ClientAccessDelete +clientAccessDelete pCadSponsorAccountId_ pCadClientAccountId_ = + ClientAccessDelete + { _cadSponsorAccountId = _Coerce # pCadSponsorAccountId_ + , _cadClientAccountId = _Coerce # pCadClientAccountId_ + } + +cadSponsorAccountId :: Lens' ClientAccessDelete Int32 +cadSponsorAccountId + = lens _cadSponsorAccountId + (\ s a -> s{_cadSponsorAccountId = a}) + . _Coerce + +cadClientAccountId :: Lens' ClientAccessDelete Int64 +cadClientAccountId + = lens _cadClientAccountId + (\ s a -> s{_cadClientAccountId = a}) + . _Coerce + +instance GoogleRequest ClientAccessDelete where + type Rs ClientAccessDelete = () + requestClient ClientAccessDelete{..} + = go _cadClientAccountId (Just _cadSponsorAccountId) + (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ClientAccessDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hs @@ -0,0 +1,97 @@ +{-# 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.ClientAccess.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- /See:/ for @adexchangebuyer.clientaccess.get@. +module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get + ( + -- * REST Resource + ClientAccessGetResource + + -- * Creating a Request + , clientAccessGet + , ClientAccessGet + + -- * Request Lenses + , cagSponsorAccountId + , cagClientAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.clientaccess.get@ method which the +-- 'ClientAccessGet' request conforms to. +type ClientAccessGetResource = + "adexchangebuyer" :> + "v1.4" :> + "clientAccess" :> + Capture "clientAccountId" (Textual Int64) :> + QueryParam "sponsorAccountId" (Textual Int32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] ClientAccessCapabilities + +-- +-- /See:/ 'clientAccessGet' smart constructor. +data ClientAccessGet = ClientAccessGet + { _cagSponsorAccountId :: !(Textual Int32) + , _cagClientAccountId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cagSponsorAccountId' +-- +-- * 'cagClientAccountId' +clientAccessGet + :: Int32 -- ^ 'cagSponsorAccountId' + -> Int64 -- ^ 'cagClientAccountId' + -> ClientAccessGet +clientAccessGet pCagSponsorAccountId_ pCagClientAccountId_ = + ClientAccessGet + { _cagSponsorAccountId = _Coerce # pCagSponsorAccountId_ + , _cagClientAccountId = _Coerce # pCagClientAccountId_ + } + +cagSponsorAccountId :: Lens' ClientAccessGet Int32 +cagSponsorAccountId + = lens _cagSponsorAccountId + (\ s a -> s{_cagSponsorAccountId = a}) + . _Coerce + +cagClientAccountId :: Lens' ClientAccessGet Int64 +cagClientAccountId + = lens _cagClientAccountId + (\ s a -> s{_cagClientAccountId = a}) + . _Coerce + +instance GoogleRequest ClientAccessGet where + type Rs ClientAccessGet = ClientAccessCapabilities + requestClient ClientAccessGet{..} + = go _cagClientAccountId (Just _cagSponsorAccountId) + (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ClientAccessGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hs @@ -0,0 +1,108 @@ +{-# 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.ClientAccess.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- /See:/ for @adexchangebuyer.clientaccess.insert@. +module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert + ( + -- * REST Resource + ClientAccessInsertResource + + -- * Creating a Request + , clientAccessInsert + , ClientAccessInsert + + -- * Request Lenses + , caiSponsorAccountId + , caiPayload + , caiClientAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.clientaccess.insert@ method which the +-- 'ClientAccessInsert' request conforms to. +type ClientAccessInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "clientAccess" :> + QueryParam "sponsorAccountId" (Textual Int32) :> + QueryParam "clientAccountId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] ClientAccessCapabilities :> + Post '[JSON] ClientAccessCapabilities + +-- +-- /See:/ 'clientAccessInsert' smart constructor. +data ClientAccessInsert = ClientAccessInsert + { _caiSponsorAccountId :: !(Maybe (Textual Int32)) + , _caiPayload :: !ClientAccessCapabilities + , _caiClientAccountId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'caiSponsorAccountId' +-- +-- * 'caiPayload' +-- +-- * 'caiClientAccountId' +clientAccessInsert + :: ClientAccessCapabilities -- ^ 'caiPayload' + -> ClientAccessInsert +clientAccessInsert pCaiPayload_ = + ClientAccessInsert + { _caiSponsorAccountId = Nothing + , _caiPayload = pCaiPayload_ + , _caiClientAccountId = Nothing + } + +caiSponsorAccountId :: Lens' ClientAccessInsert (Maybe Int32) +caiSponsorAccountId + = lens _caiSponsorAccountId + (\ s a -> s{_caiSponsorAccountId = a}) + . mapping _Coerce + +-- | Multipart request metadata. +caiPayload :: Lens' ClientAccessInsert ClientAccessCapabilities +caiPayload + = lens _caiPayload (\ s a -> s{_caiPayload = a}) + +caiClientAccountId :: Lens' ClientAccessInsert (Maybe Int64) +caiClientAccountId + = lens _caiClientAccountId + (\ s a -> s{_caiClientAccountId = a}) + . mapping _Coerce + +instance GoogleRequest ClientAccessInsert where + type Rs ClientAccessInsert = ClientAccessCapabilities + requestClient ClientAccessInsert{..} + = go _caiSponsorAccountId _caiClientAccountId + (Just AltJSON) + _caiPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ClientAccessInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hs @@ -0,0 +1,83 @@ +{-# 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.ClientAccess.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- /See:/ for @adexchangebuyer.clientaccess.list@. +module Network.Google.Resource.AdExchangeBuyer.ClientAccess.List + ( + -- * REST Resource + ClientAccessListResource + + -- * Creating a Request + , clientAccessList + , ClientAccessList + + -- * Request Lenses + , calPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.clientaccess.list@ method which the +-- 'ClientAccessList' request conforms to. +type ClientAccessListResource = + "adexchangebuyer" :> + "v1.4" :> + "clientAccess" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] ListClientAccessCapabilitiesRequest + :> Get '[JSON] ListClientAccessCapabilitiesResponse + +-- +-- /See:/ 'clientAccessList' smart constructor. +newtype ClientAccessList = ClientAccessList + { _calPayload :: ListClientAccessCapabilitiesRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'calPayload' +clientAccessList + :: ListClientAccessCapabilitiesRequest -- ^ 'calPayload' + -> ClientAccessList +clientAccessList pCalPayload_ = + ClientAccessList + { _calPayload = pCalPayload_ + } + +-- | Multipart request metadata. +calPayload :: Lens' ClientAccessList ListClientAccessCapabilitiesRequest +calPayload + = lens _calPayload (\ s a -> s{_calPayload = a}) + +instance GoogleRequest ClientAccessList where + type Rs ClientAccessList = + ListClientAccessCapabilitiesResponse + requestClient ClientAccessList{..} + = go (Just AltJSON) _calPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ClientAccessListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hs @@ -0,0 +1,110 @@ +{-# 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.ClientAccess.Patch +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- /See:/ for @adexchangebuyer.clientaccess.patch@. +module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch + ( + -- * REST Resource + ClientAccessPatchResource + + -- * Creating a Request + , clientAccessPatch + , ClientAccessPatch + + -- * Request Lenses + , capSponsorAccountId + , capPayload + , capClientAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.clientaccess.patch@ method which the +-- 'ClientAccessPatch' request conforms to. +type ClientAccessPatchResource = + "adexchangebuyer" :> + "v1.4" :> + "clientAccess" :> + Capture "clientAccountId" (Textual Int64) :> + QueryParam "sponsorAccountId" (Textual Int32) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] ClientAccessCapabilities :> + Patch '[JSON] ClientAccessCapabilities + +-- +-- /See:/ 'clientAccessPatch' smart constructor. +data ClientAccessPatch = ClientAccessPatch + { _capSponsorAccountId :: !(Textual Int32) + , _capPayload :: !ClientAccessCapabilities + , _capClientAccountId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'capSponsorAccountId' +-- +-- * 'capPayload' +-- +-- * 'capClientAccountId' +clientAccessPatch + :: Int32 -- ^ 'capSponsorAccountId' + -> ClientAccessCapabilities -- ^ 'capPayload' + -> Int64 -- ^ 'capClientAccountId' + -> ClientAccessPatch +clientAccessPatch pCapSponsorAccountId_ pCapPayload_ pCapClientAccountId_ = + ClientAccessPatch + { _capSponsorAccountId = _Coerce # pCapSponsorAccountId_ + , _capPayload = pCapPayload_ + , _capClientAccountId = _Coerce # pCapClientAccountId_ + } + +capSponsorAccountId :: Lens' ClientAccessPatch Int32 +capSponsorAccountId + = lens _capSponsorAccountId + (\ s a -> s{_capSponsorAccountId = a}) + . _Coerce + +-- | Multipart request metadata. +capPayload :: Lens' ClientAccessPatch ClientAccessCapabilities +capPayload + = lens _capPayload (\ s a -> s{_capPayload = a}) + +capClientAccountId :: Lens' ClientAccessPatch Int64 +capClientAccountId + = lens _capClientAccountId + (\ s a -> s{_capClientAccountId = a}) + . _Coerce + +instance GoogleRequest ClientAccessPatch where + type Rs ClientAccessPatch = ClientAccessCapabilities + requestClient ClientAccessPatch{..} + = go _capClientAccountId (Just _capSponsorAccountId) + (Just AltJSON) + _capPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ClientAccessPatchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hs @@ -0,0 +1,110 @@ +{-# 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.ClientAccess.Update +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- /See:/ for @adexchangebuyer.clientaccess.update@. +module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update + ( + -- * REST Resource + ClientAccessUpdateResource + + -- * Creating a Request + , clientAccessUpdate + , ClientAccessUpdate + + -- * Request Lenses + , cauSponsorAccountId + , cauPayload + , cauClientAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.clientaccess.update@ method which the +-- 'ClientAccessUpdate' request conforms to. +type ClientAccessUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "clientAccess" :> + Capture "clientAccountId" (Textual Int64) :> + QueryParam "sponsorAccountId" (Textual Int32) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] ClientAccessCapabilities :> + Put '[JSON] ClientAccessCapabilities + +-- +-- /See:/ 'clientAccessUpdate' smart constructor. +data ClientAccessUpdate = ClientAccessUpdate + { _cauSponsorAccountId :: !(Textual Int32) + , _cauPayload :: !ClientAccessCapabilities + , _cauClientAccountId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClientAccessUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cauSponsorAccountId' +-- +-- * 'cauPayload' +-- +-- * 'cauClientAccountId' +clientAccessUpdate + :: Int32 -- ^ 'cauSponsorAccountId' + -> ClientAccessCapabilities -- ^ 'cauPayload' + -> Int64 -- ^ 'cauClientAccountId' + -> ClientAccessUpdate +clientAccessUpdate pCauSponsorAccountId_ pCauPayload_ pCauClientAccountId_ = + ClientAccessUpdate + { _cauSponsorAccountId = _Coerce # pCauSponsorAccountId_ + , _cauPayload = pCauPayload_ + , _cauClientAccountId = _Coerce # pCauClientAccountId_ + } + +cauSponsorAccountId :: Lens' ClientAccessUpdate Int32 +cauSponsorAccountId + = lens _cauSponsorAccountId + (\ s a -> s{_cauSponsorAccountId = a}) + . _Coerce + +-- | Multipart request metadata. +cauPayload :: Lens' ClientAccessUpdate ClientAccessCapabilities +cauPayload + = lens _cauPayload (\ s a -> s{_cauPayload = a}) + +cauClientAccountId :: Lens' ClientAccessUpdate Int64 +cauClientAccountId + = lens _cauClientAccountId + (\ s a -> s{_cauClientAccountId = a}) + . _Coerce + +instance GoogleRequest ClientAccessUpdate where + type Rs ClientAccessUpdate = ClientAccessCapabilities + requestClient ClientAccessUpdate{..} + = go _cauClientAccountId (Just _cauSponsorAccountId) + (Just AltJSON) + _cauPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ClientAccessUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs @@ -0,0 +1,99 @@ +{-# 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.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the status for a single creative. A creative will be available +-- 30-40 minutes after submission. +-- +-- /See:/ for @adexchangebuyer.creatives.get@. +module Network.Google.Resource.AdExchangeBuyer.Creatives.Get + ( + -- * REST Resource + CreativesGetResource + + -- * Creating a Request + , creativesGet + , CreativesGet + + -- * Request Lenses + , cgBuyerCreativeId + , cgAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.creatives.get@ method which the +-- 'CreativesGet' request conforms to. +type CreativesGetResource = + "adexchangebuyer" :> + "v1.4" :> + "creatives" :> + Capture "accountId" (Textual Int32) :> + Capture "buyerCreativeId" Text :> + QueryParam "alt" AltJSON :> Get '[JSON] Creative + +-- | Gets the status for a single creative. A creative will be available +-- 30-40 minutes after submission. +-- +-- /See:/ 'creativesGet' smart constructor. +data CreativesGet = CreativesGet + { _cgBuyerCreativeId :: !Text + , _cgAccountId :: !(Textual Int32) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cgBuyerCreativeId' +-- +-- * 'cgAccountId' +creativesGet + :: Text -- ^ 'cgBuyerCreativeId' + -> Int32 -- ^ 'cgAccountId' + -> CreativesGet +creativesGet pCgBuyerCreativeId_ pCgAccountId_ = + CreativesGet + { _cgBuyerCreativeId = pCgBuyerCreativeId_ + , _cgAccountId = _Coerce # pCgAccountId_ + } + +-- | The buyer-specific id for this creative. +cgBuyerCreativeId :: Lens' CreativesGet Text +cgBuyerCreativeId + = lens _cgBuyerCreativeId + (\ s a -> s{_cgBuyerCreativeId = a}) + +-- | The id for the account that will serve this creative. +cgAccountId :: Lens' CreativesGet Int32 +cgAccountId + = lens _cgAccountId (\ s a -> s{_cgAccountId = a}) . + _Coerce + +instance GoogleRequest CreativesGet where + type Rs CreativesGet = Creative + requestClient CreativesGet{..} + = go _cgAccountId _cgBuyerCreativeId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy CreativesGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs @@ -0,0 +1,83 @@ +{-# 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.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Submit a new creative. +-- +-- /See:/ for @adexchangebuyer.creatives.insert@. +module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert + ( + -- * REST Resource + CreativesInsertResource + + -- * Creating a Request + , creativesInsert + , CreativesInsert + + -- * Request Lenses + , ciPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.creatives.insert@ method which the +-- 'CreativesInsert' request conforms to. +type CreativesInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "creatives" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Creative :> Post '[JSON] Creative + +-- | Submit a new creative. +-- +-- /See:/ 'creativesInsert' smart constructor. +newtype CreativesInsert = CreativesInsert + { _ciPayload :: Creative + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ciPayload' +creativesInsert + :: Creative -- ^ 'ciPayload' + -> CreativesInsert +creativesInsert pCiPayload_ = + CreativesInsert + { _ciPayload = pCiPayload_ + } + +-- | Multipart request metadata. +ciPayload :: Lens' CreativesInsert Creative +ciPayload + = lens _ciPayload (\ s a -> s{_ciPayload = a}) + +instance GoogleRequest CreativesInsert where + type Rs CreativesInsert = Creative + requestClient CreativesInsert{..} + = go (Just AltJSON) _ciPayload adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy CreativesInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs @@ -0,0 +1,163 @@ +{-# 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.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves a list of the authenticated user\'s active creatives. A +-- creative will be available 30-40 minutes after submission. +-- +-- /See:/ for @adexchangebuyer.creatives.list@. +module Network.Google.Resource.AdExchangeBuyer.Creatives.List + ( + -- * REST Resource + CreativesListResource + + -- * Creating a Request + , creativesList' + , CreativesList' + + -- * Request Lenses + , clBuyerCreativeId + , clOpenAuctionStatusFilter + , clAccountId + , clPageToken + , clDealsStatusFilter + , clMaxResults + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.creatives.list@ method which the +-- 'CreativesList'' request conforms to. +type CreativesListResource = + "adexchangebuyer" :> + "v1.4" :> + "creatives" :> + QueryParams "buyerCreativeId" Text :> + QueryParam "openAuctionStatusFilter" + CreativesListOpenAuctionStatusFilter + :> + QueryParams "accountId" (Textual Int32) :> + QueryParam "pageToken" Text :> + QueryParam "dealsStatusFilter" + CreativesListDealsStatusFilter + :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> Get '[JSON] CreativesList + +-- | Retrieves a list of the authenticated user\'s active creatives. A +-- creative will be available 30-40 minutes after submission. +-- +-- /See:/ 'creativesList'' smart constructor. +data CreativesList' = CreativesList' + { _clBuyerCreativeId :: !(Maybe [Text]) + , _clOpenAuctionStatusFilter :: !(Maybe CreativesListOpenAuctionStatusFilter) + , _clAccountId :: !(Maybe [Textual Int32]) + , _clPageToken :: !(Maybe Text) + , _clDealsStatusFilter :: !(Maybe CreativesListDealsStatusFilter) + , _clMaxResults :: !(Maybe (Textual Word32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'clBuyerCreativeId' +-- +-- * 'clOpenAuctionStatusFilter' +-- +-- * 'clAccountId' +-- +-- * 'clPageToken' +-- +-- * 'clDealsStatusFilter' +-- +-- * 'clMaxResults' +creativesList' + :: CreativesList' +creativesList' = + CreativesList' + { _clBuyerCreativeId = Nothing + , _clOpenAuctionStatusFilter = Nothing + , _clAccountId = Nothing + , _clPageToken = Nothing + , _clDealsStatusFilter = Nothing + , _clMaxResults = Nothing + } + +-- | When specified, only creatives for the given buyer creative ids are +-- returned. +clBuyerCreativeId :: Lens' CreativesList' [Text] +clBuyerCreativeId + = lens _clBuyerCreativeId + (\ s a -> s{_clBuyerCreativeId = a}) + . _Default + . _Coerce + +-- | When specified, only creatives having the given open auction status are +-- returned. +clOpenAuctionStatusFilter :: Lens' CreativesList' (Maybe CreativesListOpenAuctionStatusFilter) +clOpenAuctionStatusFilter + = lens _clOpenAuctionStatusFilter + (\ s a -> s{_clOpenAuctionStatusFilter = a}) + +-- | When specified, only creatives for the given account ids are returned. +clAccountId :: Lens' CreativesList' [Int32] +clAccountId + = lens _clAccountId (\ s a -> s{_clAccountId = a}) . + _Default + . _Coerce + +-- | A continuation token, used to page through ad clients. To retrieve the +-- next page, set this parameter to the value of \"nextPageToken\" from the +-- previous response. Optional. +clPageToken :: Lens' CreativesList' (Maybe Text) +clPageToken + = lens _clPageToken (\ s a -> s{_clPageToken = a}) + +-- | When specified, only creatives having the given direct deals status are +-- returned. +clDealsStatusFilter :: Lens' CreativesList' (Maybe CreativesListDealsStatusFilter) +clDealsStatusFilter + = lens _clDealsStatusFilter + (\ s a -> s{_clDealsStatusFilter = a}) + +-- | Maximum number of entries returned on one result page. If not set, the +-- default is 100. Optional. +clMaxResults :: Lens' CreativesList' (Maybe Word32) +clMaxResults + = lens _clMaxResults (\ s a -> s{_clMaxResults = a}) + . mapping _Coerce + +instance GoogleRequest CreativesList' where + type Rs CreativesList' = CreativesList + requestClient CreativesList'{..} + = go (_clBuyerCreativeId ^. _Default) + _clOpenAuctionStatusFilter + (_clAccountId ^. _Default) + _clPageToken + _clDealsStatusFilter + _clMaxResults + (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy CreativesListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs @@ -0,0 +1,97 @@ +{-# 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.Deals.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested deal. +-- +-- /See:/ for @adexchangebuyer.deals.get@. +module Network.Google.Resource.AdExchangeBuyer.Deals.Get + ( + -- * REST Resource + DealsGetResource + + -- * Creating a Request + , dealsGet + , DealsGet + + -- * Request Lenses + , dgPayload + , dgDealId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.deals.get@ method which the +-- 'DealsGet' request conforms to. +type DealsGetResource = + "adexchangebuyer" :> + "v1.4" :> + "deals" :> + Capture "dealId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] + GetFinalizedNegotiationByExternalDealIdRequest + :> Get '[JSON] NegotiationDTO + +-- | Gets the requested deal. +-- +-- /See:/ 'dealsGet' smart constructor. +data DealsGet = DealsGet + { _dgPayload :: !GetFinalizedNegotiationByExternalDealIdRequest + , _dgDealId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dgPayload' +-- +-- * 'dgDealId' +dealsGet + :: GetFinalizedNegotiationByExternalDealIdRequest -- ^ 'dgPayload' + -> Int64 -- ^ 'dgDealId' + -> DealsGet +dealsGet pDgPayload_ pDgDealId_ = + DealsGet + { _dgPayload = pDgPayload_ + , _dgDealId = _Coerce # pDgDealId_ + } + +-- | Multipart request metadata. +dgPayload :: Lens' DealsGet GetFinalizedNegotiationByExternalDealIdRequest +dgPayload + = lens _dgPayload (\ s a -> s{_dgPayload = a}) + +dgDealId :: Lens' DealsGet Int64 +dgDealId + = lens _dgDealId (\ s a -> s{_dgDealId = a}) . + _Coerce + +instance GoogleRequest DealsGet where + type Rs DealsGet = NegotiationDTO + requestClient DealsGet{..} + = go _dgDealId (Just AltJSON) _dgPayload + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy DealsGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs @@ -0,0 +1,100 @@ +{-# 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.MarketplaceDeals.Delete +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Delete the specified deals from the order +-- +-- /See:/ for @adexchangebuyer.marketplacedeals.delete@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete + ( + -- * REST Resource + MarketplaceDealsDeleteResource + + -- * Creating a Request + , marketplaceDealsDelete + , MarketplaceDealsDelete + + -- * Request Lenses + , mddPayload + , mddOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplacedeals.delete@ method which the +-- 'MarketplaceDealsDelete' request conforms to. +type MarketplaceDealsDeleteResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + "deals" :> + "delete" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] DeleteOrderDealsRequest :> + Post '[JSON] DeleteOrderDealsResponse + +-- | Delete the specified deals from the order +-- +-- /See:/ 'marketplaceDealsDelete' smart constructor. +data MarketplaceDealsDelete = MarketplaceDealsDelete + { _mddPayload :: !DeleteOrderDealsRequest + , _mddOrderId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceDealsDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mddPayload' +-- +-- * 'mddOrderId' +marketplaceDealsDelete + :: DeleteOrderDealsRequest -- ^ 'mddPayload' + -> Text -- ^ 'mddOrderId' + -> MarketplaceDealsDelete +marketplaceDealsDelete pMddPayload_ pMddOrderId_ = + MarketplaceDealsDelete + { _mddPayload = pMddPayload_ + , _mddOrderId = pMddOrderId_ + } + +-- | Multipart request metadata. +mddPayload :: Lens' MarketplaceDealsDelete DeleteOrderDealsRequest +mddPayload + = lens _mddPayload (\ s a -> s{_mddPayload = a}) + +-- | The orderId to delete deals from. +mddOrderId :: Lens' MarketplaceDealsDelete Text +mddOrderId + = lens _mddOrderId (\ s a -> s{_mddOrderId = a}) + +instance GoogleRequest MarketplaceDealsDelete where + type Rs MarketplaceDealsDelete = + DeleteOrderDealsResponse + requestClient MarketplaceDealsDelete{..} + = go _mddOrderId (Just AltJSON) _mddPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceDealsDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs @@ -0,0 +1,100 @@ +{-# 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.MarketplaceDeals.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Add new deals for the specified order +-- +-- /See:/ for @adexchangebuyer.marketplacedeals.insert@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert + ( + -- * REST Resource + MarketplaceDealsInsertResource + + -- * Creating a Request + , marketplaceDealsInsert + , MarketplaceDealsInsert + + -- * Request Lenses + , mdiPayload + , mdiOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplacedeals.insert@ method which the +-- 'MarketplaceDealsInsert' request conforms to. +type MarketplaceDealsInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + "deals" :> + "insert" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] AddOrderDealsRequest :> + Post '[JSON] AddOrderDealsResponse + +-- | Add new deals for the specified order +-- +-- /See:/ 'marketplaceDealsInsert' smart constructor. +data MarketplaceDealsInsert = MarketplaceDealsInsert + { _mdiPayload :: !AddOrderDealsRequest + , _mdiOrderId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceDealsInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mdiPayload' +-- +-- * 'mdiOrderId' +marketplaceDealsInsert + :: AddOrderDealsRequest -- ^ 'mdiPayload' + -> Text -- ^ 'mdiOrderId' + -> MarketplaceDealsInsert +marketplaceDealsInsert pMdiPayload_ pMdiOrderId_ = + MarketplaceDealsInsert + { _mdiPayload = pMdiPayload_ + , _mdiOrderId = pMdiOrderId_ + } + +-- | Multipart request metadata. +mdiPayload :: Lens' MarketplaceDealsInsert AddOrderDealsRequest +mdiPayload + = lens _mdiPayload (\ s a -> s{_mdiPayload = a}) + +-- | OrderId for which deals need to be added. +mdiOrderId :: Lens' MarketplaceDealsInsert Text +mdiOrderId + = lens _mdiOrderId (\ s a -> s{_mdiOrderId = a}) + +instance GoogleRequest MarketplaceDealsInsert where + type Rs MarketplaceDealsInsert = + AddOrderDealsResponse + requestClient MarketplaceDealsInsert{..} + = go _mdiOrderId (Just AltJSON) _mdiPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceDealsInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs @@ -0,0 +1,86 @@ +{-# 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.MarketplaceDeals.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- List all the deals for a given order +-- +-- /See:/ for @adexchangebuyer.marketplacedeals.list@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List + ( + -- * REST Resource + MarketplaceDealsListResource + + -- * Creating a Request + , marketplaceDealsList + , MarketplaceDealsList + + -- * Request Lenses + , mdlOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplacedeals.list@ method which the +-- 'MarketplaceDealsList' request conforms to. +type MarketplaceDealsListResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + "deals" :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOrderDealsResponse + +-- | List all the deals for a given order +-- +-- /See:/ 'marketplaceDealsList' smart constructor. +newtype MarketplaceDealsList = MarketplaceDealsList + { _mdlOrderId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceDealsList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mdlOrderId' +marketplaceDealsList + :: Text -- ^ 'mdlOrderId' + -> MarketplaceDealsList +marketplaceDealsList pMdlOrderId_ = + MarketplaceDealsList + { _mdlOrderId = pMdlOrderId_ + } + +-- | The orderId to get deals for. +mdlOrderId :: Lens' MarketplaceDealsList Text +mdlOrderId + = lens _mdlOrderId (\ s a -> s{_mdlOrderId = a}) + +instance GoogleRequest MarketplaceDealsList where + type Rs MarketplaceDealsList = GetOrderDealsResponse + requestClient MarketplaceDealsList{..} + = go _mdlOrderId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceDealsListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs @@ -0,0 +1,100 @@ +{-# 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.MarketplaceDeals.Update +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Replaces all the deals in the order with the passed in deals +-- +-- /See:/ for @adexchangebuyer.marketplacedeals.update@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update + ( + -- * REST Resource + MarketplaceDealsUpdateResource + + -- * Creating a Request + , marketplaceDealsUpdate + , MarketplaceDealsUpdate + + -- * Request Lenses + , mduPayload + , mduOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplacedeals.update@ method which the +-- 'MarketplaceDealsUpdate' request conforms to. +type MarketplaceDealsUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + "deals" :> + "update" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] EditAllOrderDealsRequest :> + Post '[JSON] EditAllOrderDealsResponse + +-- | Replaces all the deals in the order with the passed in deals +-- +-- /See:/ 'marketplaceDealsUpdate' smart constructor. +data MarketplaceDealsUpdate = MarketplaceDealsUpdate + { _mduPayload :: !EditAllOrderDealsRequest + , _mduOrderId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceDealsUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mduPayload' +-- +-- * 'mduOrderId' +marketplaceDealsUpdate + :: EditAllOrderDealsRequest -- ^ 'mduPayload' + -> Text -- ^ 'mduOrderId' + -> MarketplaceDealsUpdate +marketplaceDealsUpdate pMduPayload_ pMduOrderId_ = + MarketplaceDealsUpdate + { _mduPayload = pMduPayload_ + , _mduOrderId = pMduOrderId_ + } + +-- | Multipart request metadata. +mduPayload :: Lens' MarketplaceDealsUpdate EditAllOrderDealsRequest +mduPayload + = lens _mduPayload (\ s a -> s{_mduPayload = a}) + +-- | The orderId to edit deals on. +mduOrderId :: Lens' MarketplaceDealsUpdate Text +mduOrderId + = lens _mduOrderId (\ s a -> s{_mduOrderId = a}) + +instance GoogleRequest MarketplaceDealsUpdate where + type Rs MarketplaceDealsUpdate = + EditAllOrderDealsResponse + requestClient MarketplaceDealsUpdate{..} + = go _mduOrderId (Just AltJSON) _mduPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceDealsUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs @@ -0,0 +1,100 @@ +{-# 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.MarketplaceNotes.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Add notes to the order +-- +-- /See:/ for @adexchangebuyer.marketplacenotes.insert@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert + ( + -- * REST Resource + MarketplaceNotesInsertResource + + -- * Creating a Request + , marketplaceNotesInsert + , MarketplaceNotesInsert + + -- * Request Lenses + , mniPayload + , mniOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplacenotes.insert@ method which the +-- 'MarketplaceNotesInsert' request conforms to. +type MarketplaceNotesInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + "notes" :> + "insert" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] AddOrderNotesRequest :> + Post '[JSON] AddOrderNotesResponse + +-- | Add notes to the order +-- +-- /See:/ 'marketplaceNotesInsert' smart constructor. +data MarketplaceNotesInsert = MarketplaceNotesInsert + { _mniPayload :: !AddOrderNotesRequest + , _mniOrderId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceNotesInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mniPayload' +-- +-- * 'mniOrderId' +marketplaceNotesInsert + :: AddOrderNotesRequest -- ^ 'mniPayload' + -> Text -- ^ 'mniOrderId' + -> MarketplaceNotesInsert +marketplaceNotesInsert pMniPayload_ pMniOrderId_ = + MarketplaceNotesInsert + { _mniPayload = pMniPayload_ + , _mniOrderId = pMniOrderId_ + } + +-- | Multipart request metadata. +mniPayload :: Lens' MarketplaceNotesInsert AddOrderNotesRequest +mniPayload + = lens _mniPayload (\ s a -> s{_mniPayload = a}) + +-- | The orderId to add notes for. +mniOrderId :: Lens' MarketplaceNotesInsert Text +mniOrderId + = lens _mniOrderId (\ s a -> s{_mniOrderId = a}) + +instance GoogleRequest MarketplaceNotesInsert where + type Rs MarketplaceNotesInsert = + AddOrderNotesResponse + requestClient MarketplaceNotesInsert{..} + = go _mniOrderId (Just AltJSON) _mniPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceNotesInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs @@ -0,0 +1,86 @@ +{-# 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.MarketplaceNotes.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Get all the notes associated with an order +-- +-- /See:/ for @adexchangebuyer.marketplacenotes.list@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List + ( + -- * REST Resource + MarketplaceNotesListResource + + -- * Creating a Request + , marketplaceNotesList + , MarketplaceNotesList + + -- * Request Lenses + , mnlOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplacenotes.list@ method which the +-- 'MarketplaceNotesList' request conforms to. +type MarketplaceNotesListResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + "notes" :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOrderNotesResponse + +-- | Get all the notes associated with an order +-- +-- /See:/ 'marketplaceNotesList' smart constructor. +newtype MarketplaceNotesList = MarketplaceNotesList + { _mnlOrderId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceNotesList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mnlOrderId' +marketplaceNotesList + :: Text -- ^ 'mnlOrderId' + -> MarketplaceNotesList +marketplaceNotesList pMnlOrderId_ = + MarketplaceNotesList + { _mnlOrderId = pMnlOrderId_ + } + +-- | The orderId to get notes for. +mnlOrderId :: Lens' MarketplaceNotesList Text +mnlOrderId + = lens _mnlOrderId (\ s a -> s{_mnlOrderId = a}) + +instance GoogleRequest MarketplaceNotesList where + type Rs MarketplaceNotesList = GetOrderNotesResponse + requestClient MarketplaceNotesList{..} + = go _mnlOrderId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceNotesListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs @@ -0,0 +1,85 @@ +{-# 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.MarketplaceOffers.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested negotiation. +-- +-- /See:/ for @adexchangebuyer.marketplaceoffers.get@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get + ( + -- * REST Resource + MarketplaceOffersGetResource + + -- * Creating a Request + , marketplaceOffersGet + , MarketplaceOffersGet + + -- * Request Lenses + , mogOfferId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceoffers.get@ method which the +-- 'MarketplaceOffersGet' request conforms to. +type MarketplaceOffersGetResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOffers" :> + Capture "offerId" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] MarketplaceOffer + +-- | Gets the requested negotiation. +-- +-- /See:/ 'marketplaceOffersGet' smart constructor. +newtype MarketplaceOffersGet = MarketplaceOffersGet + { _mogOfferId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOffersGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mogOfferId' +marketplaceOffersGet + :: Text -- ^ 'mogOfferId' + -> MarketplaceOffersGet +marketplaceOffersGet pMogOfferId_ = + MarketplaceOffersGet + { _mogOfferId = pMogOfferId_ + } + +-- | The offerId for the offer to get the head revision for. +mogOfferId :: Lens' MarketplaceOffersGet Text +mogOfferId + = lens _mogOfferId (\ s a -> s{_mogOfferId = a}) + +instance GoogleRequest MarketplaceOffersGet where + type Rs MarketplaceOffersGet = MarketplaceOffer + requestClient MarketplaceOffersGet{..} + = go _mogOfferId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOffersGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hs @@ -0,0 +1,84 @@ +{-# 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.MarketplaceOffers.Search +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested negotiation. +-- +-- /See:/ for @adexchangebuyer.marketplaceoffers.search@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search + ( + -- * REST Resource + MarketplaceOffersSearchResource + + -- * Creating a Request + , marketplaceOffersSearch + , MarketplaceOffersSearch + + -- * Request Lenses + , mPqlQuery + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceoffers.search@ method which the +-- 'MarketplaceOffersSearch' request conforms to. +type MarketplaceOffersSearchResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOffers" :> + "search" :> + QueryParam "pqlQuery" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOffersResponse + +-- | Gets the requested negotiation. +-- +-- /See:/ 'marketplaceOffersSearch' smart constructor. +newtype MarketplaceOffersSearch = MarketplaceOffersSearch + { _mPqlQuery :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOffersSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mPqlQuery' +marketplaceOffersSearch + :: MarketplaceOffersSearch +marketplaceOffersSearch = + MarketplaceOffersSearch + { _mPqlQuery = Nothing + } + +-- | The pql query used to query for offers. +mPqlQuery :: Lens' MarketplaceOffersSearch (Maybe Text) +mPqlQuery + = lens _mPqlQuery (\ s a -> s{_mPqlQuery = a}) + +instance GoogleRequest MarketplaceOffersSearch where + type Rs MarketplaceOffersSearch = GetOffersResponse + requestClient MarketplaceOffersSearch{..} + = go _mPqlQuery (Just AltJSON) adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOffersSearchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hs @@ -0,0 +1,85 @@ +{-# 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.MarketplaceOrders.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Get an order given its id +-- +-- /See:/ for @adexchangebuyer.marketplaceorders.get@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get + ( + -- * REST Resource + MarketplaceOrdersGetResource + + -- * Creating a Request + , marketplaceOrdersGet + , MarketplaceOrdersGet + + -- * Request Lenses + , mogOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceorders.get@ method which the +-- 'MarketplaceOrdersGet' request conforms to. +type MarketplaceOrdersGetResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] MarketplaceOrder + +-- | Get an order given its id +-- +-- /See:/ 'marketplaceOrdersGet' smart constructor. +newtype MarketplaceOrdersGet = MarketplaceOrdersGet + { _mogOrderId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOrdersGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mogOrderId' +marketplaceOrdersGet + :: Text -- ^ 'mogOrderId' + -> MarketplaceOrdersGet +marketplaceOrdersGet pMogOrderId_ = + MarketplaceOrdersGet + { _mogOrderId = pMogOrderId_ + } + +-- | Id of the order to retrieve. +mogOrderId :: Lens' MarketplaceOrdersGet Text +mogOrderId + = lens _mogOrderId (\ s a -> s{_mogOrderId = a}) + +instance GoogleRequest MarketplaceOrdersGet where + type Rs MarketplaceOrdersGet = MarketplaceOrder + requestClient MarketplaceOrdersGet{..} + = go _mogOrderId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOrdersGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hs @@ -0,0 +1,87 @@ +{-# 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.MarketplaceOrders.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Create the given list of orders +-- +-- /See:/ for @adexchangebuyer.marketplaceorders.insert@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert + ( + -- * REST Resource + MarketplaceOrdersInsertResource + + -- * Creating a Request + , marketplaceOrdersInsert + , MarketplaceOrdersInsert + + -- * Request Lenses + , moiPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceorders.insert@ method which the +-- 'MarketplaceOrdersInsert' request conforms to. +type MarketplaceOrdersInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + "insert" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] CreateOrdersRequest :> + Post '[JSON] CreateOrdersResponse + +-- | Create the given list of orders +-- +-- /See:/ 'marketplaceOrdersInsert' smart constructor. +newtype MarketplaceOrdersInsert = MarketplaceOrdersInsert + { _moiPayload :: CreateOrdersRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOrdersInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'moiPayload' +marketplaceOrdersInsert + :: CreateOrdersRequest -- ^ 'moiPayload' + -> MarketplaceOrdersInsert +marketplaceOrdersInsert pMoiPayload_ = + MarketplaceOrdersInsert + { _moiPayload = pMoiPayload_ + } + +-- | Multipart request metadata. +moiPayload :: Lens' MarketplaceOrdersInsert CreateOrdersRequest +moiPayload + = lens _moiPayload (\ s a -> s{_moiPayload = a}) + +instance GoogleRequest MarketplaceOrdersInsert where + type Rs MarketplaceOrdersInsert = + CreateOrdersResponse + requestClient MarketplaceOrdersInsert{..} + = go (Just AltJSON) _moiPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOrdersInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hs @@ -0,0 +1,131 @@ +{-# 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.MarketplaceOrders.Patch +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update the given order. This method supports patch semantics. +-- +-- /See:/ for @adexchangebuyer.marketplaceorders.patch@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch + ( + -- * REST Resource + MarketplaceOrdersPatchResource + + -- * Creating a Request + , marketplaceOrdersPatch + , MarketplaceOrdersPatch + + -- * Request Lenses + , mopUpdateAction + , mopRevisionNumber + , mopPayload + , mopOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceorders.patch@ method which the +-- 'MarketplaceOrdersPatch' request conforms to. +type MarketplaceOrdersPatchResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + Capture "revisionNumber" (Textual Int64) :> + Capture "updateAction" + MarketplaceOrdersPatchUpdateAction + :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] MarketplaceOrder :> + Patch '[JSON] MarketplaceOrder + +-- | Update the given order. This method supports patch semantics. +-- +-- /See:/ 'marketplaceOrdersPatch' smart constructor. +data MarketplaceOrdersPatch = MarketplaceOrdersPatch + { _mopUpdateAction :: !MarketplaceOrdersPatchUpdateAction + , _mopRevisionNumber :: !(Textual Int64) + , _mopPayload :: !MarketplaceOrder + , _mopOrderId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOrdersPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mopUpdateAction' +-- +-- * 'mopRevisionNumber' +-- +-- * 'mopPayload' +-- +-- * 'mopOrderId' +marketplaceOrdersPatch + :: MarketplaceOrdersPatchUpdateAction -- ^ 'mopUpdateAction' + -> Int64 -- ^ 'mopRevisionNumber' + -> MarketplaceOrder -- ^ 'mopPayload' + -> Text -- ^ 'mopOrderId' + -> MarketplaceOrdersPatch +marketplaceOrdersPatch pMopUpdateAction_ pMopRevisionNumber_ pMopPayload_ pMopOrderId_ = + MarketplaceOrdersPatch + { _mopUpdateAction = pMopUpdateAction_ + , _mopRevisionNumber = _Coerce # pMopRevisionNumber_ + , _mopPayload = pMopPayload_ + , _mopOrderId = pMopOrderId_ + } + +-- | The proposed action to take on the order. +mopUpdateAction :: Lens' MarketplaceOrdersPatch MarketplaceOrdersPatchUpdateAction +mopUpdateAction + = lens _mopUpdateAction + (\ s a -> s{_mopUpdateAction = a}) + +-- | The last known revision number to update. If the head revision in the +-- marketplace database has since changed, an error will be thrown. The +-- caller should then fetch the lastest order at head revision and retry +-- the update at that revision. +mopRevisionNumber :: Lens' MarketplaceOrdersPatch Int64 +mopRevisionNumber + = lens _mopRevisionNumber + (\ s a -> s{_mopRevisionNumber = a}) + . _Coerce + +-- | Multipart request metadata. +mopPayload :: Lens' MarketplaceOrdersPatch MarketplaceOrder +mopPayload + = lens _mopPayload (\ s a -> s{_mopPayload = a}) + +-- | The order id to update. +mopOrderId :: Lens' MarketplaceOrdersPatch Text +mopOrderId + = lens _mopOrderId (\ s a -> s{_mopOrderId = a}) + +instance GoogleRequest MarketplaceOrdersPatch where + type Rs MarketplaceOrdersPatch = MarketplaceOrder + requestClient MarketplaceOrdersPatch{..} + = go _mopOrderId _mopRevisionNumber _mopUpdateAction + (Just AltJSON) + _mopPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOrdersPatchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hs @@ -0,0 +1,85 @@ +{-# 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.MarketplaceOrders.Search +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search for orders using pql query +-- +-- /See:/ for @adexchangebuyer.marketplaceorders.search@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search + ( + -- * REST Resource + MarketplaceOrdersSearchResource + + -- * Creating a Request + , marketplaceOrdersSearch + , MarketplaceOrdersSearch + + -- * Request Lenses + , mosPqlQuery + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceorders.search@ method which the +-- 'MarketplaceOrdersSearch' request conforms to. +type MarketplaceOrdersSearchResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + "search" :> + QueryParam "pqlQuery" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOrdersResponse + +-- | Search for orders using pql query +-- +-- /See:/ 'marketplaceOrdersSearch' smart constructor. +newtype MarketplaceOrdersSearch = MarketplaceOrdersSearch + { _mosPqlQuery :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOrdersSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mosPqlQuery' +marketplaceOrdersSearch + :: MarketplaceOrdersSearch +marketplaceOrdersSearch = + MarketplaceOrdersSearch + { _mosPqlQuery = Nothing + } + +-- | Query string to retrieve specific orders. +mosPqlQuery :: Lens' MarketplaceOrdersSearch (Maybe Text) +mosPqlQuery + = lens _mosPqlQuery (\ s a -> s{_mosPqlQuery = a}) + +instance GoogleRequest MarketplaceOrdersSearch where + type Rs MarketplaceOrdersSearch = GetOrdersResponse + requestClient MarketplaceOrdersSearch{..} + = go _mosPqlQuery (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOrdersSearchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hs @@ -0,0 +1,131 @@ +{-# 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.MarketplaceOrders.Update +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update the given order +-- +-- /See:/ for @adexchangebuyer.marketplaceorders.update@. +module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update + ( + -- * REST Resource + MarketplaceOrdersUpdateResource + + -- * Creating a Request + , marketplaceOrdersUpdate + , MarketplaceOrdersUpdate + + -- * Request Lenses + , mouUpdateAction + , mouRevisionNumber + , mouPayload + , mouOrderId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceorders.update@ method which the +-- 'MarketplaceOrdersUpdate' request conforms to. +type MarketplaceOrdersUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "marketplaceOrders" :> + Capture "orderId" Text :> + Capture "revisionNumber" (Textual Int64) :> + Capture "updateAction" + MarketplaceOrdersUpdateUpdateAction + :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] MarketplaceOrder :> + Put '[JSON] MarketplaceOrder + +-- | Update the given order +-- +-- /See:/ 'marketplaceOrdersUpdate' smart constructor. +data MarketplaceOrdersUpdate = MarketplaceOrdersUpdate + { _mouUpdateAction :: !MarketplaceOrdersUpdateUpdateAction + , _mouRevisionNumber :: !(Textual Int64) + , _mouPayload :: !MarketplaceOrder + , _mouOrderId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceOrdersUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mouUpdateAction' +-- +-- * 'mouRevisionNumber' +-- +-- * 'mouPayload' +-- +-- * 'mouOrderId' +marketplaceOrdersUpdate + :: MarketplaceOrdersUpdateUpdateAction -- ^ 'mouUpdateAction' + -> Int64 -- ^ 'mouRevisionNumber' + -> MarketplaceOrder -- ^ 'mouPayload' + -> Text -- ^ 'mouOrderId' + -> MarketplaceOrdersUpdate +marketplaceOrdersUpdate pMouUpdateAction_ pMouRevisionNumber_ pMouPayload_ pMouOrderId_ = + MarketplaceOrdersUpdate + { _mouUpdateAction = pMouUpdateAction_ + , _mouRevisionNumber = _Coerce # pMouRevisionNumber_ + , _mouPayload = pMouPayload_ + , _mouOrderId = pMouOrderId_ + } + +-- | The proposed action to take on the order. +mouUpdateAction :: Lens' MarketplaceOrdersUpdate MarketplaceOrdersUpdateUpdateAction +mouUpdateAction + = lens _mouUpdateAction + (\ s a -> s{_mouUpdateAction = a}) + +-- | The last known revision number to update. If the head revision in the +-- marketplace database has since changed, an error will be thrown. The +-- caller should then fetch the lastest order at head revision and retry +-- the update at that revision. +mouRevisionNumber :: Lens' MarketplaceOrdersUpdate Int64 +mouRevisionNumber + = lens _mouRevisionNumber + (\ s a -> s{_mouRevisionNumber = a}) + . _Coerce + +-- | Multipart request metadata. +mouPayload :: Lens' MarketplaceOrdersUpdate MarketplaceOrder +mouPayload + = lens _mouPayload (\ s a -> s{_mouPayload = a}) + +-- | The order id to update. +mouOrderId :: Lens' MarketplaceOrdersUpdate Text +mouOrderId + = lens _mouOrderId (\ s a -> s{_mouOrderId = a}) + +instance GoogleRequest MarketplaceOrdersUpdate where + type Rs MarketplaceOrdersUpdate = MarketplaceOrder + requestClient MarketplaceOrdersUpdate{..} + = go _mouOrderId _mouRevisionNumber _mouUpdateAction + (Just AltJSON) + _mouPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy MarketplaceOrdersUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs @@ -0,0 +1,99 @@ +{-# 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.NegotiationRounds.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Adds the requested negotiationRound to the requested negotiation. +-- +-- /See:/ for @adexchangebuyer.negotiationrounds.insert@. +module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert + ( + -- * REST Resource + NegotiationRoundsInsertResource + + -- * Creating a Request + , negotiationRoundsInsert + , NegotiationRoundsInsert + + -- * Request Lenses + , nriPayload + , nriNegotiationId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.negotiationrounds.insert@ method which the +-- 'NegotiationRoundsInsert' request conforms to. +type NegotiationRoundsInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "negotiations" :> + Capture "negotiationId" (Textual Int64) :> + "negotiationrounds" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] NegotiationRoundDTO :> + Post '[JSON] NegotiationRoundDTO + +-- | Adds the requested negotiationRound to the requested negotiation. +-- +-- /See:/ 'negotiationRoundsInsert' smart constructor. +data NegotiationRoundsInsert = NegotiationRoundsInsert + { _nriPayload :: !NegotiationRoundDTO + , _nriNegotiationId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'NegotiationRoundsInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'nriPayload' +-- +-- * 'nriNegotiationId' +negotiationRoundsInsert + :: NegotiationRoundDTO -- ^ 'nriPayload' + -> Int64 -- ^ 'nriNegotiationId' + -> NegotiationRoundsInsert +negotiationRoundsInsert pNriPayload_ pNriNegotiationId_ = + NegotiationRoundsInsert + { _nriPayload = pNriPayload_ + , _nriNegotiationId = _Coerce # pNriNegotiationId_ + } + +-- | Multipart request metadata. +nriPayload :: Lens' NegotiationRoundsInsert NegotiationRoundDTO +nriPayload + = lens _nriPayload (\ s a -> s{_nriPayload = a}) + +nriNegotiationId :: Lens' NegotiationRoundsInsert Int64 +nriNegotiationId + = lens _nriNegotiationId + (\ s a -> s{_nriNegotiationId = a}) + . _Coerce + +instance GoogleRequest NegotiationRoundsInsert where + type Rs NegotiationRoundsInsert = NegotiationRoundDTO + requestClient NegotiationRoundsInsert{..} + = go _nriNegotiationId (Just AltJSON) _nriPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy NegotiationRoundsInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs @@ -0,0 +1,98 @@ +{-# 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.Negotiations.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested negotiation. +-- +-- /See:/ for @adexchangebuyer.negotiations.get@. +module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get + ( + -- * REST Resource + NegotiationsGetResource + + -- * Creating a Request + , negotiationsGet + , NegotiationsGet + + -- * Request Lenses + , ngPayload + , ngNegotiationId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.negotiations.get@ method which the +-- 'NegotiationsGet' request conforms to. +type NegotiationsGetResource = + "adexchangebuyer" :> + "v1.4" :> + "negotiations" :> + Capture "negotiationId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GetNegotiationByIdRequest :> + Get '[JSON] NegotiationDTO + +-- | Gets the requested negotiation. +-- +-- /See:/ 'negotiationsGet' smart constructor. +data NegotiationsGet = NegotiationsGet + { _ngPayload :: !GetNegotiationByIdRequest + , _ngNegotiationId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'NegotiationsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ngPayload' +-- +-- * 'ngNegotiationId' +negotiationsGet + :: GetNegotiationByIdRequest -- ^ 'ngPayload' + -> Int64 -- ^ 'ngNegotiationId' + -> NegotiationsGet +negotiationsGet pNgPayload_ pNgNegotiationId_ = + NegotiationsGet + { _ngPayload = pNgPayload_ + , _ngNegotiationId = _Coerce # pNgNegotiationId_ + } + +-- | Multipart request metadata. +ngPayload :: Lens' NegotiationsGet GetNegotiationByIdRequest +ngPayload + = lens _ngPayload (\ s a -> s{_ngPayload = a}) + +ngNegotiationId :: Lens' NegotiationsGet Int64 +ngNegotiationId + = lens _ngNegotiationId + (\ s a -> s{_ngNegotiationId = a}) + . _Coerce + +instance GoogleRequest NegotiationsGet where + type Rs NegotiationsGet = NegotiationDTO + requestClient NegotiationsGet{..} + = go _ngNegotiationId (Just AltJSON) _ngPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy NegotiationsGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs @@ -0,0 +1,84 @@ +{-# 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.Negotiations.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates or updates the requested negotiation. +-- +-- /See:/ for @adexchangebuyer.negotiations.insert@. +module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert + ( + -- * REST Resource + NegotiationsInsertResource + + -- * Creating a Request + , negotiationsInsert + , NegotiationsInsert + + -- * Request Lenses + , niPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.negotiations.insert@ method which the +-- 'NegotiationsInsert' request conforms to. +type NegotiationsInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "negotiations" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] NegotiationDTO :> + Post '[JSON] NegotiationDTO + +-- | Creates or updates the requested negotiation. +-- +-- /See:/ 'negotiationsInsert' smart constructor. +newtype NegotiationsInsert = NegotiationsInsert + { _niPayload :: NegotiationDTO + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'NegotiationsInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'niPayload' +negotiationsInsert + :: NegotiationDTO -- ^ 'niPayload' + -> NegotiationsInsert +negotiationsInsert pNiPayload_ = + NegotiationsInsert + { _niPayload = pNiPayload_ + } + +-- | Multipart request metadata. +niPayload :: Lens' NegotiationsInsert NegotiationDTO +niPayload + = lens _niPayload (\ s a -> s{_niPayload = a}) + +instance GoogleRequest NegotiationsInsert where + type Rs NegotiationsInsert = NegotiationDTO + requestClient NegotiationsInsert{..} + = go (Just AltJSON) _niPayload adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy NegotiationsInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs @@ -0,0 +1,84 @@ +{-# 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.Negotiations.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists all negotiations the authenticated user has access to. +-- +-- /See:/ for @adexchangebuyer.negotiations.list@. +module Network.Google.Resource.AdExchangeBuyer.Negotiations.List + ( + -- * REST Resource + NegotiationsListResource + + -- * Creating a Request + , negotiationsList + , NegotiationsList + + -- * Request Lenses + , nlPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.negotiations.list@ method which the +-- 'NegotiationsList' request conforms to. +type NegotiationsListResource = + "adexchangebuyer" :> + "v1.4" :> + "negotiations" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] GetNegotiationsRequest :> + Get '[JSON] GetNegotiationsResponse + +-- | Lists all negotiations the authenticated user has access to. +-- +-- /See:/ 'negotiationsList' smart constructor. +newtype NegotiationsList = NegotiationsList + { _nlPayload :: GetNegotiationsRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'NegotiationsList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'nlPayload' +negotiationsList + :: GetNegotiationsRequest -- ^ 'nlPayload' + -> NegotiationsList +negotiationsList pNlPayload_ = + NegotiationsList + { _nlPayload = pNlPayload_ + } + +-- | Multipart request metadata. +nlPayload :: Lens' NegotiationsList GetNegotiationsRequest +nlPayload + = lens _nlPayload (\ s a -> s{_nlPayload = a}) + +instance GoogleRequest NegotiationsList where + type Rs NegotiationsList = GetNegotiationsResponse + requestClient NegotiationsList{..} + = go (Just AltJSON) _nlPayload adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy NegotiationsListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs @@ -0,0 +1,82 @@ +{-# 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.Offers.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested offer. +-- +-- /See:/ for @adexchangebuyer.offers.get@. +module Network.Google.Resource.AdExchangeBuyer.Offers.Get + ( + -- * REST Resource + OffersGetResource + + -- * Creating a Request + , offersGet + , OffersGet + + -- * Request Lenses + , ogOfferId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.offers.get@ method which the +-- 'OffersGet' request conforms to. +type OffersGetResource = + "adexchangebuyer" :> + "v1.4" :> + "offers" :> + Capture "offerId" (Textual Int64) :> + QueryParam "alt" AltJSON :> Get '[JSON] OfferDTO + +-- | Gets the requested offer. +-- +-- /See:/ 'offersGet' smart constructor. +newtype OffersGet = OffersGet + { _ogOfferId :: Textual Int64 + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'OffersGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ogOfferId' +offersGet + :: Int64 -- ^ 'ogOfferId' + -> OffersGet +offersGet pOgOfferId_ = + OffersGet + { _ogOfferId = _Coerce # pOgOfferId_ + } + +ogOfferId :: Lens' OffersGet Int64 +ogOfferId + = lens _ogOfferId (\ s a -> s{_ogOfferId = a}) . + _Coerce + +instance GoogleRequest OffersGet where + type Rs OffersGet = OfferDTO + requestClient OffersGet{..} + = go _ogOfferId (Just AltJSON) adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy OffersGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs @@ -0,0 +1,82 @@ +{-# 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.Offers.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates or updates the requested offer. +-- +-- /See:/ for @adexchangebuyer.offers.insert@. +module Network.Google.Resource.AdExchangeBuyer.Offers.Insert + ( + -- * REST Resource + OffersInsertResource + + -- * Creating a Request + , offersInsert + , OffersInsert + + -- * Request Lenses + , oiPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.offers.insert@ method which the +-- 'OffersInsert' request conforms to. +type OffersInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "offers" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] OfferDTO :> Post '[JSON] OfferDTO + +-- | Creates or updates the requested offer. +-- +-- /See:/ 'offersInsert' smart constructor. +newtype OffersInsert = OffersInsert + { _oiPayload :: OfferDTO + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'OffersInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'oiPayload' +offersInsert + :: OfferDTO -- ^ 'oiPayload' + -> OffersInsert +offersInsert pOiPayload_ = + OffersInsert + { _oiPayload = pOiPayload_ + } + +-- | Multipart request metadata. +oiPayload :: Lens' OffersInsert OfferDTO +oiPayload + = lens _oiPayload (\ s a -> s{_oiPayload = a}) + +instance GoogleRequest OffersInsert where + type Rs OffersInsert = OfferDTO + requestClient OffersInsert{..} + = go (Just AltJSON) _oiPayload adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy OffersInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs @@ -0,0 +1,83 @@ +{-# 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.Offers.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Lists all offers the authenticated user has access to. +-- +-- /See:/ for @adexchangebuyer.offers.list@. +module Network.Google.Resource.AdExchangeBuyer.Offers.List + ( + -- * REST Resource + OffersListResource + + -- * Creating a Request + , offersList + , OffersList + + -- * Request Lenses + , olPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.offers.list@ method which the +-- 'OffersList' request conforms to. +type OffersListResource = + "adexchangebuyer" :> + "v1.4" :> + "offers" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] ListOffersRequest :> + Get '[JSON] ListOffersResponse + +-- | Lists all offers the authenticated user has access to. +-- +-- /See:/ 'offersList' smart constructor. +newtype OffersList = OffersList + { _olPayload :: ListOffersRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'OffersList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'olPayload' +offersList + :: ListOffersRequest -- ^ 'olPayload' + -> OffersList +offersList pOlPayload_ = + OffersList + { _olPayload = pOlPayload_ + } + +-- | Multipart request metadata. +olPayload :: Lens' OffersList ListOffersRequest +olPayload + = lens _olPayload (\ s a -> s{_olPayload = a}) + +instance GoogleRequest OffersList where + type Rs OffersList = ListOffersResponse + requestClient OffersList{..} + = go (Just AltJSON) _olPayload adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy OffersListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs @@ -0,0 +1,144 @@ +{-# 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.PerformanceReport.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the authenticated user\'s list of performance metrics. +-- +-- /See:/ for @adexchangebuyer.performanceReport.list@. +module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List + ( + -- * REST Resource + PerformanceReportListResource + + -- * Creating a Request + , performanceReportList' + , PerformanceReportList' + + -- * Request Lenses + , prlAccountId + , prlPageToken + , prlEndDateTime + , prlMaxResults + , prlStartDateTime + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.performanceReport.list@ method which the +-- 'PerformanceReportList'' request conforms to. +type PerformanceReportListResource = + "adexchangebuyer" :> + "v1.4" :> + "performancereport" :> + QueryParam "accountId" (Textual Int64) :> + QueryParam "endDateTime" Text :> + QueryParam "startDateTime" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] PerformanceReportList + +-- | Retrieves the authenticated user\'s list of performance metrics. +-- +-- /See:/ 'performanceReportList'' smart constructor. +data PerformanceReportList' = PerformanceReportList' + { _prlAccountId :: !(Textual Int64) + , _prlPageToken :: !(Maybe Text) + , _prlEndDateTime :: !Text + , _prlMaxResults :: !(Maybe (Textual Word32)) + , _prlStartDateTime :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'prlAccountId' +-- +-- * 'prlPageToken' +-- +-- * 'prlEndDateTime' +-- +-- * 'prlMaxResults' +-- +-- * 'prlStartDateTime' +performanceReportList' + :: Int64 -- ^ 'prlAccountId' + -> Text -- ^ 'prlEndDateTime' + -> Text -- ^ 'prlStartDateTime' + -> PerformanceReportList' +performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ = + PerformanceReportList' + { _prlAccountId = _Coerce # pPrlAccountId_ + , _prlPageToken = Nothing + , _prlEndDateTime = pPrlEndDateTime_ + , _prlMaxResults = Nothing + , _prlStartDateTime = pPrlStartDateTime_ + } + +-- | The account id to get the reports. +prlAccountId :: Lens' PerformanceReportList' Int64 +prlAccountId + = lens _prlAccountId (\ s a -> s{_prlAccountId = a}) + . _Coerce + +-- | A continuation token, used to page through performance reports. To +-- retrieve the next page, set this parameter to the value of +-- \"nextPageToken\" from the previous response. Optional. +prlPageToken :: Lens' PerformanceReportList' (Maybe Text) +prlPageToken + = lens _prlPageToken (\ s a -> s{_prlPageToken = a}) + +-- | The end time of the report in ISO 8601 timestamp format using UTC. +prlEndDateTime :: Lens' PerformanceReportList' Text +prlEndDateTime + = lens _prlEndDateTime + (\ s a -> s{_prlEndDateTime = a}) + +-- | Maximum number of entries returned on one result page. If not set, the +-- default is 100. Optional. +prlMaxResults :: Lens' PerformanceReportList' (Maybe Word32) +prlMaxResults + = lens _prlMaxResults + (\ s a -> s{_prlMaxResults = a}) + . mapping _Coerce + +-- | The start time of the report in ISO 8601 timestamp format using UTC. +prlStartDateTime :: Lens' PerformanceReportList' Text +prlStartDateTime + = lens _prlStartDateTime + (\ s a -> s{_prlStartDateTime = a}) + +instance GoogleRequest PerformanceReportList' where + type Rs PerformanceReportList' = + PerformanceReportList + requestClient PerformanceReportList'{..} + = go (Just _prlAccountId) (Just _prlEndDateTime) + (Just _prlStartDateTime) + _prlPageToken + _prlMaxResults + (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PerformanceReportListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs @@ -0,0 +1,98 @@ +{-# 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.PretargetingConfig.Delete +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes an existing pretargeting config. +-- +-- /See:/ for @adexchangebuyer.pretargetingConfig.delete@. +module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete + ( + -- * REST Resource + PretargetingConfigDeleteResource + + -- * Creating a Request + , pretargetingConfigDelete + , PretargetingConfigDelete + + -- * Request Lenses + , pcdAccountId + , pcdConfigId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pretargetingConfig.delete@ method which the +-- 'PretargetingConfigDelete' request conforms to. +type PretargetingConfigDeleteResource = + "adexchangebuyer" :> + "v1.4" :> + "pretargetingconfigs" :> + Capture "accountId" (Textual Int64) :> + Capture "configId" (Textual Int64) :> + QueryParam "alt" AltJSON :> Delete '[JSON] () + +-- | Deletes an existing pretargeting config. +-- +-- /See:/ 'pretargetingConfigDelete' smart constructor. +data PretargetingConfigDelete = PretargetingConfigDelete + { _pcdAccountId :: !(Textual Int64) + , _pcdConfigId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigDelete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcdAccountId' +-- +-- * 'pcdConfigId' +pretargetingConfigDelete + :: Int64 -- ^ 'pcdAccountId' + -> Int64 -- ^ 'pcdConfigId' + -> PretargetingConfigDelete +pretargetingConfigDelete pPcdAccountId_ pPcdConfigId_ = + PretargetingConfigDelete + { _pcdAccountId = _Coerce # pPcdAccountId_ + , _pcdConfigId = _Coerce # pPcdConfigId_ + } + +-- | The account id to delete the pretargeting config for. +pcdAccountId :: Lens' PretargetingConfigDelete Int64 +pcdAccountId + = lens _pcdAccountId (\ s a -> s{_pcdAccountId = a}) + . _Coerce + +-- | The specific id of the configuration to delete. +pcdConfigId :: Lens' PretargetingConfigDelete Int64 +pcdConfigId + = lens _pcdConfigId (\ s a -> s{_pcdConfigId = a}) . + _Coerce + +instance GoogleRequest PretargetingConfigDelete where + type Rs PretargetingConfigDelete = () + requestClient PretargetingConfigDelete{..} + = go _pcdAccountId _pcdConfigId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PretargetingConfigDeleteResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs @@ -0,0 +1,99 @@ +{-# 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.PretargetingConfig.Get +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets a specific pretargeting configuration +-- +-- /See:/ for @adexchangebuyer.pretargetingConfig.get@. +module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get + ( + -- * REST Resource + PretargetingConfigGetResource + + -- * Creating a Request + , pretargetingConfigGet + , PretargetingConfigGet + + -- * Request Lenses + , pcgAccountId + , pcgConfigId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pretargetingConfig.get@ method which the +-- 'PretargetingConfigGet' request conforms to. +type PretargetingConfigGetResource = + "adexchangebuyer" :> + "v1.4" :> + "pretargetingconfigs" :> + Capture "accountId" (Textual Int64) :> + Capture "configId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + Get '[JSON] PretargetingConfig + +-- | Gets a specific pretargeting configuration +-- +-- /See:/ 'pretargetingConfigGet' smart constructor. +data PretargetingConfigGet = PretargetingConfigGet + { _pcgAccountId :: !(Textual Int64) + , _pcgConfigId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcgAccountId' +-- +-- * 'pcgConfigId' +pretargetingConfigGet + :: Int64 -- ^ 'pcgAccountId' + -> Int64 -- ^ 'pcgConfigId' + -> PretargetingConfigGet +pretargetingConfigGet pPcgAccountId_ pPcgConfigId_ = + PretargetingConfigGet + { _pcgAccountId = _Coerce # pPcgAccountId_ + , _pcgConfigId = _Coerce # pPcgConfigId_ + } + +-- | The account id to get the pretargeting config for. +pcgAccountId :: Lens' PretargetingConfigGet Int64 +pcgAccountId + = lens _pcgAccountId (\ s a -> s{_pcgAccountId = a}) + . _Coerce + +-- | The specific id of the configuration to retrieve. +pcgConfigId :: Lens' PretargetingConfigGet Int64 +pcgConfigId + = lens _pcgConfigId (\ s a -> s{_pcgConfigId = a}) . + _Coerce + +instance GoogleRequest PretargetingConfigGet where + type Rs PretargetingConfigGet = PretargetingConfig + requestClient PretargetingConfigGet{..} + = go _pcgAccountId _pcgConfigId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PretargetingConfigGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs @@ -0,0 +1,98 @@ +{-# 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.PretargetingConfig.Insert +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Inserts a new pretargeting configuration. +-- +-- /See:/ for @adexchangebuyer.pretargetingConfig.insert@. +module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert + ( + -- * REST Resource + PretargetingConfigInsertResource + + -- * Creating a Request + , pretargetingConfigInsert + , PretargetingConfigInsert + + -- * Request Lenses + , pciPayload + , pciAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pretargetingConfig.insert@ method which the +-- 'PretargetingConfigInsert' request conforms to. +type PretargetingConfigInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "pretargetingconfigs" :> + Capture "accountId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] PretargetingConfig :> + Post '[JSON] PretargetingConfig + +-- | Inserts a new pretargeting configuration. +-- +-- /See:/ 'pretargetingConfigInsert' smart constructor. +data PretargetingConfigInsert = PretargetingConfigInsert + { _pciPayload :: !PretargetingConfig + , _pciAccountId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pciPayload' +-- +-- * 'pciAccountId' +pretargetingConfigInsert + :: PretargetingConfig -- ^ 'pciPayload' + -> Int64 -- ^ 'pciAccountId' + -> PretargetingConfigInsert +pretargetingConfigInsert pPciPayload_ pPciAccountId_ = + PretargetingConfigInsert + { _pciPayload = pPciPayload_ + , _pciAccountId = _Coerce # pPciAccountId_ + } + +-- | Multipart request metadata. +pciPayload :: Lens' PretargetingConfigInsert PretargetingConfig +pciPayload + = lens _pciPayload (\ s a -> s{_pciPayload = a}) + +-- | The account id to insert the pretargeting config for. +pciAccountId :: Lens' PretargetingConfigInsert Int64 +pciAccountId + = lens _pciAccountId (\ s a -> s{_pciAccountId = a}) + . _Coerce + +instance GoogleRequest PretargetingConfigInsert where + type Rs PretargetingConfigInsert = PretargetingConfig + requestClient PretargetingConfigInsert{..} + = go _pciAccountId (Just AltJSON) _pciPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PretargetingConfigInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs @@ -0,0 +1,89 @@ +{-# 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.PretargetingConfig.List +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves a list of the authenticated user\'s pretargeting +-- configurations. +-- +-- /See:/ for @adexchangebuyer.pretargetingConfig.list@. +module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List + ( + -- * REST Resource + PretargetingConfigListResource + + -- * Creating a Request + , pretargetingConfigList' + , PretargetingConfigList' + + -- * Request Lenses + , pclAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pretargetingConfig.list@ method which the +-- 'PretargetingConfigList'' request conforms to. +type PretargetingConfigListResource = + "adexchangebuyer" :> + "v1.4" :> + "pretargetingconfigs" :> + Capture "accountId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + Get '[JSON] PretargetingConfigList + +-- | Retrieves a list of the authenticated user\'s pretargeting +-- configurations. +-- +-- /See:/ 'pretargetingConfigList'' smart constructor. +newtype PretargetingConfigList' = PretargetingConfigList' + { _pclAccountId :: Textual Int64 + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pclAccountId' +pretargetingConfigList' + :: Int64 -- ^ 'pclAccountId' + -> PretargetingConfigList' +pretargetingConfigList' pPclAccountId_ = + PretargetingConfigList' + { _pclAccountId = _Coerce # pPclAccountId_ + } + +-- | The account id to get the pretargeting configs for. +pclAccountId :: Lens' PretargetingConfigList' Int64 +pclAccountId + = lens _pclAccountId (\ s a -> s{_pclAccountId = a}) + . _Coerce + +instance GoogleRequest PretargetingConfigList' where + type Rs PretargetingConfigList' = + PretargetingConfigList + requestClient PretargetingConfigList'{..} + = go _pclAccountId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PretargetingConfigListResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs @@ -0,0 +1,114 @@ +{-# 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.PretargetingConfig.Patch +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates an existing pretargeting config. This method supports patch +-- semantics. +-- +-- /See:/ for @adexchangebuyer.pretargetingConfig.patch@. +module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch + ( + -- * REST Resource + PretargetingConfigPatchResource + + -- * Creating a Request + , pretargetingConfigPatch + , PretargetingConfigPatch + + -- * Request Lenses + , pcpPayload + , pcpAccountId + , pcpConfigId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pretargetingConfig.patch@ method which the +-- 'PretargetingConfigPatch' request conforms to. +type PretargetingConfigPatchResource = + "adexchangebuyer" :> + "v1.4" :> + "pretargetingconfigs" :> + Capture "accountId" (Textual Int64) :> + Capture "configId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] PretargetingConfig :> + Patch '[JSON] PretargetingConfig + +-- | Updates an existing pretargeting config. This method supports patch +-- semantics. +-- +-- /See:/ 'pretargetingConfigPatch' smart constructor. +data PretargetingConfigPatch = PretargetingConfigPatch + { _pcpPayload :: !PretargetingConfig + , _pcpAccountId :: !(Textual Int64) + , _pcpConfigId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcpPayload' +-- +-- * 'pcpAccountId' +-- +-- * 'pcpConfigId' +pretargetingConfigPatch + :: PretargetingConfig -- ^ 'pcpPayload' + -> Int64 -- ^ 'pcpAccountId' + -> Int64 -- ^ 'pcpConfigId' + -> PretargetingConfigPatch +pretargetingConfigPatch pPcpPayload_ pPcpAccountId_ pPcpConfigId_ = + PretargetingConfigPatch + { _pcpPayload = pPcpPayload_ + , _pcpAccountId = _Coerce # pPcpAccountId_ + , _pcpConfigId = _Coerce # pPcpConfigId_ + } + +-- | Multipart request metadata. +pcpPayload :: Lens' PretargetingConfigPatch PretargetingConfig +pcpPayload + = lens _pcpPayload (\ s a -> s{_pcpPayload = a}) + +-- | The account id to update the pretargeting config for. +pcpAccountId :: Lens' PretargetingConfigPatch Int64 +pcpAccountId + = lens _pcpAccountId (\ s a -> s{_pcpAccountId = a}) + . _Coerce + +-- | The specific id of the configuration to update. +pcpConfigId :: Lens' PretargetingConfigPatch Int64 +pcpConfigId + = lens _pcpConfigId (\ s a -> s{_pcpConfigId = a}) . + _Coerce + +instance GoogleRequest PretargetingConfigPatch where + type Rs PretargetingConfigPatch = PretargetingConfig + requestClient PretargetingConfigPatch{..} + = go _pcpAccountId _pcpConfigId (Just AltJSON) + _pcpPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PretargetingConfigPatchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs @@ -0,0 +1,112 @@ +{-# 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.PretargetingConfig.Update +-- Copyright : (c) 2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates an existing pretargeting config. +-- +-- /See:/ for @adexchangebuyer.pretargetingConfig.update@. +module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update + ( + -- * REST Resource + PretargetingConfigUpdateResource + + -- * Creating a Request + , pretargetingConfigUpdate + , PretargetingConfigUpdate + + -- * Request Lenses + , pcuPayload + , pcuAccountId + , pcuConfigId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pretargetingConfig.update@ method which the +-- 'PretargetingConfigUpdate' request conforms to. +type PretargetingConfigUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "pretargetingconfigs" :> + Capture "accountId" (Textual Int64) :> + Capture "configId" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] PretargetingConfig :> + Put '[JSON] PretargetingConfig + +-- | Updates an existing pretargeting config. +-- +-- /See:/ 'pretargetingConfigUpdate' smart constructor. +data PretargetingConfigUpdate = PretargetingConfigUpdate + { _pcuPayload :: !PretargetingConfig + , _pcuAccountId :: !(Textual Int64) + , _pcuConfigId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcuPayload' +-- +-- * 'pcuAccountId' +-- +-- * 'pcuConfigId' +pretargetingConfigUpdate + :: PretargetingConfig -- ^ 'pcuPayload' + -> Int64 -- ^ 'pcuAccountId' + -> Int64 -- ^ 'pcuConfigId' + -> PretargetingConfigUpdate +pretargetingConfigUpdate pPcuPayload_ pPcuAccountId_ pPcuConfigId_ = + PretargetingConfigUpdate + { _pcuPayload = pPcuPayload_ + , _pcuAccountId = _Coerce # pPcuAccountId_ + , _pcuConfigId = _Coerce # pPcuConfigId_ + } + +-- | Multipart request metadata. +pcuPayload :: Lens' PretargetingConfigUpdate PretargetingConfig +pcuPayload + = lens _pcuPayload (\ s a -> s{_pcuPayload = a}) + +-- | The account id to update the pretargeting config for. +pcuAccountId :: Lens' PretargetingConfigUpdate Int64 +pcuAccountId + = lens _pcuAccountId (\ s a -> s{_pcuAccountId = a}) + . _Coerce + +-- | The specific id of the configuration to update. +pcuConfigId :: Lens' PretargetingConfigUpdate Int64 +pcuConfigId + = lens _pcuConfigId (\ s a -> s{_pcuConfigId = a}) . + _Coerce + +instance GoogleRequest PretargetingConfigUpdate where + type Rs PretargetingConfigUpdate = PretargetingConfig + requestClient PretargetingConfigUpdate{..} + = go _pcuAccountId _pcuConfigId (Just AltJSON) + _pcuPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PretargetingConfigUpdateResource) + mempty diff --git a/gogol-adexchange-buyer.cabal b/gogol-adexchange-buyer.cabal new file mode 100644 --- /dev/null +++ b/gogol-adexchange-buyer.cabal @@ -0,0 +1,93 @@ +name: gogol-adexchange-buyer +version: 0.0.1 +synopsis: Google Ad Exchange Buyer SDK. +homepage: https://github.com/brendanhay/gogol +bug-reports: https://github.com/brendanhay/gogol/issues +license: OtherLicense +license-file: LICENSE +author: Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2015 Brendan Hay +category: Network, Google, Cloud +build-type: Simple +cabal-version: >= 1.10 +extra-source-files: README.md + +description: + Accesses your bidding-account information, submits creatives for + validation, finds available direct deals, and retrieves performance + reports. + . + /Warning:/ This is an experimental prototype/preview release which is still + under exploratory development and not intended for public use, caveat emptor! + . + This library is compatible with version @v1.4@ + of the API. + +source-repository head + type: git + location: git://github.com/brendanhay/gogol.git + +library + default-language: Haskell2010 + hs-source-dirs: src gen + + ghc-options: -Wall + + exposed-modules: + Network.Google.AdExchangeBuyer + , Network.Google.AdExchangeBuyer.Types + , Network.Google.Resource.AdExchangeBuyer.Accounts.Get + , Network.Google.Resource.AdExchangeBuyer.Accounts.List + , Network.Google.Resource.AdExchangeBuyer.Accounts.Patch + , Network.Google.Resource.AdExchangeBuyer.Accounts.Update + , Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get + , Network.Google.Resource.AdExchangeBuyer.BillingInfo.List + , Network.Google.Resource.AdExchangeBuyer.Budget.Get + , Network.Google.Resource.AdExchangeBuyer.Budget.Patch + , Network.Google.Resource.AdExchangeBuyer.Budget.Update + , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete + , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get + , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert + , Network.Google.Resource.AdExchangeBuyer.ClientAccess.List + , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch + , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update + , Network.Google.Resource.AdExchangeBuyer.Creatives.Get + , Network.Google.Resource.AdExchangeBuyer.Creatives.Insert + , Network.Google.Resource.AdExchangeBuyer.Creatives.List + , Network.Google.Resource.AdExchangeBuyer.Deals.Get + , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete + , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert + , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List + , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update + , Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert + , Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search + , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update + , Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert + , Network.Google.Resource.AdExchangeBuyer.Negotiations.Get + , Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert + , Network.Google.Resource.AdExchangeBuyer.Negotiations.List + , Network.Google.Resource.AdExchangeBuyer.Offers.Get + , Network.Google.Resource.AdExchangeBuyer.Offers.Insert + , Network.Google.Resource.AdExchangeBuyer.Offers.List + , Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List + , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete + , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get + , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert + , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List + , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch + , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update + + other-modules: + Network.Google.AdExchangeBuyer.Types.Product + , Network.Google.AdExchangeBuyer.Types.Sum + + build-depends: + gogol-core == 0.0.1.* + , base >= 4.7 && < 5