diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/AdExchangeBuyer.hs b/gen/Network/Google/AdExchangeBuyer.hs --- a/gen/Network/Google/AdExchangeBuyer.hs +++ b/gen/Network/Google/AdExchangeBuyer.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.AdExchangeBuyer --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,6 +23,9 @@ -- * Service Configuration adExchangeBuyerService + -- * OAuth Scopes + , adExchangeBuyerScope + -- * API Declaration , AdExchangeBuyerAPI @@ -55,23 +58,8 @@ -- ** 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.addDeal + , module Network.Google.Resource.AdExchangeBuyer.Creatives.AddDeal -- ** adexchangebuyer.creatives.get , module Network.Google.Resource.AdExchangeBuyer.Creatives.Get @@ -82,8 +70,8 @@ -- ** adexchangebuyer.creatives.list , module Network.Google.Resource.AdExchangeBuyer.Creatives.List - -- ** adexchangebuyer.deals.get - , module Network.Google.Resource.AdExchangeBuyer.Deals.Get + -- ** adexchangebuyer.creatives.removeDeal + , module Network.Google.Resource.AdExchangeBuyer.Creatives.RemoveDeal -- ** adexchangebuyer.marketplacedeals.delete , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete @@ -103,47 +91,8 @@ -- ** 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.marketplaceprivateauction.updateproposal + , module Network.Google.Resource.AdExchangeBuyer.Marketplaceprivateauction.Updateproposal -- ** adexchangebuyer.performanceReport.list , module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List @@ -166,29 +115,46 @@ -- ** adexchangebuyer.pretargetingConfig.update , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update - -- * Types + -- ** adexchangebuyer.products.get + , module Network.Google.Resource.AdExchangeBuyer.Products.Get - -- ** BrandDTO - , BrandDTO - , brandDTO - , bdtoAdvertiserId - , bdtoName - , bdtoId + -- ** adexchangebuyer.products.search + , module Network.Google.Resource.AdExchangeBuyer.Products.Search - -- ** MarketplaceOrdersUpdateUpdateAction - , MarketplaceOrdersUpdateUpdateAction (..) + -- ** adexchangebuyer.proposals.get + , module Network.Google.Resource.AdExchangeBuyer.Proposals.Get + -- ** adexchangebuyer.proposals.insert + , module Network.Google.Resource.AdExchangeBuyer.Proposals.Insert + + -- ** adexchangebuyer.proposals.patch + , module Network.Google.Resource.AdExchangeBuyer.Proposals.Patch + + -- ** adexchangebuyer.proposals.search + , module Network.Google.Resource.AdExchangeBuyer.Proposals.Search + + -- ** adexchangebuyer.proposals.setupcomplete + , module Network.Google.Resource.AdExchangeBuyer.Proposals.Setupcomplete + + -- ** adexchangebuyer.proposals.update + , module Network.Google.Resource.AdExchangeBuyer.Proposals.Update + + -- ** adexchangebuyer.pubprofiles.list + , module Network.Google.Resource.AdExchangeBuyer.PubproFiles.List + + -- * Types + -- ** MarketplaceNote , MarketplaceNote , marketplaceNote , mnNote , mnKind , mnTimestampMs + , mnProposalId , mnDealId + , mnProposalRevisionNumber , mnNoteId , mnCreatorRole - , mnOrderId - , mnOrderRevisionNumber -- ** CreativeNATiveAd , CreativeNATiveAd @@ -210,6 +176,7 @@ , EditAllOrderDealsResponse , editAllOrderDealsResponse , eaodrDeals + , eaodrOrderRevisionNumber -- ** CreativesList , CreativesList @@ -226,41 +193,10 @@ , 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 + , corProposals -- ** AccountBidderLocationItem , AccountBidderLocationItem @@ -268,6 +204,7 @@ , abliURL , abliMaximumQps , abliRegion + , abliBidProtocol -- ** PrivateData , PrivateData @@ -290,11 +227,6 @@ , addOrderNotesRequest , aonrNotes - -- ** GetFinalizedNegotiationByExternalDealIdRequest - , GetFinalizedNegotiationByExternalDealIdRequest - , getFinalizedNegotiationByExternalDealIdRequest - , gfnbedirIncludePrivateAuctions - -- ** DeliveryControlFrequencyCap , DeliveryControlFrequencyCap , deliveryControlFrequencyCap @@ -302,21 +234,6 @@ , dcfcNumTimeUnits , dcfcTimeUnitType - -- ** DealPartyDTO - , DealPartyDTO - , dealPartyDTO - , dpdtoBuyerSellerRole - , dpdtoCustomerId - , dpdtoName - , dpdtoWebProperty - , dpdtoBuyer - - -- ** GetNegotiationsResponse - , GetNegotiationsResponse - , getNegotiationsResponse - , gnrKind - , gnrNegotiations - -- ** MarketplaceDealParty , MarketplaceDealParty , marketplaceDealParty @@ -328,16 +245,10 @@ , getOrderNotesResponse , gonrNotes - -- ** RuleKeyValuePair - , RuleKeyValuePair - , ruleKeyValuePair - , rkvpKeyName - , rkvpValue - -- ** GetOrdersResponse , GetOrdersResponse , getOrdersResponse - , gorOrders + , gorProposals -- ** CreativeServingRestrictionsItemDisApprovalReasonsItem , CreativeServingRestrictionsItemDisApprovalReasonsItem @@ -351,36 +262,39 @@ , alKind , alItems + -- ** Dimension + , Dimension + , dimension + , dDimensionValues + , dDimensionType + -- ** CreateOrdersRequest , CreateOrdersRequest , createOrdersRequest + , cProposals , cWebPropertyCode - , cOrders - -- ** AdSize - , AdSize - , adSize - , asHeight - , asWidth - - -- ** MarketplaceOrdersPatchUpdateAction - , MarketplaceOrdersPatchUpdateAction (..) - -- ** CreativeCorrectionsItem , CreativeCorrectionsItem , creativeCorrectionsItem , cciReason , cciDetails + -- ** DealServingMetadata + , DealServingMetadata + , dealServingMetadata + , dsmDealPauseStatus + -- ** AddOrderDealsResponse , AddOrderDealsResponse , addOrderDealsResponse , aodrDeals - , aodrOrderRevisionNumber + , aodrProposalRevisionNumber -- ** DeliveryControl , DeliveryControl , deliveryControl + , dcCreativeBlockingLevel , dcFrequencyCaps , dcDeliveryRateType @@ -388,6 +302,7 @@ , PricePerBuyer , pricePerBuyer , ppbPrice + , ppbAuctionTier , ppbBuyer -- ** Creative @@ -398,6 +313,7 @@ , cHeight , cBuyerCreativeId , cAdvertiserName + , cAdChoicesDestinationURL , cAgencyId , cCorrections , cProductCategories @@ -428,33 +344,18 @@ , tvdptdpDayOfWeek , tvdptdpEndMinute + -- ** DimensionDimensionValue + , DimensionDimensionValue + , dimensionDimensionValue + , ddvName + , ddvId + -- ** 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 @@ -515,7 +416,7 @@ , deleteOrderDealsRequest , dodrUpdateAction , dodrDealIds - , dodrOrderRevisionNumber + , dodrProposalRevisionNumber -- ** CreativesListOpenAuctionStatusFilter , CreativesListOpenAuctionStatusFilter (..) @@ -558,6 +459,7 @@ , pcMobileDevices , pcLanguages , pcVerticals + , pcVideoPlayerSizes , pcConfigId , pcPlacements , pcExcludedUserLists @@ -584,50 +486,43 @@ , tvcsCompanionSizes , tvcsCreativeSizeType - -- ** NegotiationDTO - , NegotiationDTO - , negotiationDTO - , ndtoNegotiationState - , ndtoExternalDealId - , ndtoStatus - , ndtoDealType - , ndtoNegotiationRounds - , ndtoKind - , ndtoBilledBuyer - , ndtoBuyerEmailContacts - , ndtoStats - , ndtoSeller - , ndtoLabelNames - , ndtoOfferId - , ndtoNegotiationId - , ndtoSellerEmailContacts - , ndtoBuyer + -- ** DealTermsGuaranteedFixedPriceTermsBillingInfo + , DealTermsGuaranteedFixedPriceTermsBillingInfo + , dealTermsGuaranteedFixedPriceTermsBillingInfo + , dtgfptbiCurrencyConversionTimeMs + , dtgfptbiPrice + , dtgfptbiOriginalContractedQuantity - -- ** OfferDTO - , OfferDTO - , offerDTO - , odtoCreator - , odtoStatus - , odtoOfferState - , odtoPointOfContact - , odtoTerms - , odtoKind - , odtoBilledBuyer - , odtoOpenToDealParties - , odtoEmailContacts - , odtoLabelNames - , odtoOfferId - , odtoClosedToDealParties - , odtoAnonymous - , odtoIsOpen + -- ** GetPublisherProFilesByAccountIdResponse + , GetPublisherProFilesByAccountIdResponse + , getPublisherProFilesByAccountIdResponse + , gppfbairProFiles - -- ** AudienceSegment - , AudienceSegment - , audienceSegment - , asNumCookies - , asName - , asId - , asDescription + -- ** Proposal + , Proposal + , proposal + , pBuyerPrivateData + , pIsSetupComplete + , pInventorySource + , pBuyerContacts + , pKind + , pOriginatorRole + , pRevisionNumber + , pBilledBuyer + , pPrivateAuctionId + , pIsRenegotiating + , pHasSellerSignedOff + , pSeller + , pProposalId + , pName + , pSellerContacts + , pLabels + , pRevisionTimeMs + , pProposalState + , pLastUpdaterOrCommentorRole + , pNegotiationId + , pHasBuyerSignedOff + , pBuyer -- ** BillingInfoList , BillingInfoList @@ -635,27 +530,6 @@ , 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 @@ -667,29 +541,13 @@ , tvsHeight , tvsWidth - -- ** GetNegotiationsRequest - , GetNegotiationsRequest - , getNegotiationsRequest - , gnrSinceTimestampMillis - , gnrFinalized - , gnrIncludePrivateAuctions - - -- ** MoneyDTO - , MoneyDTO - , moneyDTO - , mdtoCurrencyCode - , mdtoMicros - - -- ** GetNegotiationByIdRequest - , GetNegotiationByIdRequest - , getNegotiationByIdRequest - , gnbirIncludePrivateAuctions - - -- ** ListOffersResponse - , ListOffersResponse - , listOffersResponse - , lorKind - , lorOffers + -- ** UpdatePrivateAuctionProposalRequest + , UpdatePrivateAuctionProposalRequest + , updatePrivateAuctionProposalRequest + , upaprExternalDealId + , upaprUpdateAction + , upaprNote + , upaprProposalRevisionNumber -- ** PretargetingConfigDimensionsItem , PretargetingConfigDimensionsItem @@ -697,18 +555,12 @@ , pcdiHeight , pcdiWidth - -- ** AdvertiserDTO - , AdvertiserDTO - , advertiserDTO - , adtoStatus - , adtoBrands - , adtoName - , adtoId - - -- ** ListClientAccessCapabilitiesResponse - , ListClientAccessCapabilitiesResponse - , listClientAccessCapabilitiesResponse - , lcacrClientAccessPermissions + -- ** PublisherProvidedForecast + , PublisherProvidedForecast + , publisherProvidedForecast + , ppfWeeklyImpressions + , ppfWeeklyUniques + , ppfDimensions -- ** TargetingValue , TargetingValue @@ -730,14 +582,22 @@ , price , pCurrencyCode , pAmountMicros + , pPricingType + -- ** PretargetingConfigVideoPlayerSizesItem + , PretargetingConfigVideoPlayerSizesItem + , pretargetingConfigVideoPlayerSizesItem + , pcvpsiMinWidth + , pcvpsiAspectRatio + , pcvpsiMinHeight + -- ** EditAllOrderDealsRequest , EditAllOrderDealsRequest , editAllOrderDealsRequest , eUpdateAction , eDeals - , eOrder - , eOrderRevisionNumber + , eProposalRevisionNumber + , eProposal -- ** BillingInfo , BillingInfo @@ -760,51 +620,6 @@ , 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 @@ -812,27 +627,32 @@ , cnataiURL , cnataiWidth - -- ** WebPropertyDTO - , WebPropertyDTO - , webPropertyDTO - , wpdtoEnabledForPreferredDeals - , wpdtoSyndicationProduct - , wpdtoName - , wpdtoPropertyCode - , wpdtoId - , wpdtoSiteURLs - , wpdtoAllowInterestTargetedAds - - -- ** ListOffersRequest - , ListOffersRequest - , listOffersRequest - , lorSinceTimestampMillis - - -- ** ClientAccessCapabilities - , ClientAccessCapabilities - , clientAccessCapabilities - , cacClientAccountId - , cacCapabilities + -- ** Product + , Product + , product + , proState + , proInventorySource + , proWebPropertyCode + , proCreationTimeMs + , proTerms + , proLastUpdateTimeMs + , proKind + , proRevisionNumber + , proPrivateAuctionId + , proDeliveryControl + , proHasCreatorSignedOff + , proFlightStartTimeMs + , proSharedTargetings + , proSeller + , proSyndicationProduct + , proFlightEndTimeMs + , proName + , proCreatorContacts + , proPublisherProvidedForecast + , proLabels + , proPublisherProFileId + , proLegacyOfferId + , proProductId -- ** CreativeServingRestrictionsItem , CreativeServingRestrictionsItem @@ -845,7 +665,7 @@ , DeleteOrderDealsResponse , deleteOrderDealsResponse , dDeals - , dOrderRevisionNumber + , dProposalRevisionNumber -- ** PretargetingConfigPlacementsItem , PretargetingConfigPlacementsItem @@ -853,6 +673,33 @@ , pcpiToken , pcpiType + -- ** PublisherProFileAPIProto + , PublisherProFileAPIProto + , publisherProFileAPIProto + , ppfapAudience + , ppfapState + , ppfapMediaKitLink + , ppfapDirectContact + , ppfapSamplePageLink + , ppfapLogoURL + , ppfapKind + , ppfapExchange + , ppfapOverview + , ppfapGooglePlusLink + , ppfapProFileId + , ppfapIsParent + , ppfapSeller + , ppfapAccountId + , ppfapName + , ppfapBuyerPitchStatement + , ppfapPublisherProvidedForecast + , ppfapIsPublished + , ppfapPublisherDomains + , ppfapPublisherProFileId + , ppfapRateCardInfoLink + , ppfapTopHeadlines + , ppfapProgrammaticContact + -- ** MarketplaceDeal , MarketplaceDeal , marketplaceDeal @@ -861,41 +708,35 @@ , mdWebPropertyCode , mdCreationTimeMs , mdTerms - , mdOfferRevisionNumber , mdLastUpdateTimeMs , mdKind , mdDeliveryControl + , mdDealServingMetadata , mdFlightStartTimeMs , mdSharedTargetings + , mdProposalId , mdDealId , mdInventoryDescription , mdSyndicationProduct , mdFlightEndTimeMs , mdName , mdSellerContacts - , mdOfferId - , mdOrderId + , mdProgrammaticCreativeSource + , mdCreativePreApprovalPolicy + , mdProductRevisionNumber + , mdProductId + , mdCreativeSafeFrameCompatibility -- ** GetOffersResponse , GetOffersResponse , getOffersResponse - , gorOffers - - -- ** StatsDTO - , StatsDTO - , statsDTO - , sdtoBids - , sdtoSpend - , sdtoImpressions - , sdtoGoodBids - , sdtoRevenue - , sdtoRequests + , gorProducts -- ** DealTermsNonGuaranteedAuctionTerms , DealTermsNonGuaranteedAuctionTerms , dealTermsNonGuaranteedAuctionTerms , dtngatReservePricePerBuyers - , dtngatPrivateAuctionId + , dtngatAutoOptimizePrivateAuction -- ** CreativeFilteringReasonsReasonsItem , CreativeFilteringReasonsReasonsItem @@ -903,18 +744,8 @@ , cfrriFilteringStatus , cfrriFilteringCount - -- ** NegotiationRoundDTO - , NegotiationRoundDTO - , negotiationRoundDTO - , nrdtoTerms - , nrdtoKind - , nrdtoOriginatorRole - , nrdtoAction - , nrdtoDBmPartnerId - , nrdtoNotes - , nrdtoNegotiationId - , nrdtoEditHistory - , nrdtoRoundNumber + -- ** ProposalsPatchUpdateAction + , ProposalsPatchUpdateAction (..) -- ** CreativesListDealsStatusFilter , CreativesListDealsStatusFilter (..) @@ -922,22 +753,15 @@ -- ** DealTerms , DealTerms , dealTerms + , dtEstimatedGrossSpend , dtNonGuaranteedFixedPriceTerms , dtNonGuaranteedAuctionTerms + , dtBrandingType + , dtEstimatedImpressionsPerDay + , dtSellerTimeZone , dtGuaranteedFixedPriceTerms , dtDescription - -- ** DateTime - , DateTime - , dateTime - , dtSecond - , dtDay - , dtYear - , dtHour - , dtMonth - , dtMinute - , dtTimeZoneId - -- ** MarketplaceLabel , MarketplaceLabel , marketplaceLabel @@ -946,55 +770,34 @@ , mlCreateTimeMs , mlLabel - -- ** EditHistoryDTO - , EditHistoryDTO - , editHistoryDTO - , ehdtoLastUpdatedByLoginName - , ehdtoCreatedByLoginName - , ehdtoLastUpdateTimeStamp - , ehdtoCreatedTimeStamp - -- ** Buyer , Buyer , buyer - , bbAccountId + , buyAccountId - -- ** MarketplaceOrder - , MarketplaceOrder - , marketplaceOrder - , mBuyerPrivateData - , mIsSetupComplete - , mBuyerContacts - , mKind - , mOriginatorRole - , mRevisionNumber - , mBilledBuyer - , mIsRenegotiating - , mHasSellerSignedOff - , mSeller - , mOrderState - , mName - , mSellerContacts - , mLastUpdaterRole - , mLabels - , mRevisionTimeMs - , mOrderId - , mLastUpdaterOrCommentorRole - , mHasBuyerSignedOff - , mBuyer + -- ** ProposalsUpdateUpdateAction + , ProposalsUpdateUpdateAction (..) -- ** AddOrderDealsRequest , AddOrderDealsRequest , addOrderDealsRequest , aUpdateAction , aDeals - , aOrderRevisionNumber + , aProposalRevisionNumber + -- ** DealServingMetadataDealPauseStatus + , DealServingMetadataDealPauseStatus + , dealServingMetadataDealPauseStatus + , dsmdpsFirstPausedBy + , dsmdpsHasBuyerPaused + , dsmdpsHasSellerPaused + -- ** DealTermsGuaranteedFixedPriceTerms , DealTermsGuaranteedFixedPriceTerms , dealTermsGuaranteedFixedPriceTerms , dtgfptGuaranteedLooks , dtgfptGuaranteedImpressions + , dtgfptBillingInfo , dtgfptFixedPrices ) where @@ -1009,36 +812,18 @@ 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.AddDeal 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.Creatives.RemoveDeal 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.Marketplaceprivateauction.Updateproposal import Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get @@ -1046,6 +831,15 @@ import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch import Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update +import Network.Google.Resource.AdExchangeBuyer.Products.Get +import Network.Google.Resource.AdExchangeBuyer.Products.Search +import Network.Google.Resource.AdExchangeBuyer.Proposals.Get +import Network.Google.Resource.AdExchangeBuyer.Proposals.Insert +import Network.Google.Resource.AdExchangeBuyer.Proposals.Patch +import Network.Google.Resource.AdExchangeBuyer.Proposals.Search +import Network.Google.Resource.AdExchangeBuyer.Proposals.Setupcomplete +import Network.Google.Resource.AdExchangeBuyer.Proposals.Update +import Network.Google.Resource.AdExchangeBuyer.PubproFiles.List {- $resources TODO @@ -1055,8 +849,12 @@ type AdExchangeBuyerAPI = MarketplaceNotesInsertResource :<|> MarketplaceNotesListResource - :<|> DealsGetResource - :<|> NegotiationRoundsInsertResource + :<|> ProposalsInsertResource + :<|> ProposalsPatchResource + :<|> ProposalsSetupcompleteResource + :<|> ProposalsGetResource + :<|> ProposalsSearchResource + :<|> ProposalsUpdateResource :<|> AccountsListResource :<|> AccountsPatchResource :<|> AccountsGetResource @@ -1065,37 +863,24 @@ :<|> BudgetGetResource :<|> BudgetUpdateResource :<|> CreativesInsertResource + :<|> CreativesRemoveDealResource :<|> CreativesListResource :<|> CreativesGetResource + :<|> CreativesAddDealResource :<|> PerformanceReportListResource - :<|> MarketplaceOffersGetResource - :<|> MarketplaceOffersSearchResource :<|> PretargetingConfigInsertResource :<|> PretargetingConfigListResource :<|> PretargetingConfigPatchResource :<|> PretargetingConfigGetResource :<|> PretargetingConfigDeleteResource :<|> PretargetingConfigUpdateResource - :<|> MarketplaceOrdersInsertResource - :<|> MarketplaceOrdersPatchResource - :<|> MarketplaceOrdersGetResource - :<|> MarketplaceOrdersSearchResource - :<|> MarketplaceOrdersUpdateResource - :<|> ClientAccessInsertResource - :<|> ClientAccessListResource - :<|> ClientAccessPatchResource - :<|> ClientAccessGetResource - :<|> ClientAccessDeleteResource - :<|> ClientAccessUpdateResource + :<|> PubproFilesListResource :<|> BillingInfoListResource :<|> BillingInfoGetResource + :<|> ProductsGetResource + :<|> ProductsSearchResource :<|> MarketplaceDealsInsertResource :<|> MarketplaceDealsListResource :<|> MarketplaceDealsDeleteResource :<|> MarketplaceDealsUpdateResource - :<|> NegotiationsInsertResource - :<|> NegotiationsListResource - :<|> NegotiationsGetResource - :<|> OffersInsertResource - :<|> OffersListResource - :<|> OffersGetResource + :<|> MarketplaceprivateauctionUpdateproposalResource diff --git a/gen/Network/Google/AdExchangeBuyer/Types.hs b/gen/Network/Google/AdExchangeBuyer/Types.hs --- a/gen/Network/Google/AdExchangeBuyer/Types.hs +++ b/gen/Network/Google/AdExchangeBuyer/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.AdExchangeBuyer.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -19,17 +20,7 @@ adExchangeBuyerService -- * OAuth Scopes - , adexchangeBuyerScope - - -- * BrandDTO - , BrandDTO - , brandDTO - , bdtoAdvertiserId - , bdtoName - , bdtoId - - -- * MarketplaceOrdersUpdateUpdateAction - , MarketplaceOrdersUpdateUpdateAction (..) + , adExchangeBuyerScope -- * MarketplaceNote , MarketplaceNote @@ -37,11 +28,11 @@ , mnNote , mnKind , mnTimestampMs + , mnProposalId , mnDealId + , mnProposalRevisionNumber , mnNoteId , mnCreatorRole - , mnOrderId - , mnOrderRevisionNumber -- * CreativeNATiveAd , CreativeNATiveAd @@ -63,6 +54,7 @@ , EditAllOrderDealsResponse , editAllOrderDealsResponse , eaodrDeals + , eaodrOrderRevisionNumber -- * CreativesList , CreativesList @@ -79,41 +71,10 @@ , 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 + , corProposals -- * AccountBidderLocationItem , AccountBidderLocationItem @@ -121,6 +82,7 @@ , abliURL , abliMaximumQps , abliRegion + , abliBidProtocol -- * PrivateData , PrivateData @@ -143,11 +105,6 @@ , addOrderNotesRequest , aonrNotes - -- * GetFinalizedNegotiationByExternalDealIdRequest - , GetFinalizedNegotiationByExternalDealIdRequest - , getFinalizedNegotiationByExternalDealIdRequest - , gfnbedirIncludePrivateAuctions - -- * DeliveryControlFrequencyCap , DeliveryControlFrequencyCap , deliveryControlFrequencyCap @@ -155,21 +112,6 @@ , dcfcNumTimeUnits , dcfcTimeUnitType - -- * DealPartyDTO - , DealPartyDTO - , dealPartyDTO - , dpdtoBuyerSellerRole - , dpdtoCustomerId - , dpdtoName - , dpdtoWebProperty - , dpdtoBuyer - - -- * GetNegotiationsResponse - , GetNegotiationsResponse - , getNegotiationsResponse - , gnrKind - , gnrNegotiations - -- * MarketplaceDealParty , MarketplaceDealParty , marketplaceDealParty @@ -181,16 +123,10 @@ , getOrderNotesResponse , gonrNotes - -- * RuleKeyValuePair - , RuleKeyValuePair - , ruleKeyValuePair - , rkvpKeyName - , rkvpValue - -- * GetOrdersResponse , GetOrdersResponse , getOrdersResponse - , gorOrders + , gorProposals -- * CreativeServingRestrictionsItemDisApprovalReasonsItem , CreativeServingRestrictionsItemDisApprovalReasonsItem @@ -204,36 +140,39 @@ , alKind , alItems + -- * Dimension + , Dimension + , dimension + , dDimensionValues + , dDimensionType + -- * CreateOrdersRequest , CreateOrdersRequest , createOrdersRequest + , cProposals , cWebPropertyCode - , cOrders - -- * AdSize - , AdSize - , adSize - , asHeight - , asWidth - - -- * MarketplaceOrdersPatchUpdateAction - , MarketplaceOrdersPatchUpdateAction (..) - -- * CreativeCorrectionsItem , CreativeCorrectionsItem , creativeCorrectionsItem , cciReason , cciDetails + -- * DealServingMetadata + , DealServingMetadata + , dealServingMetadata + , dsmDealPauseStatus + -- * AddOrderDealsResponse , AddOrderDealsResponse , addOrderDealsResponse , aodrDeals - , aodrOrderRevisionNumber + , aodrProposalRevisionNumber -- * DeliveryControl , DeliveryControl , deliveryControl + , dcCreativeBlockingLevel , dcFrequencyCaps , dcDeliveryRateType @@ -241,6 +180,7 @@ , PricePerBuyer , pricePerBuyer , ppbPrice + , ppbAuctionTier , ppbBuyer -- * Creative @@ -251,6 +191,7 @@ , cHeight , cBuyerCreativeId , cAdvertiserName + , cAdChoicesDestinationURL , cAgencyId , cCorrections , cProductCategories @@ -281,33 +222,18 @@ , tvdptdpDayOfWeek , tvdptdpEndMinute + -- * DimensionDimensionValue + , DimensionDimensionValue + , dimensionDimensionValue + , ddvName + , ddvId + -- * 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 @@ -368,7 +294,7 @@ , deleteOrderDealsRequest , dodrUpdateAction , dodrDealIds - , dodrOrderRevisionNumber + , dodrProposalRevisionNumber -- * CreativesListOpenAuctionStatusFilter , CreativesListOpenAuctionStatusFilter (..) @@ -411,6 +337,7 @@ , pcMobileDevices , pcLanguages , pcVerticals + , pcVideoPlayerSizes , pcConfigId , pcPlacements , pcExcludedUserLists @@ -437,50 +364,43 @@ , tvcsCompanionSizes , tvcsCreativeSizeType - -- * NegotiationDTO - , NegotiationDTO - , negotiationDTO - , ndtoNegotiationState - , ndtoExternalDealId - , ndtoStatus - , ndtoDealType - , ndtoNegotiationRounds - , ndtoKind - , ndtoBilledBuyer - , ndtoBuyerEmailContacts - , ndtoStats - , ndtoSeller - , ndtoLabelNames - , ndtoOfferId - , ndtoNegotiationId - , ndtoSellerEmailContacts - , ndtoBuyer + -- * DealTermsGuaranteedFixedPriceTermsBillingInfo + , DealTermsGuaranteedFixedPriceTermsBillingInfo + , dealTermsGuaranteedFixedPriceTermsBillingInfo + , dtgfptbiCurrencyConversionTimeMs + , dtgfptbiPrice + , dtgfptbiOriginalContractedQuantity - -- * OfferDTO - , OfferDTO - , offerDTO - , odtoCreator - , odtoStatus - , odtoOfferState - , odtoPointOfContact - , odtoTerms - , odtoKind - , odtoBilledBuyer - , odtoOpenToDealParties - , odtoEmailContacts - , odtoLabelNames - , odtoOfferId - , odtoClosedToDealParties - , odtoAnonymous - , odtoIsOpen + -- * GetPublisherProFilesByAccountIdResponse + , GetPublisherProFilesByAccountIdResponse + , getPublisherProFilesByAccountIdResponse + , gppfbairProFiles - -- * AudienceSegment - , AudienceSegment - , audienceSegment - , asNumCookies - , asName - , asId - , asDescription + -- * Proposal + , Proposal + , proposal + , pBuyerPrivateData + , pIsSetupComplete + , pInventorySource + , pBuyerContacts + , pKind + , pOriginatorRole + , pRevisionNumber + , pBilledBuyer + , pPrivateAuctionId + , pIsRenegotiating + , pHasSellerSignedOff + , pSeller + , pProposalId + , pName + , pSellerContacts + , pLabels + , pRevisionTimeMs + , pProposalState + , pLastUpdaterOrCommentorRole + , pNegotiationId + , pHasBuyerSignedOff + , pBuyer -- * BillingInfoList , BillingInfoList @@ -488,27 +408,6 @@ , 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 @@ -520,29 +419,13 @@ , tvsHeight , tvsWidth - -- * GetNegotiationsRequest - , GetNegotiationsRequest - , getNegotiationsRequest - , gnrSinceTimestampMillis - , gnrFinalized - , gnrIncludePrivateAuctions - - -- * MoneyDTO - , MoneyDTO - , moneyDTO - , mdtoCurrencyCode - , mdtoMicros - - -- * GetNegotiationByIdRequest - , GetNegotiationByIdRequest - , getNegotiationByIdRequest - , gnbirIncludePrivateAuctions - - -- * ListOffersResponse - , ListOffersResponse - , listOffersResponse - , lorKind - , lorOffers + -- * UpdatePrivateAuctionProposalRequest + , UpdatePrivateAuctionProposalRequest + , updatePrivateAuctionProposalRequest + , upaprExternalDealId + , upaprUpdateAction + , upaprNote + , upaprProposalRevisionNumber -- * PretargetingConfigDimensionsItem , PretargetingConfigDimensionsItem @@ -550,18 +433,12 @@ , pcdiHeight , pcdiWidth - -- * AdvertiserDTO - , AdvertiserDTO - , advertiserDTO - , adtoStatus - , adtoBrands - , adtoName - , adtoId - - -- * ListClientAccessCapabilitiesResponse - , ListClientAccessCapabilitiesResponse - , listClientAccessCapabilitiesResponse - , lcacrClientAccessPermissions + -- * PublisherProvidedForecast + , PublisherProvidedForecast + , publisherProvidedForecast + , ppfWeeklyImpressions + , ppfWeeklyUniques + , ppfDimensions -- * TargetingValue , TargetingValue @@ -583,14 +460,22 @@ , price , pCurrencyCode , pAmountMicros + , pPricingType + -- * PretargetingConfigVideoPlayerSizesItem + , PretargetingConfigVideoPlayerSizesItem + , pretargetingConfigVideoPlayerSizesItem + , pcvpsiMinWidth + , pcvpsiAspectRatio + , pcvpsiMinHeight + -- * EditAllOrderDealsRequest , EditAllOrderDealsRequest , editAllOrderDealsRequest , eUpdateAction , eDeals - , eOrder - , eOrderRevisionNumber + , eProposalRevisionNumber + , eProposal -- * BillingInfo , BillingInfo @@ -613,51 +498,6 @@ , 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 @@ -665,27 +505,32 @@ , cnataiURL , cnataiWidth - -- * WebPropertyDTO - , WebPropertyDTO - , webPropertyDTO - , wpdtoEnabledForPreferredDeals - , wpdtoSyndicationProduct - , wpdtoName - , wpdtoPropertyCode - , wpdtoId - , wpdtoSiteURLs - , wpdtoAllowInterestTargetedAds - - -- * ListOffersRequest - , ListOffersRequest - , listOffersRequest - , lorSinceTimestampMillis - - -- * ClientAccessCapabilities - , ClientAccessCapabilities - , clientAccessCapabilities - , cacClientAccountId - , cacCapabilities + -- * Product + , Product + , product + , proState + , proInventorySource + , proWebPropertyCode + , proCreationTimeMs + , proTerms + , proLastUpdateTimeMs + , proKind + , proRevisionNumber + , proPrivateAuctionId + , proDeliveryControl + , proHasCreatorSignedOff + , proFlightStartTimeMs + , proSharedTargetings + , proSeller + , proSyndicationProduct + , proFlightEndTimeMs + , proName + , proCreatorContacts + , proPublisherProvidedForecast + , proLabels + , proPublisherProFileId + , proLegacyOfferId + , proProductId -- * CreativeServingRestrictionsItem , CreativeServingRestrictionsItem @@ -698,7 +543,7 @@ , DeleteOrderDealsResponse , deleteOrderDealsResponse , dDeals - , dOrderRevisionNumber + , dProposalRevisionNumber -- * PretargetingConfigPlacementsItem , PretargetingConfigPlacementsItem @@ -706,6 +551,33 @@ , pcpiToken , pcpiType + -- * PublisherProFileAPIProto + , PublisherProFileAPIProto + , publisherProFileAPIProto + , ppfapAudience + , ppfapState + , ppfapMediaKitLink + , ppfapDirectContact + , ppfapSamplePageLink + , ppfapLogoURL + , ppfapKind + , ppfapExchange + , ppfapOverview + , ppfapGooglePlusLink + , ppfapProFileId + , ppfapIsParent + , ppfapSeller + , ppfapAccountId + , ppfapName + , ppfapBuyerPitchStatement + , ppfapPublisherProvidedForecast + , ppfapIsPublished + , ppfapPublisherDomains + , ppfapPublisherProFileId + , ppfapRateCardInfoLink + , ppfapTopHeadlines + , ppfapProgrammaticContact + -- * MarketplaceDeal , MarketplaceDeal , marketplaceDeal @@ -714,41 +586,35 @@ , mdWebPropertyCode , mdCreationTimeMs , mdTerms - , mdOfferRevisionNumber , mdLastUpdateTimeMs , mdKind , mdDeliveryControl + , mdDealServingMetadata , mdFlightStartTimeMs , mdSharedTargetings + , mdProposalId , mdDealId , mdInventoryDescription , mdSyndicationProduct , mdFlightEndTimeMs , mdName , mdSellerContacts - , mdOfferId - , mdOrderId + , mdProgrammaticCreativeSource + , mdCreativePreApprovalPolicy + , mdProductRevisionNumber + , mdProductId + , mdCreativeSafeFrameCompatibility -- * GetOffersResponse , GetOffersResponse , getOffersResponse - , gorOffers - - -- * StatsDTO - , StatsDTO - , statsDTO - , sdtoBids - , sdtoSpend - , sdtoImpressions - , sdtoGoodBids - , sdtoRevenue - , sdtoRequests + , gorProducts -- * DealTermsNonGuaranteedAuctionTerms , DealTermsNonGuaranteedAuctionTerms , dealTermsNonGuaranteedAuctionTerms , dtngatReservePricePerBuyers - , dtngatPrivateAuctionId + , dtngatAutoOptimizePrivateAuction -- * CreativeFilteringReasonsReasonsItem , CreativeFilteringReasonsReasonsItem @@ -756,18 +622,8 @@ , cfrriFilteringStatus , cfrriFilteringCount - -- * NegotiationRoundDTO - , NegotiationRoundDTO - , negotiationRoundDTO - , nrdtoTerms - , nrdtoKind - , nrdtoOriginatorRole - , nrdtoAction - , nrdtoDBmPartnerId - , nrdtoNotes - , nrdtoNegotiationId - , nrdtoEditHistory - , nrdtoRoundNumber + -- * ProposalsPatchUpdateAction + , ProposalsPatchUpdateAction (..) -- * CreativesListDealsStatusFilter , CreativesListDealsStatusFilter (..) @@ -775,22 +631,15 @@ -- * DealTerms , DealTerms , dealTerms + , dtEstimatedGrossSpend , dtNonGuaranteedFixedPriceTerms , dtNonGuaranteedAuctionTerms + , dtBrandingType + , dtEstimatedImpressionsPerDay + , dtSellerTimeZone , dtGuaranteedFixedPriceTerms , dtDescription - -- * DateTime - , DateTime - , dateTime - , dtSecond - , dtDay - , dtYear - , dtHour - , dtMonth - , dtMinute - , dtTimeZoneId - -- * MarketplaceLabel , MarketplaceLabel , marketplaceLabel @@ -799,55 +648,34 @@ , mlCreateTimeMs , mlLabel - -- * EditHistoryDTO - , EditHistoryDTO - , editHistoryDTO - , ehdtoLastUpdatedByLoginName - , ehdtoCreatedByLoginName - , ehdtoLastUpdateTimeStamp - , ehdtoCreatedTimeStamp - -- * Buyer , Buyer , buyer - , bbAccountId + , buyAccountId - -- * MarketplaceOrder - , MarketplaceOrder - , marketplaceOrder - , mBuyerPrivateData - , mIsSetupComplete - , mBuyerContacts - , mKind - , mOriginatorRole - , mRevisionNumber - , mBilledBuyer - , mIsRenegotiating - , mHasSellerSignedOff - , mSeller - , mOrderState - , mName - , mSellerContacts - , mLastUpdaterRole - , mLabels - , mRevisionTimeMs - , mOrderId - , mLastUpdaterOrCommentorRole - , mHasBuyerSignedOff - , mBuyer + -- * ProposalsUpdateUpdateAction + , ProposalsUpdateUpdateAction (..) -- * AddOrderDealsRequest , AddOrderDealsRequest , addOrderDealsRequest , aUpdateAction , aDeals - , aOrderRevisionNumber + , aProposalRevisionNumber + -- * DealServingMetadataDealPauseStatus + , DealServingMetadataDealPauseStatus + , dealServingMetadataDealPauseStatus + , dsmdpsFirstPausedBy + , dsmdpsHasBuyerPaused + , dsmdpsHasSellerPaused + -- * DealTermsGuaranteedFixedPriceTerms , DealTermsGuaranteedFixedPriceTerms , dealTermsGuaranteedFixedPriceTerms , dtgfptGuaranteedLooks , dtgfptGuaranteedImpressions + , dtgfptBillingInfo , dtgfptFixedPrices ) where @@ -856,11 +684,11 @@ 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 :: ServiceConfig 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"; +adExchangeBuyerScope :: Proxy '["https://www.googleapis.com/auth/adexchange.buyer"] +adExchangeBuyerScope = Proxy; diff --git a/gen/Network/Google/AdExchangeBuyer/Types/Product.hs b/gen/Network/Google/AdExchangeBuyer/Types/Product.hs --- a/gen/Network/Google/AdExchangeBuyer/Types/Product.hs +++ b/gen/Network/Google/AdExchangeBuyer/Types/Product.hs @@ -9,7963 +9,6366 @@ -- | -- 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, +-- Copyright : (c) 2015-2016 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 + +-- | A proposal 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)) + , _mnProposalId :: !(Maybe Text) + , _mnDealId :: !(Maybe Text) + , _mnProposalRevisionNumber :: !(Maybe (Textual Int64)) + , _mnNoteId :: !(Maybe Text) + , _mnCreatorRole :: !(Maybe Text) + } 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' +-- +-- * 'mnProposalId' +-- +-- * 'mnDealId' +-- +-- * 'mnProposalRevisionNumber' +-- +-- * 'mnNoteId' +-- +-- * 'mnCreatorRole' +marketplaceNote + :: MarketplaceNote +marketplaceNote = + MarketplaceNote' + { _mnNote = Nothing + , _mnKind = "adexchangebuyer#marketplaceNote" + , _mnTimestampMs = Nothing + , _mnProposalId = Nothing + , _mnDealId = Nothing + , _mnProposalRevisionNumber = Nothing + , _mnNoteId = Nothing + , _mnCreatorRole = 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 + +-- | The proposalId that a note is attached to. (readonly) +mnProposalId :: Lens' MarketplaceNote (Maybe Text) +mnProposalId + = lens _mnProposalId (\ s a -> s{_mnProposalId = a}) + +-- | 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}) + +-- | If the note is associated with a proposal revision number, then store +-- that here. (readonly, except on create) +mnProposalRevisionNumber :: Lens' MarketplaceNote (Maybe Int64) +mnProposalRevisionNumber + = lens _mnProposalRevisionNumber + (\ s a -> s{_mnProposalRevisionNumber = a}) + . mapping _Coerce + +-- | 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}) + +instance FromJSON MarketplaceNote where + parseJSON + = withObject "MarketplaceNote" + (\ o -> + MarketplaceNote' <$> + (o .:? "note") <*> + (o .:? "kind" .!= "adexchangebuyer#marketplaceNote") + <*> (o .:? "timestampMs") + <*> (o .:? "proposalId") + <*> (o .:? "dealId") + <*> (o .:? "proposalRevisionNumber") + <*> (o .:? "noteId") + <*> (o .:? "creatorRole")) + +instance ToJSON MarketplaceNote where + toJSON MarketplaceNote'{..} + = object + (catMaybes + [("note" .=) <$> _mnNote, Just ("kind" .= _mnKind), + ("timestampMs" .=) <$> _mnTimestampMs, + ("proposalId" .=) <$> _mnProposalId, + ("dealId" .=) <$> _mnDealId, + ("proposalRevisionNumber" .=) <$> + _mnProposalRevisionNumber, + ("noteId" .=) <$> _mnNoteId, + ("creatorRole" .=) <$> _mnCreatorRole]) + +-- | 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. +data EditAllOrderDealsResponse = EditAllOrderDealsResponse' + { _eaodrDeals :: !(Maybe [MarketplaceDeal]) + , _eaodrOrderRevisionNumber :: !(Maybe (Textual Int64)) + } 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' +-- +-- * 'eaodrOrderRevisionNumber' +editAllOrderDealsResponse + :: EditAllOrderDealsResponse +editAllOrderDealsResponse = + EditAllOrderDealsResponse' + { _eaodrDeals = Nothing + , _eaodrOrderRevisionNumber = Nothing + } + +-- | List of all deals in the proposal after edit. +eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal] +eaodrDeals + = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) . + _Default + . _Coerce + +-- | The latest revision number after the update has been applied. +eaodrOrderRevisionNumber :: Lens' EditAllOrderDealsResponse (Maybe Int64) +eaodrOrderRevisionNumber + = lens _eaodrOrderRevisionNumber + (\ s a -> s{_eaodrOrderRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON EditAllOrderDealsResponse where + parseJSON + = withObject "EditAllOrderDealsResponse" + (\ o -> + EditAllOrderDealsResponse' <$> + (o .:? "deals" .!= mempty) <*> + (o .:? "orderRevisionNumber")) + +instance ToJSON EditAllOrderDealsResponse where + toJSON EditAllOrderDealsResponse'{..} + = object + (catMaybes + [("deals" .=) <$> _eaodrDeals, + ("orderRevisionNumber" .=) <$> + _eaodrOrderRevisionNumber]) + +-- | 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:/ 'createOrdersResponse' smart constructor. +newtype CreateOrdersResponse = CreateOrdersResponse' + { _corProposals :: Maybe [Proposal] + } 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: +-- +-- * 'corProposals' +createOrdersResponse + :: CreateOrdersResponse +createOrdersResponse = + CreateOrdersResponse' + { _corProposals = Nothing + } + +-- | The list of proposals successfully created. +corProposals :: Lens' CreateOrdersResponse [Proposal] +corProposals + = lens _corProposals (\ s a -> s{_corProposals = a}) + . _Default + . _Coerce + +instance FromJSON CreateOrdersResponse where + parseJSON + = withObject "CreateOrdersResponse" + (\ o -> + CreateOrdersResponse' <$> + (o .:? "proposals" .!= mempty)) + +instance ToJSON CreateOrdersResponse where + toJSON CreateOrdersResponse'{..} + = object + (catMaybes [("proposals" .=) <$> _corProposals]) + +-- +-- /See:/ 'accountBidderLocationItem' smart constructor. +data AccountBidderLocationItem = AccountBidderLocationItem' + { _abliURL :: !(Maybe Text) + , _abliMaximumQps :: !(Maybe (Textual Int32)) + , _abliRegion :: !(Maybe Text) + , _abliBidProtocol :: !(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' +-- +-- * 'abliBidProtocol' +accountBidderLocationItem + :: AccountBidderLocationItem +accountBidderLocationItem = + AccountBidderLocationItem' + { _abliURL = Nothing + , _abliMaximumQps = Nothing + , _abliRegion = Nothing + , _abliBidProtocol = 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}) + +-- | The protocol that the bidder endpoint is using. By default, OpenRTB +-- protocols use JSON, except PROTOCOL_OPENRTB_PROTOBUF. +-- PROTOCOL_OPENRTB_PROTOBUF uses protobuf encoding over the latest OpenRTB +-- protocol version, which is 2.3 right now. Allowed values: - PROTOCOL_ADX +-- - PROTOCOL_OPENRTB_2_2 - PROTOCOL_OPENRTB_2_3 - +-- PROTOCOL_OPENRTB_PROTOBUF +abliBidProtocol :: Lens' AccountBidderLocationItem (Maybe Text) +abliBidProtocol + = lens _abliBidProtocol + (\ s a -> s{_abliBidProtocol = a}) + +instance FromJSON AccountBidderLocationItem where + parseJSON + = withObject "AccountBidderLocationItem" + (\ o -> + AccountBidderLocationItem' <$> + (o .:? "url") <*> (o .:? "maximumQps") <*> + (o .:? "region") + <*> (o .:? "bidProtocol")) + +instance ToJSON AccountBidderLocationItem where + toJSON AccountBidderLocationItem'{..} + = object + (catMaybes + [("url" .=) <$> _abliURL, + ("maximumQps" .=) <$> _abliMaximumQps, + ("region" .=) <$> _abliRegion, + ("bidProtocol" .=) <$> _abliBidProtocol]) + +-- +-- /See:/ 'privateData' smart constructor. +data PrivateData = PrivateData' + { _pdReferencePayload :: !(Maybe Base64) + , _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 ByteString) +pdReferencePayload + = lens _pdReferencePayload + (\ s a -> s{_pdReferencePayload = a}) + . mapping _Base64 + +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 daily budget amount in unit amount of the account currency 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:/ '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:/ '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:/ 'getOrdersResponse' smart constructor. +newtype GetOrdersResponse = GetOrdersResponse' + { _gorProposals :: Maybe [Proposal] + } 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: +-- +-- * 'gorProposals' +getOrdersResponse + :: GetOrdersResponse +getOrdersResponse = + GetOrdersResponse' + { _gorProposals = Nothing + } + +-- | The list of matching proposals. +gorProposals :: Lens' GetOrdersResponse [Proposal] +gorProposals + = lens _gorProposals (\ s a -> s{_gorProposals = a}) + . _Default + . _Coerce + +instance FromJSON GetOrdersResponse where + parseJSON + = withObject "GetOrdersResponse" + (\ o -> + GetOrdersResponse' <$> + (o .:? "proposals" .!= mempty)) + +instance ToJSON GetOrdersResponse where + toJSON GetOrdersResponse'{..} + = object + (catMaybes [("proposals" .=) <$> _gorProposals]) + +-- +-- /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]) + +-- | This message carries publisher provided breakdown. E.g. {dimension_type: +-- \'COUNTRY\', [{dimension_value: {id: 1, name: \'US\'}}, +-- {dimension_value: {id: 2, name: \'UK\'}}]} +-- +-- /See:/ 'dimension' smart constructor. +data Dimension = Dimension' + { _dDimensionValues :: !(Maybe [DimensionDimensionValue]) + , _dDimensionType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Dimension' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dDimensionValues' +-- +-- * 'dDimensionType' +dimension + :: Dimension +dimension = + Dimension' + { _dDimensionValues = Nothing + , _dDimensionType = Nothing + } + +dDimensionValues :: Lens' Dimension [DimensionDimensionValue] +dDimensionValues + = lens _dDimensionValues + (\ s a -> s{_dDimensionValues = a}) + . _Default + . _Coerce + +dDimensionType :: Lens' Dimension (Maybe Text) +dDimensionType + = lens _dDimensionType + (\ s a -> s{_dDimensionType = a}) + +instance FromJSON Dimension where + parseJSON + = withObject "Dimension" + (\ o -> + Dimension' <$> + (o .:? "dimensionValues" .!= mempty) <*> + (o .:? "dimensionType")) + +instance ToJSON Dimension where + toJSON Dimension'{..} + = object + (catMaybes + [("dimensionValues" .=) <$> _dDimensionValues, + ("dimensionType" .=) <$> _dDimensionType]) + +-- +-- /See:/ 'createOrdersRequest' smart constructor. +data CreateOrdersRequest = CreateOrdersRequest' + { _cProposals :: !(Maybe [Proposal]) + , _cWebPropertyCode :: !(Maybe Text) + } 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: +-- +-- * 'cProposals' +-- +-- * 'cWebPropertyCode' +createOrdersRequest + :: CreateOrdersRequest +createOrdersRequest = + CreateOrdersRequest' + { _cProposals = Nothing + , _cWebPropertyCode = Nothing + } + +-- | The list of proposals to create. +cProposals :: Lens' CreateOrdersRequest [Proposal] +cProposals + = lens _cProposals (\ s a -> s{_cProposals = a}) . + _Default + . _Coerce + +-- | Web property id of the seller creating these orders +cWebPropertyCode :: Lens' CreateOrdersRequest (Maybe Text) +cWebPropertyCode + = lens _cWebPropertyCode + (\ s a -> s{_cWebPropertyCode = a}) + +instance FromJSON CreateOrdersRequest where + parseJSON + = withObject "CreateOrdersRequest" + (\ o -> + CreateOrdersRequest' <$> + (o .:? "proposals" .!= mempty) <*> + (o .:? "webPropertyCode")) + +instance ToJSON CreateOrdersRequest where + toJSON CreateOrdersRequest'{..} + = object + (catMaybes + [("proposals" .=) <$> _cProposals, + ("webPropertyCode" .=) <$> _cWebPropertyCode]) + +-- +-- /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:/ 'dealServingMetadata' smart constructor. +newtype DealServingMetadata = DealServingMetadata' + { _dsmDealPauseStatus :: Maybe DealServingMetadataDealPauseStatus + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealServingMetadata' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsmDealPauseStatus' +dealServingMetadata + :: DealServingMetadata +dealServingMetadata = + DealServingMetadata' + { _dsmDealPauseStatus = Nothing + } + +-- | Tracks which parties (if any) have paused a deal. (readonly, except via +-- PauseResumeOrderDeals action) +dsmDealPauseStatus :: Lens' DealServingMetadata (Maybe DealServingMetadataDealPauseStatus) +dsmDealPauseStatus + = lens _dsmDealPauseStatus + (\ s a -> s{_dsmDealPauseStatus = a}) + +instance FromJSON DealServingMetadata where + parseJSON + = withObject "DealServingMetadata" + (\ o -> + DealServingMetadata' <$> (o .:? "dealPauseStatus")) + +instance ToJSON DealServingMetadata where + toJSON DealServingMetadata'{..} + = object + (catMaybes + [("dealPauseStatus" .=) <$> _dsmDealPauseStatus]) + +-- +-- /See:/ 'addOrderDealsResponse' smart constructor. +data AddOrderDealsResponse = AddOrderDealsResponse' + { _aodrDeals :: !(Maybe [MarketplaceDeal]) + , _aodrProposalRevisionNumber :: !(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' +-- +-- * 'aodrProposalRevisionNumber' +addOrderDealsResponse + :: AddOrderDealsResponse +addOrderDealsResponse = + AddOrderDealsResponse' + { _aodrDeals = Nothing + , _aodrProposalRevisionNumber = Nothing + } + +-- | List of deals added (in the same proposal 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 proposal. +aodrProposalRevisionNumber :: Lens' AddOrderDealsResponse (Maybe Int64) +aodrProposalRevisionNumber + = lens _aodrProposalRevisionNumber + (\ s a -> s{_aodrProposalRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON AddOrderDealsResponse where + parseJSON + = withObject "AddOrderDealsResponse" + (\ o -> + AddOrderDealsResponse' <$> + (o .:? "deals" .!= mempty) <*> + (o .:? "proposalRevisionNumber")) + +instance ToJSON AddOrderDealsResponse where + toJSON AddOrderDealsResponse'{..} + = object + (catMaybes + [("deals" .=) <$> _aodrDeals, + ("proposalRevisionNumber" .=) <$> + _aodrProposalRevisionNumber]) + +-- +-- /See:/ 'deliveryControl' smart constructor. +data DeliveryControl = DeliveryControl' + { _dcCreativeBlockingLevel :: !(Maybe Text) + , _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: +-- +-- * 'dcCreativeBlockingLevel' +-- +-- * 'dcFrequencyCaps' +-- +-- * 'dcDeliveryRateType' +deliveryControl + :: DeliveryControl +deliveryControl = + DeliveryControl' + { _dcCreativeBlockingLevel = Nothing + , _dcFrequencyCaps = Nothing + , _dcDeliveryRateType = Nothing + } + +dcCreativeBlockingLevel :: Lens' DeliveryControl (Maybe Text) +dcCreativeBlockingLevel + = lens _dcCreativeBlockingLevel + (\ s a -> s{_dcCreativeBlockingLevel = a}) + +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 .:? "creativeBlockingLevel") <*> + (o .:? "frequencyCaps" .!= mempty) + <*> (o .:? "deliveryRateType")) + +instance ToJSON DeliveryControl where + toJSON DeliveryControl'{..} + = object + (catMaybes + [("creativeBlockingLevel" .=) <$> + _dcCreativeBlockingLevel, + ("frequencyCaps" .=) <$> _dcFrequencyCaps, + ("deliveryRateType" .=) <$> _dcDeliveryRateType]) + +-- | Used to specify pricing rules for buyers\/advertisers. Each +-- PricePerBuyer in an product 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) + , _ppbAuctionTier :: !(Maybe Text) + , _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' +-- +-- * 'ppbAuctionTier' +-- +-- * 'ppbBuyer' +pricePerBuyer + :: PricePerBuyer +pricePerBuyer = + PricePerBuyer' + { _ppbPrice = Nothing + , _ppbAuctionTier = Nothing + , _ppbBuyer = Nothing + } + +-- | The specified price +ppbPrice :: Lens' PricePerBuyer (Maybe Price) +ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a}) + +-- | Optional access type for this buyer. +ppbAuctionTier :: Lens' PricePerBuyer (Maybe Text) +ppbAuctionTier + = lens _ppbAuctionTier + (\ s a -> s{_ppbAuctionTier = 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 .:? "auctionTier") <*> + (o .:? "buyer")) + +instance ToJSON PricePerBuyer where + toJSON PricePerBuyer'{..} + = object + (catMaybes + [("price" .=) <$> _ppbPrice, + ("auctionTier" .=) <$> _ppbAuctionTier, + ("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) + , _cAdChoicesDestinationURL :: !(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' +-- +-- * 'cAdChoicesDestinationURL' +-- +-- * '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 + , _cAdChoicesDestinationURL = 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 link to the Ad Preferences page. This is only supported for native +-- ads. +cAdChoicesDestinationURL :: Lens' Creative (Maybe Text) +cAdChoicesDestinationURL + = lens _cAdChoicesDestinationURL + (\ s a -> s{_cAdChoicesDestinationURL = 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 .:? "adChoicesDestinationUrl") + <*> (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 .:? "apiUploadTimestamp") + <*> (o .:? "servingRestrictions" .!= mempty) + <*> (o .:? "openAuctionStatus")) + +instance ToJSON Creative where + toJSON Creative'{..} + = object + (catMaybes + [("attribute" .=) <$> _cAttribute, + ("nativeAd" .=) <$> _cNATiveAd, + ("height" .=) <$> _cHeight, + ("buyerCreativeId" .=) <$> _cBuyerCreativeId, + ("advertiserName" .=) <$> _cAdvertiserName, + ("adChoicesDestinationUrl" .=) <$> + _cAdChoicesDestinationURL, + ("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, + ("apiUploadTimestamp" .=) <$> _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]) + +-- | Value of the dimension. +-- +-- /See:/ 'dimensionDimensionValue' smart constructor. +data DimensionDimensionValue = DimensionDimensionValue' + { _ddvName :: !(Maybe Text) + , _ddvId :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DimensionDimensionValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ddvName' +-- +-- * 'ddvId' +dimensionDimensionValue + :: DimensionDimensionValue +dimensionDimensionValue = + DimensionDimensionValue' + { _ddvName = Nothing + , _ddvId = Nothing + } + +-- | Name of the dimension mainly for debugging purposes. +ddvName :: Lens' DimensionDimensionValue (Maybe Text) +ddvName = lens _ddvName (\ s a -> s{_ddvName = a}) + +-- | Id of the dimension. +ddvId :: Lens' DimensionDimensionValue (Maybe Int32) +ddvId + = lens _ddvId (\ s a -> s{_ddvId = a}) . + mapping _Coerce + +instance FromJSON DimensionDimensionValue where + parseJSON + = withObject "DimensionDimensionValue" + (\ o -> + DimensionDimensionValue' <$> + (o .:? "name") <*> (o .:? "id")) + +instance ToJSON DimensionDimensionValue where + toJSON DimensionDimensionValue'{..} + = object + (catMaybes + [("name" .=) <$> _ddvName, ("id" .=) <$> _ddvId]) + +-- +-- /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:/ '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 product. +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]) + , _dodrProposalRevisionNumber :: !(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' +-- +-- * 'dodrProposalRevisionNumber' +deleteOrderDealsRequest + :: DeleteOrderDealsRequest +deleteOrderDealsRequest = + DeleteOrderDealsRequest' + { _dodrUpdateAction = Nothing + , _dodrDealIds = Nothing + , _dodrProposalRevisionNumber = Nothing + } + +-- | Indicates an optional action to take on the proposal +dodrUpdateAction :: Lens' DeleteOrderDealsRequest (Maybe Text) +dodrUpdateAction + = lens _dodrUpdateAction + (\ s a -> s{_dodrUpdateAction = a}) + +-- | List of deals to delete for a given proposal +dodrDealIds :: Lens' DeleteOrderDealsRequest [Text] +dodrDealIds + = lens _dodrDealIds (\ s a -> s{_dodrDealIds = a}) . + _Default + . _Coerce + +-- | The last known proposal revision number. +dodrProposalRevisionNumber :: Lens' DeleteOrderDealsRequest (Maybe Int64) +dodrProposalRevisionNumber + = lens _dodrProposalRevisionNumber + (\ s a -> s{_dodrProposalRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON DeleteOrderDealsRequest where + parseJSON + = withObject "DeleteOrderDealsRequest" + (\ o -> + DeleteOrderDealsRequest' <$> + (o .:? "updateAction") <*> + (o .:? "dealIds" .!= mempty) + <*> (o .:? "proposalRevisionNumber")) + +instance ToJSON DeleteOrderDealsRequest where + toJSON DeleteOrderDealsRequest'{..} + = object + (catMaybes + [("updateAction" .=) <$> _dodrUpdateAction, + ("dealIds" .=) <$> _dodrDealIds, + ("proposalRevisionNumber" .=) <$> + _dodrProposalRevisionNumber]) + +-- +-- /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 proposal +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. +-- +-- /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]) + , _pcVideoPlayerSizes :: !(Maybe [PretargetingConfigVideoPlayerSizesItem]) + , _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' +-- +-- * 'pcVideoPlayerSizes' +-- +-- * '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 + , _pcVideoPlayerSizes = 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 + +-- | Video requests satisfying any of these player size constraints will +-- match. +pcVideoPlayerSizes :: Lens' PretargetingConfig [PretargetingConfigVideoPlayerSizesItem] +pcVideoPlayerSizes + = lens _pcVideoPlayerSizes + (\ s a -> s{_pcVideoPlayerSizes = 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 .:? "videoPlayerSizes" .!= 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, + ("videoPlayerSizes" .=) <$> _pcVideoPlayerSizes, + ("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 or video 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:/ 'dealTermsGuaranteedFixedPriceTermsBillingInfo' smart constructor. +data DealTermsGuaranteedFixedPriceTermsBillingInfo = DealTermsGuaranteedFixedPriceTermsBillingInfo' + { _dtgfptbiCurrencyConversionTimeMs :: !(Maybe (Textual Int64)) + , _dtgfptbiPrice :: !(Maybe Price) + , _dtgfptbiOriginalContractedQuantity :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealTermsGuaranteedFixedPriceTermsBillingInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dtgfptbiCurrencyConversionTimeMs' +-- +-- * 'dtgfptbiPrice' +-- +-- * 'dtgfptbiOriginalContractedQuantity' +dealTermsGuaranteedFixedPriceTermsBillingInfo + :: DealTermsGuaranteedFixedPriceTermsBillingInfo +dealTermsGuaranteedFixedPriceTermsBillingInfo = + DealTermsGuaranteedFixedPriceTermsBillingInfo' + { _dtgfptbiCurrencyConversionTimeMs = Nothing + , _dtgfptbiPrice = Nothing + , _dtgfptbiOriginalContractedQuantity = Nothing + } + +-- | The timestamp (in ms since epoch) when the original reservation price +-- for the deal was first converted to DFP currency. This is used to +-- convert the contracted price into advertiser\'s currency without +-- discrepancy. +dtgfptbiCurrencyConversionTimeMs :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64) +dtgfptbiCurrencyConversionTimeMs + = lens _dtgfptbiCurrencyConversionTimeMs + (\ s a -> s{_dtgfptbiCurrencyConversionTimeMs = a}) + . mapping _Coerce + +-- | The original reservation price for the deal, if the currency code is +-- different from the one used in negotiation. +dtgfptbiPrice :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Price) +dtgfptbiPrice + = lens _dtgfptbiPrice + (\ s a -> s{_dtgfptbiPrice = a}) + +-- | The original contracted quantity (# impressions) for this deal. To +-- ensure delivery, sometimes publisher will book the deal with a +-- impression buffer, however clients are billed using the original +-- contracted quantity. +dtgfptbiOriginalContractedQuantity :: Lens' DealTermsGuaranteedFixedPriceTermsBillingInfo (Maybe Int64) +dtgfptbiOriginalContractedQuantity + = lens _dtgfptbiOriginalContractedQuantity + (\ s a -> s{_dtgfptbiOriginalContractedQuantity = a}) + . mapping _Coerce + +instance FromJSON + DealTermsGuaranteedFixedPriceTermsBillingInfo where + parseJSON + = withObject + "DealTermsGuaranteedFixedPriceTermsBillingInfo" + (\ o -> + DealTermsGuaranteedFixedPriceTermsBillingInfo' <$> + (o .:? "currencyConversionTimeMs") <*> + (o .:? "price") + <*> (o .:? "originalContractedQuantity")) + +instance ToJSON + DealTermsGuaranteedFixedPriceTermsBillingInfo where + toJSON + DealTermsGuaranteedFixedPriceTermsBillingInfo'{..} + = object + (catMaybes + [("currencyConversionTimeMs" .=) <$> + _dtgfptbiCurrencyConversionTimeMs, + ("price" .=) <$> _dtgfptbiPrice, + ("originalContractedQuantity" .=) <$> + _dtgfptbiOriginalContractedQuantity]) + +-- +-- /See:/ 'getPublisherProFilesByAccountIdResponse' smart constructor. +newtype GetPublisherProFilesByAccountIdResponse = GetPublisherProFilesByAccountIdResponse' + { _gppfbairProFiles :: Maybe [PublisherProFileAPIProto] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetPublisherProFilesByAccountIdResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gppfbairProFiles' +getPublisherProFilesByAccountIdResponse + :: GetPublisherProFilesByAccountIdResponse +getPublisherProFilesByAccountIdResponse = + GetPublisherProFilesByAccountIdResponse' + { _gppfbairProFiles = Nothing + } + +-- | Profiles for the requested publisher +gppfbairProFiles :: Lens' GetPublisherProFilesByAccountIdResponse [PublisherProFileAPIProto] +gppfbairProFiles + = lens _gppfbairProFiles + (\ s a -> s{_gppfbairProFiles = a}) + . _Default + . _Coerce + +instance FromJSON + GetPublisherProFilesByAccountIdResponse where + parseJSON + = withObject + "GetPublisherProFilesByAccountIdResponse" + (\ o -> + GetPublisherProFilesByAccountIdResponse' <$> + (o .:? "profiles" .!= mempty)) + +instance ToJSON + GetPublisherProFilesByAccountIdResponse where + toJSON GetPublisherProFilesByAccountIdResponse'{..} + = object + (catMaybes [("profiles" .=) <$> _gppfbairProFiles]) + +-- | Represents a proposal in the marketplace. A proposal is the unit of +-- negotiation between a seller and a buyer and contains deals which are +-- served. Each field in a proposal 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:/ 'proposal' smart constructor. +data Proposal = Proposal' + { _pBuyerPrivateData :: !(Maybe PrivateData) + , _pIsSetupComplete :: !(Maybe Bool) + , _pInventorySource :: !(Maybe Text) + , _pBuyerContacts :: !(Maybe [ContactInformation]) + , _pKind :: !Text + , _pOriginatorRole :: !(Maybe Text) + , _pRevisionNumber :: !(Maybe (Textual Int64)) + , _pBilledBuyer :: !(Maybe Buyer) + , _pPrivateAuctionId :: !(Maybe Text) + , _pIsRenegotiating :: !(Maybe Bool) + , _pHasSellerSignedOff :: !(Maybe Bool) + , _pSeller :: !(Maybe Seller) + , _pProposalId :: !(Maybe Text) + , _pName :: !(Maybe Text) + , _pSellerContacts :: !(Maybe [ContactInformation]) + , _pLabels :: !(Maybe [MarketplaceLabel]) + , _pRevisionTimeMs :: !(Maybe (Textual Int64)) + , _pProposalState :: !(Maybe Text) + , _pLastUpdaterOrCommentorRole :: !(Maybe Text) + , _pNegotiationId :: !(Maybe Text) + , _pHasBuyerSignedOff :: !(Maybe Bool) + , _pBuyer :: !(Maybe Buyer) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Proposal' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pBuyerPrivateData' +-- +-- * 'pIsSetupComplete' +-- +-- * 'pInventorySource' +-- +-- * 'pBuyerContacts' +-- +-- * 'pKind' +-- +-- * 'pOriginatorRole' +-- +-- * 'pRevisionNumber' +-- +-- * 'pBilledBuyer' +-- +-- * 'pPrivateAuctionId' +-- +-- * 'pIsRenegotiating' +-- +-- * 'pHasSellerSignedOff' +-- +-- * 'pSeller' +-- +-- * 'pProposalId' +-- +-- * 'pName' +-- +-- * 'pSellerContacts' +-- +-- * 'pLabels' +-- +-- * 'pRevisionTimeMs' +-- +-- * 'pProposalState' +-- +-- * 'pLastUpdaterOrCommentorRole' +-- +-- * 'pNegotiationId' +-- +-- * 'pHasBuyerSignedOff' +-- +-- * 'pBuyer' +proposal + :: Proposal +proposal = + Proposal' + { _pBuyerPrivateData = Nothing + , _pIsSetupComplete = Nothing + , _pInventorySource = Nothing + , _pBuyerContacts = Nothing + , _pKind = "adexchangebuyer#proposal" + , _pOriginatorRole = Nothing + , _pRevisionNumber = Nothing + , _pBilledBuyer = Nothing + , _pPrivateAuctionId = Nothing + , _pIsRenegotiating = Nothing + , _pHasSellerSignedOff = Nothing + , _pSeller = Nothing + , _pProposalId = Nothing + , _pName = Nothing + , _pSellerContacts = Nothing + , _pLabels = Nothing + , _pRevisionTimeMs = Nothing + , _pProposalState = Nothing + , _pLastUpdaterOrCommentorRole = Nothing + , _pNegotiationId = Nothing + , _pHasBuyerSignedOff = Nothing + , _pBuyer = Nothing + } + +-- | Private data for buyer. (hidden from seller). +pBuyerPrivateData :: Lens' Proposal (Maybe PrivateData) +pBuyerPrivateData + = lens _pBuyerPrivateData + (\ s a -> s{_pBuyerPrivateData = a}) + +-- | True, if the buyside inventory setup is complete for this proposal. +-- (readonly, except via OrderSetupCompleted action) +pIsSetupComplete :: Lens' Proposal (Maybe Bool) +pIsSetupComplete + = lens _pIsSetupComplete + (\ s a -> s{_pIsSetupComplete = a}) + +-- | What exchange will provide this inventory (readonly, except on create). +pInventorySource :: Lens' Proposal (Maybe Text) +pInventorySource + = lens _pInventorySource + (\ s a -> s{_pInventorySource = a}) + +-- | Optional contact information fort the buyer. (seller-readonly) +pBuyerContacts :: Lens' Proposal [ContactInformation] +pBuyerContacts + = lens _pBuyerContacts + (\ s a -> s{_pBuyerContacts = a}) + . _Default + . _Coerce + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#proposal\". +pKind :: Lens' Proposal Text +pKind = lens _pKind (\ s a -> s{_pKind = a}) + +-- | Indicates whether the buyer\/seller created the proposal.(readonly) +pOriginatorRole :: Lens' Proposal (Maybe Text) +pOriginatorRole + = lens _pOriginatorRole + (\ s a -> s{_pOriginatorRole = a}) + +-- | The revision number for the proposal (readonly). +pRevisionNumber :: Lens' Proposal (Maybe Int64) +pRevisionNumber + = lens _pRevisionNumber + (\ s a -> s{_pRevisionNumber = a}) + . mapping _Coerce + +-- | Reference to the buyer that will get billed for this proposal. +-- (readonly) +pBilledBuyer :: Lens' Proposal (Maybe Buyer) +pBilledBuyer + = lens _pBilledBuyer (\ s a -> s{_pBilledBuyer = a}) + +-- | Optional private auction id if this proposal is a private auction +-- proposal. +pPrivateAuctionId :: Lens' Proposal (Maybe Text) +pPrivateAuctionId + = lens _pPrivateAuctionId + (\ s a -> s{_pPrivateAuctionId = a}) + +-- | True if the proposal is being renegotiated (readonly). +pIsRenegotiating :: Lens' Proposal (Maybe Bool) +pIsRenegotiating + = lens _pIsRenegotiating + (\ s a -> s{_pIsRenegotiating = a}) + +-- | When an proposal is in an accepted state, indicates whether the buyer +-- has signed off Once both sides have signed off on a deal, the proposal +-- can be finalized by the seller. (buyer-readonly) +pHasSellerSignedOff :: Lens' Proposal (Maybe Bool) +pHasSellerSignedOff + = lens _pHasSellerSignedOff + (\ s a -> s{_pHasSellerSignedOff = a}) + +-- | Reference to the seller on the proposal. (readonly, except on create) +pSeller :: Lens' Proposal (Maybe Seller) +pSeller = lens _pSeller (\ s a -> s{_pSeller = a}) + +-- | The unique id of the proposal. (readonly). +pProposalId :: Lens' Proposal (Maybe Text) +pProposalId + = lens _pProposalId (\ s a -> s{_pProposalId = a}) + +-- | The name for the proposal (updatable) +pName :: Lens' Proposal (Maybe Text) +pName = lens _pName (\ s a -> s{_pName = a}) + +-- | Optional contact information for the seller (buyer-readonly). +pSellerContacts :: Lens' Proposal [ContactInformation] +pSellerContacts + = lens _pSellerContacts + (\ s a -> s{_pSellerContacts = a}) + . _Default + . _Coerce + +-- | List of labels associated with the proposal. (readonly) +pLabels :: Lens' Proposal [MarketplaceLabel] +pLabels + = lens _pLabels (\ s a -> s{_pLabels = a}) . _Default + . _Coerce + +-- | The time (ms since epoch) when the proposal was last revised (readonly). +pRevisionTimeMs :: Lens' Proposal (Maybe Int64) +pRevisionTimeMs + = lens _pRevisionTimeMs + (\ s a -> s{_pRevisionTimeMs = a}) + . mapping _Coerce + +-- | The current state of the proposal. (readonly) +pProposalState :: Lens' Proposal (Maybe Text) +pProposalState + = lens _pProposalState + (\ s a -> s{_pProposalState = a}) + +-- | The role of the last user that either updated the proposal or left a +-- comment. (readonly) +pLastUpdaterOrCommentorRole :: Lens' Proposal (Maybe Text) +pLastUpdaterOrCommentorRole + = lens _pLastUpdaterOrCommentorRole + (\ s a -> s{_pLastUpdaterOrCommentorRole = a}) + +-- | Optional negotiation id if this proposal is a preferred deal proposal. +pNegotiationId :: Lens' Proposal (Maybe Text) +pNegotiationId + = lens _pNegotiationId + (\ s a -> s{_pNegotiationId = a}) + +-- | When an proposal is in an accepted state, indicates whether the buyer +-- has signed off Once both sides have signed off on a deal, the proposal +-- can be finalized by the seller. (seller-readonly) +pHasBuyerSignedOff :: Lens' Proposal (Maybe Bool) +pHasBuyerSignedOff + = lens _pHasBuyerSignedOff + (\ s a -> s{_pHasBuyerSignedOff = a}) + +-- | Reference to the buyer on the proposal. (readonly, except on create) +pBuyer :: Lens' Proposal (Maybe Buyer) +pBuyer = lens _pBuyer (\ s a -> s{_pBuyer = a}) + +instance FromJSON Proposal where + parseJSON + = withObject "Proposal" + (\ o -> + Proposal' <$> + (o .:? "buyerPrivateData") <*> + (o .:? "isSetupComplete") + <*> (o .:? "inventorySource") + <*> (o .:? "buyerContacts" .!= mempty) + <*> (o .:? "kind" .!= "adexchangebuyer#proposal") + <*> (o .:? "originatorRole") + <*> (o .:? "revisionNumber") + <*> (o .:? "billedBuyer") + <*> (o .:? "privateAuctionId") + <*> (o .:? "isRenegotiating") + <*> (o .:? "hasSellerSignedOff") + <*> (o .:? "seller") + <*> (o .:? "proposalId") + <*> (o .:? "name") + <*> (o .:? "sellerContacts" .!= mempty) + <*> (o .:? "labels" .!= mempty) + <*> (o .:? "revisionTimeMs") + <*> (o .:? "proposalState") + <*> (o .:? "lastUpdaterOrCommentorRole") + <*> (o .:? "negotiationId") + <*> (o .:? "hasBuyerSignedOff") + <*> (o .:? "buyer")) + +instance ToJSON Proposal where + toJSON Proposal'{..} + = object + (catMaybes + [("buyerPrivateData" .=) <$> _pBuyerPrivateData, + ("isSetupComplete" .=) <$> _pIsSetupComplete, + ("inventorySource" .=) <$> _pInventorySource, + ("buyerContacts" .=) <$> _pBuyerContacts, + Just ("kind" .= _pKind), + ("originatorRole" .=) <$> _pOriginatorRole, + ("revisionNumber" .=) <$> _pRevisionNumber, + ("billedBuyer" .=) <$> _pBilledBuyer, + ("privateAuctionId" .=) <$> _pPrivateAuctionId, + ("isRenegotiating" .=) <$> _pIsRenegotiating, + ("hasSellerSignedOff" .=) <$> _pHasSellerSignedOff, + ("seller" .=) <$> _pSeller, + ("proposalId" .=) <$> _pProposalId, + ("name" .=) <$> _pName, + ("sellerContacts" .=) <$> _pSellerContacts, + ("labels" .=) <$> _pLabels, + ("revisionTimeMs" .=) <$> _pRevisionTimeMs, + ("proposalState" .=) <$> _pProposalState, + ("lastUpdaterOrCommentorRole" .=) <$> + _pLastUpdaterOrCommentorRole, + ("negotiationId" .=) <$> _pNegotiationId, + ("hasBuyerSignedOff" .=) <$> _pHasBuyerSignedOff, + ("buyer" .=) <$> _pBuyer]) + +-- | 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]) + +-- +-- /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:/ 'updatePrivateAuctionProposalRequest' smart constructor. +data UpdatePrivateAuctionProposalRequest = UpdatePrivateAuctionProposalRequest' + { _upaprExternalDealId :: !(Maybe Text) + , _upaprUpdateAction :: !(Maybe Text) + , _upaprNote :: !(Maybe MarketplaceNote) + , _upaprProposalRevisionNumber :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'UpdatePrivateAuctionProposalRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'upaprExternalDealId' +-- +-- * 'upaprUpdateAction' +-- +-- * 'upaprNote' +-- +-- * 'upaprProposalRevisionNumber' +updatePrivateAuctionProposalRequest + :: UpdatePrivateAuctionProposalRequest +updatePrivateAuctionProposalRequest = + UpdatePrivateAuctionProposalRequest' + { _upaprExternalDealId = Nothing + , _upaprUpdateAction = Nothing + , _upaprNote = Nothing + , _upaprProposalRevisionNumber = Nothing + } + +-- | The externalDealId of the deal to be updated. +upaprExternalDealId :: Lens' UpdatePrivateAuctionProposalRequest (Maybe Text) +upaprExternalDealId + = lens _upaprExternalDealId + (\ s a -> s{_upaprExternalDealId = a}) + +-- | The proposed action on the private auction proposal. +upaprUpdateAction :: Lens' UpdatePrivateAuctionProposalRequest (Maybe Text) +upaprUpdateAction + = lens _upaprUpdateAction + (\ s a -> s{_upaprUpdateAction = a}) + +-- | Optional note to be added. +upaprNote :: Lens' UpdatePrivateAuctionProposalRequest (Maybe MarketplaceNote) +upaprNote + = lens _upaprNote (\ s a -> s{_upaprNote = a}) + +-- | The current revision number of the proposal to be updated. +upaprProposalRevisionNumber :: Lens' UpdatePrivateAuctionProposalRequest (Maybe Int64) +upaprProposalRevisionNumber + = lens _upaprProposalRevisionNumber + (\ s a -> s{_upaprProposalRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON UpdatePrivateAuctionProposalRequest + where + parseJSON + = withObject "UpdatePrivateAuctionProposalRequest" + (\ o -> + UpdatePrivateAuctionProposalRequest' <$> + (o .:? "externalDealId") <*> (o .:? "updateAction") + <*> (o .:? "note") + <*> (o .:? "proposalRevisionNumber")) + +instance ToJSON UpdatePrivateAuctionProposalRequest + where + toJSON UpdatePrivateAuctionProposalRequest'{..} + = object + (catMaybes + [("externalDealId" .=) <$> _upaprExternalDealId, + ("updateAction" .=) <$> _upaprUpdateAction, + ("note" .=) <$> _upaprNote, + ("proposalRevisionNumber" .=) <$> + _upaprProposalRevisionNumber]) + +-- +-- /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]) + +-- | This message carries publisher provided forecasting information. +-- +-- /See:/ 'publisherProvidedForecast' smart constructor. +data PublisherProvidedForecast = PublisherProvidedForecast' + { _ppfWeeklyImpressions :: !(Maybe (Textual Int64)) + , _ppfWeeklyUniques :: !(Maybe (Textual Int64)) + , _ppfDimensions :: !(Maybe [Dimension]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PublisherProvidedForecast' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ppfWeeklyImpressions' +-- +-- * 'ppfWeeklyUniques' +-- +-- * 'ppfDimensions' +publisherProvidedForecast + :: PublisherProvidedForecast +publisherProvidedForecast = + PublisherProvidedForecast' + { _ppfWeeklyImpressions = Nothing + , _ppfWeeklyUniques = Nothing + , _ppfDimensions = Nothing + } + +-- | Publisher provided weekly impressions. +ppfWeeklyImpressions :: Lens' PublisherProvidedForecast (Maybe Int64) +ppfWeeklyImpressions + = lens _ppfWeeklyImpressions + (\ s a -> s{_ppfWeeklyImpressions = a}) + . mapping _Coerce + +-- | Publisher provided weekly uniques. +ppfWeeklyUniques :: Lens' PublisherProvidedForecast (Maybe Int64) +ppfWeeklyUniques + = lens _ppfWeeklyUniques + (\ s a -> s{_ppfWeeklyUniques = a}) + . mapping _Coerce + +-- | Publisher provided dimensions. E.g. geo, sizes etc... +ppfDimensions :: Lens' PublisherProvidedForecast [Dimension] +ppfDimensions + = lens _ppfDimensions + (\ s a -> s{_ppfDimensions = a}) + . _Default + . _Coerce + +instance FromJSON PublisherProvidedForecast where + parseJSON + = withObject "PublisherProvidedForecast" + (\ o -> + PublisherProvidedForecast' <$> + (o .:? "weeklyImpressions") <*> + (o .:? "weeklyUniques") + <*> (o .:? "dimensions" .!= mempty)) + +instance ToJSON PublisherProvidedForecast where + toJSON PublisherProvidedForecast'{..} + = object + (catMaybes + [("weeklyImpressions" .=) <$> _ppfWeeklyImpressions, + ("weeklyUniques" .=) <$> _ppfWeeklyUniques, + ("dimensions" .=) <$> _ppfDimensions]) + +-- +-- /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)) + , _pPricingType :: !(Maybe Text) + } 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' +-- +-- * 'pPricingType' +price + :: Price +price = + Price' + { _pCurrencyCode = Nothing + , _pAmountMicros = Nothing + , _pPricingType = Nothing + } + +-- | The currency code for the price. +pCurrencyCode :: Lens' Price (Maybe Text) +pCurrencyCode + = lens _pCurrencyCode + (\ s a -> s{_pCurrencyCode = a}) + +-- | The price value in micros. +pAmountMicros :: Lens' Price (Maybe Double) +pAmountMicros + = lens _pAmountMicros + (\ s a -> s{_pAmountMicros = a}) + . mapping _Coerce + +-- | The pricing type for the deal\/product. +pPricingType :: Lens' Price (Maybe Text) +pPricingType + = lens _pPricingType (\ s a -> s{_pPricingType = a}) + +instance FromJSON Price where + parseJSON + = withObject "Price" + (\ o -> + Price' <$> + (o .:? "currencyCode") <*> (o .:? "amountMicros") <*> + (o .:? "pricingType")) + +instance ToJSON Price where + toJSON Price'{..} + = object + (catMaybes + [("currencyCode" .=) <$> _pCurrencyCode, + ("amountMicros" .=) <$> _pAmountMicros, + ("pricingType" .=) <$> _pPricingType]) + +-- +-- /See:/ 'pretargetingConfigVideoPlayerSizesItem' smart constructor. +data PretargetingConfigVideoPlayerSizesItem = PretargetingConfigVideoPlayerSizesItem' + { _pcvpsiMinWidth :: !(Maybe (Textual Int64)) + , _pcvpsiAspectRatio :: !(Maybe Text) + , _pcvpsiMinHeight :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PretargetingConfigVideoPlayerSizesItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcvpsiMinWidth' +-- +-- * 'pcvpsiAspectRatio' +-- +-- * 'pcvpsiMinHeight' +pretargetingConfigVideoPlayerSizesItem + :: PretargetingConfigVideoPlayerSizesItem +pretargetingConfigVideoPlayerSizesItem = + PretargetingConfigVideoPlayerSizesItem' + { _pcvpsiMinWidth = Nothing + , _pcvpsiAspectRatio = Nothing + , _pcvpsiMinHeight = Nothing + } + +-- | The minimum player width in pixels. Leave this field blank to match any +-- player width. +pcvpsiMinWidth :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Int64) +pcvpsiMinWidth + = lens _pcvpsiMinWidth + (\ s a -> s{_pcvpsiMinWidth = a}) + . mapping _Coerce + +-- | The type of aspect ratio. Leave this field blank to match all aspect +-- ratios. +pcvpsiAspectRatio :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Text) +pcvpsiAspectRatio + = lens _pcvpsiAspectRatio + (\ s a -> s{_pcvpsiAspectRatio = a}) + +-- | The minimum player height in pixels. Leave this field blank to match any +-- player height. +pcvpsiMinHeight :: Lens' PretargetingConfigVideoPlayerSizesItem (Maybe Int64) +pcvpsiMinHeight + = lens _pcvpsiMinHeight + (\ s a -> s{_pcvpsiMinHeight = a}) + . mapping _Coerce + +instance FromJSON + PretargetingConfigVideoPlayerSizesItem where + parseJSON + = withObject "PretargetingConfigVideoPlayerSizesItem" + (\ o -> + PretargetingConfigVideoPlayerSizesItem' <$> + (o .:? "minWidth") <*> (o .:? "aspectRatio") <*> + (o .:? "minHeight")) + +instance ToJSON + PretargetingConfigVideoPlayerSizesItem where + toJSON PretargetingConfigVideoPlayerSizesItem'{..} + = object + (catMaybes + [("minWidth" .=) <$> _pcvpsiMinWidth, + ("aspectRatio" .=) <$> _pcvpsiAspectRatio, + ("minHeight" .=) <$> _pcvpsiMinHeight]) + +-- +-- /See:/ 'editAllOrderDealsRequest' smart constructor. +data EditAllOrderDealsRequest = EditAllOrderDealsRequest' + { _eUpdateAction :: !(Maybe Text) + , _eDeals :: !(Maybe [MarketplaceDeal]) + , _eProposalRevisionNumber :: !(Maybe (Textual Int64)) + , _eProposal :: !(Maybe Proposal) + } 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' +-- +-- * 'eProposalRevisionNumber' +-- +-- * 'eProposal' +editAllOrderDealsRequest + :: EditAllOrderDealsRequest +editAllOrderDealsRequest = + EditAllOrderDealsRequest' + { _eUpdateAction = Nothing + , _eDeals = Nothing + , _eProposalRevisionNumber = Nothing + , _eProposal = Nothing + } + +-- | Indicates an optional action to take on the proposal +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 proposal If a deal in this list does not +-- exist in the proposal, the service will create a new deal and add it to +-- the proposal. Validation will follow AddOrderDealsRequest. 2. Update +-- existing deal in the proposal If a deal in this list already exist in +-- the proposal, the service will update that existing deal to this new +-- deal in the request. Validation will follow UpdateOrderDealsRequest. 3. +-- Delete deals from the proposal (just need the id) If a existing deal in +-- the proposal is not present in this list, the service will delete that +-- deal from the proposal. Validation will follow DeleteOrderDealsRequest. +eDeals :: Lens' EditAllOrderDealsRequest [MarketplaceDeal] +eDeals + = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default . + _Coerce + +-- | The last known revision number for the proposal. +eProposalRevisionNumber :: Lens' EditAllOrderDealsRequest (Maybe Int64) +eProposalRevisionNumber + = lens _eProposalRevisionNumber + (\ s a -> s{_eProposalRevisionNumber = a}) + . mapping _Coerce + +-- | If specified, also updates the proposal in the batch transaction. This +-- is useful when the proposal and the deals need to be updated in one +-- transaction. +eProposal :: Lens' EditAllOrderDealsRequest (Maybe Proposal) +eProposal + = lens _eProposal (\ s a -> s{_eProposal = a}) + +instance FromJSON EditAllOrderDealsRequest where + parseJSON + = withObject "EditAllOrderDealsRequest" + (\ o -> + EditAllOrderDealsRequest' <$> + (o .:? "updateAction") <*> (o .:? "deals" .!= mempty) + <*> (o .:? "proposalRevisionNumber") + <*> (o .:? "proposal")) + +instance ToJSON EditAllOrderDealsRequest where + toJSON EditAllOrderDealsRequest'{..} + = object + (catMaybes + [("updateAction" .=) <$> _eUpdateAction, + ("deals" .=) <$> _eDeals, + ("proposalRevisionNumber" .=) <$> + _eProposalRevisionNumber, + ("proposal" .=) <$> _eProposal]) + +-- | 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. Each value is AND\'d +-- together. +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. Each value is +-- OR\'d together. +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]) + +-- | 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]) + +-- | A product 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 a product 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:/ 'product' smart constructor. +data Product = Product' + { _proState :: !(Maybe Text) + , _proInventorySource :: !(Maybe Text) + , _proWebPropertyCode :: !(Maybe Text) + , _proCreationTimeMs :: !(Maybe (Textual Int64)) + , _proTerms :: !(Maybe DealTerms) + , _proLastUpdateTimeMs :: !(Maybe (Textual Int64)) + , _proKind :: !Text + , _proRevisionNumber :: !(Maybe (Textual Int64)) + , _proPrivateAuctionId :: !(Maybe Text) + , _proDeliveryControl :: !(Maybe DeliveryControl) + , _proHasCreatorSignedOff :: !(Maybe Bool) + , _proFlightStartTimeMs :: !(Maybe (Textual Int64)) + , _proSharedTargetings :: !(Maybe [SharedTargeting]) + , _proSeller :: !(Maybe Seller) + , _proSyndicationProduct :: !(Maybe Text) + , _proFlightEndTimeMs :: !(Maybe (Textual Int64)) + , _proName :: !(Maybe Text) + , _proCreatorContacts :: !(Maybe [ContactInformation]) + , _proPublisherProvidedForecast :: !(Maybe PublisherProvidedForecast) + , _proLabels :: !(Maybe [MarketplaceLabel]) + , _proPublisherProFileId :: !(Maybe Text) + , _proLegacyOfferId :: !(Maybe Text) + , _proProductId :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Product' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'proState' +-- +-- * 'proInventorySource' +-- +-- * 'proWebPropertyCode' +-- +-- * 'proCreationTimeMs' +-- +-- * 'proTerms' +-- +-- * 'proLastUpdateTimeMs' +-- +-- * 'proKind' +-- +-- * 'proRevisionNumber' +-- +-- * 'proPrivateAuctionId' +-- +-- * 'proDeliveryControl' +-- +-- * 'proHasCreatorSignedOff' +-- +-- * 'proFlightStartTimeMs' +-- +-- * 'proSharedTargetings' +-- +-- * 'proSeller' +-- +-- * 'proSyndicationProduct' +-- +-- * 'proFlightEndTimeMs' +-- +-- * 'proName' +-- +-- * 'proCreatorContacts' +-- +-- * 'proPublisherProvidedForecast' +-- +-- * 'proLabels' +-- +-- * 'proPublisherProFileId' +-- +-- * 'proLegacyOfferId' +-- +-- * 'proProductId' +product + :: Product +product = + Product' + { _proState = Nothing + , _proInventorySource = Nothing + , _proWebPropertyCode = Nothing + , _proCreationTimeMs = Nothing + , _proTerms = Nothing + , _proLastUpdateTimeMs = Nothing + , _proKind = "adexchangebuyer#product" + , _proRevisionNumber = Nothing + , _proPrivateAuctionId = Nothing + , _proDeliveryControl = Nothing + , _proHasCreatorSignedOff = Nothing + , _proFlightStartTimeMs = Nothing + , _proSharedTargetings = Nothing + , _proSeller = Nothing + , _proSyndicationProduct = Nothing + , _proFlightEndTimeMs = Nothing + , _proName = Nothing + , _proCreatorContacts = Nothing + , _proPublisherProvidedForecast = Nothing + , _proLabels = Nothing + , _proPublisherProFileId = Nothing + , _proLegacyOfferId = Nothing + , _proProductId = Nothing + } + +-- | The state of the product. (buyer-readonly) +proState :: Lens' Product (Maybe Text) +proState = lens _proState (\ s a -> s{_proState = a}) + +-- | What exchange will provide this inventory (readonly, except on create). +proInventorySource :: Lens' Product (Maybe Text) +proInventorySource + = lens _proInventorySource + (\ s a -> s{_proInventorySource = a}) + +-- | The web property code for the seller. This field is meant to be copied +-- over as is when creating deals. +proWebPropertyCode :: Lens' Product (Maybe Text) +proWebPropertyCode + = lens _proWebPropertyCode + (\ s a -> s{_proWebPropertyCode = a}) + +-- | Creation time in ms. since epoch (readonly) +proCreationTimeMs :: Lens' Product (Maybe Int64) +proCreationTimeMs + = lens _proCreationTimeMs + (\ s a -> s{_proCreationTimeMs = a}) + . mapping _Coerce + +-- | The negotiable terms of the deal (buyer-readonly) +proTerms :: Lens' Product (Maybe DealTerms) +proTerms = lens _proTerms (\ s a -> s{_proTerms = a}) + +-- | Time of last update in ms. since epoch (readonly) +proLastUpdateTimeMs :: Lens' Product (Maybe Int64) +proLastUpdateTimeMs + = lens _proLastUpdateTimeMs + (\ s a -> s{_proLastUpdateTimeMs = a}) + . mapping _Coerce + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#product\". +proKind :: Lens' Product Text +proKind = lens _proKind (\ s a -> s{_proKind = a}) + +-- | The revision number of the product. (readonly) +proRevisionNumber :: Lens' Product (Maybe Int64) +proRevisionNumber + = lens _proRevisionNumber + (\ s a -> s{_proRevisionNumber = a}) + . mapping _Coerce + +-- | Optional private auction id if this offer is a private auction offer. +proPrivateAuctionId :: Lens' Product (Maybe Text) +proPrivateAuctionId + = lens _proPrivateAuctionId + (\ s a -> s{_proPrivateAuctionId = 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. +proDeliveryControl :: Lens' Product (Maybe DeliveryControl) +proDeliveryControl + = lens _proDeliveryControl + (\ s a -> s{_proDeliveryControl = a}) + +-- | If the creator has already signed off on the product, then the buyer can +-- finalize the deal by accepting the product as is. When copying to a +-- proposal, if any of the terms are changed, then auto_finalize is +-- automatically set to false. +proHasCreatorSignedOff :: Lens' Product (Maybe Bool) +proHasCreatorSignedOff + = lens _proHasCreatorSignedOff + (\ s a -> s{_proHasCreatorSignedOff = a}) + +-- | Inventory availability dates. (times are in ms since epoch) The +-- granularity is generally in the order of seconds. (buyer-readonly) +proFlightStartTimeMs :: Lens' Product (Maybe Int64) +proFlightStartTimeMs + = lens _proFlightStartTimeMs + (\ s a -> s{_proFlightStartTimeMs = 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) +proSharedTargetings :: Lens' Product [SharedTargeting] +proSharedTargetings + = lens _proSharedTargetings + (\ s a -> s{_proSharedTargetings = a}) + . _Default + . _Coerce + +-- | Information about the seller that created this product (readonly, except +-- on create) +proSeller :: Lens' Product (Maybe Seller) +proSeller + = lens _proSeller (\ s a -> s{_proSeller = a}) + +-- | The syndication product associated with the deal. (readonly, except on +-- create) +proSyndicationProduct :: Lens' Product (Maybe Text) +proSyndicationProduct + = lens _proSyndicationProduct + (\ s a -> s{_proSyndicationProduct = a}) + +-- | The proposed end time for the deal (ms since epoch) (buyer-readonly) +proFlightEndTimeMs :: Lens' Product (Maybe Int64) +proFlightEndTimeMs + = lens _proFlightEndTimeMs + (\ s a -> s{_proFlightEndTimeMs = a}) + . mapping _Coerce + +-- | The name for this product as set by the seller. (buyer-readonly) +proName :: Lens' Product (Maybe Text) +proName = lens _proName (\ s a -> s{_proName = a}) + +-- | Optional contact information for the creator of this product. +-- (buyer-readonly) +proCreatorContacts :: Lens' Product [ContactInformation] +proCreatorContacts + = lens _proCreatorContacts + (\ s a -> s{_proCreatorContacts = a}) + . _Default + . _Coerce + +-- | Publisher self-provided forecast information. +proPublisherProvidedForecast :: Lens' Product (Maybe PublisherProvidedForecast) +proPublisherProvidedForecast + = lens _proPublisherProvidedForecast + (\ s a -> s{_proPublisherProvidedForecast = a}) + +-- | Optional List of labels for the product (optional, buyer-readonly). +proLabels :: Lens' Product [MarketplaceLabel] +proLabels + = lens _proLabels (\ s a -> s{_proLabels = a}) . + _Default + . _Coerce + +-- | Id of the publisher profile for a given seller. A (seller.account_id, +-- publisher_profile_id) pair uniquely identifies a publisher profile. +-- Buyers can call the PublisherProfiles::List endpoint to get a list of +-- publisher profiles for a given seller. +proPublisherProFileId :: Lens' Product (Maybe Text) +proPublisherProFileId + = lens _proPublisherProFileId + (\ s a -> s{_proPublisherProFileId = a}) + +-- | Optional legacy offer id if this offer is a preferred deal offer. +proLegacyOfferId :: Lens' Product (Maybe Text) +proLegacyOfferId + = lens _proLegacyOfferId + (\ s a -> s{_proLegacyOfferId = a}) + +-- | The unique id for the product (readonly) +proProductId :: Lens' Product (Maybe Text) +proProductId + = lens _proProductId (\ s a -> s{_proProductId = a}) + +instance FromJSON Product where + parseJSON + = withObject "Product" + (\ o -> + Product' <$> + (o .:? "state") <*> (o .:? "inventorySource") <*> + (o .:? "webPropertyCode") + <*> (o .:? "creationTimeMs") + <*> (o .:? "terms") + <*> (o .:? "lastUpdateTimeMs") + <*> (o .:? "kind" .!= "adexchangebuyer#product") + <*> (o .:? "revisionNumber") + <*> (o .:? "privateAuctionId") + <*> (o .:? "deliveryControl") + <*> (o .:? "hasCreatorSignedOff") + <*> (o .:? "flightStartTimeMs") + <*> (o .:? "sharedTargetings" .!= mempty) + <*> (o .:? "seller") + <*> (o .:? "syndicationProduct") + <*> (o .:? "flightEndTimeMs") + <*> (o .:? "name") + <*> (o .:? "creatorContacts" .!= mempty) + <*> (o .:? "publisherProvidedForecast") + <*> (o .:? "labels" .!= mempty) + <*> (o .:? "publisherProfileId") + <*> (o .:? "legacyOfferId") + <*> (o .:? "productId")) + +instance ToJSON Product where + toJSON Product'{..} + = object + (catMaybes + [("state" .=) <$> _proState, + ("inventorySource" .=) <$> _proInventorySource, + ("webPropertyCode" .=) <$> _proWebPropertyCode, + ("creationTimeMs" .=) <$> _proCreationTimeMs, + ("terms" .=) <$> _proTerms, + ("lastUpdateTimeMs" .=) <$> _proLastUpdateTimeMs, + Just ("kind" .= _proKind), + ("revisionNumber" .=) <$> _proRevisionNumber, + ("privateAuctionId" .=) <$> _proPrivateAuctionId, + ("deliveryControl" .=) <$> _proDeliveryControl, + ("hasCreatorSignedOff" .=) <$> + _proHasCreatorSignedOff, + ("flightStartTimeMs" .=) <$> _proFlightStartTimeMs, + ("sharedTargetings" .=) <$> _proSharedTargetings, + ("seller" .=) <$> _proSeller, + ("syndicationProduct" .=) <$> _proSyndicationProduct, + ("flightEndTimeMs" .=) <$> _proFlightEndTimeMs, + ("name" .=) <$> _proName, + ("creatorContacts" .=) <$> _proCreatorContacts, + ("publisherProvidedForecast" .=) <$> + _proPublisherProvidedForecast, + ("labels" .=) <$> _proLabels, + ("publisherProfileId" .=) <$> _proPublisherProFileId, + ("legacyOfferId" .=) <$> _proLegacyOfferId, + ("productId" .=) <$> _proProductId]) + +-- +-- /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]) + , _dProposalRevisionNumber :: !(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' +-- +-- * 'dProposalRevisionNumber' +deleteOrderDealsResponse + :: DeleteOrderDealsResponse +deleteOrderDealsResponse = + DeleteOrderDealsResponse' + { _dDeals = Nothing + , _dProposalRevisionNumber = Nothing + } + +-- | List of deals deleted (in the same proposal 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 proposal. +dProposalRevisionNumber :: Lens' DeleteOrderDealsResponse (Maybe Int64) +dProposalRevisionNumber + = lens _dProposalRevisionNumber + (\ s a -> s{_dProposalRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON DeleteOrderDealsResponse where + parseJSON + = withObject "DeleteOrderDealsResponse" + (\ o -> + DeleteOrderDealsResponse' <$> + (o .:? "deals" .!= mempty) <*> + (o .:? "proposalRevisionNumber")) + +instance ToJSON DeleteOrderDealsResponse where + toJSON DeleteOrderDealsResponse'{..} + = object + (catMaybes + [("deals" .=) <$> _dDeals, + ("proposalRevisionNumber" .=) <$> + _dProposalRevisionNumber]) + +-- +-- /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]) + +-- +-- /See:/ 'publisherProFileAPIProto' smart constructor. +data PublisherProFileAPIProto = PublisherProFileAPIProto' + { _ppfapAudience :: !(Maybe Text) + , _ppfapState :: !(Maybe Text) + , _ppfapMediaKitLink :: !(Maybe Text) + , _ppfapDirectContact :: !(Maybe Text) + , _ppfapSamplePageLink :: !(Maybe Text) + , _ppfapLogoURL :: !(Maybe Text) + , _ppfapKind :: !Text + , _ppfapExchange :: !(Maybe Text) + , _ppfapOverview :: !(Maybe Text) + , _ppfapGooglePlusLink :: !(Maybe Text) + , _ppfapProFileId :: !(Maybe (Textual Int32)) + , _ppfapIsParent :: !(Maybe Bool) + , _ppfapSeller :: !(Maybe Seller) + , _ppfapAccountId :: !(Maybe Text) + , _ppfapName :: !(Maybe Text) + , _ppfapBuyerPitchStatement :: !(Maybe Text) + , _ppfapPublisherProvidedForecast :: !(Maybe PublisherProvidedForecast) + , _ppfapIsPublished :: !(Maybe Bool) + , _ppfapPublisherDomains :: !(Maybe [Text]) + , _ppfapPublisherProFileId :: !(Maybe Text) + , _ppfapRateCardInfoLink :: !(Maybe Text) + , _ppfapTopHeadlines :: !(Maybe [Text]) + , _ppfapProgrammaticContact :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PublisherProFileAPIProto' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ppfapAudience' +-- +-- * 'ppfapState' +-- +-- * 'ppfapMediaKitLink' +-- +-- * 'ppfapDirectContact' +-- +-- * 'ppfapSamplePageLink' +-- +-- * 'ppfapLogoURL' +-- +-- * 'ppfapKind' +-- +-- * 'ppfapExchange' +-- +-- * 'ppfapOverview' +-- +-- * 'ppfapGooglePlusLink' +-- +-- * 'ppfapProFileId' +-- +-- * 'ppfapIsParent' +-- +-- * 'ppfapSeller' +-- +-- * 'ppfapAccountId' +-- +-- * 'ppfapName' +-- +-- * 'ppfapBuyerPitchStatement' +-- +-- * 'ppfapPublisherProvidedForecast' +-- +-- * 'ppfapIsPublished' +-- +-- * 'ppfapPublisherDomains' +-- +-- * 'ppfapPublisherProFileId' +-- +-- * 'ppfapRateCardInfoLink' +-- +-- * 'ppfapTopHeadlines' +-- +-- * 'ppfapProgrammaticContact' +publisherProFileAPIProto + :: PublisherProFileAPIProto +publisherProFileAPIProto = + PublisherProFileAPIProto' + { _ppfapAudience = Nothing + , _ppfapState = Nothing + , _ppfapMediaKitLink = Nothing + , _ppfapDirectContact = Nothing + , _ppfapSamplePageLink = Nothing + , _ppfapLogoURL = Nothing + , _ppfapKind = "adexchangebuyer#publisherProfileApiProto" + , _ppfapExchange = Nothing + , _ppfapOverview = Nothing + , _ppfapGooglePlusLink = Nothing + , _ppfapProFileId = Nothing + , _ppfapIsParent = Nothing + , _ppfapSeller = Nothing + , _ppfapAccountId = Nothing + , _ppfapName = Nothing + , _ppfapBuyerPitchStatement = Nothing + , _ppfapPublisherProvidedForecast = Nothing + , _ppfapIsPublished = Nothing + , _ppfapPublisherDomains = Nothing + , _ppfapPublisherProFileId = Nothing + , _ppfapRateCardInfoLink = Nothing + , _ppfapTopHeadlines = Nothing + , _ppfapProgrammaticContact = Nothing + } + +-- | Publisher provided info on its audience. +ppfapAudience :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapAudience + = lens _ppfapAudience + (\ s a -> s{_ppfapAudience = a}) + +-- | State of the publisher profile. +ppfapState :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapState + = lens _ppfapState (\ s a -> s{_ppfapState = a}) + +-- | The url for additional marketing and sales materials. +ppfapMediaKitLink :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapMediaKitLink + = lens _ppfapMediaKitLink + (\ s a -> s{_ppfapMediaKitLink = a}) + +-- | Direct contact for the publisher profile. +ppfapDirectContact :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapDirectContact + = lens _ppfapDirectContact + (\ s a -> s{_ppfapDirectContact = a}) + +-- | Link for a sample content page. +ppfapSamplePageLink :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapSamplePageLink + = lens _ppfapSamplePageLink + (\ s a -> s{_ppfapSamplePageLink = a}) + +-- | The url to the logo for the publisher. +ppfapLogoURL :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapLogoURL + = lens _ppfapLogoURL (\ s a -> s{_ppfapLogoURL = a}) + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"adexchangebuyer#publisherProfileApiProto\". +ppfapKind :: Lens' PublisherProFileAPIProto Text +ppfapKind + = lens _ppfapKind (\ s a -> s{_ppfapKind = a}) + +-- | Exchange where this publisher profile is from. E.g. AdX, Rubicon etc... +ppfapExchange :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapExchange + = lens _ppfapExchange + (\ s a -> s{_ppfapExchange = a}) + +-- | Publisher provided overview. +ppfapOverview :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapOverview + = lens _ppfapOverview + (\ s a -> s{_ppfapOverview = a}) + +-- | Link to publisher\'s Google+ page. +ppfapGooglePlusLink :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapGooglePlusLink + = lens _ppfapGooglePlusLink + (\ s a -> s{_ppfapGooglePlusLink = a}) + +-- | The pair of (seller.account_id, profile_id) uniquely identifies a +-- publisher profile for a given publisher. +ppfapProFileId :: Lens' PublisherProFileAPIProto (Maybe Int32) +ppfapProFileId + = lens _ppfapProFileId + (\ s a -> s{_ppfapProFileId = a}) + . mapping _Coerce + +-- | True, if this is the parent profile, which represents all domains owned +-- by the publisher. +ppfapIsParent :: Lens' PublisherProFileAPIProto (Maybe Bool) +ppfapIsParent + = lens _ppfapIsParent + (\ s a -> s{_ppfapIsParent = a}) + +-- | Seller of the publisher profile. +ppfapSeller :: Lens' PublisherProFileAPIProto (Maybe Seller) +ppfapSeller + = lens _ppfapSeller (\ s a -> s{_ppfapSeller = a}) + +-- | The account id of the seller. +ppfapAccountId :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapAccountId + = lens _ppfapAccountId + (\ s a -> s{_ppfapAccountId = a}) + +ppfapName :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapName + = lens _ppfapName (\ s a -> s{_ppfapName = a}) + +-- | A pitch statement for the buyer +ppfapBuyerPitchStatement :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapBuyerPitchStatement + = lens _ppfapBuyerPitchStatement + (\ s a -> s{_ppfapBuyerPitchStatement = a}) + +-- | Publisher provided forecasting information. +ppfapPublisherProvidedForecast :: Lens' PublisherProFileAPIProto (Maybe PublisherProvidedForecast) +ppfapPublisherProvidedForecast + = lens _ppfapPublisherProvidedForecast + (\ s a -> s{_ppfapPublisherProvidedForecast = a}) + +-- | True, if this profile is published. Deprecated for state. +ppfapIsPublished :: Lens' PublisherProFileAPIProto (Maybe Bool) +ppfapIsPublished + = lens _ppfapIsPublished + (\ s a -> s{_ppfapIsPublished = a}) + +-- | The list of domains represented in this publisher profile. Empty if this +-- is a parent profile. +ppfapPublisherDomains :: Lens' PublisherProFileAPIProto [Text] +ppfapPublisherDomains + = lens _ppfapPublisherDomains + (\ s a -> s{_ppfapPublisherDomains = a}) + . _Default + . _Coerce + +-- | Unique Id for publisher profile. +ppfapPublisherProFileId :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapPublisherProFileId + = lens _ppfapPublisherProFileId + (\ s a -> s{_ppfapPublisherProFileId = a}) + +-- | Link to publisher rate card +ppfapRateCardInfoLink :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapRateCardInfoLink + = lens _ppfapRateCardInfoLink + (\ s a -> s{_ppfapRateCardInfoLink = a}) + +-- | Publisher provided key metrics and rankings. +ppfapTopHeadlines :: Lens' PublisherProFileAPIProto [Text] +ppfapTopHeadlines + = lens _ppfapTopHeadlines + (\ s a -> s{_ppfapTopHeadlines = a}) + . _Default + . _Coerce + +-- | Programmatic contact for the publisher profile. +ppfapProgrammaticContact :: Lens' PublisherProFileAPIProto (Maybe Text) +ppfapProgrammaticContact + = lens _ppfapProgrammaticContact + (\ s a -> s{_ppfapProgrammaticContact = a}) + +instance FromJSON PublisherProFileAPIProto where + parseJSON + = withObject "PublisherProFileAPIProto" + (\ o -> + PublisherProFileAPIProto' <$> + (o .:? "audience") <*> (o .:? "state") <*> + (o .:? "mediaKitLink") + <*> (o .:? "directContact") + <*> (o .:? "samplePageLink") + <*> (o .:? "logoUrl") + <*> + (o .:? "kind" .!= + "adexchangebuyer#publisherProfileApiProto") + <*> (o .:? "exchange") + <*> (o .:? "overview") + <*> (o .:? "googlePlusLink") + <*> (o .:? "profileId") + <*> (o .:? "isParent") + <*> (o .:? "seller") + <*> (o .:? "accountId") + <*> (o .:? "name") + <*> (o .:? "buyerPitchStatement") + <*> (o .:? "publisherProvidedForecast") + <*> (o .:? "isPublished") + <*> (o .:? "publisherDomains" .!= mempty) + <*> (o .:? "publisherProfileId") + <*> (o .:? "rateCardInfoLink") + <*> (o .:? "topHeadlines" .!= mempty) + <*> (o .:? "programmaticContact")) + +instance ToJSON PublisherProFileAPIProto where + toJSON PublisherProFileAPIProto'{..} + = object + (catMaybes + [("audience" .=) <$> _ppfapAudience, + ("state" .=) <$> _ppfapState, + ("mediaKitLink" .=) <$> _ppfapMediaKitLink, + ("directContact" .=) <$> _ppfapDirectContact, + ("samplePageLink" .=) <$> _ppfapSamplePageLink, + ("logoUrl" .=) <$> _ppfapLogoURL, + Just ("kind" .= _ppfapKind), + ("exchange" .=) <$> _ppfapExchange, + ("overview" .=) <$> _ppfapOverview, + ("googlePlusLink" .=) <$> _ppfapGooglePlusLink, + ("profileId" .=) <$> _ppfapProFileId, + ("isParent" .=) <$> _ppfapIsParent, + ("seller" .=) <$> _ppfapSeller, + ("accountId" .=) <$> _ppfapAccountId, + ("name" .=) <$> _ppfapName, + ("buyerPitchStatement" .=) <$> + _ppfapBuyerPitchStatement, + ("publisherProvidedForecast" .=) <$> + _ppfapPublisherProvidedForecast, + ("isPublished" .=) <$> _ppfapIsPublished, + ("publisherDomains" .=) <$> _ppfapPublisherDomains, + ("publisherProfileId" .=) <$> + _ppfapPublisherProFileId, + ("rateCardInfoLink" .=) <$> _ppfapRateCardInfoLink, + ("topHeadlines" .=) <$> _ppfapTopHeadlines, + ("programmaticContact" .=) <$> + _ppfapProgrammaticContact]) + +-- | A proposal 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) + , _mdLastUpdateTimeMs :: !(Maybe (Textual Int64)) + , _mdKind :: !Text + , _mdDeliveryControl :: !(Maybe DeliveryControl) + , _mdDealServingMetadata :: !(Maybe DealServingMetadata) + , _mdFlightStartTimeMs :: !(Maybe (Textual Int64)) + , _mdSharedTargetings :: !(Maybe [SharedTargeting]) + , _mdProposalId :: !(Maybe Text) + , _mdDealId :: !(Maybe Text) + , _mdInventoryDescription :: !(Maybe Text) + , _mdSyndicationProduct :: !(Maybe Text) + , _mdFlightEndTimeMs :: !(Maybe (Textual Int64)) + , _mdName :: !(Maybe Text) + , _mdSellerContacts :: !(Maybe [ContactInformation]) + , _mdProgrammaticCreativeSource :: !(Maybe Text) + , _mdCreativePreApprovalPolicy :: !(Maybe Text) + , _mdProductRevisionNumber :: !(Maybe (Textual Int64)) + , _mdProductId :: !(Maybe Text) + , _mdCreativeSafeFrameCompatibility :: !(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' +-- +-- * 'mdLastUpdateTimeMs' +-- +-- * 'mdKind' +-- +-- * 'mdDeliveryControl' +-- +-- * 'mdDealServingMetadata' +-- +-- * 'mdFlightStartTimeMs' +-- +-- * 'mdSharedTargetings' +-- +-- * 'mdProposalId' +-- +-- * 'mdDealId' +-- +-- * 'mdInventoryDescription' +-- +-- * 'mdSyndicationProduct' +-- +-- * 'mdFlightEndTimeMs' +-- +-- * 'mdName' +-- +-- * 'mdSellerContacts' +-- +-- * 'mdProgrammaticCreativeSource' +-- +-- * 'mdCreativePreApprovalPolicy' +-- +-- * 'mdProductRevisionNumber' +-- +-- * 'mdProductId' +-- +-- * 'mdCreativeSafeFrameCompatibility' +marketplaceDeal + :: MarketplaceDeal +marketplaceDeal = + MarketplaceDeal' + { _mdExternalDealId = Nothing + , _mdBuyerPrivateData = Nothing + , _mdWebPropertyCode = Nothing + , _mdCreationTimeMs = Nothing + , _mdTerms = Nothing + , _mdLastUpdateTimeMs = Nothing + , _mdKind = "adexchangebuyer#marketplaceDeal" + , _mdDeliveryControl = Nothing + , _mdDealServingMetadata = Nothing + , _mdFlightStartTimeMs = Nothing + , _mdSharedTargetings = Nothing + , _mdProposalId = Nothing + , _mdDealId = Nothing + , _mdInventoryDescription = Nothing + , _mdSyndicationProduct = Nothing + , _mdFlightEndTimeMs = Nothing + , _mdName = Nothing + , _mdSellerContacts = Nothing + , _mdProgrammaticCreativeSource = Nothing + , _mdCreativePreApprovalPolicy = Nothing + , _mdProductRevisionNumber = Nothing + , _mdProductId = Nothing + , _mdCreativeSafeFrameCompatibility = 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 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}) + +-- | Metadata about the serving status of this deal (readonly, writes via +-- custom actions) +mdDealServingMetadata :: Lens' MarketplaceDeal (Maybe DealServingMetadata) +mdDealServingMetadata + = lens _mdDealServingMetadata + (\ s a -> s{_mdDealServingMetadata = 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. Each shared +-- targeting entity is AND\'d together. (updatable) +mdSharedTargetings :: Lens' MarketplaceDeal [SharedTargeting] +mdSharedTargetings + = lens _mdSharedTargetings + (\ s a -> s{_mdSharedTargetings = a}) + . _Default + . _Coerce + +mdProposalId :: Lens' MarketplaceDeal (Maybe Text) +mdProposalId + = lens _mdProposalId (\ s a -> s{_mdProposalId = a}) + +-- | 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 + +-- | Specifies the creative source for programmatic deals, PUBLISHER means +-- creative is provided by seller and ADVERTISR means creative is provided +-- by buyer. (buyer-readonly) +mdProgrammaticCreativeSource :: Lens' MarketplaceDeal (Maybe Text) +mdProgrammaticCreativeSource + = lens _mdProgrammaticCreativeSource + (\ s a -> s{_mdProgrammaticCreativeSource = a}) + +-- | Specifies the creative pre-approval policy (buyer-readonly) +mdCreativePreApprovalPolicy :: Lens' MarketplaceDeal (Maybe Text) +mdCreativePreApprovalPolicy + = lens _mdCreativePreApprovalPolicy + (\ s a -> s{_mdCreativePreApprovalPolicy = a}) + +-- | The revision number of the product that the deal was created from +-- (readonly, except on create) +mdProductRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64) +mdProductRevisionNumber + = lens _mdProductRevisionNumber + (\ s a -> s{_mdProductRevisionNumber = a}) + . mapping _Coerce + +-- | The product-id from which this deal was created. (readonly, except on +-- create) +mdProductId :: Lens' MarketplaceDeal (Maybe Text) +mdProductId + = lens _mdProductId (\ s a -> s{_mdProductId = a}) + +-- | Specifies whether the creative is safeFrame compatible (buyer-readonly) +mdCreativeSafeFrameCompatibility :: Lens' MarketplaceDeal (Maybe Text) +mdCreativeSafeFrameCompatibility + = lens _mdCreativeSafeFrameCompatibility + (\ s a -> s{_mdCreativeSafeFrameCompatibility = a}) + +instance FromJSON MarketplaceDeal where + parseJSON + = withObject "MarketplaceDeal" + (\ o -> + MarketplaceDeal' <$> + (o .:? "externalDealId") <*> + (o .:? "buyerPrivateData") + <*> (o .:? "webPropertyCode") + <*> (o .:? "creationTimeMs") + <*> (o .:? "terms") + <*> (o .:? "lastUpdateTimeMs") + <*> + (o .:? "kind" .!= "adexchangebuyer#marketplaceDeal") + <*> (o .:? "deliveryControl") + <*> (o .:? "dealServingMetadata") + <*> (o .:? "flightStartTimeMs") + <*> (o .:? "sharedTargetings" .!= mempty) + <*> (o .:? "proposalId") + <*> (o .:? "dealId") + <*> (o .:? "inventoryDescription") + <*> (o .:? "syndicationProduct") + <*> (o .:? "flightEndTimeMs") + <*> (o .:? "name") + <*> (o .:? "sellerContacts" .!= mempty) + <*> (o .:? "programmaticCreativeSource") + <*> (o .:? "creativePreApprovalPolicy") + <*> (o .:? "productRevisionNumber") + <*> (o .:? "productId") + <*> (o .:? "creativeSafeFrameCompatibility")) + +instance ToJSON MarketplaceDeal where + toJSON MarketplaceDeal'{..} + = object + (catMaybes + [("externalDealId" .=) <$> _mdExternalDealId, + ("buyerPrivateData" .=) <$> _mdBuyerPrivateData, + ("webPropertyCode" .=) <$> _mdWebPropertyCode, + ("creationTimeMs" .=) <$> _mdCreationTimeMs, + ("terms" .=) <$> _mdTerms, + ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs, + Just ("kind" .= _mdKind), + ("deliveryControl" .=) <$> _mdDeliveryControl, + ("dealServingMetadata" .=) <$> + _mdDealServingMetadata, + ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs, + ("sharedTargetings" .=) <$> _mdSharedTargetings, + ("proposalId" .=) <$> _mdProposalId, + ("dealId" .=) <$> _mdDealId, + ("inventoryDescription" .=) <$> + _mdInventoryDescription, + ("syndicationProduct" .=) <$> _mdSyndicationProduct, + ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs, + ("name" .=) <$> _mdName, + ("sellerContacts" .=) <$> _mdSellerContacts, + ("programmaticCreativeSource" .=) <$> + _mdProgrammaticCreativeSource, + ("creativePreApprovalPolicy" .=) <$> + _mdCreativePreApprovalPolicy, + ("productRevisionNumber" .=) <$> + _mdProductRevisionNumber, + ("productId" .=) <$> _mdProductId, + ("creativeSafeFrameCompatibility" .=) <$> + _mdCreativeSafeFrameCompatibility]) + +-- +-- /See:/ 'getOffersResponse' smart constructor. +newtype GetOffersResponse = GetOffersResponse' + { _gorProducts :: Maybe [Product] + } 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: +-- +-- * 'gorProducts' +getOffersResponse + :: GetOffersResponse +getOffersResponse = + GetOffersResponse' + { _gorProducts = Nothing + } + +-- | The returned list of products. +gorProducts :: Lens' GetOffersResponse [Product] +gorProducts + = lens _gorProducts (\ s a -> s{_gorProducts = a}) . + _Default + . _Coerce + +instance FromJSON GetOffersResponse where + parseJSON + = withObject "GetOffersResponse" + (\ o -> + GetOffersResponse' <$> (o .:? "products" .!= mempty)) + +instance ToJSON GetOffersResponse where + toJSON GetOffersResponse'{..} + = object + (catMaybes [("products" .=) <$> _gorProducts]) + +-- +-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor. +data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms' + { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer]) + , _dtngatAutoOptimizePrivateAuction :: !(Maybe Bool) + } 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' +-- +-- * 'dtngatAutoOptimizePrivateAuction' +dealTermsNonGuaranteedAuctionTerms + :: DealTermsNonGuaranteedAuctionTerms +dealTermsNonGuaranteedAuctionTerms = + DealTermsNonGuaranteedAuctionTerms' + { _dtngatReservePricePerBuyers = Nothing + , _dtngatAutoOptimizePrivateAuction = Nothing + } + +-- | Reserve price for the specified buyer. +dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer] +dtngatReservePricePerBuyers + = lens _dtngatReservePricePerBuyers + (\ s a -> s{_dtngatReservePricePerBuyers = a}) + . _Default + . _Coerce + +-- | True if open auction buyers are allowed to compete with invited buyers +-- in this private auction (buyer-readonly). +dtngatAutoOptimizePrivateAuction :: Lens' DealTermsNonGuaranteedAuctionTerms (Maybe Bool) +dtngatAutoOptimizePrivateAuction + = lens _dtngatAutoOptimizePrivateAuction + (\ s a -> s{_dtngatAutoOptimizePrivateAuction = a}) + +instance FromJSON DealTermsNonGuaranteedAuctionTerms + where + parseJSON + = withObject "DealTermsNonGuaranteedAuctionTerms" + (\ o -> + DealTermsNonGuaranteedAuctionTerms' <$> + (o .:? "reservePricePerBuyers" .!= mempty) <*> + (o .:? "autoOptimizePrivateAuction")) + +instance ToJSON DealTermsNonGuaranteedAuctionTerms + where + toJSON DealTermsNonGuaranteedAuctionTerms'{..} + = object + (catMaybes + [("reservePricePerBuyers" .=) <$> + _dtngatReservePricePerBuyers, + ("autoOptimizePrivateAuction" .=) <$> + _dtngatAutoOptimizePrivateAuction]) + +-- +-- /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:/ 'dealTerms' smart constructor. +data DealTerms = DealTerms' + { _dtEstimatedGrossSpend :: !(Maybe Price) + , _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms) + , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms) + , _dtBrandingType :: !(Maybe Text) + , _dtEstimatedImpressionsPerDay :: !(Maybe (Textual Int64)) + , _dtSellerTimeZone :: !(Maybe Text) + , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms) + , _dtDescription :: !(Maybe Text) + } 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: +-- +-- * 'dtEstimatedGrossSpend' +-- +-- * 'dtNonGuaranteedFixedPriceTerms' +-- +-- * 'dtNonGuaranteedAuctionTerms' +-- +-- * 'dtBrandingType' +-- +-- * 'dtEstimatedImpressionsPerDay' +-- +-- * 'dtSellerTimeZone' +-- +-- * 'dtGuaranteedFixedPriceTerms' +-- +-- * 'dtDescription' +dealTerms + :: DealTerms +dealTerms = + DealTerms' + { _dtEstimatedGrossSpend = Nothing + , _dtNonGuaranteedFixedPriceTerms = Nothing + , _dtNonGuaranteedAuctionTerms = Nothing + , _dtBrandingType = Nothing + , _dtEstimatedImpressionsPerDay = Nothing + , _dtSellerTimeZone = Nothing + , _dtGuaranteedFixedPriceTerms = Nothing + , _dtDescription = Nothing + } + +-- | Non-binding estimate of the estimated gross spend for this deal Can be +-- set by buyer or seller. +dtEstimatedGrossSpend :: Lens' DealTerms (Maybe Price) +dtEstimatedGrossSpend + = lens _dtEstimatedGrossSpend + (\ s a -> s{_dtEstimatedGrossSpend = a}) + +-- | 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}) + +-- | Visibilty of the URL in bid requests. +dtBrandingType :: Lens' DealTerms (Maybe Text) +dtBrandingType + = lens _dtBrandingType + (\ s a -> s{_dtBrandingType = a}) + +-- | Non-binding estimate of the impressions served per day Can be set by +-- buyer or seller. +dtEstimatedImpressionsPerDay :: Lens' DealTerms (Maybe Int64) +dtEstimatedImpressionsPerDay + = lens _dtEstimatedImpressionsPerDay + (\ s a -> s{_dtEstimatedImpressionsPerDay = a}) + . mapping _Coerce + +-- | For deals with Cost Per Day billing, defines the timezone used to mark +-- the boundaries of a day (buyer-readonly) +dtSellerTimeZone :: Lens' DealTerms (Maybe Text) +dtSellerTimeZone + = lens _dtSellerTimeZone + (\ s a -> s{_dtSellerTimeZone = 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 .:? "estimatedGrossSpend") <*> + (o .:? "nonGuaranteedFixedPriceTerms") + <*> (o .:? "nonGuaranteedAuctionTerms") + <*> (o .:? "brandingType") + <*> (o .:? "estimatedImpressionsPerDay") + <*> (o .:? "sellerTimeZone") + <*> (o .:? "guaranteedFixedPriceTerms") + <*> (o .:? "description")) + +instance ToJSON DealTerms where + toJSON DealTerms'{..} + = object + (catMaybes + [("estimatedGrossSpend" .=) <$> + _dtEstimatedGrossSpend, + ("nonGuaranteedFixedPriceTerms" .=) <$> + _dtNonGuaranteedFixedPriceTerms, + ("nonGuaranteedAuctionTerms" .=) <$> + _dtNonGuaranteedAuctionTerms, + ("brandingType" .=) <$> _dtBrandingType, + ("estimatedImpressionsPerDay" .=) <$> + _dtEstimatedImpressionsPerDay, + ("sellerTimeZone" .=) <$> _dtSellerTimeZone, + ("guaranteedFixedPriceTerms" .=) <$> + _dtGuaranteedFixedPriceTerms, + ("description" .=) <$> _dtDescription]) + +-- +-- /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:/ 'buyer' smart constructor. +newtype Buyer = Buyer' + { _buyAccountId :: 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: +-- +-- * 'buyAccountId' +buyer + :: Buyer +buyer = + Buyer' + { _buyAccountId = Nothing + } + +-- | Adx account id of the buyer. +buyAccountId :: Lens' Buyer (Maybe Text) +buyAccountId + = lens _buyAccountId (\ s a -> s{_buyAccountId = a}) + +instance FromJSON Buyer where + parseJSON + = withObject "Buyer" + (\ o -> Buyer' <$> (o .:? "accountId")) + +instance ToJSON Buyer where + toJSON Buyer'{..} + = object + (catMaybes [("accountId" .=) <$> _buyAccountId]) + +-- +-- /See:/ 'addOrderDealsRequest' smart constructor. +data AddOrderDealsRequest = AddOrderDealsRequest' + { _aUpdateAction :: !(Maybe Text) + , _aDeals :: !(Maybe [MarketplaceDeal]) + , _aProposalRevisionNumber :: !(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' +-- +-- * 'aProposalRevisionNumber' +addOrderDealsRequest + :: AddOrderDealsRequest +addOrderDealsRequest = + AddOrderDealsRequest' + { _aUpdateAction = Nothing + , _aDeals = Nothing + , _aProposalRevisionNumber = Nothing + } + +-- | Indicates an optional action to take on the proposal +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 proposal revision number. +aProposalRevisionNumber :: Lens' AddOrderDealsRequest (Maybe Int64) +aProposalRevisionNumber + = lens _aProposalRevisionNumber + (\ s a -> s{_aProposalRevisionNumber = a}) + . mapping _Coerce + +instance FromJSON AddOrderDealsRequest where + parseJSON + = withObject "AddOrderDealsRequest" + (\ o -> + AddOrderDealsRequest' <$> + (o .:? "updateAction") <*> (o .:? "deals" .!= mempty) + <*> (o .:? "proposalRevisionNumber")) + +instance ToJSON AddOrderDealsRequest where + toJSON AddOrderDealsRequest'{..} + = object + (catMaybes + [("updateAction" .=) <$> _aUpdateAction, + ("deals" .=) <$> _aDeals, + ("proposalRevisionNumber" .=) <$> + _aProposalRevisionNumber]) + +-- | Tracks which parties (if any) have paused a deal. The deal is considered +-- paused if has_buyer_paused || has_seller_paused. Each of the +-- has_buyer_paused or the has_seller_paused bits can be set independently. +-- +-- /See:/ 'dealServingMetadataDealPauseStatus' smart constructor. +data DealServingMetadataDealPauseStatus = DealServingMetadataDealPauseStatus' + { _dsmdpsFirstPausedBy :: !(Maybe Text) + , _dsmdpsHasBuyerPaused :: !(Maybe Bool) + , _dsmdpsHasSellerPaused :: !(Maybe Bool) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DealServingMetadataDealPauseStatus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dsmdpsFirstPausedBy' +-- +-- * 'dsmdpsHasBuyerPaused' +-- +-- * 'dsmdpsHasSellerPaused' +dealServingMetadataDealPauseStatus + :: DealServingMetadataDealPauseStatus +dealServingMetadataDealPauseStatus = + DealServingMetadataDealPauseStatus' + { _dsmdpsFirstPausedBy = Nothing + , _dsmdpsHasBuyerPaused = Nothing + , _dsmdpsHasSellerPaused = Nothing + } + +-- | If the deal is paused, records which party paused the deal first. +dsmdpsFirstPausedBy :: Lens' DealServingMetadataDealPauseStatus (Maybe Text) +dsmdpsFirstPausedBy + = lens _dsmdpsFirstPausedBy + (\ s a -> s{_dsmdpsFirstPausedBy = a}) + +dsmdpsHasBuyerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool) +dsmdpsHasBuyerPaused + = lens _dsmdpsHasBuyerPaused + (\ s a -> s{_dsmdpsHasBuyerPaused = a}) + +dsmdpsHasSellerPaused :: Lens' DealServingMetadataDealPauseStatus (Maybe Bool) +dsmdpsHasSellerPaused + = lens _dsmdpsHasSellerPaused + (\ s a -> s{_dsmdpsHasSellerPaused = a}) + +instance FromJSON DealServingMetadataDealPauseStatus + where + parseJSON + = withObject "DealServingMetadataDealPauseStatus" + (\ o -> + DealServingMetadataDealPauseStatus' <$> + (o .:? "firstPausedBy") <*> (o .:? "hasBuyerPaused") + <*> (o .:? "hasSellerPaused")) + +instance ToJSON DealServingMetadataDealPauseStatus + where + toJSON DealServingMetadataDealPauseStatus'{..} + = object + (catMaybes + [("firstPausedBy" .=) <$> _dsmdpsFirstPausedBy, + ("hasBuyerPaused" .=) <$> _dsmdpsHasBuyerPaused, + ("hasSellerPaused" .=) <$> _dsmdpsHasSellerPaused]) + +-- +-- /See:/ 'dealTermsGuaranteedFixedPriceTerms' smart constructor. +data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms' + { _dtgfptGuaranteedLooks :: !(Maybe (Textual Int64)) + , _dtgfptGuaranteedImpressions :: !(Maybe (Textual Int64)) + , _dtgfptBillingInfo :: !(Maybe DealTermsGuaranteedFixedPriceTermsBillingInfo) + , _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' +-- +-- * 'dtgfptBillingInfo' +-- +-- * 'dtgfptFixedPrices' +dealTermsGuaranteedFixedPriceTerms + :: DealTermsGuaranteedFixedPriceTerms +dealTermsGuaranteedFixedPriceTerms = + DealTermsGuaranteedFixedPriceTerms' + { _dtgfptGuaranteedLooks = Nothing + , _dtgfptGuaranteedImpressions = Nothing + , _dtgfptBillingInfo = Nothing + , _dtgfptFixedPrices = Nothing + } + +-- | Count of guaranteed looks. Required for deal, optional for product. +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 + +-- | External billing info for this Deal. This field is relevant when +-- external billing info such as price has a different currency code than +-- DFP\/AdX. +dtgfptBillingInfo :: Lens' DealTermsGuaranteedFixedPriceTerms (Maybe DealTermsGuaranteedFixedPriceTermsBillingInfo) +dtgfptBillingInfo + = lens _dtgfptBillingInfo + (\ s a -> s{_dtgfptBillingInfo = a}) + +-- | 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 .:? "billingInfo") + <*> (o .:? "fixedPrices" .!= mempty)) + +instance ToJSON DealTermsGuaranteedFixedPriceTerms + where + toJSON DealTermsGuaranteedFixedPriceTerms'{..} + = object + (catMaybes + [("guaranteedLooks" .=) <$> _dtgfptGuaranteedLooks, + ("guaranteedImpressions" .=) <$> + _dtgfptGuaranteedImpressions, + ("billingInfo" .=) <$> _dtgfptBillingInfo, ("fixedPrices" .=) <$> _dtgfptFixedPrices]) diff --git a/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs b/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs --- a/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs +++ b/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.AdExchangeBuyer.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -18,84 +18,6 @@ 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 @@ -112,20 +34,20 @@ | NotChecked -- ^ @not_checked@ -- Creatives whose open auction status is not yet checked. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + 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 FromHttpApiData CreativesListOpenAuctionStatusFilter where + parseQueryParam = \case + "approved" -> Right Approved + "conditionally_approved" -> Right ConditionallyApproved + "disapproved" -> Right DisApproved + "not_checked" -> Right NotChecked + x -> Left ("Unable to parse CreativesListOpenAuctionStatusFilter from: " <> x) -instance ToText CreativesListOpenAuctionStatusFilter where - toText = \case +instance ToHttpApiData CreativesListOpenAuctionStatusFilter where + toQueryParam = \case Approved -> "approved" ConditionallyApproved -> "conditionally_approved" DisApproved -> "disapproved" @@ -137,36 +59,74 @@ instance ToJSON CreativesListOpenAuctionStatusFilter where toJSON = toJSONText --- | When specified, only creatives having the given direct deals status are +-- | The proposed action to take on the proposal. +data ProposalsPatchUpdateAction + = Accept + -- ^ @accept@ + | Cancel + -- ^ @cancel@ + | Propose + -- ^ @propose@ + | UnknownAction + -- ^ @unknownAction@ + | UpdateFinalized + -- ^ @updateFinalized@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProposalsPatchUpdateAction + +instance FromHttpApiData ProposalsPatchUpdateAction where + parseQueryParam = \case + "accept" -> Right Accept + "cancel" -> Right Cancel + "propose" -> Right Propose + "unknownAction" -> Right UnknownAction + "updateFinalized" -> Right UpdateFinalized + x -> Left ("Unable to parse ProposalsPatchUpdateAction from: " <> x) + +instance ToHttpApiData ProposalsPatchUpdateAction where + toQueryParam = \case + Accept -> "accept" + Cancel -> "cancel" + Propose -> "propose" + UnknownAction -> "unknownAction" + UpdateFinalized -> "updateFinalized" + +instance FromJSON ProposalsPatchUpdateAction where + parseJSON = parseJSONText "ProposalsPatchUpdateAction" + +instance ToJSON ProposalsPatchUpdateAction where + toJSON = toJSONText + +-- | When specified, only creatives having the given deals status are -- returned. data CreativesListDealsStatusFilter = CLDSFApproved -- ^ @approved@ - -- Creatives which have been approved for serving on direct deals. + -- Creatives which have been approved for serving on deals. | CLDSFConditionallyApproved -- ^ @conditionally_approved@ - -- Creatives which have been conditionally approved for serving on direct - -- deals. + -- Creatives which have been conditionally approved for serving on deals. | CLDSFDisApproved -- ^ @disapproved@ - -- Creatives which have been disapproved for serving on direct deals. + -- Creatives which have been disapproved for serving on deals. | CLDSFNotChecked -- ^ @not_checked@ - -- Creatives whose direct deals status is not yet checked. - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + -- Creatives whose 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 FromHttpApiData CreativesListDealsStatusFilter where + parseQueryParam = \case + "approved" -> Right CLDSFApproved + "conditionally_approved" -> Right CLDSFConditionallyApproved + "disapproved" -> Right CLDSFDisApproved + "not_checked" -> Right CLDSFNotChecked + x -> Left ("Unable to parse CreativesListDealsStatusFilter from: " <> x) -instance ToText CreativesListDealsStatusFilter where - toText = \case +instance ToHttpApiData CreativesListDealsStatusFilter where + toQueryParam = \case CLDSFApproved -> "approved" CLDSFConditionallyApproved -> "conditionally_approved" CLDSFDisApproved -> "disapproved" @@ -176,4 +136,43 @@ parseJSON = parseJSONText "CreativesListDealsStatusFilter" instance ToJSON CreativesListDealsStatusFilter where + toJSON = toJSONText + +-- | The proposed action to take on the proposal. +data ProposalsUpdateUpdateAction + = PUUAAccept + -- ^ @accept@ + | PUUACancel + -- ^ @cancel@ + | PUUAPropose + -- ^ @propose@ + | PUUAUnknownAction + -- ^ @unknownAction@ + | PUUAUpdateFinalized + -- ^ @updateFinalized@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProposalsUpdateUpdateAction + +instance FromHttpApiData ProposalsUpdateUpdateAction where + parseQueryParam = \case + "accept" -> Right PUUAAccept + "cancel" -> Right PUUACancel + "propose" -> Right PUUAPropose + "unknownAction" -> Right PUUAUnknownAction + "updateFinalized" -> Right PUUAUpdateFinalized + x -> Left ("Unable to parse ProposalsUpdateUpdateAction from: " <> x) + +instance ToHttpApiData ProposalsUpdateUpdateAction where + toQueryParam = \case + PUUAAccept -> "accept" + PUUACancel -> "cancel" + PUUAPropose -> "propose" + PUUAUnknownAction -> "unknownAction" + PUUAUpdateFinalized -> "updateFinalized" + +instance FromJSON ProposalsUpdateUpdateAction where + parseJSON = parseJSONText "ProposalsUpdateUpdateAction" + +instance ToJSON ProposalsUpdateUpdateAction where toJSON = toJSONText diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Accounts.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Gets one account by ID. -- -- /See:/ 'accountsGet' smart constructor. -newtype AccountsGet = AccountsGet +newtype AccountsGet = AccountsGet' { _agId :: Textual Int32 } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Int32 -- ^ 'agId' -> AccountsGet accountsGet pAgId_ = - AccountsGet + AccountsGet' { _agId = _Coerce # pAgId_ } @@ -74,7 +74,9 @@ instance GoogleRequest AccountsGet where type Rs AccountsGet = Account - requestClient AccountsGet{..} + type Scopes AccountsGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient AccountsGet'{..} = go _agId (Just AltJSON) adExchangeBuyerService where go = buildClient (Proxy :: Proxy AccountsGetResource) diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Accounts.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -49,18 +49,20 @@ -- -- /See:/ 'accountsList'' smart constructor. data AccountsList' = - 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' +accountsList' = AccountsList'' instance GoogleRequest AccountsList' where type Rs AccountsList' = AccountsList - requestClient AccountsList'{} + type Scopes AccountsList' = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient AccountsList''{} = go (Just AltJSON) adExchangeBuyerService where go = buildClient (Proxy :: Proxy AccountsListResource) diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Accounts.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | Updates an existing account. This method supports patch semantics. -- -- /See:/ 'accountsPatch' smart constructor. -data AccountsPatch = AccountsPatch +data AccountsPatch = AccountsPatch' { _apPayload :: !Account , _apId :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) @@ -70,7 +70,7 @@ -> Int32 -- ^ 'apId' -> AccountsPatch accountsPatch pApPayload_ pApId_ = - AccountsPatch + AccountsPatch' { _apPayload = pApPayload_ , _apId = _Coerce # pApId_ } @@ -86,7 +86,9 @@ instance GoogleRequest AccountsPatch where type Rs AccountsPatch = Account - requestClient AccountsPatch{..} + type Scopes AccountsPatch = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient AccountsPatch'{..} = go _apId (Just AltJSON) _apPayload adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Accounts.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | Updates an existing account. -- -- /See:/ 'accountsUpdate' smart constructor. -data AccountsUpdate = AccountsUpdate +data AccountsUpdate = AccountsUpdate' { _auPayload :: !Account , _auId :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) @@ -70,7 +70,7 @@ -> Int32 -- ^ 'auId' -> AccountsUpdate accountsUpdate pAuPayload_ pAuId_ = - AccountsUpdate + AccountsUpdate' { _auPayload = pAuPayload_ , _auId = _Coerce # pAuId_ } @@ -86,7 +86,9 @@ instance GoogleRequest AccountsUpdate where type Rs AccountsUpdate = Account - requestClient AccountsUpdate{..} + type Scopes AccountsUpdate = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient AccountsUpdate'{..} = go _auId (Just AltJSON) _auPayload adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Returns the billing information for one account specified by account ID. -- -- /See:/ 'billingInfoGet' smart constructor. -newtype BillingInfoGet = BillingInfoGet +newtype BillingInfoGet = BillingInfoGet' { _bigAccountId :: Textual Int32 } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Int32 -- ^ 'bigAccountId' -> BillingInfoGet billingInfoGet pBigAccountId_ = - BillingInfoGet + BillingInfoGet' { _bigAccountId = _Coerce # pBigAccountId_ } @@ -76,7 +76,9 @@ instance GoogleRequest BillingInfoGet where type Rs BillingInfoGet = BillingInfo - requestClient BillingInfoGet{..} + type Scopes BillingInfoGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient BillingInfoGet'{..} = go _bigAccountId (Just AltJSON) adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.BillingInfo.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,18 +52,20 @@ -- -- /See:/ 'billingInfoList'' smart constructor. data BillingInfoList' = - 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' +billingInfoList' = BillingInfoList'' instance GoogleRequest BillingInfoList' where type Rs BillingInfoList' = BillingInfoList - requestClient BillingInfoList'{} + type Scopes BillingInfoList' = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient BillingInfoList''{} = go (Just AltJSON) adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Budget.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -55,7 +55,7 @@ -- accountId and billingId. -- -- /See:/ 'budgetGet' smart constructor. -data BudgetGet = BudgetGet +data BudgetGet = BudgetGet' { _bgAccountId :: !(Textual Int64) , _bgBillingId :: !(Textual Int64) } deriving (Eq,Show,Data,Typeable,Generic) @@ -72,7 +72,7 @@ -> Int64 -- ^ 'bgBillingId' -> BudgetGet budgetGet pBgAccountId_ pBgBillingId_ = - BudgetGet + BudgetGet' { _bgAccountId = _Coerce # pBgAccountId_ , _bgBillingId = _Coerce # pBgBillingId_ } @@ -91,7 +91,9 @@ instance GoogleRequest BudgetGet where type Rs BudgetGet = Budget - requestClient BudgetGet{..} + type Scopes BudgetGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient BudgetGet'{..} = go _bgAccountId _bgBillingId (Just AltJSON) adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Budget.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- method supports patch semantics. -- -- /See:/ 'budgetPatch' smart constructor. -data BudgetPatch = BudgetPatch +data BudgetPatch = BudgetPatch' { _bpPayload :: !Budget , _bpAccountId :: !(Textual Int64) , _bpBillingId :: !(Textual Int64) @@ -80,7 +80,7 @@ -> Int64 -- ^ 'bpBillingId' -> BudgetPatch budgetPatch pBpPayload_ pBpAccountId_ pBpBillingId_ = - BudgetPatch + BudgetPatch' { _bpPayload = pBpPayload_ , _bpAccountId = _Coerce # pBpAccountId_ , _bpBillingId = _Coerce # pBpBillingId_ @@ -105,7 +105,9 @@ instance GoogleRequest BudgetPatch where type Rs BudgetPatch = Budget - requestClient BudgetPatch{..} + type Scopes BudgetPatch = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient BudgetPatch'{..} = go _bpAccountId _bpBillingId (Just AltJSON) _bpPayload adExchangeBuyerService diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Budget.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- accountId and billingId, with the budget amount in the request. -- -- /See:/ 'budgetUpdate' smart constructor. -data BudgetUpdate = BudgetUpdate +data BudgetUpdate = BudgetUpdate' { _buPayload :: !Budget , _buAccountId :: !(Textual Int64) , _buBillingId :: !(Textual Int64) @@ -78,7 +78,7 @@ -> Int64 -- ^ 'buBillingId' -> BudgetUpdate budgetUpdate pBuPayload_ pBuAccountId_ pBuBillingId_ = - BudgetUpdate + BudgetUpdate' { _buPayload = pBuPayload_ , _buAccountId = _Coerce # pBuAccountId_ , _buBillingId = _Coerce # pBuBillingId_ @@ -103,7 +103,9 @@ instance GoogleRequest BudgetUpdate where type Rs BudgetUpdate = Budget - requestClient BudgetUpdate{..} + type Scopes BudgetUpdate = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient BudgetUpdate'{..} = go _buAccountId _buBillingId (Just AltJSON) _buPayload adExchangeBuyerService diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs b/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hs +++ /dev/null @@ -1,96 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hs +++ /dev/null @@ -1,110 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hs +++ /dev/null @@ -1,110 +0,0 @@ -{-# 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/AddDeal.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/AddDeal.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/AddDeal.hs @@ -0,0 +1,115 @@ +{-# 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.AddDeal +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Add a deal id association for the creative. +-- +-- /See:/ for @adexchangebuyer.creatives.addDeal@. +module Network.Google.Resource.AdExchangeBuyer.Creatives.AddDeal + ( + -- * REST Resource + CreativesAddDealResource + + -- * Creating a Request + , creativesAddDeal + , CreativesAddDeal + + -- * Request Lenses + , cadBuyerCreativeId + , cadDealId + , cadAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.creatives.addDeal@ method which the +-- 'CreativesAddDeal' request conforms to. +type CreativesAddDealResource = + "adexchangebuyer" :> + "v1.4" :> + "creatives" :> + Capture "accountId" (Textual Int32) :> + Capture "buyerCreativeId" Text :> + "addDeal" :> + Capture "dealId" (Textual Int64) :> + QueryParam "alt" AltJSON :> Post '[JSON] () + +-- | Add a deal id association for the creative. +-- +-- /See:/ 'creativesAddDeal' smart constructor. +data CreativesAddDeal = CreativesAddDeal' + { _cadBuyerCreativeId :: !Text + , _cadDealId :: !(Textual Int64) + , _cadAccountId :: !(Textual Int32) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesAddDeal' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cadBuyerCreativeId' +-- +-- * 'cadDealId' +-- +-- * 'cadAccountId' +creativesAddDeal + :: Text -- ^ 'cadBuyerCreativeId' + -> Int64 -- ^ 'cadDealId' + -> Int32 -- ^ 'cadAccountId' + -> CreativesAddDeal +creativesAddDeal pCadBuyerCreativeId_ pCadDealId_ pCadAccountId_ = + CreativesAddDeal' + { _cadBuyerCreativeId = pCadBuyerCreativeId_ + , _cadDealId = _Coerce # pCadDealId_ + , _cadAccountId = _Coerce # pCadAccountId_ + } + +-- | The buyer-specific id for this creative. +cadBuyerCreativeId :: Lens' CreativesAddDeal Text +cadBuyerCreativeId + = lens _cadBuyerCreativeId + (\ s a -> s{_cadBuyerCreativeId = a}) + +-- | The id of the deal id to associate with this creative. +cadDealId :: Lens' CreativesAddDeal Int64 +cadDealId + = lens _cadDealId (\ s a -> s{_cadDealId = a}) . + _Coerce + +-- | The id for the account that will serve this creative. +cadAccountId :: Lens' CreativesAddDeal Int32 +cadAccountId + = lens _cadAccountId (\ s a -> s{_cadAccountId = a}) + . _Coerce + +instance GoogleRequest CreativesAddDeal where + type Rs CreativesAddDeal = () + type Scopes CreativesAddDeal = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient CreativesAddDeal'{..} + = go _cadAccountId _cadBuyerCreativeId _cadDealId + (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy CreativesAddDealResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Creatives.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -55,7 +55,7 @@ -- 30-40 minutes after submission. -- -- /See:/ 'creativesGet' smart constructor. -data CreativesGet = CreativesGet +data CreativesGet = CreativesGet' { _cgBuyerCreativeId :: !Text , _cgAccountId :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) @@ -72,7 +72,7 @@ -> Int32 -- ^ 'cgAccountId' -> CreativesGet creativesGet pCgBuyerCreativeId_ pCgAccountId_ = - CreativesGet + CreativesGet' { _cgBuyerCreativeId = pCgBuyerCreativeId_ , _cgAccountId = _Coerce # pCgAccountId_ } @@ -91,7 +91,9 @@ instance GoogleRequest CreativesGet where type Rs CreativesGet = Creative - requestClient CreativesGet{..} + type Scopes CreativesGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient CreativesGet'{..} = go _cgAccountId _cgBuyerCreativeId (Just AltJSON) adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Creatives.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Submit a new creative. -- -- /See:/ 'creativesInsert' smart constructor. -newtype CreativesInsert = CreativesInsert +newtype CreativesInsert = CreativesInsert' { _ciPayload :: Creative } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Creative -- ^ 'ciPayload' -> CreativesInsert creativesInsert pCiPayload_ = - CreativesInsert + CreativesInsert' { _ciPayload = pCiPayload_ } @@ -75,7 +75,9 @@ instance GoogleRequest CreativesInsert where type Rs CreativesInsert = Creative - requestClient CreativesInsert{..} + type Scopes CreativesInsert = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient CreativesInsert'{..} = go (Just AltJSON) _ciPayload adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.Creatives.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,7 +67,7 @@ -- creative will be available 30-40 minutes after submission. -- -- /See:/ 'creativesList'' smart constructor. -data CreativesList' = CreativesList' +data CreativesList' = CreativesList'' { _clBuyerCreativeId :: !(Maybe [Text]) , _clOpenAuctionStatusFilter :: !(Maybe CreativesListOpenAuctionStatusFilter) , _clAccountId :: !(Maybe [Textual Int32]) @@ -94,7 +94,7 @@ creativesList' :: CreativesList' creativesList' = - CreativesList' + CreativesList'' { _clBuyerCreativeId = Nothing , _clOpenAuctionStatusFilter = Nothing , _clAccountId = Nothing @@ -133,7 +133,7 @@ clPageToken = lens _clPageToken (\ s a -> s{_clPageToken = a}) --- | When specified, only creatives having the given direct deals status are +-- | When specified, only creatives having the given deals status are -- returned. clDealsStatusFilter :: Lens' CreativesList' (Maybe CreativesListDealsStatusFilter) clDealsStatusFilter @@ -149,7 +149,9 @@ instance GoogleRequest CreativesList' where type Rs CreativesList' = CreativesList - requestClient CreativesList'{..} + type Scopes CreativesList' = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient CreativesList''{..} = go (_clBuyerCreativeId ^. _Default) _clOpenAuctionStatusFilter (_clAccountId ^. _Default) diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/RemoveDeal.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/RemoveDeal.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/RemoveDeal.hs @@ -0,0 +1,115 @@ +{-# 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.RemoveDeal +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Remove a deal id associated with the creative. +-- +-- /See:/ for @adexchangebuyer.creatives.removeDeal@. +module Network.Google.Resource.AdExchangeBuyer.Creatives.RemoveDeal + ( + -- * REST Resource + CreativesRemoveDealResource + + -- * Creating a Request + , creativesRemoveDeal + , CreativesRemoveDeal + + -- * Request Lenses + , crdBuyerCreativeId + , crdDealId + , crdAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.creatives.removeDeal@ method which the +-- 'CreativesRemoveDeal' request conforms to. +type CreativesRemoveDealResource = + "adexchangebuyer" :> + "v1.4" :> + "creatives" :> + Capture "accountId" (Textual Int32) :> + Capture "buyerCreativeId" Text :> + "removeDeal" :> + Capture "dealId" (Textual Int64) :> + QueryParam "alt" AltJSON :> Post '[JSON] () + +-- | Remove a deal id associated with the creative. +-- +-- /See:/ 'creativesRemoveDeal' smart constructor. +data CreativesRemoveDeal = CreativesRemoveDeal' + { _crdBuyerCreativeId :: !Text + , _crdDealId :: !(Textual Int64) + , _crdAccountId :: !(Textual Int32) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativesRemoveDeal' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'crdBuyerCreativeId' +-- +-- * 'crdDealId' +-- +-- * 'crdAccountId' +creativesRemoveDeal + :: Text -- ^ 'crdBuyerCreativeId' + -> Int64 -- ^ 'crdDealId' + -> Int32 -- ^ 'crdAccountId' + -> CreativesRemoveDeal +creativesRemoveDeal pCrdBuyerCreativeId_ pCrdDealId_ pCrdAccountId_ = + CreativesRemoveDeal' + { _crdBuyerCreativeId = pCrdBuyerCreativeId_ + , _crdDealId = _Coerce # pCrdDealId_ + , _crdAccountId = _Coerce # pCrdAccountId_ + } + +-- | The buyer-specific id for this creative. +crdBuyerCreativeId :: Lens' CreativesRemoveDeal Text +crdBuyerCreativeId + = lens _crdBuyerCreativeId + (\ s a -> s{_crdBuyerCreativeId = a}) + +-- | The id of the deal id to disassociate with this creative. +crdDealId :: Lens' CreativesRemoveDeal Int64 +crdDealId + = lens _crdDealId (\ s a -> s{_crdDealId = a}) . + _Coerce + +-- | The id for the account that will serve this creative. +crdAccountId :: Lens' CreativesRemoveDeal Int32 +crdAccountId + = lens _crdAccountId (\ s a -> s{_crdAccountId = a}) + . _Coerce + +instance GoogleRequest CreativesRemoveDeal where + type Rs CreativesRemoveDeal = () + type Scopes CreativesRemoveDeal = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient CreativesRemoveDeal'{..} + = go _crdAccountId _crdBuyerCreativeId _crdDealId + (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy CreativesRemoveDealResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# 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 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hs @@ -14,13 +14,13 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 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 +-- Delete the specified deals from the proposal -- -- /See:/ for @adexchangebuyer.marketplacedeals.delete@. module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete @@ -34,7 +34,7 @@ -- * Request Lenses , mddPayload - , mddOrderId + , mddProposalId ) where import Network.Google.AdExchangeBuyer.Types @@ -45,20 +45,20 @@ type MarketplaceDealsDeleteResource = "adexchangebuyer" :> "v1.4" :> - "marketplaceOrders" :> - Capture "orderId" Text :> + "proposals" :> + Capture "proposalId" Text :> "deals" :> "delete" :> QueryParam "alt" AltJSON :> ReqBody '[JSON] DeleteOrderDealsRequest :> Post '[JSON] DeleteOrderDealsResponse --- | Delete the specified deals from the order +-- | Delete the specified deals from the proposal -- -- /See:/ 'marketplaceDealsDelete' smart constructor. -data MarketplaceDealsDelete = MarketplaceDealsDelete - { _mddPayload :: !DeleteOrderDealsRequest - , _mddOrderId :: !Text +data MarketplaceDealsDelete = MarketplaceDealsDelete' + { _mddPayload :: !DeleteOrderDealsRequest + , _mddProposalId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MarketplaceDealsDelete' with the minimum fields required to make a request. @@ -67,15 +67,15 @@ -- -- * 'mddPayload' -- --- * 'mddOrderId' +-- * 'mddProposalId' marketplaceDealsDelete :: DeleteOrderDealsRequest -- ^ 'mddPayload' - -> Text -- ^ 'mddOrderId' + -> Text -- ^ 'mddProposalId' -> MarketplaceDealsDelete -marketplaceDealsDelete pMddPayload_ pMddOrderId_ = - MarketplaceDealsDelete +marketplaceDealsDelete pMddPayload_ pMddProposalId_ = + MarketplaceDealsDelete' { _mddPayload = pMddPayload_ - , _mddOrderId = pMddOrderId_ + , _mddProposalId = pMddProposalId_ } -- | Multipart request metadata. @@ -83,16 +83,19 @@ 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}) +-- | The proposalId to delete deals from. +mddProposalId :: Lens' MarketplaceDealsDelete Text +mddProposalId + = lens _mddProposalId + (\ s a -> s{_mddProposalId = a}) instance GoogleRequest MarketplaceDealsDelete where type Rs MarketplaceDealsDelete = DeleteOrderDealsResponse - requestClient MarketplaceDealsDelete{..} - = go _mddOrderId (Just AltJSON) _mddPayload + type Scopes MarketplaceDealsDelete = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient MarketplaceDealsDelete'{..} + = go _mddProposalId (Just AltJSON) _mddPayload adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hs @@ -14,13 +14,13 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 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 +-- Add new deals for the specified proposal -- -- /See:/ for @adexchangebuyer.marketplacedeals.insert@. module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert @@ -34,7 +34,7 @@ -- * Request Lenses , mdiPayload - , mdiOrderId + , mdiProposalId ) where import Network.Google.AdExchangeBuyer.Types @@ -45,20 +45,20 @@ type MarketplaceDealsInsertResource = "adexchangebuyer" :> "v1.4" :> - "marketplaceOrders" :> - Capture "orderId" Text :> + "proposals" :> + Capture "proposalId" Text :> "deals" :> "insert" :> QueryParam "alt" AltJSON :> ReqBody '[JSON] AddOrderDealsRequest :> Post '[JSON] AddOrderDealsResponse --- | Add new deals for the specified order +-- | Add new deals for the specified proposal -- -- /See:/ 'marketplaceDealsInsert' smart constructor. -data MarketplaceDealsInsert = MarketplaceDealsInsert - { _mdiPayload :: !AddOrderDealsRequest - , _mdiOrderId :: !Text +data MarketplaceDealsInsert = MarketplaceDealsInsert' + { _mdiPayload :: !AddOrderDealsRequest + , _mdiProposalId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MarketplaceDealsInsert' with the minimum fields required to make a request. @@ -67,15 +67,15 @@ -- -- * 'mdiPayload' -- --- * 'mdiOrderId' +-- * 'mdiProposalId' marketplaceDealsInsert :: AddOrderDealsRequest -- ^ 'mdiPayload' - -> Text -- ^ 'mdiOrderId' + -> Text -- ^ 'mdiProposalId' -> MarketplaceDealsInsert -marketplaceDealsInsert pMdiPayload_ pMdiOrderId_ = - MarketplaceDealsInsert +marketplaceDealsInsert pMdiPayload_ pMdiProposalId_ = + MarketplaceDealsInsert' { _mdiPayload = pMdiPayload_ - , _mdiOrderId = pMdiOrderId_ + , _mdiProposalId = pMdiProposalId_ } -- | Multipart request metadata. @@ -83,16 +83,19 @@ 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}) +-- | proposalId for which deals need to be added. +mdiProposalId :: Lens' MarketplaceDealsInsert Text +mdiProposalId + = lens _mdiProposalId + (\ s a -> s{_mdiProposalId = a}) instance GoogleRequest MarketplaceDealsInsert where type Rs MarketplaceDealsInsert = AddOrderDealsResponse - requestClient MarketplaceDealsInsert{..} - = go _mdiOrderId (Just AltJSON) _mdiPayload + type Scopes MarketplaceDealsInsert = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient MarketplaceDealsInsert'{..} + = go _mdiProposalId (Just AltJSON) _mdiPayload adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hs @@ -14,13 +14,13 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 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 +-- List all the deals for a given proposal -- -- /See:/ for @adexchangebuyer.marketplacedeals.list@. module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List @@ -33,7 +33,8 @@ , MarketplaceDealsList -- * Request Lenses - , mdlOrderId + , mdlProposalId + , mdlPqlQuery ) where import Network.Google.AdExchangeBuyer.Types @@ -44,41 +45,55 @@ type MarketplaceDealsListResource = "adexchangebuyer" :> "v1.4" :> - "marketplaceOrders" :> - Capture "orderId" Text :> + "proposals" :> + Capture "proposalId" Text :> "deals" :> - QueryParam "alt" AltJSON :> - Get '[JSON] GetOrderDealsResponse + QueryParam "pqlQuery" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOrderDealsResponse --- | List all the deals for a given order +-- | List all the deals for a given proposal -- -- /See:/ 'marketplaceDealsList' smart constructor. -newtype MarketplaceDealsList = MarketplaceDealsList - { _mdlOrderId :: Text +data MarketplaceDealsList = MarketplaceDealsList' + { _mdlProposalId :: !Text + , _mdlPqlQuery :: !(Maybe 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' +-- * 'mdlProposalId' +-- +-- * 'mdlPqlQuery' marketplaceDealsList - :: Text -- ^ 'mdlOrderId' + :: Text -- ^ 'mdlProposalId' -> MarketplaceDealsList -marketplaceDealsList pMdlOrderId_ = - MarketplaceDealsList - { _mdlOrderId = pMdlOrderId_ +marketplaceDealsList pMdlProposalId_ = + MarketplaceDealsList' + { _mdlProposalId = pMdlProposalId_ + , _mdlPqlQuery = Nothing } --- | The orderId to get deals for. -mdlOrderId :: Lens' MarketplaceDealsList Text -mdlOrderId - = lens _mdlOrderId (\ s a -> s{_mdlOrderId = a}) +-- | The proposalId to get deals for. To search across proposals specify +-- order_id = \'-\' as part of the URL. +mdlProposalId :: Lens' MarketplaceDealsList Text +mdlProposalId + = lens _mdlProposalId + (\ s a -> s{_mdlProposalId = a}) +-- | Query string to retrieve specific deals. +mdlPqlQuery :: Lens' MarketplaceDealsList (Maybe Text) +mdlPqlQuery + = lens _mdlPqlQuery (\ s a -> s{_mdlPqlQuery = a}) + instance GoogleRequest MarketplaceDealsList where type Rs MarketplaceDealsList = GetOrderDealsResponse - requestClient MarketplaceDealsList{..} - = go _mdlOrderId (Just AltJSON) + type Scopes MarketplaceDealsList = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient MarketplaceDealsList'{..} + = go _mdlProposalId _mdlPqlQuery (Just AltJSON) adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hs @@ -14,13 +14,13 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 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 +-- Replaces all the deals in the proposal with the passed in deals -- -- /See:/ for @adexchangebuyer.marketplacedeals.update@. module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update @@ -34,7 +34,7 @@ -- * Request Lenses , mduPayload - , mduOrderId + , mduProposalId ) where import Network.Google.AdExchangeBuyer.Types @@ -45,20 +45,20 @@ type MarketplaceDealsUpdateResource = "adexchangebuyer" :> "v1.4" :> - "marketplaceOrders" :> - Capture "orderId" Text :> + "proposals" :> + Capture "proposalId" Text :> "deals" :> "update" :> QueryParam "alt" AltJSON :> ReqBody '[JSON] EditAllOrderDealsRequest :> Post '[JSON] EditAllOrderDealsResponse --- | Replaces all the deals in the order with the passed in deals +-- | Replaces all the deals in the proposal with the passed in deals -- -- /See:/ 'marketplaceDealsUpdate' smart constructor. -data MarketplaceDealsUpdate = MarketplaceDealsUpdate - { _mduPayload :: !EditAllOrderDealsRequest - , _mduOrderId :: !Text +data MarketplaceDealsUpdate = MarketplaceDealsUpdate' + { _mduPayload :: !EditAllOrderDealsRequest + , _mduProposalId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MarketplaceDealsUpdate' with the minimum fields required to make a request. @@ -67,15 +67,15 @@ -- -- * 'mduPayload' -- --- * 'mduOrderId' +-- * 'mduProposalId' marketplaceDealsUpdate :: EditAllOrderDealsRequest -- ^ 'mduPayload' - -> Text -- ^ 'mduOrderId' + -> Text -- ^ 'mduProposalId' -> MarketplaceDealsUpdate -marketplaceDealsUpdate pMduPayload_ pMduOrderId_ = - MarketplaceDealsUpdate +marketplaceDealsUpdate pMduPayload_ pMduProposalId_ = + MarketplaceDealsUpdate' { _mduPayload = pMduPayload_ - , _mduOrderId = pMduOrderId_ + , _mduProposalId = pMduProposalId_ } -- | Multipart request metadata. @@ -83,16 +83,19 @@ 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}) +-- | The proposalId to edit deals on. +mduProposalId :: Lens' MarketplaceDealsUpdate Text +mduProposalId + = lens _mduProposalId + (\ s a -> s{_mduProposalId = a}) instance GoogleRequest MarketplaceDealsUpdate where type Rs MarketplaceDealsUpdate = EditAllOrderDealsResponse - requestClient MarketplaceDealsUpdate{..} - = go _mduOrderId (Just AltJSON) _mduPayload + type Scopes MarketplaceDealsUpdate = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient MarketplaceDealsUpdate'{..} + = go _mduProposalId (Just AltJSON) _mduPayload adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hs @@ -14,13 +14,13 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 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 +-- Add notes to the proposal -- -- /See:/ for @adexchangebuyer.marketplacenotes.insert@. module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert @@ -34,7 +34,7 @@ -- * Request Lenses , mniPayload - , mniOrderId + , mniProposalId ) where import Network.Google.AdExchangeBuyer.Types @@ -45,20 +45,20 @@ type MarketplaceNotesInsertResource = "adexchangebuyer" :> "v1.4" :> - "marketplaceOrders" :> - Capture "orderId" Text :> + "proposals" :> + Capture "proposalId" Text :> "notes" :> "insert" :> QueryParam "alt" AltJSON :> ReqBody '[JSON] AddOrderNotesRequest :> Post '[JSON] AddOrderNotesResponse --- | Add notes to the order +-- | Add notes to the proposal -- -- /See:/ 'marketplaceNotesInsert' smart constructor. -data MarketplaceNotesInsert = MarketplaceNotesInsert - { _mniPayload :: !AddOrderNotesRequest - , _mniOrderId :: !Text +data MarketplaceNotesInsert = MarketplaceNotesInsert' + { _mniPayload :: !AddOrderNotesRequest + , _mniProposalId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MarketplaceNotesInsert' with the minimum fields required to make a request. @@ -67,15 +67,15 @@ -- -- * 'mniPayload' -- --- * 'mniOrderId' +-- * 'mniProposalId' marketplaceNotesInsert :: AddOrderNotesRequest -- ^ 'mniPayload' - -> Text -- ^ 'mniOrderId' + -> Text -- ^ 'mniProposalId' -> MarketplaceNotesInsert -marketplaceNotesInsert pMniPayload_ pMniOrderId_ = - MarketplaceNotesInsert +marketplaceNotesInsert pMniPayload_ pMniProposalId_ = + MarketplaceNotesInsert' { _mniPayload = pMniPayload_ - , _mniOrderId = pMniOrderId_ + , _mniProposalId = pMniProposalId_ } -- | Multipart request metadata. @@ -83,16 +83,19 @@ 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}) +-- | The proposalId to add notes for. +mniProposalId :: Lens' MarketplaceNotesInsert Text +mniProposalId + = lens _mniProposalId + (\ s a -> s{_mniProposalId = a}) instance GoogleRequest MarketplaceNotesInsert where type Rs MarketplaceNotesInsert = AddOrderNotesResponse - requestClient MarketplaceNotesInsert{..} - = go _mniOrderId (Just AltJSON) _mniPayload + type Scopes MarketplaceNotesInsert = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient MarketplaceNotesInsert'{..} + = go _mniProposalId (Just AltJSON) _mniPayload adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hs @@ -14,13 +14,13 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 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 +-- Get all the notes associated with a proposal -- -- /See:/ for @adexchangebuyer.marketplacenotes.list@. module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List @@ -33,7 +33,7 @@ , MarketplaceNotesList -- * Request Lenses - , mnlOrderId + , mnlProposalId ) where import Network.Google.AdExchangeBuyer.Types @@ -44,41 +44,44 @@ type MarketplaceNotesListResource = "adexchangebuyer" :> "v1.4" :> - "marketplaceOrders" :> - Capture "orderId" Text :> + "proposals" :> + Capture "proposalId" Text :> "notes" :> QueryParam "alt" AltJSON :> Get '[JSON] GetOrderNotesResponse --- | Get all the notes associated with an order +-- | Get all the notes associated with a proposal -- -- /See:/ 'marketplaceNotesList' smart constructor. -newtype MarketplaceNotesList = MarketplaceNotesList - { _mnlOrderId :: Text +newtype MarketplaceNotesList = MarketplaceNotesList' + { _mnlProposalId :: 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' +-- * 'mnlProposalId' marketplaceNotesList - :: Text -- ^ 'mnlOrderId' + :: Text -- ^ 'mnlProposalId' -> MarketplaceNotesList -marketplaceNotesList pMnlOrderId_ = - MarketplaceNotesList - { _mnlOrderId = pMnlOrderId_ +marketplaceNotesList pMnlProposalId_ = + MarketplaceNotesList' + { _mnlProposalId = pMnlProposalId_ } --- | The orderId to get notes for. -mnlOrderId :: Lens' MarketplaceNotesList Text -mnlOrderId - = lens _mnlOrderId (\ s a -> s{_mnlOrderId = a}) +-- | The proposalId to get notes for. +mnlProposalId :: Lens' MarketplaceNotesList Text +mnlProposalId + = lens _mnlProposalId + (\ s a -> s{_mnlProposalId = a}) instance GoogleRequest MarketplaceNotesList where type Rs MarketplaceNotesList = GetOrderNotesResponse - requestClient MarketplaceNotesList{..} - = go _mnlOrderId (Just AltJSON) + type Scopes MarketplaceNotesList = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient MarketplaceNotesList'{..} + = go _mnlProposalId (Just AltJSON) adExchangeBuyerService where go = buildClient diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hs +++ /dev/null @@ -1,131 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hs +++ /dev/null @@ -1,131 +0,0 @@ -{-# 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/Marketplaceprivateauction/Updateproposal.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceprivateauction/Updateproposal.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceprivateauction/Updateproposal.hs @@ -0,0 +1,106 @@ +{-# 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.Marketplaceprivateauction.Updateproposal +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update a given private auction proposal +-- +-- /See:/ for @adexchangebuyer.marketplaceprivateauction.updateproposal@. +module Network.Google.Resource.AdExchangeBuyer.Marketplaceprivateauction.Updateproposal + ( + -- * REST Resource + MarketplaceprivateauctionUpdateproposalResource + + -- * Creating a Request + , marketplaceprivateauctionUpdateproposal + , MarketplaceprivateauctionUpdateproposal + + -- * Request Lenses + , muPrivateAuctionId + , muPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.marketplaceprivateauction.updateproposal@ method which the +-- 'MarketplaceprivateauctionUpdateproposal' request conforms to. +type MarketplaceprivateauctionUpdateproposalResource + = + "adexchangebuyer" :> + "v1.4" :> + "privateauction" :> + Capture "privateAuctionId" Text :> + "updateproposal" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] UpdatePrivateAuctionProposalRequest + :> Post '[JSON] () + +-- | Update a given private auction proposal +-- +-- /See:/ 'marketplaceprivateauctionUpdateproposal' smart constructor. +data MarketplaceprivateauctionUpdateproposal = MarketplaceprivateauctionUpdateproposal' + { _muPrivateAuctionId :: !Text + , _muPayload :: !UpdatePrivateAuctionProposalRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'MarketplaceprivateauctionUpdateproposal' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'muPrivateAuctionId' +-- +-- * 'muPayload' +marketplaceprivateauctionUpdateproposal + :: Text -- ^ 'muPrivateAuctionId' + -> UpdatePrivateAuctionProposalRequest -- ^ 'muPayload' + -> MarketplaceprivateauctionUpdateproposal +marketplaceprivateauctionUpdateproposal pMuPrivateAuctionId_ pMuPayload_ = + MarketplaceprivateauctionUpdateproposal' + { _muPrivateAuctionId = pMuPrivateAuctionId_ + , _muPayload = pMuPayload_ + } + +-- | The private auction id to be updated. +muPrivateAuctionId :: Lens' MarketplaceprivateauctionUpdateproposal Text +muPrivateAuctionId + = lens _muPrivateAuctionId + (\ s a -> s{_muPrivateAuctionId = a}) + +-- | Multipart request metadata. +muPayload :: Lens' MarketplaceprivateauctionUpdateproposal UpdatePrivateAuctionProposalRequest +muPayload + = lens _muPayload (\ s a -> s{_muPayload = a}) + +instance GoogleRequest + MarketplaceprivateauctionUpdateproposal where + type Rs MarketplaceprivateauctionUpdateproposal = () + type Scopes MarketplaceprivateauctionUpdateproposal = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient + MarketplaceprivateauctionUpdateproposal'{..} + = go _muPrivateAuctionId (Just AltJSON) _muPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: + Proxy + MarketplaceprivateauctionUpdateproposalResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# 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 deleted file mode 100644 --- a/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# 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 --- a/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- | Retrieves the authenticated user\'s list of performance metrics. -- -- /See:/ 'performanceReportList'' smart constructor. -data PerformanceReportList' = PerformanceReportList' +data PerformanceReportList' = PerformanceReportList'' { _prlAccountId :: !(Textual Int64) , _prlPageToken :: !(Maybe Text) , _prlEndDateTime :: !Text @@ -87,7 +87,7 @@ -> Text -- ^ 'prlStartDateTime' -> PerformanceReportList' performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ = - PerformanceReportList' + PerformanceReportList'' { _prlAccountId = _Coerce # pPrlAccountId_ , _prlPageToken = Nothing , _prlEndDateTime = pPrlEndDateTime_ @@ -131,7 +131,9 @@ instance GoogleRequest PerformanceReportList' where type Rs PerformanceReportList' = PerformanceReportList - requestClient PerformanceReportList'{..} + type Scopes PerformanceReportList' = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PerformanceReportList''{..} = go (Just _prlAccountId) (Just _prlEndDateTime) (Just _prlStartDateTime) _prlPageToken diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | Deletes an existing pretargeting config. -- -- /See:/ 'pretargetingConfigDelete' smart constructor. -data PretargetingConfigDelete = PretargetingConfigDelete +data PretargetingConfigDelete = PretargetingConfigDelete' { _pcdAccountId :: !(Textual Int64) , _pcdConfigId :: !(Textual Int64) } deriving (Eq,Show,Data,Typeable,Generic) @@ -70,7 +70,7 @@ -> Int64 -- ^ 'pcdConfigId' -> PretargetingConfigDelete pretargetingConfigDelete pPcdAccountId_ pPcdConfigId_ = - PretargetingConfigDelete + PretargetingConfigDelete' { _pcdAccountId = _Coerce # pPcdAccountId_ , _pcdConfigId = _Coerce # pPcdConfigId_ } @@ -89,7 +89,9 @@ instance GoogleRequest PretargetingConfigDelete where type Rs PretargetingConfigDelete = () - requestClient PretargetingConfigDelete{..} + type Scopes PretargetingConfigDelete = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PretargetingConfigDelete'{..} = go _pcdAccountId _pcdConfigId (Just AltJSON) adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Gets a specific pretargeting configuration -- -- /See:/ 'pretargetingConfigGet' smart constructor. -data PretargetingConfigGet = PretargetingConfigGet +data PretargetingConfigGet = PretargetingConfigGet' { _pcgAccountId :: !(Textual Int64) , _pcgConfigId :: !(Textual Int64) } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Int64 -- ^ 'pcgConfigId' -> PretargetingConfigGet pretargetingConfigGet pPcgAccountId_ pPcgConfigId_ = - PretargetingConfigGet + PretargetingConfigGet' { _pcgAccountId = _Coerce # pPcgAccountId_ , _pcgConfigId = _Coerce # pPcgConfigId_ } @@ -90,7 +90,9 @@ instance GoogleRequest PretargetingConfigGet where type Rs PretargetingConfigGet = PretargetingConfig - requestClient PretargetingConfigGet{..} + type Scopes PretargetingConfigGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PretargetingConfigGet'{..} = go _pcgAccountId _pcgConfigId (Just AltJSON) adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Inserts a new pretargeting configuration. -- -- /See:/ 'pretargetingConfigInsert' smart constructor. -data PretargetingConfigInsert = PretargetingConfigInsert +data PretargetingConfigInsert = PretargetingConfigInsert' { _pciPayload :: !PretargetingConfig , _pciAccountId :: !(Textual Int64) } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Int64 -- ^ 'pciAccountId' -> PretargetingConfigInsert pretargetingConfigInsert pPciPayload_ pPciAccountId_ = - PretargetingConfigInsert + PretargetingConfigInsert' { _pciPayload = pPciPayload_ , _pciAccountId = _Coerce # pPciAccountId_ } @@ -89,7 +89,9 @@ instance GoogleRequest PretargetingConfigInsert where type Rs PretargetingConfigInsert = PretargetingConfig - requestClient PretargetingConfigInsert{..} + type Scopes PretargetingConfigInsert = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PretargetingConfigInsert'{..} = go _pciAccountId (Just AltJSON) _pciPayload adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- configurations. -- -- /See:/ 'pretargetingConfigList'' smart constructor. -newtype PretargetingConfigList' = PretargetingConfigList' +newtype PretargetingConfigList' = PretargetingConfigList'' { _pclAccountId :: Textual Int64 } deriving (Eq,Show,Data,Typeable,Generic) @@ -67,7 +67,7 @@ :: Int64 -- ^ 'pclAccountId' -> PretargetingConfigList' pretargetingConfigList' pPclAccountId_ = - PretargetingConfigList' + PretargetingConfigList'' { _pclAccountId = _Coerce # pPclAccountId_ } @@ -80,7 +80,9 @@ instance GoogleRequest PretargetingConfigList' where type Rs PretargetingConfigList' = PretargetingConfigList - requestClient PretargetingConfigList'{..} + type Scopes PretargetingConfigList' = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PretargetingConfigList''{..} = go _pclAccountId (Just AltJSON) adExchangeBuyerService where go diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- semantics. -- -- /See:/ 'pretargetingConfigPatch' smart constructor. -data PretargetingConfigPatch = PretargetingConfigPatch +data PretargetingConfigPatch = PretargetingConfigPatch' { _pcpPayload :: !PretargetingConfig , _pcpAccountId :: !(Textual Int64) , _pcpConfigId :: !(Textual Int64) @@ -79,7 +79,7 @@ -> Int64 -- ^ 'pcpConfigId' -> PretargetingConfigPatch pretargetingConfigPatch pPcpPayload_ pPcpAccountId_ pPcpConfigId_ = - PretargetingConfigPatch + PretargetingConfigPatch' { _pcpPayload = pPcpPayload_ , _pcpAccountId = _Coerce # pPcpAccountId_ , _pcpConfigId = _Coerce # pPcpConfigId_ @@ -104,7 +104,9 @@ instance GoogleRequest PretargetingConfigPatch where type Rs PretargetingConfigPatch = PretargetingConfig - requestClient PretargetingConfigPatch{..} + type Scopes PretargetingConfigPatch = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PretargetingConfigPatch'{..} = go _pcpAccountId _pcpConfigId (Just AltJSON) _pcpPayload adExchangeBuyerService diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs --- a/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- | Updates an existing pretargeting config. -- -- /See:/ 'pretargetingConfigUpdate' smart constructor. -data PretargetingConfigUpdate = PretargetingConfigUpdate +data PretargetingConfigUpdate = PretargetingConfigUpdate' { _pcuPayload :: !PretargetingConfig , _pcuAccountId :: !(Textual Int64) , _pcuConfigId :: !(Textual Int64) @@ -77,7 +77,7 @@ -> Int64 -- ^ 'pcuConfigId' -> PretargetingConfigUpdate pretargetingConfigUpdate pPcuPayload_ pPcuAccountId_ pPcuConfigId_ = - PretargetingConfigUpdate + PretargetingConfigUpdate' { _pcuPayload = pPcuPayload_ , _pcuAccountId = _Coerce # pPcuAccountId_ , _pcuConfigId = _Coerce # pPcuConfigId_ @@ -102,7 +102,9 @@ instance GoogleRequest PretargetingConfigUpdate where type Rs PretargetingConfigUpdate = PretargetingConfig - requestClient PretargetingConfigUpdate{..} + type Scopes PretargetingConfigUpdate = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PretargetingConfigUpdate'{..} = go _pcuAccountId _pcuConfigId (Just AltJSON) _pcuPayload adExchangeBuyerService diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Products/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Products/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Products/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.Products.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested product by id. +-- +-- /See:/ for @adexchangebuyer.products.get@. +module Network.Google.Resource.AdExchangeBuyer.Products.Get + ( + -- * REST Resource + ProductsGetResource + + -- * Creating a Request + , productsGet + , ProductsGet + + -- * Request Lenses + , pgProductId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.products.get@ method which the +-- 'ProductsGet' request conforms to. +type ProductsGetResource = + "adexchangebuyer" :> + "v1.4" :> + "products" :> + Capture "productId" Text :> + QueryParam "alt" AltJSON :> Get '[JSON] Product + +-- | Gets the requested product by id. +-- +-- /See:/ 'productsGet' smart constructor. +newtype ProductsGet = ProductsGet' + { _pgProductId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProductsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pgProductId' +productsGet + :: Text -- ^ 'pgProductId' + -> ProductsGet +productsGet pPgProductId_ = + ProductsGet' + { _pgProductId = pPgProductId_ + } + +-- | The id for the product to get the head revision for. +pgProductId :: Lens' ProductsGet Text +pgProductId + = lens _pgProductId (\ s a -> s{_pgProductId = a}) + +instance GoogleRequest ProductsGet where + type Rs ProductsGet = Product + type Scopes ProductsGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProductsGet'{..} + = go _pgProductId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy ProductsGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Products/Search.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Products/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Products/Search.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.Products.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested product. +-- +-- /See:/ for @adexchangebuyer.products.search@. +module Network.Google.Resource.AdExchangeBuyer.Products.Search + ( + -- * REST Resource + ProductsSearchResource + + -- * Creating a Request + , productsSearch + , ProductsSearch + + -- * Request Lenses + , psPqlQuery + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.products.search@ method which the +-- 'ProductsSearch' request conforms to. +type ProductsSearchResource = + "adexchangebuyer" :> + "v1.4" :> + "products" :> + "search" :> + QueryParam "pqlQuery" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOffersResponse + +-- | Gets the requested product. +-- +-- /See:/ 'productsSearch' smart constructor. +newtype ProductsSearch = ProductsSearch' + { _psPqlQuery :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProductsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'psPqlQuery' +productsSearch + :: ProductsSearch +productsSearch = + ProductsSearch' + { _psPqlQuery = Nothing + } + +-- | The pql query used to query for products. +psPqlQuery :: Lens' ProductsSearch (Maybe Text) +psPqlQuery + = lens _psPqlQuery (\ s a -> s{_psPqlQuery = a}) + +instance GoogleRequest ProductsSearch where + type Rs ProductsSearch = GetOffersResponse + type Scopes ProductsSearch = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProductsSearch'{..} + = go _psPqlQuery (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy ProductsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Get.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/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.Proposals.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Get a proposal given its id +-- +-- /See:/ for @adexchangebuyer.proposals.get@. +module Network.Google.Resource.AdExchangeBuyer.Proposals.Get + ( + -- * REST Resource + ProposalsGetResource + + -- * Creating a Request + , proposalsGet + , ProposalsGet + + -- * Request Lenses + , pgProposalId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.proposals.get@ method which the +-- 'ProposalsGet' request conforms to. +type ProposalsGetResource = + "adexchangebuyer" :> + "v1.4" :> + "proposals" :> + Capture "proposalId" Text :> + QueryParam "alt" AltJSON :> Get '[JSON] Proposal + +-- | Get a proposal given its id +-- +-- /See:/ 'proposalsGet' smart constructor. +newtype ProposalsGet = ProposalsGet' + { _pgProposalId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProposalsGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pgProposalId' +proposalsGet + :: Text -- ^ 'pgProposalId' + -> ProposalsGet +proposalsGet pPgProposalId_ = + ProposalsGet' + { _pgProposalId = pPgProposalId_ + } + +-- | Id of the proposal to retrieve. +pgProposalId :: Lens' ProposalsGet Text +pgProposalId + = lens _pgProposalId (\ s a -> s{_pgProposalId = a}) + +instance GoogleRequest ProposalsGet where + type Rs ProposalsGet = Proposal + type Scopes ProposalsGet = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProposalsGet'{..} + = go _pgProposalId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy ProposalsGetResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Insert.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/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.Proposals.Insert +-- Copyright : (c) 2015-2016 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 proposals +-- +-- /See:/ for @adexchangebuyer.proposals.insert@. +module Network.Google.Resource.AdExchangeBuyer.Proposals.Insert + ( + -- * REST Resource + ProposalsInsertResource + + -- * Creating a Request + , proposalsInsert + , ProposalsInsert + + -- * Request Lenses + , piPayload + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.proposals.insert@ method which the +-- 'ProposalsInsert' request conforms to. +type ProposalsInsertResource = + "adexchangebuyer" :> + "v1.4" :> + "proposals" :> + "insert" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] CreateOrdersRequest :> + Post '[JSON] CreateOrdersResponse + +-- | Create the given list of proposals +-- +-- /See:/ 'proposalsInsert' smart constructor. +newtype ProposalsInsert = ProposalsInsert' + { _piPayload :: CreateOrdersRequest + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProposalsInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'piPayload' +proposalsInsert + :: CreateOrdersRequest -- ^ 'piPayload' + -> ProposalsInsert +proposalsInsert pPiPayload_ = + ProposalsInsert' + { _piPayload = pPiPayload_ + } + +-- | Multipart request metadata. +piPayload :: Lens' ProposalsInsert CreateOrdersRequest +piPayload + = lens _piPayload (\ s a -> s{_piPayload = a}) + +instance GoogleRequest ProposalsInsert where + type Rs ProposalsInsert = CreateOrdersResponse + type Scopes ProposalsInsert = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProposalsInsert'{..} + = go (Just AltJSON) _piPayload adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ProposalsInsertResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Patch.hs @@ -0,0 +1,129 @@ +{-# 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.Proposals.Patch +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update the given proposal. This method supports patch semantics. +-- +-- /See:/ for @adexchangebuyer.proposals.patch@. +module Network.Google.Resource.AdExchangeBuyer.Proposals.Patch + ( + -- * REST Resource + ProposalsPatchResource + + -- * Creating a Request + , proposalsPatch + , ProposalsPatch + + -- * Request Lenses + , ppUpdateAction + , ppRevisionNumber + , ppPayload + , ppProposalId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.proposals.patch@ method which the +-- 'ProposalsPatch' request conforms to. +type ProposalsPatchResource = + "adexchangebuyer" :> + "v1.4" :> + "proposals" :> + Capture "proposalId" Text :> + Capture "revisionNumber" (Textual Int64) :> + Capture "updateAction" ProposalsPatchUpdateAction :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Proposal :> Patch '[JSON] Proposal + +-- | Update the given proposal. This method supports patch semantics. +-- +-- /See:/ 'proposalsPatch' smart constructor. +data ProposalsPatch = ProposalsPatch' + { _ppUpdateAction :: !ProposalsPatchUpdateAction + , _ppRevisionNumber :: !(Textual Int64) + , _ppPayload :: !Proposal + , _ppProposalId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProposalsPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ppUpdateAction' +-- +-- * 'ppRevisionNumber' +-- +-- * 'ppPayload' +-- +-- * 'ppProposalId' +proposalsPatch + :: ProposalsPatchUpdateAction -- ^ 'ppUpdateAction' + -> Int64 -- ^ 'ppRevisionNumber' + -> Proposal -- ^ 'ppPayload' + -> Text -- ^ 'ppProposalId' + -> ProposalsPatch +proposalsPatch pPpUpdateAction_ pPpRevisionNumber_ pPpPayload_ pPpProposalId_ = + ProposalsPatch' + { _ppUpdateAction = pPpUpdateAction_ + , _ppRevisionNumber = _Coerce # pPpRevisionNumber_ + , _ppPayload = pPpPayload_ + , _ppProposalId = pPpProposalId_ + } + +-- | The proposed action to take on the proposal. +ppUpdateAction :: Lens' ProposalsPatch ProposalsPatchUpdateAction +ppUpdateAction + = lens _ppUpdateAction + (\ s a -> s{_ppUpdateAction = 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 latest proposal at head revision and retry +-- the update at that revision. +ppRevisionNumber :: Lens' ProposalsPatch Int64 +ppRevisionNumber + = lens _ppRevisionNumber + (\ s a -> s{_ppRevisionNumber = a}) + . _Coerce + +-- | Multipart request metadata. +ppPayload :: Lens' ProposalsPatch Proposal +ppPayload + = lens _ppPayload (\ s a -> s{_ppPayload = a}) + +-- | The proposal id to update. +ppProposalId :: Lens' ProposalsPatch Text +ppProposalId + = lens _ppProposalId (\ s a -> s{_ppProposalId = a}) + +instance GoogleRequest ProposalsPatch where + type Rs ProposalsPatch = Proposal + type Scopes ProposalsPatch = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProposalsPatch'{..} + = go _ppProposalId _ppRevisionNumber _ppUpdateAction + (Just AltJSON) + _ppPayload + adExchangeBuyerService + where go + = buildClient (Proxy :: Proxy ProposalsPatchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Search.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Search.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Search.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.Proposals.Search +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Search for proposals using pql query +-- +-- /See:/ for @adexchangebuyer.proposals.search@. +module Network.Google.Resource.AdExchangeBuyer.Proposals.Search + ( + -- * REST Resource + ProposalsSearchResource + + -- * Creating a Request + , proposalsSearch + , ProposalsSearch + + -- * Request Lenses + , pPqlQuery + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.proposals.search@ method which the +-- 'ProposalsSearch' request conforms to. +type ProposalsSearchResource = + "adexchangebuyer" :> + "v1.4" :> + "proposals" :> + "search" :> + QueryParam "pqlQuery" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetOrdersResponse + +-- | Search for proposals using pql query +-- +-- /See:/ 'proposalsSearch' smart constructor. +newtype ProposalsSearch = ProposalsSearch' + { _pPqlQuery :: Maybe Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProposalsSearch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pPqlQuery' +proposalsSearch + :: ProposalsSearch +proposalsSearch = + ProposalsSearch' + { _pPqlQuery = Nothing + } + +-- | Query string to retrieve specific proposals. +pPqlQuery :: Lens' ProposalsSearch (Maybe Text) +pPqlQuery + = lens _pPqlQuery (\ s a -> s{_pPqlQuery = a}) + +instance GoogleRequest ProposalsSearch where + type Rs ProposalsSearch = GetOrdersResponse + type Scopes ProposalsSearch = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProposalsSearch'{..} + = go _pPqlQuery (Just AltJSON) adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ProposalsSearchResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Setupcomplete.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Setupcomplete.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Setupcomplete.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.Proposals.Setupcomplete +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update the given proposal to indicate that setup has been completed. +-- +-- /See:/ for @adexchangebuyer.proposals.setupcomplete@. +module Network.Google.Resource.AdExchangeBuyer.Proposals.Setupcomplete + ( + -- * REST Resource + ProposalsSetupcompleteResource + + -- * Creating a Request + , proposalsSetupcomplete + , ProposalsSetupcomplete + + -- * Request Lenses + , psProposalId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.proposals.setupcomplete@ method which the +-- 'ProposalsSetupcomplete' request conforms to. +type ProposalsSetupcompleteResource = + "adexchangebuyer" :> + "v1.4" :> + "proposals" :> + Capture "proposalId" Text :> + "setupcomplete" :> + QueryParam "alt" AltJSON :> Post '[JSON] () + +-- | Update the given proposal to indicate that setup has been completed. +-- +-- /See:/ 'proposalsSetupcomplete' smart constructor. +newtype ProposalsSetupcomplete = ProposalsSetupcomplete' + { _psProposalId :: Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProposalsSetupcomplete' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'psProposalId' +proposalsSetupcomplete + :: Text -- ^ 'psProposalId' + -> ProposalsSetupcomplete +proposalsSetupcomplete pPsProposalId_ = + ProposalsSetupcomplete' + { _psProposalId = pPsProposalId_ + } + +-- | The proposal id for which the setup is complete +psProposalId :: Lens' ProposalsSetupcomplete Text +psProposalId + = lens _psProposalId (\ s a -> s{_psProposalId = a}) + +instance GoogleRequest ProposalsSetupcomplete where + type Rs ProposalsSetupcomplete = () + type Scopes ProposalsSetupcomplete = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProposalsSetupcomplete'{..} + = go _psProposalId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ProposalsSetupcompleteResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/Proposals/Update.hs @@ -0,0 +1,130 @@ +{-# 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.Proposals.Update +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Update the given proposal +-- +-- /See:/ for @adexchangebuyer.proposals.update@. +module Network.Google.Resource.AdExchangeBuyer.Proposals.Update + ( + -- * REST Resource + ProposalsUpdateResource + + -- * Creating a Request + , proposalsUpdate + , ProposalsUpdate + + -- * Request Lenses + , puUpdateAction + , puRevisionNumber + , puPayload + , puProposalId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.proposals.update@ method which the +-- 'ProposalsUpdate' request conforms to. +type ProposalsUpdateResource = + "adexchangebuyer" :> + "v1.4" :> + "proposals" :> + Capture "proposalId" Text :> + Capture "revisionNumber" (Textual Int64) :> + Capture "updateAction" ProposalsUpdateUpdateAction :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] Proposal :> Put '[JSON] Proposal + +-- | Update the given proposal +-- +-- /See:/ 'proposalsUpdate' smart constructor. +data ProposalsUpdate = ProposalsUpdate' + { _puUpdateAction :: !ProposalsUpdateUpdateAction + , _puRevisionNumber :: !(Textual Int64) + , _puPayload :: !Proposal + , _puProposalId :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ProposalsUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'puUpdateAction' +-- +-- * 'puRevisionNumber' +-- +-- * 'puPayload' +-- +-- * 'puProposalId' +proposalsUpdate + :: ProposalsUpdateUpdateAction -- ^ 'puUpdateAction' + -> Int64 -- ^ 'puRevisionNumber' + -> Proposal -- ^ 'puPayload' + -> Text -- ^ 'puProposalId' + -> ProposalsUpdate +proposalsUpdate pPuUpdateAction_ pPuRevisionNumber_ pPuPayload_ pPuProposalId_ = + ProposalsUpdate' + { _puUpdateAction = pPuUpdateAction_ + , _puRevisionNumber = _Coerce # pPuRevisionNumber_ + , _puPayload = pPuPayload_ + , _puProposalId = pPuProposalId_ + } + +-- | The proposed action to take on the proposal. +puUpdateAction :: Lens' ProposalsUpdate ProposalsUpdateUpdateAction +puUpdateAction + = lens _puUpdateAction + (\ s a -> s{_puUpdateAction = 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 latest proposal at head revision and retry +-- the update at that revision. +puRevisionNumber :: Lens' ProposalsUpdate Int64 +puRevisionNumber + = lens _puRevisionNumber + (\ s a -> s{_puRevisionNumber = a}) + . _Coerce + +-- | Multipart request metadata. +puPayload :: Lens' ProposalsUpdate Proposal +puPayload + = lens _puPayload (\ s a -> s{_puPayload = a}) + +-- | The proposal id to update. +puProposalId :: Lens' ProposalsUpdate Text +puProposalId + = lens _puProposalId (\ s a -> s{_puProposalId = a}) + +instance GoogleRequest ProposalsUpdate where + type Rs ProposalsUpdate = Proposal + type Scopes ProposalsUpdate = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient ProposalsUpdate'{..} + = go _puProposalId _puRevisionNumber _puUpdateAction + (Just AltJSON) + _puPayload + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy ProposalsUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/AdExchangeBuyer/PubproFiles/List.hs b/gen/Network/Google/Resource/AdExchangeBuyer/PubproFiles/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/AdExchangeBuyer/PubproFiles/List.hs @@ -0,0 +1,90 @@ +{-# 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.PubproFiles.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets the requested publisher profile(s) by publisher accountId. +-- +-- /See:/ for @adexchangebuyer.pubprofiles.list@. +module Network.Google.Resource.AdExchangeBuyer.PubproFiles.List + ( + -- * REST Resource + PubproFilesListResource + + -- * Creating a Request + , pubproFilesList + , PubproFilesList + + -- * Request Lenses + , pflAccountId + ) where + +import Network.Google.AdExchangeBuyer.Types +import Network.Google.Prelude + +-- | A resource alias for @adexchangebuyer.pubprofiles.list@ method which the +-- 'PubproFilesList' request conforms to. +type PubproFilesListResource = + "adexchangebuyer" :> + "v1.4" :> + "publisher" :> + Capture "accountId" (Textual Int32) :> + "profiles" :> + QueryParam "alt" AltJSON :> + Get '[JSON] GetPublisherProFilesByAccountIdResponse + +-- | Gets the requested publisher profile(s) by publisher accountId. +-- +-- /See:/ 'pubproFilesList' smart constructor. +newtype PubproFilesList = PubproFilesList' + { _pflAccountId :: Textual Int32 + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PubproFilesList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pflAccountId' +pubproFilesList + :: Int32 -- ^ 'pflAccountId' + -> PubproFilesList +pubproFilesList pPflAccountId_ = + PubproFilesList' + { _pflAccountId = _Coerce # pPflAccountId_ + } + +-- | The accountId of the publisher to get profiles for. +pflAccountId :: Lens' PubproFilesList Int32 +pflAccountId + = lens _pflAccountId (\ s a -> s{_pflAccountId = a}) + . _Coerce + +instance GoogleRequest PubproFilesList where + type Rs PubproFilesList = + GetPublisherProFilesByAccountIdResponse + type Scopes PubproFilesList = + '["https://www.googleapis.com/auth/adexchange.buyer"] + requestClient PubproFilesList'{..} + = go _pflAccountId (Just AltJSON) + adExchangeBuyerService + where go + = buildClient + (Proxy :: Proxy PubproFilesListResource) + mempty diff --git a/gogol-adexchange-buyer.cabal b/gogol-adexchange-buyer.cabal --- a/gogol-adexchange-buyer.cabal +++ b/gogol-adexchange-buyer.cabal @@ -1,5 +1,5 @@ name: gogol-adexchange-buyer -version: 0.0.1 +version: 0.1.0 synopsis: Google Ad Exchange Buyer SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 @@ -46,36 +46,18 @@ , 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.AddDeal , 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.Creatives.RemoveDeal , 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.Marketplaceprivateauction.Updateproposal , Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get @@ -83,11 +65,20 @@ , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch , Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update + , Network.Google.Resource.AdExchangeBuyer.Products.Get + , Network.Google.Resource.AdExchangeBuyer.Products.Search + , Network.Google.Resource.AdExchangeBuyer.Proposals.Get + , Network.Google.Resource.AdExchangeBuyer.Proposals.Insert + , Network.Google.Resource.AdExchangeBuyer.Proposals.Patch + , Network.Google.Resource.AdExchangeBuyer.Proposals.Search + , Network.Google.Resource.AdExchangeBuyer.Proposals.Setupcomplete + , Network.Google.Resource.AdExchangeBuyer.Proposals.Update + , Network.Google.Resource.AdExchangeBuyer.PubproFiles.List other-modules: Network.Google.AdExchangeBuyer.Types.Product , Network.Google.AdExchangeBuyer.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5