70a96f0 · gogol · git.iko.soy

LICENSE−6

compare with develop

unifiedsplit

@@ -365,9 +365,3 @@ file in a relevant directory) where a recipient would be likely to look

365for such a notice.

366

367You may add additional accurate notices of copyright ownership.

368−

369−Exhibit B - "Incompatible With Secondary Licenses" Notice

370−---------------------------------------------------------

371−

372− This Source Code Form is "Incompatible With Secondary Licenses", as

373− defined by the Mozilla Public License, v. 2.0.

gogol-adexchange-buyer/LICENSE−6

@@ -365,9 +365,3 @@ file in a relevant directory) where a recipient would be likely to look

365for such a notice.

366

367You may add additional accurate notices of copyright ownership.

368−

369−Exhibit B - "Incompatible With Secondary Licenses" Notice

370−---------------------------------------------------------

371−

372− This Source Code Form is "Incompatible With Secondary Licenses", as

373− defined by the Mozilla Public License, v. 2.0.

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer.hs+140−143

@@ -55,23 +55,23 @@ module Network.Google.AdExchangeBuyer

55 -- ** AdexchangebuyerBudgetUpdate

56 , module Network.Google.Resource.AdExchangeBuyer.Budget.Update

57

58− -- ** AdexchangebuyerClientaccessDelete

58+ -- ** AdexchangebuyerClientAccessDelete

59− , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete

59+ , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete

60

61− -- ** AdexchangebuyerClientaccessGet

61+ -- ** AdexchangebuyerClientAccessGet

62− , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get

62+ , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get

63

64− -- ** AdexchangebuyerClientaccessInsert

64+ -- ** AdexchangebuyerClientAccessInsert

65− , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert

65+ , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert

66

67− -- ** AdexchangebuyerClientaccessList

67+ -- ** AdexchangebuyerClientAccessList

68− , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.List

68+ , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.List

69

70− -- ** AdexchangebuyerClientaccessPatch

70+ -- ** AdexchangebuyerClientAccessPatch

71− , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch

71+ , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch

72

73− -- ** AdexchangebuyerClientaccessUpdate

73+ -- ** AdexchangebuyerClientAccessUpdate

74− , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update

74+ , module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update

75

76 -- ** AdexchangebuyerCreativesGet

77 , module Network.Google.Resource.AdExchangeBuyer.Creatives.Get

@@ -85,47 +85,47 @@ module Network.Google.AdExchangeBuyer

85 -- ** AdexchangebuyerDealsGet

86 , module Network.Google.Resource.AdExchangeBuyer.Deals.Get

87

88− -- ** AdexchangebuyerMarketplacedealsDelete

88+ -- ** AdexchangebuyerMarketplaceDealsDelete

89− , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete

89+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete

90

91− -- ** AdexchangebuyerMarketplacedealsInsert

91+ -- ** AdexchangebuyerMarketplaceDealsInsert

92− , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert

92+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert

93

94− -- ** AdexchangebuyerMarketplacedealsList

94+ -- ** AdexchangebuyerMarketplaceDealsList

95− , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List

95+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List

96

97− -- ** AdexchangebuyerMarketplacedealsUpdate

97+ -- ** AdexchangebuyerMarketplaceDealsUpdate

98− , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update

98+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update

99

100− -- ** AdexchangebuyerMarketplacenotesInsert

100+ -- ** AdexchangebuyerMarketplaceNotesInsert

101− , module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert

101+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert

102

103− -- ** AdexchangebuyerMarketplacenotesList

103+ -- ** AdexchangebuyerMarketplaceNotesList

104− , module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List

104+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List

105

106− -- ** AdexchangebuyerMarketplaceoffersGet

106+ -- ** AdexchangebuyerMarketplaceOffersGet

107− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get

107+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get

108

109− -- ** AdexchangebuyerMarketplaceoffersSearch

109+ -- ** AdexchangebuyerMarketplaceOffersSearch

110− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search

110+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search

111

112− -- ** AdexchangebuyerMarketplaceordersGet

112+ -- ** AdexchangebuyerMarketplaceOrdersGet

113− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get

113+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get

114

115− -- ** AdexchangebuyerMarketplaceordersInsert

115+ -- ** AdexchangebuyerMarketplaceOrdersInsert

116− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert

116+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert

117

118− -- ** AdexchangebuyerMarketplaceordersPatch

118+ -- ** AdexchangebuyerMarketplaceOrdersPatch

119− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch

119+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch

120

121− -- ** AdexchangebuyerMarketplaceordersSearch

121+ -- ** AdexchangebuyerMarketplaceOrdersSearch

122− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search

122+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search

123

124− -- ** AdexchangebuyerMarketplaceordersUpdate

124+ -- ** AdexchangebuyerMarketplaceOrdersUpdate

125− , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update

125+ , module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update

126

127− -- ** AdexchangebuyerNegotiationroundsInsert

127+ -- ** AdexchangebuyerNegotiationRoundsInsert

128− , module Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert

128+ , module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert

129

130 -- ** AdexchangebuyerNegotiationsGet

131 , module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get

@@ -197,10 +197,10 @@ module Network.Google.AdExchangeBuyer

197 , creativeNATiveAd

198 , cnataImage

199 , cnataAppIcon

200− , cnataClickTrackingUrl

200+ , cnataClickTrackingURL

201 , cnataBody

202 , cnataHeadline

203− , cnataImpressionTrackingUrl

203+ , cnataImpressionTrackingURL

204 , cnataCallToAction

205 , cnataStore

206 , cnataPrice

@@ -220,7 +220,7 @@ module Network.Google.AdExchangeBuyer

220 , tdFinalizeAutomatically

221 , tdBuyerBillingType

222 , tdTargetingAllAdSlots

223− , tdUrls

223+ , tdURLs

224 , tdEndDate

225 , tdCpm

226 , tdEstimatedSpend

@@ -316,7 +316,7 @@ module Network.Google.AdExchangeBuyer

316 -- ** PrivateData

317 , PrivateData

318 , privateData

319− , pdReferencePayload

319+ , pdReferencePayLoad

320 , pdReferenceId

321

322 -- ** AdSize

@@ -384,7 +384,7 @@ module Network.Google.AdExchangeBuyer

384 , Creative

385 , creative

386 , cAttribute

387− , cNativeAd

387+ , cNATiveAd

388 , cHeight

389 , cBuyerCreativeId

390 , cAdvertiserName

@@ -397,20 +397,20 @@ module Network.Google.AdExchangeBuyer

397 , cRestrictedCategories

398 , cDealsStatus

399 , cWidth

400− , cClickThroughUrl

400+ , cClickThroughURL

401 , cVendorType

402 , cAccountId

403− , cImpressionTrackingUrl

403+ , cImpressionTrackingURL

404 , cFilteringReasons

405 , cVersion

406 , cSensitiveCategories

407 , cVideoURL

408− , cApiUploadTimestamp

408+ , cAPIUploadTimestamp

409 , cServingRestrictions

410 , cOpenAuctionStatus

411

412− -- ** AdexchangebuyerMarketplaceordersUpdateUpdateAction

412+ -- ** AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

413− , AdexchangebuyerMarketplaceordersUpdateUpdateAction (..)

413+ , AdexchangebuyerMarketplaceOrdersUpdateUpdateAction (..)

414

415 -- ** AddOrderDealsResponse

416 , AddOrderDealsResponse

@@ -490,7 +490,7 @@ module Network.Google.AdExchangeBuyer

490 , account

491 , aMaximumTotalQps

492 , aKind

493− , aCookieMatchingUrl

493+ , aCookieMatchingURL

494 , aMaximumActiveCreatives

495 , aCookieMatchingNid

496 , aNumberActiveCreatives

@@ -520,7 +520,7 @@ module Network.Google.AdExchangeBuyer

520 , CreativeNATiveAdLogo

521 , creativeNATiveAdLogo

522 , cnatalHeight

523− , cnatalUrl

523+ , cnatalURL

524 , cnatalWidth

525

526 -- ** GetOrderDealsResponse

@@ -580,8 +580,8 @@ module Network.Google.AdExchangeBuyer

580 , prlKind

581 , prlPerformanceReport

582

583− -- ** AdexchangebuyerMarketplaceordersPatchUpdateAction

583+ -- ** AdexchangebuyerMarketplaceOrdersPatchUpdateAction

584− , AdexchangebuyerMarketplaceordersPatchUpdateAction (..)

584+ , AdexchangebuyerMarketplaceOrdersPatchUpdateAction (..)

585

586 -- ** NegotiationDto

587 , NegotiationDto

@@ -721,7 +721,7 @@ module Network.Google.AdExchangeBuyer

721 , CreativeNATiveAdAppIcon

722 , creativeNATiveAdAppIcon

723 , cnataaiHeight

724− , cnataaiUrl

724+ , cnataaiURL

725 , cnataaiWidth

726

727 -- ** EditAllOrderDealsRequest

@@ -748,7 +748,7 @@ module Network.Google.AdExchangeBuyer

748 , wpdName

749 , wpdPropertyCode

750 , wpdId

751− , wpdSiteUrls

751+ , wpdSiteURLs

752 , wpdAllowInterestTargetedAds

753

754 -- ** TargetingValueDayPartTargeting

@@ -766,7 +766,7 @@ module Network.Google.AdExchangeBuyer

766 , CreativeNATiveAdImage

767 , creativeNATiveAdImage

768 , cnataiHeight

769− , cnataiUrl

769+ , cnataiURL

770 , cnataiWidth

771

772 -- ** ListClientAccessCapabilitiesRequest

@@ -789,7 +789,7 @@ module Network.Google.AdExchangeBuyer

789 , istPositiveLocations

790 , istNegativeAdSizes

791 , istPositiveOperatingSystems

792− , istPositiveSiteUrls

792+ , istPositiveSiteURLs

793 , istNegativeInventorySlots

794 , istNegativeVideoAdPositionSegments

795 , istPositiveAdTypeSegments

@@ -807,7 +807,7 @@ module Network.Google.AdExchangeBuyer

807 , istNegativeDeviceCategories

808 , istNegativeOperatingSystems

809 , istPositiveAdSizes

810− , istNegativeSiteUrls

810+ , istNegativeSiteURLs

811 , istNegativeAdTypeSegments

812 , istPositiveVideoAdPositionSegments

813 , istPositiveInventorySlots

@@ -824,7 +824,7 @@ module Network.Google.AdExchangeBuyer

824 -- ** AccountBidderLocation

825 , AccountBidderLocation

826 , accountBidderLocation

827− , ablUrl

827+ , ablURL

828 , ablMaximumQps

829 , ablRegion

830

@@ -849,25 +849,25 @@ module Network.Google.AdExchangeBuyer

849 -- ** MarketplaceDeal

850 , MarketplaceDeal

851 , marketplaceDeal

852− , mddExternalDealId

852+ , mdExternalDealId

853− , mddBuyerPrivateData

853+ , mdBuyerPrivateData

854− , mddWebPropertyCode

854+ , mdWebPropertyCode

855− , mddCreationTimeMs

855+ , mdCreationTimeMs

856− , mddTerms

856+ , mdTerms

857− , mddOfferRevisionNumber

857+ , mdOfferRevisionNumber

858− , mddLastUpdateTimeMs

858+ , mdLastUpdateTimeMs

859− , mddKind

859+ , mdKind

860− , mddDeliveryControl

860+ , mdDeliveryControl

861− , mddFlightStartTimeMs

861+ , mdFlightStartTimeMs

862− , mddSharedTargetings

862+ , mdSharedTargetings

863− , mddDealId

863+ , mdDealId

864− , mddInventoryDescription

864+ , mdInventoryDescription

865− , mddSyndicationProduct

865+ , mdSyndicationProduct

866− , mddFlightEndTimeMs

866+ , mdFlightEndTimeMs

867− , mddName

867+ , mdName

868− , mddSellerContacts

868+ , mdSellerContacts

869− , mddOfferId

869+ , mdOfferId

870− , mddOrderId

870+ , mdOrderId

871

872 -- ** PretargetingConfigPlacements

873 , PretargetingConfigPlacements

@@ -882,7 +882,7 @@ module Network.Google.AdExchangeBuyer

882 , nrdKind

883 , nrdOriginatorRole

884 , nrdAction

885− , nrdDbmPartnerId

885+ , nrdDBmPartnerId

886 , nrdNotes

887 , nrdNegotiationId

888 , nrdEditHistory

@@ -953,26 +953,26 @@ module Network.Google.AdExchangeBuyer

953 -- ** MarketplaceOrder

954 , MarketplaceOrder

955 , marketplaceOrder

956− , mooBuyerPrivateData

956+ , marBuyerPrivateData

957− , mooIsSetupComplete

957+ , marIsSetupComplete

958− , mooBuyerContacts

958+ , marBuyerContacts

959− , mooKind

959+ , marKind

960− , mooOriginatorRole

960+ , marOriginatorRole

961− , mooRevisionNumber

961+ , marRevisionNumber

962− , mooBilledBuyer

962+ , marBilledBuyer

963− , mooIsRenegotiating

963+ , marIsRenegotiating

964− , mooHasSellerSignedOff

964+ , marHasSellerSignedOff

965− , mooSeller

965+ , marSeller

966− , mooOrderState

966+ , marOrderState

967− , mooName

967+ , marName

968− , mooSellerContacts

968+ , marSellerContacts

969− , mooLastUpdaterRole

969+ , marLastUpdaterRole

970− , mooLabels

970+ , marLabels

971− , mooRevisionTimeMs

971+ , marRevisionTimeMs

972− , mooOrderId

972+ , marOrderId

973− , mooLastUpdaterOrCommentorRole

973+ , marLastUpdaterOrCommentorRole

974− , mooHasBuyerSignedOff

974+ , marHasBuyerSignedOff

975− , mooBuyer

975+ , marBuyer

976

977 -- ** AddOrderDealsRequest

978 , AddOrderDealsRequest

@@ -989,9 +989,6 @@ module Network.Google.AdExchangeBuyer

989 , dtGuaranteedFixedPriceTerms

990 , dtDescription

991

992− -- ** Alt

993− , Alt (..)

994−

995 -- ** EditHistoryDto

992 -- ** EditHistoryDto

996 , EditHistoryDto

993 , EditHistoryDto

997 , editHistoryDto

994 , editHistoryDto

@@ -1012,30 +1009,30 @@ import Network.Google.Resource.AdExchangeBuyer.BillingInfo.List

1012import Network.Google.Resource.AdExchangeBuyer.Budget.Get

1009import Network.Google.Resource.AdExchangeBuyer.Budget.Get

1013import Network.Google.Resource.AdExchangeBuyer.Budget.Patch

1010import Network.Google.Resource.AdExchangeBuyer.Budget.Patch

1014import Network.Google.Resource.AdExchangeBuyer.Budget.Update

1011import Network.Google.Resource.AdExchangeBuyer.Budget.Update

1015−import Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete

1012+import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete

1016−import Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get

1013+import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get

1017−import Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert

1014+import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert

1018−import Network.Google.Resource.AdExchangeBuyer.Clientaccess.List

1015+import Network.Google.Resource.AdExchangeBuyer.ClientAccess.List

1019−import Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch

1016+import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch

1020−import Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update

1017+import Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update

1021import Network.Google.Resource.AdExchangeBuyer.Creatives.Get

1018import Network.Google.Resource.AdExchangeBuyer.Creatives.Get

1022import Network.Google.Resource.AdExchangeBuyer.Creatives.Insert

1019import Network.Google.Resource.AdExchangeBuyer.Creatives.Insert

1023import Network.Google.Resource.AdExchangeBuyer.Creatives.List

1020import Network.Google.Resource.AdExchangeBuyer.Creatives.List

1024import Network.Google.Resource.AdExchangeBuyer.Deals.Get

1021import Network.Google.Resource.AdExchangeBuyer.Deals.Get

1025−import Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete

1022+import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete

1026−import Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert

1023+import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert

1027−import Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List

1024+import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List

1028−import Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update

1025+import Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update

1029−import Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert

1026+import Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert

1030−import Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List

1027+import Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List

1031−import Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get

1028+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get

1032−import Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search

1029+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search

1033−import Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get

1030+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get

1034−import Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert

1031+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert

1035−import Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch

1032+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch

1036−import Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search

1033+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search

1037−import Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update

1034+import Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update

1038−import Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert

1035+import Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert

1039import Network.Google.Resource.AdExchangeBuyer.Negotiations.Get

1036import Network.Google.Resource.AdExchangeBuyer.Negotiations.Get

1040import Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert

1037import Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert

1041import Network.Google.Resource.AdExchangeBuyer.Negotiations.List

1038import Network.Google.Resource.AdExchangeBuyer.Negotiations.List

@@ -1055,10 +1052,10 @@ TODO

1055-}

1052-}

1056

1053

1057type AdExchangeBuyerAPI =

1054type AdExchangeBuyerAPI =

1058− MarketplacenotesInsertResource :<|>

1055+ MarketplaceNotesInsertResource :<|>

1059− MarketplacenotesListResource

1056+ MarketplaceNotesListResource

1060 :<|> DealsGetResource

1057 :<|> DealsGetResource

1061− :<|> NegotiationroundsInsertResource

1058+ :<|> NegotiationRoundsInsertResource

1062 :<|> AccountsListResource

1059 :<|> AccountsListResource

1063 :<|> AccountsPatchResource

1060 :<|> AccountsPatchResource

1064 :<|> AccountsGetResource

1061 :<|> AccountsGetResource

@@ -1070,31 +1067,31 @@ type AdExchangeBuyerAPI =

1070 :<|> CreativesListResource

1067 :<|> CreativesListResource

1071 :<|> CreativesGetResource

1068 :<|> CreativesGetResource

1072 :<|> PerformanceReportListResource

1069 :<|> PerformanceReportListResource

1073− :<|> MarketplaceoffersGetResource

1070+ :<|> MarketplaceOffersGetResource

1074− :<|> MarketplaceoffersSearchResource

1071+ :<|> MarketplaceOffersSearchResource

1075 :<|> PretargetingConfigInsertResource

1072 :<|> PretargetingConfigInsertResource

1076 :<|> PretargetingConfigListResource

1073 :<|> PretargetingConfigListResource

1077 :<|> PretargetingConfigPatchResource

1074 :<|> PretargetingConfigPatchResource

1078 :<|> PretargetingConfigGetResource

1075 :<|> PretargetingConfigGetResource

1079 :<|> PretargetingConfigDeleteResource

1076 :<|> PretargetingConfigDeleteResource

1080 :<|> PretargetingConfigUpdateResource

1077 :<|> PretargetingConfigUpdateResource

1081− :<|> MarketplaceordersInsertResource

1078+ :<|> MarketplaceOrdersInsertResource

1082− :<|> MarketplaceordersPatchResource

1079+ :<|> MarketplaceOrdersPatchResource

1083− :<|> MarketplaceordersGetResource

1080+ :<|> MarketplaceOrdersGetResource

1084− :<|> MarketplaceordersSearchResource

1081+ :<|> MarketplaceOrdersSearchResource

1085− :<|> MarketplaceordersUpdateResource

1082+ :<|> MarketplaceOrdersUpdateResource

1086− :<|> ClientaccessInsertResource

1083+ :<|> ClientAccessInsertResource

1087− :<|> ClientaccessListResource

1084+ :<|> ClientAccessListResource

1088− :<|> ClientaccessPatchResource

1085+ :<|> ClientAccessPatchResource

1089− :<|> ClientaccessGetResource

1086+ :<|> ClientAccessGetResource

1090− :<|> ClientaccessDeleteResource

1087+ :<|> ClientAccessDeleteResource

1091− :<|> ClientaccessUpdateResource

1088+ :<|> ClientAccessUpdateResource

1092 :<|> BillingInfoListResource

1089 :<|> BillingInfoListResource

1093 :<|> BillingInfoGetResource

1090 :<|> BillingInfoGetResource

1094− :<|> MarketplacedealsInsertResource

1091+ :<|> MarketplaceDealsInsertResource

1095− :<|> MarketplacedealsListResource

1092+ :<|> MarketplaceDealsListResource

1096− :<|> MarketplacedealsDeleteResource

1093+ :<|> MarketplaceDealsDeleteResource

1097− :<|> MarketplacedealsUpdateResource

1094+ :<|> MarketplaceDealsUpdateResource

1098 :<|> NegotiationsInsertResource

1095 :<|> NegotiationsInsertResource

1099 :<|> NegotiationsListResource

1096 :<|> NegotiationsListResource

1100 :<|> NegotiationsGetResource

1097 :<|> NegotiationsGetResource

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types.hs+60−63

@@ -46,10 +46,10 @@ module Network.Google.AdExchangeBuyer.Types

46 , creativeNATiveAd

47 , cnataImage

48 , cnataAppIcon

49− , cnataClickTrackingUrl

49+ , cnataClickTrackingURL

50 , cnataBody

51 , cnataHeadline

52− , cnataImpressionTrackingUrl

52+ , cnataImpressionTrackingURL

53 , cnataCallToAction

54 , cnataStore

55 , cnataPrice

@@ -69,7 +69,7 @@ module Network.Google.AdExchangeBuyer.Types

69 , tdFinalizeAutomatically

70 , tdBuyerBillingType

71 , tdTargetingAllAdSlots

72− , tdUrls

72+ , tdURLs

73 , tdEndDate

74 , tdCpm

75 , tdEstimatedSpend

@@ -165,7 +165,7 @@ module Network.Google.AdExchangeBuyer.Types

165 -- * PrivateData

166 , PrivateData

167 , privateData

168− , pdReferencePayload

168+ , pdReferencePayLoad

169 , pdReferenceId

170

171 -- * AdSize

@@ -233,7 +233,7 @@ module Network.Google.AdExchangeBuyer.Types

233 , Creative

234 , creative

235 , cAttribute

236− , cNativeAd

236+ , cNATiveAd

237 , cHeight

238 , cBuyerCreativeId

239 , cAdvertiserName

@@ -246,20 +246,20 @@ module Network.Google.AdExchangeBuyer.Types

246 , cRestrictedCategories

247 , cDealsStatus

248 , cWidth

249− , cClickThroughUrl

249+ , cClickThroughURL

250 , cVendorType

251 , cAccountId

252− , cImpressionTrackingUrl

252+ , cImpressionTrackingURL

253 , cFilteringReasons

254 , cVersion

255 , cSensitiveCategories

256 , cVideoURL

257− , cApiUploadTimestamp

257+ , cAPIUploadTimestamp

258 , cServingRestrictions

259 , cOpenAuctionStatus

260

261− -- * AdexchangebuyerMarketplaceordersUpdateUpdateAction

261+ -- * AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

262− , AdexchangebuyerMarketplaceordersUpdateUpdateAction (..)

262+ , AdexchangebuyerMarketplaceOrdersUpdateUpdateAction (..)

263

264 -- * AddOrderDealsResponse

265 , AddOrderDealsResponse

@@ -339,7 +339,7 @@ module Network.Google.AdExchangeBuyer.Types

339 , account

340 , aMaximumTotalQps

341 , aKind

342− , aCookieMatchingUrl

342+ , aCookieMatchingURL

343 , aMaximumActiveCreatives

344 , aCookieMatchingNid

345 , aNumberActiveCreatives

@@ -369,7 +369,7 @@ module Network.Google.AdExchangeBuyer.Types

369 , CreativeNATiveAdLogo

370 , creativeNATiveAdLogo

371 , cnatalHeight

372− , cnatalUrl

372+ , cnatalURL

373 , cnatalWidth

374

375 -- * GetOrderDealsResponse

@@ -429,8 +429,8 @@ module Network.Google.AdExchangeBuyer.Types

429 , prlKind

430 , prlPerformanceReport

431

432− -- * AdexchangebuyerMarketplaceordersPatchUpdateAction

432+ -- * AdexchangebuyerMarketplaceOrdersPatchUpdateAction

433− , AdexchangebuyerMarketplaceordersPatchUpdateAction (..)

433+ , AdexchangebuyerMarketplaceOrdersPatchUpdateAction (..)

434

435 -- * NegotiationDto

436 , NegotiationDto

@@ -570,7 +570,7 @@ module Network.Google.AdExchangeBuyer.Types

570 , CreativeNATiveAdAppIcon

571 , creativeNATiveAdAppIcon

572 , cnataaiHeight

573− , cnataaiUrl

573+ , cnataaiURL

574 , cnataaiWidth

575

576 -- * EditAllOrderDealsRequest

@@ -597,7 +597,7 @@ module Network.Google.AdExchangeBuyer.Types

597 , wpdName

598 , wpdPropertyCode

599 , wpdId

600− , wpdSiteUrls

600+ , wpdSiteURLs

601 , wpdAllowInterestTargetedAds

602

603 -- * TargetingValueDayPartTargeting

@@ -615,7 +615,7 @@ module Network.Google.AdExchangeBuyer.Types

615 , CreativeNATiveAdImage

616 , creativeNATiveAdImage

617 , cnataiHeight

618− , cnataiUrl

618+ , cnataiURL

619 , cnataiWidth

620

621 -- * ListClientAccessCapabilitiesRequest

@@ -638,7 +638,7 @@ module Network.Google.AdExchangeBuyer.Types

638 , istPositiveLocations

639 , istNegativeAdSizes

640 , istPositiveOperatingSystems

641− , istPositiveSiteUrls

641+ , istPositiveSiteURLs

642 , istNegativeInventorySlots

643 , istNegativeVideoAdPositionSegments

644 , istPositiveAdTypeSegments

@@ -656,7 +656,7 @@ module Network.Google.AdExchangeBuyer.Types

656 , istNegativeDeviceCategories

657 , istNegativeOperatingSystems

658 , istPositiveAdSizes

659− , istNegativeSiteUrls

659+ , istNegativeSiteURLs

660 , istNegativeAdTypeSegments

661 , istPositiveVideoAdPositionSegments

662 , istPositiveInventorySlots

@@ -673,7 +673,7 @@ module Network.Google.AdExchangeBuyer.Types

673 -- * AccountBidderLocation

674 , AccountBidderLocation

675 , accountBidderLocation

676− , ablUrl

676+ , ablURL

677 , ablMaximumQps

678 , ablRegion

679

@@ -698,25 +698,25 @@ module Network.Google.AdExchangeBuyer.Types

698 -- * MarketplaceDeal

699 , MarketplaceDeal

700 , marketplaceDeal

701− , mddExternalDealId

701+ , mdExternalDealId

702− , mddBuyerPrivateData

702+ , mdBuyerPrivateData

703− , mddWebPropertyCode

703+ , mdWebPropertyCode

704− , mddCreationTimeMs

704+ , mdCreationTimeMs

705− , mddTerms

705+ , mdTerms

706− , mddOfferRevisionNumber

706+ , mdOfferRevisionNumber

707− , mddLastUpdateTimeMs

707+ , mdLastUpdateTimeMs

708− , mddKind

708+ , mdKind

709− , mddDeliveryControl

709+ , mdDeliveryControl

710− , mddFlightStartTimeMs

710+ , mdFlightStartTimeMs

711− , mddSharedTargetings

711+ , mdSharedTargetings

712− , mddDealId

712+ , mdDealId

713− , mddInventoryDescription

713+ , mdInventoryDescription

714− , mddSyndicationProduct

714+ , mdSyndicationProduct

715− , mddFlightEndTimeMs

715+ , mdFlightEndTimeMs

716− , mddName

716+ , mdName

717− , mddSellerContacts

717+ , mdSellerContacts

718− , mddOfferId

718+ , mdOfferId

719− , mddOrderId

719+ , mdOrderId

720

721 -- * PretargetingConfigPlacements

722 , PretargetingConfigPlacements

@@ -731,7 +731,7 @@ module Network.Google.AdExchangeBuyer.Types

731 , nrdKind

732 , nrdOriginatorRole

733 , nrdAction

734− , nrdDbmPartnerId

734+ , nrdDBmPartnerId

735 , nrdNotes

736 , nrdNegotiationId

737 , nrdEditHistory

@@ -802,26 +802,26 @@ module Network.Google.AdExchangeBuyer.Types

802 -- * MarketplaceOrder

803 , MarketplaceOrder

804 , marketplaceOrder

805− , mooBuyerPrivateData

805+ , marBuyerPrivateData

806− , mooIsSetupComplete

806+ , marIsSetupComplete

807− , mooBuyerContacts

807+ , marBuyerContacts

808− , mooKind

808+ , marKind

809− , mooOriginatorRole

809+ , marOriginatorRole

810− , mooRevisionNumber

810+ , marRevisionNumber

811− , mooBilledBuyer

811+ , marBilledBuyer

812− , mooIsRenegotiating

812+ , marIsRenegotiating

813− , mooHasSellerSignedOff

813+ , marHasSellerSignedOff

814− , mooSeller

814+ , marSeller

815− , mooOrderState

815+ , marOrderState

816− , mooName

816+ , marName

817− , mooSellerContacts

817+ , marSellerContacts

818− , mooLastUpdaterRole

818+ , marLastUpdaterRole

819− , mooLabels

819+ , marLabels

820− , mooRevisionTimeMs

820+ , marRevisionTimeMs

821− , mooOrderId

821+ , marOrderId

822− , mooLastUpdaterOrCommentorRole

822+ , marLastUpdaterOrCommentorRole

823− , mooHasBuyerSignedOff

823+ , marHasBuyerSignedOff

824− , mooBuyer

824+ , marBuyer

825

826 -- * AddOrderDealsRequest

827 , AddOrderDealsRequest

@@ -838,9 +838,6 @@ module Network.Google.AdExchangeBuyer.Types

838 , dtGuaranteedFixedPriceTerms

839 , dtDescription

840

841− -- * Alt

842− , Alt (..)

843−

844 -- * EditHistoryDto

841 -- * EditHistoryDto

845 , EditHistoryDto

842 , EditHistoryDto

846 , editHistoryDto

843 , editHistoryDto

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Product.hs+573−574

@@ -73,7 +73,7 @@ instance ToJSON BrandDto where

73--

74-- /See:/ 'editAllOrderDealsResponse' smart constructor.

75newtype EditAllOrderDealsResponse = EditAllOrderDealsResponse

76− { _eaodrDeals :: Maybe [Maybe MarketplaceDeal]

76+ { _eaodrDeals :: Maybe [MarketplaceDeal]

77 } deriving (Eq,Read,Show,Data,Typeable,Generic)

78

79-- | Creates a value of 'EditAllOrderDealsResponse' with the minimum fields required to make a request.

@@ -89,7 +89,7 @@ editAllOrderDealsResponse =

89 }

90

91-- | List of all deals in the order after edit.

92−eaodrDeals :: Lens' EditAllOrderDealsResponse [Maybe MarketplaceDeal]

92+eaodrDeals :: Lens' EditAllOrderDealsResponse [MarketplaceDeal]

93eaodrDeals

94 = lens _eaodrDeals (\ s a -> s{_eaodrDeals = a}) .

95 _Default

@@ -229,10 +229,10 @@ instance ToJSON MarketplaceNote where

229data CreativeNATiveAd = CreativeNATiveAd

230 { _cnataImage :: !(Maybe CreativeNATiveAdImage)

231 , _cnataAppIcon :: !(Maybe CreativeNATiveAdAppIcon)

232− , _cnataClickTrackingUrl :: !(Maybe Text)

232+ , _cnataClickTrackingURL :: !(Maybe Text)

233 , _cnataBody :: !(Maybe Text)

234 , _cnataHeadline :: !(Maybe Text)

235− , _cnataImpressionTrackingUrl :: !(Maybe [Text])

235+ , _cnataImpressionTrackingURL :: !(Maybe [Text])

236 , _cnataCallToAction :: !(Maybe Text)

237 , _cnataStore :: !(Maybe Text)

238 , _cnataPrice :: !(Maybe Text)

@@ -249,13 +249,13 @@ data CreativeNATiveAd = CreativeNATiveAd

249--

250-- * 'cnataAppIcon'

251--

252−-- * 'cnataClickTrackingUrl'

252+-- * 'cnataClickTrackingURL'

253--

254-- * 'cnataBody'

255--

256-- * 'cnataHeadline'

257--

258−-- * 'cnataImpressionTrackingUrl'

258+-- * 'cnataImpressionTrackingURL'

259--

260-- * 'cnataCallToAction'

261--

@@ -274,10 +274,10 @@ creativeNATiveAd =

274 CreativeNATiveAd

275 { _cnataImage = Nothing

276 , _cnataAppIcon = Nothing

277− , _cnataClickTrackingUrl = Nothing

277+ , _cnataClickTrackingURL = Nothing

278 , _cnataBody = Nothing

279 , _cnataHeadline = Nothing

280− , _cnataImpressionTrackingUrl = Nothing

280+ , _cnataImpressionTrackingURL = Nothing

281 , _cnataCallToAction = Nothing

282 , _cnataStore = Nothing

283 , _cnataPrice = Nothing

@@ -297,10 +297,10 @@ cnataAppIcon

297 = lens _cnataAppIcon (\ s a -> s{_cnataAppIcon = a})

298

299-- | The URL to use for click tracking.

300−cnataClickTrackingUrl :: Lens' CreativeNATiveAd (Maybe Text)

300+cnataClickTrackingURL :: Lens' CreativeNATiveAd (Maybe Text)

301−cnataClickTrackingUrl

301+cnataClickTrackingURL

302− = lens _cnataClickTrackingUrl

302+ = lens _cnataClickTrackingURL

303− (\ s a -> s{_cnataClickTrackingUrl = a})

303+ (\ s a -> s{_cnataClickTrackingURL = a})

304

305-- | A long description of the ad.

306cnataBody :: Lens' CreativeNATiveAd (Maybe Text)

@@ -314,10 +314,10 @@ cnataHeadline

314 (\ s a -> s{_cnataHeadline = a})

315

316-- | The URLs are called when the impression is rendered.

317−cnataImpressionTrackingUrl :: Lens' CreativeNATiveAd [Text]

317+cnataImpressionTrackingURL :: Lens' CreativeNATiveAd [Text]

318−cnataImpressionTrackingUrl

318+cnataImpressionTrackingURL

319− = lens _cnataImpressionTrackingUrl

319+ = lens _cnataImpressionTrackingURL

320− (\ s a -> s{_cnataImpressionTrackingUrl = a})

320+ (\ s a -> s{_cnataImpressionTrackingURL = a})

321 . _Default

322 . _Coerce

323

@@ -376,11 +376,11 @@ instance ToJSON CreativeNATiveAd where

376 (catMaybes

377 [("image" .=) <$> _cnataImage,

378 ("appIcon" .=) <$> _cnataAppIcon,

379− ("clickTrackingUrl" .=) <$> _cnataClickTrackingUrl,

379+ ("clickTrackingUrl" .=) <$> _cnataClickTrackingURL,

380 ("body" .=) <$> _cnataBody,

381 ("headline" .=) <$> _cnataHeadline,

382 ("impressionTrackingUrl" .=) <$>

383− _cnataImpressionTrackingUrl,

383+ _cnataImpressionTrackingURL,

384 ("callToAction" .=) <$> _cnataCallToAction,

385 ("store" .=) <$> _cnataStore,

386 ("price" .=) <$> _cnataPrice,

@@ -439,25 +439,25 @@ data TermsDto = TermsDto

439 { _tdFinalizeAutomatically :: !(Maybe Bool)

440 , _tdBuyerBillingType :: !(Maybe Text)

441 , _tdTargetingAllAdSlots :: !(Maybe Bool)

442− , _tdUrls :: !(Maybe [Text])

442+ , _tdURLs :: !(Maybe [Text])

443− , _tdEndDate :: !(Maybe (Maybe DateTime))

443+ , _tdEndDate :: !(Maybe DateTime)

444− , _tdCpm :: !(Maybe (Maybe MoneyDto))

444+ , _tdCpm :: !(Maybe MoneyDto)

445− , _tdEstimatedSpend :: !(Maybe (Maybe MoneyDto))

445+ , _tdEstimatedSpend :: !(Maybe MoneyDto)

446− , _tdAdvertisers :: !(Maybe [Maybe AdvertiserDto])

446+ , _tdAdvertisers :: !(Maybe [AdvertiserDto])

447 , _tdEstimatedImpressionsPerDay :: !(Maybe Int64)

448 , _tdMonetizerType :: !(Maybe Text)

449 , _tdAudienceSegmentDescription :: !(Maybe Text)

450 , _tdCreativeReviewPolicy :: !(Maybe Text)

451 , _tdMinimumTrueLooks :: !(Maybe Int64)

452− , _tdStartDate :: !(Maybe (Maybe DateTime))

452+ , _tdStartDate :: !(Maybe DateTime)

453 , _tdCreativeBlockingLevel :: !(Maybe Text)

454 , _tdSemiTransparent :: !(Maybe Bool)

455− , _tdAudienceSegment :: !(Maybe (Maybe AudienceSegment))

455+ , _tdAudienceSegment :: !(Maybe AudienceSegment)

456− , _tdDealPremium :: !(Maybe (Maybe MoneyDto))

456+ , _tdDealPremium :: !(Maybe MoneyDto)

457 , _tdIsReservation :: !(Maybe Bool)

458− , _tdAdSlots :: !(Maybe [Maybe AdSlotDto])

458+ , _tdAdSlots :: !(Maybe [AdSlotDto])

459 , _tdTermsAttributes :: !(Maybe [Text])

460− , _tdInventorySegmentTargeting :: !(Maybe (Maybe InventorySegmentTargeting))

460+ , _tdInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)

461 , _tdDescriptiveName :: !(Maybe Text)

462 , _tdMinimumSpendMicros :: !(Maybe Int64)

463 , _tdTargetByDealId :: !(Maybe Bool)

@@ -475,7 +475,7 @@ data TermsDto = TermsDto

475--

476-- * 'tdTargetingAllAdSlots'

477--

478−-- * 'tdUrls'

478+-- * 'tdURLs'

479--

480-- * 'tdEndDate'

481--

@@ -529,7 +529,7 @@ termsDto =

529 { _tdFinalizeAutomatically = Nothing

530 , _tdBuyerBillingType = Nothing

531 , _tdTargetingAllAdSlots = Nothing

532− , _tdUrls = Nothing

532+ , _tdURLs = Nothing

533 , _tdEndDate = Nothing

534 , _tdCpm = Nothing

535 , _tdEstimatedSpend = Nothing

@@ -574,28 +574,28 @@ tdTargetingAllAdSlots

574 (\ s a -> s{_tdTargetingAllAdSlots = a})

575

576-- | The urls applicable to the offer.

577−tdUrls :: Lens' TermsDto [Text]

577+tdURLs :: Lens' TermsDto [Text]

578−tdUrls

578+tdURLs

579− = lens _tdUrls (\ s a -> s{_tdUrls = a}) . _Default .

579+ = lens _tdURLs (\ s a -> s{_tdURLs = a}) . _Default .

580 _Coerce

581

582-- | The end date for the offer.

583−tdEndDate :: Lens' TermsDto (Maybe (Maybe DateTime))

583+tdEndDate :: Lens' TermsDto (Maybe DateTime)

584tdEndDate

585 = lens _tdEndDate (\ s a -> s{_tdEndDate = a})

586

587-- | The cpm terms.

588−tdCpm :: Lens' TermsDto (Maybe (Maybe MoneyDto))

588+tdCpm :: Lens' TermsDto (Maybe MoneyDto)

589tdCpm = lens _tdCpm (\ s a -> s{_tdCpm = a})

590

591-- | The estimated spend for the offer.

592−tdEstimatedSpend :: Lens' TermsDto (Maybe (Maybe MoneyDto))

592+tdEstimatedSpend :: Lens' TermsDto (Maybe MoneyDto)

593tdEstimatedSpend

594 = lens _tdEstimatedSpend

595 (\ s a -> s{_tdEstimatedSpend = a})

596

597-- | A list of advertisers for this offer.

598−tdAdvertisers :: Lens' TermsDto [Maybe AdvertiserDto]

598+tdAdvertisers :: Lens' TermsDto [AdvertiserDto]

599tdAdvertisers

600 = lens _tdAdvertisers

601 (\ s a -> s{_tdAdvertisers = a})

@@ -633,7 +633,7 @@ tdMinimumTrueLooks

633 (\ s a -> s{_tdMinimumTrueLooks = a})

634

635-- | The start date for the offer.

636−tdStartDate :: Lens' TermsDto (Maybe (Maybe DateTime))

636+tdStartDate :: Lens' TermsDto (Maybe DateTime)

637tdStartDate

638 = lens _tdStartDate (\ s a -> s{_tdStartDate = a})

639

@@ -650,13 +650,13 @@ tdSemiTransparent

650 (\ s a -> s{_tdSemiTransparent = a})

651

652-- | The audience segment for the offer.

653−tdAudienceSegment :: Lens' TermsDto (Maybe (Maybe AudienceSegment))

653+tdAudienceSegment :: Lens' TermsDto (Maybe AudienceSegment)

654tdAudienceSegment

655 = lens _tdAudienceSegment

656 (\ s a -> s{_tdAudienceSegment = a})

657

658-- | The premium terms.

659−tdDealPremium :: Lens' TermsDto (Maybe (Maybe MoneyDto))

659+tdDealPremium :: Lens' TermsDto (Maybe MoneyDto)

660tdDealPremium

661 = lens _tdDealPremium

662 (\ s a -> s{_tdDealPremium = a})

@@ -668,7 +668,7 @@ tdIsReservation

668 (\ s a -> s{_tdIsReservation = a})

669

670-- | The particular ad slots targeted by the offer.

671−tdAdSlots :: Lens' TermsDto [Maybe AdSlotDto]

671+tdAdSlots :: Lens' TermsDto [AdSlotDto]

672tdAdSlots

673 = lens _tdAdSlots (\ s a -> s{_tdAdSlots = a}) .

674 _Default

@@ -683,7 +683,7 @@ tdTermsAttributes

683 . _Coerce

684

685-- | The inventory segment targeting for the offer.

686−tdInventorySegmentTargeting :: Lens' TermsDto (Maybe (Maybe InventorySegmentTargeting))

686+tdInventorySegmentTargeting :: Lens' TermsDto (Maybe InventorySegmentTargeting)

687tdInventorySegmentTargeting

688 = lens _tdInventorySegmentTargeting

689 (\ s a -> s{_tdInventorySegmentTargeting = a})

@@ -760,7 +760,7 @@ instance ToJSON TermsDto where

760 ("buyerBillingType" .=) <$> _tdBuyerBillingType,

761 ("targetingAllAdSlots" .=) <$>

762 _tdTargetingAllAdSlots,

763− ("urls" .=) <$> _tdUrls,

763+ ("urls" .=) <$> _tdURLs,

764 ("endDate" .=) <$> _tdEndDate, ("cpm" .=) <$> _tdCpm,

765 ("estimatedSpend" .=) <$> _tdEstimatedSpend,

766 ("advertisers" .=) <$> _tdAdvertisers,

@@ -797,7 +797,7 @@ instance ToJSON TermsDto where

797data CreativesList = CreativesList

798 { _clNextPageToken :: !(Maybe Text)

799 , _clKind :: !Text

800− , _clItems :: !(Maybe [Maybe Creative])

800+ , _clItems :: !(Maybe [Creative])

801 } deriving (Eq,Read,Show,Data,Typeable,Generic)

802

803-- | Creates a value of 'CreativesList' with the minimum fields required to make a request.

@@ -830,7 +830,7 @@ clKind :: Lens' CreativesList Text

830clKind = lens _clKind (\ s a -> s{_clKind = a})

831

832-- | A list of creatives.

833−clItems :: Lens' CreativesList [Maybe Creative]

833+clItems :: Lens' CreativesList [Creative]

834clItems

835 = lens _clItems (\ s a -> s{_clItems = a}) . _Default

836 . _Coerce

@@ -937,7 +937,7 @@ instance ToJSON CreativeServingRestrictionsContexts

937--

938-- /See:/ 'createOrdersResponse' smart constructor.

939newtype CreateOrdersResponse = CreateOrdersResponse

940− { _corOrders :: Maybe [Maybe MarketplaceOrder]

940+ { _corOrders :: Maybe [MarketplaceOrder]

941 } deriving (Eq,Read,Show,Data,Typeable,Generic)

942

943-- | Creates a value of 'CreateOrdersResponse' with the minimum fields required to make a request.

@@ -953,7 +953,7 @@ createOrdersResponse =

953 }

954

955-- | The list of orders successfully created.

956−corOrders :: Lens' CreateOrdersResponse [Maybe MarketplaceOrder]

956+corOrders :: Lens' CreateOrdersResponse [MarketplaceOrder]

957corOrders

958 = lens _corOrders (\ s a -> s{_corOrders = a}) .

959 _Default

@@ -972,7 +972,7 @@ instance ToJSON CreateOrdersResponse where

972--

973-- /See:/ 'addOrderNotesRequest' smart constructor.

974newtype AddOrderNotesRequest = AddOrderNotesRequest

975− { _aonrNotes :: Maybe [Maybe MarketplaceNote]

975+ { _aonrNotes :: Maybe [MarketplaceNote]

976 } deriving (Eq,Read,Show,Data,Typeable,Generic)

977

978-- | Creates a value of 'AddOrderNotesRequest' with the minimum fields required to make a request.

@@ -988,7 +988,7 @@ addOrderNotesRequest =

988 }

989

990-- | The list of notes to add.

991−aonrNotes :: Lens' AddOrderNotesRequest [Maybe MarketplaceNote]

991+aonrNotes :: Lens' AddOrderNotesRequest [MarketplaceNote]

992aonrNotes

993 = lens _aonrNotes (\ s a -> s{_aonrNotes = a}) .

994 _Default

@@ -1007,8 +1007,8 @@ instance ToJSON AddOrderNotesRequest where

1007--

1008-- /See:/ 'marketplaceDealParty' smart constructor.

1009data MarketplaceDealParty = MarketplaceDealParty

1010− { _mdpSeller :: !(Maybe (Maybe Seller))

1010+ { _mdpSeller :: !(Maybe Seller)

1011− , _mdpBuyer :: !(Maybe (Maybe Buyer))

1011+ , _mdpBuyer :: !(Maybe Buyer)

1012 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1013

1014-- | Creates a value of 'MarketplaceDealParty' with the minimum fields required to make a request.

@@ -1028,13 +1028,13 @@ marketplaceDealParty =

1028

1029-- | The buyer\/seller associated with the deal. One of buyer\/seller is

1030-- specified for a deal party.

1031−mdpSeller :: Lens' MarketplaceDealParty (Maybe (Maybe Seller))

1031+mdpSeller :: Lens' MarketplaceDealParty (Maybe Seller)

1032mdpSeller

1033 = lens _mdpSeller (\ s a -> s{_mdpSeller = a})

1034

1035-- | The buyer\/seller associated with the deal. One of buyer\/seller is

1036-- specified for a deal-party.

1037−mdpBuyer :: Lens' MarketplaceDealParty (Maybe (Maybe Buyer))

1037+mdpBuyer :: Lens' MarketplaceDealParty (Maybe Buyer)

1038mdpBuyer = lens _mdpBuyer (\ s a -> s{_mdpBuyer = a})

1039

1040instance FromJSON MarketplaceDealParty where

@@ -1057,8 +1057,8 @@ data DealPartyDto = DealPartyDto

1057 { _dpdBuyerSellerRole :: !(Maybe Text)

1058 , _dpdCustomerId :: !(Maybe Int32)

1059 , _dpdName :: !(Maybe Text)

1060− , _dpdWebProperty :: !(Maybe (Maybe WebPropertyDto))

1060+ , _dpdWebProperty :: !(Maybe WebPropertyDto)

1061− , _dpdBuyer :: !(Maybe (Maybe BuyerDto))

1061+ , _dpdBuyer :: !(Maybe BuyerDto)

1062 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1063

1064-- | Creates a value of 'DealPartyDto' with the minimum fields required to make a request.

@@ -1098,12 +1098,12 @@ dpdCustomerId

1098dpdName :: Lens' DealPartyDto (Maybe Text)

1099dpdName = lens _dpdName (\ s a -> s{_dpdName = a})

1100

1101−dpdWebProperty :: Lens' DealPartyDto (Maybe (Maybe WebPropertyDto))

1101+dpdWebProperty :: Lens' DealPartyDto (Maybe WebPropertyDto)

1102dpdWebProperty

1103 = lens _dpdWebProperty

1104 (\ s a -> s{_dpdWebProperty = a})

1105

1106−dpdBuyer :: Lens' DealPartyDto (Maybe (Maybe BuyerDto))

1106+dpdBuyer :: Lens' DealPartyDto (Maybe BuyerDto)

1107dpdBuyer = lens _dpdBuyer (\ s a -> s{_dpdBuyer = a})

1108

1109instance FromJSON DealPartyDto where

@@ -1187,7 +1187,7 @@ instance ToJSON DeliveryControlFrequencyCap where

1187-- /See:/ 'getNegotiationsResponse' smart constructor.

1188data GetNegotiationsResponse = GetNegotiationsResponse

1189 { _gnrKind :: !Text

1190− , _gnrNegotiations :: !(Maybe [Maybe NegotiationDto])

1190+ , _gnrNegotiations :: !(Maybe [NegotiationDto])

1191 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1192

1193-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.

@@ -1208,7 +1208,7 @@ getNegotiationsResponse =

1208gnrKind :: Lens' GetNegotiationsResponse Text

1209gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})

1210

1211−gnrNegotiations :: Lens' GetNegotiationsResponse [Maybe NegotiationDto]

1211+gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDto]

1212gnrNegotiations

1213 = lens _gnrNegotiations

1214 (\ s a -> s{_gnrNegotiations = a})

@@ -1367,7 +1367,7 @@ instance ToJSON

1367--

1368-- /See:/ 'privateData' smart constructor.

1369data PrivateData = PrivateData

1370− { _pdReferencePayload :: !(Maybe Word8)

1370+ { _pdReferencePayLoad :: !(Maybe Word8)

1371 , _pdReferenceId :: !(Maybe Text)

1372 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1373

@@ -1375,21 +1375,21 @@ data PrivateData = PrivateData

1375--

1376-- Use one of the following lenses to modify other fields as desired:

1377--

1378−-- * 'pdReferencePayload'

1378+-- * 'pdReferencePayLoad'

1379--

1380-- * 'pdReferenceId'

1381privateData

1382 :: PrivateData

1383privateData =

1384 PrivateData

1385− { _pdReferencePayload = Nothing

1385+ { _pdReferencePayLoad = Nothing

1386 , _pdReferenceId = Nothing

1387 }

1388

1389−pdReferencePayload :: Lens' PrivateData (Maybe Word8)

1389+pdReferencePayLoad :: Lens' PrivateData (Maybe Word8)

1390−pdReferencePayload

1390+pdReferencePayLoad

1391− = lens _pdReferencePayload

1391+ = lens _pdReferencePayLoad

1392− (\ s a -> s{_pdReferencePayload = a})

1392+ (\ s a -> s{_pdReferencePayLoad = a})

1393

1394pdReferenceId :: Lens' PrivateData (Maybe Text)

1395pdReferenceId

@@ -1407,7 +1407,7 @@ instance ToJSON PrivateData where

1407 toJSON PrivateData{..}

1408 = object

1409 (catMaybes

1410− [("referencePayload" .=) <$> _pdReferencePayload,

1410+ [("referencePayload" .=) <$> _pdReferencePayLoad,

1411 ("referenceId" .=) <$> _pdReferenceId])

1412

1413--

@@ -1498,7 +1498,7 @@ instance ToJSON RuleKeyValuePair where

1498--

1499-- /See:/ 'getOrdersResponse' smart constructor.

1500newtype GetOrdersResponse = GetOrdersResponse

1501− { _gorOrders :: Maybe [Maybe MarketplaceOrder]

1501+ { _gorOrders :: Maybe [MarketplaceOrder]

1502 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1503

1504-- | Creates a value of 'GetOrdersResponse' with the minimum fields required to make a request.

@@ -1514,7 +1514,7 @@ getOrdersResponse =

1514 }

1515

1516-- | The list of matching orders.

1517−gorOrders :: Lens' GetOrdersResponse [Maybe MarketplaceOrder]

1517+gorOrders :: Lens' GetOrdersResponse [MarketplaceOrder]

1518gorOrders

1519 = lens _gorOrders (\ s a -> s{_gorOrders = a}) .

1520 _Default

@@ -1536,7 +1536,7 @@ instance ToJSON GetOrdersResponse where

1536-- /See:/ 'accountsList' smart constructor.

1537data AccountsList = AccountsList

1538 { _alKind :: !Text

1539− , _alItems :: !(Maybe [Maybe Account])

1539+ , _alItems :: !(Maybe [Account])

1540 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1541

1542-- | Creates a value of 'AccountsList' with the minimum fields required to make a request.

@@ -1559,7 +1559,7 @@ alKind :: Lens' AccountsList Text

1559alKind = lens _alKind (\ s a -> s{_alKind = a})

1560

1561-- | A list of accounts.

1562−alItems :: Lens' AccountsList [Maybe Account]

1562+alItems :: Lens' AccountsList [Account]

1563alItems

1564 = lens _alItems (\ s a -> s{_alItems = a}) . _Default

1565 . _Coerce

@@ -1634,7 +1634,7 @@ instance ToJSON

1634--

1635-- /See:/ 'getOrderNotesResponse' smart constructor.

1636newtype GetOrderNotesResponse = GetOrderNotesResponse

1637− { _gonrNotes :: Maybe [Maybe MarketplaceNote]

1637+ { _gonrNotes :: Maybe [MarketplaceNote]

1638 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1639

1640-- | Creates a value of 'GetOrderNotesResponse' with the minimum fields required to make a request.

@@ -1650,7 +1650,7 @@ getOrderNotesResponse =

1650 }

1651

1652-- | The list of matching notes.

1653−gonrNotes :: Lens' GetOrderNotesResponse [Maybe MarketplaceNote]

1653+gonrNotes :: Lens' GetOrderNotesResponse [MarketplaceNote]

1654gonrNotes

1655 = lens _gonrNotes (\ s a -> s{_gonrNotes = a}) .

1656 _Default

@@ -1670,7 +1670,7 @@ instance ToJSON GetOrderNotesResponse where

1670-- /See:/ 'createOrdersRequest' smart constructor.

1671data CreateOrdersRequest = CreateOrdersRequest

1672 { _cWebPropertyCode :: !(Maybe Text)

1673− , _cOrders :: !(Maybe [Maybe MarketplaceOrder])

1673+ , _cOrders :: !(Maybe [MarketplaceOrder])

1674 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1675

1676-- | Creates a value of 'CreateOrdersRequest' with the minimum fields required to make a request.

@@ -1694,7 +1694,7 @@ cWebPropertyCode

1694 (\ s a -> s{_cWebPropertyCode = a})

1695

1696-- | The list of orders to create.

1697−cOrders :: Lens' CreateOrdersRequest [Maybe MarketplaceOrder]

1697+cOrders :: Lens' CreateOrdersRequest [MarketplaceOrder]

1698cOrders

1699 = lens _cOrders (\ s a -> s{_cOrders = a}) . _Default

1700 . _Coerce

@@ -1724,8 +1724,8 @@ instance ToJSON CreateOrdersRequest where

1724--

1725-- /See:/ 'pricePerBuyer' smart constructor.

1726data PricePerBuyer = PricePerBuyer

1727− { _ppbPrice :: !(Maybe (Maybe Price))

1727+ { _ppbPrice :: !(Maybe Price)

1728− , _ppbBuyer :: !(Maybe (Maybe Buyer))

1728+ , _ppbBuyer :: !(Maybe Buyer)

1729 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1730

1731-- | Creates a value of 'PricePerBuyer' with the minimum fields required to make a request.

@@ -1744,13 +1744,13 @@ pricePerBuyer =

1744 }

1745

1746-- | The specified price

1747−ppbPrice :: Lens' PricePerBuyer (Maybe (Maybe Price))

1747+ppbPrice :: Lens' PricePerBuyer (Maybe Price)

1748ppbPrice = lens _ppbPrice (\ s a -> s{_ppbPrice = a})

1749

1750-- | The buyer who will pay this price. If unset, all buyers can pay this

1751-- price (if the advertisers match, and there\'s no more specific rule

1752-- matching the buyer).

1753−ppbBuyer :: Lens' PricePerBuyer (Maybe (Maybe Buyer))

1753+ppbBuyer :: Lens' PricePerBuyer (Maybe Buyer)

1754ppbBuyer = lens _ppbBuyer (\ s a -> s{_ppbBuyer = a})

1755

1756instance FromJSON PricePerBuyer where

@@ -1851,7 +1851,7 @@ instance ToJSON TargetingValueDayPartTargetingDayPart

1851--

1852-- /See:/ 'deliveryControl' smart constructor.

1853data DeliveryControl = DeliveryControl

1854− { _dcFrequencyCaps :: !(Maybe [Maybe DeliveryControlFrequencyCap])

1854+ { _dcFrequencyCaps :: !(Maybe [DeliveryControlFrequencyCap])

1855 , _dcDeliveryRateType :: !(Maybe Text)

1856 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1857

@@ -1870,7 +1870,7 @@ deliveryControl =

1870 , _dcDeliveryRateType = Nothing

1871 }

1872

1873−dcFrequencyCaps :: Lens' DeliveryControl [Maybe DeliveryControlFrequencyCap]

1873+dcFrequencyCaps :: Lens' DeliveryControl [DeliveryControlFrequencyCap]

1874dcFrequencyCaps

1875 = lens _dcFrequencyCaps

1876 (\ s a -> s{_dcFrequencyCaps = a})

@@ -1902,7 +1902,7 @@ instance ToJSON DeliveryControl where

1902-- /See:/ 'creative' smart constructor.

1903data Creative = Creative

1904 { _cAttribute :: !(Maybe [Int32])

1905− , _cNativeAd :: !(Maybe CreativeNATiveAd)

1905+ , _cNATiveAd :: !(Maybe CreativeNATiveAd)

1906 , _cHeight :: !(Maybe Int32)

1907 , _cBuyerCreativeId :: !(Maybe Text)

1908 , _cAdvertiserName :: !(Maybe Text)

@@ -1915,15 +1915,15 @@ data Creative = Creative

1915 , _cRestrictedCategories :: !(Maybe [Int32])

1916 , _cDealsStatus :: !(Maybe Text)

1917 , _cWidth :: !(Maybe Int32)

1918− , _cClickThroughUrl :: !(Maybe [Text])

1918+ , _cClickThroughURL :: !(Maybe [Text])

1919 , _cVendorType :: !(Maybe [Int32])

1920 , _cAccountId :: !(Maybe Int32)

1921− , _cImpressionTrackingUrl :: !(Maybe [Text])

1921+ , _cImpressionTrackingURL :: !(Maybe [Text])

1922 , _cFilteringReasons :: !(Maybe CreativeFilteringReasons)

1923 , _cVersion :: !(Maybe Int32)

1924 , _cSensitiveCategories :: !(Maybe [Int32])

1925 , _cVideoURL :: !(Maybe Text)

1926− , _cApiUploadTimestamp :: !(Maybe UTCTime)

1926+ , _cAPIUploadTimestamp :: !(Maybe UTCTime)

1927 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictions])

1928 , _cOpenAuctionStatus :: !(Maybe Text)

1929 } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -1934,7 +1934,7 @@ data Creative = Creative

1934--

1935-- * 'cAttribute'

1936--

1937−-- * 'cNativeAd'

1937+-- * 'cNATiveAd'

1938--

1939-- * 'cHeight'

1940--

@@ -1960,13 +1960,13 @@ data Creative = Creative

1960--

1961-- * 'cWidth'

1962--

1963−-- * 'cClickThroughUrl'

1963+-- * 'cClickThroughURL'

1964--

1965-- * 'cVendorType'

1966--

1967-- * 'cAccountId'

1968--

1969−-- * 'cImpressionTrackingUrl'

1969+-- * 'cImpressionTrackingURL'

1970--

1971-- * 'cFilteringReasons'

1972--

@@ -1976,7 +1976,7 @@ data Creative = Creative

1976--

1977-- * 'cVideoURL'

1978--

1979−-- * 'cApiUploadTimestamp'

1979+-- * 'cAPIUploadTimestamp'

1980--

1981-- * 'cServingRestrictions'

1982--

@@ -1986,7 +1986,7 @@ creative

1986creative =

1987 Creative

1988 { _cAttribute = Nothing

1989− , _cNativeAd = Nothing

1989+ , _cNATiveAd = Nothing

1990 , _cHeight = Nothing

1991 , _cBuyerCreativeId = Nothing

1992 , _cAdvertiserName = Nothing

@@ -1999,15 +1999,15 @@ creative =

1999 , _cRestrictedCategories = Nothing

2000 , _cDealsStatus = Nothing

2001 , _cWidth = Nothing

2002− , _cClickThroughUrl = Nothing

2002+ , _cClickThroughURL = Nothing

2003 , _cVendorType = Nothing

2004 , _cAccountId = Nothing

2005− , _cImpressionTrackingUrl = Nothing

2005+ , _cImpressionTrackingURL = Nothing

2006 , _cFilteringReasons = Nothing

2007 , _cVersion = Nothing

2008 , _cSensitiveCategories = Nothing

2009 , _cVideoURL = Nothing

2010− , _cApiUploadTimestamp = Nothing

2010+ , _cAPIUploadTimestamp = Nothing

2011 , _cServingRestrictions = Nothing

2012 , _cOpenAuctionStatus = Nothing

2013 }

@@ -2020,9 +2020,9 @@ cAttribute

2020 . _Coerce

2021

2022-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.

2023−cNativeAd :: Lens' Creative (Maybe CreativeNATiveAd)

2023+cNATiveAd :: Lens' Creative (Maybe CreativeNATiveAd)

2024−cNativeAd

2024+cNATiveAd

2025− = lens _cNativeAd (\ s a -> s{_cNativeAd = a})

2025+ = lens _cNATiveAd (\ s a -> s{_cNATiveAd = a})

2026

2027-- | Ad height.

2028cHeight :: Lens' Creative (Maybe Int32)

@@ -2104,10 +2104,10 @@ cWidth :: Lens' Creative (Maybe Int32)

2104cWidth = lens _cWidth (\ s a -> s{_cWidth = a})

2105

2106-- | The set of destination urls for the snippet.

2107−cClickThroughUrl :: Lens' Creative [Text]

2107+cClickThroughURL :: Lens' Creative [Text]

2108−cClickThroughUrl

2108+cClickThroughURL

2109− = lens _cClickThroughUrl

2109+ = lens _cClickThroughURL

2110− (\ s a -> s{_cClickThroughUrl = a})

2110+ (\ s a -> s{_cClickThroughURL = a})

2111 . _Default

2112 . _Coerce

2113

@@ -2124,10 +2124,10 @@ cAccountId

2124 = lens _cAccountId (\ s a -> s{_cAccountId = a})

2125

2126-- | The set of urls to be called to record an impression.

2127−cImpressionTrackingUrl :: Lens' Creative [Text]

2127+cImpressionTrackingURL :: Lens' Creative [Text]

2128−cImpressionTrackingUrl

2128+cImpressionTrackingURL

2129− = lens _cImpressionTrackingUrl

2129+ = lens _cImpressionTrackingURL

2130− (\ s a -> s{_cImpressionTrackingUrl = a})

2130+ (\ s a -> s{_cImpressionTrackingURL = a})

2131 . _Default

2132 . _Coerce

2133

@@ -2160,10 +2160,10 @@ cVideoURL

2160-- | The last upload timestamp of this creative if it was uploaded via API.

2161-- Read-only. The value of this field is generated, and will be ignored for

2162-- uploads. (formatted RFC 3339 timestamp).

2163−cApiUploadTimestamp :: Lens' Creative (Maybe UTCTime)

2163+cAPIUploadTimestamp :: Lens' Creative (Maybe UTCTime)

2164−cApiUploadTimestamp

2164+cAPIUploadTimestamp

2165− = lens _cApiUploadTimestamp

2165+ = lens _cAPIUploadTimestamp

2166− (\ s a -> s{_cApiUploadTimestamp = a})

2166+ (\ s a -> s{_cAPIUploadTimestamp = a})

2167

2168-- | The granular status of this ad in specific contexts. A context here

2169-- relates to where something ultimately serves (for example, a physical

@@ -2221,7 +2221,7 @@ instance ToJSON Creative where

2221 = object

2222 (catMaybes

2223 [("attribute" .=) <$> _cAttribute,

2224− ("nativeAd" .=) <$> _cNativeAd,

2224+ ("nativeAd" .=) <$> _cNATiveAd,

2225 ("height" .=) <$> _cHeight,

2226 ("buyerCreativeId" .=) <$> _cBuyerCreativeId,

2227 ("advertiserName" .=) <$> _cAdvertiserName,

@@ -2235,23 +2235,23 @@ instance ToJSON Creative where

2235 _cRestrictedCategories,

2236 ("dealsStatus" .=) <$> _cDealsStatus,

2237 ("width" .=) <$> _cWidth,

2238− ("clickThroughUrl" .=) <$> _cClickThroughUrl,

2238+ ("clickThroughUrl" .=) <$> _cClickThroughURL,

2239 ("vendorType" .=) <$> _cVendorType,

2240 ("accountId" .=) <$> _cAccountId,

2241 ("impressionTrackingUrl" .=) <$>

2242− _cImpressionTrackingUrl,

2242+ _cImpressionTrackingURL,

2243 ("filteringReasons" .=) <$> _cFilteringReasons,

2244 ("version" .=) <$> _cVersion,

2245 ("sensitiveCategories" .=) <$> _cSensitiveCategories,

2246 ("videoURL" .=) <$> _cVideoURL,

2247− ("api_upload_timestamp" .=) <$> _cApiUploadTimestamp,

2247+ ("api_upload_timestamp" .=) <$> _cAPIUploadTimestamp,

2248 ("servingRestrictions" .=) <$> _cServingRestrictions,

2249 ("openAuctionStatus" .=) <$> _cOpenAuctionStatus])

2250

2251--

2252-- /See:/ 'addOrderDealsResponse' smart constructor.

2253data AddOrderDealsResponse = AddOrderDealsResponse

2254− { _aodrDeals :: !(Maybe [Maybe MarketplaceDeal])

2254+ { _aodrDeals :: !(Maybe [MarketplaceDeal])

2255 , _aodrOrderRevisionNumber :: !(Maybe Int64)

2256 } deriving (Eq,Read,Show,Data,Typeable,Generic)

2257

@@ -2271,7 +2271,7 @@ addOrderDealsResponse =

2271 }

2272

2273-- | List of deals added (in the same order as passed in the request)

2274−aodrDeals :: Lens' AddOrderDealsResponse [Maybe MarketplaceDeal]

2274+aodrDeals :: Lens' AddOrderDealsResponse [MarketplaceDeal]

2275aodrDeals

2276 = lens _aodrDeals (\ s a -> s{_aodrDeals = a}) .

2277 _Default

@@ -2303,7 +2303,7 @@ instance ToJSON AddOrderDealsResponse where

2303-- /See:/ 'pretargetingConfigList' smart constructor.

2304data PretargetingConfigList = PretargetingConfigList

2305 { _pclKind :: !Text

2306− , _pclItems :: !(Maybe [Maybe PretargetingConfig])

2306+ , _pclItems :: !(Maybe [PretargetingConfig])

2307 } deriving (Eq,Read,Show,Data,Typeable,Generic)

2308

2309-- | Creates a value of 'PretargetingConfigList' with the minimum fields required to make a request.

@@ -2326,7 +2326,7 @@ pclKind :: Lens' PretargetingConfigList Text

2326pclKind = lens _pclKind (\ s a -> s{_pclKind = a})

2327

2328-- | A list of pretargeting configs

2329−pclItems :: Lens' PretargetingConfigList [Maybe PretargetingConfig]

2329+pclItems :: Lens' PretargetingConfigList [PretargetingConfig]

2330pclItems

2331 = lens _pclItems (\ s a -> s{_pclItems = a}) .

2332 _Default

@@ -2500,7 +2500,7 @@ instance ToJSON BuyerDto where

2500--

2501-- /See:/ 'dealTermsNonGuaranteedFixedPriceTerms' smart constructor.

2502newtype DealTermsNonGuaranteedFixedPriceTerms = DealTermsNonGuaranteedFixedPriceTerms

2503− { _dtngfptFixedPrices :: Maybe [Maybe PricePerBuyer]

2503+ { _dtngfptFixedPrices :: Maybe [PricePerBuyer]

2504 } deriving (Eq,Read,Show,Data,Typeable,Generic)

2505

2506-- | Creates a value of 'DealTermsNonGuaranteedFixedPriceTerms' with the minimum fields required to make a request.

@@ -2516,7 +2516,7 @@ dealTermsNonGuaranteedFixedPriceTerms =

2516 }

2517

2518-- | Fixed price for the specified buyer.

2519−dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [Maybe PricePerBuyer]

2519+dtngfptFixedPrices :: Lens' DealTermsNonGuaranteedFixedPriceTerms [PricePerBuyer]

2520dtngfptFixedPrices

2521 = lens _dtngfptFixedPrices

2522 (\ s a -> s{_dtngfptFixedPrices = a})

@@ -2939,7 +2939,7 @@ instance ToJSON PerformanceReport where

2939data Account = Account

2940 { _aMaximumTotalQps :: !(Maybe Int32)

2941 , _aKind :: !Text

2942− , _aCookieMatchingUrl :: !(Maybe Text)

2942+ , _aCookieMatchingURL :: !(Maybe Text)

2943 , _aMaximumActiveCreatives :: !(Maybe Int32)

2944 , _aCookieMatchingNid :: !(Maybe Text)

2945 , _aNumberActiveCreatives :: !(Maybe Int32)

@@ -2955,7 +2955,7 @@ data Account = Account

2955--

2956-- * 'aKind'

2957--

2958−-- * 'aCookieMatchingUrl'

2958+-- * 'aCookieMatchingURL'

2959--

2960-- * 'aMaximumActiveCreatives'

2961--

@@ -2972,7 +2972,7 @@ account =

2972 Account

2973 { _aMaximumTotalQps = Nothing

2974 , _aKind = "adexchangebuyer#account"

2975− , _aCookieMatchingUrl = Nothing

2975+ , _aCookieMatchingURL = Nothing

2976 , _aMaximumActiveCreatives = Nothing

2977 , _aCookieMatchingNid = Nothing

2978 , _aNumberActiveCreatives = Nothing

@@ -2993,10 +2993,10 @@ aKind :: Lens' Account Text

2993aKind = lens _aKind (\ s a -> s{_aKind = a})

2994

2995-- | The base URL used in cookie match requests.

2996−aCookieMatchingUrl :: Lens' Account (Maybe Text)

2996+aCookieMatchingURL :: Lens' Account (Maybe Text)

2997−aCookieMatchingUrl

2997+aCookieMatchingURL

2998− = lens _aCookieMatchingUrl

2998+ = lens _aCookieMatchingURL

2999− (\ s a -> s{_aCookieMatchingUrl = a})

2999+ (\ s a -> s{_aCookieMatchingURL = a})

3000

3001-- | The maximum number of active creatives that an account can have, where a

3002-- creative is active if it was inserted or bid with in the last 30 days.

@@ -3053,7 +3053,7 @@ instance ToJSON Account where

3053 (catMaybes

3054 [("maximumTotalQps" .=) <$> _aMaximumTotalQps,

3055 Just ("kind" .= _aKind),

3056− ("cookieMatchingUrl" .=) <$> _aCookieMatchingUrl,

3056+ ("cookieMatchingUrl" .=) <$> _aCookieMatchingURL,

3057 ("maximumActiveCreatives" .=) <$>

3058 _aMaximumActiveCreatives,

3059 ("cookieMatchingNid" .=) <$> _aCookieMatchingNid,

@@ -3226,7 +3226,7 @@ instance ToJSON PretargetingConfigExcludedPlacements

3226-- /See:/ 'creativeNATiveAdLogo' smart constructor.

3227data CreativeNATiveAdLogo = CreativeNATiveAdLogo

3228 { _cnatalHeight :: !(Maybe Int32)

3229− , _cnatalUrl :: !(Maybe Text)

3229+ , _cnatalURL :: !(Maybe Text)

3230 , _cnatalWidth :: !(Maybe Int32)

3231 } deriving (Eq,Read,Show,Data,Typeable,Generic)

3232

@@ -3236,7 +3236,7 @@ data CreativeNATiveAdLogo = CreativeNATiveAdLogo

3236--

3237-- * 'cnatalHeight'

3238--

3239−-- * 'cnatalUrl'

3239+-- * 'cnatalURL'

3240--

3241-- * 'cnatalWidth'

3242creativeNATiveAdLogo

@@ -3244,7 +3244,7 @@ creativeNATiveAdLogo

3244creativeNATiveAdLogo =

3245 CreativeNATiveAdLogo

3246 { _cnatalHeight = Nothing

3247− , _cnatalUrl = Nothing

3247+ , _cnatalURL = Nothing

3248 , _cnatalWidth = Nothing

3249 }

3250

@@ -3252,9 +3252,9 @@ cnatalHeight :: Lens' CreativeNATiveAdLogo (Maybe Int32)

3252cnatalHeight

3253 = lens _cnatalHeight (\ s a -> s{_cnatalHeight = a})

3254

3255−cnatalUrl :: Lens' CreativeNATiveAdLogo (Maybe Text)

3255+cnatalURL :: Lens' CreativeNATiveAdLogo (Maybe Text)

3256−cnatalUrl

3256+cnatalURL

3257− = lens _cnatalUrl (\ s a -> s{_cnatalUrl = a})

3257+ = lens _cnatalURL (\ s a -> s{_cnatalURL = a})

3258

3259cnatalWidth :: Lens' CreativeNATiveAdLogo (Maybe Int32)

3260cnatalWidth

@@ -3273,13 +3273,13 @@ instance ToJSON CreativeNATiveAdLogo where

3273 = object

3274 (catMaybes

3275 [("height" .=) <$> _cnatalHeight,

3276− ("url" .=) <$> _cnatalUrl,

3276+ ("url" .=) <$> _cnatalURL,

3277 ("width" .=) <$> _cnatalWidth])

3278

3279--

3280-- /See:/ 'getOrderDealsResponse' smart constructor.

3281newtype GetOrderDealsResponse = GetOrderDealsResponse

3282− { _godrDeals :: Maybe [Maybe MarketplaceDeal]

3282+ { _godrDeals :: Maybe [MarketplaceDeal]

3283 } deriving (Eq,Read,Show,Data,Typeable,Generic)

3284

3285-- | Creates a value of 'GetOrderDealsResponse' with the minimum fields required to make a request.

@@ -3295,7 +3295,7 @@ getOrderDealsResponse =

3295 }

3296

3297-- | List of deals for the order

3298−godrDeals :: Lens' GetOrderDealsResponse [Maybe MarketplaceDeal]

3298+godrDeals :: Lens' GetOrderDealsResponse [MarketplaceDeal]

3299godrDeals

3300 = lens _godrDeals (\ s a -> s{_godrDeals = a}) .

3301 _Default

@@ -3407,8 +3407,8 @@ instance ToJSON ContactInformation where

3407--

3408-- /See:/ 'targetingValueCreativeSize' smart constructor.

3409data TargetingValueCreativeSize = TargetingValueCreativeSize

3410− { _tvcsSize :: !(Maybe (Maybe TargetingValueSize))

3410+ { _tvcsSize :: !(Maybe TargetingValueSize)

3411− , _tvcsCompanionSizes :: !(Maybe [Maybe TargetingValueSize])

3411+ , _tvcsCompanionSizes :: !(Maybe [TargetingValueSize])

3412 , _tvcsCreativeSizeType :: !(Maybe Text)

3413 } deriving (Eq,Read,Show,Data,Typeable,Generic)

3414

@@ -3431,11 +3431,11 @@ targetingValueCreativeSize =

3431 }

3432

3433-- | For regular creative size type, specifies the size of the creative.

3434−tvcsSize :: Lens' TargetingValueCreativeSize (Maybe (Maybe TargetingValueSize))

3434+tvcsSize :: Lens' TargetingValueCreativeSize (Maybe TargetingValueSize)

3435tvcsSize = lens _tvcsSize (\ s a -> s{_tvcsSize = a})

3436

3437-- | For video size type, the list of companion sizes.

3438−tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [Maybe TargetingValueSize]

3438+tvcsCompanionSizes :: Lens' TargetingValueCreativeSize [TargetingValueSize]

3439tvcsCompanionSizes

3440 = lens _tvcsCompanionSizes

3441 (\ s a -> s{_tvcsCompanionSizes = a})

@@ -3820,7 +3820,7 @@ instance ToJSON PretargetingConfig where

3820-- /See:/ 'performanceReportList' smart constructor.

3821data PerformanceReportList = PerformanceReportList

3822 { _prlKind :: !Text

3823− , _prlPerformanceReport :: !(Maybe [Maybe PerformanceReport])

3823+ , _prlPerformanceReport :: !(Maybe [PerformanceReport])

3824 } deriving (Eq,Read,Show,Data,Typeable,Generic)

3825

3826-- | Creates a value of 'PerformanceReportList' with the minimum fields required to make a request.

@@ -3843,7 +3843,7 @@ prlKind :: Lens' PerformanceReportList Text

3843prlKind = lens _prlKind (\ s a -> s{_prlKind = a})

3844

3845-- | A list of performance reports relevant for the account.

3846−prlPerformanceReport :: Lens' PerformanceReportList [Maybe PerformanceReport]

3846+prlPerformanceReport :: Lens' PerformanceReportList [PerformanceReport]

3847prlPerformanceReport

3848 = lens _prlPerformanceReport

3849 (\ s a -> s{_prlPerformanceReport = a})

@@ -3873,17 +3873,17 @@ data NegotiationDto = NegotiationDto

3873 , _ndExternalDealId :: !(Maybe Int64)

3874 , _ndStatus :: !(Maybe Text)

3875 , _ndDealType :: !(Maybe Text)

3876− , _ndNegotiationRounds :: !(Maybe [Maybe NegotiationRoundDto])

3876+ , _ndNegotiationRounds :: !(Maybe [NegotiationRoundDto])

3877 , _ndKind :: !Text

3878− , _ndBilledBuyer :: !(Maybe (Maybe DealPartyDto))

3878+ , _ndBilledBuyer :: !(Maybe DealPartyDto)

3879 , _ndBuyerEmailContacts :: !(Maybe [Text])

3880− , _ndStats :: !(Maybe (Maybe StatsDto))

3880+ , _ndStats :: !(Maybe StatsDto)

3881− , _ndSeller :: !(Maybe (Maybe DealPartyDto))

3881+ , _ndSeller :: !(Maybe DealPartyDto)

3882 , _ndLabelNames :: !(Maybe [Text])

3883 , _ndOfferId :: !(Maybe Int64)

3884 , _ndNegotiationId :: !(Maybe Int64)

3885 , _ndSellerEmailContacts :: !(Maybe [Text])

3886− , _ndBuyer :: !(Maybe (Maybe DealPartyDto))

3886+ , _ndBuyer :: !(Maybe DealPartyDto)

3887 } deriving (Eq,Read,Show,Data,Typeable,Generic)

3888

3889-- | Creates a value of 'NegotiationDto' with the minimum fields required to make a request.

@@ -3962,7 +3962,7 @@ ndDealType

3962 = lens _ndDealType (\ s a -> s{_ndDealType = a})

3963

3964-- | The series of negotiation rounds for this negotiation.

3965−ndNegotiationRounds :: Lens' NegotiationDto [Maybe NegotiationRoundDto]

3965+ndNegotiationRounds :: Lens' NegotiationDto [NegotiationRoundDto]

3966ndNegotiationRounds

3967 = lens _ndNegotiationRounds

3968 (\ s a -> s{_ndNegotiationRounds = a})

@@ -3973,7 +3973,7 @@ ndKind :: Lens' NegotiationDto Text

3973ndKind = lens _ndKind (\ s a -> s{_ndKind = a})

3974

3975-- | The billed buyer; Specified by a buyer buying through an intermediary.

3976−ndBilledBuyer :: Lens' NegotiationDto (Maybe (Maybe DealPartyDto))

3976+ndBilledBuyer :: Lens' NegotiationDto (Maybe DealPartyDto)

3977ndBilledBuyer

3978 = lens _ndBilledBuyer

3979 (\ s a -> s{_ndBilledBuyer = a})

@@ -3987,11 +3987,11 @@ ndBuyerEmailContacts

3987 . _Coerce

3988

3989-- | The stats for this negotiation.

3990−ndStats :: Lens' NegotiationDto (Maybe (Maybe StatsDto))

3990+ndStats :: Lens' NegotiationDto (Maybe StatsDto)

3991ndStats = lens _ndStats (\ s a -> s{_ndStats = a})

3992

3993-- | Details of the seller party in this negotiation.

3994−ndSeller :: Lens' NegotiationDto (Maybe (Maybe DealPartyDto))

3994+ndSeller :: Lens' NegotiationDto (Maybe DealPartyDto)

3995ndSeller = lens _ndSeller (\ s a -> s{_ndSeller = a})

3996

3997-- | A list of label names applicable to this negotiation.

@@ -4021,7 +4021,7 @@ ndSellerEmailContacts

4021 . _Coerce

4022

4023-- | Details of the buyer party in this negotiation.

4024−ndBuyer :: Lens' NegotiationDto (Maybe (Maybe DealPartyDto))

4024+ndBuyer :: Lens' NegotiationDto (Maybe DealPartyDto)

4025ndBuyer = lens _ndBuyer (\ s a -> s{_ndBuyer = a})

4026

4027instance FromJSON NegotiationDto where

@@ -4131,18 +4131,18 @@ instance ToJSON AudienceSegment where

4131--

4132-- /See:/ 'offerDto' smart constructor.

4133data OfferDto = OfferDto

4134− { _odCreator :: !(Maybe (Maybe DealPartyDto))

4134+ { _odCreator :: !(Maybe DealPartyDto)

4135 , _odStatus :: !(Maybe Text)

4136 , _odOfferState :: !(Maybe Text)

4137 , _odPointOfContact :: !(Maybe Text)

4138− , _odTerms :: !(Maybe (Maybe TermsDto))

4138+ , _odTerms :: !(Maybe TermsDto)

4139 , _odKind :: !Text

4140− , _odBilledBuyer :: !(Maybe (Maybe DealPartyDto))

4140+ , _odBilledBuyer :: !(Maybe DealPartyDto)

4141− , _odOpenToDealParties :: !(Maybe [Maybe DealPartyDto])

4141+ , _odOpenToDealParties :: !(Maybe [DealPartyDto])

4142 , _odEmailContacts :: !(Maybe [Text])

4143 , _odLabelNames :: !(Maybe [Text])

4144 , _odOfferId :: !(Maybe Int64)

4145− , _odClosedToDealParties :: !(Maybe [Maybe DealPartyDto])

4145+ , _odClosedToDealParties :: !(Maybe [DealPartyDto])

4146 , _odAnonymous :: !(Maybe Bool)

4147 , _odIsOpen :: !(Maybe Bool)

4148 } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -4199,7 +4199,7 @@ offerDto =

4199 }

4200

4201-- | The creator of this offer.

4202−odCreator :: Lens' OfferDto (Maybe (Maybe DealPartyDto))

4202+odCreator :: Lens' OfferDto (Maybe DealPartyDto)

4203odCreator

4204 = lens _odCreator (\ s a -> s{_odCreator = a})

4205

@@ -4219,7 +4219,7 @@ odPointOfContact

4219 (\ s a -> s{_odPointOfContact = a})

4220

4221-- | The terms of this offer.

4222−odTerms :: Lens' OfferDto (Maybe (Maybe TermsDto))

4222+odTerms :: Lens' OfferDto (Maybe TermsDto)

4223odTerms = lens _odTerms (\ s a -> s{_odTerms = a})

4224

4225odKind :: Lens' OfferDto Text

@@ -4227,13 +4227,13 @@ odKind = lens _odKind (\ s a -> s{_odKind = a})

4227

4228-- | The billed buyer; For buyer initiated offers, buying through an

4229-- intermediary.

4230−odBilledBuyer :: Lens' OfferDto (Maybe (Maybe DealPartyDto))

4230+odBilledBuyer :: Lens' OfferDto (Maybe DealPartyDto)

4231odBilledBuyer

4232 = lens _odBilledBuyer

4233 (\ s a -> s{_odBilledBuyer = a})

4234

4235-- | The list of buyer or seller parties this offer is open to.

4236−odOpenToDealParties :: Lens' OfferDto [Maybe DealPartyDto]

4236+odOpenToDealParties :: Lens' OfferDto [DealPartyDto]

4237odOpenToDealParties

4238 = lens _odOpenToDealParties

4239 (\ s a -> s{_odOpenToDealParties = a})

@@ -4261,7 +4261,7 @@ odOfferId

4261 = lens _odOfferId (\ s a -> s{_odOfferId = a})

4262

4263-- | The list of buyer or seller parties this offer is closed to.

4264−odClosedToDealParties :: Lens' OfferDto [Maybe DealPartyDto]

4264+odClosedToDealParties :: Lens' OfferDto [DealPartyDto]

4265odClosedToDealParties

4266 = lens _odClosedToDealParties

4267 (\ s a -> s{_odClosedToDealParties = a})

@@ -4373,20 +4373,20 @@ data MarketplaceOffer = MarketplaceOffer

4373 { _moState :: !(Maybe Text)

4374 , _moWebPropertyCode :: !(Maybe Text)

4375 , _moCreationTimeMs :: !(Maybe Int64)

4376− , _moTerms :: !(Maybe (Maybe DealTerms))

4376+ , _moTerms :: !(Maybe DealTerms)

4377 , _moLastUpdateTimeMs :: !(Maybe Int64)

4378 , _moKind :: !Text

4379 , _moRevisionNumber :: !(Maybe Int64)

4380 , _moHasCreatorSignedOff :: !(Maybe Bool)

4381 , _moFlightStartTimeMs :: !(Maybe Int64)

4382− , _moSharedTargetings :: !(Maybe [Maybe SharedTargeting])

4382+ , _moSharedTargetings :: !(Maybe [SharedTargeting])

4383− , _moSeller :: !(Maybe (Maybe Seller))

4383+ , _moSeller :: !(Maybe Seller)

4384 , _moSyndicationProduct :: !(Maybe Text)

4385 , _moFlightEndTimeMs :: !(Maybe Int64)

4386 , _moName :: !(Maybe Text)

4387− , _moCreatorContacts :: !(Maybe [Maybe ContactInformation])

4387+ , _moCreatorContacts :: !(Maybe [ContactInformation])

4388 , _moOfferId :: !(Maybe Text)

4389− , _moLabels :: !(Maybe [Maybe MarketplaceLabel])

4389+ , _moLabels :: !(Maybe [MarketplaceLabel])

4390 } deriving (Eq,Read,Show,Data,Typeable,Generic)

4391

4392-- | Creates a value of 'MarketplaceOffer' with the minimum fields required to make a request.

@@ -4465,7 +4465,7 @@ moCreationTimeMs

4465 (\ s a -> s{_moCreationTimeMs = a})

4466

4467-- | The negotiable terms of the deal (buyer-readonly)

4468−moTerms :: Lens' MarketplaceOffer (Maybe (Maybe DealTerms))

4468+moTerms :: Lens' MarketplaceOffer (Maybe DealTerms)

4469moTerms = lens _moTerms (\ s a -> s{_moTerms = a})

4470

4471-- | Time of last update in ms. since epoch (readonly)

@@ -4504,7 +4504,7 @@ moFlightStartTimeMs

4504-- | Targeting that is shared between the buyer and the seller. Each

4505-- targeting criteria has a specified key and for each key there is a list

4506-- of inclusion value or exclusion values. (buyer-readonly)

4507−moSharedTargetings :: Lens' MarketplaceOffer [Maybe SharedTargeting]

4507+moSharedTargetings :: Lens' MarketplaceOffer [SharedTargeting]

4508moSharedTargetings

4509 = lens _moSharedTargetings

4510 (\ s a -> s{_moSharedTargetings = a})

@@ -4513,7 +4513,7 @@ moSharedTargetings

4513

4514-- | Information about the seller that created this offer (readonly, except

4515-- on create)

4516−moSeller :: Lens' MarketplaceOffer (Maybe (Maybe Seller))

4516+moSeller :: Lens' MarketplaceOffer (Maybe Seller)

4517moSeller = lens _moSeller (\ s a -> s{_moSeller = a})

4518

4519-- | The syndication product associated with the deal. (readonly, except on

@@ -4535,7 +4535,7 @@ moName = lens _moName (\ s a -> s{_moName = a})

4535

4536-- | Optional contact information for the creator of this offer.

4537-- (buyer-readonly)

4538−moCreatorContacts :: Lens' MarketplaceOffer [Maybe ContactInformation]

4538+moCreatorContacts :: Lens' MarketplaceOffer [ContactInformation]

4539moCreatorContacts

4540 = lens _moCreatorContacts

4541 (\ s a -> s{_moCreatorContacts = a})

@@ -4548,7 +4548,7 @@ moOfferId

4548 = lens _moOfferId (\ s a -> s{_moOfferId = a})

4549

4550-- | Optional List of labels for the offer (optional, buyer-readonly).

4551−moLabels :: Lens' MarketplaceOffer [Maybe MarketplaceLabel]

4551+moLabels :: Lens' MarketplaceOffer [MarketplaceLabel]

4552moLabels

4553 = lens _moLabels (\ s a -> s{_moLabels = a}) .

4554 _Default

@@ -4665,7 +4665,7 @@ instance ToJSON GetNegotiationsRequest where

4665-- /See:/ 'billingInfoList' smart constructor.

4666data BillingInfoList = BillingInfoList

4667 { _bilKind :: !Text

4668− , _bilItems :: !(Maybe [Maybe BillingInfo])

4668+ , _bilItems :: !(Maybe [BillingInfo])

4669 } deriving (Eq,Read,Show,Data,Typeable,Generic)

4670

4671-- | Creates a value of 'BillingInfoList' with the minimum fields required to make a request.

@@ -4688,7 +4688,7 @@ bilKind :: Lens' BillingInfoList Text

4688bilKind = lens _bilKind (\ s a -> s{_bilKind = a})

4689

4690-- | A list of billing info relevant for your account.

4691−bilItems :: Lens' BillingInfoList [Maybe BillingInfo]

4691+bilItems :: Lens' BillingInfoList [BillingInfo]

4692bilItems

4693 = lens _bilItems (\ s a -> s{_bilItems = a}) .

4694 _Default

@@ -4712,7 +4712,7 @@ instance ToJSON BillingInfoList where

4712--

4713-- /See:/ 'addOrderNotesResponse' smart constructor.

4714newtype AddOrderNotesResponse = AddOrderNotesResponse

4715− { _aNotes :: Maybe [Maybe MarketplaceNote]

4715+ { _aNotes :: Maybe [MarketplaceNote]

4716 } deriving (Eq,Read,Show,Data,Typeable,Generic)

4717

4718-- | Creates a value of 'AddOrderNotesResponse' with the minimum fields required to make a request.

@@ -4727,7 +4727,7 @@ addOrderNotesResponse =

4727 { _aNotes = Nothing

4728 }

4729

4730−aNotes :: Lens' AddOrderNotesResponse [Maybe MarketplaceNote]

4730+aNotes :: Lens' AddOrderNotesResponse [MarketplaceNote]

4731aNotes

4732 = lens _aNotes (\ s a -> s{_aNotes = a}) . _Default .

4733 _Coerce

@@ -4789,7 +4789,7 @@ instance ToJSON MoneyDto where

4789--

4790-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.

4791newtype ListClientAccessCapabilitiesResponse = ListClientAccessCapabilitiesResponse

4792− { _lcacrClientAccessPermissions :: Maybe [Maybe ClientAccessCapabilities]

4792+ { _lcacrClientAccessPermissions :: Maybe [ClientAccessCapabilities]

4793 } deriving (Eq,Read,Show,Data,Typeable,Generic)

4794

4795-- | Creates a value of 'ListClientAccessCapabilitiesResponse' with the minimum fields required to make a request.

@@ -4804,7 +4804,7 @@ listClientAccessCapabilitiesResponse =

4804 { _lcacrClientAccessPermissions = Nothing

4805 }

4806

4807−lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [Maybe ClientAccessCapabilities]

4807+lcacrClientAccessPermissions :: Lens' ListClientAccessCapabilitiesResponse [ClientAccessCapabilities]

4808lcacrClientAccessPermissions

4809 = lens _lcacrClientAccessPermissions

4810 (\ s a -> s{_lcacrClientAccessPermissions = a})

@@ -4868,7 +4868,7 @@ instance ToJSON GetNegotiationByIdRequest where

4868-- /See:/ 'listOffersResponse' smart constructor.

4869data ListOffersResponse = ListOffersResponse

4870 { _lorKind :: !Text

4871− , _lorOffers :: !(Maybe [Maybe OfferDto])

4871+ , _lorOffers :: !(Maybe [OfferDto])

4872 } deriving (Eq,Read,Show,Data,Typeable,Generic)

4873

4874-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.

@@ -4889,7 +4889,7 @@ listOffersResponse =

4889lorKind :: Lens' ListOffersResponse Text

4890lorKind = lens _lorKind (\ s a -> s{_lorKind = a})

4891

4892−lorOffers :: Lens' ListOffersResponse [Maybe OfferDto]

4892+lorOffers :: Lens' ListOffersResponse [OfferDto]

4893lorOffers

4894 = lens _lorOffers (\ s a -> s{_lorOffers = a}) .

4895 _Default

@@ -4914,7 +4914,7 @@ instance ToJSON ListOffersResponse where

4914-- /See:/ 'advertiserDto' smart constructor.

4915data AdvertiserDto = AdvertiserDto

4916 { _adStatus :: !(Maybe Text)

4917− , _adBrands :: !(Maybe [Maybe BrandDto])

4917+ , _adBrands :: !(Maybe [BrandDto])

4918 , _adName :: !(Maybe Text)

4919 , _adId :: !(Maybe Int64)

4920 } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -4943,7 +4943,7 @@ advertiserDto =

4943adStatus :: Lens' AdvertiserDto (Maybe Text)

4944adStatus = lens _adStatus (\ s a -> s{_adStatus = a})

4945

4946−adBrands :: Lens' AdvertiserDto [Maybe BrandDto]

4946+adBrands :: Lens' AdvertiserDto [BrandDto]

4947adBrands

4948 = lens _adBrands (\ s a -> s{_adBrands = a}) .

4949 _Default

@@ -4975,10 +4975,10 @@ instance ToJSON AdvertiserDto where

4975--

4976-- /See:/ 'targetingValue' smart constructor.

4977data TargetingValue = TargetingValue

4978− { _tvCreativeSizeValue :: !(Maybe (Maybe TargetingValueCreativeSize))

4978+ { _tvCreativeSizeValue :: !(Maybe TargetingValueCreativeSize)

4979 , _tvStringValue :: !(Maybe Text)

4980 , _tvLongValue :: !(Maybe Int64)

4981− , _tvDayPartTargetingValue :: !(Maybe (Maybe TargetingValueDayPartTargeting))

4981+ , _tvDayPartTargetingValue :: !(Maybe TargetingValueDayPartTargeting)

4982 } deriving (Eq,Read,Show,Data,Typeable,Generic)

4983

4984-- | Creates a value of 'TargetingValue' with the minimum fields required to make a request.

@@ -5003,7 +5003,7 @@ targetingValue =

5003 }

5004

5005-- | The creative size value to exclude\/include.

5006−tvCreativeSizeValue :: Lens' TargetingValue (Maybe (Maybe TargetingValueCreativeSize))

5006+tvCreativeSizeValue :: Lens' TargetingValue (Maybe TargetingValueCreativeSize)

5007tvCreativeSizeValue

5008 = lens _tvCreativeSizeValue

5009 (\ s a -> s{_tvCreativeSizeValue = a})

@@ -5021,7 +5021,7 @@ tvLongValue

5021

5022-- | The daypart targeting to include \/ exclude. Filled in when the key is

5023-- GOOG_DAYPART_TARGETING.

5024−tvDayPartTargetingValue :: Lens' TargetingValue (Maybe (Maybe TargetingValueDayPartTargeting))

5024+tvDayPartTargetingValue :: Lens' TargetingValue (Maybe TargetingValueDayPartTargeting)

5025tvDayPartTargetingValue

5026 = lens _tvDayPartTargetingValue

5027 (\ s a -> s{_tvDayPartTargetingValue = a})

@@ -5098,7 +5098,7 @@ instance ToJSON Price where

5098-- /See:/ 'creativeNATiveAdAppIcon' smart constructor.

5099data CreativeNATiveAdAppIcon = CreativeNATiveAdAppIcon

5100 { _cnataaiHeight :: !(Maybe Int32)

5101− , _cnataaiUrl :: !(Maybe Text)

5101+ , _cnataaiURL :: !(Maybe Text)

5102 , _cnataaiWidth :: !(Maybe Int32)

5103 } deriving (Eq,Read,Show,Data,Typeable,Generic)

5104

@@ -5108,7 +5108,7 @@ data CreativeNATiveAdAppIcon = CreativeNATiveAdAppIcon

5108--

5109-- * 'cnataaiHeight'

5110--

5111−-- * 'cnataaiUrl'

5111+-- * 'cnataaiURL'

5112--

5113-- * 'cnataaiWidth'

5114creativeNATiveAdAppIcon

@@ -5116,7 +5116,7 @@ creativeNATiveAdAppIcon

5116creativeNATiveAdAppIcon =

5117 CreativeNATiveAdAppIcon

5118 { _cnataaiHeight = Nothing

5119− , _cnataaiUrl = Nothing

5119+ , _cnataaiURL = Nothing

5120 , _cnataaiWidth = Nothing

5121 }

5122

@@ -5125,9 +5125,9 @@ cnataaiHeight

5125 = lens _cnataaiHeight

5126 (\ s a -> s{_cnataaiHeight = a})

5127

5128−cnataaiUrl :: Lens' CreativeNATiveAdAppIcon (Maybe Text)

5128+cnataaiURL :: Lens' CreativeNATiveAdAppIcon (Maybe Text)

5129−cnataaiUrl

5129+cnataaiURL

5130− = lens _cnataaiUrl (\ s a -> s{_cnataaiUrl = a})

5130+ = lens _cnataaiURL (\ s a -> s{_cnataaiURL = a})

5131

5132cnataaiWidth :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)

5133cnataaiWidth

@@ -5146,15 +5146,15 @@ instance ToJSON CreativeNATiveAdAppIcon where

5146 = object

5147 (catMaybes

5148 [("height" .=) <$> _cnataaiHeight,

5149− ("url" .=) <$> _cnataaiUrl,

5149+ ("url" .=) <$> _cnataaiURL,

5150 ("width" .=) <$> _cnataaiWidth])

5151

5152--

5153-- /See:/ 'editAllOrderDealsRequest' smart constructor.

5154data EditAllOrderDealsRequest = EditAllOrderDealsRequest

5155 { _eUpdateAction :: !(Maybe Text)

5156− , _eDeals :: !(Maybe [Maybe MarketplaceDeal])

5156+ , _eDeals :: !(Maybe [MarketplaceDeal])

5157− , _eOrder :: !(Maybe (Maybe MarketplaceOrder))

5157+ , _eOrder :: !(Maybe MarketplaceOrder)

5158 , _eOrderRevisionNumber :: !(Maybe Int64)

5159 } deriving (Eq,Read,Show,Data,Typeable,Generic)

5160

@@ -5196,7 +5196,7 @@ eUpdateAction

5196-- order (just need the id) If a existing deal in the order is not present

5197-- in this list, the service will delete that deal from the order.

5198-- Validation will follow DeleteOrderDealsRequest.

5199−eDeals :: Lens' EditAllOrderDealsRequest [Maybe MarketplaceDeal]

5199+eDeals :: Lens' EditAllOrderDealsRequest [MarketplaceDeal]

5200eDeals

5201 = lens _eDeals (\ s a -> s{_eDeals = a}) . _Default .

5202 _Coerce

@@ -5204,7 +5204,7 @@ eDeals

5204-- | If specified, also updates the order in the batch transaction. This is

5205-- useful when the order and the deals need to be updated in one

5206-- transaction.

5207−eOrder :: Lens' EditAllOrderDealsRequest (Maybe (Maybe MarketplaceOrder))

5207+eOrder :: Lens' EditAllOrderDealsRequest (Maybe MarketplaceOrder)

5208eOrder = lens _eOrder (\ s a -> s{_eOrder = a})

5209

5210-- | The last known revision number for the order.

@@ -5313,7 +5313,7 @@ data WebPropertyDto = WebPropertyDto

5313 , _wpdName :: !(Maybe Text)

5314 , _wpdPropertyCode :: !(Maybe Text)

5315 , _wpdId :: !(Maybe Int32)

5316− , _wpdSiteUrls :: !(Maybe [Text])

5316+ , _wpdSiteURLs :: !(Maybe [Text])

5317 , _wpdAllowInterestTargetedAds :: !(Maybe Bool)

5318 } deriving (Eq,Read,Show,Data,Typeable,Generic)

5319

@@ -5331,7 +5331,7 @@ data WebPropertyDto = WebPropertyDto

5331--

5332-- * 'wpdId'

5333--

5334−-- * 'wpdSiteUrls'

5334+-- * 'wpdSiteURLs'

5335--

5336-- * 'wpdAllowInterestTargetedAds'

5337webPropertyDto

@@ -5343,7 +5343,7 @@ webPropertyDto =

5343 , _wpdName = Nothing

5344 , _wpdPropertyCode = Nothing

5345 , _wpdId = Nothing

5346− , _wpdSiteUrls = Nothing

5346+ , _wpdSiteURLs = Nothing

5347 , _wpdAllowInterestTargetedAds = Nothing

5348 }

5349

@@ -5368,9 +5368,9 @@ wpdPropertyCode

5368wpdId :: Lens' WebPropertyDto (Maybe Int32)

5369wpdId = lens _wpdId (\ s a -> s{_wpdId = a})

5370

5371−wpdSiteUrls :: Lens' WebPropertyDto [Text]

5371+wpdSiteURLs :: Lens' WebPropertyDto [Text]

5372−wpdSiteUrls

5372+wpdSiteURLs

5373− = lens _wpdSiteUrls (\ s a -> s{_wpdSiteUrls = a}) .

5373+ = lens _wpdSiteURLs (\ s a -> s{_wpdSiteURLs = a}) .

5374 _Default

5375 . _Coerce

5376

@@ -5402,7 +5402,7 @@ instance ToJSON WebPropertyDto where

5402 ("name" .=) <$> _wpdName,

5403 ("propertyCode" .=) <$> _wpdPropertyCode,

5404 ("id" .=) <$> _wpdId,

5405− ("siteUrls" .=) <$> _wpdSiteUrls,

5405+ ("siteUrls" .=) <$> _wpdSiteURLs,

5406 ("allowInterestTargetedAds" .=) <$>

5407 _wpdAllowInterestTargetedAds])

5408

@@ -5410,7 +5410,7 @@ instance ToJSON WebPropertyDto where

5410-- /See:/ 'targetingValueDayPartTargeting' smart constructor.

5411data TargetingValueDayPartTargeting = TargetingValueDayPartTargeting

5412 { _tvdptTimeZoneType :: !(Maybe Text)

5413− , _tvdptDayParts :: !(Maybe [Maybe TargetingValueDayPartTargetingDayPart])

5413+ , _tvdptDayParts :: !(Maybe [TargetingValueDayPartTargetingDayPart])

5414 } deriving (Eq,Read,Show,Data,Typeable,Generic)

5415

5416-- | Creates a value of 'TargetingValueDayPartTargeting' with the minimum fields required to make a request.

@@ -5433,7 +5433,7 @@ tvdptTimeZoneType

5433 = lens _tvdptTimeZoneType

5434 (\ s a -> s{_tvdptTimeZoneType = a})

5435

5436−tvdptDayParts :: Lens' TargetingValueDayPartTargeting [Maybe TargetingValueDayPartTargetingDayPart]

5436+tvdptDayParts :: Lens' TargetingValueDayPartTargeting [TargetingValueDayPartTargetingDayPart]

5437tvdptDayParts

5438 = lens _tvdptDayParts

5439 (\ s a -> s{_tvdptDayParts = a})

@@ -5497,7 +5497,7 @@ instance ToJSON ListOffersRequest where

5497-- /See:/ 'creativeNATiveAdImage' smart constructor.

5498data CreativeNATiveAdImage = CreativeNATiveAdImage

5499 { _cnataiHeight :: !(Maybe Int32)

5500− , _cnataiUrl :: !(Maybe Text)

5500+ , _cnataiURL :: !(Maybe Text)

5501 , _cnataiWidth :: !(Maybe Int32)

5502 } deriving (Eq,Read,Show,Data,Typeable,Generic)

5503

@@ -5507,7 +5507,7 @@ data CreativeNATiveAdImage = CreativeNATiveAdImage

5507--

5508-- * 'cnataiHeight'

5509--

5510−-- * 'cnataiUrl'

5510+-- * 'cnataiURL'

5511--

5512-- * 'cnataiWidth'

5513creativeNATiveAdImage

@@ -5515,7 +5515,7 @@ creativeNATiveAdImage

5515creativeNATiveAdImage =

5516 CreativeNATiveAdImage

5517 { _cnataiHeight = Nothing

5518− , _cnataiUrl = Nothing

5518+ , _cnataiURL = Nothing

5519 , _cnataiWidth = Nothing

5520 }

5521

@@ -5523,9 +5523,9 @@ cnataiHeight :: Lens' CreativeNATiveAdImage (Maybe Int32)

5523cnataiHeight

5524 = lens _cnataiHeight (\ s a -> s{_cnataiHeight = a})

5525

5526−cnataiUrl :: Lens' CreativeNATiveAdImage (Maybe Text)

5526+cnataiURL :: Lens' CreativeNATiveAdImage (Maybe Text)

5527−cnataiUrl

5527+cnataiURL

5528− = lens _cnataiUrl (\ s a -> s{_cnataiUrl = a})

5528+ = lens _cnataiURL (\ s a -> s{_cnataiURL = a})

5529

5530cnataiWidth :: Lens' CreativeNATiveAdImage (Maybe Int32)

5531cnataiWidth

@@ -5544,7 +5544,7 @@ instance ToJSON CreativeNATiveAdImage where

5544 = object

5545 (catMaybes

5546 [("height" .=) <$> _cnataiHeight,

5547− ("url" .=) <$> _cnataiUrl,

5547+ ("url" .=) <$> _cnataiURL,

5548 ("width" .=) <$> _cnataiWidth])

5549

5550--

@@ -5590,7 +5590,7 @@ instance ToJSON ListClientAccessCapabilitiesRequest

5590data InventorySegmentTargeting = InventorySegmentTargeting

5591 { _istNegativeVideoDurationSegments :: !(Maybe [Int64])

5592 , _istNegativeIcmBrands :: !(Maybe [Int64])

5593− , _istNegativeKeyValues :: !(Maybe [Maybe RuleKeyValuePair])

5593+ , _istNegativeKeyValues :: !(Maybe [RuleKeyValuePair])

5594 , _istPositiveAudienceSegments :: !(Maybe [Int64])

5595 , _istPositiveXfpPlacements :: !(Maybe [Int64])

5596 , _istNegativeXfpAdSlots :: !(Maybe [Int64])

@@ -5598,15 +5598,15 @@ data InventorySegmentTargeting = InventorySegmentTargeting

5598 , _istPositiveSizes :: !(Maybe [Int64])

5599 , _istPositiveDeviceCategories :: !(Maybe [Int64])

5600 , _istPositiveLocations :: !(Maybe [Int64])

5601− , _istNegativeAdSizes :: !(Maybe [Maybe AdSize])

5601+ , _istNegativeAdSizes :: !(Maybe [AdSize])

5602 , _istPositiveOperatingSystems :: !(Maybe [Int64])

5603− , _istPositiveSiteUrls :: !(Maybe [Text])

5603+ , _istPositiveSiteURLs :: !(Maybe [Text])

5604 , _istNegativeInventorySlots :: !(Maybe [Text])

5605 , _istNegativeVideoAdPositionSegments :: !(Maybe [Text])

5606 , _istPositiveAdTypeSegments :: !(Maybe [Text])

5607 , _istPositiveIcmInterests :: !(Maybe [Int64])

5608 , _istPositiveMobileApps :: !(Maybe [Text])

5609− , _istPositiveKeyValues :: !(Maybe [Maybe RuleKeyValuePair])

5609+ , _istPositiveKeyValues :: !(Maybe [RuleKeyValuePair])

5610 , _istPositiveIcmBrands :: !(Maybe [Int64])

5611 , _istPositiveVideoDurationSegments :: !(Maybe [Int64])

5612 , _istNegativeAudienceSegments :: !(Maybe [Int64])

@@ -5617,8 +5617,8 @@ data InventorySegmentTargeting = InventorySegmentTargeting

5617 , _istNegativeLocations :: !(Maybe [Int64])

5618 , _istNegativeDeviceCategories :: !(Maybe [Int64])

5619 , _istNegativeOperatingSystems :: !(Maybe [Int64])

5620− , _istPositiveAdSizes :: !(Maybe [Maybe AdSize])

5620+ , _istPositiveAdSizes :: !(Maybe [AdSize])

5621− , _istNegativeSiteUrls :: !(Maybe [Text])

5621+ , _istNegativeSiteURLs :: !(Maybe [Text])

5622 , _istNegativeAdTypeSegments :: !(Maybe [Text])

5623 , _istPositiveVideoAdPositionSegments :: !(Maybe [Text])

5624 , _istPositiveInventorySlots :: !(Maybe [Text])

@@ -5654,7 +5654,7 @@ data InventorySegmentTargeting = InventorySegmentTargeting

5654--

5655-- * 'istPositiveOperatingSystems'

5656--

5657−-- * 'istPositiveSiteUrls'

5657+-- * 'istPositiveSiteURLs'

5658--

5659-- * 'istNegativeInventorySlots'

5660--

@@ -5690,7 +5690,7 @@ data InventorySegmentTargeting = InventorySegmentTargeting

5690--

5691-- * 'istPositiveAdSizes'

5692--

5693−-- * 'istNegativeSiteUrls'

5693+-- * 'istNegativeSiteURLs'

5694--

5695-- * 'istNegativeAdTypeSegments'

5696--

@@ -5717,7 +5717,7 @@ inventorySegmentTargeting =

5717 , _istPositiveLocations = Nothing

5718 , _istNegativeAdSizes = Nothing

5719 , _istPositiveOperatingSystems = Nothing

5720− , _istPositiveSiteUrls = Nothing

5720+ , _istPositiveSiteURLs = Nothing

5721 , _istNegativeInventorySlots = Nothing

5722 , _istNegativeVideoAdPositionSegments = Nothing

5723 , _istPositiveAdTypeSegments = Nothing

@@ -5735,7 +5735,7 @@ inventorySegmentTargeting =

5735 , _istNegativeDeviceCategories = Nothing

5736 , _istNegativeOperatingSystems = Nothing

5737 , _istPositiveAdSizes = Nothing

5738− , _istNegativeSiteUrls = Nothing

5738+ , _istNegativeSiteURLs = Nothing

5739 , _istNegativeAdTypeSegments = Nothing

5740 , _istPositiveVideoAdPositionSegments = Nothing

5741 , _istPositiveInventorySlots = Nothing

@@ -5757,7 +5757,7 @@ istNegativeIcmBrands

5757 . _Default

5758 . _Coerce

5759

5760−istNegativeKeyValues :: Lens' InventorySegmentTargeting [Maybe RuleKeyValuePair]

5760+istNegativeKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair]

5761istNegativeKeyValues

5762 = lens _istNegativeKeyValues

5763 (\ s a -> s{_istNegativeKeyValues = a})

@@ -5813,7 +5813,7 @@ istPositiveLocations

5813 . _Default

5814 . _Coerce

5815

5816−istNegativeAdSizes :: Lens' InventorySegmentTargeting [Maybe AdSize]

5816+istNegativeAdSizes :: Lens' InventorySegmentTargeting [AdSize]

5817istNegativeAdSizes

5818 = lens _istNegativeAdSizes

5819 (\ s a -> s{_istNegativeAdSizes = a})

@@ -5827,10 +5827,10 @@ istPositiveOperatingSystems

5827 . _Default

5828 . _Coerce

5829

5830−istPositiveSiteUrls :: Lens' InventorySegmentTargeting [Text]

5830+istPositiveSiteURLs :: Lens' InventorySegmentTargeting [Text]

5831−istPositiveSiteUrls

5831+istPositiveSiteURLs

5832− = lens _istPositiveSiteUrls

5832+ = lens _istPositiveSiteURLs

5833− (\ s a -> s{_istPositiveSiteUrls = a})

5833+ (\ s a -> s{_istPositiveSiteURLs = a})

5834 . _Default

5835 . _Coerce

5836

@@ -5869,7 +5869,7 @@ istPositiveMobileApps

5869 . _Default

5870 . _Coerce

5871

5872−istPositiveKeyValues :: Lens' InventorySegmentTargeting [Maybe RuleKeyValuePair]

5872+istPositiveKeyValues :: Lens' InventorySegmentTargeting [RuleKeyValuePair]

5873istPositiveKeyValues

5874 = lens _istPositiveKeyValues

5875 (\ s a -> s{_istPositiveKeyValues = a})

@@ -5946,17 +5946,17 @@ istNegativeOperatingSystems

5946 . _Default

5947 . _Coerce

5948

5949−istPositiveAdSizes :: Lens' InventorySegmentTargeting [Maybe AdSize]

5949+istPositiveAdSizes :: Lens' InventorySegmentTargeting [AdSize]

5950istPositiveAdSizes

5951 = lens _istPositiveAdSizes

5952 (\ s a -> s{_istPositiveAdSizes = a})

5953 . _Default

5954 . _Coerce

5955

5956−istNegativeSiteUrls :: Lens' InventorySegmentTargeting [Text]

5956+istNegativeSiteURLs :: Lens' InventorySegmentTargeting [Text]

5957−istNegativeSiteUrls

5957+istNegativeSiteURLs

5958− = lens _istNegativeSiteUrls

5958+ = lens _istNegativeSiteURLs

5959− (\ s a -> s{_istNegativeSiteUrls = a})

5959+ (\ s a -> s{_istNegativeSiteURLs = a})

5960 . _Default

5961 . _Coerce

5962

@@ -6064,7 +6064,7 @@ instance ToJSON InventorySegmentTargeting where

6064 ("negativeAdSizes" .=) <$> _istNegativeAdSizes,

6065 ("positiveOperatingSystems" .=) <$>

6066 _istPositiveOperatingSystems,

6067− ("positiveSiteUrls" .=) <$> _istPositiveSiteUrls,

6067+ ("positiveSiteUrls" .=) <$> _istPositiveSiteURLs,

6068 ("negativeInventorySlots" .=) <$>

6069 _istNegativeInventorySlots,

6070 ("negativeVideoAdPositionSegments" .=) <$>

@@ -6092,7 +6092,7 @@ instance ToJSON InventorySegmentTargeting where

6092 ("negativeOperatingSystems" .=) <$>

6093 _istNegativeOperatingSystems,

6094 ("positiveAdSizes" .=) <$> _istPositiveAdSizes,

6095− ("negativeSiteUrls" .=) <$> _istNegativeSiteUrls,

6095+ ("negativeSiteUrls" .=) <$> _istNegativeSiteURLs,

6096 ("negativeAdTypeSegments" .=) <$>

6097 _istNegativeAdTypeSegments,

6098 ("positiveVideoAdPositionSegments" .=) <$>

@@ -6107,8 +6107,8 @@ instance ToJSON InventorySegmentTargeting where

6107-- /See:/ 'sharedTargeting' smart constructor.

6108data SharedTargeting = SharedTargeting

6109 { _stKey :: !(Maybe Text)

6110− , _stExclusions :: !(Maybe [Maybe TargetingValue])

6110+ , _stExclusions :: !(Maybe [TargetingValue])

6111− , _stInclusions :: !(Maybe [Maybe TargetingValue])

6111+ , _stInclusions :: !(Maybe [TargetingValue])

6112 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6113

6114-- | Creates a value of 'SharedTargeting' with the minimum fields required to make a request.

@@ -6134,14 +6134,14 @@ stKey :: Lens' SharedTargeting (Maybe Text)

6134stKey = lens _stKey (\ s a -> s{_stKey = a})

6135

6136-- | The list of values to exclude from targeting.

6137−stExclusions :: Lens' SharedTargeting [Maybe TargetingValue]

6137+stExclusions :: Lens' SharedTargeting [TargetingValue]

6138stExclusions

6139 = lens _stExclusions (\ s a -> s{_stExclusions = a})

6140 . _Default

6141 . _Coerce

6142

6143-- | The list of value to include as part of the targeting.

6144−stInclusions :: Lens' SharedTargeting [Maybe TargetingValue]

6144+stInclusions :: Lens' SharedTargeting [TargetingValue]

6145stInclusions

6146 = lens _stInclusions (\ s a -> s{_stInclusions = a})

6147 . _Default

@@ -6166,7 +6166,7 @@ instance ToJSON SharedTargeting where

6166--

6167-- /See:/ 'accountBidderLocation' smart constructor.

6168data AccountBidderLocation = AccountBidderLocation

6169− { _ablUrl :: !(Maybe Text)

6169+ { _ablURL :: !(Maybe Text)

6170 , _ablMaximumQps :: !(Maybe Int32)

6171 , _ablRegion :: !(Maybe Text)

6172 } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -6175,7 +6175,7 @@ data AccountBidderLocation = AccountBidderLocation

6175--

6176-- Use one of the following lenses to modify other fields as desired:

6177--

6178−-- * 'ablUrl'

6178+-- * 'ablURL'

6179--

6180-- * 'ablMaximumQps'

6181--

@@ -6184,14 +6184,14 @@ accountBidderLocation

6184 :: AccountBidderLocation

6185accountBidderLocation =

6186 AccountBidderLocation

6187− { _ablUrl = Nothing

6187+ { _ablURL = Nothing

6188 , _ablMaximumQps = Nothing

6189 , _ablRegion = Nothing

6190 }

6191

6192-- | The URL to which the Ad Exchange will send bid requests.

6193−ablUrl :: Lens' AccountBidderLocation (Maybe Text)

6193+ablURL :: Lens' AccountBidderLocation (Maybe Text)

6194−ablUrl = lens _ablUrl (\ s a -> s{_ablUrl = a})

6194+ablURL = lens _ablURL (\ s a -> s{_ablURL = a})

6195

6196-- | The maximum queries per second the Ad Exchange will send.

6197ablMaximumQps :: Lens' AccountBidderLocation (Maybe Int32)

@@ -6218,7 +6218,7 @@ instance ToJSON AccountBidderLocation where

6218 toJSON AccountBidderLocation{..}

6219 = object

6220 (catMaybes

6221− [("url" .=) <$> _ablUrl,

6221+ [("url" .=) <$> _ablURL,

6222 ("maximumQps" .=) <$> _ablMaximumQps,

6223 ("region" .=) <$> _ablRegion])

6224

@@ -6326,7 +6326,7 @@ instance ToJSON ClientAccessCapabilities where

6326--

6327-- /See:/ 'deleteOrderDealsResponse' smart constructor.

6328data DeleteOrderDealsResponse = DeleteOrderDealsResponse

6329− { _dDeals :: !(Maybe [Maybe MarketplaceDeal])

6329+ { _dDeals :: !(Maybe [MarketplaceDeal])

6330 , _dOrderRevisionNumber :: !(Maybe Int64)

6331 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6332

@@ -6346,7 +6346,7 @@ deleteOrderDealsResponse =

6346 }

6347

6348-- | List of deals deleted (in the same order as passed in the request)

6349−dDeals :: Lens' DeleteOrderDealsResponse [Maybe MarketplaceDeal]

6349+dDeals :: Lens' DeleteOrderDealsResponse [MarketplaceDeal]

6350dDeals

6351 = lens _dDeals (\ s a -> s{_dDeals = a}) . _Default .

6352 _Coerce

@@ -6378,209 +6378,208 @@ instance ToJSON DeleteOrderDealsResponse where

6378--

6379-- /See:/ 'marketplaceDeal' smart constructor.

6380data MarketplaceDeal = MarketplaceDeal

6381− { _mddExternalDealId :: !(Maybe Text)

6381+ { _mdExternalDealId :: !(Maybe Text)

6382− , _mddBuyerPrivateData :: !(Maybe (Maybe PrivateData))

6382+ , _mdBuyerPrivateData :: !(Maybe PrivateData)

6383− , _mddWebPropertyCode :: !(Maybe Text)

6383+ , _mdWebPropertyCode :: !(Maybe Text)

6384− , _mddCreationTimeMs :: !(Maybe Int64)

6384+ , _mdCreationTimeMs :: !(Maybe Int64)

6385− , _mddTerms :: !(Maybe (Maybe DealTerms))

6385+ , _mdTerms :: !(Maybe DealTerms)

6386− , _mddOfferRevisionNumber :: !(Maybe Int64)

6386+ , _mdOfferRevisionNumber :: !(Maybe Int64)

6387− , _mddLastUpdateTimeMs :: !(Maybe Int64)

6387+ , _mdLastUpdateTimeMs :: !(Maybe Int64)

6388− , _mddKind :: !Text

6388+ , _mdKind :: !Text

6389− , _mddDeliveryControl :: !(Maybe (Maybe DeliveryControl))

6389+ , _mdDeliveryControl :: !(Maybe DeliveryControl)

6390− , _mddFlightStartTimeMs :: !(Maybe Int64)

6390+ , _mdFlightStartTimeMs :: !(Maybe Int64)

6391− , _mddSharedTargetings :: !(Maybe [Maybe SharedTargeting])

6391+ , _mdSharedTargetings :: !(Maybe [SharedTargeting])

6392− , _mddDealId :: !(Maybe Text)

6392+ , _mdDealId :: !(Maybe Text)

6393− , _mddInventoryDescription :: !(Maybe Text)

6393+ , _mdInventoryDescription :: !(Maybe Text)

6394− , _mddSyndicationProduct :: !(Maybe Text)

6394+ , _mdSyndicationProduct :: !(Maybe Text)

6395− , _mddFlightEndTimeMs :: !(Maybe Int64)

6395+ , _mdFlightEndTimeMs :: !(Maybe Int64)

6396− , _mddName :: !(Maybe Text)

6396+ , _mdName :: !(Maybe Text)

6397− , _mddSellerContacts :: !(Maybe [Maybe ContactInformation])

6397+ , _mdSellerContacts :: !(Maybe [ContactInformation])

6398− , _mddOfferId :: !(Maybe Text)

6398+ , _mdOfferId :: !(Maybe Text)

6399− , _mddOrderId :: !(Maybe Text)

6399+ , _mdOrderId :: !(Maybe Text)

6400 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6401

6402-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.

6403--

6404-- Use one of the following lenses to modify other fields as desired:

6405--

6406−-- * 'mddExternalDealId'

6406+-- * 'mdExternalDealId'

6407--

6408−-- * 'mddBuyerPrivateData'

6408+-- * 'mdBuyerPrivateData'

6409--

6410−-- * 'mddWebPropertyCode'

6410+-- * 'mdWebPropertyCode'

6411--

6412−-- * 'mddCreationTimeMs'

6412+-- * 'mdCreationTimeMs'

6413--

6414−-- * 'mddTerms'

6414+-- * 'mdTerms'

6415--

6416−-- * 'mddOfferRevisionNumber'

6416+-- * 'mdOfferRevisionNumber'

6417--

6418−-- * 'mddLastUpdateTimeMs'

6418+-- * 'mdLastUpdateTimeMs'

6419--

6420−-- * 'mddKind'

6420+-- * 'mdKind'

6421--

6422−-- * 'mddDeliveryControl'

6422+-- * 'mdDeliveryControl'

6423--

6424−-- * 'mddFlightStartTimeMs'

6424+-- * 'mdFlightStartTimeMs'

6425--

6426−-- * 'mddSharedTargetings'

6426+-- * 'mdSharedTargetings'

6427--

6428−-- * 'mddDealId'

6428+-- * 'mdDealId'

6429--

6430−-- * 'mddInventoryDescription'

6430+-- * 'mdInventoryDescription'

6431--

6432−-- * 'mddSyndicationProduct'

6432+-- * 'mdSyndicationProduct'

6433--

6434−-- * 'mddFlightEndTimeMs'

6434+-- * 'mdFlightEndTimeMs'

6435--

6436−-- * 'mddName'

6436+-- * 'mdName'

6437--

6438−-- * 'mddSellerContacts'

6438+-- * 'mdSellerContacts'

6439--

6440−-- * 'mddOfferId'

6440+-- * 'mdOfferId'

6441--

6442−-- * 'mddOrderId'

6442+-- * 'mdOrderId'

6443marketplaceDeal

6444 :: MarketplaceDeal

6445marketplaceDeal =

6446 MarketplaceDeal

6447− { _mddExternalDealId = Nothing

6447+ { _mdExternalDealId = Nothing

6448− , _mddBuyerPrivateData = Nothing

6448+ , _mdBuyerPrivateData = Nothing

6449− , _mddWebPropertyCode = Nothing

6449+ , _mdWebPropertyCode = Nothing

6450− , _mddCreationTimeMs = Nothing

6450+ , _mdCreationTimeMs = Nothing

6451− , _mddTerms = Nothing

6451+ , _mdTerms = Nothing

6452− , _mddOfferRevisionNumber = Nothing

6452+ , _mdOfferRevisionNumber = Nothing

6453− , _mddLastUpdateTimeMs = Nothing

6453+ , _mdLastUpdateTimeMs = Nothing

6454− , _mddKind = "adexchangebuyer#marketplaceDeal"

6454+ , _mdKind = "adexchangebuyer#marketplaceDeal"

6455− , _mddDeliveryControl = Nothing

6455+ , _mdDeliveryControl = Nothing

6456− , _mddFlightStartTimeMs = Nothing

6456+ , _mdFlightStartTimeMs = Nothing

6457− , _mddSharedTargetings = Nothing

6457+ , _mdSharedTargetings = Nothing

6458− , _mddDealId = Nothing

6458+ , _mdDealId = Nothing

6459− , _mddInventoryDescription = Nothing

6459+ , _mdInventoryDescription = Nothing

6460− , _mddSyndicationProduct = Nothing

6460+ , _mdSyndicationProduct = Nothing

6461− , _mddFlightEndTimeMs = Nothing

6461+ , _mdFlightEndTimeMs = Nothing

6462− , _mddName = Nothing

6462+ , _mdName = Nothing

6463− , _mddSellerContacts = Nothing

6463+ , _mdSellerContacts = Nothing

6464− , _mddOfferId = Nothing

6464+ , _mdOfferId = Nothing

6465− , _mddOrderId = Nothing

6465+ , _mdOrderId = Nothing

6466 }

6467

6468-- | The external deal id assigned to this deal once the deal is finalized.

6469-- This is the deal-id that shows up in serving\/reporting etc. (readonly)

6470−mddExternalDealId :: Lens' MarketplaceDeal (Maybe Text)

6470+mdExternalDealId :: Lens' MarketplaceDeal (Maybe Text)

6471−mddExternalDealId

6471+mdExternalDealId

6472− = lens _mddExternalDealId

6472+ = lens _mdExternalDealId

6473− (\ s a -> s{_mddExternalDealId = a})

6473+ (\ s a -> s{_mdExternalDealId = a})

6474

6475-- | Buyer private data (hidden from seller).

6476−mddBuyerPrivateData :: Lens' MarketplaceDeal (Maybe (Maybe PrivateData))

6476+mdBuyerPrivateData :: Lens' MarketplaceDeal (Maybe PrivateData)

6477−mddBuyerPrivateData

6477+mdBuyerPrivateData

6478− = lens _mddBuyerPrivateData

6478+ = lens _mdBuyerPrivateData

6479− (\ s a -> s{_mddBuyerPrivateData = a})

6479+ (\ s a -> s{_mdBuyerPrivateData = a})

6480

6481−mddWebPropertyCode :: Lens' MarketplaceDeal (Maybe Text)

6481+mdWebPropertyCode :: Lens' MarketplaceDeal (Maybe Text)

6482−mddWebPropertyCode

6482+mdWebPropertyCode

6483− = lens _mddWebPropertyCode

6483+ = lens _mdWebPropertyCode

6484− (\ s a -> s{_mddWebPropertyCode = a})

6484+ (\ s a -> s{_mdWebPropertyCode = a})

6485

6486-- | The time (ms since epoch) of the deal creation. (readonly)

6487−mddCreationTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6487+mdCreationTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6488−mddCreationTimeMs

6488+mdCreationTimeMs

6489− = lens _mddCreationTimeMs

6489+ = lens _mdCreationTimeMs

6490− (\ s a -> s{_mddCreationTimeMs = a})

6490+ (\ s a -> s{_mdCreationTimeMs = a})

6491

6492-- | The negotiable terms of the deal. (updatable)

6493−mddTerms :: Lens' MarketplaceDeal (Maybe (Maybe DealTerms))

6493+mdTerms :: Lens' MarketplaceDeal (Maybe DealTerms)

6494−mddTerms = lens _mddTerms (\ s a -> s{_mddTerms = a})

6494+mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a})

6495

6496-- | The revision number of the offer that the deal was created from

6497-- (readonly, except on create)

6498−mddOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)

6498+mdOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)

6499−mddOfferRevisionNumber

6499+mdOfferRevisionNumber

6500− = lens _mddOfferRevisionNumber

6500+ = lens _mdOfferRevisionNumber

6501− (\ s a -> s{_mddOfferRevisionNumber = a})

6501+ (\ s a -> s{_mdOfferRevisionNumber = a})

6502

6503-- | The time (ms since epoch) when the deal was last updated. (readonly)

6504−mddLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6504+mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6505−mddLastUpdateTimeMs

6505+mdLastUpdateTimeMs

6506− = lens _mddLastUpdateTimeMs

6506+ = lens _mdLastUpdateTimeMs

6507− (\ s a -> s{_mddLastUpdateTimeMs = a})

6507+ (\ s a -> s{_mdLastUpdateTimeMs = a})

6508

6509-- | Identifies what kind of resource this is. Value: the fixed string

6510-- \"adexchangebuyer#marketplaceDeal\".

6511−mddKind :: Lens' MarketplaceDeal Text

6511+mdKind :: Lens' MarketplaceDeal Text

6512−mddKind = lens _mddKind (\ s a -> s{_mddKind = a})

6512+mdKind = lens _mdKind (\ s a -> s{_mdKind = a})

6513

6514-- | The set of fields around delivery control that are interesting for a

6515-- buyer to see but are non-negotiable. These are set by the publisher.

6516-- This message is assigned an id of 100 since some day we would want to

6517-- model this as a protobuf extension.

6518−mddDeliveryControl :: Lens' MarketplaceDeal (Maybe (Maybe DeliveryControl))

6518+mdDeliveryControl :: Lens' MarketplaceDeal (Maybe DeliveryControl)

6519−mddDeliveryControl

6519+mdDeliveryControl

6520− = lens _mddDeliveryControl

6520+ = lens _mdDeliveryControl

6521− (\ s a -> s{_mddDeliveryControl = a})

6521+ (\ s a -> s{_mdDeliveryControl = a})

6522

6523-- | Proposed flight start time of the deal (ms since epoch) This will

6524-- generally be stored in a granularity of a second. (updatable)

6525−mddFlightStartTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6525+mdFlightStartTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6526−mddFlightStartTimeMs

6526+mdFlightStartTimeMs

6527− = lens _mddFlightStartTimeMs

6527+ = lens _mdFlightStartTimeMs

6528− (\ s a -> s{_mddFlightStartTimeMs = a})

6528+ (\ s a -> s{_mdFlightStartTimeMs = a})

6529

6530-- | The shared targeting visible to buyers and sellers. (updatable)

6531−mddSharedTargetings :: Lens' MarketplaceDeal [Maybe SharedTargeting]

6531+mdSharedTargetings :: Lens' MarketplaceDeal [SharedTargeting]

6532−mddSharedTargetings

6532+mdSharedTargetings

6533− = lens _mddSharedTargetings

6533+ = lens _mdSharedTargetings

6534− (\ s a -> s{_mddSharedTargetings = a})

6534+ (\ s a -> s{_mdSharedTargetings = a})

6535 . _Default

6536 . _Coerce

6537

6538-- | A unique deal=id for the deal (readonly).

6539−mddDealId :: Lens' MarketplaceDeal (Maybe Text)

6539+mdDealId :: Lens' MarketplaceDeal (Maybe Text)

6540−mddDealId

6540+mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})

6541− = lens _mddDealId (\ s a -> s{_mddDealId = a})

6542

6541

6543-- | Description for the deal terms. (updatable)

6542-- | Description for the deal terms. (updatable)

6544−mddInventoryDescription :: Lens' MarketplaceDeal (Maybe Text)

6543+mdInventoryDescription :: Lens' MarketplaceDeal (Maybe Text)

6545−mddInventoryDescription

6544+mdInventoryDescription

6546− = lens _mddInventoryDescription

6545+ = lens _mdInventoryDescription

6547− (\ s a -> s{_mddInventoryDescription = a})

6546+ (\ s a -> s{_mdInventoryDescription = a})

6548

6547

6549-- | The syndication product associated with the deal. (readonly, except on

6548-- | The syndication product associated with the deal. (readonly, except on

6550-- create)

6549-- create)

6551−mddSyndicationProduct :: Lens' MarketplaceDeal (Maybe Text)

6550+mdSyndicationProduct :: Lens' MarketplaceDeal (Maybe Text)

6552−mddSyndicationProduct

6551+mdSyndicationProduct

6553− = lens _mddSyndicationProduct

6552+ = lens _mdSyndicationProduct

6554− (\ s a -> s{_mddSyndicationProduct = a})

6553+ (\ s a -> s{_mdSyndicationProduct = a})

6555

6554

6556-- | Proposed flight end time of the deal (ms since epoch) This will

6555-- | Proposed flight end time of the deal (ms since epoch) This will

6557-- generally be stored in a granularity of a second. (updatable)

6556-- generally be stored in a granularity of a second. (updatable)

6558−mddFlightEndTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6557+mdFlightEndTimeMs :: Lens' MarketplaceDeal (Maybe Int64)

6559−mddFlightEndTimeMs

6558+mdFlightEndTimeMs

6560− = lens _mddFlightEndTimeMs

6559+ = lens _mdFlightEndTimeMs

6561− (\ s a -> s{_mddFlightEndTimeMs = a})

6560+ (\ s a -> s{_mdFlightEndTimeMs = a})

6562

6561

6563-- | The name of the deal. (updatable)

6562-- | The name of the deal. (updatable)

6564−mddName :: Lens' MarketplaceDeal (Maybe Text)

6563+mdName :: Lens' MarketplaceDeal (Maybe Text)

6565−mddName = lens _mddName (\ s a -> s{_mddName = a})

6564+mdName = lens _mdName (\ s a -> s{_mdName = a})

6566

6565

6567-- | Optional Seller contact information for the deal (buyer-readonly)

6566-- | Optional Seller contact information for the deal (buyer-readonly)

6568−mddSellerContacts :: Lens' MarketplaceDeal [Maybe ContactInformation]

6567+mdSellerContacts :: Lens' MarketplaceDeal [ContactInformation]

6569−mddSellerContacts

6568+mdSellerContacts

6570− = lens _mddSellerContacts

6569+ = lens _mdSellerContacts

6571− (\ s a -> s{_mddSellerContacts = a})

6570+ (\ s a -> s{_mdSellerContacts = a})

6572 . _Default

6571 . _Default

6573 . _Coerce

6572 . _Coerce

6574

6573

6575-- | The offer-id from which this deal was created. (readonly, except on

6574-- | The offer-id from which this deal was created. (readonly, except on

6576-- create)

6575-- create)

6577−mddOfferId :: Lens' MarketplaceDeal (Maybe Text)

6576+mdOfferId :: Lens' MarketplaceDeal (Maybe Text)

6578−mddOfferId

6577+mdOfferId

6579− = lens _mddOfferId (\ s a -> s{_mddOfferId = a})

6578+ = lens _mdOfferId (\ s a -> s{_mdOfferId = a})

6580

6579

6581−mddOrderId :: Lens' MarketplaceDeal (Maybe Text)

6580+mdOrderId :: Lens' MarketplaceDeal (Maybe Text)

6582−mddOrderId

6581+mdOrderId

6583− = lens _mddOrderId (\ s a -> s{_mddOrderId = a})

6582+ = lens _mdOrderId (\ s a -> s{_mdOrderId = a})

6584

6583

6585instance FromJSON MarketplaceDeal where

6584instance FromJSON MarketplaceDeal where

6586 parseJSON

6585 parseJSON

@@ -6612,27 +6611,27 @@ instance ToJSON MarketplaceDeal where

6612 toJSON MarketplaceDeal{..}

6611 toJSON MarketplaceDeal{..}

6613 = object

6612 = object

6614 (catMaybes

6613 (catMaybes

6615− [("externalDealId" .=) <$> _mddExternalDealId,

6614+ [("externalDealId" .=) <$> _mdExternalDealId,

6616− ("buyerPrivateData" .=) <$> _mddBuyerPrivateData,

6615+ ("buyerPrivateData" .=) <$> _mdBuyerPrivateData,

6617− ("webPropertyCode" .=) <$> _mddWebPropertyCode,

6616+ ("webPropertyCode" .=) <$> _mdWebPropertyCode,

6618− ("creationTimeMs" .=) <$> _mddCreationTimeMs,

6617+ ("creationTimeMs" .=) <$> _mdCreationTimeMs,

6619− ("terms" .=) <$> _mddTerms,

6618+ ("terms" .=) <$> _mdTerms,

6620 ("offerRevisionNumber" .=) <$>

6619 ("offerRevisionNumber" .=) <$>

6621− _mddOfferRevisionNumber,

6620+ _mdOfferRevisionNumber,

6622− ("lastUpdateTimeMs" .=) <$> _mddLastUpdateTimeMs,

6621+ ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,

6623− Just ("kind" .= _mddKind),

6622+ Just ("kind" .= _mdKind),

6624− ("deliveryControl" .=) <$> _mddDeliveryControl,

6623+ ("deliveryControl" .=) <$> _mdDeliveryControl,

6625− ("flightStartTimeMs" .=) <$> _mddFlightStartTimeMs,

6624+ ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,

6626− ("sharedTargetings" .=) <$> _mddSharedTargetings,

6625+ ("sharedTargetings" .=) <$> _mdSharedTargetings,

6627− ("dealId" .=) <$> _mddDealId,

6626+ ("dealId" .=) <$> _mdDealId,

6628 ("inventoryDescription" .=) <$>

6627 ("inventoryDescription" .=) <$>

6629− _mddInventoryDescription,

6628+ _mdInventoryDescription,

6630− ("syndicationProduct" .=) <$> _mddSyndicationProduct,

6629+ ("syndicationProduct" .=) <$> _mdSyndicationProduct,

6631− ("flightEndTimeMs" .=) <$> _mddFlightEndTimeMs,

6630+ ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,

6632− ("name" .=) <$> _mddName,

6631+ ("name" .=) <$> _mdName,

6633− ("sellerContacts" .=) <$> _mddSellerContacts,

6632+ ("sellerContacts" .=) <$> _mdSellerContacts,

6634− ("offerId" .=) <$> _mddOfferId,

6633+ ("offerId" .=) <$> _mdOfferId,

6635− ("orderId" .=) <$> _mddOrderId])

6634+ ("orderId" .=) <$> _mdOrderId])

6636

6635

6637--

6636--

6638-- /See:/ 'pretargetingConfigPlacements' smart constructor.

6637-- /See:/ 'pretargetingConfigPlacements' smart constructor.

@@ -6683,14 +6682,14 @@ instance ToJSON PretargetingConfigPlacements where

6683--

6682--

6684-- /See:/ 'negotiationRoundDto' smart constructor.

6683-- /See:/ 'negotiationRoundDto' smart constructor.

6685data NegotiationRoundDto = NegotiationRoundDto

6684data NegotiationRoundDto = NegotiationRoundDto

6686− { _nrdTerms :: !(Maybe (Maybe TermsDto))

6685+ { _nrdTerms :: !(Maybe TermsDto)

6687 , _nrdKind :: !Text

6686 , _nrdKind :: !Text

6688 , _nrdOriginatorRole :: !(Maybe Text)

6687 , _nrdOriginatorRole :: !(Maybe Text)

6689 , _nrdAction :: !(Maybe Text)

6688 , _nrdAction :: !(Maybe Text)

6690− , _nrdDbmPartnerId :: !(Maybe Int64)

6689+ , _nrdDBmPartnerId :: !(Maybe Int64)

6691 , _nrdNotes :: !(Maybe Text)

6690 , _nrdNotes :: !(Maybe Text)

6692 , _nrdNegotiationId :: !(Maybe Int64)

6691 , _nrdNegotiationId :: !(Maybe Int64)

6693− , _nrdEditHistory :: !(Maybe (Maybe EditHistoryDto))

6692+ , _nrdEditHistory :: !(Maybe EditHistoryDto)

6694 , _nrdRoundNumber :: !(Maybe Int64)

6693 , _nrdRoundNumber :: !(Maybe Int64)

6695 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6694 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6696

6695

@@ -6706,7 +6705,7 @@ data NegotiationRoundDto = NegotiationRoundDto

6706--

6705--

6707-- * 'nrdAction'

6706-- * 'nrdAction'

6708--

6707--

6709−-- * 'nrdDbmPartnerId'

6708+-- * 'nrdDBmPartnerId'

6710--

6709--

6711-- * 'nrdNotes'

6710-- * 'nrdNotes'

6712--

6711--

@@ -6723,7 +6722,7 @@ negotiationRoundDto =

6723 , _nrdKind = "adexchangebuyer#negotiationRound"

6722 , _nrdKind = "adexchangebuyer#negotiationRound"

6724 , _nrdOriginatorRole = Nothing

6723 , _nrdOriginatorRole = Nothing

6725 , _nrdAction = Nothing

6724 , _nrdAction = Nothing

6726− , _nrdDbmPartnerId = Nothing

6725+ , _nrdDBmPartnerId = Nothing

6727 , _nrdNotes = Nothing

6726 , _nrdNotes = Nothing

6728 , _nrdNegotiationId = Nothing

6727 , _nrdNegotiationId = Nothing

6729 , _nrdEditHistory = Nothing

6728 , _nrdEditHistory = Nothing

@@ -6731,7 +6730,7 @@ negotiationRoundDto =

6731 }

6730 }

6732

6731

6733-- | The detailed terms proposed in this negotiation round.

6732-- | The detailed terms proposed in this negotiation round.

6734−nrdTerms :: Lens' NegotiationRoundDto (Maybe (Maybe TermsDto))

6733+nrdTerms :: Lens' NegotiationRoundDto (Maybe TermsDto)

6735nrdTerms = lens _nrdTerms (\ s a -> s{_nrdTerms = a})

6734nrdTerms = lens _nrdTerms (\ s a -> s{_nrdTerms = a})

6736

6735

6737nrdKind :: Lens' NegotiationRoundDto Text

6736nrdKind :: Lens' NegotiationRoundDto Text

@@ -6749,10 +6748,10 @@ nrdAction

6749 = lens _nrdAction (\ s a -> s{_nrdAction = a})

6748 = lens _nrdAction (\ s a -> s{_nrdAction = a})

6750

6749

6751-- | Stores DBM partner ID for use by DBM

6750-- | Stores DBM partner ID for use by DBM

6752−nrdDbmPartnerId :: Lens' NegotiationRoundDto (Maybe Int64)

6751+nrdDBmPartnerId :: Lens' NegotiationRoundDto (Maybe Int64)

6753−nrdDbmPartnerId

6752+nrdDBmPartnerId

6754− = lens _nrdDbmPartnerId

6753+ = lens _nrdDBmPartnerId

6755− (\ s a -> s{_nrdDbmPartnerId = a})

6754+ (\ s a -> s{_nrdDBmPartnerId = a})

6756

6755

6757-- | Notes regarding this negotiation round.

6756-- | Notes regarding this negotiation round.

6758nrdNotes :: Lens' NegotiationRoundDto (Maybe Text)

6757nrdNotes :: Lens' NegotiationRoundDto (Maybe Text)

@@ -6765,7 +6764,7 @@ nrdNegotiationId

6765 (\ s a -> s{_nrdNegotiationId = a})

6764 (\ s a -> s{_nrdNegotiationId = a})

6766

6765

6767-- | The edit history of this negotiation round.

6766-- | The edit history of this negotiation round.

6768−nrdEditHistory :: Lens' NegotiationRoundDto (Maybe (Maybe EditHistoryDto))

6767+nrdEditHistory :: Lens' NegotiationRoundDto (Maybe EditHistoryDto)

6769nrdEditHistory

6768nrdEditHistory

6770 = lens _nrdEditHistory

6769 = lens _nrdEditHistory

6771 (\ s a -> s{_nrdEditHistory = a})

6770 (\ s a -> s{_nrdEditHistory = a})

@@ -6799,7 +6798,7 @@ instance ToJSON NegotiationRoundDto where

6799 Just ("kind" .= _nrdKind),

6798 Just ("kind" .= _nrdKind),

6800 ("originatorRole" .=) <$> _nrdOriginatorRole,

6799 ("originatorRole" .=) <$> _nrdOriginatorRole,

6801 ("action" .=) <$> _nrdAction,

6800 ("action" .=) <$> _nrdAction,

6802− ("dbmPartnerId" .=) <$> _nrdDbmPartnerId,

6801+ ("dbmPartnerId" .=) <$> _nrdDBmPartnerId,

6803 ("notes" .=) <$> _nrdNotes,

6802 ("notes" .=) <$> _nrdNotes,

6804 ("negotiationId" .=) <$> _nrdNegotiationId,

6803 ("negotiationId" .=) <$> _nrdNegotiationId,

6805 ("editHistory" .=) <$> _nrdEditHistory,

6804 ("editHistory" .=) <$> _nrdEditHistory,

@@ -6809,10 +6808,10 @@ instance ToJSON NegotiationRoundDto where

6809-- /See:/ 'statsDto' smart constructor.

6808-- /See:/ 'statsDto' smart constructor.

6810data StatsDto = StatsDto

6809data StatsDto = StatsDto

6811 { _sdBids :: !(Maybe Int64)

6810 { _sdBids :: !(Maybe Int64)

6812− , _sdSpend :: !(Maybe (Maybe MoneyDto))

6811+ , _sdSpend :: !(Maybe MoneyDto)

6813 , _sdImpressions :: !(Maybe Int64)

6812 , _sdImpressions :: !(Maybe Int64)

6814 , _sdGoodBids :: !(Maybe Int64)

6813 , _sdGoodBids :: !(Maybe Int64)

6815− , _sdRevenue :: !(Maybe (Maybe MoneyDto))

6814+ , _sdRevenue :: !(Maybe MoneyDto)

6816 , _sdRequests :: !(Maybe Int64)

6815 , _sdRequests :: !(Maybe Int64)

6817 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6816 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6818

6817

@@ -6846,7 +6845,7 @@ statsDto =

6846sdBids :: Lens' StatsDto (Maybe Int64)

6845sdBids :: Lens' StatsDto (Maybe Int64)

6847sdBids = lens _sdBids (\ s a -> s{_sdBids = a})

6846sdBids = lens _sdBids (\ s a -> s{_sdBids = a})

6848

6847

6849−sdSpend :: Lens' StatsDto (Maybe (Maybe MoneyDto))

6848+sdSpend :: Lens' StatsDto (Maybe MoneyDto)

6850sdSpend = lens _sdSpend (\ s a -> s{_sdSpend = a})

6849sdSpend = lens _sdSpend (\ s a -> s{_sdSpend = a})

6851

6850

6852sdImpressions :: Lens' StatsDto (Maybe Int64)

6851sdImpressions :: Lens' StatsDto (Maybe Int64)

@@ -6858,7 +6857,7 @@ sdGoodBids :: Lens' StatsDto (Maybe Int64)

6858sdGoodBids

6857sdGoodBids

6859 = lens _sdGoodBids (\ s a -> s{_sdGoodBids = a})

6858 = lens _sdGoodBids (\ s a -> s{_sdGoodBids = a})

6860

6859

6861−sdRevenue :: Lens' StatsDto (Maybe (Maybe MoneyDto))

6860+sdRevenue :: Lens' StatsDto (Maybe MoneyDto)

6862sdRevenue

6861sdRevenue

6863 = lens _sdRevenue (\ s a -> s{_sdRevenue = a})

6862 = lens _sdRevenue (\ s a -> s{_sdRevenue = a})

6864

6863

@@ -6890,7 +6889,7 @@ instance ToJSON StatsDto where

6890--

6889--

6891-- /See:/ 'getOffersResponse' smart constructor.

6890-- /See:/ 'getOffersResponse' smart constructor.

6892newtype GetOffersResponse = GetOffersResponse

6891newtype GetOffersResponse = GetOffersResponse

6893− { _gorOffers :: Maybe [Maybe MarketplaceOffer]

6892+ { _gorOffers :: Maybe [MarketplaceOffer]

6894 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6893 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6895

6894

6896-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.

6895-- | Creates a value of 'GetOffersResponse' with the minimum fields required to make a request.

@@ -6906,7 +6905,7 @@ getOffersResponse =

6906 }

6905 }

6907

6906

6908-- | The returned list of offers.

6907-- | The returned list of offers.

6909−gorOffers :: Lens' GetOffersResponse [Maybe MarketplaceOffer]

6908+gorOffers :: Lens' GetOffersResponse [MarketplaceOffer]

6910gorOffers

6909gorOffers

6911 = lens _gorOffers (\ s a -> s{_gorOffers = a}) .

6910 = lens _gorOffers (\ s a -> s{_gorOffers = a}) .

6912 _Default

6911 _Default

@@ -6925,7 +6924,7 @@ instance ToJSON GetOffersResponse where

6925--

6924--

6926-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.

6925-- /See:/ 'dealTermsNonGuaranteedAuctionTerms' smart constructor.

6927data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms

6926data DealTermsNonGuaranteedAuctionTerms = DealTermsNonGuaranteedAuctionTerms

6928− { _dtngatReservePricePerBuyers :: !(Maybe [Maybe PricePerBuyer])

6927+ { _dtngatReservePricePerBuyers :: !(Maybe [PricePerBuyer])

6929 , _dtngatPrivateAuctionId :: !(Maybe Text)

6928 , _dtngatPrivateAuctionId :: !(Maybe Text)

6930 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6929 } deriving (Eq,Read,Show,Data,Typeable,Generic)

6931

6930

@@ -6945,7 +6944,7 @@ dealTermsNonGuaranteedAuctionTerms =

6945 }

6944 }

6946

6945

6947-- | Reserve price for the specified buyer.

6946-- | Reserve price for the specified buyer.

6948−dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [Maybe PricePerBuyer]

6947+dtngatReservePricePerBuyers :: Lens' DealTermsNonGuaranteedAuctionTerms [PricePerBuyer]

6949dtngatReservePricePerBuyers

6948dtngatReservePricePerBuyers

6950 = lens _dtngatReservePricePerBuyers

6949 = lens _dtngatReservePricePerBuyers

6951 (\ s a -> s{_dtngatReservePricePerBuyers = a})

6950 (\ s a -> s{_dtngatReservePricePerBuyers = a})

@@ -7080,7 +7079,7 @@ instance ToJSON Buyer where

7080--

7079--

7081-- /See:/ 'marketplaceLabel' smart constructor.

7080-- /See:/ 'marketplaceLabel' smart constructor.

7082data MarketplaceLabel = MarketplaceLabel

7081data MarketplaceLabel = MarketplaceLabel

7083− { _mlDeprecatedMarketplaceDealParty :: !(Maybe (Maybe MarketplaceDealParty))

7082+ { _mlDeprecatedMarketplaceDealParty :: !(Maybe MarketplaceDealParty)

7084 , _mlAccountId :: !(Maybe Text)

7083 , _mlAccountId :: !(Maybe Text)

7085 , _mlCreateTimeMs :: !(Maybe Int64)

7084 , _mlCreateTimeMs :: !(Maybe Int64)

7086 , _mlLabel :: !(Maybe Text)

7085 , _mlLabel :: !(Maybe Text)

@@ -7108,7 +7107,7 @@ marketplaceLabel =

7108 }

7107 }

7109

7108

7110-- | Information about the party that created the label.

7109-- | Information about the party that created the label.

7111−mlDeprecatedMarketplaceDealParty :: Lens' MarketplaceLabel (Maybe (Maybe MarketplaceDealParty))

7110+mlDeprecatedMarketplaceDealParty :: Lens' MarketplaceLabel (Maybe MarketplaceDealParty)

7112mlDeprecatedMarketplaceDealParty

7111mlDeprecatedMarketplaceDealParty

7113 = lens _mlDeprecatedMarketplaceDealParty

7112 = lens _mlDeprecatedMarketplaceDealParty

7114 (\ s a -> s{_mlDeprecatedMarketplaceDealParty = a})

7113 (\ s a -> s{_mlDeprecatedMarketplaceDealParty = a})

@@ -7238,7 +7237,7 @@ instance ToJSON DateTime where

7238data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms

7237data DealTermsGuaranteedFixedPriceTerms = DealTermsGuaranteedFixedPriceTerms

7239 { _dtgfptGuaranteedLooks :: !(Maybe Int64)

7238 { _dtgfptGuaranteedLooks :: !(Maybe Int64)

7240 , _dtgfptGuaranteedImpressions :: !(Maybe Int64)

7239 , _dtgfptGuaranteedImpressions :: !(Maybe Int64)

7241− , _dtgfptFixedPrices :: !(Maybe [Maybe PricePerBuyer])

7240+ , _dtgfptFixedPrices :: !(Maybe [PricePerBuyer])

7242 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7241 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7243

7242

7244-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.

7243-- | Creates a value of 'DealTermsGuaranteedFixedPriceTerms' with the minimum fields required to make a request.

@@ -7273,7 +7272,7 @@ dtgfptGuaranteedImpressions

7273 (\ s a -> s{_dtgfptGuaranteedImpressions = a})

7272 (\ s a -> s{_dtgfptGuaranteedImpressions = a})

7274

7273

7275-- | Fixed price for the specified buyer.

7274-- | Fixed price for the specified buyer.

7276−dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [Maybe PricePerBuyer]

7275+dtgfptFixedPrices :: Lens' DealTermsGuaranteedFixedPriceTerms [PricePerBuyer]

7277dtgfptFixedPrices

7276dtgfptFixedPrices

7278 = lens _dtgfptFixedPrices

7277 = lens _dtgfptFixedPrices

7279 (\ s a -> s{_dtgfptFixedPrices = a})

7278 (\ s a -> s{_dtgfptFixedPrices = a})

@@ -7310,219 +7309,219 @@ instance ToJSON DealTermsGuaranteedFixedPriceTerms

7310--

7309--

7311-- /See:/ 'marketplaceOrder' smart constructor.

7310-- /See:/ 'marketplaceOrder' smart constructor.

7312data MarketplaceOrder = MarketplaceOrder

7311data MarketplaceOrder = MarketplaceOrder

7313− { _mooBuyerPrivateData :: !(Maybe (Maybe PrivateData))

7312+ { _marBuyerPrivateData :: !(Maybe PrivateData)

7314− , _mooIsSetupComplete :: !(Maybe Bool)

7313+ , _marIsSetupComplete :: !(Maybe Bool)

7315− , _mooBuyerContacts :: !(Maybe [Maybe ContactInformation])

7314+ , _marBuyerContacts :: !(Maybe [ContactInformation])

7316− , _mooKind :: !Text

7315+ , _marKind :: !Text

7317− , _mooOriginatorRole :: !(Maybe Text)

7316+ , _marOriginatorRole :: !(Maybe Text)

7318− , _mooRevisionNumber :: !(Maybe Int64)

7317+ , _marRevisionNumber :: !(Maybe Int64)

7319− , _mooBilledBuyer :: !(Maybe (Maybe Buyer))

7318+ , _marBilledBuyer :: !(Maybe Buyer)

7320− , _mooIsRenegotiating :: !(Maybe Bool)

7319+ , _marIsRenegotiating :: !(Maybe Bool)

7321− , _mooHasSellerSignedOff :: !(Maybe Bool)

7320+ , _marHasSellerSignedOff :: !(Maybe Bool)

7322− , _mooSeller :: !(Maybe (Maybe Seller))

7321+ , _marSeller :: !(Maybe Seller)

7323− , _mooOrderState :: !(Maybe Text)

7322+ , _marOrderState :: !(Maybe Text)

7324− , _mooName :: !(Maybe Text)

7323+ , _marName :: !(Maybe Text)

7325− , _mooSellerContacts :: !(Maybe [Maybe ContactInformation])

7324+ , _marSellerContacts :: !(Maybe [ContactInformation])

7326− , _mooLastUpdaterRole :: !(Maybe Text)

7325+ , _marLastUpdaterRole :: !(Maybe Text)

7327− , _mooLabels :: !(Maybe [Maybe MarketplaceLabel])

7326+ , _marLabels :: !(Maybe [MarketplaceLabel])

7328− , _mooRevisionTimeMs :: !(Maybe Int64)

7327+ , _marRevisionTimeMs :: !(Maybe Int64)

7329− , _mooOrderId :: !(Maybe Text)

7328+ , _marOrderId :: !(Maybe Text)

7330− , _mooLastUpdaterOrCommentorRole :: !(Maybe Text)

7329+ , _marLastUpdaterOrCommentorRole :: !(Maybe Text)

7331− , _mooHasBuyerSignedOff :: !(Maybe Bool)

7330+ , _marHasBuyerSignedOff :: !(Maybe Bool)

7332− , _mooBuyer :: !(Maybe (Maybe Buyer))

7331+ , _marBuyer :: !(Maybe Buyer)

7333 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7332 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7334

7333

7335-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.

7334-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.

7336--

7335--

7337-- Use one of the following lenses to modify other fields as desired:

7336-- Use one of the following lenses to modify other fields as desired:

7338--

7337--

7339−-- * 'mooBuyerPrivateData'

7338+-- * 'marBuyerPrivateData'

7340--

7339--

7341−-- * 'mooIsSetupComplete'

7340+-- * 'marIsSetupComplete'

7342--

7341--

7343−-- * 'mooBuyerContacts'

7342+-- * 'marBuyerContacts'

7344--

7343--

7345−-- * 'mooKind'

7344+-- * 'marKind'

7346--

7345--

7347−-- * 'mooOriginatorRole'

7346+-- * 'marOriginatorRole'

7348--

7347--

7349−-- * 'mooRevisionNumber'

7348+-- * 'marRevisionNumber'

7350--

7349--

7351−-- * 'mooBilledBuyer'

7350+-- * 'marBilledBuyer'

7352--

7351--

7353−-- * 'mooIsRenegotiating'

7352+-- * 'marIsRenegotiating'

7354--

7353--

7355−-- * 'mooHasSellerSignedOff'

7354+-- * 'marHasSellerSignedOff'

7356--

7355--

7357−-- * 'mooSeller'

7356+-- * 'marSeller'

7358--

7357--

7359−-- * 'mooOrderState'

7358+-- * 'marOrderState'

7360--

7359--

7361−-- * 'mooName'

7360+-- * 'marName'

7362--

7361--

7363−-- * 'mooSellerContacts'

7362+-- * 'marSellerContacts'

7364--

7363--

7365−-- * 'mooLastUpdaterRole'

7364+-- * 'marLastUpdaterRole'

7366--

7365--

7367−-- * 'mooLabels'

7366+-- * 'marLabels'

7368--

7367--

7369−-- * 'mooRevisionTimeMs'

7368+-- * 'marRevisionTimeMs'

7370--

7369--

7371−-- * 'mooOrderId'

7370+-- * 'marOrderId'

7372--

7371--

7373−-- * 'mooLastUpdaterOrCommentorRole'

7372+-- * 'marLastUpdaterOrCommentorRole'

7374--

7373--

7375−-- * 'mooHasBuyerSignedOff'

7374+-- * 'marHasBuyerSignedOff'

7376--

7375--

7377−-- * 'mooBuyer'

7376+-- * 'marBuyer'

7378marketplaceOrder

7377marketplaceOrder

7379 :: MarketplaceOrder

7378 :: MarketplaceOrder

7380marketplaceOrder =

7379marketplaceOrder =

7381 MarketplaceOrder

7380 MarketplaceOrder

7382− { _mooBuyerPrivateData = Nothing

7381+ { _marBuyerPrivateData = Nothing

7383− , _mooIsSetupComplete = Nothing

7382+ , _marIsSetupComplete = Nothing

7384− , _mooBuyerContacts = Nothing

7383+ , _marBuyerContacts = Nothing

7385− , _mooKind = "adexchangebuyer#marketplaceOrder"

7384+ , _marKind = "adexchangebuyer#marketplaceOrder"

7386− , _mooOriginatorRole = Nothing

7385+ , _marOriginatorRole = Nothing

7387− , _mooRevisionNumber = Nothing

7386+ , _marRevisionNumber = Nothing

7388− , _mooBilledBuyer = Nothing

7387+ , _marBilledBuyer = Nothing

7389− , _mooIsRenegotiating = Nothing

7388+ , _marIsRenegotiating = Nothing

7390− , _mooHasSellerSignedOff = Nothing

7389+ , _marHasSellerSignedOff = Nothing

7391− , _mooSeller = Nothing

7390+ , _marSeller = Nothing

7392− , _mooOrderState = Nothing

7391+ , _marOrderState = Nothing

7393− , _mooName = Nothing

7392+ , _marName = Nothing

7394− , _mooSellerContacts = Nothing

7393+ , _marSellerContacts = Nothing

7395− , _mooLastUpdaterRole = Nothing

7394+ , _marLastUpdaterRole = Nothing

7396− , _mooLabels = Nothing

7395+ , _marLabels = Nothing

7397− , _mooRevisionTimeMs = Nothing

7396+ , _marRevisionTimeMs = Nothing

7398− , _mooOrderId = Nothing

7397+ , _marOrderId = Nothing

7399− , _mooLastUpdaterOrCommentorRole = Nothing

7398+ , _marLastUpdaterOrCommentorRole = Nothing

7400− , _mooHasBuyerSignedOff = Nothing

7399+ , _marHasBuyerSignedOff = Nothing

7401− , _mooBuyer = Nothing

7400+ , _marBuyer = Nothing

7402 }

7401 }

7403

7402

7404-- | Private data for buyer. (hidden from seller).

7403-- | Private data for buyer. (hidden from seller).

7405−mooBuyerPrivateData :: Lens' MarketplaceOrder (Maybe (Maybe PrivateData))

7404+marBuyerPrivateData :: Lens' MarketplaceOrder (Maybe PrivateData)

7406−mooBuyerPrivateData

7405+marBuyerPrivateData

7407− = lens _mooBuyerPrivateData

7406+ = lens _marBuyerPrivateData

7408− (\ s a -> s{_mooBuyerPrivateData = a})

7407+ (\ s a -> s{_marBuyerPrivateData = a})

7409

7408

7410-- | True, if the buyside inventory setup is complete for this order.

7409-- | True, if the buyside inventory setup is complete for this order.

7411-- (readonly)

7410-- (readonly)

7412−mooIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)

7411+marIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)

7413−mooIsSetupComplete

7412+marIsSetupComplete

7414− = lens _mooIsSetupComplete

7413+ = lens _marIsSetupComplete

7415− (\ s a -> s{_mooIsSetupComplete = a})

7414+ (\ s a -> s{_marIsSetupComplete = a})

7416

7415

7417-- | Optional contact information fort the buyer. (seller-readonly)

7416-- | Optional contact information fort the buyer. (seller-readonly)

7418−mooBuyerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]

7417+marBuyerContacts :: Lens' MarketplaceOrder [ContactInformation]

7419−mooBuyerContacts

7418+marBuyerContacts

7420− = lens _mooBuyerContacts

7419+ = lens _marBuyerContacts

7421− (\ s a -> s{_mooBuyerContacts = a})

7420+ (\ s a -> s{_marBuyerContacts = a})

7422 . _Default

7421 . _Default

7423 . _Coerce

7422 . _Coerce

7424

7423

7425-- | Identifies what kind of resource this is. Value: the fixed string

7424-- | Identifies what kind of resource this is. Value: the fixed string

7426-- \"adexchangebuyer#marketplaceOrder\".

7425-- \"adexchangebuyer#marketplaceOrder\".

7427−mooKind :: Lens' MarketplaceOrder Text

7426+marKind :: Lens' MarketplaceOrder Text

7428−mooKind = lens _mooKind (\ s a -> s{_mooKind = a})

7427+marKind = lens _marKind (\ s a -> s{_marKind = a})

7429

7428

7430-- | Indicates whether the buyer\/seller created the offer.(readonly)

7429-- | Indicates whether the buyer\/seller created the offer.(readonly)

7431−mooOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)

7430+marOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)

7432−mooOriginatorRole

7431+marOriginatorRole

7433− = lens _mooOriginatorRole

7432+ = lens _marOriginatorRole

7434− (\ s a -> s{_mooOriginatorRole = a})

7433+ (\ s a -> s{_marOriginatorRole = a})

7435

7434

7436-- | The revision number for the order (readonly).

7435-- | The revision number for the order (readonly).

7437−mooRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)

7436+marRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)

7438−mooRevisionNumber

7437+marRevisionNumber

7439− = lens _mooRevisionNumber

7438+ = lens _marRevisionNumber

7440− (\ s a -> s{_mooRevisionNumber = a})

7439+ (\ s a -> s{_marRevisionNumber = a})

7441

7440

7442-- | Reference to the buyer that will get billed for this order. (readonly)

7441-- | Reference to the buyer that will get billed for this order. (readonly)

7443−mooBilledBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))

7442+marBilledBuyer :: Lens' MarketplaceOrder (Maybe Buyer)

7444−mooBilledBuyer

7443+marBilledBuyer

7445− = lens _mooBilledBuyer

7444+ = lens _marBilledBuyer

7446− (\ s a -> s{_mooBilledBuyer = a})

7445+ (\ s a -> s{_marBilledBuyer = a})

7447

7446

7448-- | True if the order is being renegotiated (readonly).

7447-- | True if the order is being renegotiated (readonly).

7449−mooIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)

7448+marIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)

7450−mooIsRenegotiating

7449+marIsRenegotiating

7451− = lens _mooIsRenegotiating

7450+ = lens _marIsRenegotiating

7452− (\ s a -> s{_mooIsRenegotiating = a})

7451+ (\ s a -> s{_marIsRenegotiating = a})

7453

7452

7454-- | When an order is in an accepted state, indicates whether the buyer has

7453-- | When an order is in an accepted state, indicates whether the buyer has

7455-- signed off Once both sides have signed off on a deal, the order can be

7454-- signed off Once both sides have signed off on a deal, the order can be

7456-- finalized by the seller. (buyer-readonly)

7455-- finalized by the seller. (buyer-readonly)

7457−mooHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7456+marHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7458−mooHasSellerSignedOff

7457+marHasSellerSignedOff

7459− = lens _mooHasSellerSignedOff

7458+ = lens _marHasSellerSignedOff

7460− (\ s a -> s{_mooHasSellerSignedOff = a})

7459+ (\ s a -> s{_marHasSellerSignedOff = a})

7461

7460

7462-- | Reference to the seller on the order. (readonly, except on create)

7461-- | Reference to the seller on the order. (readonly, except on create)

7463−mooSeller :: Lens' MarketplaceOrder (Maybe (Maybe Seller))

7462+marSeller :: Lens' MarketplaceOrder (Maybe Seller)

7464−mooSeller

7463+marSeller

7465− = lens _mooSeller (\ s a -> s{_mooSeller = a})

7464+ = lens _marSeller (\ s a -> s{_marSeller = a})

7466

7465

7467-- | The current state of the order. (readonly)

7466-- | The current state of the order. (readonly)

7468−mooOrderState :: Lens' MarketplaceOrder (Maybe Text)

7467+marOrderState :: Lens' MarketplaceOrder (Maybe Text)

7469−mooOrderState

7468+marOrderState

7470− = lens _mooOrderState

7469+ = lens _marOrderState

7471− (\ s a -> s{_mooOrderState = a})

7470+ (\ s a -> s{_marOrderState = a})

7472

7471

7473-- | The name for the order (updatable)

7472-- | The name for the order (updatable)

7474−mooName :: Lens' MarketplaceOrder (Maybe Text)

7473+marName :: Lens' MarketplaceOrder (Maybe Text)

7475−mooName = lens _mooName (\ s a -> s{_mooName = a})

7474+marName = lens _marName (\ s a -> s{_marName = a})

7476

7475

7477-- | Optional contact information for the seller (buyer-readonly).

7476-- | Optional contact information for the seller (buyer-readonly).

7478−mooSellerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]

7477+marSellerContacts :: Lens' MarketplaceOrder [ContactInformation]

7479−mooSellerContacts

7478+marSellerContacts

7480− = lens _mooSellerContacts

7479+ = lens _marSellerContacts

7481− (\ s a -> s{_mooSellerContacts = a})

7480+ (\ s a -> s{_marSellerContacts = a})

7482 . _Default

7481 . _Default

7483 . _Coerce

7482 . _Coerce

7484

7483

7485−mooLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)

7484+marLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)

7486−mooLastUpdaterRole

7485+marLastUpdaterRole

7487− = lens _mooLastUpdaterRole

7486+ = lens _marLastUpdaterRole

7488− (\ s a -> s{_mooLastUpdaterRole = a})

7487+ (\ s a -> s{_marLastUpdaterRole = a})

7489

7488

7490-- | List of labels associated with the order. (readonly)

7489-- | List of labels associated with the order. (readonly)

7491−mooLabels :: Lens' MarketplaceOrder [Maybe MarketplaceLabel]

7490+marLabels :: Lens' MarketplaceOrder [MarketplaceLabel]

7492−mooLabels

7491+marLabels

7493− = lens _mooLabels (\ s a -> s{_mooLabels = a}) .

7492+ = lens _marLabels (\ s a -> s{_marLabels = a}) .

7494 _Default

7493 _Default

7495 . _Coerce

7494 . _Coerce

7496

7495

7497-- | The time (ms since epoch) when the order was last revised (readonly).

7496-- | The time (ms since epoch) when the order was last revised (readonly).

7498−mooRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)

7497+marRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)

7499−mooRevisionTimeMs

7498+marRevisionTimeMs

7500− = lens _mooRevisionTimeMs

7499+ = lens _marRevisionTimeMs

7501− (\ s a -> s{_mooRevisionTimeMs = a})

7500+ (\ s a -> s{_marRevisionTimeMs = a})

7502

7501

7503-- | The unique id of the order. (readonly).

7502-- | The unique id of the order. (readonly).

7504−mooOrderId :: Lens' MarketplaceOrder (Maybe Text)

7503+marOrderId :: Lens' MarketplaceOrder (Maybe Text)

7505−mooOrderId

7504+marOrderId

7506− = lens _mooOrderId (\ s a -> s{_mooOrderId = a})

7505+ = lens _marOrderId (\ s a -> s{_marOrderId = a})

7507

7506

7508-- | The role of the last user that either updated the order or left a

7507-- | The role of the last user that either updated the order or left a

7509-- comment. (readonly)

7508-- comment. (readonly)

7510−mooLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)

7509+marLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)

7511−mooLastUpdaterOrCommentorRole

7510+marLastUpdaterOrCommentorRole

7512− = lens _mooLastUpdaterOrCommentorRole

7511+ = lens _marLastUpdaterOrCommentorRole

7513− (\ s a -> s{_mooLastUpdaterOrCommentorRole = a})

7512+ (\ s a -> s{_marLastUpdaterOrCommentorRole = a})

7514

7513

7515-- | When an order is in an accepted state, indicates whether the buyer has

7514-- | When an order is in an accepted state, indicates whether the buyer has

7516-- signed off Once both sides have signed off on a deal, the order can be

7515-- signed off Once both sides have signed off on a deal, the order can be

7517-- finalized by the seller. (seller-readonly)

7516-- finalized by the seller. (seller-readonly)

7518−mooHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7517+marHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)

7519−mooHasBuyerSignedOff

7518+marHasBuyerSignedOff

7520− = lens _mooHasBuyerSignedOff

7519+ = lens _marHasBuyerSignedOff

7521− (\ s a -> s{_mooHasBuyerSignedOff = a})

7520+ (\ s a -> s{_marHasBuyerSignedOff = a})

7522

7521

7523-- | Reference to the buyer on the order. (readonly, except on create)

7522-- | Reference to the buyer on the order. (readonly, except on create)

7524−mooBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))

7523+marBuyer :: Lens' MarketplaceOrder (Maybe Buyer)

7525−mooBuyer = lens _mooBuyer (\ s a -> s{_mooBuyer = a})

7524+marBuyer = lens _marBuyer (\ s a -> s{_marBuyer = a})

7526

7525

7527instance FromJSON MarketplaceOrder where

7526instance FromJSON MarketplaceOrder where

7528 parseJSON

7527 parseJSON

@@ -7555,33 +7554,33 @@ instance ToJSON MarketplaceOrder where

7555 toJSON MarketplaceOrder{..}

7554 toJSON MarketplaceOrder{..}

7556 = object

7555 = object

7557 (catMaybes

7556 (catMaybes

7558− [("buyerPrivateData" .=) <$> _mooBuyerPrivateData,

7557+ [("buyerPrivateData" .=) <$> _marBuyerPrivateData,

7559− ("isSetupComplete" .=) <$> _mooIsSetupComplete,

7558+ ("isSetupComplete" .=) <$> _marIsSetupComplete,

7560− ("buyerContacts" .=) <$> _mooBuyerContacts,

7559+ ("buyerContacts" .=) <$> _marBuyerContacts,

7561− Just ("kind" .= _mooKind),

7560+ Just ("kind" .= _marKind),

7562− ("originatorRole" .=) <$> _mooOriginatorRole,

7561+ ("originatorRole" .=) <$> _marOriginatorRole,

7563− ("revisionNumber" .=) <$> _mooRevisionNumber,

7562+ ("revisionNumber" .=) <$> _marRevisionNumber,

7564− ("billedBuyer" .=) <$> _mooBilledBuyer,

7563+ ("billedBuyer" .=) <$> _marBilledBuyer,

7565− ("isRenegotiating" .=) <$> _mooIsRenegotiating,

7564+ ("isRenegotiating" .=) <$> _marIsRenegotiating,

7566− ("hasSellerSignedOff" .=) <$> _mooHasSellerSignedOff,

7565+ ("hasSellerSignedOff" .=) <$> _marHasSellerSignedOff,

7567− ("seller" .=) <$> _mooSeller,

7566+ ("seller" .=) <$> _marSeller,

7568− ("orderState" .=) <$> _mooOrderState,

7567+ ("orderState" .=) <$> _marOrderState,

7569− ("name" .=) <$> _mooName,

7568+ ("name" .=) <$> _marName,

7570− ("sellerContacts" .=) <$> _mooSellerContacts,

7569+ ("sellerContacts" .=) <$> _marSellerContacts,

7571− ("lastUpdaterRole" .=) <$> _mooLastUpdaterRole,

7570+ ("lastUpdaterRole" .=) <$> _marLastUpdaterRole,

7572− ("labels" .=) <$> _mooLabels,

7571+ ("labels" .=) <$> _marLabels,

7573− ("revisionTimeMs" .=) <$> _mooRevisionTimeMs,

7572+ ("revisionTimeMs" .=) <$> _marRevisionTimeMs,

7574− ("orderId" .=) <$> _mooOrderId,

7573+ ("orderId" .=) <$> _marOrderId,

7575 ("lastUpdaterOrCommentorRole" .=) <$>

7574 ("lastUpdaterOrCommentorRole" .=) <$>

7576− _mooLastUpdaterOrCommentorRole,

7575+ _marLastUpdaterOrCommentorRole,

7577− ("hasBuyerSignedOff" .=) <$> _mooHasBuyerSignedOff,

7576+ ("hasBuyerSignedOff" .=) <$> _marHasBuyerSignedOff,

7578− ("buyer" .=) <$> _mooBuyer])

7577+ ("buyer" .=) <$> _marBuyer])

7579

7578

7580--

7579--

7581-- /See:/ 'addOrderDealsRequest' smart constructor.

7580-- /See:/ 'addOrderDealsRequest' smart constructor.

7582data AddOrderDealsRequest = AddOrderDealsRequest

7581data AddOrderDealsRequest = AddOrderDealsRequest

7583 { _aUpdateAction :: !(Maybe Text)

7582 { _aUpdateAction :: !(Maybe Text)

7584− , _aDeals :: !(Maybe [Maybe MarketplaceDeal])

7583+ , _aDeals :: !(Maybe [MarketplaceDeal])

7585 , _aOrderRevisionNumber :: !(Maybe Int64)

7584 , _aOrderRevisionNumber :: !(Maybe Int64)

7586 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7585 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7587

7586

@@ -7610,7 +7609,7 @@ aUpdateAction

7610 (\ s a -> s{_aUpdateAction = a})

7609 (\ s a -> s{_aUpdateAction = a})

7611

7610

7612-- | The list of deals to add

7611-- | The list of deals to add

7613−aDeals :: Lens' AddOrderDealsRequest [Maybe MarketplaceDeal]

7612+aDeals :: Lens' AddOrderDealsRequest [MarketplaceDeal]

7614aDeals

7613aDeals

7615 = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default .

7614 = lens _aDeals (\ s a -> s{_aDeals = a}) . _Default .

7616 _Coerce

7615 _Coerce

@@ -7641,9 +7640,9 @@ instance ToJSON AddOrderDealsRequest where

7641--

7640--

7642-- /See:/ 'dealTerms' smart constructor.

7641-- /See:/ 'dealTerms' smart constructor.

7643data DealTerms = DealTerms

7642data DealTerms = DealTerms

7644− { _dtNonGuaranteedFixedPriceTerms :: !(Maybe (Maybe DealTermsNonGuaranteedFixedPriceTerms))

7643+ { _dtNonGuaranteedFixedPriceTerms :: !(Maybe DealTermsNonGuaranteedFixedPriceTerms)

7645− , _dtNonGuaranteedAuctionTerms :: !(Maybe (Maybe DealTermsNonGuaranteedAuctionTerms))

7644+ , _dtNonGuaranteedAuctionTerms :: !(Maybe DealTermsNonGuaranteedAuctionTerms)

7646− , _dtGuaranteedFixedPriceTerms :: !(Maybe (Maybe DealTermsGuaranteedFixedPriceTerms))

7645+ , _dtGuaranteedFixedPriceTerms :: !(Maybe DealTermsGuaranteedFixedPriceTerms)

7647 , _dtDescription :: !(Maybe Text)

7646 , _dtDescription :: !(Maybe Text)

7648 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7647 } deriving (Eq,Read,Show,Data,Typeable,Generic)

7649

7648

@@ -7669,19 +7668,19 @@ dealTerms =

7669 }

7668 }

7670

7669

7671-- | The terms for non-guaranteed fixed price deals.

7670-- | The terms for non-guaranteed fixed price deals.

7672−dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe (Maybe DealTermsNonGuaranteedFixedPriceTerms))

7671+dtNonGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedFixedPriceTerms)

7673dtNonGuaranteedFixedPriceTerms

7672dtNonGuaranteedFixedPriceTerms

7674 = lens _dtNonGuaranteedFixedPriceTerms

7673 = lens _dtNonGuaranteedFixedPriceTerms

7675 (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a})

7674 (\ s a -> s{_dtNonGuaranteedFixedPriceTerms = a})

7676

7675

7677-- | The terms for non-guaranteed auction deals.

7676-- | The terms for non-guaranteed auction deals.

7678−dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe (Maybe DealTermsNonGuaranteedAuctionTerms))

7677+dtNonGuaranteedAuctionTerms :: Lens' DealTerms (Maybe DealTermsNonGuaranteedAuctionTerms)

7679dtNonGuaranteedAuctionTerms

7678dtNonGuaranteedAuctionTerms

7680 = lens _dtNonGuaranteedAuctionTerms

7679 = lens _dtNonGuaranteedAuctionTerms

7681 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})

7680 (\ s a -> s{_dtNonGuaranteedAuctionTerms = a})

7682

7681

7683-- | The terms for guaranteed fixed price deals.

7682-- | The terms for guaranteed fixed price deals.

7684−dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe (Maybe DealTermsGuaranteedFixedPriceTerms))

7683+dtGuaranteedFixedPriceTerms :: Lens' DealTerms (Maybe DealTermsGuaranteedFixedPriceTerms)

7685dtGuaranteedFixedPriceTerms

7684dtGuaranteedFixedPriceTerms

7686 = lens _dtGuaranteedFixedPriceTerms

7685 = lens _dtGuaranteedFixedPriceTerms

7687 (\ s a -> s{_dtGuaranteedFixedPriceTerms = a})

7686 (\ s a -> s{_dtGuaranteedFixedPriceTerms = a})

gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs+29−53

@@ -18,7 +18,7 @@ module Network.Google.AdExchangeBuyer.Types.Sum where

18import Network.Google.Prelude

19

20-- | The proposed action to take on the order.

21−data AdexchangebuyerMarketplaceordersUpdateUpdateAction

21+data AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

22 = Accept

23 -- ^ @accept@

24 | Cancel

@@ -31,9 +31,9 @@ data AdexchangebuyerMarketplaceordersUpdateUpdateAction

31 -- ^ @updateFinalized@

32 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

33

34−instance Hashable AdexchangebuyerMarketplaceordersUpdateUpdateAction

34+instance Hashable AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

35

36−instance FromText AdexchangebuyerMarketplaceordersUpdateUpdateAction where

36+instance FromText AdexchangebuyerMarketplaceOrdersUpdateUpdateAction where

37 fromText = \case

38 "accept" -> Just Accept

39 "cancel" -> Just Cancel

@@ -42,7 +42,7 @@ instance FromText AdexchangebuyerMarketplaceordersUpdateUpdateAction where

42 "updateFinalized" -> Just UpdateFinalized

43 _ -> Nothing

44

45−instance ToText AdexchangebuyerMarketplaceordersUpdateUpdateAction where

45+instance ToText AdexchangebuyerMarketplaceOrdersUpdateUpdateAction where

46 toText = \case

47 Accept -> "accept"

48 Cancel -> "cancel"

@@ -50,10 +50,10 @@ instance ToText AdexchangebuyerMarketplaceordersUpdateUpdateAction where

50 UnknownAction -> "unknownAction"

51 UpdateFinalized -> "updateFinalized"

52

53−instance FromJSON AdexchangebuyerMarketplaceordersUpdateUpdateAction where

53+instance FromJSON AdexchangebuyerMarketplaceOrdersUpdateUpdateAction where

54− parseJSON = parseJSONText "AdexchangebuyerMarketplaceordersUpdateUpdateAction"

54+ parseJSON = parseJSONText "AdexchangebuyerMarketplaceOrdersUpdateUpdateAction"

55

56−instance ToJSON AdexchangebuyerMarketplaceordersUpdateUpdateAction where

56+instance ToJSON AdexchangebuyerMarketplaceOrdersUpdateUpdateAction where

57 toJSON = toJSONText

58

59-- | When specified, only creatives having the given open auction status are

@@ -98,42 +98,42 @@ instance ToJSON AdexchangebuyerCreativesListOpenAuctionStatusFilter where

98 toJSON = toJSONText

99

100-- | The proposed action to take on the order.

101−data AdexchangebuyerMarketplaceordersPatchUpdateAction

101+data AdexchangebuyerMarketplaceOrdersPatchUpdateAction

102− = AMPUAAccept

102+ = AMOPUAAccept

103 -- ^ @accept@

104− | AMPUACancel

104+ | AMOPUACancel

105 -- ^ @cancel@

106− | AMPUAPropose

106+ | AMOPUAPropose

107 -- ^ @propose@

108− | AMPUAUnknownAction

108+ | AMOPUAUnknownAction

109 -- ^ @unknownAction@

110− | AMPUAUpdateFinalized

110+ | AMOPUAUpdateFinalized

111 -- ^ @updateFinalized@

112 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

113

114−instance Hashable AdexchangebuyerMarketplaceordersPatchUpdateAction

114+instance Hashable AdexchangebuyerMarketplaceOrdersPatchUpdateAction

115

116−instance FromText AdexchangebuyerMarketplaceordersPatchUpdateAction where

116+instance FromText AdexchangebuyerMarketplaceOrdersPatchUpdateAction where

117 fromText = \case

118− "accept" -> Just AMPUAAccept

118+ "accept" -> Just AMOPUAAccept

119− "cancel" -> Just AMPUACancel

119+ "cancel" -> Just AMOPUACancel

120− "propose" -> Just AMPUAPropose

120+ "propose" -> Just AMOPUAPropose

121− "unknownAction" -> Just AMPUAUnknownAction

121+ "unknownAction" -> Just AMOPUAUnknownAction

122− "updateFinalized" -> Just AMPUAUpdateFinalized

122+ "updateFinalized" -> Just AMOPUAUpdateFinalized

123 _ -> Nothing

124

125−instance ToText AdexchangebuyerMarketplaceordersPatchUpdateAction where

125+instance ToText AdexchangebuyerMarketplaceOrdersPatchUpdateAction where

126 toText = \case

127− AMPUAAccept -> "accept"

127+ AMOPUAAccept -> "accept"

128− AMPUACancel -> "cancel"

128+ AMOPUACancel -> "cancel"

129− AMPUAPropose -> "propose"

129+ AMOPUAPropose -> "propose"

130− AMPUAUnknownAction -> "unknownAction"

130+ AMOPUAUnknownAction -> "unknownAction"

131− AMPUAUpdateFinalized -> "updateFinalized"

131+ AMOPUAUpdateFinalized -> "updateFinalized"

132

133−instance FromJSON AdexchangebuyerMarketplaceordersPatchUpdateAction where

133+instance FromJSON AdexchangebuyerMarketplaceOrdersPatchUpdateAction where

134− parseJSON = parseJSONText "AdexchangebuyerMarketplaceordersPatchUpdateAction"

134+ parseJSON = parseJSONText "AdexchangebuyerMarketplaceOrdersPatchUpdateAction"

135

136−instance ToJSON AdexchangebuyerMarketplaceordersPatchUpdateAction where

136+instance ToJSON AdexchangebuyerMarketplaceOrdersPatchUpdateAction where

137 toJSON = toJSONText

138

139-- | When specified, only creatives having the given direct deals status are

@@ -176,27 +176,3 @@ instance FromJSON AdexchangebuyerCreativesListDealsStatusFilter where

176

177instance ToJSON AdexchangebuyerCreativesListDealsStatusFilter where

178 toJSON = toJSONText

179−

180−-- | Data format for the response.

181−data Alt

182− = JSON

183− -- ^ @json@

184− -- Responses with Content-Type of application\/json

185− deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

186−

187−instance Hashable Alt

188−

189−instance FromText Alt where

190− fromText = \case

191− "json" -> Just JSON

192− _ -> Nothing

193−

194−instance ToText Alt where

195− toText = \case

196− JSON -> "json"

197−

198−instance FromJSON Alt where

199− parseJSON = parseJSONText "Alt"

200−

201−instance ToJSON Alt where

202− toJSON = toJSONText

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs+24−29

@@ -32,12 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Get

32 -- * Request Lenses

33 , agQuotaUser

34 , agPrettyPrint

35− , agUserIp

35+ , agUserIP

36 , agKey

37 , agId

38− , agOauthToken

38+ , agOAuthToken

39 , agFields

40− , agAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeBuyer.Types

42import Network.Google.AdExchangeBuyer.Types

@@ -51,10 +50,10 @@ type AccountsGetResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

55 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] Account

56+ QueryParam "alt" AltJSON :> Get '[JSON] Account

58

57

59-- | Gets one account by ID.

58-- | Gets one account by ID.

60--

59--

@@ -62,12 +61,11 @@ type AccountsGetResource =

62data AccountsGet' = AccountsGet'

61data AccountsGet' = AccountsGet'

63 { _agQuotaUser :: !(Maybe Text)

62 { _agQuotaUser :: !(Maybe Text)

64 , _agPrettyPrint :: !Bool

63 , _agPrettyPrint :: !Bool

65− , _agUserIp :: !(Maybe Text)

64+ , _agUserIP :: !(Maybe Text)

66− , _agKey :: !(Maybe Text)

65+ , _agKey :: !(Maybe Key)

67 , _agId :: !Int32

66 , _agId :: !Int32

68− , _agOauthToken :: !(Maybe Text)

67+ , _agOAuthToken :: !(Maybe OAuthToken)

69 , _agFields :: !(Maybe Text)

68 , _agFields :: !(Maybe Text)

70− , _agAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

70

73-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.

71-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.

@@ -78,17 +76,15 @@ data AccountsGet' = AccountsGet'

78--

76--

79-- * 'agPrettyPrint'

77-- * 'agPrettyPrint'

80--

78--

81−-- * 'agUserIp'

79+-- * 'agUserIP'

82--

80--

83-- * 'agKey'

81-- * 'agKey'

84--

82--

85-- * 'agId'

83-- * 'agId'

86--

84--

87−-- * 'agOauthToken'

85+-- * 'agOAuthToken'

88--

86--

89-- * 'agFields'

87-- * 'agFields'

90−--

91−-- * 'agAlt'

92accountsGet'

88accountsGet'

93 :: Int32 -- ^ 'id'

89 :: Int32 -- ^ 'id'

94 -> AccountsGet'

90 -> AccountsGet'

@@ -96,12 +92,11 @@ accountsGet' pAgId_ =

96 AccountsGet'

92 AccountsGet'

97 { _agQuotaUser = Nothing

93 { _agQuotaUser = Nothing

98 , _agPrettyPrint = True

94 , _agPrettyPrint = True

99− , _agUserIp = Nothing

95+ , _agUserIP = Nothing

100 , _agKey = Nothing

96 , _agKey = Nothing

101 , _agId = pAgId_

97 , _agId = pAgId_

102− , _agOauthToken = Nothing

98+ , _agOAuthToken = Nothing

103 , _agFields = Nothing

99 , _agFields = Nothing

104− , _agAlt = JSON

105 }

100 }

106

101

107-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,13 +114,13 @@ agPrettyPrint

119

114

120-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

116-- want to enforce per-user limits.

122−agUserIp :: Lens' AccountsGet' (Maybe Text)

117+agUserIP :: Lens' AccountsGet' (Maybe Text)

123−agUserIp = lens _agUserIp (\ s a -> s{_agUserIp = a})

118+agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

124

119

125-- | API key. Your API key identifies your project and provides you with API

120-- | API key. Your API key identifies your project and provides you with API

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- token.

122-- token.

128−agKey :: Lens' AccountsGet' (Maybe Text)

123+agKey :: Lens' AccountsGet' (Maybe Key)

129agKey = lens _agKey (\ s a -> s{_agKey = a})

124agKey = lens _agKey (\ s a -> s{_agKey = a})

130

125

131-- | The account id

126-- | The account id

@@ -133,28 +128,28 @@ agId :: Lens' AccountsGet' Int32

133agId = lens _agId (\ s a -> s{_agId = a})

128agId = lens _agId (\ s a -> s{_agId = a})

134

129

135-- | OAuth 2.0 token for the current user.

130-- | OAuth 2.0 token for the current user.

136−agOauthToken :: Lens' AccountsGet' (Maybe Text)

131+agOAuthToken :: Lens' AccountsGet' (Maybe OAuthToken)

137−agOauthToken

132+agOAuthToken

138− = lens _agOauthToken (\ s a -> s{_agOauthToken = a})

133+ = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

139

134

140-- | Selector specifying which fields to include in a partial response.

135-- | Selector specifying which fields to include in a partial response.

141agFields :: Lens' AccountsGet' (Maybe Text)

136agFields :: Lens' AccountsGet' (Maybe Text)

142agFields = lens _agFields (\ s a -> s{_agFields = a})

137agFields = lens _agFields (\ s a -> s{_agFields = a})

143

138

144−-- | Data format for the response.

139+instance GoogleAuth AccountsGet' where

145−agAlt :: Lens' AccountsGet' Alt

140+ authKey = agKey . _Just

146−agAlt = lens _agAlt (\ s a -> s{_agAlt = a})

141+ authToken = agOAuthToken . _Just

147

142

148instance GoogleRequest AccountsGet' where

143instance GoogleRequest AccountsGet' where

149 type Rs AccountsGet' = Account

144 type Rs AccountsGet' = Account

150 request = requestWithRoute defReq adExchangeBuyerURL

145 request = requestWithRoute defReq adExchangeBuyerURL

151 requestWithRoute r u AccountsGet'{..}

146 requestWithRoute r u AccountsGet'{..}

152− = go _agQuotaUser (Just _agPrettyPrint) _agUserIp

147+ = go _agQuotaUser (Just _agPrettyPrint) _agUserIP

153 _agKey

148 _agKey

154 _agId

149 _agId

155− _agOauthToken

150+ _agOAuthToken

156 _agFields

151 _agFields

157− (Just _agAlt)

152+ (Just AltJSON)

158 where go

153 where go

159 = clientWithRoute

154 = clientWithRoute

160 (Proxy :: Proxy AccountsGetResource)

155 (Proxy :: Proxy AccountsGetResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs+24−29

@@ -32,11 +32,10 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.List

32 -- * Request Lenses

33 , alQuotaUser

34 , alPrettyPrint

35− , alUserIp

35+ , alUserIP

36 , alKey

37− , alOauthToken

37+ , alOAuthToken

38 , alFields

39− , alAlt

40 ) where

39 ) where

41

40

42import Network.Google.AdExchangeBuyer.Types

41import Network.Google.AdExchangeBuyer.Types

@@ -49,10 +48,10 @@ type AccountsListResource =

49 QueryParam "quotaUser" Text :>

48 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

49 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

50 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

51+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

52+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

53 QueryParam "fields" Text :>

55− QueryParam "alt" Alt :> Get '[JSON] AccountsList

54+ QueryParam "alt" AltJSON :> Get '[JSON] AccountsList

56

55

57-- | Retrieves the authenticated user\'s list of accounts.

56-- | Retrieves the authenticated user\'s list of accounts.

58--

57--

@@ -60,11 +59,10 @@ type AccountsListResource =

60data AccountsList' = AccountsList'

59data AccountsList' = AccountsList'

61 { _alQuotaUser :: !(Maybe Text)

60 { _alQuotaUser :: !(Maybe Text)

62 , _alPrettyPrint :: !Bool

61 , _alPrettyPrint :: !Bool

63− , _alUserIp :: !(Maybe Text)

62+ , _alUserIP :: !(Maybe Text)

64− , _alKey :: !(Maybe Text)

63+ , _alKey :: !(Maybe Key)

65− , _alOauthToken :: !(Maybe Text)

64+ , _alOAuthToken :: !(Maybe OAuthToken)

66 , _alFields :: !(Maybe Text)

65 , _alFields :: !(Maybe Text)

67− , _alAlt :: !Alt

68 } deriving (Eq,Read,Show,Data,Typeable,Generic)

66 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69

67

70-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.

68-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.

@@ -75,26 +73,23 @@ data AccountsList' = AccountsList'

75--

73--

76-- * 'alPrettyPrint'

74-- * 'alPrettyPrint'

77--

75--

78−-- * 'alUserIp'

76+-- * 'alUserIP'

79--

77--

80-- * 'alKey'

78-- * 'alKey'

81--

79--

82−-- * 'alOauthToken'

80+-- * 'alOAuthToken'

83--

81--

84-- * 'alFields'

82-- * 'alFields'

85−--

86−-- * 'alAlt'

87accountsList'

83accountsList'

88 :: AccountsList'

84 :: AccountsList'

89accountsList' =

85accountsList' =

90 AccountsList'

86 AccountsList'

91 { _alQuotaUser = Nothing

87 { _alQuotaUser = Nothing

92 , _alPrettyPrint = True

88 , _alPrettyPrint = True

93− , _alUserIp = Nothing

89+ , _alUserIP = Nothing

94 , _alKey = Nothing

90 , _alKey = Nothing

95− , _alOauthToken = Nothing

91+ , _alOAuthToken = Nothing

96 , _alFields = Nothing

92 , _alFields = Nothing

97− , _alAlt = JSON

98 }

93 }

99

94

100-- | Available to use for quota purposes for server-side applications. Can be

95-- | Available to use for quota purposes for server-side applications. Can be

@@ -112,37 +107,37 @@ alPrettyPrint

112

107

113-- | IP address of the site where the request originates. Use this if you

108-- | IP address of the site where the request originates. Use this if you

114-- want to enforce per-user limits.

109-- want to enforce per-user limits.

115−alUserIp :: Lens' AccountsList' (Maybe Text)

110+alUserIP :: Lens' AccountsList' (Maybe Text)

116−alUserIp = lens _alUserIp (\ s a -> s{_alUserIp = a})

111+alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

117

112

118-- | API key. Your API key identifies your project and provides you with API

113-- | API key. Your API key identifies your project and provides you with API

119-- access, quota, and reports. Required unless you provide an OAuth 2.0

114-- access, quota, and reports. Required unless you provide an OAuth 2.0

120-- token.

115-- token.

121−alKey :: Lens' AccountsList' (Maybe Text)

116+alKey :: Lens' AccountsList' (Maybe Key)

122alKey = lens _alKey (\ s a -> s{_alKey = a})

117alKey = lens _alKey (\ s a -> s{_alKey = a})

123

118

124-- | OAuth 2.0 token for the current user.

119-- | OAuth 2.0 token for the current user.

125−alOauthToken :: Lens' AccountsList' (Maybe Text)

120+alOAuthToken :: Lens' AccountsList' (Maybe OAuthToken)

126−alOauthToken

121+alOAuthToken

127− = lens _alOauthToken (\ s a -> s{_alOauthToken = a})

122+ = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

128

123

129-- | Selector specifying which fields to include in a partial response.

124-- | Selector specifying which fields to include in a partial response.

130alFields :: Lens' AccountsList' (Maybe Text)

125alFields :: Lens' AccountsList' (Maybe Text)

131alFields = lens _alFields (\ s a -> s{_alFields = a})

126alFields = lens _alFields (\ s a -> s{_alFields = a})

132

127

133−-- | Data format for the response.

134−alAlt :: Lens' AccountsList' Alt

128+instance GoogleAuth AccountsList' where

135−alAlt = lens _alAlt (\ s a -> s{_alAlt = a})

129+ authKey = alKey . _Just

130+ authToken = alOAuthToken . _Just

136

131

137instance GoogleRequest AccountsList' where

132instance GoogleRequest AccountsList' where

138 type Rs AccountsList' = AccountsList

133 type Rs AccountsList' = AccountsList

139 request = requestWithRoute defReq adExchangeBuyerURL

134 request = requestWithRoute defReq adExchangeBuyerURL

140 requestWithRoute r u AccountsList'{..}

135 requestWithRoute r u AccountsList'{..}

141− = go _alQuotaUser (Just _alPrettyPrint) _alUserIp

136+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIP

142 _alKey

137 _alKey

143− _alOauthToken

138+ _alOAuthToken

144 _alFields

139 _alFields

145− (Just _alAlt)

140+ (Just AltJSON)

146 where go

141 where go

147 = clientWithRoute

142 = clientWithRoute

148 (Proxy :: Proxy AccountsListResource)

143 (Proxy :: Proxy AccountsListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs+39−31

@@ -32,12 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch

32 -- * Request Lenses

33 , apQuotaUser

34 , apPrettyPrint

35− , apUserIp

35+ , apUserIP

36+ , apAccount

36 , apKey

37 , apKey

37 , apId

38 , apId

38− , apOauthToken

39+ , apOAuthToken

39 , apFields

40 , apFields

40− , apAlt

41 ) where

42

43import Network.Google.AdExchangeBuyer.Types

@@ -51,10 +51,11 @@ type AccountsPatchResource =

51 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

54+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Patch '[JSON] Account

57+ QueryParam "alt" AltJSON :>

58+ ReqBody '[JSON] Account :> Patch '[JSON] Account

58

59

59-- | Updates an existing account. This method supports patch semantics.

60-- | Updates an existing account. This method supports patch semantics.

60--

61--

@@ -62,12 +63,12 @@ type AccountsPatchResource =

62data AccountsPatch' = AccountsPatch'

63data AccountsPatch' = AccountsPatch'

63 { _apQuotaUser :: !(Maybe Text)

64 { _apQuotaUser :: !(Maybe Text)

64 , _apPrettyPrint :: !Bool

65 , _apPrettyPrint :: !Bool

65− , _apUserIp :: !(Maybe Text)

66+ , _apUserIP :: !(Maybe Text)

67+ , _apAccount :: !Account

66− , _apKey :: !(Maybe Text)

68+ , _apKey :: !(Maybe Key)

67 , _apId :: !Int32

69 , _apId :: !Int32

68− , _apOauthToken :: !(Maybe Text)

70+ , _apOAuthToken :: !(Maybe OAuthToken)

69 , _apFields :: !(Maybe Text)

71 , _apFields :: !(Maybe Text)

70− , _apAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

73

73-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.

74-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.

@@ -78,30 +79,31 @@ data AccountsPatch' = AccountsPatch'

78--

79--

79-- * 'apPrettyPrint'

80-- * 'apPrettyPrint'

80--

81--

81−-- * 'apUserIp'

82+-- * 'apUserIP'

83+--

84+-- * 'apAccount'

82--

85--

83-- * 'apKey'

86-- * 'apKey'

84--

87--

85-- * 'apId'

88-- * 'apId'

86--

89--

87−-- * 'apOauthToken'

90+-- * 'apOAuthToken'

88--

91--

89-- * 'apFields'

92-- * 'apFields'

90−--

91−-- * 'apAlt'

92accountsPatch'

93accountsPatch'

94+ :: Account -- ^ 'Account'

93− :: Int32 -- ^ 'id'

95+ -> Int32 -- ^ 'id'

94 -> AccountsPatch'

96 -> AccountsPatch'

95−accountsPatch' pApId_ =

97+accountsPatch' pApAccount_ pApId_ =

96 AccountsPatch'

98 AccountsPatch'

97 { _apQuotaUser = Nothing

99 { _apQuotaUser = Nothing

98 , _apPrettyPrint = True

100 , _apPrettyPrint = True

99− , _apUserIp = Nothing

101+ , _apUserIP = Nothing

102+ , _apAccount = pApAccount_

100 , _apKey = Nothing

103 , _apKey = Nothing

101 , _apId = pApId_

104 , _apId = pApId_

102− , _apOauthToken = Nothing

105+ , _apOAuthToken = Nothing

103 , _apFields = Nothing

106 , _apFields = Nothing

104− , _apAlt = JSON

105 }

107 }

106

108

107-- | Available to use for quota purposes for server-side applications. Can be

109-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,13 +121,18 @@ apPrettyPrint

119

121

120-- | IP address of the site where the request originates. Use this if you

122-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

123-- want to enforce per-user limits.

122−apUserIp :: Lens' AccountsPatch' (Maybe Text)

124+apUserIP :: Lens' AccountsPatch' (Maybe Text)

123−apUserIp = lens _apUserIp (\ s a -> s{_apUserIp = a})

125+apUserIP = lens _apUserIP (\ s a -> s{_apUserIP = a})

126+

127+-- | Multipart request metadata.

128+apAccount :: Lens' AccountsPatch' Account

129+apAccount

130+ = lens _apAccount (\ s a -> s{_apAccount = a})

124

131

125-- | API key. Your API key identifies your project and provides you with API

132-- | API key. Your API key identifies your project and provides you with API

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

133-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- token.

134-- token.

128−apKey :: Lens' AccountsPatch' (Maybe Text)

135+apKey :: Lens' AccountsPatch' (Maybe Key)

129apKey = lens _apKey (\ s a -> s{_apKey = a})

136apKey = lens _apKey (\ s a -> s{_apKey = a})

130

137

131-- | The account id

138-- | The account id

@@ -133,28 +140,29 @@ apId :: Lens' AccountsPatch' Int32

133apId = lens _apId (\ s a -> s{_apId = a})

140apId = lens _apId (\ s a -> s{_apId = a})

134

141

135-- | OAuth 2.0 token for the current user.

142-- | OAuth 2.0 token for the current user.

136−apOauthToken :: Lens' AccountsPatch' (Maybe Text)

143+apOAuthToken :: Lens' AccountsPatch' (Maybe OAuthToken)

137−apOauthToken

144+apOAuthToken

138− = lens _apOauthToken (\ s a -> s{_apOauthToken = a})

145+ = lens _apOAuthToken (\ s a -> s{_apOAuthToken = a})

139

146

140-- | Selector specifying which fields to include in a partial response.

147-- | Selector specifying which fields to include in a partial response.

141apFields :: Lens' AccountsPatch' (Maybe Text)

148apFields :: Lens' AccountsPatch' (Maybe Text)

142apFields = lens _apFields (\ s a -> s{_apFields = a})

149apFields = lens _apFields (\ s a -> s{_apFields = a})

143

150

144−-- | Data format for the response.

145−apAlt :: Lens' AccountsPatch' Alt

151+instance GoogleAuth AccountsPatch' where

146−apAlt = lens _apAlt (\ s a -> s{_apAlt = a})

152+ authKey = apKey . _Just

153+ authToken = apOAuthToken . _Just

147

154

148instance GoogleRequest AccountsPatch' where

155instance GoogleRequest AccountsPatch' where

149 type Rs AccountsPatch' = Account

156 type Rs AccountsPatch' = Account

150 request = requestWithRoute defReq adExchangeBuyerURL

157 request = requestWithRoute defReq adExchangeBuyerURL

151 requestWithRoute r u AccountsPatch'{..}

158 requestWithRoute r u AccountsPatch'{..}

152− = go _apQuotaUser (Just _apPrettyPrint) _apUserIp

159+ = go _apQuotaUser (Just _apPrettyPrint) _apUserIP

153 _apKey

160 _apKey

154 _apId

161 _apId

155− _apOauthToken

162+ _apOAuthToken

156 _apFields

163 _apFields

157− (Just _apAlt)

164+ (Just AltJSON)

165+ _apAccount

158 where go

166 where go

159 = clientWithRoute

167 = clientWithRoute

160 (Proxy :: Proxy AccountsPatchResource)

168 (Proxy :: Proxy AccountsPatchResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs+39−31

@@ -32,12 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.Accounts.Update

32 -- * Request Lenses

33 , auQuotaUser

34 , auPrettyPrint

35− , auUserIp

35+ , auUserIP

36+ , auAccount

36 , auKey

37 , auKey

37 , auId

38 , auId

38− , auOauthToken

39+ , auOAuthToken

39 , auFields

40 , auFields

40− , auAlt

41 ) where

42

43import Network.Google.AdExchangeBuyer.Types

@@ -51,10 +51,11 @@ type AccountsUpdateResource =

51 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

54+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Put '[JSON] Account

57+ QueryParam "alt" AltJSON :>

58+ ReqBody '[JSON] Account :> Put '[JSON] Account

58

59

59-- | Updates an existing account.

60-- | Updates an existing account.

60--

61--

@@ -62,12 +63,12 @@ type AccountsUpdateResource =

62data AccountsUpdate' = AccountsUpdate'

63data AccountsUpdate' = AccountsUpdate'

63 { _auQuotaUser :: !(Maybe Text)

64 { _auQuotaUser :: !(Maybe Text)

64 , _auPrettyPrint :: !Bool

65 , _auPrettyPrint :: !Bool

65− , _auUserIp :: !(Maybe Text)

66+ , _auUserIP :: !(Maybe Text)

67+ , _auAccount :: !Account

66− , _auKey :: !(Maybe Text)

68+ , _auKey :: !(Maybe Key)

67 , _auId :: !Int32

69 , _auId :: !Int32

68− , _auOauthToken :: !(Maybe Text)

70+ , _auOAuthToken :: !(Maybe OAuthToken)

69 , _auFields :: !(Maybe Text)

71 , _auFields :: !(Maybe Text)

70− , _auAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

73

73-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.

74-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.

@@ -78,30 +79,31 @@ data AccountsUpdate' = AccountsUpdate'

78--

79--

79-- * 'auPrettyPrint'

80-- * 'auPrettyPrint'

80--

81--

81−-- * 'auUserIp'

82+-- * 'auUserIP'

83+--

84+-- * 'auAccount'

82--

85--

83-- * 'auKey'

86-- * 'auKey'

84--

87--

85-- * 'auId'

88-- * 'auId'

86--

89--

87−-- * 'auOauthToken'

90+-- * 'auOAuthToken'

88--

91--

89-- * 'auFields'

92-- * 'auFields'

90−--

91−-- * 'auAlt'

92accountsUpdate'

93accountsUpdate'

94+ :: Account -- ^ 'Account'

93− :: Int32 -- ^ 'id'

95+ -> Int32 -- ^ 'id'

94 -> AccountsUpdate'

96 -> AccountsUpdate'

95−accountsUpdate' pAuId_ =

97+accountsUpdate' pAuAccount_ pAuId_ =

96 AccountsUpdate'

98 AccountsUpdate'

97 { _auQuotaUser = Nothing

99 { _auQuotaUser = Nothing

98 , _auPrettyPrint = True

100 , _auPrettyPrint = True

99− , _auUserIp = Nothing

101+ , _auUserIP = Nothing

102+ , _auAccount = pAuAccount_

100 , _auKey = Nothing

103 , _auKey = Nothing

101 , _auId = pAuId_

104 , _auId = pAuId_

102− , _auOauthToken = Nothing

105+ , _auOAuthToken = Nothing

103 , _auFields = Nothing

106 , _auFields = Nothing

104− , _auAlt = JSON

105 }

107 }

106

108

107-- | Available to use for quota purposes for server-side applications. Can be

109-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,13 +121,18 @@ auPrettyPrint

119

121

120-- | IP address of the site where the request originates. Use this if you

122-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

123-- want to enforce per-user limits.

122−auUserIp :: Lens' AccountsUpdate' (Maybe Text)

124+auUserIP :: Lens' AccountsUpdate' (Maybe Text)

123−auUserIp = lens _auUserIp (\ s a -> s{_auUserIp = a})

125+auUserIP = lens _auUserIP (\ s a -> s{_auUserIP = a})

126+

127+-- | Multipart request metadata.

128+auAccount :: Lens' AccountsUpdate' Account

129+auAccount

130+ = lens _auAccount (\ s a -> s{_auAccount = a})

124

131

125-- | API key. Your API key identifies your project and provides you with API

132-- | API key. Your API key identifies your project and provides you with API

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

133-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- token.

134-- token.

128−auKey :: Lens' AccountsUpdate' (Maybe Text)

135+auKey :: Lens' AccountsUpdate' (Maybe Key)

129auKey = lens _auKey (\ s a -> s{_auKey = a})

136auKey = lens _auKey (\ s a -> s{_auKey = a})

130

137

131-- | The account id

138-- | The account id

@@ -133,28 +140,29 @@ auId :: Lens' AccountsUpdate' Int32

133auId = lens _auId (\ s a -> s{_auId = a})

140auId = lens _auId (\ s a -> s{_auId = a})

134

141

135-- | OAuth 2.0 token for the current user.

142-- | OAuth 2.0 token for the current user.

136−auOauthToken :: Lens' AccountsUpdate' (Maybe Text)

143+auOAuthToken :: Lens' AccountsUpdate' (Maybe OAuthToken)

137−auOauthToken

144+auOAuthToken

138− = lens _auOauthToken (\ s a -> s{_auOauthToken = a})

145+ = lens _auOAuthToken (\ s a -> s{_auOAuthToken = a})

139

146

140-- | Selector specifying which fields to include in a partial response.

147-- | Selector specifying which fields to include in a partial response.

141auFields :: Lens' AccountsUpdate' (Maybe Text)

148auFields :: Lens' AccountsUpdate' (Maybe Text)

142auFields = lens _auFields (\ s a -> s{_auFields = a})

149auFields = lens _auFields (\ s a -> s{_auFields = a})

143

150

144−-- | Data format for the response.

145−auAlt :: Lens' AccountsUpdate' Alt

151+instance GoogleAuth AccountsUpdate' where

146−auAlt = lens _auAlt (\ s a -> s{_auAlt = a})

152+ authKey = auKey . _Just

153+ authToken = auOAuthToken . _Just

147

154

148instance GoogleRequest AccountsUpdate' where

155instance GoogleRequest AccountsUpdate' where

149 type Rs AccountsUpdate' = Account

156 type Rs AccountsUpdate' = Account

150 request = requestWithRoute defReq adExchangeBuyerURL

157 request = requestWithRoute defReq adExchangeBuyerURL

151 requestWithRoute r u AccountsUpdate'{..}

158 requestWithRoute r u AccountsUpdate'{..}

152− = go _auQuotaUser (Just _auPrettyPrint) _auUserIp

159+ = go _auQuotaUser (Just _auPrettyPrint) _auUserIP

153 _auKey

160 _auKey

154 _auId

161 _auId

155− _auOauthToken

162+ _auOAuthToken

156 _auFields

163 _auFields

157− (Just _auAlt)

164+ (Just AltJSON)

165+ _auAccount

158 where go

166 where go

159 = clientWithRoute

167 = clientWithRoute

160 (Proxy :: Proxy AccountsUpdateResource)

168 (Proxy :: Proxy AccountsUpdateResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs+26−31

@@ -32,12 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get

32 -- * Request Lenses

33 , bigQuotaUser

34 , bigPrettyPrint

35− , bigUserIp

35+ , bigUserIP

36 , bigAccountId

37 , bigKey

38− , bigOauthToken

38+ , bigOAuthToken

39 , bigFields

40− , bigAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeBuyer.Types

42import Network.Google.AdExchangeBuyer.Types

@@ -51,10 +50,10 @@ type BillingInfoGetResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

55 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] BillingInfo

56+ QueryParam "alt" AltJSON :> Get '[JSON] BillingInfo

58

57

59-- | Returns the billing information for one account specified by account ID.

58-- | Returns the billing information for one account specified by account ID.

60--

59--

@@ -62,12 +61,11 @@ type BillingInfoGetResource =

62data BillingInfoGet' = BillingInfoGet'

61data BillingInfoGet' = BillingInfoGet'

63 { _bigQuotaUser :: !(Maybe Text)

62 { _bigQuotaUser :: !(Maybe Text)

64 , _bigPrettyPrint :: !Bool

63 , _bigPrettyPrint :: !Bool

65− , _bigUserIp :: !(Maybe Text)

64+ , _bigUserIP :: !(Maybe Text)

66 , _bigAccountId :: !Int32

65 , _bigAccountId :: !Int32

67− , _bigKey :: !(Maybe Text)

66+ , _bigKey :: !(Maybe Key)

68− , _bigOauthToken :: !(Maybe Text)

67+ , _bigOAuthToken :: !(Maybe OAuthToken)

69 , _bigFields :: !(Maybe Text)

68 , _bigFields :: !(Maybe Text)

70− , _bigAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

70

73-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.

71-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.

@@ -78,17 +76,15 @@ data BillingInfoGet' = BillingInfoGet'

78--

76--

79-- * 'bigPrettyPrint'

77-- * 'bigPrettyPrint'

80--

78--

81−-- * 'bigUserIp'

79+-- * 'bigUserIP'

82--

80--

83-- * 'bigAccountId'

81-- * 'bigAccountId'

84--

82--

85-- * 'bigKey'

83-- * 'bigKey'

86--

84--

87−-- * 'bigOauthToken'

85+-- * 'bigOAuthToken'

88--

86--

89-- * 'bigFields'

87-- * 'bigFields'

90−--

91−-- * 'bigAlt'

92billingInfoGet'

88billingInfoGet'

93 :: Int32 -- ^ 'accountId'

89 :: Int32 -- ^ 'accountId'

94 -> BillingInfoGet'

90 -> BillingInfoGet'

@@ -96,12 +92,11 @@ billingInfoGet' pBigAccountId_ =

96 BillingInfoGet'

92 BillingInfoGet'

97 { _bigQuotaUser = Nothing

93 { _bigQuotaUser = Nothing

98 , _bigPrettyPrint = True

94 , _bigPrettyPrint = True

99− , _bigUserIp = Nothing

95+ , _bigUserIP = Nothing

100 , _bigAccountId = pBigAccountId_

96 , _bigAccountId = pBigAccountId_

101 , _bigKey = Nothing

97 , _bigKey = Nothing

102− , _bigOauthToken = Nothing

98+ , _bigOAuthToken = Nothing

103 , _bigFields = Nothing

99 , _bigFields = Nothing

104− , _bigAlt = JSON

105 }

100 }

106

101

107-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,9 +114,9 @@ bigPrettyPrint

119

114

120-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

116-- want to enforce per-user limits.

122−bigUserIp :: Lens' BillingInfoGet' (Maybe Text)

117+bigUserIP :: Lens' BillingInfoGet' (Maybe Text)

123−bigUserIp

118+bigUserIP

124− = lens _bigUserIp (\ s a -> s{_bigUserIp = a})

119+ = lens _bigUserIP (\ s a -> s{_bigUserIP = a})

125

120

126-- | The account id.

121-- | The account id.

127bigAccountId :: Lens' BillingInfoGet' Int32

122bigAccountId :: Lens' BillingInfoGet' Int32

@@ -131,34 +126,34 @@ bigAccountId

131-- | API key. Your API key identifies your project and provides you with API

126-- | API key. Your API key identifies your project and provides you with API

132-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- access, quota, and reports. Required unless you provide an OAuth 2.0

133-- token.

128-- token.

134−bigKey :: Lens' BillingInfoGet' (Maybe Text)

129+bigKey :: Lens' BillingInfoGet' (Maybe Key)

135bigKey = lens _bigKey (\ s a -> s{_bigKey = a})

130bigKey = lens _bigKey (\ s a -> s{_bigKey = a})

136

131

137-- | OAuth 2.0 token for the current user.

132-- | OAuth 2.0 token for the current user.

138−bigOauthToken :: Lens' BillingInfoGet' (Maybe Text)

133+bigOAuthToken :: Lens' BillingInfoGet' (Maybe OAuthToken)

139−bigOauthToken

134+bigOAuthToken

140− = lens _bigOauthToken

135+ = lens _bigOAuthToken

141− (\ s a -> s{_bigOauthToken = a})

136+ (\ s a -> s{_bigOAuthToken = a})

142

137

143-- | Selector specifying which fields to include in a partial response.

138-- | Selector specifying which fields to include in a partial response.

144bigFields :: Lens' BillingInfoGet' (Maybe Text)

139bigFields :: Lens' BillingInfoGet' (Maybe Text)

145bigFields

140bigFields

146 = lens _bigFields (\ s a -> s{_bigFields = a})

141 = lens _bigFields (\ s a -> s{_bigFields = a})

147

142

148−-- | Data format for the response.

149−bigAlt :: Lens' BillingInfoGet' Alt

143+instance GoogleAuth BillingInfoGet' where

150−bigAlt = lens _bigAlt (\ s a -> s{_bigAlt = a})

144+ authKey = bigKey . _Just

145+ authToken = bigOAuthToken . _Just

151

146

152instance GoogleRequest BillingInfoGet' where

147instance GoogleRequest BillingInfoGet' where

153 type Rs BillingInfoGet' = BillingInfo

148 type Rs BillingInfoGet' = BillingInfo

154 request = requestWithRoute defReq adExchangeBuyerURL

149 request = requestWithRoute defReq adExchangeBuyerURL

155 requestWithRoute r u BillingInfoGet'{..}

150 requestWithRoute r u BillingInfoGet'{..}

156− = go _bigQuotaUser (Just _bigPrettyPrint) _bigUserIp

151+ = go _bigQuotaUser (Just _bigPrettyPrint) _bigUserIP

157 _bigAccountId

152 _bigAccountId

158 _bigKey

153 _bigKey

159− _bigOauthToken

154+ _bigOAuthToken

160 _bigFields

155 _bigFields

161− (Just _bigAlt)

156+ (Just AltJSON)

162 where go

157 where go

163 = clientWithRoute

158 = clientWithRoute

164 (Proxy :: Proxy BillingInfoGetResource)

159 (Proxy :: Proxy BillingInfoGetResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs+27−31

@@ -33,11 +33,10 @@ module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List

33 -- * Request Lenses

34 , bilQuotaUser

35 , bilPrettyPrint

36− , bilUserIp

36+ , bilUserIP

37 , bilKey

38− , bilOauthToken

38+ , bilOAuthToken

39 , bilFields

40− , bilAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeBuyer.Types

42import Network.Google.AdExchangeBuyer.Types

@@ -50,10 +49,11 @@ type BillingInfoListResource =

50 QueryParam "quotaUser" Text :>

49 QueryParam "quotaUser" Text :>

51 QueryParam "prettyPrint" Bool :>

50 QueryParam "prettyPrint" Bool :>

52 QueryParam "userIp" Text :>

51 QueryParam "userIp" Text :>

53− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

54− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

55 QueryParam "fields" Text :>

54 QueryParam "fields" Text :>

55+ QueryParam "alt" AltJSON :>

56− QueryParam "alt" Alt :> Get '[JSON] BillingInfoList

56+ Get '[JSON] BillingInfoList

57

58-- | Retrieves a list of billing information for all accounts of the

59-- authenticated user.

@@ -62,11 +62,10 @@ type BillingInfoListResource =

62data BillingInfoList' = BillingInfoList'

63 { _bilQuotaUser :: !(Maybe Text)

64 , _bilPrettyPrint :: !Bool

65− , _bilUserIp :: !(Maybe Text)

65+ , _bilUserIP :: !(Maybe Text)

66− , _bilKey :: !(Maybe Text)

66+ , _bilKey :: !(Maybe Key)

67− , _bilOauthToken :: !(Maybe Text)

67+ , _bilOAuthToken :: !(Maybe OAuthToken)

68 , _bilFields :: !(Maybe Text)

69− , _bilAlt :: !Alt

70 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

71

70

72-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.

71-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.

@@ -77,26 +76,23 @@ data BillingInfoList' = BillingInfoList'

77--

76--

78-- * 'bilPrettyPrint'

77-- * 'bilPrettyPrint'

79--

78--

80−-- * 'bilUserIp'

79+-- * 'bilUserIP'

81--

80--

82-- * 'bilKey'

81-- * 'bilKey'

83--

82--

84−-- * 'bilOauthToken'

83+-- * 'bilOAuthToken'

85--

84--

86-- * 'bilFields'

85-- * 'bilFields'

87−--

88−-- * 'bilAlt'

89billingInfoList'

86billingInfoList'

90 :: BillingInfoList'

87 :: BillingInfoList'

91billingInfoList' =

88billingInfoList' =

92 BillingInfoList'

89 BillingInfoList'

93 { _bilQuotaUser = Nothing

90 { _bilQuotaUser = Nothing

94 , _bilPrettyPrint = True

91 , _bilPrettyPrint = True

95− , _bilUserIp = Nothing

92+ , _bilUserIP = Nothing

96 , _bilKey = Nothing

93 , _bilKey = Nothing

97− , _bilOauthToken = Nothing

94+ , _bilOAuthToken = Nothing

98 , _bilFields = Nothing

95 , _bilFields = Nothing

99− , _bilAlt = JSON

100 }

96 }

101

97

102-- | Available to use for quota purposes for server-side applications. Can be

98-- | Available to use for quota purposes for server-side applications. Can be

@@ -114,40 +110,40 @@ bilPrettyPrint

114

110

115-- | IP address of the site where the request originates. Use this if you

111-- | IP address of the site where the request originates. Use this if you

116-- want to enforce per-user limits.

112-- want to enforce per-user limits.

117−bilUserIp :: Lens' BillingInfoList' (Maybe Text)

113+bilUserIP :: Lens' BillingInfoList' (Maybe Text)

118−bilUserIp

114+bilUserIP

119− = lens _bilUserIp (\ s a -> s{_bilUserIp = a})

115+ = lens _bilUserIP (\ s a -> s{_bilUserIP = a})

120

116

121-- | API key. Your API key identifies your project and provides you with API

117-- | API key. Your API key identifies your project and provides you with API

122-- access, quota, and reports. Required unless you provide an OAuth 2.0

118-- access, quota, and reports. Required unless you provide an OAuth 2.0

123-- token.

119-- token.

124−bilKey :: Lens' BillingInfoList' (Maybe Text)

120+bilKey :: Lens' BillingInfoList' (Maybe Key)

125bilKey = lens _bilKey (\ s a -> s{_bilKey = a})

121bilKey = lens _bilKey (\ s a -> s{_bilKey = a})

126

122

127-- | OAuth 2.0 token for the current user.

123-- | OAuth 2.0 token for the current user.

128−bilOauthToken :: Lens' BillingInfoList' (Maybe Text)

124+bilOAuthToken :: Lens' BillingInfoList' (Maybe OAuthToken)

129−bilOauthToken

125+bilOAuthToken

130− = lens _bilOauthToken

126+ = lens _bilOAuthToken

131− (\ s a -> s{_bilOauthToken = a})

127+ (\ s a -> s{_bilOAuthToken = a})

132

128

133-- | Selector specifying which fields to include in a partial response.

129-- | Selector specifying which fields to include in a partial response.

134bilFields :: Lens' BillingInfoList' (Maybe Text)

130bilFields :: Lens' BillingInfoList' (Maybe Text)

135bilFields

131bilFields

136 = lens _bilFields (\ s a -> s{_bilFields = a})

132 = lens _bilFields (\ s a -> s{_bilFields = a})

137

133

138−-- | Data format for the response.

139−bilAlt :: Lens' BillingInfoList' Alt

134+instance GoogleAuth BillingInfoList' where

140−bilAlt = lens _bilAlt (\ s a -> s{_bilAlt = a})

135+ authKey = bilKey . _Just

136+ authToken = bilOAuthToken . _Just

141

137

142instance GoogleRequest BillingInfoList' where

138instance GoogleRequest BillingInfoList' where

143 type Rs BillingInfoList' = BillingInfoList

139 type Rs BillingInfoList' = BillingInfoList

144 request = requestWithRoute defReq adExchangeBuyerURL

140 request = requestWithRoute defReq adExchangeBuyerURL

145 requestWithRoute r u BillingInfoList'{..}

141 requestWithRoute r u BillingInfoList'{..}

146− = go _bilQuotaUser (Just _bilPrettyPrint) _bilUserIp

142+ = go _bilQuotaUser (Just _bilPrettyPrint) _bilUserIP

147 _bilKey

143 _bilKey

148− _bilOauthToken

144+ _bilOAuthToken

149 _bilFields

145 _bilFields

150− (Just _bilAlt)

146+ (Just AltJSON)

151 where go

147 where go

152 = clientWithRoute

148 = clientWithRoute

153 (Proxy :: Proxy BillingInfoListResource)

149 (Proxy :: Proxy BillingInfoListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs+24−29

@@ -33,13 +33,12 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Get

33 -- * Request Lenses

34 , bgQuotaUser

35 , bgPrettyPrint

36− , bgUserIp

36+ , bgUserIP

37 , bgAccountId

38 , bgKey

39− , bgOauthToken

39+ , bgOAuthToken

40 , bgBillingId

41 , bgFields

42− , bgAlt

43 ) where

42 ) where

44

43

45import Network.Google.AdExchangeBuyer.Types

44import Network.Google.AdExchangeBuyer.Types

@@ -54,10 +53,10 @@ type BudgetGetResource =

54 QueryParam "quotaUser" Text :>

53 QueryParam "quotaUser" Text :>

55 QueryParam "prettyPrint" Bool :>

54 QueryParam "prettyPrint" Bool :>

56 QueryParam "userIp" Text :>

55 QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

56+ QueryParam "key" Key :>

58− QueryParam "oauth_token" Text :>

57+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "fields" Text :>

58 QueryParam "fields" Text :>

60− QueryParam "alt" Alt :> Get '[JSON] Budget

59+ QueryParam "alt" AltJSON :> Get '[JSON] Budget

61

60

62-- | Returns the budget information for the adgroup specified by the

61-- | Returns the budget information for the adgroup specified by the

63-- accountId and billingId.

62-- accountId and billingId.

@@ -66,13 +65,12 @@ type BudgetGetResource =

66data BudgetGet' = BudgetGet'

65data BudgetGet' = BudgetGet'

67 { _bgQuotaUser :: !(Maybe Text)

66 { _bgQuotaUser :: !(Maybe Text)

68 , _bgPrettyPrint :: !Bool

67 , _bgPrettyPrint :: !Bool

69− , _bgUserIp :: !(Maybe Text)

68+ , _bgUserIP :: !(Maybe Text)

70 , _bgAccountId :: !Int64

69 , _bgAccountId :: !Int64

71− , _bgKey :: !(Maybe Text)

70+ , _bgKey :: !(Maybe Key)

72− , _bgOauthToken :: !(Maybe Text)

71+ , _bgOAuthToken :: !(Maybe OAuthToken)

73 , _bgBillingId :: !Int64

72 , _bgBillingId :: !Int64

74 , _bgFields :: !(Maybe Text)

73 , _bgFields :: !(Maybe Text)

75− , _bgAlt :: !Alt

76 } deriving (Eq,Read,Show,Data,Typeable,Generic)

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

77

75

78-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.

76-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.

@@ -83,19 +81,17 @@ data BudgetGet' = BudgetGet'

83--

81--

84-- * 'bgPrettyPrint'

82-- * 'bgPrettyPrint'

85--

83--

86−-- * 'bgUserIp'

84+-- * 'bgUserIP'

87--

85--

88-- * 'bgAccountId'

86-- * 'bgAccountId'

89--

87--

90-- * 'bgKey'

88-- * 'bgKey'

91--

89--

92−-- * 'bgOauthToken'

90+-- * 'bgOAuthToken'

93--

91--

94-- * 'bgBillingId'

92-- * 'bgBillingId'

95--

93--

96-- * 'bgFields'

94-- * 'bgFields'

97−--

98−-- * 'bgAlt'

99budgetGet'

95budgetGet'

100 :: Int64 -- ^ 'accountId'

96 :: Int64 -- ^ 'accountId'

101 -> Int64 -- ^ 'billingId'

97 -> Int64 -- ^ 'billingId'

@@ -104,13 +100,12 @@ budgetGet' pBgAccountId_ pBgBillingId_ =

104 BudgetGet'

100 BudgetGet'

105 { _bgQuotaUser = Nothing

101 { _bgQuotaUser = Nothing

106 , _bgPrettyPrint = True

102 , _bgPrettyPrint = True

107− , _bgUserIp = Nothing

103+ , _bgUserIP = Nothing

108 , _bgAccountId = pBgAccountId_

104 , _bgAccountId = pBgAccountId_

109 , _bgKey = Nothing

105 , _bgKey = Nothing

110− , _bgOauthToken = Nothing

106+ , _bgOAuthToken = Nothing

111 , _bgBillingId = pBgBillingId_

107 , _bgBillingId = pBgBillingId_

112 , _bgFields = Nothing

108 , _bgFields = Nothing

113− , _bgAlt = JSON

114 }

109 }

115

110

116-- | Available to use for quota purposes for server-side applications. Can be

111-- | Available to use for quota purposes for server-side applications. Can be

@@ -128,8 +123,8 @@ bgPrettyPrint

128

123

129-- | IP address of the site where the request originates. Use this if you

124-- | IP address of the site where the request originates. Use this if you

130-- want to enforce per-user limits.

125-- want to enforce per-user limits.

131−bgUserIp :: Lens' BudgetGet' (Maybe Text)

126+bgUserIP :: Lens' BudgetGet' (Maybe Text)

132−bgUserIp = lens _bgUserIp (\ s a -> s{_bgUserIp = a})

127+bgUserIP = lens _bgUserIP (\ s a -> s{_bgUserIP = a})

133

128

134-- | The account id to get the budget information for.

129-- | The account id to get the budget information for.

135bgAccountId :: Lens' BudgetGet' Int64

130bgAccountId :: Lens' BudgetGet' Int64

@@ -139,13 +134,13 @@ bgAccountId

139-- | API key. Your API key identifies your project and provides you with API

134-- | API key. Your API key identifies your project and provides you with API

140-- access, quota, and reports. Required unless you provide an OAuth 2.0

135-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- token.

136-- token.

142−bgKey :: Lens' BudgetGet' (Maybe Text)

137+bgKey :: Lens' BudgetGet' (Maybe Key)

143bgKey = lens _bgKey (\ s a -> s{_bgKey = a})

138bgKey = lens _bgKey (\ s a -> s{_bgKey = a})

144

139

145-- | OAuth 2.0 token for the current user.

140-- | OAuth 2.0 token for the current user.

146−bgOauthToken :: Lens' BudgetGet' (Maybe Text)

141+bgOAuthToken :: Lens' BudgetGet' (Maybe OAuthToken)

147−bgOauthToken

142+bgOAuthToken

148− = lens _bgOauthToken (\ s a -> s{_bgOauthToken = a})

143+ = lens _bgOAuthToken (\ s a -> s{_bgOAuthToken = a})

149

144

150-- | The billing id to get the budget information for.

145-- | The billing id to get the budget information for.

151bgBillingId :: Lens' BudgetGet' Int64

146bgBillingId :: Lens' BudgetGet' Int64

@@ -156,21 +151,21 @@ bgBillingId

156bgFields :: Lens' BudgetGet' (Maybe Text)

151bgFields :: Lens' BudgetGet' (Maybe Text)

157bgFields = lens _bgFields (\ s a -> s{_bgFields = a})

152bgFields = lens _bgFields (\ s a -> s{_bgFields = a})

158

153

159−-- | Data format for the response.

154+instance GoogleAuth BudgetGet' where

160−bgAlt :: Lens' BudgetGet' Alt

155+ authKey = bgKey . _Just

161−bgAlt = lens _bgAlt (\ s a -> s{_bgAlt = a})

156+ authToken = bgOAuthToken . _Just

162

157

163instance GoogleRequest BudgetGet' where

158instance GoogleRequest BudgetGet' where

164 type Rs BudgetGet' = Budget

159 type Rs BudgetGet' = Budget

165 request = requestWithRoute defReq adExchangeBuyerURL

160 request = requestWithRoute defReq adExchangeBuyerURL

166 requestWithRoute r u BudgetGet'{..}

161 requestWithRoute r u BudgetGet'{..}

167− = go _bgQuotaUser (Just _bgPrettyPrint) _bgUserIp

162+ = go _bgQuotaUser (Just _bgPrettyPrint) _bgUserIP

168 _bgAccountId

163 _bgAccountId

169 _bgKey

164 _bgKey

170− _bgOauthToken

165+ _bgOAuthToken

171 _bgBillingId

166 _bgBillingId

172 _bgFields

167 _bgFields

173− (Just _bgAlt)

168+ (Just AltJSON)

174 where go

169 where go

175 = clientWithRoute (Proxy :: Proxy BudgetGetResource)

170 = clientWithRoute (Proxy :: Proxy BudgetGetResource)

176 r

171 r

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs+38−31

@@ -34,13 +34,13 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Patch

34 -- * Request Lenses

35 , bpQuotaUser

36 , bpPrettyPrint

37− , bpUserIp

37+ , bpBudget

38+ , bpUserIP

38 , bpAccountId

39 , bpAccountId

39 , bpKey

40 , bpKey

40− , bpOauthToken

41+ , bpOAuthToken

41 , bpBillingId

42 , bpBillingId

42 , bpFields

43 , bpFields

43− , bpAlt

44 ) where

45

46import Network.Google.AdExchangeBuyer.Types

@@ -55,10 +55,11 @@ type BudgetPatchResource =

55 QueryParam "quotaUser" Text :>

56 QueryParam "prettyPrint" Bool :>

57 QueryParam "userIp" Text :>

58− QueryParam "key" Text :>

58+ QueryParam "key" Key :>

59− QueryParam "oauth_token" Text :>

59+ QueryParam "oauth_token" OAuthToken :>

60 QueryParam "fields" Text :>

61− QueryParam "alt" Alt :> Patch '[JSON] Budget

61+ QueryParam "alt" AltJSON :>

62+ ReqBody '[JSON] Budget :> Patch '[JSON] Budget

62

63

63-- | Updates the budget amount for the budget of the adgroup specified by the

64-- | Updates the budget amount for the budget of the adgroup specified by the

64-- accountId and billingId, with the budget amount in the request. This

65-- accountId and billingId, with the budget amount in the request. This

@@ -68,13 +69,13 @@ type BudgetPatchResource =

68data BudgetPatch' = BudgetPatch'

69data BudgetPatch' = BudgetPatch'

69 { _bpQuotaUser :: !(Maybe Text)

70 { _bpQuotaUser :: !(Maybe Text)

70 , _bpPrettyPrint :: !Bool

71 , _bpPrettyPrint :: !Bool

72+ , _bpBudget :: !Budget

71− , _bpUserIp :: !(Maybe Text)

73+ , _bpUserIP :: !(Maybe Text)

72 , _bpAccountId :: !Int64

74 , _bpAccountId :: !Int64

73− , _bpKey :: !(Maybe Text)

75+ , _bpKey :: !(Maybe Key)

74− , _bpOauthToken :: !(Maybe Text)

76+ , _bpOAuthToken :: !(Maybe OAuthToken)

75 , _bpBillingId :: !Int64

77 , _bpBillingId :: !Int64

76 , _bpFields :: !(Maybe Text)

78 , _bpFields :: !(Maybe Text)

77− , _bpAlt :: !Alt

78 } deriving (Eq,Read,Show,Data,Typeable,Generic)

79 } deriving (Eq,Read,Show,Data,Typeable,Generic)

79

80

80-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.

81-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.

@@ -85,34 +86,35 @@ data BudgetPatch' = BudgetPatch'

85--

86--

86-- * 'bpPrettyPrint'

87-- * 'bpPrettyPrint'

87--

88--

88−-- * 'bpUserIp'

89+-- * 'bpBudget'

90+--

91+-- * 'bpUserIP'

89--

92--

90-- * 'bpAccountId'

93-- * 'bpAccountId'

91--

94--

92-- * 'bpKey'

95-- * 'bpKey'

93--

96--

94−-- * 'bpOauthToken'

97+-- * 'bpOAuthToken'

95--

98--

96-- * 'bpBillingId'

99-- * 'bpBillingId'

97--

100--

98-- * 'bpFields'

101-- * 'bpFields'

99−--

100−-- * 'bpAlt'

101budgetPatch'

102budgetPatch'

103+ :: Budget -- ^ 'Budget'

102− :: Int64 -- ^ 'accountId'

104+ -> Int64 -- ^ 'accountId'

103 -> Int64 -- ^ 'billingId'

105 -> Int64 -- ^ 'billingId'

104 -> BudgetPatch'

106 -> BudgetPatch'

105−budgetPatch' pBpAccountId_ pBpBillingId_ =

107+budgetPatch' pBpBudget_ pBpAccountId_ pBpBillingId_ =

106 BudgetPatch'

108 BudgetPatch'

107 { _bpQuotaUser = Nothing

109 { _bpQuotaUser = Nothing

108 , _bpPrettyPrint = True

110 , _bpPrettyPrint = True

111+ , _bpBudget = pBpBudget_

109− , _bpUserIp = Nothing

112+ , _bpUserIP = Nothing

110 , _bpAccountId = pBpAccountId_

113 , _bpAccountId = pBpAccountId_

111 , _bpKey = Nothing

114 , _bpKey = Nothing

112− , _bpOauthToken = Nothing

115+ , _bpOAuthToken = Nothing

113 , _bpBillingId = pBpBillingId_

116 , _bpBillingId = pBpBillingId_

114 , _bpFields = Nothing

117 , _bpFields = Nothing

115− , _bpAlt = JSON

116 }

118 }

117

119

118-- | Available to use for quota purposes for server-side applications. Can be

120-- | Available to use for quota purposes for server-side applications. Can be

@@ -128,10 +130,14 @@ bpPrettyPrint

128 = lens _bpPrettyPrint

130 = lens _bpPrettyPrint

129 (\ s a -> s{_bpPrettyPrint = a})

131 (\ s a -> s{_bpPrettyPrint = a})

130

132

133+-- | Multipart request metadata.

134+bpBudget :: Lens' BudgetPatch' Budget

135+bpBudget = lens _bpBudget (\ s a -> s{_bpBudget = a})

136+

131-- | IP address of the site where the request originates. Use this if you

137-- | IP address of the site where the request originates. Use this if you

132-- want to enforce per-user limits.

138-- want to enforce per-user limits.

133−bpUserIp :: Lens' BudgetPatch' (Maybe Text)

139+bpUserIP :: Lens' BudgetPatch' (Maybe Text)

134−bpUserIp = lens _bpUserIp (\ s a -> s{_bpUserIp = a})

140+bpUserIP = lens _bpUserIP (\ s a -> s{_bpUserIP = a})

135

141

136-- | The account id associated with the budget being updated.

142-- | The account id associated with the budget being updated.

137bpAccountId :: Lens' BudgetPatch' Int64

143bpAccountId :: Lens' BudgetPatch' Int64

@@ -141,13 +147,13 @@ bpAccountId

141-- | API key. Your API key identifies your project and provides you with API

147-- | API key. Your API key identifies your project and provides you with API

142-- access, quota, and reports. Required unless you provide an OAuth 2.0

148-- access, quota, and reports. Required unless you provide an OAuth 2.0

143-- token.

149-- token.

144−bpKey :: Lens' BudgetPatch' (Maybe Text)

150+bpKey :: Lens' BudgetPatch' (Maybe Key)

145bpKey = lens _bpKey (\ s a -> s{_bpKey = a})

151bpKey = lens _bpKey (\ s a -> s{_bpKey = a})

146

152

147-- | OAuth 2.0 token for the current user.

153-- | OAuth 2.0 token for the current user.

148−bpOauthToken :: Lens' BudgetPatch' (Maybe Text)

154+bpOAuthToken :: Lens' BudgetPatch' (Maybe OAuthToken)

149−bpOauthToken

155+bpOAuthToken

150− = lens _bpOauthToken (\ s a -> s{_bpOauthToken = a})

156+ = lens _bpOAuthToken (\ s a -> s{_bpOAuthToken = a})

151

157

152-- | The billing id associated with the budget being updated.

158-- | The billing id associated with the budget being updated.

153bpBillingId :: Lens' BudgetPatch' Int64

159bpBillingId :: Lens' BudgetPatch' Int64

@@ -158,21 +164,22 @@ bpBillingId

158bpFields :: Lens' BudgetPatch' (Maybe Text)

164bpFields :: Lens' BudgetPatch' (Maybe Text)

159bpFields = lens _bpFields (\ s a -> s{_bpFields = a})

165bpFields = lens _bpFields (\ s a -> s{_bpFields = a})

160

166

161−-- | Data format for the response.

167+instance GoogleAuth BudgetPatch' where

162−bpAlt :: Lens' BudgetPatch' Alt

168+ authKey = bpKey . _Just

163−bpAlt = lens _bpAlt (\ s a -> s{_bpAlt = a})

169+ authToken = bpOAuthToken . _Just

164

170

165instance GoogleRequest BudgetPatch' where

171instance GoogleRequest BudgetPatch' where

166 type Rs BudgetPatch' = Budget

172 type Rs BudgetPatch' = Budget

167 request = requestWithRoute defReq adExchangeBuyerURL

173 request = requestWithRoute defReq adExchangeBuyerURL

168 requestWithRoute r u BudgetPatch'{..}

174 requestWithRoute r u BudgetPatch'{..}

169− = go _bpQuotaUser (Just _bpPrettyPrint) _bpUserIp

175+ = go _bpQuotaUser (Just _bpPrettyPrint) _bpUserIP

170 _bpAccountId

176 _bpAccountId

171 _bpKey

177 _bpKey

172− _bpOauthToken

178+ _bpOAuthToken

173 _bpBillingId

179 _bpBillingId

174 _bpFields

180 _bpFields

175− (Just _bpAlt)

181+ (Just AltJSON)

182+ _bpBudget

176 where go

183 where go

177 = clientWithRoute

184 = clientWithRoute

178 (Proxy :: Proxy BudgetPatchResource)

185 (Proxy :: Proxy BudgetPatchResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs+38−31

@@ -33,13 +33,13 @@ module Network.Google.Resource.AdExchangeBuyer.Budget.Update

33 -- * Request Lenses

34 , buQuotaUser

35 , buPrettyPrint

36− , buUserIp

36+ , buBudget

37+ , buUserIP

37 , buAccountId

38 , buAccountId

38 , buKey

39 , buKey

39− , buOauthToken

40+ , buOAuthToken

40 , buBillingId

41 , buBillingId

41 , buFields

42 , buFields

42− , buAlt

43 ) where

44

45import Network.Google.AdExchangeBuyer.Types

@@ -54,10 +54,11 @@ type BudgetUpdateResource =

54 QueryParam "quotaUser" Text :>

55 QueryParam "prettyPrint" Bool :>

56 QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

57+ QueryParam "key" Key :>

58− QueryParam "oauth_token" Text :>

58+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "fields" Text :>

60− QueryParam "alt" Alt :> Put '[JSON] Budget

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] Budget :> Put '[JSON] Budget

61

62

62-- | Updates the budget amount for the budget of the adgroup specified by the

63-- | Updates the budget amount for the budget of the adgroup specified by the

63-- accountId and billingId, with the budget amount in the request.

64-- accountId and billingId, with the budget amount in the request.

@@ -66,13 +67,13 @@ type BudgetUpdateResource =

66data BudgetUpdate' = BudgetUpdate'

67data BudgetUpdate' = BudgetUpdate'

67 { _buQuotaUser :: !(Maybe Text)

68 { _buQuotaUser :: !(Maybe Text)

68 , _buPrettyPrint :: !Bool

69 , _buPrettyPrint :: !Bool

70+ , _buBudget :: !Budget

69− , _buUserIp :: !(Maybe Text)

71+ , _buUserIP :: !(Maybe Text)

70 , _buAccountId :: !Int64

72 , _buAccountId :: !Int64

71− , _buKey :: !(Maybe Text)

73+ , _buKey :: !(Maybe Key)

72− , _buOauthToken :: !(Maybe Text)

74+ , _buOAuthToken :: !(Maybe OAuthToken)

73 , _buBillingId :: !Int64

75 , _buBillingId :: !Int64

74 , _buFields :: !(Maybe Text)

76 , _buFields :: !(Maybe Text)

75− , _buAlt :: !Alt

76 } deriving (Eq,Read,Show,Data,Typeable,Generic)

77 } deriving (Eq,Read,Show,Data,Typeable,Generic)

77

78

78-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.

79-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.

@@ -83,34 +84,35 @@ data BudgetUpdate' = BudgetUpdate'

83--

84--

84-- * 'buPrettyPrint'

85-- * 'buPrettyPrint'

85--

86--

86−-- * 'buUserIp'

87+-- * 'buBudget'

88+--

89+-- * 'buUserIP'

87--

90--

88-- * 'buAccountId'

91-- * 'buAccountId'

89--

92--

90-- * 'buKey'

93-- * 'buKey'

91--

94--

92−-- * 'buOauthToken'

95+-- * 'buOAuthToken'

93--

96--

94-- * 'buBillingId'

97-- * 'buBillingId'

95--

98--

96-- * 'buFields'

99-- * 'buFields'

97−--

98−-- * 'buAlt'

99budgetUpdate'

100budgetUpdate'

101+ :: Budget -- ^ 'Budget'

100− :: Int64 -- ^ 'accountId'

102+ -> Int64 -- ^ 'accountId'

101 -> Int64 -- ^ 'billingId'

103 -> Int64 -- ^ 'billingId'

102 -> BudgetUpdate'

104 -> BudgetUpdate'

103−budgetUpdate' pBuAccountId_ pBuBillingId_ =

105+budgetUpdate' pBuBudget_ pBuAccountId_ pBuBillingId_ =

104 BudgetUpdate'

106 BudgetUpdate'

105 { _buQuotaUser = Nothing

107 { _buQuotaUser = Nothing

106 , _buPrettyPrint = True

108 , _buPrettyPrint = True

109+ , _buBudget = pBuBudget_

107− , _buUserIp = Nothing

110+ , _buUserIP = Nothing

108 , _buAccountId = pBuAccountId_

111 , _buAccountId = pBuAccountId_

109 , _buKey = Nothing

112 , _buKey = Nothing

110− , _buOauthToken = Nothing

113+ , _buOAuthToken = Nothing

111 , _buBillingId = pBuBillingId_

114 , _buBillingId = pBuBillingId_

112 , _buFields = Nothing

115 , _buFields = Nothing

113− , _buAlt = JSON

114 }

116 }

115

117

116-- | Available to use for quota purposes for server-side applications. Can be

118-- | Available to use for quota purposes for server-side applications. Can be

@@ -126,10 +128,14 @@ buPrettyPrint

126 = lens _buPrettyPrint

128 = lens _buPrettyPrint

127 (\ s a -> s{_buPrettyPrint = a})

129 (\ s a -> s{_buPrettyPrint = a})

128

130

131+-- | Multipart request metadata.

132+buBudget :: Lens' BudgetUpdate' Budget

133+buBudget = lens _buBudget (\ s a -> s{_buBudget = a})

134+

129-- | IP address of the site where the request originates. Use this if you

135-- | IP address of the site where the request originates. Use this if you

130-- want to enforce per-user limits.

136-- want to enforce per-user limits.

131−buUserIp :: Lens' BudgetUpdate' (Maybe Text)

137+buUserIP :: Lens' BudgetUpdate' (Maybe Text)

132−buUserIp = lens _buUserIp (\ s a -> s{_buUserIp = a})

138+buUserIP = lens _buUserIP (\ s a -> s{_buUserIP = a})

133

139

134-- | The account id associated with the budget being updated.

140-- | The account id associated with the budget being updated.

135buAccountId :: Lens' BudgetUpdate' Int64

141buAccountId :: Lens' BudgetUpdate' Int64

@@ -139,13 +145,13 @@ buAccountId

139-- | API key. Your API key identifies your project and provides you with API

145-- | API key. Your API key identifies your project and provides you with API

140-- access, quota, and reports. Required unless you provide an OAuth 2.0

146-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- token.

147-- token.

142−buKey :: Lens' BudgetUpdate' (Maybe Text)

148+buKey :: Lens' BudgetUpdate' (Maybe Key)

143buKey = lens _buKey (\ s a -> s{_buKey = a})

149buKey = lens _buKey (\ s a -> s{_buKey = a})

144

150

145-- | OAuth 2.0 token for the current user.

151-- | OAuth 2.0 token for the current user.

146−buOauthToken :: Lens' BudgetUpdate' (Maybe Text)

152+buOAuthToken :: Lens' BudgetUpdate' (Maybe OAuthToken)

147−buOauthToken

153+buOAuthToken

148− = lens _buOauthToken (\ s a -> s{_buOauthToken = a})

154+ = lens _buOAuthToken (\ s a -> s{_buOAuthToken = a})

149

155

150-- | The billing id associated with the budget being updated.

156-- | The billing id associated with the budget being updated.

151buBillingId :: Lens' BudgetUpdate' Int64

157buBillingId :: Lens' BudgetUpdate' Int64

@@ -156,21 +162,22 @@ buBillingId

156buFields :: Lens' BudgetUpdate' (Maybe Text)

162buFields :: Lens' BudgetUpdate' (Maybe Text)

157buFields = lens _buFields (\ s a -> s{_buFields = a})

163buFields = lens _buFields (\ s a -> s{_buFields = a})

158

164

159−-- | Data format for the response.

160−buAlt :: Lens' BudgetUpdate' Alt

165+instance GoogleAuth BudgetUpdate' where

161−buAlt = lens _buAlt (\ s a -> s{_buAlt = a})

166+ authKey = buKey . _Just

167+ authToken = buOAuthToken . _Just

162

168

163instance GoogleRequest BudgetUpdate' where

169instance GoogleRequest BudgetUpdate' where

164 type Rs BudgetUpdate' = Budget

170 type Rs BudgetUpdate' = Budget

165 request = requestWithRoute defReq adExchangeBuyerURL

171 request = requestWithRoute defReq adExchangeBuyerURL

166 requestWithRoute r u BudgetUpdate'{..}

172 requestWithRoute r u BudgetUpdate'{..}

167− = go _buQuotaUser (Just _buPrettyPrint) _buUserIp

173+ = go _buQuotaUser (Just _buPrettyPrint) _buUserIP

168 _buAccountId

174 _buAccountId

169 _buKey

175 _buKey

170− _buOauthToken

176+ _buOAuthToken

171 _buBillingId

177 _buBillingId

172 _buFields

178 _buFields

173− (Just _buAlt)

179+ (Just AltJSON)

180+ _buBudget

174 where go

181 where go

175 = clientWithRoute

182 = clientWithRoute

176 (Proxy :: Proxy BudgetUpdateResource)

183 (Proxy :: Proxy BudgetUpdateResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Delete.hsnew file+173

@@ -0,0 +1,173 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientAccessDelete@.

23+module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete

24+ (

25+ -- * REST Resource

26+ ClientAccessDeleteResource

27+

28+ -- * Creating a Request

29+ , clientAccessDelete'

30+ , ClientAccessDelete'

31+

32+ -- * Request Lenses

33+ , cadQuotaUser

34+ , cadPrettyPrint

35+ , cadUserIP

36+ , cadSponsorAccountId

37+ , cadKey

38+ , cadClientAccountId

39+ , cadOAuthToken

40+ , cadFields

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerClientAccessDelete@ which the

47+-- 'ClientAccessDelete'' request conforms to.

48+type ClientAccessDeleteResource =

49+ "clientAccess" :>

50+ Capture "clientAccountId" Int64 :>

51+ QueryParam "quotaUser" Text :>

52+ QueryParam "prettyPrint" Bool :>

53+ QueryParam "userIp" Text :>

54+ QueryParam "sponsorAccountId" Int32 :>

55+ QueryParam "key" Key :>

56+ QueryParam "oauth_token" OAuthToken :>

57+ QueryParam "fields" Text :>

58+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

59+

60+--

61+-- /See:/ 'clientAccessDelete'' smart constructor.

62+data ClientAccessDelete' = ClientAccessDelete'

63+ { _cadQuotaUser :: !(Maybe Text)

64+ , _cadPrettyPrint :: !Bool

65+ , _cadUserIP :: !(Maybe Text)

66+ , _cadSponsorAccountId :: !Int32

67+ , _cadKey :: !(Maybe Key)

68+ , _cadClientAccountId :: !Int64

69+ , _cadOAuthToken :: !(Maybe OAuthToken)

70+ , _cadFields :: !(Maybe Text)

71+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

72+

73+-- | Creates a value of 'ClientAccessDelete'' with the minimum fields required to make a request.

74+--

75+-- Use one of the following lenses to modify other fields as desired:

76+--

77+-- * 'cadQuotaUser'

78+--

79+-- * 'cadPrettyPrint'

80+--

81+-- * 'cadUserIP'

82+--

83+-- * 'cadSponsorAccountId'

84+--

85+-- * 'cadKey'

86+--

87+-- * 'cadClientAccountId'

88+--

89+-- * 'cadOAuthToken'

90+--

91+-- * 'cadFields'

92+clientAccessDelete'

93+ :: Int32 -- ^ 'sponsorAccountId'

94+ -> Int64 -- ^ 'clientAccountId'

95+ -> ClientAccessDelete'

96+clientAccessDelete' pCadSponsorAccountId_ pCadClientAccountId_ =

97+ ClientAccessDelete'

98+ { _cadQuotaUser = Nothing

99+ , _cadPrettyPrint = True

100+ , _cadUserIP = Nothing

101+ , _cadSponsorAccountId = pCadSponsorAccountId_

102+ , _cadKey = Nothing

103+ , _cadClientAccountId = pCadClientAccountId_

104+ , _cadOAuthToken = Nothing

105+ , _cadFields = Nothing

106+ }

107+

108+-- | Available to use for quota purposes for server-side applications. Can be

109+-- any arbitrary string assigned to a user, but should not exceed 40

110+-- characters. Overrides userIp if both are provided.

111+cadQuotaUser :: Lens' ClientAccessDelete' (Maybe Text)

112+cadQuotaUser

113+ = lens _cadQuotaUser (\ s a -> s{_cadQuotaUser = a})

114+

115+-- | Returns response with indentations and line breaks.

116+cadPrettyPrint :: Lens' ClientAccessDelete' Bool

117+cadPrettyPrint

118+ = lens _cadPrettyPrint

119+ (\ s a -> s{_cadPrettyPrint = a})

120+

121+-- | IP address of the site where the request originates. Use this if you

122+-- want to enforce per-user limits.

123+cadUserIP :: Lens' ClientAccessDelete' (Maybe Text)

124+cadUserIP

125+ = lens _cadUserIP (\ s a -> s{_cadUserIP = a})

126+

127+cadSponsorAccountId :: Lens' ClientAccessDelete' Int32

128+cadSponsorAccountId

129+ = lens _cadSponsorAccountId

130+ (\ s a -> s{_cadSponsorAccountId = a})

131+

132+-- | API key. Your API key identifies your project and provides you with API

133+-- access, quota, and reports. Required unless you provide an OAuth 2.0

134+-- token.

135+cadKey :: Lens' ClientAccessDelete' (Maybe Key)

136+cadKey = lens _cadKey (\ s a -> s{_cadKey = a})

137+

138+cadClientAccountId :: Lens' ClientAccessDelete' Int64

139+cadClientAccountId

140+ = lens _cadClientAccountId

141+ (\ s a -> s{_cadClientAccountId = a})

142+

143+-- | OAuth 2.0 token for the current user.

144+cadOAuthToken :: Lens' ClientAccessDelete' (Maybe OAuthToken)

145+cadOAuthToken

146+ = lens _cadOAuthToken

147+ (\ s a -> s{_cadOAuthToken = a})

148+

149+-- | Selector specifying which fields to include in a partial response.

150+cadFields :: Lens' ClientAccessDelete' (Maybe Text)

151+cadFields

152+ = lens _cadFields (\ s a -> s{_cadFields = a})

153+

154+instance GoogleAuth ClientAccessDelete' where

155+ authKey = cadKey . _Just

156+ authToken = cadOAuthToken . _Just

157+

158+instance GoogleRequest ClientAccessDelete' where

159+ type Rs ClientAccessDelete' = ()

160+ request = requestWithRoute defReq adExchangeBuyerURL

161+ requestWithRoute r u ClientAccessDelete'{..}

162+ = go _cadQuotaUser (Just _cadPrettyPrint) _cadUserIP

163+ (Just _cadSponsorAccountId)

164+ _cadKey

165+ _cadClientAccountId

166+ _cadOAuthToken

167+ _cadFields

168+ (Just AltJSON)

169+ where go

170+ = clientWithRoute

171+ (Proxy :: Proxy ClientAccessDeleteResource)

172+ r

173+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Get.hsnew file+174

@@ -0,0 +1,174 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientAccessGet@.

23+module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get

24+ (

25+ -- * REST Resource

26+ ClientAccessGetResource

27+

28+ -- * Creating a Request

29+ , clientAccessGet'

30+ , ClientAccessGet'

31+

32+ -- * Request Lenses

33+ , cagQuotaUser

34+ , cagPrettyPrint

35+ , cagUserIP

36+ , cagSponsorAccountId

37+ , cagKey

38+ , cagClientAccountId

39+ , cagOAuthToken

40+ , cagFields

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerClientAccessGet@ which the

47+-- 'ClientAccessGet'' request conforms to.

48+type ClientAccessGetResource =

49+ "clientAccess" :>

50+ Capture "clientAccountId" Int64 :>

51+ QueryParam "quotaUser" Text :>

52+ QueryParam "prettyPrint" Bool :>

53+ QueryParam "userIp" Text :>

54+ QueryParam "sponsorAccountId" Int32 :>

55+ QueryParam "key" Key :>

56+ QueryParam "oauth_token" OAuthToken :>

57+ QueryParam "fields" Text :>

58+ QueryParam "alt" AltJSON :>

59+ Get '[JSON] ClientAccessCapabilities

60+

61+--

62+-- /See:/ 'clientAccessGet'' smart constructor.

63+data ClientAccessGet' = ClientAccessGet'

64+ { _cagQuotaUser :: !(Maybe Text)

65+ , _cagPrettyPrint :: !Bool

66+ , _cagUserIP :: !(Maybe Text)

67+ , _cagSponsorAccountId :: !Int32

68+ , _cagKey :: !(Maybe Key)

69+ , _cagClientAccountId :: !Int64

70+ , _cagOAuthToken :: !(Maybe OAuthToken)

71+ , _cagFields :: !(Maybe Text)

72+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

73+

74+-- | Creates a value of 'ClientAccessGet'' with the minimum fields required to make a request.

75+--

76+-- Use one of the following lenses to modify other fields as desired:

77+--

78+-- * 'cagQuotaUser'

79+--

80+-- * 'cagPrettyPrint'

81+--

82+-- * 'cagUserIP'

83+--

84+-- * 'cagSponsorAccountId'

85+--

86+-- * 'cagKey'

87+--

88+-- * 'cagClientAccountId'

89+--

90+-- * 'cagOAuthToken'

91+--

92+-- * 'cagFields'

93+clientAccessGet'

94+ :: Int32 -- ^ 'sponsorAccountId'

95+ -> Int64 -- ^ 'clientAccountId'

96+ -> ClientAccessGet'

97+clientAccessGet' pCagSponsorAccountId_ pCagClientAccountId_ =

98+ ClientAccessGet'

99+ { _cagQuotaUser = Nothing

100+ , _cagPrettyPrint = True

101+ , _cagUserIP = Nothing

102+ , _cagSponsorAccountId = pCagSponsorAccountId_

103+ , _cagKey = Nothing

104+ , _cagClientAccountId = pCagClientAccountId_

105+ , _cagOAuthToken = Nothing

106+ , _cagFields = Nothing

107+ }

108+

109+-- | Available to use for quota purposes for server-side applications. Can be

110+-- any arbitrary string assigned to a user, but should not exceed 40

111+-- characters. Overrides userIp if both are provided.

112+cagQuotaUser :: Lens' ClientAccessGet' (Maybe Text)

113+cagQuotaUser

114+ = lens _cagQuotaUser (\ s a -> s{_cagQuotaUser = a})

115+

116+-- | Returns response with indentations and line breaks.

117+cagPrettyPrint :: Lens' ClientAccessGet' Bool

118+cagPrettyPrint

119+ = lens _cagPrettyPrint

120+ (\ s a -> s{_cagPrettyPrint = a})

121+

122+-- | IP address of the site where the request originates. Use this if you

123+-- want to enforce per-user limits.

124+cagUserIP :: Lens' ClientAccessGet' (Maybe Text)

125+cagUserIP

126+ = lens _cagUserIP (\ s a -> s{_cagUserIP = a})

127+

128+cagSponsorAccountId :: Lens' ClientAccessGet' Int32

129+cagSponsorAccountId

130+ = lens _cagSponsorAccountId

131+ (\ s a -> s{_cagSponsorAccountId = a})

132+

133+-- | API key. Your API key identifies your project and provides you with API

134+-- access, quota, and reports. Required unless you provide an OAuth 2.0

135+-- token.

136+cagKey :: Lens' ClientAccessGet' (Maybe Key)

137+cagKey = lens _cagKey (\ s a -> s{_cagKey = a})

138+

139+cagClientAccountId :: Lens' ClientAccessGet' Int64

140+cagClientAccountId

141+ = lens _cagClientAccountId

142+ (\ s a -> s{_cagClientAccountId = a})

143+

144+-- | OAuth 2.0 token for the current user.

145+cagOAuthToken :: Lens' ClientAccessGet' (Maybe OAuthToken)

146+cagOAuthToken

147+ = lens _cagOAuthToken

148+ (\ s a -> s{_cagOAuthToken = a})

149+

150+-- | Selector specifying which fields to include in a partial response.

151+cagFields :: Lens' ClientAccessGet' (Maybe Text)

152+cagFields

153+ = lens _cagFields (\ s a -> s{_cagFields = a})

154+

155+instance GoogleAuth ClientAccessGet' where

156+ authKey = cagKey . _Just

157+ authToken = cagOAuthToken . _Just

158+

159+instance GoogleRequest ClientAccessGet' where

160+ type Rs ClientAccessGet' = ClientAccessCapabilities

161+ request = requestWithRoute defReq adExchangeBuyerURL

162+ requestWithRoute r u ClientAccessGet'{..}

163+ = go _cagQuotaUser (Just _cagPrettyPrint) _cagUserIP

164+ (Just _cagSponsorAccountId)

165+ _cagKey

166+ _cagClientAccountId

167+ _cagOAuthToken

168+ _cagFields

169+ (Just AltJSON)

170+ where go

171+ = clientWithRoute

172+ (Proxy :: Proxy ClientAccessGetResource)

173+ r

174+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Insert.hsnew file+187

@@ -0,0 +1,187 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientAccessInsert@.

23+module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert

24+ (

25+ -- * REST Resource

26+ ClientAccessInsertResource

27+

28+ -- * Creating a Request

29+ , clientAccessInsert'

30+ , ClientAccessInsert'

31+

32+ -- * Request Lenses

33+ , caiQuotaUser

34+ , caiPrettyPrint

35+ , caiUserIP

36+ , caiSponsorAccountId

37+ , caiKey

38+ , caiClientAccountId

39+ , caiOAuthToken

40+ , caiClientAccessCapabilities

41+ , caiFields

42+ ) where

43+

44+import Network.Google.AdExchangeBuyer.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @AdexchangebuyerClientAccessInsert@ which the

48+-- 'ClientAccessInsert'' request conforms to.

49+type ClientAccessInsertResource =

50+ "clientAccess" :>

51+ QueryParam "quotaUser" Text :>

52+ QueryParam "prettyPrint" Bool :>

53+ QueryParam "userIp" Text :>

54+ QueryParam "sponsorAccountId" Int32 :>

55+ QueryParam "key" Key :>

56+ QueryParam "clientAccountId" Int64 :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] ClientAccessCapabilities :>

61+ Post '[JSON] ClientAccessCapabilities

62+

63+--

64+-- /See:/ 'clientAccessInsert'' smart constructor.

65+data ClientAccessInsert' = ClientAccessInsert'

66+ { _caiQuotaUser :: !(Maybe Text)

67+ , _caiPrettyPrint :: !Bool

68+ , _caiUserIP :: !(Maybe Text)

69+ , _caiSponsorAccountId :: !(Maybe Int32)

70+ , _caiKey :: !(Maybe Key)

71+ , _caiClientAccountId :: !(Maybe Int64)

72+ , _caiOAuthToken :: !(Maybe OAuthToken)

73+ , _caiClientAccessCapabilities :: !ClientAccessCapabilities

74+ , _caiFields :: !(Maybe Text)

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'ClientAccessInsert'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'caiQuotaUser'

82+--

83+-- * 'caiPrettyPrint'

84+--

85+-- * 'caiUserIP'

86+--

87+-- * 'caiSponsorAccountId'

88+--

89+-- * 'caiKey'

90+--

91+-- * 'caiClientAccountId'

92+--

93+-- * 'caiOAuthToken'

94+--

95+-- * 'caiClientAccessCapabilities'

96+--

97+-- * 'caiFields'

98+clientAccessInsert'

99+ :: ClientAccessCapabilities -- ^ 'ClientAccessCapabilities'

100+ -> ClientAccessInsert'

101+clientAccessInsert' pCaiClientAccessCapabilities_ =

102+ ClientAccessInsert'

103+ { _caiQuotaUser = Nothing

104+ , _caiPrettyPrint = True

105+ , _caiUserIP = Nothing

106+ , _caiSponsorAccountId = Nothing

107+ , _caiKey = Nothing

108+ , _caiClientAccountId = Nothing

109+ , _caiOAuthToken = Nothing

110+ , _caiClientAccessCapabilities = pCaiClientAccessCapabilities_

111+ , _caiFields = Nothing

112+ }

113+

114+-- | Available to use for quota purposes for server-side applications. Can be

115+-- any arbitrary string assigned to a user, but should not exceed 40

116+-- characters. Overrides userIp if both are provided.

117+caiQuotaUser :: Lens' ClientAccessInsert' (Maybe Text)

118+caiQuotaUser

119+ = lens _caiQuotaUser (\ s a -> s{_caiQuotaUser = a})

120+

121+-- | Returns response with indentations and line breaks.

122+caiPrettyPrint :: Lens' ClientAccessInsert' Bool

123+caiPrettyPrint

124+ = lens _caiPrettyPrint

125+ (\ s a -> s{_caiPrettyPrint = a})

126+

127+-- | IP address of the site where the request originates. Use this if you

128+-- want to enforce per-user limits.

129+caiUserIP :: Lens' ClientAccessInsert' (Maybe Text)

130+caiUserIP

131+ = lens _caiUserIP (\ s a -> s{_caiUserIP = a})

132+

133+caiSponsorAccountId :: Lens' ClientAccessInsert' (Maybe Int32)

134+caiSponsorAccountId

135+ = lens _caiSponsorAccountId

136+ (\ s a -> s{_caiSponsorAccountId = a})

137+

138+-- | API key. Your API key identifies your project and provides you with API

139+-- access, quota, and reports. Required unless you provide an OAuth 2.0

140+-- token.

141+caiKey :: Lens' ClientAccessInsert' (Maybe Key)

142+caiKey = lens _caiKey (\ s a -> s{_caiKey = a})

143+

144+caiClientAccountId :: Lens' ClientAccessInsert' (Maybe Int64)

145+caiClientAccountId

146+ = lens _caiClientAccountId

147+ (\ s a -> s{_caiClientAccountId = a})

148+

149+-- | OAuth 2.0 token for the current user.

150+caiOAuthToken :: Lens' ClientAccessInsert' (Maybe OAuthToken)

151+caiOAuthToken

152+ = lens _caiOAuthToken

153+ (\ s a -> s{_caiOAuthToken = a})

154+

155+-- | Multipart request metadata.

156+caiClientAccessCapabilities :: Lens' ClientAccessInsert' ClientAccessCapabilities

157+caiClientAccessCapabilities

158+ = lens _caiClientAccessCapabilities

159+ (\ s a -> s{_caiClientAccessCapabilities = a})

160+

161+-- | Selector specifying which fields to include in a partial response.

162+caiFields :: Lens' ClientAccessInsert' (Maybe Text)

163+caiFields

164+ = lens _caiFields (\ s a -> s{_caiFields = a})

165+

166+instance GoogleAuth ClientAccessInsert' where

167+ authKey = caiKey . _Just

168+ authToken = caiOAuthToken . _Just

169+

170+instance GoogleRequest ClientAccessInsert' where

171+ type Rs ClientAccessInsert' =

172+ ClientAccessCapabilities

173+ request = requestWithRoute defReq adExchangeBuyerURL

174+ requestWithRoute r u ClientAccessInsert'{..}

175+ = go _caiQuotaUser (Just _caiPrettyPrint) _caiUserIP

176+ _caiSponsorAccountId

177+ _caiKey

178+ _caiClientAccountId

179+ _caiOAuthToken

180+ _caiFields

181+ (Just AltJSON)

182+ _caiClientAccessCapabilities

183+ where go

184+ = clientWithRoute

185+ (Proxy :: Proxy ClientAccessInsertResource)

186+ r

187+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/List.hsnew file+164

@@ -0,0 +1,164 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.ClientAccess.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientAccessList@.

23+module Network.Google.Resource.AdExchangeBuyer.ClientAccess.List

24+ (

25+ -- * REST Resource

26+ ClientAccessListResource

27+

28+ -- * Creating a Request

29+ , clientAccessList'

30+ , ClientAccessList'

31+

32+ -- * Request Lenses

33+ , calQuotaUser

34+ , calPrettyPrint

35+ , calUserIP

36+ , calKey

37+ , calListClientAccessCapabilitiesRequest

38+ , calOAuthToken

39+ , calFields

40+ ) where

41+

42+import Network.Google.AdExchangeBuyer.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangebuyerClientAccessList@ which the

46+-- 'ClientAccessList'' request conforms to.

47+type ClientAccessListResource =

48+ "clientAccess" :>

49+ QueryParam "quotaUser" Text :>

50+ QueryParam "prettyPrint" Bool :>

51+ QueryParam "userIp" Text :>

52+ QueryParam "key" Key :>

53+ QueryParam "oauth_token" OAuthToken :>

54+ QueryParam "fields" Text :>

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] ListClientAccessCapabilitiesRequest

57+ :> Get '[JSON] ListClientAccessCapabilitiesResponse

58+

59+--

60+-- /See:/ 'clientAccessList'' smart constructor.

61+data ClientAccessList' = ClientAccessList'

62+ { _calQuotaUser :: !(Maybe Text)

63+ , _calPrettyPrint :: !Bool

64+ , _calUserIP :: !(Maybe Text)

65+ , _calKey :: !(Maybe Key)

66+ , _calListClientAccessCapabilitiesRequest :: !ListClientAccessCapabilitiesRequest

67+ , _calOAuthToken :: !(Maybe OAuthToken)

68+ , _calFields :: !(Maybe Text)

69+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

70+

71+-- | Creates a value of 'ClientAccessList'' with the minimum fields required to make a request.

72+--

73+-- Use one of the following lenses to modify other fields as desired:

74+--

75+-- * 'calQuotaUser'

76+--

77+-- * 'calPrettyPrint'

78+--

79+-- * 'calUserIP'

80+--

81+-- * 'calKey'

82+--

83+-- * 'calListClientAccessCapabilitiesRequest'

84+--

85+-- * 'calOAuthToken'

86+--

87+-- * 'calFields'

88+clientAccessList'

89+ :: ListClientAccessCapabilitiesRequest -- ^ 'ListClientAccessCapabilitiesRequest'

90+ -> ClientAccessList'

91+clientAccessList' pCalListClientAccessCapabilitiesRequest_ =

92+ ClientAccessList'

93+ { _calQuotaUser = Nothing

94+ , _calPrettyPrint = True

95+ , _calUserIP = Nothing

96+ , _calKey = Nothing

97+ , _calListClientAccessCapabilitiesRequest = pCalListClientAccessCapabilitiesRequest_

98+ , _calOAuthToken = Nothing

99+ , _calFields = Nothing

100+ }

101+

102+-- | Available to use for quota purposes for server-side applications. Can be

103+-- any arbitrary string assigned to a user, but should not exceed 40

104+-- characters. Overrides userIp if both are provided.

105+calQuotaUser :: Lens' ClientAccessList' (Maybe Text)

106+calQuotaUser

107+ = lens _calQuotaUser (\ s a -> s{_calQuotaUser = a})

108+

109+-- | Returns response with indentations and line breaks.

110+calPrettyPrint :: Lens' ClientAccessList' Bool

111+calPrettyPrint

112+ = lens _calPrettyPrint

113+ (\ s a -> s{_calPrettyPrint = a})

114+

115+-- | IP address of the site where the request originates. Use this if you

116+-- want to enforce per-user limits.

117+calUserIP :: Lens' ClientAccessList' (Maybe Text)

118+calUserIP

119+ = lens _calUserIP (\ s a -> s{_calUserIP = a})

120+

121+-- | API key. Your API key identifies your project and provides you with API

122+-- access, quota, and reports. Required unless you provide an OAuth 2.0

123+-- token.

124+calKey :: Lens' ClientAccessList' (Maybe Key)

125+calKey = lens _calKey (\ s a -> s{_calKey = a})

126+

127+-- | Multipart request metadata.

128+calListClientAccessCapabilitiesRequest :: Lens' ClientAccessList' ListClientAccessCapabilitiesRequest

129+calListClientAccessCapabilitiesRequest

130+ = lens _calListClientAccessCapabilitiesRequest

131+ (\ s a ->

132+ s{_calListClientAccessCapabilitiesRequest = a})

133+

134+-- | OAuth 2.0 token for the current user.

135+calOAuthToken :: Lens' ClientAccessList' (Maybe OAuthToken)

136+calOAuthToken

137+ = lens _calOAuthToken

138+ (\ s a -> s{_calOAuthToken = a})

139+

140+-- | Selector specifying which fields to include in a partial response.

141+calFields :: Lens' ClientAccessList' (Maybe Text)

142+calFields

143+ = lens _calFields (\ s a -> s{_calFields = a})

144+

145+instance GoogleAuth ClientAccessList' where

146+ authKey = calKey . _Just

147+ authToken = calOAuthToken . _Just

148+

149+instance GoogleRequest ClientAccessList' where

150+ type Rs ClientAccessList' =

151+ ListClientAccessCapabilitiesResponse

152+ request = requestWithRoute defReq adExchangeBuyerURL

153+ requestWithRoute r u ClientAccessList'{..}

154+ = go _calQuotaUser (Just _calPrettyPrint) _calUserIP

155+ _calKey

156+ _calOAuthToken

157+ _calFields

158+ (Just AltJSON)

159+ _calListClientAccessCapabilitiesRequest

160+ where go

161+ = clientWithRoute

162+ (Proxy :: Proxy ClientAccessListResource)

163+ r

164+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Patch.hsnew file+188

@@ -0,0 +1,188 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientAccessPatch@.

23+module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch

24+ (

25+ -- * REST Resource

26+ ClientAccessPatchResource

27+

28+ -- * Creating a Request

29+ , clientAccessPatch'

30+ , ClientAccessPatch'

31+

32+ -- * Request Lenses

33+ , capQuotaUser

34+ , capPrettyPrint

35+ , capUserIP

36+ , capSponsorAccountId

37+ , capKey

38+ , capClientAccountId

39+ , capOAuthToken

40+ , capClientAccessCapabilities

41+ , capFields

42+ ) where

43+

44+import Network.Google.AdExchangeBuyer.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @AdexchangebuyerClientAccessPatch@ which the

48+-- 'ClientAccessPatch'' request conforms to.

49+type ClientAccessPatchResource =

50+ "clientAccess" :>

51+ Capture "clientAccountId" Int64 :>

52+ QueryParam "quotaUser" Text :>

53+ QueryParam "prettyPrint" Bool :>

54+ QueryParam "userIp" Text :>

55+ QueryParam "sponsorAccountId" Int32 :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] ClientAccessCapabilities :>

61+ Patch '[JSON] ClientAccessCapabilities

62+

63+--

64+-- /See:/ 'clientAccessPatch'' smart constructor.

65+data ClientAccessPatch' = ClientAccessPatch'

66+ { _capQuotaUser :: !(Maybe Text)

67+ , _capPrettyPrint :: !Bool

68+ , _capUserIP :: !(Maybe Text)

69+ , _capSponsorAccountId :: !Int32

70+ , _capKey :: !(Maybe Key)

71+ , _capClientAccountId :: !Int64

72+ , _capOAuthToken :: !(Maybe OAuthToken)

73+ , _capClientAccessCapabilities :: !ClientAccessCapabilities

74+ , _capFields :: !(Maybe Text)

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'ClientAccessPatch'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'capQuotaUser'

82+--

83+-- * 'capPrettyPrint'

84+--

85+-- * 'capUserIP'

86+--

87+-- * 'capSponsorAccountId'

88+--

89+-- * 'capKey'

90+--

91+-- * 'capClientAccountId'

92+--

93+-- * 'capOAuthToken'

94+--

95+-- * 'capClientAccessCapabilities'

96+--

97+-- * 'capFields'

98+clientAccessPatch'

99+ :: Int32 -- ^ 'sponsorAccountId'

100+ -> Int64 -- ^ 'clientAccountId'

101+ -> ClientAccessCapabilities -- ^ 'ClientAccessCapabilities'

102+ -> ClientAccessPatch'

103+clientAccessPatch' pCapSponsorAccountId_ pCapClientAccountId_ pCapClientAccessCapabilities_ =

104+ ClientAccessPatch'

105+ { _capQuotaUser = Nothing

106+ , _capPrettyPrint = True

107+ , _capUserIP = Nothing

108+ , _capSponsorAccountId = pCapSponsorAccountId_

109+ , _capKey = Nothing

110+ , _capClientAccountId = pCapClientAccountId_

111+ , _capOAuthToken = Nothing

112+ , _capClientAccessCapabilities = pCapClientAccessCapabilities_

113+ , _capFields = Nothing

114+ }

115+

116+-- | Available to use for quota purposes for server-side applications. Can be

117+-- any arbitrary string assigned to a user, but should not exceed 40

118+-- characters. Overrides userIp if both are provided.

119+capQuotaUser :: Lens' ClientAccessPatch' (Maybe Text)

120+capQuotaUser

121+ = lens _capQuotaUser (\ s a -> s{_capQuotaUser = a})

122+

123+-- | Returns response with indentations and line breaks.

124+capPrettyPrint :: Lens' ClientAccessPatch' Bool

125+capPrettyPrint

126+ = lens _capPrettyPrint

127+ (\ s a -> s{_capPrettyPrint = a})

128+

129+-- | IP address of the site where the request originates. Use this if you

130+-- want to enforce per-user limits.

131+capUserIP :: Lens' ClientAccessPatch' (Maybe Text)

132+capUserIP

133+ = lens _capUserIP (\ s a -> s{_capUserIP = a})

134+

135+capSponsorAccountId :: Lens' ClientAccessPatch' Int32

136+capSponsorAccountId

137+ = lens _capSponsorAccountId

138+ (\ s a -> s{_capSponsorAccountId = a})

139+

140+-- | API key. Your API key identifies your project and provides you with API

141+-- access, quota, and reports. Required unless you provide an OAuth 2.0

142+-- token.

143+capKey :: Lens' ClientAccessPatch' (Maybe Key)

144+capKey = lens _capKey (\ s a -> s{_capKey = a})

145+

146+capClientAccountId :: Lens' ClientAccessPatch' Int64

147+capClientAccountId

148+ = lens _capClientAccountId

149+ (\ s a -> s{_capClientAccountId = a})

150+

151+-- | OAuth 2.0 token for the current user.

152+capOAuthToken :: Lens' ClientAccessPatch' (Maybe OAuthToken)

153+capOAuthToken

154+ = lens _capOAuthToken

155+ (\ s a -> s{_capOAuthToken = a})

156+

157+-- | Multipart request metadata.

158+capClientAccessCapabilities :: Lens' ClientAccessPatch' ClientAccessCapabilities

159+capClientAccessCapabilities

160+ = lens _capClientAccessCapabilities

161+ (\ s a -> s{_capClientAccessCapabilities = a})

162+

163+-- | Selector specifying which fields to include in a partial response.

164+capFields :: Lens' ClientAccessPatch' (Maybe Text)

165+capFields

166+ = lens _capFields (\ s a -> s{_capFields = a})

167+

168+instance GoogleAuth ClientAccessPatch' where

169+ authKey = capKey . _Just

170+ authToken = capOAuthToken . _Just

171+

172+instance GoogleRequest ClientAccessPatch' where

173+ type Rs ClientAccessPatch' = ClientAccessCapabilities

174+ request = requestWithRoute defReq adExchangeBuyerURL

175+ requestWithRoute r u ClientAccessPatch'{..}

176+ = go _capQuotaUser (Just _capPrettyPrint) _capUserIP

177+ (Just _capSponsorAccountId)

178+ _capKey

179+ _capClientAccountId

180+ _capOAuthToken

181+ _capFields

182+ (Just AltJSON)

183+ _capClientAccessCapabilities

184+ where go

185+ = clientWithRoute

186+ (Proxy :: Proxy ClientAccessPatchResource)

187+ r

188+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/ClientAccess/Update.hsnew file+189

@@ -0,0 +1,189 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientAccessUpdate@.

23+module Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update

24+ (

25+ -- * REST Resource

26+ ClientAccessUpdateResource

27+

28+ -- * Creating a Request

29+ , clientAccessUpdate'

30+ , ClientAccessUpdate'

31+

32+ -- * Request Lenses

33+ , cauQuotaUser

34+ , cauPrettyPrint

35+ , cauUserIP

36+ , cauSponsorAccountId

37+ , cauKey

38+ , cauClientAccountId

39+ , cauOAuthToken

40+ , cauClientAccessCapabilities

41+ , cauFields

42+ ) where

43+

44+import Network.Google.AdExchangeBuyer.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @AdexchangebuyerClientAccessUpdate@ which the

48+-- 'ClientAccessUpdate'' request conforms to.

49+type ClientAccessUpdateResource =

50+ "clientAccess" :>

51+ Capture "clientAccountId" Int64 :>

52+ QueryParam "quotaUser" Text :>

53+ QueryParam "prettyPrint" Bool :>

54+ QueryParam "userIp" Text :>

55+ QueryParam "sponsorAccountId" Int32 :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] ClientAccessCapabilities :>

61+ Put '[JSON] ClientAccessCapabilities

62+

63+--

64+-- /See:/ 'clientAccessUpdate'' smart constructor.

65+data ClientAccessUpdate' = ClientAccessUpdate'

66+ { _cauQuotaUser :: !(Maybe Text)

67+ , _cauPrettyPrint :: !Bool

68+ , _cauUserIP :: !(Maybe Text)

69+ , _cauSponsorAccountId :: !Int32

70+ , _cauKey :: !(Maybe Key)

71+ , _cauClientAccountId :: !Int64

72+ , _cauOAuthToken :: !(Maybe OAuthToken)

73+ , _cauClientAccessCapabilities :: !ClientAccessCapabilities

74+ , _cauFields :: !(Maybe Text)

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'ClientAccessUpdate'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'cauQuotaUser'

82+--

83+-- * 'cauPrettyPrint'

84+--

85+-- * 'cauUserIP'

86+--

87+-- * 'cauSponsorAccountId'

88+--

89+-- * 'cauKey'

90+--

91+-- * 'cauClientAccountId'

92+--

93+-- * 'cauOAuthToken'

94+--

95+-- * 'cauClientAccessCapabilities'

96+--

97+-- * 'cauFields'

98+clientAccessUpdate'

99+ :: Int32 -- ^ 'sponsorAccountId'

100+ -> Int64 -- ^ 'clientAccountId'

101+ -> ClientAccessCapabilities -- ^ 'ClientAccessCapabilities'

102+ -> ClientAccessUpdate'

103+clientAccessUpdate' pCauSponsorAccountId_ pCauClientAccountId_ pCauClientAccessCapabilities_ =

104+ ClientAccessUpdate'

105+ { _cauQuotaUser = Nothing

106+ , _cauPrettyPrint = True

107+ , _cauUserIP = Nothing

108+ , _cauSponsorAccountId = pCauSponsorAccountId_

109+ , _cauKey = Nothing

110+ , _cauClientAccountId = pCauClientAccountId_

111+ , _cauOAuthToken = Nothing

112+ , _cauClientAccessCapabilities = pCauClientAccessCapabilities_

113+ , _cauFields = Nothing

114+ }

115+

116+-- | Available to use for quota purposes for server-side applications. Can be

117+-- any arbitrary string assigned to a user, but should not exceed 40

118+-- characters. Overrides userIp if both are provided.

119+cauQuotaUser :: Lens' ClientAccessUpdate' (Maybe Text)

120+cauQuotaUser

121+ = lens _cauQuotaUser (\ s a -> s{_cauQuotaUser = a})

122+

123+-- | Returns response with indentations and line breaks.

124+cauPrettyPrint :: Lens' ClientAccessUpdate' Bool

125+cauPrettyPrint

126+ = lens _cauPrettyPrint

127+ (\ s a -> s{_cauPrettyPrint = a})

128+

129+-- | IP address of the site where the request originates. Use this if you

130+-- want to enforce per-user limits.

131+cauUserIP :: Lens' ClientAccessUpdate' (Maybe Text)

132+cauUserIP

133+ = lens _cauUserIP (\ s a -> s{_cauUserIP = a})

134+

135+cauSponsorAccountId :: Lens' ClientAccessUpdate' Int32

136+cauSponsorAccountId

137+ = lens _cauSponsorAccountId

138+ (\ s a -> s{_cauSponsorAccountId = a})

139+

140+-- | API key. Your API key identifies your project and provides you with API

141+-- access, quota, and reports. Required unless you provide an OAuth 2.0

142+-- token.

143+cauKey :: Lens' ClientAccessUpdate' (Maybe Key)

144+cauKey = lens _cauKey (\ s a -> s{_cauKey = a})

145+

146+cauClientAccountId :: Lens' ClientAccessUpdate' Int64

147+cauClientAccountId

148+ = lens _cauClientAccountId

149+ (\ s a -> s{_cauClientAccountId = a})

150+

151+-- | OAuth 2.0 token for the current user.

152+cauOAuthToken :: Lens' ClientAccessUpdate' (Maybe OAuthToken)

153+cauOAuthToken

154+ = lens _cauOAuthToken

155+ (\ s a -> s{_cauOAuthToken = a})

156+

157+-- | Multipart request metadata.

158+cauClientAccessCapabilities :: Lens' ClientAccessUpdate' ClientAccessCapabilities

159+cauClientAccessCapabilities

160+ = lens _cauClientAccessCapabilities

161+ (\ s a -> s{_cauClientAccessCapabilities = a})

162+

163+-- | Selector specifying which fields to include in a partial response.

164+cauFields :: Lens' ClientAccessUpdate' (Maybe Text)

165+cauFields

166+ = lens _cauFields (\ s a -> s{_cauFields = a})

167+

168+instance GoogleAuth ClientAccessUpdate' where

169+ authKey = cauKey . _Just

170+ authToken = cauOAuthToken . _Just

171+

172+instance GoogleRequest ClientAccessUpdate' where

173+ type Rs ClientAccessUpdate' =

174+ ClientAccessCapabilities

175+ request = requestWithRoute defReq adExchangeBuyerURL

176+ requestWithRoute r u ClientAccessUpdate'{..}

177+ = go _cauQuotaUser (Just _cauPrettyPrint) _cauUserIP

178+ (Just _cauSponsorAccountId)

179+ _cauKey

180+ _cauClientAccountId

181+ _cauOAuthToken

182+ _cauFields

183+ (Just AltJSON)

184+ _cauClientAccessCapabilities

185+ where go

186+ = clientWithRoute

187+ (Proxy :: Proxy ClientAccessUpdateResource)

188+ r

189+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Delete.hsdeleted−175

@@ -1,175 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessDelete@.

23−module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete

24− (

25− -- * REST Resource

26− ClientaccessDeleteResource

27−

28− -- * Creating a Request

29− , clientaccessDelete'

30− , ClientaccessDelete'

31−

32− -- * Request Lenses

33− , cdQuotaUser

34− , cdPrettyPrint

35− , cdUserIp

36− , cdSponsorAccountId

37− , cdKey

38− , cdClientAccountId

39− , cdOauthToken

40− , cdFields

41− , cdAlt

42− ) where

43−

44−import Network.Google.AdExchangeBuyer.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdexchangebuyerClientaccessDelete@ which the

48−-- 'ClientaccessDelete'' request conforms to.

49−type ClientaccessDeleteResource =

50− "clientAccess" :>

51− Capture "clientAccountId" Int64 :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "sponsorAccountId" Int32 :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :> Delete '[JSON] ()

60−

61−--

62−-- /See:/ 'clientaccessDelete'' smart constructor.

63−data ClientaccessDelete' = ClientaccessDelete'

64− { _cdQuotaUser :: !(Maybe Text)

65− , _cdPrettyPrint :: !Bool

66− , _cdUserIp :: !(Maybe Text)

67− , _cdSponsorAccountId :: !Int32

68− , _cdKey :: !(Maybe Text)

69− , _cdClientAccountId :: !Int64

70− , _cdOauthToken :: !(Maybe Text)

71− , _cdFields :: !(Maybe Text)

72− , _cdAlt :: !Alt

73− } deriving (Eq,Read,Show,Data,Typeable,Generic)

74−

75−-- | Creates a value of 'ClientaccessDelete'' with the minimum fields required to make a request.

76−--

77−-- Use one of the following lenses to modify other fields as desired:

78−--

79−-- * 'cdQuotaUser'

80−--

81−-- * 'cdPrettyPrint'

82−--

83−-- * 'cdUserIp'

84−--

85−-- * 'cdSponsorAccountId'

86−--

87−-- * 'cdKey'

88−--

89−-- * 'cdClientAccountId'

90−--

91−-- * 'cdOauthToken'

92−--

93−-- * 'cdFields'

94−--

95−-- * 'cdAlt'

96−clientaccessDelete'

97− :: Int32 -- ^ 'sponsorAccountId'

98− -> Int64 -- ^ 'clientAccountId'

99− -> ClientaccessDelete'

100−clientaccessDelete' pCdSponsorAccountId_ pCdClientAccountId_ =

101− ClientaccessDelete'

102− { _cdQuotaUser = Nothing

103− , _cdPrettyPrint = True

104− , _cdUserIp = Nothing

105− , _cdSponsorAccountId = pCdSponsorAccountId_

106− , _cdKey = Nothing

107− , _cdClientAccountId = pCdClientAccountId_

108− , _cdOauthToken = Nothing

109− , _cdFields = Nothing

110− , _cdAlt = JSON

111− }

112−

113−-- | Available to use for quota purposes for server-side applications. Can be

114−-- any arbitrary string assigned to a user, but should not exceed 40

115−-- characters. Overrides userIp if both are provided.

116−cdQuotaUser :: Lens' ClientaccessDelete' (Maybe Text)

117−cdQuotaUser

118− = lens _cdQuotaUser (\ s a -> s{_cdQuotaUser = a})

119−

120−-- | Returns response with indentations and line breaks.

121−cdPrettyPrint :: Lens' ClientaccessDelete' Bool

122−cdPrettyPrint

123− = lens _cdPrettyPrint

124− (\ s a -> s{_cdPrettyPrint = a})

125−

126−-- | IP address of the site where the request originates. Use this if you

127−-- want to enforce per-user limits.

128−cdUserIp :: Lens' ClientaccessDelete' (Maybe Text)

129−cdUserIp = lens _cdUserIp (\ s a -> s{_cdUserIp = a})

130−

131−cdSponsorAccountId :: Lens' ClientaccessDelete' Int32

132−cdSponsorAccountId

133− = lens _cdSponsorAccountId

134− (\ s a -> s{_cdSponsorAccountId = a})

135−

136−-- | API key. Your API key identifies your project and provides you with API

137−-- access, quota, and reports. Required unless you provide an OAuth 2.0

138−-- token.

139−cdKey :: Lens' ClientaccessDelete' (Maybe Text)

140−cdKey = lens _cdKey (\ s a -> s{_cdKey = a})

141−

142−cdClientAccountId :: Lens' ClientaccessDelete' Int64

143−cdClientAccountId

144− = lens _cdClientAccountId

145− (\ s a -> s{_cdClientAccountId = a})

146−

147−-- | OAuth 2.0 token for the current user.

148−cdOauthToken :: Lens' ClientaccessDelete' (Maybe Text)

149−cdOauthToken

150− = lens _cdOauthToken (\ s a -> s{_cdOauthToken = a})

151−

152−-- | Selector specifying which fields to include in a partial response.

153−cdFields :: Lens' ClientaccessDelete' (Maybe Text)

154−cdFields = lens _cdFields (\ s a -> s{_cdFields = a})

155−

156−-- | Data format for the response.

157−cdAlt :: Lens' ClientaccessDelete' Alt

158−cdAlt = lens _cdAlt (\ s a -> s{_cdAlt = a})

159−

160−instance GoogleRequest ClientaccessDelete' where

161− type Rs ClientaccessDelete' = ()

162− request = requestWithRoute defReq adExchangeBuyerURL

163− requestWithRoute r u ClientaccessDelete'{..}

164− = go _cdQuotaUser (Just _cdPrettyPrint) _cdUserIp

165− (Just _cdSponsorAccountId)

166− _cdKey

167− _cdClientAccountId

168− _cdOauthToken

169− _cdFields

170− (Just _cdAlt)

171− where go

172− = clientWithRoute

173− (Proxy :: Proxy ClientaccessDeleteResource)

174− r

175− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Get.hsdeleted−176

@@ -1,176 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessGet@.

23−module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get

24− (

25− -- * REST Resource

26− ClientaccessGetResource

27−

28− -- * Creating a Request

29− , clientaccessGet'

30− , ClientaccessGet'

31−

32− -- * Request Lenses

33− , cgQuotaUser

34− , cgPrettyPrint

35− , cgUserIp

36− , cgSponsorAccountId

37− , cgKey

38− , cgClientAccountId

39− , cgOauthToken

40− , cgFields

41− , cgAlt

42− ) where

43−

44−import Network.Google.AdExchangeBuyer.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdexchangebuyerClientaccessGet@ which the

48−-- 'ClientaccessGet'' request conforms to.

49−type ClientaccessGetResource =

50− "clientAccess" :>

51− Capture "clientAccountId" Int64 :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "sponsorAccountId" Int32 :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Get '[JSON] ClientAccessCapabilities

61−

62−--

63−-- /See:/ 'clientaccessGet'' smart constructor.

64−data ClientaccessGet' = ClientaccessGet'

65− { _cgQuotaUser :: !(Maybe Text)

66− , _cgPrettyPrint :: !Bool

67− , _cgUserIp :: !(Maybe Text)

68− , _cgSponsorAccountId :: !Int32

69− , _cgKey :: !(Maybe Text)

70− , _cgClientAccountId :: !Int64

71− , _cgOauthToken :: !(Maybe Text)

72− , _cgFields :: !(Maybe Text)

73− , _cgAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'ClientaccessGet'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'cgQuotaUser'

81−--

82−-- * 'cgPrettyPrint'

83−--

84−-- * 'cgUserIp'

85−--

86−-- * 'cgSponsorAccountId'

87−--

88−-- * 'cgKey'

89−--

90−-- * 'cgClientAccountId'

91−--

92−-- * 'cgOauthToken'

93−--

94−-- * 'cgFields'

95−--

96−-- * 'cgAlt'

97−clientaccessGet'

98− :: Int32 -- ^ 'sponsorAccountId'

99− -> Int64 -- ^ 'clientAccountId'

100− -> ClientaccessGet'

101−clientaccessGet' pCgSponsorAccountId_ pCgClientAccountId_ =

102− ClientaccessGet'

103− { _cgQuotaUser = Nothing

104− , _cgPrettyPrint = True

105− , _cgUserIp = Nothing

106− , _cgSponsorAccountId = pCgSponsorAccountId_

107− , _cgKey = Nothing

108− , _cgClientAccountId = pCgClientAccountId_

109− , _cgOauthToken = Nothing

110− , _cgFields = Nothing

111− , _cgAlt = JSON

112− }

113−

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−cgQuotaUser :: Lens' ClientaccessGet' (Maybe Text)

118−cgQuotaUser

119− = lens _cgQuotaUser (\ s a -> s{_cgQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−cgPrettyPrint :: Lens' ClientaccessGet' Bool

123−cgPrettyPrint

124− = lens _cgPrettyPrint

125− (\ s a -> s{_cgPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−cgUserIp :: Lens' ClientaccessGet' (Maybe Text)

130−cgUserIp = lens _cgUserIp (\ s a -> s{_cgUserIp = a})

131−

132−cgSponsorAccountId :: Lens' ClientaccessGet' Int32

133−cgSponsorAccountId

134− = lens _cgSponsorAccountId

135− (\ s a -> s{_cgSponsorAccountId = a})

136−

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−cgKey :: Lens' ClientaccessGet' (Maybe Text)

141−cgKey = lens _cgKey (\ s a -> s{_cgKey = a})

142−

143−cgClientAccountId :: Lens' ClientaccessGet' Int64

144−cgClientAccountId

145− = lens _cgClientAccountId

146− (\ s a -> s{_cgClientAccountId = a})

147−

148−-- | OAuth 2.0 token for the current user.

149−cgOauthToken :: Lens' ClientaccessGet' (Maybe Text)

150−cgOauthToken

151− = lens _cgOauthToken (\ s a -> s{_cgOauthToken = a})

152−

153−-- | Selector specifying which fields to include in a partial response.

154−cgFields :: Lens' ClientaccessGet' (Maybe Text)

155−cgFields = lens _cgFields (\ s a -> s{_cgFields = a})

156−

157−-- | Data format for the response.

158−cgAlt :: Lens' ClientaccessGet' Alt

159−cgAlt = lens _cgAlt (\ s a -> s{_cgAlt = a})

160−

161−instance GoogleRequest ClientaccessGet' where

162− type Rs ClientaccessGet' = ClientAccessCapabilities

163− request = requestWithRoute defReq adExchangeBuyerURL

164− requestWithRoute r u ClientaccessGet'{..}

165− = go _cgQuotaUser (Just _cgPrettyPrint) _cgUserIp

166− (Just _cgSponsorAccountId)

167− _cgKey

168− _cgClientAccountId

169− _cgOauthToken

170− _cgFields

171− (Just _cgAlt)

172− where go

173− = clientWithRoute

174− (Proxy :: Proxy ClientaccessGetResource)

175− r

176− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Insert.hsdeleted−175

@@ -1,175 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessInsert@.

23−module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert

24− (

25− -- * REST Resource

26− ClientaccessInsertResource

27−

28− -- * Creating a Request

29− , clientaccessInsert'

30− , ClientaccessInsert'

31−

32− -- * Request Lenses

33− , ciQuotaUser

34− , ciPrettyPrint

35− , ciUserIp

36− , ciSponsorAccountId

37− , ciKey

38− , ciClientAccountId

39− , ciOauthToken

40− , ciFields

41− , ciAlt

42− ) where

43−

44−import Network.Google.AdExchangeBuyer.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdexchangebuyerClientaccessInsert@ which the

48−-- 'ClientaccessInsert'' request conforms to.

49−type ClientaccessInsertResource =

50− "clientAccess" :>

51− QueryParam "quotaUser" Text :>

52− QueryParam "prettyPrint" Bool :>

53− QueryParam "userIp" Text :>

54− QueryParam "sponsorAccountId" Int32 :>

55− QueryParam "key" Text :>

56− QueryParam "clientAccountId" Int64 :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Post '[JSON] ClientAccessCapabilities

61−

62−--

63−-- /See:/ 'clientaccessInsert'' smart constructor.

64−data ClientaccessInsert' = ClientaccessInsert'

65− { _ciQuotaUser :: !(Maybe Text)

66− , _ciPrettyPrint :: !Bool

67− , _ciUserIp :: !(Maybe Text)

68− , _ciSponsorAccountId :: !(Maybe Int32)

69− , _ciKey :: !(Maybe Text)

70− , _ciClientAccountId :: !(Maybe Int64)

71− , _ciOauthToken :: !(Maybe Text)

72− , _ciFields :: !(Maybe Text)

73− , _ciAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'ClientaccessInsert'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'ciQuotaUser'

81−--

82−-- * 'ciPrettyPrint'

83−--

84−-- * 'ciUserIp'

85−--

86−-- * 'ciSponsorAccountId'

87−--

88−-- * 'ciKey'

89−--

90−-- * 'ciClientAccountId'

91−--

92−-- * 'ciOauthToken'

93−--

94−-- * 'ciFields'

95−--

96−-- * 'ciAlt'

97−clientaccessInsert'

98− :: ClientaccessInsert'

99−clientaccessInsert' =

100− ClientaccessInsert'

101− { _ciQuotaUser = Nothing

102− , _ciPrettyPrint = True

103− , _ciUserIp = Nothing

104− , _ciSponsorAccountId = Nothing

105− , _ciKey = Nothing

106− , _ciClientAccountId = Nothing

107− , _ciOauthToken = Nothing

108− , _ciFields = Nothing

109− , _ciAlt = JSON

110− }

111−

112−-- | Available to use for quota purposes for server-side applications. Can be

113−-- any arbitrary string assigned to a user, but should not exceed 40

114−-- characters. Overrides userIp if both are provided.

115−ciQuotaUser :: Lens' ClientaccessInsert' (Maybe Text)

116−ciQuotaUser

117− = lens _ciQuotaUser (\ s a -> s{_ciQuotaUser = a})

118−

119−-- | Returns response with indentations and line breaks.

120−ciPrettyPrint :: Lens' ClientaccessInsert' Bool

121−ciPrettyPrint

122− = lens _ciPrettyPrint

123− (\ s a -> s{_ciPrettyPrint = a})

124−

125−-- | IP address of the site where the request originates. Use this if you

126−-- want to enforce per-user limits.

127−ciUserIp :: Lens' ClientaccessInsert' (Maybe Text)

128−ciUserIp = lens _ciUserIp (\ s a -> s{_ciUserIp = a})

129−

130−ciSponsorAccountId :: Lens' ClientaccessInsert' (Maybe Int32)

131−ciSponsorAccountId

132− = lens _ciSponsorAccountId

133− (\ s a -> s{_ciSponsorAccountId = a})

134−

135−-- | API key. Your API key identifies your project and provides you with API

136−-- access, quota, and reports. Required unless you provide an OAuth 2.0

137−-- token.

138−ciKey :: Lens' ClientaccessInsert' (Maybe Text)

139−ciKey = lens _ciKey (\ s a -> s{_ciKey = a})

140−

141−ciClientAccountId :: Lens' ClientaccessInsert' (Maybe Int64)

142−ciClientAccountId

143− = lens _ciClientAccountId

144− (\ s a -> s{_ciClientAccountId = a})

145−

146−-- | OAuth 2.0 token for the current user.

147−ciOauthToken :: Lens' ClientaccessInsert' (Maybe Text)

148−ciOauthToken

149− = lens _ciOauthToken (\ s a -> s{_ciOauthToken = a})

150−

151−-- | Selector specifying which fields to include in a partial response.

152−ciFields :: Lens' ClientaccessInsert' (Maybe Text)

153−ciFields = lens _ciFields (\ s a -> s{_ciFields = a})

154−

155−-- | Data format for the response.

156−ciAlt :: Lens' ClientaccessInsert' Alt

157−ciAlt = lens _ciAlt (\ s a -> s{_ciAlt = a})

158−

159−instance GoogleRequest ClientaccessInsert' where

160− type Rs ClientaccessInsert' =

161− ClientAccessCapabilities

162− request = requestWithRoute defReq adExchangeBuyerURL

163− requestWithRoute r u ClientaccessInsert'{..}

164− = go _ciQuotaUser (Just _ciPrettyPrint) _ciUserIp

165− _ciSponsorAccountId

166− _ciKey

167− _ciClientAccountId

168− _ciOauthToken

169− _ciFields

170− (Just _ciAlt)

171− where go

172− = clientWithRoute

173− (Proxy :: Proxy ClientaccessInsertResource)

174− r

175− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/List.hsdeleted−149

@@ -1,149 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Clientaccess.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessList@.

23−module Network.Google.Resource.AdExchangeBuyer.Clientaccess.List

24− (

25− -- * REST Resource

26− ClientaccessListResource

27−

28− -- * Creating a Request

29− , clientaccessList'

30− , ClientaccessList'

31−

32− -- * Request Lenses

33− , cQuotaUser

34− , cPrettyPrint

35− , cUserIp

36− , cKey

37− , cOauthToken

38− , cFields

39− , cAlt

40− ) where

41−

42−import Network.Google.AdExchangeBuyer.Types

43−import Network.Google.Prelude

44−

45−-- | A resource alias for @AdexchangebuyerClientaccessList@ which the

46−-- 'ClientaccessList'' request conforms to.

47−type ClientaccessListResource =

48− "clientAccess" :>

49− QueryParam "quotaUser" Text :>

50− QueryParam "prettyPrint" Bool :>

51− QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

53− QueryParam "oauth_token" Text :>

54− QueryParam "fields" Text :>

55− QueryParam "alt" Alt :>

56− Get '[JSON] ListClientAccessCapabilitiesResponse

57−

58−--

59−-- /See:/ 'clientaccessList'' smart constructor.

60−data ClientaccessList' = ClientaccessList'

61− { _cQuotaUser :: !(Maybe Text)

62− , _cPrettyPrint :: !Bool

63− , _cUserIp :: !(Maybe Text)

64− , _cKey :: !(Maybe Text)

65− , _cOauthToken :: !(Maybe Text)

66− , _cFields :: !(Maybe Text)

67− , _cAlt :: !Alt

68− } deriving (Eq,Read,Show,Data,Typeable,Generic)

69−

70−-- | Creates a value of 'ClientaccessList'' with the minimum fields required to make a request.

71−--

72−-- Use one of the following lenses to modify other fields as desired:

73−--

74−-- * 'cQuotaUser'

75−--

76−-- * 'cPrettyPrint'

77−--

78−-- * 'cUserIp'

79−--

80−-- * 'cKey'

81−--

82−-- * 'cOauthToken'

83−--

84−-- * 'cFields'

85−--

86−-- * 'cAlt'

87−clientaccessList'

88− :: ClientaccessList'

89−clientaccessList' =

90− ClientaccessList'

91− { _cQuotaUser = Nothing

92− , _cPrettyPrint = True

93− , _cUserIp = Nothing

94− , _cKey = Nothing

95− , _cOauthToken = Nothing

96− , _cFields = Nothing

97− , _cAlt = JSON

98− }

99−

100−-- | Available to use for quota purposes for server-side applications. Can be

101−-- any arbitrary string assigned to a user, but should not exceed 40

102−-- characters. Overrides userIp if both are provided.

103−cQuotaUser :: Lens' ClientaccessList' (Maybe Text)

104−cQuotaUser

105− = lens _cQuotaUser (\ s a -> s{_cQuotaUser = a})

106−

107−-- | Returns response with indentations and line breaks.

108−cPrettyPrint :: Lens' ClientaccessList' Bool

109−cPrettyPrint

110− = lens _cPrettyPrint (\ s a -> s{_cPrettyPrint = a})

111−

112−-- | IP address of the site where the request originates. Use this if you

113−-- want to enforce per-user limits.

114−cUserIp :: Lens' ClientaccessList' (Maybe Text)

115−cUserIp = lens _cUserIp (\ s a -> s{_cUserIp = a})

116−

117−-- | API key. Your API key identifies your project and provides you with API

118−-- access, quota, and reports. Required unless you provide an OAuth 2.0

119−-- token.

120−cKey :: Lens' ClientaccessList' (Maybe Text)

121−cKey = lens _cKey (\ s a -> s{_cKey = a})

122−

123−-- | OAuth 2.0 token for the current user.

124−cOauthToken :: Lens' ClientaccessList' (Maybe Text)

125−cOauthToken

126− = lens _cOauthToken (\ s a -> s{_cOauthToken = a})

127−

128−-- | Selector specifying which fields to include in a partial response.

129−cFields :: Lens' ClientaccessList' (Maybe Text)

130−cFields = lens _cFields (\ s a -> s{_cFields = a})

131−

132−-- | Data format for the response.

133−cAlt :: Lens' ClientaccessList' Alt

134−cAlt = lens _cAlt (\ s a -> s{_cAlt = a})

135−

136−instance GoogleRequest ClientaccessList' where

137− type Rs ClientaccessList' =

138− ListClientAccessCapabilitiesResponse

139− request = requestWithRoute defReq adExchangeBuyerURL

140− requestWithRoute r u ClientaccessList'{..}

141− = go _cQuotaUser (Just _cPrettyPrint) _cUserIp _cKey

142− _cOauthToken

143− _cFields

144− (Just _cAlt)

145− where go

146− = clientWithRoute

147− (Proxy :: Proxy ClientaccessListResource)

148− r

149− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Patch.hsdeleted−176

@@ -1,176 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessPatch@.

23−module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch

24− (

25− -- * REST Resource

26− ClientaccessPatchResource

27−

28− -- * Creating a Request

29− , clientaccessPatch'

30− , ClientaccessPatch'

31−

32− -- * Request Lenses

33− , cpQuotaUser

34− , cpPrettyPrint

35− , cpUserIp

36− , cpSponsorAccountId

37− , cpKey

38− , cpClientAccountId

39− , cpOauthToken

40− , cpFields

41− , cpAlt

42− ) where

43−

44−import Network.Google.AdExchangeBuyer.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdexchangebuyerClientaccessPatch@ which the

48−-- 'ClientaccessPatch'' request conforms to.

49−type ClientaccessPatchResource =

50− "clientAccess" :>

51− Capture "clientAccountId" Int64 :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "sponsorAccountId" Int32 :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Patch '[JSON] ClientAccessCapabilities

61−

62−--

63−-- /See:/ 'clientaccessPatch'' smart constructor.

64−data ClientaccessPatch' = ClientaccessPatch'

65− { _cpQuotaUser :: !(Maybe Text)

66− , _cpPrettyPrint :: !Bool

67− , _cpUserIp :: !(Maybe Text)

68− , _cpSponsorAccountId :: !Int32

69− , _cpKey :: !(Maybe Text)

70− , _cpClientAccountId :: !Int64

71− , _cpOauthToken :: !(Maybe Text)

72− , _cpFields :: !(Maybe Text)

73− , _cpAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'ClientaccessPatch'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'cpQuotaUser'

81−--

82−-- * 'cpPrettyPrint'

83−--

84−-- * 'cpUserIp'

85−--

86−-- * 'cpSponsorAccountId'

87−--

88−-- * 'cpKey'

89−--

90−-- * 'cpClientAccountId'

91−--

92−-- * 'cpOauthToken'

93−--

94−-- * 'cpFields'

95−--

96−-- * 'cpAlt'

97−clientaccessPatch'

98− :: Int32 -- ^ 'sponsorAccountId'

99− -> Int64 -- ^ 'clientAccountId'

100− -> ClientaccessPatch'

101−clientaccessPatch' pCpSponsorAccountId_ pCpClientAccountId_ =

102− ClientaccessPatch'

103− { _cpQuotaUser = Nothing

104− , _cpPrettyPrint = True

105− , _cpUserIp = Nothing

106− , _cpSponsorAccountId = pCpSponsorAccountId_

107− , _cpKey = Nothing

108− , _cpClientAccountId = pCpClientAccountId_

109− , _cpOauthToken = Nothing

110− , _cpFields = Nothing

111− , _cpAlt = JSON

112− }

113−

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−cpQuotaUser :: Lens' ClientaccessPatch' (Maybe Text)

118−cpQuotaUser

119− = lens _cpQuotaUser (\ s a -> s{_cpQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−cpPrettyPrint :: Lens' ClientaccessPatch' Bool

123−cpPrettyPrint

124− = lens _cpPrettyPrint

125− (\ s a -> s{_cpPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−cpUserIp :: Lens' ClientaccessPatch' (Maybe Text)

130−cpUserIp = lens _cpUserIp (\ s a -> s{_cpUserIp = a})

131−

132−cpSponsorAccountId :: Lens' ClientaccessPatch' Int32

133−cpSponsorAccountId

134− = lens _cpSponsorAccountId

135− (\ s a -> s{_cpSponsorAccountId = a})

136−

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−cpKey :: Lens' ClientaccessPatch' (Maybe Text)

141−cpKey = lens _cpKey (\ s a -> s{_cpKey = a})

142−

143−cpClientAccountId :: Lens' ClientaccessPatch' Int64

144−cpClientAccountId

145− = lens _cpClientAccountId

146− (\ s a -> s{_cpClientAccountId = a})

147−

148−-- | OAuth 2.0 token for the current user.

149−cpOauthToken :: Lens' ClientaccessPatch' (Maybe Text)

150−cpOauthToken

151− = lens _cpOauthToken (\ s a -> s{_cpOauthToken = a})

152−

153−-- | Selector specifying which fields to include in a partial response.

154−cpFields :: Lens' ClientaccessPatch' (Maybe Text)

155−cpFields = lens _cpFields (\ s a -> s{_cpFields = a})

156−

157−-- | Data format for the response.

158−cpAlt :: Lens' ClientaccessPatch' Alt

159−cpAlt = lens _cpAlt (\ s a -> s{_cpAlt = a})

160−

161−instance GoogleRequest ClientaccessPatch' where

162− type Rs ClientaccessPatch' = ClientAccessCapabilities

163− request = requestWithRoute defReq adExchangeBuyerURL

164− requestWithRoute r u ClientaccessPatch'{..}

165− = go _cpQuotaUser (Just _cpPrettyPrint) _cpUserIp

166− (Just _cpSponsorAccountId)

167− _cpKey

168− _cpClientAccountId

169− _cpOauthToken

170− _cpFields

171− (Just _cpAlt)

172− where go

173− = clientWithRoute

174− (Proxy :: Proxy ClientaccessPatchResource)

175− r

176− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Update.hsdeleted−177

@@ -1,177 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessUpdate@.

23−module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update

24− (

25− -- * REST Resource

26− ClientaccessUpdateResource

27−

28− -- * Creating a Request

29− , clientaccessUpdate'

30− , ClientaccessUpdate'

31−

32− -- * Request Lenses

33− , cuQuotaUser

34− , cuPrettyPrint

35− , cuUserIp

36− , cuSponsorAccountId

37− , cuKey

38− , cuClientAccountId

39− , cuOauthToken

40− , cuFields

41− , cuAlt

42− ) where

43−

44−import Network.Google.AdExchangeBuyer.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdexchangebuyerClientaccessUpdate@ which the

48−-- 'ClientaccessUpdate'' request conforms to.

49−type ClientaccessUpdateResource =

50− "clientAccess" :>

51− Capture "clientAccountId" Int64 :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "sponsorAccountId" Int32 :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Put '[JSON] ClientAccessCapabilities

61−

62−--

63−-- /See:/ 'clientaccessUpdate'' smart constructor.

64−data ClientaccessUpdate' = ClientaccessUpdate'

65− { _cuQuotaUser :: !(Maybe Text)

66− , _cuPrettyPrint :: !Bool

67− , _cuUserIp :: !(Maybe Text)

68− , _cuSponsorAccountId :: !Int32

69− , _cuKey :: !(Maybe Text)

70− , _cuClientAccountId :: !Int64

71− , _cuOauthToken :: !(Maybe Text)

72− , _cuFields :: !(Maybe Text)

73− , _cuAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'ClientaccessUpdate'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'cuQuotaUser'

81−--

82−-- * 'cuPrettyPrint'

83−--

84−-- * 'cuUserIp'

85−--

86−-- * 'cuSponsorAccountId'

87−--

88−-- * 'cuKey'

89−--

90−-- * 'cuClientAccountId'

91−--

92−-- * 'cuOauthToken'

93−--

94−-- * 'cuFields'

95−--

96−-- * 'cuAlt'

97−clientaccessUpdate'

98− :: Int32 -- ^ 'sponsorAccountId'

99− -> Int64 -- ^ 'clientAccountId'

100− -> ClientaccessUpdate'

101−clientaccessUpdate' pCuSponsorAccountId_ pCuClientAccountId_ =

102− ClientaccessUpdate'

103− { _cuQuotaUser = Nothing

104− , _cuPrettyPrint = True

105− , _cuUserIp = Nothing

106− , _cuSponsorAccountId = pCuSponsorAccountId_

107− , _cuKey = Nothing

108− , _cuClientAccountId = pCuClientAccountId_

109− , _cuOauthToken = Nothing

110− , _cuFields = Nothing

111− , _cuAlt = JSON

112− }

113−

114−-- | Available to use for quota purposes for server-side applications. Can be

115−-- any arbitrary string assigned to a user, but should not exceed 40

116−-- characters. Overrides userIp if both are provided.

117−cuQuotaUser :: Lens' ClientaccessUpdate' (Maybe Text)

118−cuQuotaUser

119− = lens _cuQuotaUser (\ s a -> s{_cuQuotaUser = a})

120−

121−-- | Returns response with indentations and line breaks.

122−cuPrettyPrint :: Lens' ClientaccessUpdate' Bool

123−cuPrettyPrint

124− = lens _cuPrettyPrint

125− (\ s a -> s{_cuPrettyPrint = a})

126−

127−-- | IP address of the site where the request originates. Use this if you

128−-- want to enforce per-user limits.

129−cuUserIp :: Lens' ClientaccessUpdate' (Maybe Text)

130−cuUserIp = lens _cuUserIp (\ s a -> s{_cuUserIp = a})

131−

132−cuSponsorAccountId :: Lens' ClientaccessUpdate' Int32

133−cuSponsorAccountId

134− = lens _cuSponsorAccountId

135− (\ s a -> s{_cuSponsorAccountId = a})

136−

137−-- | API key. Your API key identifies your project and provides you with API

138−-- access, quota, and reports. Required unless you provide an OAuth 2.0

139−-- token.

140−cuKey :: Lens' ClientaccessUpdate' (Maybe Text)

141−cuKey = lens _cuKey (\ s a -> s{_cuKey = a})

142−

143−cuClientAccountId :: Lens' ClientaccessUpdate' Int64

144−cuClientAccountId

145− = lens _cuClientAccountId

146− (\ s a -> s{_cuClientAccountId = a})

147−

148−-- | OAuth 2.0 token for the current user.

149−cuOauthToken :: Lens' ClientaccessUpdate' (Maybe Text)

150−cuOauthToken

151− = lens _cuOauthToken (\ s a -> s{_cuOauthToken = a})

152−

153−-- | Selector specifying which fields to include in a partial response.

154−cuFields :: Lens' ClientaccessUpdate' (Maybe Text)

155−cuFields = lens _cuFields (\ s a -> s{_cuFields = a})

156−

157−-- | Data format for the response.

158−cuAlt :: Lens' ClientaccessUpdate' Alt

159−cuAlt = lens _cuAlt (\ s a -> s{_cuAlt = a})

160−

161−instance GoogleRequest ClientaccessUpdate' where

162− type Rs ClientaccessUpdate' =

163− ClientAccessCapabilities

164− request = requestWithRoute defReq adExchangeBuyerURL

165− requestWithRoute r u ClientaccessUpdate'{..}

166− = go _cuQuotaUser (Just _cuPrettyPrint) _cuUserIp

167− (Just _cuSponsorAccountId)

168− _cuKey

169− _cuClientAccountId

170− _cuOauthToken

171− _cuFields

172− (Just _cuAlt)

173− where go

174− = clientWithRoute

175− (Proxy :: Proxy ClientaccessUpdateResource)

176− r

177− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs+70−78

@@ -31,15 +31,14 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.Get

31 , CreativesGet'

32

33 -- * Request Lenses

34− , cggQuotaUser

34+ , cgQuotaUser

35− , cggPrettyPrint

35+ , cgPrettyPrint

36− , cggBuyerCreativeId

36+ , cgBuyerCreativeId

37− , cggUserIp

37+ , cgUserIP

38− , cggAccountId

38+ , cgAccountId

39− , cggKey

39+ , cgKey

40− , cggOauthToken

40+ , cgOAuthToken

41− , cggFields

41+ , cgFields

42− , cggAlt

43 ) where

42 ) where

44

43

45import Network.Google.AdExchangeBuyer.Types

44import Network.Google.AdExchangeBuyer.Types

@@ -54,128 +53,121 @@ type CreativesGetResource =

54 QueryParam "quotaUser" Text :>

53 QueryParam "quotaUser" Text :>

55 QueryParam "prettyPrint" Bool :>

54 QueryParam "prettyPrint" Bool :>

56 QueryParam "userIp" Text :>

55 QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

56+ QueryParam "key" Key :>

58− QueryParam "oauth_token" Text :>

57+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "fields" Text :>

58 QueryParam "fields" Text :>

60− QueryParam "alt" Alt :> Get '[JSON] Creative

59+ QueryParam "alt" AltJSON :> Get '[JSON] Creative

61

60

62-- | Gets the status for a single creative. A creative will be available

61-- | Gets the status for a single creative. A creative will be available

63-- 30-40 minutes after submission.

62-- 30-40 minutes after submission.

64--

63--

65-- /See:/ 'creativesGet'' smart constructor.

64-- /See:/ 'creativesGet'' smart constructor.

66data CreativesGet' = CreativesGet'

65data CreativesGet' = CreativesGet'

67− { _cggQuotaUser :: !(Maybe Text)

66+ { _cgQuotaUser :: !(Maybe Text)

68− , _cggPrettyPrint :: !Bool

67+ , _cgPrettyPrint :: !Bool

69− , _cggBuyerCreativeId :: !Text

68+ , _cgBuyerCreativeId :: !Text

70− , _cggUserIp :: !(Maybe Text)

69+ , _cgUserIP :: !(Maybe Text)

71− , _cggAccountId :: !Int32

70+ , _cgAccountId :: !Int32

72− , _cggKey :: !(Maybe Text)

71+ , _cgKey :: !(Maybe Key)

73− , _cggOauthToken :: !(Maybe Text)

72+ , _cgOAuthToken :: !(Maybe OAuthToken)

74− , _cggFields :: !(Maybe Text)

73+ , _cgFields :: !(Maybe Text)

75− , _cggAlt :: !Alt

76 } deriving (Eq,Read,Show,Data,Typeable,Generic)

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

77

75

78-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.

76-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.

79--

77--

80-- Use one of the following lenses to modify other fields as desired:

78-- Use one of the following lenses to modify other fields as desired:

81--

79--

82−-- * 'cggQuotaUser'

80+-- * 'cgQuotaUser'

83--

81--

84−-- * 'cggPrettyPrint'

82+-- * 'cgPrettyPrint'

85--

83--

86−-- * 'cggBuyerCreativeId'

84+-- * 'cgBuyerCreativeId'

87--

85--

88−-- * 'cggUserIp'

86+-- * 'cgUserIP'

89--

87--

90−-- * 'cggAccountId'

88+-- * 'cgAccountId'

91--

89--

92−-- * 'cggKey'

90+-- * 'cgKey'

93--

91--

94−-- * 'cggOauthToken'

92+-- * 'cgOAuthToken'

95--

93--

96−-- * 'cggFields'

94+-- * 'cgFields'

97−--

98−-- * 'cggAlt'

99creativesGet'

95creativesGet'

100 :: Text -- ^ 'buyerCreativeId'

96 :: Text -- ^ 'buyerCreativeId'

101 -> Int32 -- ^ 'accountId'

97 -> Int32 -- ^ 'accountId'

102 -> CreativesGet'

98 -> CreativesGet'

103−creativesGet' pCggBuyerCreativeId_ pCggAccountId_ =

99+creativesGet' pCgBuyerCreativeId_ pCgAccountId_ =

104 CreativesGet'

100 CreativesGet'

105− { _cggQuotaUser = Nothing

101+ { _cgQuotaUser = Nothing

106− , _cggPrettyPrint = True

102+ , _cgPrettyPrint = True

107− , _cggBuyerCreativeId = pCggBuyerCreativeId_

103+ , _cgBuyerCreativeId = pCgBuyerCreativeId_

108− , _cggUserIp = Nothing

104+ , _cgUserIP = Nothing

109− , _cggAccountId = pCggAccountId_

105+ , _cgAccountId = pCgAccountId_

110− , _cggKey = Nothing

106+ , _cgKey = Nothing

111− , _cggOauthToken = Nothing

107+ , _cgOAuthToken = Nothing

112− , _cggFields = Nothing

108+ , _cgFields = Nothing

113− , _cggAlt = JSON

114 }

109 }

115

110

116-- | Available to use for quota purposes for server-side applications. Can be

111-- | Available to use for quota purposes for server-side applications. Can be

117-- any arbitrary string assigned to a user, but should not exceed 40

112-- any arbitrary string assigned to a user, but should not exceed 40

118-- characters. Overrides userIp if both are provided.

113-- characters. Overrides userIp if both are provided.

119−cggQuotaUser :: Lens' CreativesGet' (Maybe Text)

114+cgQuotaUser :: Lens' CreativesGet' (Maybe Text)

120−cggQuotaUser

115+cgQuotaUser

121− = lens _cggQuotaUser (\ s a -> s{_cggQuotaUser = a})

116+ = lens _cgQuotaUser (\ s a -> s{_cgQuotaUser = a})

122

117

123-- | Returns response with indentations and line breaks.

118-- | Returns response with indentations and line breaks.

124−cggPrettyPrint :: Lens' CreativesGet' Bool

119+cgPrettyPrint :: Lens' CreativesGet' Bool

125−cggPrettyPrint

120+cgPrettyPrint

126− = lens _cggPrettyPrint

121+ = lens _cgPrettyPrint

127− (\ s a -> s{_cggPrettyPrint = a})

122+ (\ s a -> s{_cgPrettyPrint = a})

128

123

129-- | The buyer-specific id for this creative.

124-- | The buyer-specific id for this creative.

130−cggBuyerCreativeId :: Lens' CreativesGet' Text

125+cgBuyerCreativeId :: Lens' CreativesGet' Text

131−cggBuyerCreativeId

126+cgBuyerCreativeId

132− = lens _cggBuyerCreativeId

127+ = lens _cgBuyerCreativeId

133− (\ s a -> s{_cggBuyerCreativeId = a})

128+ (\ s a -> s{_cgBuyerCreativeId = a})

134

129

135-- | IP address of the site where the request originates. Use this if you

130-- | IP address of the site where the request originates. Use this if you

136-- want to enforce per-user limits.

131-- want to enforce per-user limits.

137−cggUserIp :: Lens' CreativesGet' (Maybe Text)

132+cgUserIP :: Lens' CreativesGet' (Maybe Text)

138−cggUserIp

133+cgUserIP = lens _cgUserIP (\ s a -> s{_cgUserIP = a})

139− = lens _cggUserIp (\ s a -> s{_cggUserIp = a})

140

134

141-- | The id for the account that will serve this creative.

135-- | The id for the account that will serve this creative.

142−cggAccountId :: Lens' CreativesGet' Int32

136+cgAccountId :: Lens' CreativesGet' Int32

143−cggAccountId

137+cgAccountId

144− = lens _cggAccountId (\ s a -> s{_cggAccountId = a})

138+ = lens _cgAccountId (\ s a -> s{_cgAccountId = a})

145

139

146-- | API key. Your API key identifies your project and provides you with API

140-- | API key. Your API key identifies your project and provides you with API

147-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- access, quota, and reports. Required unless you provide an OAuth 2.0

148-- token.

142-- token.

149−cggKey :: Lens' CreativesGet' (Maybe Text)

143+cgKey :: Lens' CreativesGet' (Maybe Key)

150−cggKey = lens _cggKey (\ s a -> s{_cggKey = a})

144+cgKey = lens _cgKey (\ s a -> s{_cgKey = a})

151

145

152-- | OAuth 2.0 token for the current user.

146-- | OAuth 2.0 token for the current user.

153−cggOauthToken :: Lens' CreativesGet' (Maybe Text)

147+cgOAuthToken :: Lens' CreativesGet' (Maybe OAuthToken)

154−cggOauthToken

148+cgOAuthToken

155− = lens _cggOauthToken

149+ = lens _cgOAuthToken (\ s a -> s{_cgOAuthToken = a})

156− (\ s a -> s{_cggOauthToken = a})

157

150

158-- | Selector specifying which fields to include in a partial response.

151-- | Selector specifying which fields to include in a partial response.

159−cggFields :: Lens' CreativesGet' (Maybe Text)

152+cgFields :: Lens' CreativesGet' (Maybe Text)

160−cggFields

153+cgFields = lens _cgFields (\ s a -> s{_cgFields = a})

161− = lens _cggFields (\ s a -> s{_cggFields = a})

162

154

163−-- | Data format for the response.

164−cggAlt :: Lens' CreativesGet' Alt

155+instance GoogleAuth CreativesGet' where

165−cggAlt = lens _cggAlt (\ s a -> s{_cggAlt = a})

156+ authKey = cgKey . _Just

157+ authToken = cgOAuthToken . _Just

166

158

167instance GoogleRequest CreativesGet' where

159instance GoogleRequest CreativesGet' where

168 type Rs CreativesGet' = Creative

160 type Rs CreativesGet' = Creative

169 request = requestWithRoute defReq adExchangeBuyerURL

161 request = requestWithRoute defReq adExchangeBuyerURL

170 requestWithRoute r u CreativesGet'{..}

162 requestWithRoute r u CreativesGet'{..}

171− = go _cggQuotaUser (Just _cggPrettyPrint)

163+ = go _cgQuotaUser (Just _cgPrettyPrint)

172− _cggBuyerCreativeId

164+ _cgBuyerCreativeId

173− _cggUserIp

165+ _cgUserIP

174− _cggAccountId

166+ _cgAccountId

175− _cggKey

167+ _cgKey

176− _cggOauthToken

168+ _cgOAuthToken

177− _cggFields

169+ _cgFields

178− (Just _cggAlt)

170+ (Just AltJSON)

179 where go

171 where go

180 = clientWithRoute

172 = clientWithRoute

181 (Proxy :: Proxy CreativesGetResource)

173 (Proxy :: Proxy CreativesGetResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs+65−60

@@ -30,13 +30,13 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert

30 , CreativesInsert'

31

32 -- * Request Lenses

33− , creQuotaUser

33+ , ciQuotaUser

34− , crePrettyPrint

34+ , ciPrettyPrint

35− , creUserIp

35+ , ciUserIP

36− , creKey

36+ , ciCreative

37− , creOauthToken

37+ , ciKey

38− , creFields

38+ , ciOAuthToken

39− , creAlt

39+ , ciFields

40 ) where

41

42import Network.Google.AdExchangeBuyer.Types

@@ -49,103 +49,108 @@ type CreativesInsertResource =

49 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

55− QueryParam "alt" Alt :> Post '[JSON] Creative

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] Creative :> Post '[JSON] Creative

56

57

57-- | Submit a new creative.

58-- | Submit a new creative.

58--

59--

59-- /See:/ 'creativesInsert'' smart constructor.

60-- /See:/ 'creativesInsert'' smart constructor.

60data CreativesInsert' = CreativesInsert'

61data CreativesInsert' = CreativesInsert'

61− { _creQuotaUser :: !(Maybe Text)

62+ { _ciQuotaUser :: !(Maybe Text)

62− , _crePrettyPrint :: !Bool

63+ , _ciPrettyPrint :: !Bool

63− , _creUserIp :: !(Maybe Text)

64+ , _ciUserIP :: !(Maybe Text)

64− , _creKey :: !(Maybe Text)

65+ , _ciCreative :: !Creative

65− , _creOauthToken :: !(Maybe Text)

66+ , _ciKey :: !(Maybe Key)

67+ , _ciOAuthToken :: !(Maybe OAuthToken)

66− , _creFields :: !(Maybe Text)

68+ , _ciFields :: !(Maybe Text)

67− , _creAlt :: !Alt

68 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69

70

70-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.

71-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.

71--

72--

72-- Use one of the following lenses to modify other fields as desired:

73-- Use one of the following lenses to modify other fields as desired:

73--

74--

74−-- * 'creQuotaUser'

75+-- * 'ciQuotaUser'

75--

76--

76−-- * 'crePrettyPrint'

77+-- * 'ciPrettyPrint'

77--

78--

78−-- * 'creUserIp'

79+-- * 'ciUserIP'

79--

80--

80−-- * 'creKey'

81+-- * 'ciCreative'

81--

82--

82−-- * 'creOauthToken'

83+-- * 'ciKey'

83--

84--

84−-- * 'creFields'

85+-- * 'ciOAuthToken'

85--

86--

86−-- * 'creAlt'

87+-- * 'ciFields'

87creativesInsert'

88creativesInsert'

89+ :: Creative -- ^ 'Creative'

88− :: CreativesInsert'

90+ -> CreativesInsert'

89−creativesInsert' =

91+creativesInsert' pCiCreative_ =

90 CreativesInsert'

92 CreativesInsert'

91− { _creQuotaUser = Nothing

93+ { _ciQuotaUser = Nothing

92− , _crePrettyPrint = True

94+ , _ciPrettyPrint = True

93− , _creUserIp = Nothing

95+ , _ciUserIP = Nothing

94− , _creKey = Nothing

96+ , _ciCreative = pCiCreative_

95− , _creOauthToken = Nothing

97+ , _ciKey = Nothing

96− , _creFields = Nothing

98+ , _ciOAuthToken = Nothing

97− , _creAlt = JSON

99+ , _ciFields = Nothing

98 }

100 }

99

101

100-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

101-- any arbitrary string assigned to a user, but should not exceed 40

103-- any arbitrary string assigned to a user, but should not exceed 40

102-- characters. Overrides userIp if both are provided.

104-- characters. Overrides userIp if both are provided.

103−creQuotaUser :: Lens' CreativesInsert' (Maybe Text)

105+ciQuotaUser :: Lens' CreativesInsert' (Maybe Text)

104−creQuotaUser

106+ciQuotaUser

105− = lens _creQuotaUser (\ s a -> s{_creQuotaUser = a})

107+ = lens _ciQuotaUser (\ s a -> s{_ciQuotaUser = a})

106

108

107-- | Returns response with indentations and line breaks.

109-- | Returns response with indentations and line breaks.

108−crePrettyPrint :: Lens' CreativesInsert' Bool

110+ciPrettyPrint :: Lens' CreativesInsert' Bool

109−crePrettyPrint

111+ciPrettyPrint

110− = lens _crePrettyPrint

112+ = lens _ciPrettyPrint

111− (\ s a -> s{_crePrettyPrint = a})

113+ (\ s a -> s{_ciPrettyPrint = a})

112

114

113-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

114-- want to enforce per-user limits.

116-- want to enforce per-user limits.

115−creUserIp :: Lens' CreativesInsert' (Maybe Text)

117+ciUserIP :: Lens' CreativesInsert' (Maybe Text)

116−creUserIp

118+ciUserIP = lens _ciUserIP (\ s a -> s{_ciUserIP = a})

117− = lens _creUserIp (\ s a -> s{_creUserIp = a})

119+

120+-- | Multipart request metadata.

121+ciCreative :: Lens' CreativesInsert' Creative

122+ciCreative

123+ = lens _ciCreative (\ s a -> s{_ciCreative = a})

118

124

119-- | API key. Your API key identifies your project and provides you with API

125-- | API key. Your API key identifies your project and provides you with API

120-- access, quota, and reports. Required unless you provide an OAuth 2.0

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- token.

127-- token.

122−creKey :: Lens' CreativesInsert' (Maybe Text)

128+ciKey :: Lens' CreativesInsert' (Maybe Key)

123−creKey = lens _creKey (\ s a -> s{_creKey = a})

129+ciKey = lens _ciKey (\ s a -> s{_ciKey = a})

124

130

125-- | OAuth 2.0 token for the current user.

131-- | OAuth 2.0 token for the current user.

126−creOauthToken :: Lens' CreativesInsert' (Maybe Text)

132+ciOAuthToken :: Lens' CreativesInsert' (Maybe OAuthToken)

127−creOauthToken

133+ciOAuthToken

128− = lens _creOauthToken

134+ = lens _ciOAuthToken (\ s a -> s{_ciOAuthToken = a})

129− (\ s a -> s{_creOauthToken = a})

130

135

131-- | Selector specifying which fields to include in a partial response.

136-- | Selector specifying which fields to include in a partial response.

132−creFields :: Lens' CreativesInsert' (Maybe Text)

137+ciFields :: Lens' CreativesInsert' (Maybe Text)

133−creFields

138+ciFields = lens _ciFields (\ s a -> s{_ciFields = a})

134− = lens _creFields (\ s a -> s{_creFields = a})

135

139

136−-- | Data format for the response.

137−creAlt :: Lens' CreativesInsert' Alt

140+instance GoogleAuth CreativesInsert' where

138−creAlt = lens _creAlt (\ s a -> s{_creAlt = a})

141+ authKey = ciKey . _Just

142+ authToken = ciOAuthToken . _Just

139

143

140instance GoogleRequest CreativesInsert' where

144instance GoogleRequest CreativesInsert' where

141 type Rs CreativesInsert' = Creative

145 type Rs CreativesInsert' = Creative

142 request = requestWithRoute defReq adExchangeBuyerURL

146 request = requestWithRoute defReq adExchangeBuyerURL

143 requestWithRoute r u CreativesInsert'{..}

147 requestWithRoute r u CreativesInsert'{..}

144− = go _creQuotaUser (Just _crePrettyPrint) _creUserIp

148+ = go _ciQuotaUser (Just _ciPrettyPrint) _ciUserIP

145− _creKey

149+ _ciKey

146− _creOauthToken

150+ _ciOAuthToken

147− _creFields

151+ _ciFields

148− (Just _creAlt)

152+ (Just AltJSON)

153+ _ciCreative

149 where go

154 where go

150 = clientWithRoute

155 = clientWithRoute

151 (Proxy :: Proxy CreativesInsertResource)

156 (Proxy :: Proxy CreativesInsertResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs+25−29

@@ -34,16 +34,15 @@ module Network.Google.Resource.AdExchangeBuyer.Creatives.List

34 , clQuotaUser

35 , clPrettyPrint

36 , clBuyerCreativeId

37− , clUserIp

37+ , clUserIP

38 , clOpenAuctionStatusFilter

39 , clAccountId

40 , clKey

41 , clPageToken

42 , clDealsStatusFilter

43− , clOauthToken

43+ , clOAuthToken

44 , clMaxResults

45 , clFields

46− , clAlt

47 ) where

46 ) where

48

47

49import Network.Google.AdExchangeBuyer.Types

48import Network.Google.AdExchangeBuyer.Types

@@ -61,15 +60,16 @@ type CreativesListResource =

61 AdexchangebuyerCreativesListOpenAuctionStatusFilter

60 AdexchangebuyerCreativesListOpenAuctionStatusFilter

62 :>

61 :>

63 QueryParams "accountId" Int32 :>

62 QueryParams "accountId" Int32 :>

64− QueryParam "key" Text :>

63+ QueryParam "key" Key :>

65 QueryParam "pageToken" Text :>

64 QueryParam "pageToken" Text :>

66 QueryParam "dealsStatusFilter"

65 QueryParam "dealsStatusFilter"

67 AdexchangebuyerCreativesListDealsStatusFilter

66 AdexchangebuyerCreativesListDealsStatusFilter

68 :>

67 :>

69− QueryParam "oauth_token" Text :>

68+ QueryParam "oauth_token" OAuthToken :>

70 QueryParam "maxResults" Word32 :>

69 QueryParam "maxResults" Word32 :>

71 QueryParam "fields" Text :>

70 QueryParam "fields" Text :>

71+ QueryParam "alt" AltJSON :>

72− QueryParam "alt" Alt :> Get '[JSON] CreativesList

72+ Get '[JSON] CreativesList

73

74-- | Retrieves a list of the authenticated user\'s active creatives. A

75-- creative will be available 30-40 minutes after submission.

@@ -79,16 +79,15 @@ data CreativesList' = CreativesList'

79 { _clQuotaUser :: !(Maybe Text)

80 , _clPrettyPrint :: !Bool

81 , _clBuyerCreativeId :: !(Maybe Text)

82− , _clUserIp :: !(Maybe Text)

82+ , _clUserIP :: !(Maybe Text)

83 , _clOpenAuctionStatusFilter :: !(Maybe AdexchangebuyerCreativesListOpenAuctionStatusFilter)

84 , _clAccountId :: !(Maybe Int32)

85− , _clKey :: !(Maybe Text)

85+ , _clKey :: !(Maybe Key)

86 , _clPageToken :: !(Maybe Text)

87 , _clDealsStatusFilter :: !(Maybe AdexchangebuyerCreativesListDealsStatusFilter)

88− , _clOauthToken :: !(Maybe Text)

88+ , _clOAuthToken :: !(Maybe OAuthToken)

89 , _clMaxResults :: !(Maybe Word32)

90 , _clFields :: !(Maybe Text)

91− , _clAlt :: !Alt

92 } deriving (Eq,Read,Show,Data,Typeable,Generic)

91 } deriving (Eq,Read,Show,Data,Typeable,Generic)

93

92

94-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.

93-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.

@@ -101,7 +100,7 @@ data CreativesList' = CreativesList'

101--

100--

102-- * 'clBuyerCreativeId'

101-- * 'clBuyerCreativeId'

103--

102--

104−-- * 'clUserIp'

103+-- * 'clUserIP'

105--

104--

106-- * 'clOpenAuctionStatusFilter'

105-- * 'clOpenAuctionStatusFilter'

107--

106--

@@ -113,13 +112,11 @@ data CreativesList' = CreativesList'

113--

112--

114-- * 'clDealsStatusFilter'

113-- * 'clDealsStatusFilter'

115--

114--

116−-- * 'clOauthToken'

115+-- * 'clOAuthToken'

117--

116--

118-- * 'clMaxResults'

117-- * 'clMaxResults'

119--

118--

120-- * 'clFields'

119-- * 'clFields'

121−--

122−-- * 'clAlt'

123creativesList'

120creativesList'

124 :: CreativesList'

121 :: CreativesList'

125creativesList' =

122creativesList' =

@@ -127,16 +124,15 @@ creativesList' =

127 { _clQuotaUser = Nothing

124 { _clQuotaUser = Nothing

128 , _clPrettyPrint = True

125 , _clPrettyPrint = True

129 , _clBuyerCreativeId = Nothing

126 , _clBuyerCreativeId = Nothing

130− , _clUserIp = Nothing

127+ , _clUserIP = Nothing

131 , _clOpenAuctionStatusFilter = Nothing

128 , _clOpenAuctionStatusFilter = Nothing

132 , _clAccountId = Nothing

129 , _clAccountId = Nothing

133 , _clKey = Nothing

130 , _clKey = Nothing

134 , _clPageToken = Nothing

131 , _clPageToken = Nothing

135 , _clDealsStatusFilter = Nothing

132 , _clDealsStatusFilter = Nothing

136− , _clOauthToken = Nothing

133+ , _clOAuthToken = Nothing

137 , _clMaxResults = Nothing

134 , _clMaxResults = Nothing

138 , _clFields = Nothing

135 , _clFields = Nothing

139− , _clAlt = JSON

140 }

136 }

141

137

142-- | Available to use for quota purposes for server-side applications. Can be

138-- | Available to use for quota purposes for server-side applications. Can be

@@ -161,8 +157,8 @@ clBuyerCreativeId

161

157

162-- | IP address of the site where the request originates. Use this if you

158-- | IP address of the site where the request originates. Use this if you

163-- want to enforce per-user limits.

159-- want to enforce per-user limits.

164−clUserIp :: Lens' CreativesList' (Maybe Text)

160+clUserIP :: Lens' CreativesList' (Maybe Text)

165−clUserIp = lens _clUserIp (\ s a -> s{_clUserIp = a})

161+clUserIP = lens _clUserIP (\ s a -> s{_clUserIP = a})

166

162

167-- | When specified, only creatives having the given open auction status are

163-- | When specified, only creatives having the given open auction status are

168-- returned.

164-- returned.

@@ -179,7 +175,7 @@ clAccountId

179-- | API key. Your API key identifies your project and provides you with API

175-- | API key. Your API key identifies your project and provides you with API

180-- access, quota, and reports. Required unless you provide an OAuth 2.0

176-- access, quota, and reports. Required unless you provide an OAuth 2.0

181-- token.

177-- token.

182−clKey :: Lens' CreativesList' (Maybe Text)

178+clKey :: Lens' CreativesList' (Maybe Key)

183clKey = lens _clKey (\ s a -> s{_clKey = a})

179clKey = lens _clKey (\ s a -> s{_clKey = a})

184

180

185-- | A continuation token, used to page through ad clients. To retrieve the

181-- | A continuation token, used to page through ad clients. To retrieve the

@@ -197,9 +193,9 @@ clDealsStatusFilter

197 (\ s a -> s{_clDealsStatusFilter = a})

193 (\ s a -> s{_clDealsStatusFilter = a})

198

194

199-- | OAuth 2.0 token for the current user.

195-- | OAuth 2.0 token for the current user.

200−clOauthToken :: Lens' CreativesList' (Maybe Text)

196+clOAuthToken :: Lens' CreativesList' (Maybe OAuthToken)

201−clOauthToken

197+clOAuthToken

202− = lens _clOauthToken (\ s a -> s{_clOauthToken = a})

198+ = lens _clOAuthToken (\ s a -> s{_clOAuthToken = a})

203

199

204-- | Maximum number of entries returned on one result page. If not set, the

200-- | Maximum number of entries returned on one result page. If not set, the

205-- default is 100. Optional.

201-- default is 100. Optional.

@@ -211,9 +207,9 @@ clMaxResults

211clFields :: Lens' CreativesList' (Maybe Text)

207clFields :: Lens' CreativesList' (Maybe Text)

212clFields = lens _clFields (\ s a -> s{_clFields = a})

208clFields = lens _clFields (\ s a -> s{_clFields = a})

213

209

214−-- | Data format for the response.

215−clAlt :: Lens' CreativesList' Alt

210+instance GoogleAuth CreativesList' where

216−clAlt = lens _clAlt (\ s a -> s{_clAlt = a})

211+ authKey = clKey . _Just

212+ authToken = clOAuthToken . _Just

217

213

218instance GoogleRequest CreativesList' where

214instance GoogleRequest CreativesList' where

219 type Rs CreativesList' = CreativesList

215 type Rs CreativesList' = CreativesList

@@ -221,16 +217,16 @@ instance GoogleRequest CreativesList' where

221 requestWithRoute r u CreativesList'{..}

217 requestWithRoute r u CreativesList'{..}

222 = go _clQuotaUser (Just _clPrettyPrint)

218 = go _clQuotaUser (Just _clPrettyPrint)

223 _clBuyerCreativeId

219 _clBuyerCreativeId

224− _clUserIp

220+ _clUserIP

225 _clOpenAuctionStatusFilter

221 _clOpenAuctionStatusFilter

226 _clAccountId

222 _clAccountId

227 _clKey

223 _clKey

228 _clPageToken

224 _clPageToken

229 _clDealsStatusFilter

225 _clDealsStatusFilter

230− _clOauthToken

226+ _clOAuthToken

231 _clMaxResults

227 _clMaxResults

232 _clFields

228 _clFields

233− (Just _clAlt)

229+ (Just AltJSON)

234 where go

230 where go

235 = clientWithRoute

231 = clientWithRoute

236 (Proxy :: Proxy CreativesListResource)

232 (Proxy :: Proxy CreativesListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs+49−35

@@ -32,12 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.Deals.Get

32 -- * Request Lenses

33 , dgQuotaUser

34 , dgPrettyPrint

35− , dgUserIp

35+ , dgGetFinalizedNegotiationByExternalDealIdRequest

36+ , dgUserIP

36 , dgDealId

37 , dgDealId

37 , dgKey

38 , dgKey

38− , dgOauthToken

39+ , dgOAuthToken

39 , dgFields

40 , dgFields

40− , dgAlt

41 ) where

42

43import Network.Google.AdExchangeBuyer.Types

@@ -51,23 +51,26 @@ type DealsGetResource =

51 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

54+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

57+ QueryParam "alt" AltJSON :>

58+ ReqBody '[JSON]

59+ GetFinalizedNegotiationByExternalDealIdRequest

57− QueryParam "alt" Alt :> Get '[JSON] NegotiationDto

60+ :> Get '[JSON] NegotiationDto

58

61

59-- | Gets the requested deal.

62-- | Gets the requested deal.

60--

63--

61-- /See:/ 'dealsGet'' smart constructor.

64-- /See:/ 'dealsGet'' smart constructor.

62data DealsGet' = DealsGet'

65data DealsGet' = DealsGet'

63− { _dgQuotaUser :: !(Maybe Text)

66+ { _dgQuotaUser :: !(Maybe Text)

64− , _dgPrettyPrint :: !Bool

67+ , _dgPrettyPrint :: !Bool

68+ , _dgGetFinalizedNegotiationByExternalDealIdRequest :: !GetFinalizedNegotiationByExternalDealIdRequest

65− , _dgUserIp :: !(Maybe Text)

69+ , _dgUserIP :: !(Maybe Text)

66− , _dgDealId :: !Int64

70+ , _dgDealId :: !Int64

67− , _dgKey :: !(Maybe Text)

71+ , _dgKey :: !(Maybe Key)

68− , _dgOauthToken :: !(Maybe Text)

72+ , _dgOAuthToken :: !(Maybe OAuthToken)

69− , _dgFields :: !(Maybe Text)

73+ , _dgFields :: !(Maybe Text)

70− , _dgAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

75

73-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.

76-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.

@@ -78,30 +81,31 @@ data DealsGet' = DealsGet'

78--

81--

79-- * 'dgPrettyPrint'

82-- * 'dgPrettyPrint'

80--

83--

81−-- * 'dgUserIp'

84+-- * 'dgGetFinalizedNegotiationByExternalDealIdRequest'

85+--

86+-- * 'dgUserIP'

82--

87--

83-- * 'dgDealId'

88-- * 'dgDealId'

84--

89--

85-- * 'dgKey'

90-- * 'dgKey'

86--

91--

87−-- * 'dgOauthToken'

92+-- * 'dgOAuthToken'

88--

93--

89-- * 'dgFields'

94-- * 'dgFields'

90−--

91−-- * 'dgAlt'

92dealsGet'

95dealsGet'

96+ :: GetFinalizedNegotiationByExternalDealIdRequest -- ^ 'GetFinalizedNegotiationByExternalDealIdRequest'

93− :: Int64 -- ^ 'dealId'

97+ -> Int64 -- ^ 'dealId'

94 -> DealsGet'

98 -> DealsGet'

95−dealsGet' pDgDealId_ =

99+dealsGet' pDgGetFinalizedNegotiationByExternalDealIdRequest_ pDgDealId_ =

96 DealsGet'

100 DealsGet'

97 { _dgQuotaUser = Nothing

101 { _dgQuotaUser = Nothing

98 , _dgPrettyPrint = True

102 , _dgPrettyPrint = True

103+ , _dgGetFinalizedNegotiationByExternalDealIdRequest = pDgGetFinalizedNegotiationByExternalDealIdRequest_

99− , _dgUserIp = Nothing

104+ , _dgUserIP = Nothing

100 , _dgDealId = pDgDealId_

105 , _dgDealId = pDgDealId_

101 , _dgKey = Nothing

106 , _dgKey = Nothing

102− , _dgOauthToken = Nothing

107+ , _dgOAuthToken = Nothing

103 , _dgFields = Nothing

108 , _dgFields = Nothing

104− , _dgAlt = JSON

105 }

109 }

106

110

107-- | Available to use for quota purposes for server-side applications. Can be

111-- | Available to use for quota purposes for server-side applications. Can be

@@ -117,10 +121,19 @@ dgPrettyPrint

117 = lens _dgPrettyPrint

121 = lens _dgPrettyPrint

118 (\ s a -> s{_dgPrettyPrint = a})

122 (\ s a -> s{_dgPrettyPrint = a})

119

123

124+-- | Multipart request metadata.

125+dgGetFinalizedNegotiationByExternalDealIdRequest :: Lens' DealsGet' GetFinalizedNegotiationByExternalDealIdRequest

126+dgGetFinalizedNegotiationByExternalDealIdRequest

127+ = lens

128+ _dgGetFinalizedNegotiationByExternalDealIdRequest

129+ (\ s a ->

130+ s{_dgGetFinalizedNegotiationByExternalDealIdRequest =

131+ a})

132+

120-- | IP address of the site where the request originates. Use this if you

133-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

134-- want to enforce per-user limits.

122−dgUserIp :: Lens' DealsGet' (Maybe Text)

135+dgUserIP :: Lens' DealsGet' (Maybe Text)

123−dgUserIp = lens _dgUserIp (\ s a -> s{_dgUserIp = a})

136+dgUserIP = lens _dgUserIP (\ s a -> s{_dgUserIP = a})

124

137

125dgDealId :: Lens' DealsGet' Int64

138dgDealId :: Lens' DealsGet' Int64

126dgDealId = lens _dgDealId (\ s a -> s{_dgDealId = a})

139dgDealId = lens _dgDealId (\ s a -> s{_dgDealId = a})

@@ -128,32 +141,33 @@ dgDealId = lens _dgDealId (\ s a -> s{_dgDealId = a})

128-- | API key. Your API key identifies your project and provides you with API

141-- | API key. Your API key identifies your project and provides you with API

129-- access, quota, and reports. Required unless you provide an OAuth 2.0

142-- access, quota, and reports. Required unless you provide an OAuth 2.0

130-- token.

143-- token.

131−dgKey :: Lens' DealsGet' (Maybe Text)

144+dgKey :: Lens' DealsGet' (Maybe Key)

132dgKey = lens _dgKey (\ s a -> s{_dgKey = a})

145dgKey = lens _dgKey (\ s a -> s{_dgKey = a})

133

146

134-- | OAuth 2.0 token for the current user.

147-- | OAuth 2.0 token for the current user.

135−dgOauthToken :: Lens' DealsGet' (Maybe Text)

148+dgOAuthToken :: Lens' DealsGet' (Maybe OAuthToken)

136−dgOauthToken

149+dgOAuthToken

137− = lens _dgOauthToken (\ s a -> s{_dgOauthToken = a})

150+ = lens _dgOAuthToken (\ s a -> s{_dgOAuthToken = a})

138

151

139-- | Selector specifying which fields to include in a partial response.

152-- | Selector specifying which fields to include in a partial response.

140dgFields :: Lens' DealsGet' (Maybe Text)

153dgFields :: Lens' DealsGet' (Maybe Text)

141dgFields = lens _dgFields (\ s a -> s{_dgFields = a})

154dgFields = lens _dgFields (\ s a -> s{_dgFields = a})

142

155

143−-- | Data format for the response.

156+instance GoogleAuth DealsGet' where

144−dgAlt :: Lens' DealsGet' Alt

157+ authKey = dgKey . _Just

145−dgAlt = lens _dgAlt (\ s a -> s{_dgAlt = a})

158+ authToken = dgOAuthToken . _Just

146

159

147instance GoogleRequest DealsGet' where

160instance GoogleRequest DealsGet' where

148 type Rs DealsGet' = NegotiationDto

161 type Rs DealsGet' = NegotiationDto

149 request = requestWithRoute defReq adExchangeBuyerURL

162 request = requestWithRoute defReq adExchangeBuyerURL

150 requestWithRoute r u DealsGet'{..}

163 requestWithRoute r u DealsGet'{..}

151− = go _dgQuotaUser (Just _dgPrettyPrint) _dgUserIp

164+ = go _dgQuotaUser (Just _dgPrettyPrint) _dgUserIP

152 _dgDealId

165 _dgDealId

153 _dgKey

166 _dgKey

154− _dgOauthToken

167+ _dgOAuthToken

155 _dgFields

168 _dgFields

156− (Just _dgAlt)

169+ (Just AltJSON)

170+ _dgGetFinalizedNegotiationByExternalDealIdRequest

157 where go

171 where go

158 = clientWithRoute (Proxy :: Proxy DealsGetResource) r

172 = clientWithRoute (Proxy :: Proxy DealsGetResource) r

159 u

173 u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Delete.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Delete the specified deals from the order

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceDealsDelete@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete

24+ (

25+ -- * REST Resource

26+ MarketplaceDealsDeleteResource

27+

28+ -- * Creating a Request

29+ , marketplaceDealsDelete'

30+ , MarketplaceDealsDelete'

31+

32+ -- * Request Lenses

33+ , mddQuotaUser

34+ , mddPrettyPrint

35+ , mddUserIP

36+ , mddDeleteOrderDealsRequest

37+ , mddKey

38+ , mddOAuthToken

39+ , mddOrderId

40+ , mddFields

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerMarketplaceDealsDelete@ which the

47+-- 'MarketplaceDealsDelete'' request conforms to.

48+type MarketplaceDealsDeleteResource =

49+ "marketplaceOrders" :>

50+ Capture "orderId" Text :>

51+ "deals" :>

52+ "delete" :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] DeleteOrderDealsRequest :>

61+ Post '[JSON] DeleteOrderDealsResponse

62+

63+-- | Delete the specified deals from the order

64+--

65+-- /See:/ 'marketplaceDealsDelete'' smart constructor.

66+data MarketplaceDealsDelete' = MarketplaceDealsDelete'

67+ { _mddQuotaUser :: !(Maybe Text)

68+ , _mddPrettyPrint :: !Bool

69+ , _mddUserIP :: !(Maybe Text)

70+ , _mddDeleteOrderDealsRequest :: !DeleteOrderDealsRequest

71+ , _mddKey :: !(Maybe Key)

72+ , _mddOAuthToken :: !(Maybe OAuthToken)

73+ , _mddOrderId :: !Text

74+ , _mddFields :: !(Maybe Text)

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'MarketplaceDealsDelete'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'mddQuotaUser'

82+--

83+-- * 'mddPrettyPrint'

84+--

85+-- * 'mddUserIP'

86+--

87+-- * 'mddDeleteOrderDealsRequest'

88+--

89+-- * 'mddKey'

90+--

91+-- * 'mddOAuthToken'

92+--

93+-- * 'mddOrderId'

94+--

95+-- * 'mddFields'

96+marketplaceDealsDelete'

97+ :: DeleteOrderDealsRequest -- ^ 'DeleteOrderDealsRequest'

98+ -> Text -- ^ 'orderId'

99+ -> MarketplaceDealsDelete'

100+marketplaceDealsDelete' pMddDeleteOrderDealsRequest_ pMddOrderId_ =

101+ MarketplaceDealsDelete'

102+ { _mddQuotaUser = Nothing

103+ , _mddPrettyPrint = True

104+ , _mddUserIP = Nothing

105+ , _mddDeleteOrderDealsRequest = pMddDeleteOrderDealsRequest_

106+ , _mddKey = Nothing

107+ , _mddOAuthToken = Nothing

108+ , _mddOrderId = pMddOrderId_

109+ , _mddFields = Nothing

110+ }

111+

112+-- | Available to use for quota purposes for server-side applications. Can be

113+-- any arbitrary string assigned to a user, but should not exceed 40

114+-- characters. Overrides userIp if both are provided.

115+mddQuotaUser :: Lens' MarketplaceDealsDelete' (Maybe Text)

116+mddQuotaUser

117+ = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})

118+

119+-- | Returns response with indentations and line breaks.

120+mddPrettyPrint :: Lens' MarketplaceDealsDelete' Bool

121+mddPrettyPrint

122+ = lens _mddPrettyPrint

123+ (\ s a -> s{_mddPrettyPrint = a})

124+

125+-- | IP address of the site where the request originates. Use this if you

126+-- want to enforce per-user limits.

127+mddUserIP :: Lens' MarketplaceDealsDelete' (Maybe Text)

128+mddUserIP

129+ = lens _mddUserIP (\ s a -> s{_mddUserIP = a})

130+

131+-- | Multipart request metadata.

132+mddDeleteOrderDealsRequest :: Lens' MarketplaceDealsDelete' DeleteOrderDealsRequest

133+mddDeleteOrderDealsRequest

134+ = lens _mddDeleteOrderDealsRequest

135+ (\ s a -> s{_mddDeleteOrderDealsRequest = a})

136+

137+-- | API key. Your API key identifies your project and provides you with API

138+-- access, quota, and reports. Required unless you provide an OAuth 2.0

139+-- token.

140+mddKey :: Lens' MarketplaceDealsDelete' (Maybe Key)

141+mddKey = lens _mddKey (\ s a -> s{_mddKey = a})

142+

143+-- | OAuth 2.0 token for the current user.

144+mddOAuthToken :: Lens' MarketplaceDealsDelete' (Maybe OAuthToken)

145+mddOAuthToken

146+ = lens _mddOAuthToken

147+ (\ s a -> s{_mddOAuthToken = a})

148+

149+-- | The orderId to delete deals from.

150+mddOrderId :: Lens' MarketplaceDealsDelete' Text

151+mddOrderId

152+ = lens _mddOrderId (\ s a -> s{_mddOrderId = a})

153+

154+-- | Selector specifying which fields to include in a partial response.

155+mddFields :: Lens' MarketplaceDealsDelete' (Maybe Text)

156+mddFields

157+ = lens _mddFields (\ s a -> s{_mddFields = a})

158+

159+instance GoogleAuth MarketplaceDealsDelete' where

160+ authKey = mddKey . _Just

161+ authToken = mddOAuthToken . _Just

162+

163+instance GoogleRequest MarketplaceDealsDelete' where

164+ type Rs MarketplaceDealsDelete' =

165+ DeleteOrderDealsResponse

166+ request = requestWithRoute defReq adExchangeBuyerURL

167+ requestWithRoute r u MarketplaceDealsDelete'{..}

168+ = go _mddQuotaUser (Just _mddPrettyPrint) _mddUserIP

169+ _mddKey

170+ _mddOAuthToken

171+ _mddOrderId

172+ _mddFields

173+ (Just AltJSON)

174+ _mddDeleteOrderDealsRequest

175+ where go

176+ = clientWithRoute

177+ (Proxy :: Proxy MarketplaceDealsDeleteResource)

178+ r

179+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Insert.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Add new deals for the specified order

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceDealsInsert@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert

24+ (

25+ -- * REST Resource

26+ MarketplaceDealsInsertResource

27+

28+ -- * Creating a Request

29+ , marketplaceDealsInsert'

30+ , MarketplaceDealsInsert'

31+

32+ -- * Request Lenses

33+ , mdiQuotaUser

34+ , mdiPrettyPrint

35+ , mdiUserIP

36+ , mdiKey

37+ , mdiOAuthToken

38+ , mdiOrderId

39+ , mdiFields

40+ , mdiAddOrderDealsRequest

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerMarketplaceDealsInsert@ which the

47+-- 'MarketplaceDealsInsert'' request conforms to.

48+type MarketplaceDealsInsertResource =

49+ "marketplaceOrders" :>

50+ Capture "orderId" Text :>

51+ "deals" :>

52+ "insert" :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] AddOrderDealsRequest :>

61+ Post '[JSON] AddOrderDealsResponse

62+

63+-- | Add new deals for the specified order

64+--

65+-- /See:/ 'marketplaceDealsInsert'' smart constructor.

66+data MarketplaceDealsInsert' = MarketplaceDealsInsert'

67+ { _mdiQuotaUser :: !(Maybe Text)

68+ , _mdiPrettyPrint :: !Bool

69+ , _mdiUserIP :: !(Maybe Text)

70+ , _mdiKey :: !(Maybe Key)

71+ , _mdiOAuthToken :: !(Maybe OAuthToken)

72+ , _mdiOrderId :: !Text

73+ , _mdiFields :: !(Maybe Text)

74+ , _mdiAddOrderDealsRequest :: !AddOrderDealsRequest

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'MarketplaceDealsInsert'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'mdiQuotaUser'

82+--

83+-- * 'mdiPrettyPrint'

84+--

85+-- * 'mdiUserIP'

86+--

87+-- * 'mdiKey'

88+--

89+-- * 'mdiOAuthToken'

90+--

91+-- * 'mdiOrderId'

92+--

93+-- * 'mdiFields'

94+--

95+-- * 'mdiAddOrderDealsRequest'

96+marketplaceDealsInsert'

97+ :: Text -- ^ 'orderId'

98+ -> AddOrderDealsRequest -- ^ 'AddOrderDealsRequest'

99+ -> MarketplaceDealsInsert'

100+marketplaceDealsInsert' pMdiOrderId_ pMdiAddOrderDealsRequest_ =

101+ MarketplaceDealsInsert'

102+ { _mdiQuotaUser = Nothing

103+ , _mdiPrettyPrint = True

104+ , _mdiUserIP = Nothing

105+ , _mdiKey = Nothing

106+ , _mdiOAuthToken = Nothing

107+ , _mdiOrderId = pMdiOrderId_

108+ , _mdiFields = Nothing

109+ , _mdiAddOrderDealsRequest = pMdiAddOrderDealsRequest_

110+ }

111+

112+-- | Available to use for quota purposes for server-side applications. Can be

113+-- any arbitrary string assigned to a user, but should not exceed 40

114+-- characters. Overrides userIp if both are provided.

115+mdiQuotaUser :: Lens' MarketplaceDealsInsert' (Maybe Text)

116+mdiQuotaUser

117+ = lens _mdiQuotaUser (\ s a -> s{_mdiQuotaUser = a})

118+

119+-- | Returns response with indentations and line breaks.

120+mdiPrettyPrint :: Lens' MarketplaceDealsInsert' Bool

121+mdiPrettyPrint

122+ = lens _mdiPrettyPrint

123+ (\ s a -> s{_mdiPrettyPrint = a})

124+

125+-- | IP address of the site where the request originates. Use this if you

126+-- want to enforce per-user limits.

127+mdiUserIP :: Lens' MarketplaceDealsInsert' (Maybe Text)

128+mdiUserIP

129+ = lens _mdiUserIP (\ s a -> s{_mdiUserIP = a})

130+

131+-- | API key. Your API key identifies your project and provides you with API

132+-- access, quota, and reports. Required unless you provide an OAuth 2.0

133+-- token.

134+mdiKey :: Lens' MarketplaceDealsInsert' (Maybe Key)

135+mdiKey = lens _mdiKey (\ s a -> s{_mdiKey = a})

136+

137+-- | OAuth 2.0 token for the current user.

138+mdiOAuthToken :: Lens' MarketplaceDealsInsert' (Maybe OAuthToken)

139+mdiOAuthToken

140+ = lens _mdiOAuthToken

141+ (\ s a -> s{_mdiOAuthToken = a})

142+

143+-- | OrderId for which deals need to be added.

144+mdiOrderId :: Lens' MarketplaceDealsInsert' Text

145+mdiOrderId

146+ = lens _mdiOrderId (\ s a -> s{_mdiOrderId = a})

147+

148+-- | Selector specifying which fields to include in a partial response.

149+mdiFields :: Lens' MarketplaceDealsInsert' (Maybe Text)

150+mdiFields

151+ = lens _mdiFields (\ s a -> s{_mdiFields = a})

152+

153+-- | Multipart request metadata.

154+mdiAddOrderDealsRequest :: Lens' MarketplaceDealsInsert' AddOrderDealsRequest

155+mdiAddOrderDealsRequest

156+ = lens _mdiAddOrderDealsRequest

157+ (\ s a -> s{_mdiAddOrderDealsRequest = a})

158+

159+instance GoogleAuth MarketplaceDealsInsert' where

160+ authKey = mdiKey . _Just

161+ authToken = mdiOAuthToken . _Just

162+

163+instance GoogleRequest MarketplaceDealsInsert' where

164+ type Rs MarketplaceDealsInsert' =

165+ AddOrderDealsResponse

166+ request = requestWithRoute defReq adExchangeBuyerURL

167+ requestWithRoute r u MarketplaceDealsInsert'{..}

168+ = go _mdiQuotaUser (Just _mdiPrettyPrint) _mdiUserIP

169+ _mdiKey

170+ _mdiOAuthToken

171+ _mdiOrderId

172+ _mdiFields

173+ (Just AltJSON)

174+ _mdiAddOrderDealsRequest

175+ where go

176+ = clientWithRoute

177+ (Proxy :: Proxy MarketplaceDealsInsertResource)

178+ r

179+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/List.hsnew file+163

@@ -0,0 +1,163 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | List all the deals for a given order

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceDealsList@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List

24+ (

25+ -- * REST Resource

26+ MarketplaceDealsListResource

27+

28+ -- * Creating a Request

29+ , marketplaceDealsList'

30+ , MarketplaceDealsList'

31+

32+ -- * Request Lenses

33+ , mdlQuotaUser

34+ , mdlPrettyPrint

35+ , mdlUserIP

36+ , mdlKey

37+ , mdlOAuthToken

38+ , mdlOrderId

39+ , mdlFields

40+ ) where

41+

42+import Network.Google.AdExchangeBuyer.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangebuyerMarketplaceDealsList@ which the

46+-- 'MarketplaceDealsList'' request conforms to.

47+type MarketplaceDealsListResource =

48+ "marketplaceOrders" :>

49+ Capture "orderId" Text :>

50+ "deals" :>

51+ QueryParam "quotaUser" Text :>

52+ QueryParam "prettyPrint" Bool :>

53+ QueryParam "userIp" Text :>

54+ QueryParam "key" Key :>

55+ QueryParam "oauth_token" OAuthToken :>

56+ QueryParam "fields" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] GetOrderDealsResponse

59+

60+-- | List all the deals for a given order

61+--

62+-- /See:/ 'marketplaceDealsList'' smart constructor.

63+data MarketplaceDealsList' = MarketplaceDealsList'

64+ { _mdlQuotaUser :: !(Maybe Text)

65+ , _mdlPrettyPrint :: !Bool

66+ , _mdlUserIP :: !(Maybe Text)

67+ , _mdlKey :: !(Maybe Key)

68+ , _mdlOAuthToken :: !(Maybe OAuthToken)

69+ , _mdlOrderId :: !Text

70+ , _mdlFields :: !(Maybe Text)

71+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

72+

73+-- | Creates a value of 'MarketplaceDealsList'' with the minimum fields required to make a request.

74+--

75+-- Use one of the following lenses to modify other fields as desired:

76+--

77+-- * 'mdlQuotaUser'

78+--

79+-- * 'mdlPrettyPrint'

80+--

81+-- * 'mdlUserIP'

82+--

83+-- * 'mdlKey'

84+--

85+-- * 'mdlOAuthToken'

86+--

87+-- * 'mdlOrderId'

88+--

89+-- * 'mdlFields'

90+marketplaceDealsList'

91+ :: Text -- ^ 'orderId'

92+ -> MarketplaceDealsList'

93+marketplaceDealsList' pMdlOrderId_ =

94+ MarketplaceDealsList'

95+ { _mdlQuotaUser = Nothing

96+ , _mdlPrettyPrint = True

97+ , _mdlUserIP = Nothing

98+ , _mdlKey = Nothing

99+ , _mdlOAuthToken = Nothing

100+ , _mdlOrderId = pMdlOrderId_

101+ , _mdlFields = Nothing

102+ }

103+

104+-- | Available to use for quota purposes for server-side applications. Can be

105+-- any arbitrary string assigned to a user, but should not exceed 40

106+-- characters. Overrides userIp if both are provided.

107+mdlQuotaUser :: Lens' MarketplaceDealsList' (Maybe Text)

108+mdlQuotaUser

109+ = lens _mdlQuotaUser (\ s a -> s{_mdlQuotaUser = a})

110+

111+-- | Returns response with indentations and line breaks.

112+mdlPrettyPrint :: Lens' MarketplaceDealsList' Bool

113+mdlPrettyPrint

114+ = lens _mdlPrettyPrint

115+ (\ s a -> s{_mdlPrettyPrint = a})

116+

117+-- | IP address of the site where the request originates. Use this if you

118+-- want to enforce per-user limits.

119+mdlUserIP :: Lens' MarketplaceDealsList' (Maybe Text)

120+mdlUserIP

121+ = lens _mdlUserIP (\ s a -> s{_mdlUserIP = a})

122+

123+-- | API key. Your API key identifies your project and provides you with API

124+-- access, quota, and reports. Required unless you provide an OAuth 2.0

125+-- token.

126+mdlKey :: Lens' MarketplaceDealsList' (Maybe Key)

127+mdlKey = lens _mdlKey (\ s a -> s{_mdlKey = a})

128+

129+-- | OAuth 2.0 token for the current user.

130+mdlOAuthToken :: Lens' MarketplaceDealsList' (Maybe OAuthToken)

131+mdlOAuthToken

132+ = lens _mdlOAuthToken

133+ (\ s a -> s{_mdlOAuthToken = a})

134+

135+-- | The orderId to get deals for.

136+mdlOrderId :: Lens' MarketplaceDealsList' Text

137+mdlOrderId

138+ = lens _mdlOrderId (\ s a -> s{_mdlOrderId = a})

139+

140+-- | Selector specifying which fields to include in a partial response.

141+mdlFields :: Lens' MarketplaceDealsList' (Maybe Text)

142+mdlFields

143+ = lens _mdlFields (\ s a -> s{_mdlFields = a})

144+

145+instance GoogleAuth MarketplaceDealsList' where

146+ authKey = mdlKey . _Just

147+ authToken = mdlOAuthToken . _Just

148+

149+instance GoogleRequest MarketplaceDealsList' where

150+ type Rs MarketplaceDealsList' = GetOrderDealsResponse

151+ request = requestWithRoute defReq adExchangeBuyerURL

152+ requestWithRoute r u MarketplaceDealsList'{..}

153+ = go _mdlQuotaUser (Just _mdlPrettyPrint) _mdlUserIP

154+ _mdlKey

155+ _mdlOAuthToken

156+ _mdlOrderId

157+ _mdlFields

158+ (Just AltJSON)

159+ where go

160+ = clientWithRoute

161+ (Proxy :: Proxy MarketplaceDealsListResource)

162+ r

163+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceDeals/Update.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Replaces all the deals in the order with the passed in deals

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceDealsUpdate@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update

24+ (

25+ -- * REST Resource

26+ MarketplaceDealsUpdateResource

27+

28+ -- * Creating a Request

29+ , marketplaceDealsUpdate'

30+ , MarketplaceDealsUpdate'

31+

32+ -- * Request Lenses

33+ , mduQuotaUser

34+ , mduPrettyPrint

35+ , mduUserIP

36+ , mduKey

37+ , mduEditAllOrderDealsRequest

38+ , mduOAuthToken

39+ , mduOrderId

40+ , mduFields

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerMarketplaceDealsUpdate@ which the

47+-- 'MarketplaceDealsUpdate'' request conforms to.

48+type MarketplaceDealsUpdateResource =

49+ "marketplaceOrders" :>

50+ Capture "orderId" Text :>

51+ "deals" :>

52+ "update" :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] EditAllOrderDealsRequest :>

61+ Post '[JSON] EditAllOrderDealsResponse

62+

63+-- | Replaces all the deals in the order with the passed in deals

64+--

65+-- /See:/ 'marketplaceDealsUpdate'' smart constructor.

66+data MarketplaceDealsUpdate' = MarketplaceDealsUpdate'

67+ { _mduQuotaUser :: !(Maybe Text)

68+ , _mduPrettyPrint :: !Bool

69+ , _mduUserIP :: !(Maybe Text)

70+ , _mduKey :: !(Maybe Key)

71+ , _mduEditAllOrderDealsRequest :: !EditAllOrderDealsRequest

72+ , _mduOAuthToken :: !(Maybe OAuthToken)

73+ , _mduOrderId :: !Text

74+ , _mduFields :: !(Maybe Text)

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'MarketplaceDealsUpdate'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'mduQuotaUser'

82+--

83+-- * 'mduPrettyPrint'

84+--

85+-- * 'mduUserIP'

86+--

87+-- * 'mduKey'

88+--

89+-- * 'mduEditAllOrderDealsRequest'

90+--

91+-- * 'mduOAuthToken'

92+--

93+-- * 'mduOrderId'

94+--

95+-- * 'mduFields'

96+marketplaceDealsUpdate'

97+ :: EditAllOrderDealsRequest -- ^ 'EditAllOrderDealsRequest'

98+ -> Text -- ^ 'orderId'

99+ -> MarketplaceDealsUpdate'

100+marketplaceDealsUpdate' pMduEditAllOrderDealsRequest_ pMduOrderId_ =

101+ MarketplaceDealsUpdate'

102+ { _mduQuotaUser = Nothing

103+ , _mduPrettyPrint = True

104+ , _mduUserIP = Nothing

105+ , _mduKey = Nothing

106+ , _mduEditAllOrderDealsRequest = pMduEditAllOrderDealsRequest_

107+ , _mduOAuthToken = Nothing

108+ , _mduOrderId = pMduOrderId_

109+ , _mduFields = Nothing

110+ }

111+

112+-- | Available to use for quota purposes for server-side applications. Can be

113+-- any arbitrary string assigned to a user, but should not exceed 40

114+-- characters. Overrides userIp if both are provided.

115+mduQuotaUser :: Lens' MarketplaceDealsUpdate' (Maybe Text)

116+mduQuotaUser

117+ = lens _mduQuotaUser (\ s a -> s{_mduQuotaUser = a})

118+

119+-- | Returns response with indentations and line breaks.

120+mduPrettyPrint :: Lens' MarketplaceDealsUpdate' Bool

121+mduPrettyPrint

122+ = lens _mduPrettyPrint

123+ (\ s a -> s{_mduPrettyPrint = a})

124+

125+-- | IP address of the site where the request originates. Use this if you

126+-- want to enforce per-user limits.

127+mduUserIP :: Lens' MarketplaceDealsUpdate' (Maybe Text)

128+mduUserIP

129+ = lens _mduUserIP (\ s a -> s{_mduUserIP = a})

130+

131+-- | API key. Your API key identifies your project and provides you with API

132+-- access, quota, and reports. Required unless you provide an OAuth 2.0

133+-- token.

134+mduKey :: Lens' MarketplaceDealsUpdate' (Maybe Key)

135+mduKey = lens _mduKey (\ s a -> s{_mduKey = a})

136+

137+-- | Multipart request metadata.

138+mduEditAllOrderDealsRequest :: Lens' MarketplaceDealsUpdate' EditAllOrderDealsRequest

139+mduEditAllOrderDealsRequest

140+ = lens _mduEditAllOrderDealsRequest

141+ (\ s a -> s{_mduEditAllOrderDealsRequest = a})

142+

143+-- | OAuth 2.0 token for the current user.

144+mduOAuthToken :: Lens' MarketplaceDealsUpdate' (Maybe OAuthToken)

145+mduOAuthToken

146+ = lens _mduOAuthToken

147+ (\ s a -> s{_mduOAuthToken = a})

148+

149+-- | The orderId to edit deals on.

150+mduOrderId :: Lens' MarketplaceDealsUpdate' Text

151+mduOrderId

152+ = lens _mduOrderId (\ s a -> s{_mduOrderId = a})

153+

154+-- | Selector specifying which fields to include in a partial response.

155+mduFields :: Lens' MarketplaceDealsUpdate' (Maybe Text)

156+mduFields

157+ = lens _mduFields (\ s a -> s{_mduFields = a})

158+

159+instance GoogleAuth MarketplaceDealsUpdate' where

160+ authKey = mduKey . _Just

161+ authToken = mduOAuthToken . _Just

162+

163+instance GoogleRequest MarketplaceDealsUpdate' where

164+ type Rs MarketplaceDealsUpdate' =

165+ EditAllOrderDealsResponse

166+ request = requestWithRoute defReq adExchangeBuyerURL

167+ requestWithRoute r u MarketplaceDealsUpdate'{..}

168+ = go _mduQuotaUser (Just _mduPrettyPrint) _mduUserIP

169+ _mduKey

170+ _mduOAuthToken

171+ _mduOrderId

172+ _mduFields

173+ (Just AltJSON)

174+ _mduEditAllOrderDealsRequest

175+ where go

176+ = clientWithRoute

177+ (Proxy :: Proxy MarketplaceDealsUpdateResource)

178+ r

179+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/Insert.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Add notes to the order

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceNotesInsert@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert

24+ (

25+ -- * REST Resource

26+ MarketplaceNotesInsertResource

27+

28+ -- * Creating a Request

29+ , marketplaceNotesInsert'

30+ , MarketplaceNotesInsert'

31+

32+ -- * Request Lenses

33+ , mniQuotaUser

34+ , mniPrettyPrint

35+ , mniAddOrderNotesRequest

36+ , mniUserIP

37+ , mniKey

38+ , mniOAuthToken

39+ , mniOrderId

40+ , mniFields

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerMarketplaceNotesInsert@ which the

47+-- 'MarketplaceNotesInsert'' request conforms to.

48+type MarketplaceNotesInsertResource =

49+ "marketplaceOrders" :>

50+ Capture "orderId" Text :>

51+ "notes" :>

52+ "insert" :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] AddOrderNotesRequest :>

61+ Post '[JSON] AddOrderNotesResponse

62+

63+-- | Add notes to the order

64+--

65+-- /See:/ 'marketplaceNotesInsert'' smart constructor.

66+data MarketplaceNotesInsert' = MarketplaceNotesInsert'

67+ { _mniQuotaUser :: !(Maybe Text)

68+ , _mniPrettyPrint :: !Bool

69+ , _mniAddOrderNotesRequest :: !AddOrderNotesRequest

70+ , _mniUserIP :: !(Maybe Text)

71+ , _mniKey :: !(Maybe Key)

72+ , _mniOAuthToken :: !(Maybe OAuthToken)

73+ , _mniOrderId :: !Text

74+ , _mniFields :: !(Maybe Text)

75+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

76+

77+-- | Creates a value of 'MarketplaceNotesInsert'' with the minimum fields required to make a request.

78+--

79+-- Use one of the following lenses to modify other fields as desired:

80+--

81+-- * 'mniQuotaUser'

82+--

83+-- * 'mniPrettyPrint'

84+--

85+-- * 'mniAddOrderNotesRequest'

86+--

87+-- * 'mniUserIP'

88+--

89+-- * 'mniKey'

90+--

91+-- * 'mniOAuthToken'

92+--

93+-- * 'mniOrderId'

94+--

95+-- * 'mniFields'

96+marketplaceNotesInsert'

97+ :: AddOrderNotesRequest -- ^ 'AddOrderNotesRequest'

98+ -> Text -- ^ 'orderId'

99+ -> MarketplaceNotesInsert'

100+marketplaceNotesInsert' pMniAddOrderNotesRequest_ pMniOrderId_ =

101+ MarketplaceNotesInsert'

102+ { _mniQuotaUser = Nothing

103+ , _mniPrettyPrint = True

104+ , _mniAddOrderNotesRequest = pMniAddOrderNotesRequest_

105+ , _mniUserIP = Nothing

106+ , _mniKey = Nothing

107+ , _mniOAuthToken = Nothing

108+ , _mniOrderId = pMniOrderId_

109+ , _mniFields = Nothing

110+ }

111+

112+-- | Available to use for quota purposes for server-side applications. Can be

113+-- any arbitrary string assigned to a user, but should not exceed 40

114+-- characters. Overrides userIp if both are provided.

115+mniQuotaUser :: Lens' MarketplaceNotesInsert' (Maybe Text)

116+mniQuotaUser

117+ = lens _mniQuotaUser (\ s a -> s{_mniQuotaUser = a})

118+

119+-- | Returns response with indentations and line breaks.

120+mniPrettyPrint :: Lens' MarketplaceNotesInsert' Bool

121+mniPrettyPrint

122+ = lens _mniPrettyPrint

123+ (\ s a -> s{_mniPrettyPrint = a})

124+

125+-- | Multipart request metadata.

126+mniAddOrderNotesRequest :: Lens' MarketplaceNotesInsert' AddOrderNotesRequest

127+mniAddOrderNotesRequest

128+ = lens _mniAddOrderNotesRequest

129+ (\ s a -> s{_mniAddOrderNotesRequest = a})

130+

131+-- | IP address of the site where the request originates. Use this if you

132+-- want to enforce per-user limits.

133+mniUserIP :: Lens' MarketplaceNotesInsert' (Maybe Text)

134+mniUserIP

135+ = lens _mniUserIP (\ s a -> s{_mniUserIP = a})

136+

137+-- | API key. Your API key identifies your project and provides you with API

138+-- access, quota, and reports. Required unless you provide an OAuth 2.0

139+-- token.

140+mniKey :: Lens' MarketplaceNotesInsert' (Maybe Key)

141+mniKey = lens _mniKey (\ s a -> s{_mniKey = a})

142+

143+-- | OAuth 2.0 token for the current user.

144+mniOAuthToken :: Lens' MarketplaceNotesInsert' (Maybe OAuthToken)

145+mniOAuthToken

146+ = lens _mniOAuthToken

147+ (\ s a -> s{_mniOAuthToken = a})

148+

149+-- | The orderId to add notes for.

150+mniOrderId :: Lens' MarketplaceNotesInsert' Text

151+mniOrderId

152+ = lens _mniOrderId (\ s a -> s{_mniOrderId = a})

153+

154+-- | Selector specifying which fields to include in a partial response.

155+mniFields :: Lens' MarketplaceNotesInsert' (Maybe Text)

156+mniFields

157+ = lens _mniFields (\ s a -> s{_mniFields = a})

158+

159+instance GoogleAuth MarketplaceNotesInsert' where

160+ authKey = mniKey . _Just

161+ authToken = mniOAuthToken . _Just

162+

163+instance GoogleRequest MarketplaceNotesInsert' where

164+ type Rs MarketplaceNotesInsert' =

165+ AddOrderNotesResponse

166+ request = requestWithRoute defReq adExchangeBuyerURL

167+ requestWithRoute r u MarketplaceNotesInsert'{..}

168+ = go _mniQuotaUser (Just _mniPrettyPrint) _mniUserIP

169+ _mniKey

170+ _mniOAuthToken

171+ _mniOrderId

172+ _mniFields

173+ (Just AltJSON)

174+ _mniAddOrderNotesRequest

175+ where go

176+ = clientWithRoute

177+ (Proxy :: Proxy MarketplaceNotesInsertResource)

178+ r

179+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceNotes/List.hsnew file+163

@@ -0,0 +1,163 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Get all the notes associated with an order

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceNotesList@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List

24+ (

25+ -- * REST Resource

26+ MarketplaceNotesListResource

27+

28+ -- * Creating a Request

29+ , marketplaceNotesList'

30+ , MarketplaceNotesList'

31+

32+ -- * Request Lenses

33+ , mnlQuotaUser

34+ , mnlPrettyPrint

35+ , mnlUserIP

36+ , mnlKey

37+ , mnlOAuthToken

38+ , mnlOrderId

39+ , mnlFields

40+ ) where

41+

42+import Network.Google.AdExchangeBuyer.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangebuyerMarketplaceNotesList@ which the

46+-- 'MarketplaceNotesList'' request conforms to.

47+type MarketplaceNotesListResource =

48+ "marketplaceOrders" :>

49+ Capture "orderId" Text :>

50+ "notes" :>

51+ QueryParam "quotaUser" Text :>

52+ QueryParam "prettyPrint" Bool :>

53+ QueryParam "userIp" Text :>

54+ QueryParam "key" Key :>

55+ QueryParam "oauth_token" OAuthToken :>

56+ QueryParam "fields" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] GetOrderNotesResponse

59+

60+-- | Get all the notes associated with an order

61+--

62+-- /See:/ 'marketplaceNotesList'' smart constructor.

63+data MarketplaceNotesList' = MarketplaceNotesList'

64+ { _mnlQuotaUser :: !(Maybe Text)

65+ , _mnlPrettyPrint :: !Bool

66+ , _mnlUserIP :: !(Maybe Text)

67+ , _mnlKey :: !(Maybe Key)

68+ , _mnlOAuthToken :: !(Maybe OAuthToken)

69+ , _mnlOrderId :: !Text

70+ , _mnlFields :: !(Maybe Text)

71+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

72+

73+-- | Creates a value of 'MarketplaceNotesList'' with the minimum fields required to make a request.

74+--

75+-- Use one of the following lenses to modify other fields as desired:

76+--

77+-- * 'mnlQuotaUser'

78+--

79+-- * 'mnlPrettyPrint'

80+--

81+-- * 'mnlUserIP'

82+--

83+-- * 'mnlKey'

84+--

85+-- * 'mnlOAuthToken'

86+--

87+-- * 'mnlOrderId'

88+--

89+-- * 'mnlFields'

90+marketplaceNotesList'

91+ :: Text -- ^ 'orderId'

92+ -> MarketplaceNotesList'

93+marketplaceNotesList' pMnlOrderId_ =

94+ MarketplaceNotesList'

95+ { _mnlQuotaUser = Nothing

96+ , _mnlPrettyPrint = True

97+ , _mnlUserIP = Nothing

98+ , _mnlKey = Nothing

99+ , _mnlOAuthToken = Nothing

100+ , _mnlOrderId = pMnlOrderId_

101+ , _mnlFields = Nothing

102+ }

103+

104+-- | Available to use for quota purposes for server-side applications. Can be

105+-- any arbitrary string assigned to a user, but should not exceed 40

106+-- characters. Overrides userIp if both are provided.

107+mnlQuotaUser :: Lens' MarketplaceNotesList' (Maybe Text)

108+mnlQuotaUser

109+ = lens _mnlQuotaUser (\ s a -> s{_mnlQuotaUser = a})

110+

111+-- | Returns response with indentations and line breaks.

112+mnlPrettyPrint :: Lens' MarketplaceNotesList' Bool

113+mnlPrettyPrint

114+ = lens _mnlPrettyPrint

115+ (\ s a -> s{_mnlPrettyPrint = a})

116+

117+-- | IP address of the site where the request originates. Use this if you

118+-- want to enforce per-user limits.

119+mnlUserIP :: Lens' MarketplaceNotesList' (Maybe Text)

120+mnlUserIP

121+ = lens _mnlUserIP (\ s a -> s{_mnlUserIP = a})

122+

123+-- | API key. Your API key identifies your project and provides you with API

124+-- access, quota, and reports. Required unless you provide an OAuth 2.0

125+-- token.

126+mnlKey :: Lens' MarketplaceNotesList' (Maybe Key)

127+mnlKey = lens _mnlKey (\ s a -> s{_mnlKey = a})

128+

129+-- | OAuth 2.0 token for the current user.

130+mnlOAuthToken :: Lens' MarketplaceNotesList' (Maybe OAuthToken)

131+mnlOAuthToken

132+ = lens _mnlOAuthToken

133+ (\ s a -> s{_mnlOAuthToken = a})

134+

135+-- | The orderId to get notes for.

136+mnlOrderId :: Lens' MarketplaceNotesList' Text

137+mnlOrderId

138+ = lens _mnlOrderId (\ s a -> s{_mnlOrderId = a})

139+

140+-- | Selector specifying which fields to include in a partial response.

141+mnlFields :: Lens' MarketplaceNotesList' (Maybe Text)

142+mnlFields

143+ = lens _mnlFields (\ s a -> s{_mnlFields = a})

144+

145+instance GoogleAuth MarketplaceNotesList' where

146+ authKey = mnlKey . _Just

147+ authToken = mnlOAuthToken . _Just

148+

149+instance GoogleRequest MarketplaceNotesList' where

150+ type Rs MarketplaceNotesList' = GetOrderNotesResponse

151+ request = requestWithRoute defReq adExchangeBuyerURL

152+ requestWithRoute r u MarketplaceNotesList'{..}

153+ = go _mnlQuotaUser (Just _mnlPrettyPrint) _mnlUserIP

154+ _mnlKey

155+ _mnlOAuthToken

156+ _mnlOrderId

157+ _mnlFields

158+ (Just AltJSON)

159+ where go

160+ = clientWithRoute

161+ (Proxy :: Proxy MarketplaceNotesListResource)

162+ r

163+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Get.hsnew file+162

@@ -0,0 +1,162 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Gets the requested negotiation.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOffersGet@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get

24+ (

25+ -- * REST Resource

26+ MarketplaceOffersGetResource

27+

28+ -- * Creating a Request

29+ , marketplaceOffersGet'

30+ , MarketplaceOffersGet'

31+

32+ -- * Request Lenses

33+ , mogQuotaUser

34+ , mogPrettyPrint

35+ , mogUserIP

36+ , mogKey

37+ , mogOfferId

38+ , mogOAuthToken

39+ , mogFields

40+ ) where

41+

42+import Network.Google.AdExchangeBuyer.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangebuyerMarketplaceOffersGet@ which the

46+-- 'MarketplaceOffersGet'' request conforms to.

47+type MarketplaceOffersGetResource =

48+ "marketplaceOffers" :>

49+ Capture "offerId" Text :>

50+ QueryParam "quotaUser" Text :>

51+ QueryParam "prettyPrint" Bool :>

52+ QueryParam "userIp" Text :>

53+ QueryParam "key" Key :>

54+ QueryParam "oauth_token" OAuthToken :>

55+ QueryParam "fields" Text :>

56+ QueryParam "alt" AltJSON :>

57+ Get '[JSON] MarketplaceOffer

58+

59+-- | Gets the requested negotiation.

60+--

61+-- /See:/ 'marketplaceOffersGet'' smart constructor.

62+data MarketplaceOffersGet' = MarketplaceOffersGet'

63+ { _mogQuotaUser :: !(Maybe Text)

64+ , _mogPrettyPrint :: !Bool

65+ , _mogUserIP :: !(Maybe Text)

66+ , _mogKey :: !(Maybe Key)

67+ , _mogOfferId :: !Text

68+ , _mogOAuthToken :: !(Maybe OAuthToken)

69+ , _mogFields :: !(Maybe Text)

70+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

71+

72+-- | Creates a value of 'MarketplaceOffersGet'' with the minimum fields required to make a request.

73+--

74+-- Use one of the following lenses to modify other fields as desired:

75+--

76+-- * 'mogQuotaUser'

77+--

78+-- * 'mogPrettyPrint'

79+--

80+-- * 'mogUserIP'

81+--

82+-- * 'mogKey'

83+--

84+-- * 'mogOfferId'

85+--

86+-- * 'mogOAuthToken'

87+--

88+-- * 'mogFields'

89+marketplaceOffersGet'

90+ :: Text -- ^ 'offerId'

91+ -> MarketplaceOffersGet'

92+marketplaceOffersGet' pMogOfferId_ =

93+ MarketplaceOffersGet'

94+ { _mogQuotaUser = Nothing

95+ , _mogPrettyPrint = True

96+ , _mogUserIP = Nothing

97+ , _mogKey = Nothing

98+ , _mogOfferId = pMogOfferId_

99+ , _mogOAuthToken = Nothing

100+ , _mogFields = Nothing

101+ }

102+

103+-- | Available to use for quota purposes for server-side applications. Can be

104+-- any arbitrary string assigned to a user, but should not exceed 40

105+-- characters. Overrides userIp if both are provided.

106+mogQuotaUser :: Lens' MarketplaceOffersGet' (Maybe Text)

107+mogQuotaUser

108+ = lens _mogQuotaUser (\ s a -> s{_mogQuotaUser = a})

109+

110+-- | Returns response with indentations and line breaks.

111+mogPrettyPrint :: Lens' MarketplaceOffersGet' Bool

112+mogPrettyPrint

113+ = lens _mogPrettyPrint

114+ (\ s a -> s{_mogPrettyPrint = a})

115+

116+-- | IP address of the site where the request originates. Use this if you

117+-- want to enforce per-user limits.

118+mogUserIP :: Lens' MarketplaceOffersGet' (Maybe Text)

119+mogUserIP

120+ = lens _mogUserIP (\ s a -> s{_mogUserIP = a})

121+

122+-- | API key. Your API key identifies your project and provides you with API

123+-- access, quota, and reports. Required unless you provide an OAuth 2.0

124+-- token.

125+mogKey :: Lens' MarketplaceOffersGet' (Maybe Key)

126+mogKey = lens _mogKey (\ s a -> s{_mogKey = a})

127+

128+-- | The offerId for the offer to get the head revision for.

129+mogOfferId :: Lens' MarketplaceOffersGet' Text

130+mogOfferId

131+ = lens _mogOfferId (\ s a -> s{_mogOfferId = a})

132+

133+-- | OAuth 2.0 token for the current user.

134+mogOAuthToken :: Lens' MarketplaceOffersGet' (Maybe OAuthToken)

135+mogOAuthToken

136+ = lens _mogOAuthToken

137+ (\ s a -> s{_mogOAuthToken = a})

138+

139+-- | Selector specifying which fields to include in a partial response.

140+mogFields :: Lens' MarketplaceOffersGet' (Maybe Text)

141+mogFields

142+ = lens _mogFields (\ s a -> s{_mogFields = a})

143+

144+instance GoogleAuth MarketplaceOffersGet' where

145+ authKey = mogKey . _Just

146+ authToken = mogOAuthToken . _Just

147+

148+instance GoogleRequest MarketplaceOffersGet' where

149+ type Rs MarketplaceOffersGet' = MarketplaceOffer

150+ request = requestWithRoute defReq adExchangeBuyerURL

151+ requestWithRoute r u MarketplaceOffersGet'{..}

152+ = go _mogQuotaUser (Just _mogPrettyPrint) _mogUserIP

153+ _mogKey

154+ _mogOfferId

155+ _mogOAuthToken

156+ _mogFields

157+ (Just AltJSON)

158+ where go

159+ = clientWithRoute

160+ (Proxy :: Proxy MarketplaceOffersGetResource)

161+ r

162+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOffers/Search.hsnew file+162

@@ -0,0 +1,162 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Gets the requested negotiation.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOffersSearch@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search

24+ (

25+ -- * REST Resource

26+ MarketplaceOffersSearchResource

27+

28+ -- * Creating a Request

29+ , marketplaceOffersSearch'

30+ , MarketplaceOffersSearch'

31+

32+ -- * Request Lenses

33+ , mosQuotaUser

34+ , mosPrettyPrint

35+ , mosUserIP

36+ , mosKey

37+ , mosPqlQuery

38+ , mosOAuthToken

39+ , mosFields

40+ ) where

41+

42+import Network.Google.AdExchangeBuyer.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangebuyerMarketplaceOffersSearch@ which the

46+-- 'MarketplaceOffersSearch'' request conforms to.

47+type MarketplaceOffersSearchResource =

48+ "marketplaceOffers" :>

49+ "search" :>

50+ QueryParam "quotaUser" Text :>

51+ QueryParam "prettyPrint" Bool :>

52+ QueryParam "userIp" Text :>

53+ QueryParam "key" Key :>

54+ QueryParam "pqlQuery" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

56+ QueryParam "fields" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] GetOffersResponse

59+

60+-- | Gets the requested negotiation.

61+--

62+-- /See:/ 'marketplaceOffersSearch'' smart constructor.

63+data MarketplaceOffersSearch' = MarketplaceOffersSearch'

64+ { _mosQuotaUser :: !(Maybe Text)

65+ , _mosPrettyPrint :: !Bool

66+ , _mosUserIP :: !(Maybe Text)

67+ , _mosKey :: !(Maybe Key)

68+ , _mosPqlQuery :: !(Maybe Text)

69+ , _mosOAuthToken :: !(Maybe OAuthToken)

70+ , _mosFields :: !(Maybe Text)

71+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

72+

73+-- | Creates a value of 'MarketplaceOffersSearch'' with the minimum fields required to make a request.

74+--

75+-- Use one of the following lenses to modify other fields as desired:

76+--

77+-- * 'mosQuotaUser'

78+--

79+-- * 'mosPrettyPrint'

80+--

81+-- * 'mosUserIP'

82+--

83+-- * 'mosKey'

84+--

85+-- * 'mosPqlQuery'

86+--

87+-- * 'mosOAuthToken'

88+--

89+-- * 'mosFields'

90+marketplaceOffersSearch'

91+ :: MarketplaceOffersSearch'

92+marketplaceOffersSearch' =

93+ MarketplaceOffersSearch'

94+ { _mosQuotaUser = Nothing

95+ , _mosPrettyPrint = True

96+ , _mosUserIP = Nothing

97+ , _mosKey = Nothing

98+ , _mosPqlQuery = Nothing

99+ , _mosOAuthToken = Nothing

100+ , _mosFields = Nothing

101+ }

102+

103+-- | Available to use for quota purposes for server-side applications. Can be

104+-- any arbitrary string assigned to a user, but should not exceed 40

105+-- characters. Overrides userIp if both are provided.

106+mosQuotaUser :: Lens' MarketplaceOffersSearch' (Maybe Text)

107+mosQuotaUser

108+ = lens _mosQuotaUser (\ s a -> s{_mosQuotaUser = a})

109+

110+-- | Returns response with indentations and line breaks.

111+mosPrettyPrint :: Lens' MarketplaceOffersSearch' Bool

112+mosPrettyPrint

113+ = lens _mosPrettyPrint

114+ (\ s a -> s{_mosPrettyPrint = a})

115+

116+-- | IP address of the site where the request originates. Use this if you

117+-- want to enforce per-user limits.

118+mosUserIP :: Lens' MarketplaceOffersSearch' (Maybe Text)

119+mosUserIP

120+ = lens _mosUserIP (\ s a -> s{_mosUserIP = a})

121+

122+-- | API key. Your API key identifies your project and provides you with API

123+-- access, quota, and reports. Required unless you provide an OAuth 2.0

124+-- token.

125+mosKey :: Lens' MarketplaceOffersSearch' (Maybe Key)

126+mosKey = lens _mosKey (\ s a -> s{_mosKey = a})

127+

128+-- | The pql query used to query for offers.

129+mosPqlQuery :: Lens' MarketplaceOffersSearch' (Maybe Text)

130+mosPqlQuery

131+ = lens _mosPqlQuery (\ s a -> s{_mosPqlQuery = a})

132+

133+-- | OAuth 2.0 token for the current user.

134+mosOAuthToken :: Lens' MarketplaceOffersSearch' (Maybe OAuthToken)

135+mosOAuthToken

136+ = lens _mosOAuthToken

137+ (\ s a -> s{_mosOAuthToken = a})

138+

139+-- | Selector specifying which fields to include in a partial response.

140+mosFields :: Lens' MarketplaceOffersSearch' (Maybe Text)

141+mosFields

142+ = lens _mosFields (\ s a -> s{_mosFields = a})

143+

144+instance GoogleAuth MarketplaceOffersSearch' where

145+ authKey = mosKey . _Just

146+ authToken = mosOAuthToken . _Just

147+

148+instance GoogleRequest MarketplaceOffersSearch' where

149+ type Rs MarketplaceOffersSearch' = GetOffersResponse

150+ request = requestWithRoute defReq adExchangeBuyerURL

151+ requestWithRoute r u MarketplaceOffersSearch'{..}

152+ = go _mosQuotaUser (Just _mosPrettyPrint) _mosUserIP

153+ _mosKey

154+ _mosPqlQuery

155+ _mosOAuthToken

156+ _mosFields

157+ (Just AltJSON)

158+ where go

159+ = clientWithRoute

160+ (Proxy :: Proxy MarketplaceOffersSearchResource)

161+ r

162+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/Insert.hs → gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Get.hsrenamed+57−65

@@ -10,70 +10,66 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17-- Stability : auto-generated

18-- Portability : non-portable (GHC extensions)

19--

20−-- | Add new deals for the specified order

20+-- | Get an order given its id

21--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsInsert@.

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOrdersGet@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get

24 (

25 -- * REST Resource

26− MarketplacedealsInsertResource

26+ MarketplaceOrdersGetResource

27

28 -- * Creating a Request

29− , marketplacedealsInsert'

29+ , marketplaceOrdersGet'

30− , MarketplacedealsInsert'

30+ , MarketplaceOrdersGet'

31

32 -- * Request Lenses

33 , mQuotaUser

34 , mPrettyPrint

35− , mUserIp

35+ , mUserIP

36 , mKey

37− , mOauthToken

37+ , mOAuthToken

38 , mOrderId

39 , mFields

40− , mAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeBuyer.Types

42import Network.Google.AdExchangeBuyer.Types

44import Network.Google.Prelude

43import Network.Google.Prelude

45

44

46−-- | A resource alias for @AdexchangebuyerMarketplacedealsInsert@ which the

45+-- | A resource alias for @AdexchangebuyerMarketplaceOrdersGet@ which the

47−-- 'MarketplacedealsInsert'' request conforms to.

46+-- 'MarketplaceOrdersGet'' request conforms to.

48−type MarketplacedealsInsertResource =

47+type MarketplaceOrdersGetResource =

49 "marketplaceOrders" :>

48 "marketplaceOrders" :>

50 Capture "orderId" Text :>

49 Capture "orderId" Text :>

51− "deals" :>

52− "insert" :>

53− QueryParam "quotaUser" Text :>

50+ QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

51+ QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

52+ QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

57− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

58− QueryParam "fields" Text :>

55+ QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

56+ QueryParam "alt" AltJSON :>

60− Post '[JSON] AddOrderDealsResponse

57+ Get '[JSON] MarketplaceOrder

61−

58+

62−-- | Add new deals for the specified order

59+-- | Get an order given its id

63--

60--

64−-- /See:/ 'marketplacedealsInsert'' smart constructor.

61+-- /See:/ 'marketplaceOrdersGet'' smart constructor.

65−data MarketplacedealsInsert' = MarketplacedealsInsert'

62+data MarketplaceOrdersGet' = MarketplaceOrdersGet'

66 { _mQuotaUser :: !(Maybe Text)

63 { _mQuotaUser :: !(Maybe Text)

67 , _mPrettyPrint :: !Bool

64 , _mPrettyPrint :: !Bool

68− , _mUserIp :: !(Maybe Text)

65+ , _mUserIP :: !(Maybe Text)

69− , _mKey :: !(Maybe Text)

66+ , _mKey :: !(Maybe Key)

70− , _mOauthToken :: !(Maybe Text)

67+ , _mOAuthToken :: !(Maybe OAuthToken)

71 , _mOrderId :: !Text

68 , _mOrderId :: !Text

72 , _mFields :: !(Maybe Text)

69 , _mFields :: !(Maybe Text)

73− , _mAlt :: !Alt

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70 } deriving (Eq,Read,Show,Data,Typeable,Generic)

75

71

76−-- | Creates a value of 'MarketplacedealsInsert'' with the minimum fields required to make a request.

72+-- | Creates a value of 'MarketplaceOrdersGet'' with the minimum fields required to make a request.

77--

73--

78-- Use one of the following lenses to modify other fields as desired:

74-- Use one of the following lenses to modify other fields as desired:

79--

75--

@@ -81,84 +77,80 @@ data MarketplacedealsInsert' = MarketplacedealsInsert'

81--

77--

82-- * 'mPrettyPrint'

78-- * 'mPrettyPrint'

83--

79--

84−-- * 'mUserIp'

80+-- * 'mUserIP'

85--

81--

86-- * 'mKey'

82-- * 'mKey'

87--

83--

88−-- * 'mOauthToken'

84+-- * 'mOAuthToken'

89--

85--

90-- * 'mOrderId'

86-- * 'mOrderId'

91--

87--

92-- * 'mFields'

88-- * 'mFields'

93−--

89+marketplaceOrdersGet'

94−-- * 'mAlt'

95−marketplacedealsInsert'

96 :: Text -- ^ 'orderId'

90 :: Text -- ^ 'orderId'

97− -> MarketplacedealsInsert'

91+ -> MarketplaceOrdersGet'

98−marketplacedealsInsert' pMOrderId_ =

92+marketplaceOrdersGet' pMOrderId_ =

99− MarketplacedealsInsert'

93+ MarketplaceOrdersGet'

100 { _mQuotaUser = Nothing

94 { _mQuotaUser = Nothing

101 , _mPrettyPrint = True

95 , _mPrettyPrint = True

102− , _mUserIp = Nothing

96+ , _mUserIP = Nothing

103 , _mKey = Nothing

97 , _mKey = Nothing

104− , _mOauthToken = Nothing

98+ , _mOAuthToken = Nothing

105 , _mOrderId = pMOrderId_

99 , _mOrderId = pMOrderId_

106 , _mFields = Nothing

100 , _mFields = Nothing

107− , _mAlt = JSON

108 }

101 }

109

102

110-- | Available to use for quota purposes for server-side applications. Can be

103-- | Available to use for quota purposes for server-side applications. Can be

111-- any arbitrary string assigned to a user, but should not exceed 40

104-- any arbitrary string assigned to a user, but should not exceed 40

112-- characters. Overrides userIp if both are provided.

105-- characters. Overrides userIp if both are provided.

113−mQuotaUser :: Lens' MarketplacedealsInsert' (Maybe Text)

106+mQuotaUser :: Lens' MarketplaceOrdersGet' (Maybe Text)

114mQuotaUser

107mQuotaUser

115 = lens _mQuotaUser (\ s a -> s{_mQuotaUser = a})

108 = lens _mQuotaUser (\ s a -> s{_mQuotaUser = a})

116

109

117-- | Returns response with indentations and line breaks.

110-- | Returns response with indentations and line breaks.

118−mPrettyPrint :: Lens' MarketplacedealsInsert' Bool

111+mPrettyPrint :: Lens' MarketplaceOrdersGet' Bool

119mPrettyPrint

112mPrettyPrint

120 = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})

113 = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})

121

114

122-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

123-- want to enforce per-user limits.

116-- want to enforce per-user limits.

124−mUserIp :: Lens' MarketplacedealsInsert' (Maybe Text)

117+mUserIP :: Lens' MarketplaceOrdersGet' (Maybe Text)

125−mUserIp = lens _mUserIp (\ s a -> s{_mUserIp = a})

118+mUserIP = lens _mUserIP (\ s a -> s{_mUserIP = a})

126

119

127-- | API key. Your API key identifies your project and provides you with API

120-- | API key. Your API key identifies your project and provides you with API

128-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- access, quota, and reports. Required unless you provide an OAuth 2.0

129-- token.

122-- token.

130−mKey :: Lens' MarketplacedealsInsert' (Maybe Text)

123+mKey :: Lens' MarketplaceOrdersGet' (Maybe Key)

131mKey = lens _mKey (\ s a -> s{_mKey = a})

124mKey = lens _mKey (\ s a -> s{_mKey = a})

132

125

133-- | OAuth 2.0 token for the current user.

126-- | OAuth 2.0 token for the current user.

134−mOauthToken :: Lens' MarketplacedealsInsert' (Maybe Text)

127+mOAuthToken :: Lens' MarketplaceOrdersGet' (Maybe OAuthToken)

135−mOauthToken

128+mOAuthToken

136− = lens _mOauthToken (\ s a -> s{_mOauthToken = a})

129+ = lens _mOAuthToken (\ s a -> s{_mOAuthToken = a})

137

130

138−-- | OrderId for which deals need to be added.

131+-- | Id of the order to retrieve.

139−mOrderId :: Lens' MarketplacedealsInsert' Text

132+mOrderId :: Lens' MarketplaceOrdersGet' Text

140mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})

133mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})

141

134

142-- | Selector specifying which fields to include in a partial response.

135-- | Selector specifying which fields to include in a partial response.

143−mFields :: Lens' MarketplacedealsInsert' (Maybe Text)

136+mFields :: Lens' MarketplaceOrdersGet' (Maybe Text)

144mFields = lens _mFields (\ s a -> s{_mFields = a})

137mFields = lens _mFields (\ s a -> s{_mFields = a})

145

138

146−-- | Data format for the response.

139+instance GoogleAuth MarketplaceOrdersGet' where

147−mAlt :: Lens' MarketplacedealsInsert' Alt

140+ authKey = mKey . _Just

148−mAlt = lens _mAlt (\ s a -> s{_mAlt = a})

141+ authToken = mOAuthToken . _Just

149

142

150−instance GoogleRequest MarketplacedealsInsert' where

143+instance GoogleRequest MarketplaceOrdersGet' where

151− type Rs MarketplacedealsInsert' =

144+ type Rs MarketplaceOrdersGet' = MarketplaceOrder

152− AddOrderDealsResponse

153 request = requestWithRoute defReq adExchangeBuyerURL

145 request = requestWithRoute defReq adExchangeBuyerURL

154− requestWithRoute r u MarketplacedealsInsert'{..}

146+ requestWithRoute r u MarketplaceOrdersGet'{..}

155− = go _mQuotaUser (Just _mPrettyPrint) _mUserIp _mKey

147+ = go _mQuotaUser (Just _mPrettyPrint) _mUserIP _mKey

156− _mOauthToken

148+ _mOAuthToken

157 _mOrderId

149 _mOrderId

158 _mFields

150 _mFields

159− (Just _mAlt)

151+ (Just AltJSON)

160 where go

152 where go

161 = clientWithRoute

153 = clientWithRoute

162− (Proxy :: Proxy MarketplacedealsInsertResource)

154+ (Proxy :: Proxy MarketplaceOrdersGetResource)

163 r

155 r

164 u

156 u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Insert.hsnew file+165

@@ -0,0 +1,165 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Create the given list of orders

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOrdersInsert@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert

24+ (

25+ -- * REST Resource

26+ MarketplaceOrdersInsertResource

27+

28+ -- * Creating a Request

29+ , marketplaceOrdersInsert'

30+ , MarketplaceOrdersInsert'

31+

32+ -- * Request Lenses

33+ , moiQuotaUser

34+ , moiPrettyPrint

35+ , moiUserIP

36+ , moiCreateOrdersRequest

37+ , moiKey

38+ , moiOAuthToken

39+ , moiFields

40+ ) where

41+

42+import Network.Google.AdExchangeBuyer.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangebuyerMarketplaceOrdersInsert@ which the

46+-- 'MarketplaceOrdersInsert'' request conforms to.

47+type MarketplaceOrdersInsertResource =

48+ "marketplaceOrders" :>

49+ "insert" :>

50+ QueryParam "quotaUser" Text :>

51+ QueryParam "prettyPrint" Bool :>

52+ QueryParam "userIp" Text :>

53+ QueryParam "key" Key :>

54+ QueryParam "oauth_token" OAuthToken :>

55+ QueryParam "fields" Text :>

56+ QueryParam "alt" AltJSON :>

57+ ReqBody '[JSON] CreateOrdersRequest :>

58+ Post '[JSON] CreateOrdersResponse

59+

60+-- | Create the given list of orders

61+--

62+-- /See:/ 'marketplaceOrdersInsert'' smart constructor.

63+data MarketplaceOrdersInsert' = MarketplaceOrdersInsert'

64+ { _moiQuotaUser :: !(Maybe Text)

65+ , _moiPrettyPrint :: !Bool

66+ , _moiUserIP :: !(Maybe Text)

67+ , _moiCreateOrdersRequest :: !CreateOrdersRequest

68+ , _moiKey :: !(Maybe Key)

69+ , _moiOAuthToken :: !(Maybe OAuthToken)

70+ , _moiFields :: !(Maybe Text)

71+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

72+

73+-- | Creates a value of 'MarketplaceOrdersInsert'' with the minimum fields required to make a request.

74+--

75+-- Use one of the following lenses to modify other fields as desired:

76+--

77+-- * 'moiQuotaUser'

78+--

79+-- * 'moiPrettyPrint'

80+--

81+-- * 'moiUserIP'

82+--

83+-- * 'moiCreateOrdersRequest'

84+--

85+-- * 'moiKey'

86+--

87+-- * 'moiOAuthToken'

88+--

89+-- * 'moiFields'

90+marketplaceOrdersInsert'

91+ :: CreateOrdersRequest -- ^ 'CreateOrdersRequest'

92+ -> MarketplaceOrdersInsert'

93+marketplaceOrdersInsert' pMoiCreateOrdersRequest_ =

94+ MarketplaceOrdersInsert'

95+ { _moiQuotaUser = Nothing

96+ , _moiPrettyPrint = True

97+ , _moiUserIP = Nothing

98+ , _moiCreateOrdersRequest = pMoiCreateOrdersRequest_

99+ , _moiKey = Nothing

100+ , _moiOAuthToken = Nothing

101+ , _moiFields = Nothing

102+ }

103+

104+-- | Available to use for quota purposes for server-side applications. Can be

105+-- any arbitrary string assigned to a user, but should not exceed 40

106+-- characters. Overrides userIp if both are provided.

107+moiQuotaUser :: Lens' MarketplaceOrdersInsert' (Maybe Text)

108+moiQuotaUser

109+ = lens _moiQuotaUser (\ s a -> s{_moiQuotaUser = a})

110+

111+-- | Returns response with indentations and line breaks.

112+moiPrettyPrint :: Lens' MarketplaceOrdersInsert' Bool

113+moiPrettyPrint

114+ = lens _moiPrettyPrint

115+ (\ s a -> s{_moiPrettyPrint = a})

116+

117+-- | IP address of the site where the request originates. Use this if you

118+-- want to enforce per-user limits.

119+moiUserIP :: Lens' MarketplaceOrdersInsert' (Maybe Text)

120+moiUserIP

121+ = lens _moiUserIP (\ s a -> s{_moiUserIP = a})

122+

123+-- | Multipart request metadata.

124+moiCreateOrdersRequest :: Lens' MarketplaceOrdersInsert' CreateOrdersRequest

125+moiCreateOrdersRequest

126+ = lens _moiCreateOrdersRequest

127+ (\ s a -> s{_moiCreateOrdersRequest = a})

128+

129+-- | API key. Your API key identifies your project and provides you with API

130+-- access, quota, and reports. Required unless you provide an OAuth 2.0

131+-- token.

132+moiKey :: Lens' MarketplaceOrdersInsert' (Maybe Key)

133+moiKey = lens _moiKey (\ s a -> s{_moiKey = a})

134+

135+-- | OAuth 2.0 token for the current user.

136+moiOAuthToken :: Lens' MarketplaceOrdersInsert' (Maybe OAuthToken)

137+moiOAuthToken

138+ = lens _moiOAuthToken

139+ (\ s a -> s{_moiOAuthToken = a})

140+

141+-- | Selector specifying which fields to include in a partial response.

142+moiFields :: Lens' MarketplaceOrdersInsert' (Maybe Text)

143+moiFields

144+ = lens _moiFields (\ s a -> s{_moiFields = a})

145+

146+instance GoogleAuth MarketplaceOrdersInsert' where

147+ authKey = moiKey . _Just

148+ authToken = moiOAuthToken . _Just

149+

150+instance GoogleRequest MarketplaceOrdersInsert' where

151+ type Rs MarketplaceOrdersInsert' =

152+ CreateOrdersResponse

153+ request = requestWithRoute defReq adExchangeBuyerURL

154+ requestWithRoute r u MarketplaceOrdersInsert'{..}

155+ = go _moiQuotaUser (Just _moiPrettyPrint) _moiUserIP

156+ _moiKey

157+ _moiOAuthToken

158+ _moiFields

159+ (Just AltJSON)

160+ _moiCreateOrdersRequest

161+ where go

162+ = clientWithRoute

163+ (Proxy :: Proxy MarketplaceOrdersInsertResource)

164+ r

165+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Patch.hsnew file+210

@@ -0,0 +1,210 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Update the given order. This method supports patch semantics.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOrdersPatch@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch

24+ (

25+ -- * REST Resource

26+ MarketplaceOrdersPatchResource

27+

28+ -- * Creating a Request

29+ , marketplaceOrdersPatch'

30+ , MarketplaceOrdersPatch'

31+

32+ -- * Request Lenses

33+ , mopQuotaUser

34+ , mopUpdateAction

35+ , mopPrettyPrint

36+ , mopUserIP

37+ , mopRevisionNumber

38+ , mopKey

39+ , mopOAuthToken

40+ , mopOrderId

41+ , mopFields

42+ , mopMarketplaceOrder

43+ ) where

44+

45+import Network.Google.AdExchangeBuyer.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @AdexchangebuyerMarketplaceOrdersPatch@ which the

49+-- 'MarketplaceOrdersPatch'' request conforms to.

50+type MarketplaceOrdersPatchResource =

51+ "marketplaceOrders" :>

52+ Capture "orderId" Text :>

53+ Capture "revisionNumber" Int64 :>

54+ Capture "updateAction"

55+ AdexchangebuyerMarketplaceOrdersPatchUpdateAction

56+ :>

57+ QueryParam "quotaUser" Text :>

58+ QueryParam "prettyPrint" Bool :>

59+ QueryParam "userIp" Text :>

60+ QueryParam "key" Key :>

61+ QueryParam "oauth_token" OAuthToken :>

62+ QueryParam "fields" Text :>

63+ QueryParam "alt" AltJSON :>

64+ ReqBody '[JSON] MarketplaceOrder :>

65+ Patch '[JSON] MarketplaceOrder

66+

67+-- | Update the given order. This method supports patch semantics.

68+--

69+-- /See:/ 'marketplaceOrdersPatch'' smart constructor.

70+data MarketplaceOrdersPatch' = MarketplaceOrdersPatch'

71+ { _mopQuotaUser :: !(Maybe Text)

72+ , _mopUpdateAction :: !AdexchangebuyerMarketplaceOrdersPatchUpdateAction

73+ , _mopPrettyPrint :: !Bool

74+ , _mopUserIP :: !(Maybe Text)

75+ , _mopRevisionNumber :: !Int64

76+ , _mopKey :: !(Maybe Key)

77+ , _mopOAuthToken :: !(Maybe OAuthToken)

78+ , _mopOrderId :: !Text

79+ , _mopFields :: !(Maybe Text)

80+ , _mopMarketplaceOrder :: !MarketplaceOrder

81+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

82+

83+-- | Creates a value of 'MarketplaceOrdersPatch'' with the minimum fields required to make a request.

84+--

85+-- Use one of the following lenses to modify other fields as desired:

86+--

87+-- * 'mopQuotaUser'

88+--

89+-- * 'mopUpdateAction'

90+--

91+-- * 'mopPrettyPrint'

92+--

93+-- * 'mopUserIP'

94+--

95+-- * 'mopRevisionNumber'

96+--

97+-- * 'mopKey'

98+--

99+-- * 'mopOAuthToken'

100+--

101+-- * 'mopOrderId'

102+--

103+-- * 'mopFields'

104+--

105+-- * 'mopMarketplaceOrder'

106+marketplaceOrdersPatch'

107+ :: AdexchangebuyerMarketplaceOrdersPatchUpdateAction -- ^ 'updateAction'

108+ -> Int64 -- ^ 'revisionNumber'

109+ -> Text -- ^ 'orderId'

110+ -> MarketplaceOrder -- ^ 'MarketplaceOrder'

111+ -> MarketplaceOrdersPatch'

112+marketplaceOrdersPatch' pMopUpdateAction_ pMopRevisionNumber_ pMopOrderId_ pMopMarketplaceOrder_ =

113+ MarketplaceOrdersPatch'

114+ { _mopQuotaUser = Nothing

115+ , _mopUpdateAction = pMopUpdateAction_

116+ , _mopPrettyPrint = True

117+ , _mopUserIP = Nothing

118+ , _mopRevisionNumber = pMopRevisionNumber_

119+ , _mopKey = Nothing

120+ , _mopOAuthToken = Nothing

121+ , _mopOrderId = pMopOrderId_

122+ , _mopFields = Nothing

123+ , _mopMarketplaceOrder = pMopMarketplaceOrder_

124+ }

125+

126+-- | Available to use for quota purposes for server-side applications. Can be

127+-- any arbitrary string assigned to a user, but should not exceed 40

128+-- characters. Overrides userIp if both are provided.

129+mopQuotaUser :: Lens' MarketplaceOrdersPatch' (Maybe Text)

130+mopQuotaUser

131+ = lens _mopQuotaUser (\ s a -> s{_mopQuotaUser = a})

132+

133+-- | The proposed action to take on the order.

134+mopUpdateAction :: Lens' MarketplaceOrdersPatch' AdexchangebuyerMarketplaceOrdersPatchUpdateAction

135+mopUpdateAction

136+ = lens _mopUpdateAction

137+ (\ s a -> s{_mopUpdateAction = a})

138+

139+-- | Returns response with indentations and line breaks.

140+mopPrettyPrint :: Lens' MarketplaceOrdersPatch' Bool

141+mopPrettyPrint

142+ = lens _mopPrettyPrint

143+ (\ s a -> s{_mopPrettyPrint = a})

144+

145+-- | IP address of the site where the request originates. Use this if you

146+-- want to enforce per-user limits.

147+mopUserIP :: Lens' MarketplaceOrdersPatch' (Maybe Text)

148+mopUserIP

149+ = lens _mopUserIP (\ s a -> s{_mopUserIP = a})

150+

151+-- | The last known revision number to update. If the head revision in the

152+-- marketplace database has since changed, an error will be thrown. The

153+-- caller should then fetch the lastest order at head revision and retry

154+-- the update at that revision.

155+mopRevisionNumber :: Lens' MarketplaceOrdersPatch' Int64

156+mopRevisionNumber

157+ = lens _mopRevisionNumber

158+ (\ s a -> s{_mopRevisionNumber = a})

159+

160+-- | API key. Your API key identifies your project and provides you with API

161+-- access, quota, and reports. Required unless you provide an OAuth 2.0

162+-- token.

163+mopKey :: Lens' MarketplaceOrdersPatch' (Maybe Key)

164+mopKey = lens _mopKey (\ s a -> s{_mopKey = a})

165+

166+-- | OAuth 2.0 token for the current user.

167+mopOAuthToken :: Lens' MarketplaceOrdersPatch' (Maybe OAuthToken)

168+mopOAuthToken

169+ = lens _mopOAuthToken

170+ (\ s a -> s{_mopOAuthToken = a})

171+

172+-- | The order id to update.

173+mopOrderId :: Lens' MarketplaceOrdersPatch' Text

174+mopOrderId

175+ = lens _mopOrderId (\ s a -> s{_mopOrderId = a})

176+

177+-- | Selector specifying which fields to include in a partial response.

178+mopFields :: Lens' MarketplaceOrdersPatch' (Maybe Text)

179+mopFields

180+ = lens _mopFields (\ s a -> s{_mopFields = a})

181+

182+-- | Multipart request metadata.

183+mopMarketplaceOrder :: Lens' MarketplaceOrdersPatch' MarketplaceOrder

184+mopMarketplaceOrder

185+ = lens _mopMarketplaceOrder

186+ (\ s a -> s{_mopMarketplaceOrder = a})

187+

188+instance GoogleAuth MarketplaceOrdersPatch' where

189+ authKey = mopKey . _Just

190+ authToken = mopOAuthToken . _Just

191+

192+instance GoogleRequest MarketplaceOrdersPatch' where

193+ type Rs MarketplaceOrdersPatch' = MarketplaceOrder

194+ request = requestWithRoute defReq adExchangeBuyerURL

195+ requestWithRoute r u MarketplaceOrdersPatch'{..}

196+ = go _mopQuotaUser _mopUpdateAction

197+ (Just _mopPrettyPrint)

198+ _mopUserIP

199+ _mopRevisionNumber

200+ _mopKey

201+ _mopOAuthToken

202+ _mopOrderId

203+ _mopFields

204+ (Just AltJSON)

205+ _mopMarketplaceOrder

206+ where go

207+ = clientWithRoute

208+ (Proxy :: Proxy MarketplaceOrdersPatchResource)

209+ r

210+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Get.hs → gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Search.hsrenamed+66−70

@@ -10,67 +10,67 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17-- Stability : auto-generated

18-- Portability : non-portable (GHC extensions)

19--

20−-- | Get an order given its id

20+-- | Search for orders using pql query

21--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersGet@.

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOrdersSearch@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search

24 (

25 -- * REST Resource

26− MarketplaceordersGetResource

26+ MarketplaceOrdersSearchResource

27

28 -- * Creating a Request

29− , marketplaceordersGet'

29+ , marketplaceOrdersSearch'

30− , MarketplaceordersGet'

30+ , MarketplaceOrdersSearch'

31

32 -- * Request Lenses

33 , marQuotaUser

34 , marPrettyPrint

35− , marUserIp

35+ , marUserIP

36 , marKey

37− , marOauthToken

37+ , marPqlQuery

38− , marOrderId

38+ , marOAuthToken

39 , marFields

40− , marAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeBuyer.Types

42import Network.Google.AdExchangeBuyer.Types

44import Network.Google.Prelude

43import Network.Google.Prelude

45

44

46−-- | A resource alias for @AdexchangebuyerMarketplaceordersGet@ which the

45+-- | A resource alias for @AdexchangebuyerMarketplaceOrdersSearch@ which the

47−-- 'MarketplaceordersGet'' request conforms to.

46+-- 'MarketplaceOrdersSearch'' request conforms to.

48−type MarketplaceordersGetResource =

47+type MarketplaceOrdersSearchResource =

49 "marketplaceOrders" :>

48 "marketplaceOrders" :>

50− Capture "orderId" Text :>

49+ "search" :>

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "pqlQuery" Text :>

56− QueryParam "fields" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

57− QueryParam "alt" Alt :> Get '[JSON] MarketplaceOrder

56+ QueryParam "fields" Text :>

58−

57+ QueryParam "alt" AltJSON :>

59−-- | Get an order given its id

58+ Get '[JSON] GetOrdersResponse

59+

60+-- | Search for orders using pql query

60--

61--

61−-- /See:/ 'marketplaceordersGet'' smart constructor.

62+-- /See:/ 'marketplaceOrdersSearch'' smart constructor.

62−data MarketplaceordersGet' = MarketplaceordersGet'

63+data MarketplaceOrdersSearch' = MarketplaceOrdersSearch'

63 { _marQuotaUser :: !(Maybe Text)

64 { _marQuotaUser :: !(Maybe Text)

64 , _marPrettyPrint :: !Bool

65 , _marPrettyPrint :: !Bool

65− , _marUserIp :: !(Maybe Text)

66+ , _marUserIP :: !(Maybe Text)

66− , _marKey :: !(Maybe Text)

67+ , _marKey :: !(Maybe Key)

67− , _marOauthToken :: !(Maybe Text)

68+ , _marPqlQuery :: !(Maybe Text)

68− , _marOrderId :: !Text

69+ , _marOAuthToken :: !(Maybe OAuthToken)

69 , _marFields :: !(Maybe Text)

70 , _marFields :: !(Maybe Text)

70− , _marAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

73−-- | Creates a value of 'MarketplaceordersGet'' with the minimum fields required to make a request.

73+-- | Creates a value of 'MarketplaceOrdersSearch'' with the minimum fields required to make a request.

74--

75-- Use one of the following lenses to modify other fields as desired:

76--

@@ -78,89 +78,85 @@ data MarketplaceordersGet' = MarketplaceordersGet'

78--

79-- * 'marPrettyPrint'

80--

81−-- * 'marUserIp'

81+-- * 'marUserIP'

82--

83-- * 'marKey'

84--

85−-- * 'marOauthToken'

85+-- * 'marPqlQuery'

86--

87−-- * 'marOrderId'

87+-- * 'marOAuthToken'

88--

89-- * 'marFields'

90−--

90+marketplaceOrdersSearch'

91−-- * 'marAlt'

91+ :: MarketplaceOrdersSearch'

92−marketplaceordersGet'

92+marketplaceOrdersSearch' =

93− :: Text -- ^ 'orderId'

93+ MarketplaceOrdersSearch'

94− -> MarketplaceordersGet'

95−marketplaceordersGet' pMarOrderId_ =

96− MarketplaceordersGet'

97 { _marQuotaUser = Nothing

94 { _marQuotaUser = Nothing

98 , _marPrettyPrint = True

95 , _marPrettyPrint = True

99− , _marUserIp = Nothing

96+ , _marUserIP = Nothing

100 , _marKey = Nothing

97 , _marKey = Nothing

101− , _marOauthToken = Nothing

98+ , _marPqlQuery = Nothing

102− , _marOrderId = pMarOrderId_

99+ , _marOAuthToken = Nothing

103 , _marFields = Nothing

100 , _marFields = Nothing

104− , _marAlt = JSON

105 }

101 }

106

102

107-- | Available to use for quota purposes for server-side applications. Can be

103-- | Available to use for quota purposes for server-side applications. Can be

108-- any arbitrary string assigned to a user, but should not exceed 40

104-- any arbitrary string assigned to a user, but should not exceed 40

109-- characters. Overrides userIp if both are provided.

105-- characters. Overrides userIp if both are provided.

110−marQuotaUser :: Lens' MarketplaceordersGet' (Maybe Text)

106+marQuotaUser :: Lens' MarketplaceOrdersSearch' (Maybe Text)

111marQuotaUser

107marQuotaUser

112 = lens _marQuotaUser (\ s a -> s{_marQuotaUser = a})

108 = lens _marQuotaUser (\ s a -> s{_marQuotaUser = a})

113

109

114-- | Returns response with indentations and line breaks.

110-- | Returns response with indentations and line breaks.

115−marPrettyPrint :: Lens' MarketplaceordersGet' Bool

111+marPrettyPrint :: Lens' MarketplaceOrdersSearch' Bool

116marPrettyPrint

112marPrettyPrint

117 = lens _marPrettyPrint

113 = lens _marPrettyPrint

118 (\ s a -> s{_marPrettyPrint = a})

114 (\ s a -> s{_marPrettyPrint = a})

119

115

120-- | IP address of the site where the request originates. Use this if you

116-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

117-- want to enforce per-user limits.

122−marUserIp :: Lens' MarketplaceordersGet' (Maybe Text)

118+marUserIP :: Lens' MarketplaceOrdersSearch' (Maybe Text)

123−marUserIp

119+marUserIP

124− = lens _marUserIp (\ s a -> s{_marUserIp = a})

120+ = lens _marUserIP (\ s a -> s{_marUserIP = a})

125

121

126-- | API key. Your API key identifies your project and provides you with API

122-- | API key. Your API key identifies your project and provides you with API

127-- access, quota, and reports. Required unless you provide an OAuth 2.0

123-- access, quota, and reports. Required unless you provide an OAuth 2.0

128-- token.

124-- token.

129−marKey :: Lens' MarketplaceordersGet' (Maybe Text)

125+marKey :: Lens' MarketplaceOrdersSearch' (Maybe Key)

130marKey = lens _marKey (\ s a -> s{_marKey = a})

126marKey = lens _marKey (\ s a -> s{_marKey = a})

131

127

132−-- | OAuth 2.0 token for the current user.

128+-- | Query string to retrieve specific orders.

133−marOauthToken :: Lens' MarketplaceordersGet' (Maybe Text)

129+marPqlQuery :: Lens' MarketplaceOrdersSearch' (Maybe Text)

134−marOauthToken

130+marPqlQuery

135− = lens _marOauthToken

131+ = lens _marPqlQuery (\ s a -> s{_marPqlQuery = a})

136− (\ s a -> s{_marOauthToken = a})

137

132

138−-- | Id of the order to retrieve.

133+-- | OAuth 2.0 token for the current user.

139−marOrderId :: Lens' MarketplaceordersGet' Text

134+marOAuthToken :: Lens' MarketplaceOrdersSearch' (Maybe OAuthToken)

140−marOrderId

135+marOAuthToken

141− = lens _marOrderId (\ s a -> s{_marOrderId = a})

136+ = lens _marOAuthToken

137+ (\ s a -> s{_marOAuthToken = a})

142

138

143-- | Selector specifying which fields to include in a partial response.

139-- | Selector specifying which fields to include in a partial response.

144−marFields :: Lens' MarketplaceordersGet' (Maybe Text)

140+marFields :: Lens' MarketplaceOrdersSearch' (Maybe Text)

145marFields

141marFields

146 = lens _marFields (\ s a -> s{_marFields = a})

142 = lens _marFields (\ s a -> s{_marFields = a})

147

143

148−-- | Data format for the response.

144+instance GoogleAuth MarketplaceOrdersSearch' where

149−marAlt :: Lens' MarketplaceordersGet' Alt

145+ authKey = marKey . _Just

150−marAlt = lens _marAlt (\ s a -> s{_marAlt = a})

146+ authToken = marOAuthToken . _Just

151

147

152−instance GoogleRequest MarketplaceordersGet' where

148+instance GoogleRequest MarketplaceOrdersSearch' where

153− type Rs MarketplaceordersGet' = MarketplaceOrder

149+ type Rs MarketplaceOrdersSearch' = GetOrdersResponse

154 request = requestWithRoute defReq adExchangeBuyerURL

150 request = requestWithRoute defReq adExchangeBuyerURL

155− requestWithRoute r u MarketplaceordersGet'{..}

151+ requestWithRoute r u MarketplaceOrdersSearch'{..}

156− = go _marQuotaUser (Just _marPrettyPrint) _marUserIp

152+ = go _marQuotaUser (Just _marPrettyPrint) _marUserIP

157 _marKey

153 _marKey

158− _marOauthToken

154+ _marPqlQuery

159− _marOrderId

155+ _marOAuthToken

160 _marFields

156 _marFields

161− (Just _marAlt)

157+ (Just AltJSON)

162 where go

158 where go

163 = clientWithRoute

159 = clientWithRoute

164− (Proxy :: Proxy MarketplaceordersGetResource)

160+ (Proxy :: Proxy MarketplaceOrdersSearchResource)

165 r

161 r

166 u

162 u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/MarketplaceOrders/Update.hsnew file+210

@@ -0,0 +1,210 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Update the given order

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceOrdersUpdate@.

23+module Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update

24+ (

25+ -- * REST Resource

26+ MarketplaceOrdersUpdateResource

27+

28+ -- * Creating a Request

29+ , marketplaceOrdersUpdate'

30+ , MarketplaceOrdersUpdate'

31+

32+ -- * Request Lenses

33+ , mouQuotaUser

34+ , mouUpdateAction

35+ , mouPrettyPrint

36+ , mouUserIP

37+ , mouRevisionNumber

38+ , mouKey

39+ , mouOAuthToken

40+ , mouOrderId

41+ , mouFields

42+ , mouMarketplaceOrder

43+ ) where

44+

45+import Network.Google.AdExchangeBuyer.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @AdexchangebuyerMarketplaceOrdersUpdate@ which the

49+-- 'MarketplaceOrdersUpdate'' request conforms to.

50+type MarketplaceOrdersUpdateResource =

51+ "marketplaceOrders" :>

52+ Capture "orderId" Text :>

53+ Capture "revisionNumber" Int64 :>

54+ Capture "updateAction"

55+ AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

56+ :>

57+ QueryParam "quotaUser" Text :>

58+ QueryParam "prettyPrint" Bool :>

59+ QueryParam "userIp" Text :>

60+ QueryParam "key" Key :>

61+ QueryParam "oauth_token" OAuthToken :>

62+ QueryParam "fields" Text :>

63+ QueryParam "alt" AltJSON :>

64+ ReqBody '[JSON] MarketplaceOrder :>

65+ Put '[JSON] MarketplaceOrder

66+

67+-- | Update the given order

68+--

69+-- /See:/ 'marketplaceOrdersUpdate'' smart constructor.

70+data MarketplaceOrdersUpdate' = MarketplaceOrdersUpdate'

71+ { _mouQuotaUser :: !(Maybe Text)

72+ , _mouUpdateAction :: !AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

73+ , _mouPrettyPrint :: !Bool

74+ , _mouUserIP :: !(Maybe Text)

75+ , _mouRevisionNumber :: !Int64

76+ , _mouKey :: !(Maybe Key)

77+ , _mouOAuthToken :: !(Maybe OAuthToken)

78+ , _mouOrderId :: !Text

79+ , _mouFields :: !(Maybe Text)

80+ , _mouMarketplaceOrder :: !MarketplaceOrder

81+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

82+

83+-- | Creates a value of 'MarketplaceOrdersUpdate'' with the minimum fields required to make a request.

84+--

85+-- Use one of the following lenses to modify other fields as desired:

86+--

87+-- * 'mouQuotaUser'

88+--

89+-- * 'mouUpdateAction'

90+--

91+-- * 'mouPrettyPrint'

92+--

93+-- * 'mouUserIP'

94+--

95+-- * 'mouRevisionNumber'

96+--

97+-- * 'mouKey'

98+--

99+-- * 'mouOAuthToken'

100+--

101+-- * 'mouOrderId'

102+--

103+-- * 'mouFields'

104+--

105+-- * 'mouMarketplaceOrder'

106+marketplaceOrdersUpdate'

107+ :: AdexchangebuyerMarketplaceOrdersUpdateUpdateAction -- ^ 'updateAction'

108+ -> Int64 -- ^ 'revisionNumber'

109+ -> Text -- ^ 'orderId'

110+ -> MarketplaceOrder -- ^ 'MarketplaceOrder'

111+ -> MarketplaceOrdersUpdate'

112+marketplaceOrdersUpdate' pMouUpdateAction_ pMouRevisionNumber_ pMouOrderId_ pMouMarketplaceOrder_ =

113+ MarketplaceOrdersUpdate'

114+ { _mouQuotaUser = Nothing

115+ , _mouUpdateAction = pMouUpdateAction_

116+ , _mouPrettyPrint = True

117+ , _mouUserIP = Nothing

118+ , _mouRevisionNumber = pMouRevisionNumber_

119+ , _mouKey = Nothing

120+ , _mouOAuthToken = Nothing

121+ , _mouOrderId = pMouOrderId_

122+ , _mouFields = Nothing

123+ , _mouMarketplaceOrder = pMouMarketplaceOrder_

124+ }

125+

126+-- | Available to use for quota purposes for server-side applications. Can be

127+-- any arbitrary string assigned to a user, but should not exceed 40

128+-- characters. Overrides userIp if both are provided.

129+mouQuotaUser :: Lens' MarketplaceOrdersUpdate' (Maybe Text)

130+mouQuotaUser

131+ = lens _mouQuotaUser (\ s a -> s{_mouQuotaUser = a})

132+

133+-- | The proposed action to take on the order.

134+mouUpdateAction :: Lens' MarketplaceOrdersUpdate' AdexchangebuyerMarketplaceOrdersUpdateUpdateAction

135+mouUpdateAction

136+ = lens _mouUpdateAction

137+ (\ s a -> s{_mouUpdateAction = a})

138+

139+-- | Returns response with indentations and line breaks.

140+mouPrettyPrint :: Lens' MarketplaceOrdersUpdate' Bool

141+mouPrettyPrint

142+ = lens _mouPrettyPrint

143+ (\ s a -> s{_mouPrettyPrint = a})

144+

145+-- | IP address of the site where the request originates. Use this if you

146+-- want to enforce per-user limits.

147+mouUserIP :: Lens' MarketplaceOrdersUpdate' (Maybe Text)

148+mouUserIP

149+ = lens _mouUserIP (\ s a -> s{_mouUserIP = a})

150+

151+-- | The last known revision number to update. If the head revision in the

152+-- marketplace database has since changed, an error will be thrown. The

153+-- caller should then fetch the lastest order at head revision and retry

154+-- the update at that revision.

155+mouRevisionNumber :: Lens' MarketplaceOrdersUpdate' Int64

156+mouRevisionNumber

157+ = lens _mouRevisionNumber

158+ (\ s a -> s{_mouRevisionNumber = a})

159+

160+-- | API key. Your API key identifies your project and provides you with API

161+-- access, quota, and reports. Required unless you provide an OAuth 2.0

162+-- token.

163+mouKey :: Lens' MarketplaceOrdersUpdate' (Maybe Key)

164+mouKey = lens _mouKey (\ s a -> s{_mouKey = a})

165+

166+-- | OAuth 2.0 token for the current user.

167+mouOAuthToken :: Lens' MarketplaceOrdersUpdate' (Maybe OAuthToken)

168+mouOAuthToken

169+ = lens _mouOAuthToken

170+ (\ s a -> s{_mouOAuthToken = a})

171+

172+-- | The order id to update.

173+mouOrderId :: Lens' MarketplaceOrdersUpdate' Text

174+mouOrderId

175+ = lens _mouOrderId (\ s a -> s{_mouOrderId = a})

176+

177+-- | Selector specifying which fields to include in a partial response.

178+mouFields :: Lens' MarketplaceOrdersUpdate' (Maybe Text)

179+mouFields

180+ = lens _mouFields (\ s a -> s{_mouFields = a})

181+

182+-- | Multipart request metadata.

183+mouMarketplaceOrder :: Lens' MarketplaceOrdersUpdate' MarketplaceOrder

184+mouMarketplaceOrder

185+ = lens _mouMarketplaceOrder

186+ (\ s a -> s{_mouMarketplaceOrder = a})

187+

188+instance GoogleAuth MarketplaceOrdersUpdate' where

189+ authKey = mouKey . _Just

190+ authToken = mouOAuthToken . _Just

191+

192+instance GoogleRequest MarketplaceOrdersUpdate' where

193+ type Rs MarketplaceOrdersUpdate' = MarketplaceOrder

194+ request = requestWithRoute defReq adExchangeBuyerURL

195+ requestWithRoute r u MarketplaceOrdersUpdate'{..}

196+ = go _mouQuotaUser _mouUpdateAction

197+ (Just _mouPrettyPrint)

198+ _mouUserIP

199+ _mouRevisionNumber

200+ _mouKey

201+ _mouOAuthToken

202+ _mouOrderId

203+ _mouFields

204+ (Just AltJSON)

205+ _mouMarketplaceOrder

206+ where go

207+ = clientWithRoute

208+ (Proxy :: Proxy MarketplaceOrdersUpdateResource)

209+ r

210+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/Delete.hsdeleted−167

@@ -1,167 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Delete the specified deals from the order

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsDelete@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete

24− (

25− -- * REST Resource

26− MarketplacedealsDeleteResource

27−

28− -- * Creating a Request

29− , marketplacedealsDelete'

30− , MarketplacedealsDelete'

31−

32− -- * Request Lenses

33− , mdQuotaUser

34− , mdPrettyPrint

35− , mdUserIp

36− , mdKey

37− , mdOauthToken

38− , mdOrderId

39− , mdFields

40− , mdAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplacedealsDelete@ which the

47−-- 'MarketplacedealsDelete'' request conforms to.

48−type MarketplacedealsDeleteResource =

49− "marketplaceOrders" :>

50− Capture "orderId" Text :>

51− "deals" :>

52− "delete" :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Post '[JSON] DeleteOrderDealsResponse

61−

62−-- | Delete the specified deals from the order

63−--

64−-- /See:/ 'marketplacedealsDelete'' smart constructor.

65−data MarketplacedealsDelete' = MarketplacedealsDelete'

66− { _mdQuotaUser :: !(Maybe Text)

67− , _mdPrettyPrint :: !Bool

68− , _mdUserIp :: !(Maybe Text)

69− , _mdKey :: !(Maybe Text)

70− , _mdOauthToken :: !(Maybe Text)

71− , _mdOrderId :: !Text

72− , _mdFields :: !(Maybe Text)

73− , _mdAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'MarketplacedealsDelete'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'mdQuotaUser'

81−--

82−-- * 'mdPrettyPrint'

83−--

84−-- * 'mdUserIp'

85−--

86−-- * 'mdKey'

87−--

88−-- * 'mdOauthToken'

89−--

90−-- * 'mdOrderId'

91−--

92−-- * 'mdFields'

93−--

94−-- * 'mdAlt'

95−marketplacedealsDelete'

96− :: Text -- ^ 'orderId'

97− -> MarketplacedealsDelete'

98−marketplacedealsDelete' pMdOrderId_ =

99− MarketplacedealsDelete'

100− { _mdQuotaUser = Nothing

101− , _mdPrettyPrint = True

102− , _mdUserIp = Nothing

103− , _mdKey = Nothing

104− , _mdOauthToken = Nothing

105− , _mdOrderId = pMdOrderId_

106− , _mdFields = Nothing

107− , _mdAlt = JSON

108− }

109−

110−-- | Available to use for quota purposes for server-side applications. Can be

111−-- any arbitrary string assigned to a user, but should not exceed 40

112−-- characters. Overrides userIp if both are provided.

113−mdQuotaUser :: Lens' MarketplacedealsDelete' (Maybe Text)

114−mdQuotaUser

115− = lens _mdQuotaUser (\ s a -> s{_mdQuotaUser = a})

116−

117−-- | Returns response with indentations and line breaks.

118−mdPrettyPrint :: Lens' MarketplacedealsDelete' Bool

119−mdPrettyPrint

120− = lens _mdPrettyPrint

121− (\ s a -> s{_mdPrettyPrint = a})

122−

123−-- | IP address of the site where the request originates. Use this if you

124−-- want to enforce per-user limits.

125−mdUserIp :: Lens' MarketplacedealsDelete' (Maybe Text)

126−mdUserIp = lens _mdUserIp (\ s a -> s{_mdUserIp = a})

127−

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−mdKey :: Lens' MarketplacedealsDelete' (Maybe Text)

132−mdKey = lens _mdKey (\ s a -> s{_mdKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−mdOauthToken :: Lens' MarketplacedealsDelete' (Maybe Text)

136−mdOauthToken

137− = lens _mdOauthToken (\ s a -> s{_mdOauthToken = a})

138−

139−-- | The orderId to delete deals from.

140−mdOrderId :: Lens' MarketplacedealsDelete' Text

141−mdOrderId

142− = lens _mdOrderId (\ s a -> s{_mdOrderId = a})

143−

144−-- | Selector specifying which fields to include in a partial response.

145−mdFields :: Lens' MarketplacedealsDelete' (Maybe Text)

146−mdFields = lens _mdFields (\ s a -> s{_mdFields = a})

147−

148−-- | Data format for the response.

149−mdAlt :: Lens' MarketplacedealsDelete' Alt

150−mdAlt = lens _mdAlt (\ s a -> s{_mdAlt = a})

151−

152−instance GoogleRequest MarketplacedealsDelete' where

153− type Rs MarketplacedealsDelete' =

154− DeleteOrderDealsResponse

155− request = requestWithRoute defReq adExchangeBuyerURL

156− requestWithRoute r u MarketplacedealsDelete'{..}

157− = go _mdQuotaUser (Just _mdPrettyPrint) _mdUserIp

158− _mdKey

159− _mdOauthToken

160− _mdOrderId

161− _mdFields

162− (Just _mdAlt)

163− where go

164− = clientWithRoute

165− (Proxy :: Proxy MarketplacedealsDeleteResource)

166− r

167− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/List.hsdeleted−168

@@ -1,168 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | List all the deals for a given order

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsList@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List

24− (

25− -- * REST Resource

26− MarketplacedealsListResource

27−

28− -- * Creating a Request

29− , marketplacedealsList'

30− , MarketplacedealsList'

31−

32− -- * Request Lenses

33− , mllQuotaUser

34− , mllPrettyPrint

35− , mllUserIp

36− , mllKey

37− , mllOauthToken

38− , mllOrderId

39− , mllFields

40− , mllAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplacedealsList@ which the

47−-- 'MarketplacedealsList'' request conforms to.

48−type MarketplacedealsListResource =

49− "marketplaceOrders" :>

50− Capture "orderId" Text :>

51− "deals" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "key" Text :>

56− QueryParam "oauth_token" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "alt" Alt :>

59− Get '[JSON] GetOrderDealsResponse

60−

61−-- | List all the deals for a given order

62−--

63−-- /See:/ 'marketplacedealsList'' smart constructor.

64−data MarketplacedealsList' = MarketplacedealsList'

65− { _mllQuotaUser :: !(Maybe Text)

66− , _mllPrettyPrint :: !Bool

67− , _mllUserIp :: !(Maybe Text)

68− , _mllKey :: !(Maybe Text)

69− , _mllOauthToken :: !(Maybe Text)

70− , _mllOrderId :: !Text

71− , _mllFields :: !(Maybe Text)

72− , _mllAlt :: !Alt

73− } deriving (Eq,Read,Show,Data,Typeable,Generic)

74−

75−-- | Creates a value of 'MarketplacedealsList'' with the minimum fields required to make a request.

76−--

77−-- Use one of the following lenses to modify other fields as desired:

78−--

79−-- * 'mllQuotaUser'

80−--

81−-- * 'mllPrettyPrint'

82−--

83−-- * 'mllUserIp'

84−--

85−-- * 'mllKey'

86−--

87−-- * 'mllOauthToken'

88−--

89−-- * 'mllOrderId'

90−--

91−-- * 'mllFields'

92−--

93−-- * 'mllAlt'

94−marketplacedealsList'

95− :: Text -- ^ 'orderId'

96− -> MarketplacedealsList'

97−marketplacedealsList' pMllOrderId_ =

98− MarketplacedealsList'

99− { _mllQuotaUser = Nothing

100− , _mllPrettyPrint = True

101− , _mllUserIp = Nothing

102− , _mllKey = Nothing

103− , _mllOauthToken = Nothing

104− , _mllOrderId = pMllOrderId_

105− , _mllFields = Nothing

106− , _mllAlt = JSON

107− }

108−

109−-- | Available to use for quota purposes for server-side applications. Can be

110−-- any arbitrary string assigned to a user, but should not exceed 40

111−-- characters. Overrides userIp if both are provided.

112−mllQuotaUser :: Lens' MarketplacedealsList' (Maybe Text)

113−mllQuotaUser

114− = lens _mllQuotaUser (\ s a -> s{_mllQuotaUser = a})

115−

116−-- | Returns response with indentations and line breaks.

117−mllPrettyPrint :: Lens' MarketplacedealsList' Bool

118−mllPrettyPrint

119− = lens _mllPrettyPrint

120− (\ s a -> s{_mllPrettyPrint = a})

121−

122−-- | IP address of the site where the request originates. Use this if you

123−-- want to enforce per-user limits.

124−mllUserIp :: Lens' MarketplacedealsList' (Maybe Text)

125−mllUserIp

126− = lens _mllUserIp (\ s a -> s{_mllUserIp = a})

127−

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−mllKey :: Lens' MarketplacedealsList' (Maybe Text)

132−mllKey = lens _mllKey (\ s a -> s{_mllKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−mllOauthToken :: Lens' MarketplacedealsList' (Maybe Text)

136−mllOauthToken

137− = lens _mllOauthToken

138− (\ s a -> s{_mllOauthToken = a})

139−

140−-- | The orderId to get deals for.

141−mllOrderId :: Lens' MarketplacedealsList' Text

142−mllOrderId

143− = lens _mllOrderId (\ s a -> s{_mllOrderId = a})

144−

145−-- | Selector specifying which fields to include in a partial response.

146−mllFields :: Lens' MarketplacedealsList' (Maybe Text)

147−mllFields

148− = lens _mllFields (\ s a -> s{_mllFields = a})

149−

150−-- | Data format for the response.

151−mllAlt :: Lens' MarketplacedealsList' Alt

152−mllAlt = lens _mllAlt (\ s a -> s{_mllAlt = a})

153−

154−instance GoogleRequest MarketplacedealsList' where

155− type Rs MarketplacedealsList' = GetOrderDealsResponse

156− request = requestWithRoute defReq adExchangeBuyerURL

157− requestWithRoute r u MarketplacedealsList'{..}

158− = go _mllQuotaUser (Just _mllPrettyPrint) _mllUserIp

159− _mllKey

160− _mllOauthToken

161− _mllOrderId

162− _mllFields

163− (Just _mllAlt)

164− where go

165− = clientWithRoute

166− (Proxy :: Proxy MarketplacedealsListResource)

167− r

168− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/Update.hsdeleted−167

@@ -1,167 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Replaces all the deals in the order with the passed in deals

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsUpdate@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update

24− (

25− -- * REST Resource

26− MarketplacedealsUpdateResource

27−

28− -- * Creating a Request

29− , marketplacedealsUpdate'

30− , MarketplacedealsUpdate'

31−

32− -- * Request Lenses

33− , muQuotaUser

34− , muPrettyPrint

35− , muUserIp

36− , muKey

37− , muOauthToken

38− , muOrderId

39− , muFields

40− , muAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplacedealsUpdate@ which the

47−-- 'MarketplacedealsUpdate'' request conforms to.

48−type MarketplacedealsUpdateResource =

49− "marketplaceOrders" :>

50− Capture "orderId" Text :>

51− "deals" :>

52− "update" :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Post '[JSON] EditAllOrderDealsResponse

61−

62−-- | Replaces all the deals in the order with the passed in deals

63−--

64−-- /See:/ 'marketplacedealsUpdate'' smart constructor.

65−data MarketplacedealsUpdate' = MarketplacedealsUpdate'

66− { _muQuotaUser :: !(Maybe Text)

67− , _muPrettyPrint :: !Bool

68− , _muUserIp :: !(Maybe Text)

69− , _muKey :: !(Maybe Text)

70− , _muOauthToken :: !(Maybe Text)

71− , _muOrderId :: !Text

72− , _muFields :: !(Maybe Text)

73− , _muAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'MarketplacedealsUpdate'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'muQuotaUser'

81−--

82−-- * 'muPrettyPrint'

83−--

84−-- * 'muUserIp'

85−--

86−-- * 'muKey'

87−--

88−-- * 'muOauthToken'

89−--

90−-- * 'muOrderId'

91−--

92−-- * 'muFields'

93−--

94−-- * 'muAlt'

95−marketplacedealsUpdate'

96− :: Text -- ^ 'orderId'

97− -> MarketplacedealsUpdate'

98−marketplacedealsUpdate' pMuOrderId_ =

99− MarketplacedealsUpdate'

100− { _muQuotaUser = Nothing

101− , _muPrettyPrint = True

102− , _muUserIp = Nothing

103− , _muKey = Nothing

104− , _muOauthToken = Nothing

105− , _muOrderId = pMuOrderId_

106− , _muFields = Nothing

107− , _muAlt = JSON

108− }

109−

110−-- | Available to use for quota purposes for server-side applications. Can be

111−-- any arbitrary string assigned to a user, but should not exceed 40

112−-- characters. Overrides userIp if both are provided.

113−muQuotaUser :: Lens' MarketplacedealsUpdate' (Maybe Text)

114−muQuotaUser

115− = lens _muQuotaUser (\ s a -> s{_muQuotaUser = a})

116−

117−-- | Returns response with indentations and line breaks.

118−muPrettyPrint :: Lens' MarketplacedealsUpdate' Bool

119−muPrettyPrint

120− = lens _muPrettyPrint

121− (\ s a -> s{_muPrettyPrint = a})

122−

123−-- | IP address of the site where the request originates. Use this if you

124−-- want to enforce per-user limits.

125−muUserIp :: Lens' MarketplacedealsUpdate' (Maybe Text)

126−muUserIp = lens _muUserIp (\ s a -> s{_muUserIp = a})

127−

128−-- | API key. Your API key identifies your project and provides you with API

129−-- access, quota, and reports. Required unless you provide an OAuth 2.0

130−-- token.

131−muKey :: Lens' MarketplacedealsUpdate' (Maybe Text)

132−muKey = lens _muKey (\ s a -> s{_muKey = a})

133−

134−-- | OAuth 2.0 token for the current user.

135−muOauthToken :: Lens' MarketplacedealsUpdate' (Maybe Text)

136−muOauthToken

137− = lens _muOauthToken (\ s a -> s{_muOauthToken = a})

138−

139−-- | The orderId to edit deals on.

140−muOrderId :: Lens' MarketplacedealsUpdate' Text

141−muOrderId

142− = lens _muOrderId (\ s a -> s{_muOrderId = a})

143−

144−-- | Selector specifying which fields to include in a partial response.

145−muFields :: Lens' MarketplacedealsUpdate' (Maybe Text)

146−muFields = lens _muFields (\ s a -> s{_muFields = a})

147−

148−-- | Data format for the response.

149−muAlt :: Lens' MarketplacedealsUpdate' Alt

150−muAlt = lens _muAlt (\ s a -> s{_muAlt = a})

151−

152−instance GoogleRequest MarketplacedealsUpdate' where

153− type Rs MarketplacedealsUpdate' =

154− EditAllOrderDealsResponse

155− request = requestWithRoute defReq adExchangeBuyerURL

156− requestWithRoute r u MarketplacedealsUpdate'{..}

157− = go _muQuotaUser (Just _muPrettyPrint) _muUserIp

158− _muKey

159− _muOauthToken

160− _muOrderId

161− _muFields

162− (Just _muAlt)

163− where go

164− = clientWithRoute

165− (Proxy :: Proxy MarketplacedealsUpdateResource)

166− r

167− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacenotes/Insert.hsdeleted−170

@@ -1,170 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Add notes to the order

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacenotesInsert@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert

24− (

25− -- * REST Resource

26− MarketplacenotesInsertResource

27−

28− -- * Creating a Request

29− , marketplacenotesInsert'

30− , MarketplacenotesInsert'

31−

32− -- * Request Lenses

33− , miiQuotaUser

34− , miiPrettyPrint

35− , miiUserIp

36− , miiKey

37− , miiOauthToken

38− , miiOrderId

39− , miiFields

40− , miiAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplacenotesInsert@ which the

47−-- 'MarketplacenotesInsert'' request conforms to.

48−type MarketplacenotesInsertResource =

49− "marketplaceOrders" :>

50− Capture "orderId" Text :>

51− "notes" :>

52− "insert" :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

57− QueryParam "oauth_token" Text :>

58− QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

60− Post '[JSON] AddOrderNotesResponse

61−

62−-- | Add notes to the order

63−--

64−-- /See:/ 'marketplacenotesInsert'' smart constructor.

65−data MarketplacenotesInsert' = MarketplacenotesInsert'

66− { _miiQuotaUser :: !(Maybe Text)

67− , _miiPrettyPrint :: !Bool

68− , _miiUserIp :: !(Maybe Text)

69− , _miiKey :: !(Maybe Text)

70− , _miiOauthToken :: !(Maybe Text)

71− , _miiOrderId :: !Text

72− , _miiFields :: !(Maybe Text)

73− , _miiAlt :: !Alt

74− } deriving (Eq,Read,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'MarketplacenotesInsert'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'miiQuotaUser'

81−--

82−-- * 'miiPrettyPrint'

83−--

84−-- * 'miiUserIp'

85−--

86−-- * 'miiKey'

87−--

88−-- * 'miiOauthToken'

89−--

90−-- * 'miiOrderId'

91−--

92−-- * 'miiFields'

93−--

94−-- * 'miiAlt'

95−marketplacenotesInsert'

96− :: Text -- ^ 'orderId'

97− -> MarketplacenotesInsert'

98−marketplacenotesInsert' pMiiOrderId_ =

99− MarketplacenotesInsert'

100− { _miiQuotaUser = Nothing

101− , _miiPrettyPrint = True

102− , _miiUserIp = Nothing

103− , _miiKey = Nothing

104− , _miiOauthToken = Nothing

105− , _miiOrderId = pMiiOrderId_

106− , _miiFields = Nothing

107− , _miiAlt = JSON

108− }

109−

110−-- | Available to use for quota purposes for server-side applications. Can be

111−-- any arbitrary string assigned to a user, but should not exceed 40

112−-- characters. Overrides userIp if both are provided.

113−miiQuotaUser :: Lens' MarketplacenotesInsert' (Maybe Text)

114−miiQuotaUser

115− = lens _miiQuotaUser (\ s a -> s{_miiQuotaUser = a})

116−

117−-- | Returns response with indentations and line breaks.

118−miiPrettyPrint :: Lens' MarketplacenotesInsert' Bool

119−miiPrettyPrint

120− = lens _miiPrettyPrint

121− (\ s a -> s{_miiPrettyPrint = a})

122−

123−-- | IP address of the site where the request originates. Use this if you

124−-- want to enforce per-user limits.

125−miiUserIp :: Lens' MarketplacenotesInsert' (Maybe Text)

126−miiUserIp

127− = lens _miiUserIp (\ s a -> s{_miiUserIp = a})

128−

129−-- | API key. Your API key identifies your project and provides you with API

130−-- access, quota, and reports. Required unless you provide an OAuth 2.0

131−-- token.

132−miiKey :: Lens' MarketplacenotesInsert' (Maybe Text)

133−miiKey = lens _miiKey (\ s a -> s{_miiKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−miiOauthToken :: Lens' MarketplacenotesInsert' (Maybe Text)

137−miiOauthToken

138− = lens _miiOauthToken

139− (\ s a -> s{_miiOauthToken = a})

140−

141−-- | The orderId to add notes for.

142−miiOrderId :: Lens' MarketplacenotesInsert' Text

143−miiOrderId

144− = lens _miiOrderId (\ s a -> s{_miiOrderId = a})

145−

146−-- | Selector specifying which fields to include in a partial response.

147−miiFields :: Lens' MarketplacenotesInsert' (Maybe Text)

148−miiFields

149− = lens _miiFields (\ s a -> s{_miiFields = a})

150−

151−-- | Data format for the response.

152−miiAlt :: Lens' MarketplacenotesInsert' Alt

153−miiAlt = lens _miiAlt (\ s a -> s{_miiAlt = a})

154−

155−instance GoogleRequest MarketplacenotesInsert' where

156− type Rs MarketplacenotesInsert' =

157− AddOrderNotesResponse

158− request = requestWithRoute defReq adExchangeBuyerURL

159− requestWithRoute r u MarketplacenotesInsert'{..}

160− = go _miiQuotaUser (Just _miiPrettyPrint) _miiUserIp

161− _miiKey

162− _miiOauthToken

163− _miiOrderId

164− _miiFields

165− (Just _miiAlt)

166− where go

167− = clientWithRoute

168− (Proxy :: Proxy MarketplacenotesInsertResource)

169− r

170− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacenotes/List.hsdeleted−165

@@ -1,165 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Get all the notes associated with an order

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacenotesList@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List

24− (

25− -- * REST Resource

26− MarketplacenotesListResource

27−

28− -- * Creating a Request

29− , marketplacenotesList'

30− , MarketplacenotesList'

31−

32− -- * Request Lenses

33− , mlQuotaUser

34− , mlPrettyPrint

35− , mlUserIp

36− , mlKey

37− , mlOauthToken

38− , mlOrderId

39− , mlFields

40− , mlAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplacenotesList@ which the

47−-- 'MarketplacenotesList'' request conforms to.

48−type MarketplacenotesListResource =

49− "marketplaceOrders" :>

50− Capture "orderId" Text :>

51− "notes" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "key" Text :>

56− QueryParam "oauth_token" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "alt" Alt :>

59− Get '[JSON] GetOrderNotesResponse

60−

61−-- | Get all the notes associated with an order

62−--

63−-- /See:/ 'marketplacenotesList'' smart constructor.

64−data MarketplacenotesList' = MarketplacenotesList'

65− { _mlQuotaUser :: !(Maybe Text)

66− , _mlPrettyPrint :: !Bool

67− , _mlUserIp :: !(Maybe Text)

68− , _mlKey :: !(Maybe Text)

69− , _mlOauthToken :: !(Maybe Text)

70− , _mlOrderId :: !Text

71− , _mlFields :: !(Maybe Text)

72− , _mlAlt :: !Alt

73− } deriving (Eq,Read,Show,Data,Typeable,Generic)

74−

75−-- | Creates a value of 'MarketplacenotesList'' with the minimum fields required to make a request.

76−--

77−-- Use one of the following lenses to modify other fields as desired:

78−--

79−-- * 'mlQuotaUser'

80−--

81−-- * 'mlPrettyPrint'

82−--

83−-- * 'mlUserIp'

84−--

85−-- * 'mlKey'

86−--

87−-- * 'mlOauthToken'

88−--

89−-- * 'mlOrderId'

90−--

91−-- * 'mlFields'

92−--

93−-- * 'mlAlt'

94−marketplacenotesList'

95− :: Text -- ^ 'orderId'

96− -> MarketplacenotesList'

97−marketplacenotesList' pMlOrderId_ =

98− MarketplacenotesList'

99− { _mlQuotaUser = Nothing

100− , _mlPrettyPrint = True

101− , _mlUserIp = Nothing

102− , _mlKey = Nothing

103− , _mlOauthToken = Nothing

104− , _mlOrderId = pMlOrderId_

105− , _mlFields = Nothing

106− , _mlAlt = JSON

107− }

108−

109−-- | Available to use for quota purposes for server-side applications. Can be

110−-- any arbitrary string assigned to a user, but should not exceed 40

111−-- characters. Overrides userIp if both are provided.

112−mlQuotaUser :: Lens' MarketplacenotesList' (Maybe Text)

113−mlQuotaUser

114− = lens _mlQuotaUser (\ s a -> s{_mlQuotaUser = a})

115−

116−-- | Returns response with indentations and line breaks.

117−mlPrettyPrint :: Lens' MarketplacenotesList' Bool

118−mlPrettyPrint

119− = lens _mlPrettyPrint

120− (\ s a -> s{_mlPrettyPrint = a})

121−

122−-- | IP address of the site where the request originates. Use this if you

123−-- want to enforce per-user limits.

124−mlUserIp :: Lens' MarketplacenotesList' (Maybe Text)

125−mlUserIp = lens _mlUserIp (\ s a -> s{_mlUserIp = a})

126−

127−-- | API key. Your API key identifies your project and provides you with API

128−-- access, quota, and reports. Required unless you provide an OAuth 2.0

129−-- token.

130−mlKey :: Lens' MarketplacenotesList' (Maybe Text)

131−mlKey = lens _mlKey (\ s a -> s{_mlKey = a})

132−

133−-- | OAuth 2.0 token for the current user.

134−mlOauthToken :: Lens' MarketplacenotesList' (Maybe Text)

135−mlOauthToken

136− = lens _mlOauthToken (\ s a -> s{_mlOauthToken = a})

137−

138−-- | The orderId to get notes for.

139−mlOrderId :: Lens' MarketplacenotesList' Text

140−mlOrderId

141− = lens _mlOrderId (\ s a -> s{_mlOrderId = a})

142−

143−-- | Selector specifying which fields to include in a partial response.

144−mlFields :: Lens' MarketplacenotesList' (Maybe Text)

145−mlFields = lens _mlFields (\ s a -> s{_mlFields = a})

146−

147−-- | Data format for the response.

148−mlAlt :: Lens' MarketplacenotesList' Alt

149−mlAlt = lens _mlAlt (\ s a -> s{_mlAlt = a})

150−

151−instance GoogleRequest MarketplacenotesList' where

152− type Rs MarketplacenotesList' = GetOrderNotesResponse

153− request = requestWithRoute defReq adExchangeBuyerURL

154− requestWithRoute r u MarketplacenotesList'{..}

155− = go _mlQuotaUser (Just _mlPrettyPrint) _mlUserIp

156− _mlKey

157− _mlOauthToken

158− _mlOrderId

159− _mlFields

160− (Just _mlAlt)

161− where go

162− = clientWithRoute

163− (Proxy :: Proxy MarketplacenotesListResource)

164− r

165− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceoffers/Get.hsdeleted−163

@@ -1,163 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Gets the requested negotiation.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceoffersGet@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get

24− (

25− -- * REST Resource

26− MarketplaceoffersGetResource

27−

28− -- * Creating a Request

29− , marketplaceoffersGet'

30− , MarketplaceoffersGet'

31−

32− -- * Request Lenses

33− , mgQuotaUser

34− , mgPrettyPrint

35− , mgUserIp

36− , mgKey

37− , mgOfferId

38− , mgOauthToken

39− , mgFields

40− , mgAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplaceoffersGet@ which the

47−-- 'MarketplaceoffersGet'' request conforms to.

48−type MarketplaceoffersGetResource =

49− "marketplaceOffers" :>

50− Capture "offerId" Text :>

51− QueryParam "quotaUser" Text :>

52− QueryParam "prettyPrint" Bool :>

53− QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

55− QueryParam "oauth_token" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] MarketplaceOffer

58−

59−-- | Gets the requested negotiation.

60−--

61−-- /See:/ 'marketplaceoffersGet'' smart constructor.

62−data MarketplaceoffersGet' = MarketplaceoffersGet'

63− { _mgQuotaUser :: !(Maybe Text)

64− , _mgPrettyPrint :: !Bool

65− , _mgUserIp :: !(Maybe Text)

66− , _mgKey :: !(Maybe Text)

67− , _mgOfferId :: !Text

68− , _mgOauthToken :: !(Maybe Text)

69− , _mgFields :: !(Maybe Text)

70− , _mgAlt :: !Alt

71− } deriving (Eq,Read,Show,Data,Typeable,Generic)

72−

73−-- | Creates a value of 'MarketplaceoffersGet'' with the minimum fields required to make a request.

74−--

75−-- Use one of the following lenses to modify other fields as desired:

76−--

77−-- * 'mgQuotaUser'

78−--

79−-- * 'mgPrettyPrint'

80−--

81−-- * 'mgUserIp'

82−--

83−-- * 'mgKey'

84−--

85−-- * 'mgOfferId'

86−--

87−-- * 'mgOauthToken'

88−--

89−-- * 'mgFields'

90−--

91−-- * 'mgAlt'

92−marketplaceoffersGet'

93− :: Text -- ^ 'offerId'

94− -> MarketplaceoffersGet'

95−marketplaceoffersGet' pMgOfferId_ =

96− MarketplaceoffersGet'

97− { _mgQuotaUser = Nothing

98− , _mgPrettyPrint = True

99− , _mgUserIp = Nothing

100− , _mgKey = Nothing

101− , _mgOfferId = pMgOfferId_

102− , _mgOauthToken = Nothing

103− , _mgFields = Nothing

104− , _mgAlt = JSON

105− }

106−

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−mgQuotaUser :: Lens' MarketplaceoffersGet' (Maybe Text)

111−mgQuotaUser

112− = lens _mgQuotaUser (\ s a -> s{_mgQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−mgPrettyPrint :: Lens' MarketplaceoffersGet' Bool

116−mgPrettyPrint

117− = lens _mgPrettyPrint

118− (\ s a -> s{_mgPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−mgUserIp :: Lens' MarketplaceoffersGet' (Maybe Text)

123−mgUserIp = lens _mgUserIp (\ s a -> s{_mgUserIp = a})

124−

125−-- | API key. Your API key identifies your project and provides you with API

126−-- access, quota, and reports. Required unless you provide an OAuth 2.0

127−-- token.

128−mgKey :: Lens' MarketplaceoffersGet' (Maybe Text)

129−mgKey = lens _mgKey (\ s a -> s{_mgKey = a})

130−

131−-- | The offerId for the offer to get the head revision for.

132−mgOfferId :: Lens' MarketplaceoffersGet' Text

133−mgOfferId

134− = lens _mgOfferId (\ s a -> s{_mgOfferId = a})

135−

136−-- | OAuth 2.0 token for the current user.

137−mgOauthToken :: Lens' MarketplaceoffersGet' (Maybe Text)

138−mgOauthToken

139− = lens _mgOauthToken (\ s a -> s{_mgOauthToken = a})

140−

141−-- | Selector specifying which fields to include in a partial response.

142−mgFields :: Lens' MarketplaceoffersGet' (Maybe Text)

143−mgFields = lens _mgFields (\ s a -> s{_mgFields = a})

144−

145−-- | Data format for the response.

146−mgAlt :: Lens' MarketplaceoffersGet' Alt

147−mgAlt = lens _mgAlt (\ s a -> s{_mgAlt = a})

148−

149−instance GoogleRequest MarketplaceoffersGet' where

150− type Rs MarketplaceoffersGet' = MarketplaceOffer

151− request = requestWithRoute defReq adExchangeBuyerURL

152− requestWithRoute r u MarketplaceoffersGet'{..}

153− = go _mgQuotaUser (Just _mgPrettyPrint) _mgUserIp

154− _mgKey

155− _mgOfferId

156− _mgOauthToken

157− _mgFields

158− (Just _mgAlt)

159− where go

160− = clientWithRoute

161− (Proxy :: Proxy MarketplaceoffersGetResource)

162− r

163− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceoffers/Search.hsdeleted−163

@@ -1,163 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Gets the requested negotiation.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceoffersSearch@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search

24− (

25− -- * REST Resource

26− MarketplaceoffersSearchResource

27−

28− -- * Creating a Request

29− , marketplaceoffersSearch'

30− , MarketplaceoffersSearch'

31−

32− -- * Request Lenses

33− , msQuotaUser

34− , msPrettyPrint

35− , msUserIp

36− , msKey

37− , msPqlQuery

38− , msOauthToken

39− , msFields

40− , msAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplaceoffersSearch@ which the

47−-- 'MarketplaceoffersSearch'' request conforms to.

48−type MarketplaceoffersSearchResource =

49− "marketplaceOffers" :>

50− "search" :>

51− QueryParam "quotaUser" Text :>

52− QueryParam "prettyPrint" Bool :>

53− QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

55− QueryParam "pqlQuery" Text :>

56− QueryParam "oauth_token" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "alt" Alt :> Get '[JSON] GetOffersResponse

59−

60−-- | Gets the requested negotiation.

61−--

62−-- /See:/ 'marketplaceoffersSearch'' smart constructor.

63−data MarketplaceoffersSearch' = MarketplaceoffersSearch'

64− { _msQuotaUser :: !(Maybe Text)

65− , _msPrettyPrint :: !Bool

66− , _msUserIp :: !(Maybe Text)

67− , _msKey :: !(Maybe Text)

68− , _msPqlQuery :: !(Maybe Text)

69− , _msOauthToken :: !(Maybe Text)

70− , _msFields :: !(Maybe Text)

71− , _msAlt :: !Alt

72− } deriving (Eq,Read,Show,Data,Typeable,Generic)

73−

74−-- | Creates a value of 'MarketplaceoffersSearch'' with the minimum fields required to make a request.

75−--

76−-- Use one of the following lenses to modify other fields as desired:

77−--

78−-- * 'msQuotaUser'

79−--

80−-- * 'msPrettyPrint'

81−--

82−-- * 'msUserIp'

83−--

84−-- * 'msKey'

85−--

86−-- * 'msPqlQuery'

87−--

88−-- * 'msOauthToken'

89−--

90−-- * 'msFields'

91−--

92−-- * 'msAlt'

93−marketplaceoffersSearch'

94− :: MarketplaceoffersSearch'

95−marketplaceoffersSearch' =

96− MarketplaceoffersSearch'

97− { _msQuotaUser = Nothing

98− , _msPrettyPrint = True

99− , _msUserIp = Nothing

100− , _msKey = Nothing

101− , _msPqlQuery = Nothing

102− , _msOauthToken = Nothing

103− , _msFields = Nothing

104− , _msAlt = JSON

105− }

106−

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−msQuotaUser :: Lens' MarketplaceoffersSearch' (Maybe Text)

111−msQuotaUser

112− = lens _msQuotaUser (\ s a -> s{_msQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−msPrettyPrint :: Lens' MarketplaceoffersSearch' Bool

116−msPrettyPrint

117− = lens _msPrettyPrint

118− (\ s a -> s{_msPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−msUserIp :: Lens' MarketplaceoffersSearch' (Maybe Text)

123−msUserIp = lens _msUserIp (\ s a -> s{_msUserIp = a})

124−

125−-- | API key. Your API key identifies your project and provides you with API

126−-- access, quota, and reports. Required unless you provide an OAuth 2.0

127−-- token.

128−msKey :: Lens' MarketplaceoffersSearch' (Maybe Text)

129−msKey = lens _msKey (\ s a -> s{_msKey = a})

130−

131−-- | The pql query used to query for offers.

132−msPqlQuery :: Lens' MarketplaceoffersSearch' (Maybe Text)

133−msPqlQuery

134− = lens _msPqlQuery (\ s a -> s{_msPqlQuery = a})

135−

136−-- | OAuth 2.0 token for the current user.

137−msOauthToken :: Lens' MarketplaceoffersSearch' (Maybe Text)

138−msOauthToken

139− = lens _msOauthToken (\ s a -> s{_msOauthToken = a})

140−

141−-- | Selector specifying which fields to include in a partial response.

142−msFields :: Lens' MarketplaceoffersSearch' (Maybe Text)

143−msFields = lens _msFields (\ s a -> s{_msFields = a})

144−

145−-- | Data format for the response.

146−msAlt :: Lens' MarketplaceoffersSearch' Alt

147−msAlt = lens _msAlt (\ s a -> s{_msAlt = a})

148−

149−instance GoogleRequest MarketplaceoffersSearch' where

150− type Rs MarketplaceoffersSearch' = GetOffersResponse

151− request = requestWithRoute defReq adExchangeBuyerURL

152− requestWithRoute r u MarketplaceoffersSearch'{..}

153− = go _msQuotaUser (Just _msPrettyPrint) _msUserIp

154− _msKey

155− _msPqlQuery

156− _msOauthToken

157− _msFields

158− (Just _msAlt)

159− where go

160− = clientWithRoute

161− (Proxy :: Proxy MarketplaceoffersSearchResource)

162− r

163− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Insert.hsdeleted−153

@@ -1,153 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Create the given list of orders

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersInsert@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert

24− (

25− -- * REST Resource

26− MarketplaceordersInsertResource

27−

28− -- * Creating a Request

29− , marketplaceordersInsert'

30− , MarketplaceordersInsert'

31−

32− -- * Request Lenses

33− , miQuotaUser

34− , miPrettyPrint

35− , miUserIp

36− , miKey

37− , miOauthToken

38− , miFields

39− , miAlt

40− ) where

41−

42−import Network.Google.AdExchangeBuyer.Types

43−import Network.Google.Prelude

44−

45−-- | A resource alias for @AdexchangebuyerMarketplaceordersInsert@ which the

46−-- 'MarketplaceordersInsert'' request conforms to.

47−type MarketplaceordersInsertResource =

48− "marketplaceOrders" :>

49− "insert" :>

50− QueryParam "quotaUser" Text :>

51− QueryParam "prettyPrint" Bool :>

52− QueryParam "userIp" Text :>

53− QueryParam "key" Text :>

54− QueryParam "oauth_token" Text :>

55− QueryParam "fields" Text :>

56− QueryParam "alt" Alt :>

57− Post '[JSON] CreateOrdersResponse

58−

59−-- | Create the given list of orders

60−--

61−-- /See:/ 'marketplaceordersInsert'' smart constructor.

62−data MarketplaceordersInsert' = MarketplaceordersInsert'

63− { _miQuotaUser :: !(Maybe Text)

64− , _miPrettyPrint :: !Bool

65− , _miUserIp :: !(Maybe Text)

66− , _miKey :: !(Maybe Text)

67− , _miOauthToken :: !(Maybe Text)

68− , _miFields :: !(Maybe Text)

69− , _miAlt :: !Alt

70− } deriving (Eq,Read,Show,Data,Typeable,Generic)

71−

72−-- | Creates a value of 'MarketplaceordersInsert'' with the minimum fields required to make a request.

73−--

74−-- Use one of the following lenses to modify other fields as desired:

75−--

76−-- * 'miQuotaUser'

77−--

78−-- * 'miPrettyPrint'

79−--

80−-- * 'miUserIp'

81−--

82−-- * 'miKey'

83−--

84−-- * 'miOauthToken'

85−--

86−-- * 'miFields'

87−--

88−-- * 'miAlt'

89−marketplaceordersInsert'

90− :: MarketplaceordersInsert'

91−marketplaceordersInsert' =

92− MarketplaceordersInsert'

93− { _miQuotaUser = Nothing

94− , _miPrettyPrint = True

95− , _miUserIp = Nothing

96− , _miKey = Nothing

97− , _miOauthToken = Nothing

98− , _miFields = Nothing

99− , _miAlt = JSON

100− }

101−

102−-- | Available to use for quota purposes for server-side applications. Can be

103−-- any arbitrary string assigned to a user, but should not exceed 40

104−-- characters. Overrides userIp if both are provided.

105−miQuotaUser :: Lens' MarketplaceordersInsert' (Maybe Text)

106−miQuotaUser

107− = lens _miQuotaUser (\ s a -> s{_miQuotaUser = a})

108−

109−-- | Returns response with indentations and line breaks.

110−miPrettyPrint :: Lens' MarketplaceordersInsert' Bool

111−miPrettyPrint

112− = lens _miPrettyPrint

113− (\ s a -> s{_miPrettyPrint = a})

114−

115−-- | IP address of the site where the request originates. Use this if you

116−-- want to enforce per-user limits.

117−miUserIp :: Lens' MarketplaceordersInsert' (Maybe Text)

118−miUserIp = lens _miUserIp (\ s a -> s{_miUserIp = a})

119−

120−-- | API key. Your API key identifies your project and provides you with API

121−-- access, quota, and reports. Required unless you provide an OAuth 2.0

122−-- token.

123−miKey :: Lens' MarketplaceordersInsert' (Maybe Text)

124−miKey = lens _miKey (\ s a -> s{_miKey = a})

125−

126−-- | OAuth 2.0 token for the current user.

127−miOauthToken :: Lens' MarketplaceordersInsert' (Maybe Text)

128−miOauthToken

129− = lens _miOauthToken (\ s a -> s{_miOauthToken = a})

130−

131−-- | Selector specifying which fields to include in a partial response.

132−miFields :: Lens' MarketplaceordersInsert' (Maybe Text)

133−miFields = lens _miFields (\ s a -> s{_miFields = a})

134−

135−-- | Data format for the response.

136−miAlt :: Lens' MarketplaceordersInsert' Alt

137−miAlt = lens _miAlt (\ s a -> s{_miAlt = a})

138−

139−instance GoogleRequest MarketplaceordersInsert' where

140− type Rs MarketplaceordersInsert' =

141− CreateOrdersResponse

142− request = requestWithRoute defReq adExchangeBuyerURL

143− requestWithRoute r u MarketplaceordersInsert'{..}

144− = go _miQuotaUser (Just _miPrettyPrint) _miUserIp

145− _miKey

146− _miOauthToken

147− _miFields

148− (Just _miAlt)

149− where go

150− = clientWithRoute

151− (Proxy :: Proxy MarketplaceordersInsertResource)

152− r

153− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Patch.hsdeleted−198

@@ -1,198 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Update the given order. This method supports patch semantics.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersPatch@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch

24− (

25− -- * REST Resource

26− MarketplaceordersPatchResource

27−

28− -- * Creating a Request

29− , marketplaceordersPatch'

30− , MarketplaceordersPatch'

31−

32− -- * Request Lenses

33− , mpQuotaUser

34− , mpUpdateAction

35− , mpPrettyPrint

36− , mpUserIp

37− , mpRevisionNumber

38− , mpKey

39− , mpOauthToken

40− , mpOrderId

41− , mpFields

42− , mpAlt

43− ) where

44−

45−import Network.Google.AdExchangeBuyer.Types

46−import Network.Google.Prelude

47−

48−-- | A resource alias for @AdexchangebuyerMarketplaceordersPatch@ which the

49−-- 'MarketplaceordersPatch'' request conforms to.

50−type MarketplaceordersPatchResource =

51− "marketplaceOrders" :>

52− Capture "orderId" Text :>

53− Capture "revisionNumber" Int64 :>

54− Capture "updateAction"

55− AdexchangebuyerMarketplaceordersPatchUpdateAction

56− :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "key" Text :>

61− QueryParam "oauth_token" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "alt" Alt :>

64− Patch '[JSON] MarketplaceOrder

65−

66−-- | Update the given order. This method supports patch semantics.

67−--

68−-- /See:/ 'marketplaceordersPatch'' smart constructor.

69−data MarketplaceordersPatch' = MarketplaceordersPatch'

70− { _mpQuotaUser :: !(Maybe Text)

71− , _mpUpdateAction :: !AdexchangebuyerMarketplaceordersPatchUpdateAction

72− , _mpPrettyPrint :: !Bool

73− , _mpUserIp :: !(Maybe Text)

74− , _mpRevisionNumber :: !Int64

75− , _mpKey :: !(Maybe Text)

76− , _mpOauthToken :: !(Maybe Text)

77− , _mpOrderId :: !Text

78− , _mpFields :: !(Maybe Text)

79− , _mpAlt :: !Alt

80− } deriving (Eq,Read,Show,Data,Typeable,Generic)

81−

82−-- | Creates a value of 'MarketplaceordersPatch'' with the minimum fields required to make a request.

83−--

84−-- Use one of the following lenses to modify other fields as desired:

85−--

86−-- * 'mpQuotaUser'

87−--

88−-- * 'mpUpdateAction'

89−--

90−-- * 'mpPrettyPrint'

91−--

92−-- * 'mpUserIp'

93−--

94−-- * 'mpRevisionNumber'

95−--

96−-- * 'mpKey'

97−--

98−-- * 'mpOauthToken'

99−--

100−-- * 'mpOrderId'

101−--

102−-- * 'mpFields'

103−--

104−-- * 'mpAlt'

105−marketplaceordersPatch'

106− :: AdexchangebuyerMarketplaceordersPatchUpdateAction -- ^ 'updateAction'

107− -> Int64 -- ^ 'revisionNumber'

108− -> Text -- ^ 'orderId'

109− -> MarketplaceordersPatch'

110−marketplaceordersPatch' pMpUpdateAction_ pMpRevisionNumber_ pMpOrderId_ =

111− MarketplaceordersPatch'

112− { _mpQuotaUser = Nothing

113− , _mpUpdateAction = pMpUpdateAction_

114− , _mpPrettyPrint = True

115− , _mpUserIp = Nothing

116− , _mpRevisionNumber = pMpRevisionNumber_

117− , _mpKey = Nothing

118− , _mpOauthToken = Nothing

119− , _mpOrderId = pMpOrderId_

120− , _mpFields = Nothing

121− , _mpAlt = JSON

122− }

123−

124−-- | Available to use for quota purposes for server-side applications. Can be

125−-- any arbitrary string assigned to a user, but should not exceed 40

126−-- characters. Overrides userIp if both are provided.

127−mpQuotaUser :: Lens' MarketplaceordersPatch' (Maybe Text)

128−mpQuotaUser

129− = lens _mpQuotaUser (\ s a -> s{_mpQuotaUser = a})

130−

131−-- | The proposed action to take on the order.

132−mpUpdateAction :: Lens' MarketplaceordersPatch' AdexchangebuyerMarketplaceordersPatchUpdateAction

133−mpUpdateAction

134− = lens _mpUpdateAction

135− (\ s a -> s{_mpUpdateAction = a})

136−

137−-- | Returns response with indentations and line breaks.

138−mpPrettyPrint :: Lens' MarketplaceordersPatch' Bool

139−mpPrettyPrint

140− = lens _mpPrettyPrint

141− (\ s a -> s{_mpPrettyPrint = a})

142−

143−-- | IP address of the site where the request originates. Use this if you

144−-- want to enforce per-user limits.

145−mpUserIp :: Lens' MarketplaceordersPatch' (Maybe Text)

146−mpUserIp = lens _mpUserIp (\ s a -> s{_mpUserIp = a})

147−

148−-- | The last known revision number to update. If the head revision in the

149−-- marketplace database has since changed, an error will be thrown. The

150−-- caller should then fetch the lastest order at head revision and retry

151−-- the update at that revision.

152−mpRevisionNumber :: Lens' MarketplaceordersPatch' Int64

153−mpRevisionNumber

154− = lens _mpRevisionNumber

155− (\ s a -> s{_mpRevisionNumber = a})

156−

157−-- | API key. Your API key identifies your project and provides you with API

158−-- access, quota, and reports. Required unless you provide an OAuth 2.0

159−-- token.

160−mpKey :: Lens' MarketplaceordersPatch' (Maybe Text)

161−mpKey = lens _mpKey (\ s a -> s{_mpKey = a})

162−

163−-- | OAuth 2.0 token for the current user.

164−mpOauthToken :: Lens' MarketplaceordersPatch' (Maybe Text)

165−mpOauthToken

166− = lens _mpOauthToken (\ s a -> s{_mpOauthToken = a})

167−

168−-- | The order id to update.

169−mpOrderId :: Lens' MarketplaceordersPatch' Text

170−mpOrderId

171− = lens _mpOrderId (\ s a -> s{_mpOrderId = a})

172−

173−-- | Selector specifying which fields to include in a partial response.

174−mpFields :: Lens' MarketplaceordersPatch' (Maybe Text)

175−mpFields = lens _mpFields (\ s a -> s{_mpFields = a})

176−

177−-- | Data format for the response.

178−mpAlt :: Lens' MarketplaceordersPatch' Alt

179−mpAlt = lens _mpAlt (\ s a -> s{_mpAlt = a})

180−

181−instance GoogleRequest MarketplaceordersPatch' where

182− type Rs MarketplaceordersPatch' = MarketplaceOrder

183− request = requestWithRoute defReq adExchangeBuyerURL

184− requestWithRoute r u MarketplaceordersPatch'{..}

185− = go _mpQuotaUser _mpUpdateAction

186− (Just _mpPrettyPrint)

187− _mpUserIp

188− _mpRevisionNumber

189− _mpKey

190− _mpOauthToken

191− _mpOrderId

192− _mpFields

193− (Just _mpAlt)

194− where go

195− = clientWithRoute

196− (Proxy :: Proxy MarketplaceordersPatchResource)

197− r

198− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Search.hsdeleted−166

@@ -1,166 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Search for orders using pql query

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersSearch@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search

24− (

25− -- * REST Resource

26− MarketplaceordersSearchResource

27−

28− -- * Creating a Request

29− , marketplaceordersSearch'

30− , MarketplaceordersSearch'

31−

32− -- * Request Lenses

33− , mssQuotaUser

34− , mssPrettyPrint

35− , mssUserIp

36− , mssKey

37− , mssPqlQuery

38− , mssOauthToken

39− , mssFields

40− , mssAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerMarketplaceordersSearch@ which the

47−-- 'MarketplaceordersSearch'' request conforms to.

48−type MarketplaceordersSearchResource =

49− "marketplaceOrders" :>

50− "search" :>

51− QueryParam "quotaUser" Text :>

52− QueryParam "prettyPrint" Bool :>

53− QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

55− QueryParam "pqlQuery" Text :>

56− QueryParam "oauth_token" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "alt" Alt :> Get '[JSON] GetOrdersResponse

59−

60−-- | Search for orders using pql query

61−--

62−-- /See:/ 'marketplaceordersSearch'' smart constructor.

63−data MarketplaceordersSearch' = MarketplaceordersSearch'

64− { _mssQuotaUser :: !(Maybe Text)

65− , _mssPrettyPrint :: !Bool

66− , _mssUserIp :: !(Maybe Text)

67− , _mssKey :: !(Maybe Text)

68− , _mssPqlQuery :: !(Maybe Text)

69− , _mssOauthToken :: !(Maybe Text)

70− , _mssFields :: !(Maybe Text)

71− , _mssAlt :: !Alt

72− } deriving (Eq,Read,Show,Data,Typeable,Generic)

73−

74−-- | Creates a value of 'MarketplaceordersSearch'' with the minimum fields required to make a request.

75−--

76−-- Use one of the following lenses to modify other fields as desired:

77−--

78−-- * 'mssQuotaUser'

79−--

80−-- * 'mssPrettyPrint'

81−--

82−-- * 'mssUserIp'

83−--

84−-- * 'mssKey'

85−--

86−-- * 'mssPqlQuery'

87−--

88−-- * 'mssOauthToken'

89−--

90−-- * 'mssFields'

91−--

92−-- * 'mssAlt'

93−marketplaceordersSearch'

94− :: MarketplaceordersSearch'

95−marketplaceordersSearch' =

96− MarketplaceordersSearch'

97− { _mssQuotaUser = Nothing

98− , _mssPrettyPrint = True

99− , _mssUserIp = Nothing

100− , _mssKey = Nothing

101− , _mssPqlQuery = Nothing

102− , _mssOauthToken = Nothing

103− , _mssFields = Nothing

104− , _mssAlt = JSON

105− }

106−

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−mssQuotaUser :: Lens' MarketplaceordersSearch' (Maybe Text)

111−mssQuotaUser

112− = lens _mssQuotaUser (\ s a -> s{_mssQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−mssPrettyPrint :: Lens' MarketplaceordersSearch' Bool

116−mssPrettyPrint

117− = lens _mssPrettyPrint

118− (\ s a -> s{_mssPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−mssUserIp :: Lens' MarketplaceordersSearch' (Maybe Text)

123−mssUserIp

124− = lens _mssUserIp (\ s a -> s{_mssUserIp = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−mssKey :: Lens' MarketplaceordersSearch' (Maybe Text)

130−mssKey = lens _mssKey (\ s a -> s{_mssKey = a})

131−

132−-- | Query string to retrieve specific orders.

133−mssPqlQuery :: Lens' MarketplaceordersSearch' (Maybe Text)

134−mssPqlQuery

135− = lens _mssPqlQuery (\ s a -> s{_mssPqlQuery = a})

136−

137−-- | OAuth 2.0 token for the current user.

138−mssOauthToken :: Lens' MarketplaceordersSearch' (Maybe Text)

139−mssOauthToken

140− = lens _mssOauthToken

141− (\ s a -> s{_mssOauthToken = a})

142−

143−-- | Selector specifying which fields to include in a partial response.

144−mssFields :: Lens' MarketplaceordersSearch' (Maybe Text)

145−mssFields

146− = lens _mssFields (\ s a -> s{_mssFields = a})

147−

148−-- | Data format for the response.

149−mssAlt :: Lens' MarketplaceordersSearch' Alt

150−mssAlt = lens _mssAlt (\ s a -> s{_mssAlt = a})

151−

152−instance GoogleRequest MarketplaceordersSearch' where

153− type Rs MarketplaceordersSearch' = GetOrdersResponse

154− request = requestWithRoute defReq adExchangeBuyerURL

155− requestWithRoute r u MarketplaceordersSearch'{..}

156− = go _mssQuotaUser (Just _mssPrettyPrint) _mssUserIp

157− _mssKey

158− _mssPqlQuery

159− _mssOauthToken

160− _mssFields

161− (Just _mssAlt)

162− where go

163− = clientWithRoute

164− (Proxy :: Proxy MarketplaceordersSearchResource)

165− r

166− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Update.hsdeleted−200

@@ -1,200 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Update the given order

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersUpdate@.

23−module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update

24− (

25− -- * REST Resource

26− MarketplaceordersUpdateResource

27−

28− -- * Creating a Request

29− , marketplaceordersUpdate'

30− , MarketplaceordersUpdate'

31−

32− -- * Request Lenses

33− , muuQuotaUser

34− , muuUpdateAction

35− , muuPrettyPrint

36− , muuUserIp

37− , muuRevisionNumber

38− , muuKey

39− , muuOauthToken

40− , muuOrderId

41− , muuFields

42− , muuAlt

43− ) where

44−

45−import Network.Google.AdExchangeBuyer.Types

46−import Network.Google.Prelude

47−

48−-- | A resource alias for @AdexchangebuyerMarketplaceordersUpdate@ which the

49−-- 'MarketplaceordersUpdate'' request conforms to.

50−type MarketplaceordersUpdateResource =

51− "marketplaceOrders" :>

52− Capture "orderId" Text :>

53− Capture "revisionNumber" Int64 :>

54− Capture "updateAction"

55− AdexchangebuyerMarketplaceordersUpdateUpdateAction

56− :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "key" Text :>

61− QueryParam "oauth_token" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "alt" Alt :> Put '[JSON] MarketplaceOrder

64−

65−-- | Update the given order

66−--

67−-- /See:/ 'marketplaceordersUpdate'' smart constructor.

68−data MarketplaceordersUpdate' = MarketplaceordersUpdate'

69− { _muuQuotaUser :: !(Maybe Text)

70− , _muuUpdateAction :: !AdexchangebuyerMarketplaceordersUpdateUpdateAction

71− , _muuPrettyPrint :: !Bool

72− , _muuUserIp :: !(Maybe Text)

73− , _muuRevisionNumber :: !Int64

74− , _muuKey :: !(Maybe Text)

75− , _muuOauthToken :: !(Maybe Text)

76− , _muuOrderId :: !Text

77− , _muuFields :: !(Maybe Text)

78− , _muuAlt :: !Alt

79− } deriving (Eq,Read,Show,Data,Typeable,Generic)

80−

81−-- | Creates a value of 'MarketplaceordersUpdate'' with the minimum fields required to make a request.

82−--

83−-- Use one of the following lenses to modify other fields as desired:

84−--

85−-- * 'muuQuotaUser'

86−--

87−-- * 'muuUpdateAction'

88−--

89−-- * 'muuPrettyPrint'

90−--

91−-- * 'muuUserIp'

92−--

93−-- * 'muuRevisionNumber'

94−--

95−-- * 'muuKey'

96−--

97−-- * 'muuOauthToken'

98−--

99−-- * 'muuOrderId'

100−--

101−-- * 'muuFields'

102−--

103−-- * 'muuAlt'

104−marketplaceordersUpdate'

105− :: AdexchangebuyerMarketplaceordersUpdateUpdateAction -- ^ 'updateAction'

106− -> Int64 -- ^ 'revisionNumber'

107− -> Text -- ^ 'orderId'

108− -> MarketplaceordersUpdate'

109−marketplaceordersUpdate' pMuuUpdateAction_ pMuuRevisionNumber_ pMuuOrderId_ =

110− MarketplaceordersUpdate'

111− { _muuQuotaUser = Nothing

112− , _muuUpdateAction = pMuuUpdateAction_

113− , _muuPrettyPrint = True

114− , _muuUserIp = Nothing

115− , _muuRevisionNumber = pMuuRevisionNumber_

116− , _muuKey = Nothing

117− , _muuOauthToken = Nothing

118− , _muuOrderId = pMuuOrderId_

119− , _muuFields = Nothing

120− , _muuAlt = JSON

121− }

122−

123−-- | Available to use for quota purposes for server-side applications. Can be

124−-- any arbitrary string assigned to a user, but should not exceed 40

125−-- characters. Overrides userIp if both are provided.

126−muuQuotaUser :: Lens' MarketplaceordersUpdate' (Maybe Text)

127−muuQuotaUser

128− = lens _muuQuotaUser (\ s a -> s{_muuQuotaUser = a})

129−

130−-- | The proposed action to take on the order.

131−muuUpdateAction :: Lens' MarketplaceordersUpdate' AdexchangebuyerMarketplaceordersUpdateUpdateAction

132−muuUpdateAction

133− = lens _muuUpdateAction

134− (\ s a -> s{_muuUpdateAction = a})

135−

136−-- | Returns response with indentations and line breaks.

137−muuPrettyPrint :: Lens' MarketplaceordersUpdate' Bool

138−muuPrettyPrint

139− = lens _muuPrettyPrint

140− (\ s a -> s{_muuPrettyPrint = a})

141−

142−-- | IP address of the site where the request originates. Use this if you

143−-- want to enforce per-user limits.

144−muuUserIp :: Lens' MarketplaceordersUpdate' (Maybe Text)

145−muuUserIp

146− = lens _muuUserIp (\ s a -> s{_muuUserIp = a})

147−

148−-- | The last known revision number to update. If the head revision in the

149−-- marketplace database has since changed, an error will be thrown. The

150−-- caller should then fetch the lastest order at head revision and retry

151−-- the update at that revision.

152−muuRevisionNumber :: Lens' MarketplaceordersUpdate' Int64

153−muuRevisionNumber

154− = lens _muuRevisionNumber

155− (\ s a -> s{_muuRevisionNumber = a})

156−

157−-- | API key. Your API key identifies your project and provides you with API

158−-- access, quota, and reports. Required unless you provide an OAuth 2.0

159−-- token.

160−muuKey :: Lens' MarketplaceordersUpdate' (Maybe Text)

161−muuKey = lens _muuKey (\ s a -> s{_muuKey = a})

162−

163−-- | OAuth 2.0 token for the current user.

164−muuOauthToken :: Lens' MarketplaceordersUpdate' (Maybe Text)

165−muuOauthToken

166− = lens _muuOauthToken

167− (\ s a -> s{_muuOauthToken = a})

168−

169−-- | The order id to update.

170−muuOrderId :: Lens' MarketplaceordersUpdate' Text

171−muuOrderId

172− = lens _muuOrderId (\ s a -> s{_muuOrderId = a})

173−

174−-- | Selector specifying which fields to include in a partial response.

175−muuFields :: Lens' MarketplaceordersUpdate' (Maybe Text)

176−muuFields

177− = lens _muuFields (\ s a -> s{_muuFields = a})

178−

179−-- | Data format for the response.

180−muuAlt :: Lens' MarketplaceordersUpdate' Alt

181−muuAlt = lens _muuAlt (\ s a -> s{_muuAlt = a})

182−

183−instance GoogleRequest MarketplaceordersUpdate' where

184− type Rs MarketplaceordersUpdate' = MarketplaceOrder

185− request = requestWithRoute defReq adExchangeBuyerURL

186− requestWithRoute r u MarketplaceordersUpdate'{..}

187− = go _muuQuotaUser _muuUpdateAction

188− (Just _muuPrettyPrint)

189− _muuUserIp

190− _muuRevisionNumber

191− _muuKey

192− _muuOauthToken

193− _muuOrderId

194− _muuFields

195− (Just _muuAlt)

196− where go

197− = clientWithRoute

198− (Proxy :: Proxy MarketplaceordersUpdateResource)

199− r

200− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hsnew file+178

@@ -0,0 +1,178 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Adds the requested negotiationRound to the requested negotiation.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationRoundsInsert@.

23+module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert

24+ (

25+ -- * REST Resource

26+ NegotiationRoundsInsertResource

27+

28+ -- * Creating a Request

29+ , negotiationRoundsInsert'

30+ , NegotiationRoundsInsert'

31+

32+ -- * Request Lenses

33+ , nriQuotaUser

34+ , nriPrettyPrint

35+ , nriUserIP

36+ , nriKey

37+ , nriOAuthToken

38+ , nriNegotiationId

39+ , nriNegotiationRoundDto

40+ , nriFields

41+ ) where

42+

43+import Network.Google.AdExchangeBuyer.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangebuyerNegotiationRoundsInsert@ which the

47+-- 'NegotiationRoundsInsert'' request conforms to.

48+type NegotiationRoundsInsertResource =

49+ "negotiations" :>

50+ Capture "negotiationId" Int64 :>

51+ "negotiationrounds" :>

52+ QueryParam "quotaUser" Text :>

53+ QueryParam "prettyPrint" Bool :>

54+ QueryParam "userIp" Text :>

55+ QueryParam "key" Key :>

56+ QueryParam "oauth_token" OAuthToken :>

57+ QueryParam "fields" Text :>

58+ QueryParam "alt" AltJSON :>

59+ ReqBody '[JSON] NegotiationRoundDto :>

60+ Post '[JSON] NegotiationRoundDto

61+

62+-- | Adds the requested negotiationRound to the requested negotiation.

63+--

64+-- /See:/ 'negotiationRoundsInsert'' smart constructor.

65+data NegotiationRoundsInsert' = NegotiationRoundsInsert'

66+ { _nriQuotaUser :: !(Maybe Text)

67+ , _nriPrettyPrint :: !Bool

68+ , _nriUserIP :: !(Maybe Text)

69+ , _nriKey :: !(Maybe Key)

70+ , _nriOAuthToken :: !(Maybe OAuthToken)

71+ , _nriNegotiationId :: !Int64

72+ , _nriNegotiationRoundDto :: !NegotiationRoundDto

73+ , _nriFields :: !(Maybe Text)

74+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

75+

76+-- | Creates a value of 'NegotiationRoundsInsert'' with the minimum fields required to make a request.

77+--

78+-- Use one of the following lenses to modify other fields as desired:

79+--

80+-- * 'nriQuotaUser'

81+--

82+-- * 'nriPrettyPrint'

83+--

84+-- * 'nriUserIP'

85+--

86+-- * 'nriKey'

87+--

88+-- * 'nriOAuthToken'

89+--

90+-- * 'nriNegotiationId'

91+--

92+-- * 'nriNegotiationRoundDto'

93+--

94+-- * 'nriFields'

95+negotiationRoundsInsert'

96+ :: Int64 -- ^ 'negotiationId'

97+ -> NegotiationRoundDto -- ^ 'NegotiationRoundDto'

98+ -> NegotiationRoundsInsert'

99+negotiationRoundsInsert' pNriNegotiationId_ pNriNegotiationRoundDto_ =

100+ NegotiationRoundsInsert'

101+ { _nriQuotaUser = Nothing

102+ , _nriPrettyPrint = True

103+ , _nriUserIP = Nothing

104+ , _nriKey = Nothing

105+ , _nriOAuthToken = Nothing

106+ , _nriNegotiationId = pNriNegotiationId_

107+ , _nriNegotiationRoundDto = pNriNegotiationRoundDto_

108+ , _nriFields = Nothing

109+ }

110+

111+-- | Available to use for quota purposes for server-side applications. Can be

112+-- any arbitrary string assigned to a user, but should not exceed 40

113+-- characters. Overrides userIp if both are provided.

114+nriQuotaUser :: Lens' NegotiationRoundsInsert' (Maybe Text)

115+nriQuotaUser

116+ = lens _nriQuotaUser (\ s a -> s{_nriQuotaUser = a})

117+

118+-- | Returns response with indentations and line breaks.

119+nriPrettyPrint :: Lens' NegotiationRoundsInsert' Bool

120+nriPrettyPrint

121+ = lens _nriPrettyPrint

122+ (\ s a -> s{_nriPrettyPrint = a})

123+

124+-- | IP address of the site where the request originates. Use this if you

125+-- want to enforce per-user limits.

126+nriUserIP :: Lens' NegotiationRoundsInsert' (Maybe Text)

127+nriUserIP

128+ = lens _nriUserIP (\ s a -> s{_nriUserIP = a})

129+

130+-- | API key. Your API key identifies your project and provides you with API

131+-- access, quota, and reports. Required unless you provide an OAuth 2.0

132+-- token.

133+nriKey :: Lens' NegotiationRoundsInsert' (Maybe Key)

134+nriKey = lens _nriKey (\ s a -> s{_nriKey = a})

135+

136+-- | OAuth 2.0 token for the current user.

137+nriOAuthToken :: Lens' NegotiationRoundsInsert' (Maybe OAuthToken)

138+nriOAuthToken

139+ = lens _nriOAuthToken

140+ (\ s a -> s{_nriOAuthToken = a})

141+

142+nriNegotiationId :: Lens' NegotiationRoundsInsert' Int64

143+nriNegotiationId

144+ = lens _nriNegotiationId

145+ (\ s a -> s{_nriNegotiationId = a})

146+

147+-- | Multipart request metadata.

148+nriNegotiationRoundDto :: Lens' NegotiationRoundsInsert' NegotiationRoundDto

149+nriNegotiationRoundDto

150+ = lens _nriNegotiationRoundDto

151+ (\ s a -> s{_nriNegotiationRoundDto = a})

152+

153+-- | Selector specifying which fields to include in a partial response.

154+nriFields :: Lens' NegotiationRoundsInsert' (Maybe Text)

155+nriFields

156+ = lens _nriFields (\ s a -> s{_nriFields = a})

157+

158+instance GoogleAuth NegotiationRoundsInsert' where

159+ authKey = nriKey . _Just

160+ authToken = nriOAuthToken . _Just

161+

162+instance GoogleRequest NegotiationRoundsInsert' where

163+ type Rs NegotiationRoundsInsert' =

164+ NegotiationRoundDto

165+ request = requestWithRoute defReq adExchangeBuyerURL

166+ requestWithRoute r u NegotiationRoundsInsert'{..}

167+ = go _nriQuotaUser (Just _nriPrettyPrint) _nriUserIP

168+ _nriKey

169+ _nriOAuthToken

170+ _nriNegotiationId

171+ _nriFields

172+ (Just AltJSON)

173+ _nriNegotiationRoundDto

174+ where go

175+ = clientWithRoute

176+ (Proxy :: Proxy NegotiationRoundsInsertResource)

177+ r

178+ u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiationrounds/Insert.hsdeleted−164

@@ -1,164 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Adds the requested negotiationRound to the requested negotiation.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationroundsInsert@.

23−module Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert

24− (

25− -- * REST Resource

26− NegotiationroundsInsertResource

27−

28− -- * Creating a Request

29− , negotiationroundsInsert'

30− , NegotiationroundsInsert'

31−

32− -- * Request Lenses

33− , nQuotaUser

34− , nPrettyPrint

35− , nUserIp

36− , nKey

37− , nOauthToken

38− , nNegotiationId

39− , nFields

40− , nAlt

41− ) where

42−

43−import Network.Google.AdExchangeBuyer.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangebuyerNegotiationroundsInsert@ which the

47−-- 'NegotiationroundsInsert'' request conforms to.

48−type NegotiationroundsInsertResource =

49− "negotiations" :>

50− Capture "negotiationId" Int64 :>

51− "negotiationrounds" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "key" Text :>

56− QueryParam "oauth_token" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "alt" Alt :>

59− Post '[JSON] NegotiationRoundDto

60−

61−-- | Adds the requested negotiationRound to the requested negotiation.

62−--

63−-- /See:/ 'negotiationroundsInsert'' smart constructor.

64−data NegotiationroundsInsert' = NegotiationroundsInsert'

65− { _nQuotaUser :: !(Maybe Text)

66− , _nPrettyPrint :: !Bool

67− , _nUserIp :: !(Maybe Text)

68− , _nKey :: !(Maybe Text)

69− , _nOauthToken :: !(Maybe Text)

70− , _nNegotiationId :: !Int64

71− , _nFields :: !(Maybe Text)

72− , _nAlt :: !Alt

73− } deriving (Eq,Read,Show,Data,Typeable,Generic)

74−

75−-- | Creates a value of 'NegotiationroundsInsert'' with the minimum fields required to make a request.

76−--

77−-- Use one of the following lenses to modify other fields as desired:

78−--

79−-- * 'nQuotaUser'

80−--

81−-- * 'nPrettyPrint'

82−--

83−-- * 'nUserIp'

84−--

85−-- * 'nKey'

86−--

87−-- * 'nOauthToken'

88−--

89−-- * 'nNegotiationId'

90−--

91−-- * 'nFields'

92−--

93−-- * 'nAlt'

94−negotiationroundsInsert'

95− :: Int64 -- ^ 'negotiationId'

96− -> NegotiationroundsInsert'

97−negotiationroundsInsert' pNNegotiationId_ =

98− NegotiationroundsInsert'

99− { _nQuotaUser = Nothing

100− , _nPrettyPrint = True

101− , _nUserIp = Nothing

102− , _nKey = Nothing

103− , _nOauthToken = Nothing

104− , _nNegotiationId = pNNegotiationId_

105− , _nFields = Nothing

106− , _nAlt = JSON

107− }

108−

109−-- | Available to use for quota purposes for server-side applications. Can be

110−-- any arbitrary string assigned to a user, but should not exceed 40

111−-- characters. Overrides userIp if both are provided.

112−nQuotaUser :: Lens' NegotiationroundsInsert' (Maybe Text)

113−nQuotaUser

114− = lens _nQuotaUser (\ s a -> s{_nQuotaUser = a})

115−

116−-- | Returns response with indentations and line breaks.

117−nPrettyPrint :: Lens' NegotiationroundsInsert' Bool

118−nPrettyPrint

119− = lens _nPrettyPrint (\ s a -> s{_nPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−nUserIp :: Lens' NegotiationroundsInsert' (Maybe Text)

124−nUserIp = lens _nUserIp (\ s a -> s{_nUserIp = a})

125−

126−-- | API key. Your API key identifies your project and provides you with API

127−-- access, quota, and reports. Required unless you provide an OAuth 2.0

128−-- token.

129−nKey :: Lens' NegotiationroundsInsert' (Maybe Text)

130−nKey = lens _nKey (\ s a -> s{_nKey = a})

131−

132−-- | OAuth 2.0 token for the current user.

133−nOauthToken :: Lens' NegotiationroundsInsert' (Maybe Text)

134−nOauthToken

135− = lens _nOauthToken (\ s a -> s{_nOauthToken = a})

136−

137−nNegotiationId :: Lens' NegotiationroundsInsert' Int64

138−nNegotiationId

139− = lens _nNegotiationId

140− (\ s a -> s{_nNegotiationId = a})

141−

142−-- | Selector specifying which fields to include in a partial response.

143−nFields :: Lens' NegotiationroundsInsert' (Maybe Text)

144−nFields = lens _nFields (\ s a -> s{_nFields = a})

145−

146−-- | Data format for the response.

147−nAlt :: Lens' NegotiationroundsInsert' Alt

148−nAlt = lens _nAlt (\ s a -> s{_nAlt = a})

149−

150−instance GoogleRequest NegotiationroundsInsert' where

151− type Rs NegotiationroundsInsert' =

152− NegotiationRoundDto

153− request = requestWithRoute defReq adExchangeBuyerURL

154− requestWithRoute r u NegotiationroundsInsert'{..}

155− = go _nQuotaUser (Just _nPrettyPrint) _nUserIp _nKey

156− _nOauthToken

157− _nNegotiationId

158− _nFields

159− (Just _nAlt)

160− where go

161− = clientWithRoute

162− (Proxy :: Proxy NegotiationroundsInsertResource)

163− r

164− u

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs+45−35

@@ -32,12 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get

32 -- * Request Lenses

33 , ngQuotaUser

34 , ngPrettyPrint

35− , ngUserIp

35+ , ngUserIP

36 , ngKey

37− , ngOauthToken

37+ , ngGetNegotiationByIdRequest

38+ , ngOAuthToken

38 , ngNegotiationId

39 , ngNegotiationId

39 , ngFields

40 , ngFields

40− , ngAlt

41 ) where

42

43import Network.Google.AdExchangeBuyer.Types

@@ -51,23 +51,25 @@ type NegotiationsGetResource =

51 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

54+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

57+ QueryParam "alt" AltJSON :>

58+ ReqBody '[JSON] GetNegotiationByIdRequest :>

57− QueryParam "alt" Alt :> Get '[JSON] NegotiationDto

59+ Get '[JSON] NegotiationDto

58

60

59-- | Gets the requested negotiation.

61-- | Gets the requested negotiation.

60--

62--

61-- /See:/ 'negotiationsGet'' smart constructor.

63-- /See:/ 'negotiationsGet'' smart constructor.

62data NegotiationsGet' = NegotiationsGet'

64data NegotiationsGet' = NegotiationsGet'

63− { _ngQuotaUser :: !(Maybe Text)

65+ { _ngQuotaUser :: !(Maybe Text)

64− , _ngPrettyPrint :: !Bool

66+ , _ngPrettyPrint :: !Bool

65− , _ngUserIp :: !(Maybe Text)

67+ , _ngUserIP :: !(Maybe Text)

66− , _ngKey :: !(Maybe Text)

68+ , _ngKey :: !(Maybe Key)

67− , _ngOauthToken :: !(Maybe Text)

69+ , _ngGetNegotiationByIdRequest :: !GetNegotiationByIdRequest

70+ , _ngOAuthToken :: !(Maybe OAuthToken)

68− , _ngNegotiationId :: !Int64

71+ , _ngNegotiationId :: !Int64

69− , _ngFields :: !(Maybe Text)

72+ , _ngFields :: !(Maybe Text)

70− , _ngAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

73 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

74

73-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.

75-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.

@@ -78,30 +80,31 @@ data NegotiationsGet' = NegotiationsGet'

78--

80--

79-- * 'ngPrettyPrint'

81-- * 'ngPrettyPrint'

80--

82--

81−-- * 'ngUserIp'

83+-- * 'ngUserIP'

82--

84--

83-- * 'ngKey'

85-- * 'ngKey'

84--

86--

85−-- * 'ngOauthToken'

87+-- * 'ngGetNegotiationByIdRequest'

88+--

89+-- * 'ngOAuthToken'

86--

90--

87-- * 'ngNegotiationId'

91-- * 'ngNegotiationId'

88--

92--

89-- * 'ngFields'

93-- * 'ngFields'

90−--

91−-- * 'ngAlt'

92negotiationsGet'

94negotiationsGet'

95+ :: GetNegotiationByIdRequest -- ^ 'GetNegotiationByIdRequest'

93− :: Int64 -- ^ 'negotiationId'

96+ -> Int64 -- ^ 'negotiationId'

94 -> NegotiationsGet'

97 -> NegotiationsGet'

95−negotiationsGet' pNgNegotiationId_ =

98+negotiationsGet' pNgGetNegotiationByIdRequest_ pNgNegotiationId_ =

96 NegotiationsGet'

99 NegotiationsGet'

97 { _ngQuotaUser = Nothing

100 { _ngQuotaUser = Nothing

98 , _ngPrettyPrint = True

101 , _ngPrettyPrint = True

99− , _ngUserIp = Nothing

102+ , _ngUserIP = Nothing

100 , _ngKey = Nothing

103 , _ngKey = Nothing

101− , _ngOauthToken = Nothing

104+ , _ngGetNegotiationByIdRequest = pNgGetNegotiationByIdRequest_

105+ , _ngOAuthToken = Nothing

102 , _ngNegotiationId = pNgNegotiationId_

106 , _ngNegotiationId = pNgNegotiationId_

103 , _ngFields = Nothing

107 , _ngFields = Nothing

104− , _ngAlt = JSON

105 }

108 }

106

109

107-- | Available to use for quota purposes for server-side applications. Can be

110-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,19 +122,25 @@ ngPrettyPrint

119

122

120-- | IP address of the site where the request originates. Use this if you

123-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

124-- want to enforce per-user limits.

122−ngUserIp :: Lens' NegotiationsGet' (Maybe Text)

125+ngUserIP :: Lens' NegotiationsGet' (Maybe Text)

123−ngUserIp = lens _ngUserIp (\ s a -> s{_ngUserIp = a})

126+ngUserIP = lens _ngUserIP (\ s a -> s{_ngUserIP = a})

124

127

125-- | API key. Your API key identifies your project and provides you with API

128-- | API key. Your API key identifies your project and provides you with API

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

129-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- token.

130-- token.

128−ngKey :: Lens' NegotiationsGet' (Maybe Text)

131+ngKey :: Lens' NegotiationsGet' (Maybe Key)

129ngKey = lens _ngKey (\ s a -> s{_ngKey = a})

132ngKey = lens _ngKey (\ s a -> s{_ngKey = a})

130

133

134+-- | Multipart request metadata.

135+ngGetNegotiationByIdRequest :: Lens' NegotiationsGet' GetNegotiationByIdRequest

136+ngGetNegotiationByIdRequest

137+ = lens _ngGetNegotiationByIdRequest

138+ (\ s a -> s{_ngGetNegotiationByIdRequest = a})

139+

131-- | OAuth 2.0 token for the current user.

140-- | OAuth 2.0 token for the current user.

132−ngOauthToken :: Lens' NegotiationsGet' (Maybe Text)

141+ngOAuthToken :: Lens' NegotiationsGet' (Maybe OAuthToken)

133−ngOauthToken

142+ngOAuthToken

134− = lens _ngOauthToken (\ s a -> s{_ngOauthToken = a})

143+ = lens _ngOAuthToken (\ s a -> s{_ngOAuthToken = a})

135

144

136ngNegotiationId :: Lens' NegotiationsGet' Int64

145ngNegotiationId :: Lens' NegotiationsGet' Int64

137ngNegotiationId

146ngNegotiationId

@@ -142,20 +151,21 @@ ngNegotiationId

142ngFields :: Lens' NegotiationsGet' (Maybe Text)

151ngFields :: Lens' NegotiationsGet' (Maybe Text)

143ngFields = lens _ngFields (\ s a -> s{_ngFields = a})

152ngFields = lens _ngFields (\ s a -> s{_ngFields = a})

144

153

145−-- | Data format for the response.

146−ngAlt :: Lens' NegotiationsGet' Alt

154+instance GoogleAuth NegotiationsGet' where

147−ngAlt = lens _ngAlt (\ s a -> s{_ngAlt = a})

155+ authKey = ngKey . _Just

156+ authToken = ngOAuthToken . _Just

148

157

149instance GoogleRequest NegotiationsGet' where

158instance GoogleRequest NegotiationsGet' where

150 type Rs NegotiationsGet' = NegotiationDto

159 type Rs NegotiationsGet' = NegotiationDto

151 request = requestWithRoute defReq adExchangeBuyerURL

160 request = requestWithRoute defReq adExchangeBuyerURL

152 requestWithRoute r u NegotiationsGet'{..}

161 requestWithRoute r u NegotiationsGet'{..}

153− = go _ngQuotaUser (Just _ngPrettyPrint) _ngUserIp

162+ = go _ngQuotaUser (Just _ngPrettyPrint) _ngUserIP

154 _ngKey

163 _ngKey

155− _ngOauthToken

164+ _ngOAuthToken

156 _ngNegotiationId

165 _ngNegotiationId

157 _ngFields

166 _ngFields

158− (Just _ngAlt)

167+ (Just AltJSON)

168+ _ngGetNegotiationByIdRequest

159 where go

169 where go

160 = clientWithRoute

170 = clientWithRoute

161 (Proxy :: Proxy NegotiationsGetResource)

171 (Proxy :: Proxy NegotiationsGetResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs+44−34

@@ -32,11 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert

32 -- * Request Lenses

33 , niQuotaUser

34 , niPrettyPrint

35− , niUserIp

35+ , niUserIP

36+ , niNegotiationDto

36 , niKey

37 , niKey

37− , niOauthToken

38+ , niOAuthToken

38 , niFields

39 , niFields

39− , niAlt

40 ) where

41

42import Network.Google.AdExchangeBuyer.Types

@@ -49,22 +49,24 @@ type NegotiationsInsertResource =

49 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] NegotiationDto :>

55− QueryParam "alt" Alt :> Post '[JSON] NegotiationDto

57+ Post '[JSON] NegotiationDto

56

58

57-- | Creates or updates the requested negotiation.

59-- | Creates or updates the requested negotiation.

58--

60--

59-- /See:/ 'negotiationsInsert'' smart constructor.

61-- /See:/ 'negotiationsInsert'' smart constructor.

60data NegotiationsInsert' = NegotiationsInsert'

62data NegotiationsInsert' = NegotiationsInsert'

61− { _niQuotaUser :: !(Maybe Text)

63+ { _niQuotaUser :: !(Maybe Text)

62− , _niPrettyPrint :: !Bool

64+ , _niPrettyPrint :: !Bool

63− , _niUserIp :: !(Maybe Text)

65+ , _niUserIP :: !(Maybe Text)

66+ , _niNegotiationDto :: !NegotiationDto

64− , _niKey :: !(Maybe Text)

67+ , _niKey :: !(Maybe Key)

65− , _niOauthToken :: !(Maybe Text)

68+ , _niOAuthToken :: !(Maybe OAuthToken)

66− , _niFields :: !(Maybe Text)

69+ , _niFields :: !(Maybe Text)

67− , _niAlt :: !Alt

68 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69

71

70-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.

72-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.

@@ -75,26 +77,27 @@ data NegotiationsInsert' = NegotiationsInsert'

75--

77--

76-- * 'niPrettyPrint'

78-- * 'niPrettyPrint'

77--

79--

78−-- * 'niUserIp'

80+-- * 'niUserIP'

81+--

82+-- * 'niNegotiationDto'

79--

83--

80-- * 'niKey'

84-- * 'niKey'

81--

85--

82−-- * 'niOauthToken'

86+-- * 'niOAuthToken'

83--

87--

84-- * 'niFields'

88-- * 'niFields'

85−--

86−-- * 'niAlt'

87negotiationsInsert'

89negotiationsInsert'

90+ :: NegotiationDto -- ^ 'NegotiationDto'

88− :: NegotiationsInsert'

91+ -> NegotiationsInsert'

89−negotiationsInsert' =

92+negotiationsInsert' pNiNegotiationDto_ =

90 NegotiationsInsert'

93 NegotiationsInsert'

91 { _niQuotaUser = Nothing

94 { _niQuotaUser = Nothing

92 , _niPrettyPrint = True

95 , _niPrettyPrint = True

93− , _niUserIp = Nothing

96+ , _niUserIP = Nothing

97+ , _niNegotiationDto = pNiNegotiationDto_

94 , _niKey = Nothing

98 , _niKey = Nothing

95− , _niOauthToken = Nothing

99+ , _niOAuthToken = Nothing

96 , _niFields = Nothing

100 , _niFields = Nothing

97− , _niAlt = JSON

98 }

101 }

99

102

100-- | Available to use for quota purposes for server-side applications. Can be

103-- | Available to use for quota purposes for server-side applications. Can be

@@ -112,37 +115,44 @@ niPrettyPrint

112

115

113-- | IP address of the site where the request originates. Use this if you

116-- | IP address of the site where the request originates. Use this if you

114-- want to enforce per-user limits.

117-- want to enforce per-user limits.

115−niUserIp :: Lens' NegotiationsInsert' (Maybe Text)

118+niUserIP :: Lens' NegotiationsInsert' (Maybe Text)

116−niUserIp = lens _niUserIp (\ s a -> s{_niUserIp = a})

119+niUserIP = lens _niUserIP (\ s a -> s{_niUserIP = a})

120+

121+-- | Multipart request metadata.

122+niNegotiationDto :: Lens' NegotiationsInsert' NegotiationDto

123+niNegotiationDto

124+ = lens _niNegotiationDto

125+ (\ s a -> s{_niNegotiationDto = a})

117

126

118-- | API key. Your API key identifies your project and provides you with API

127-- | API key. Your API key identifies your project and provides you with API

119-- access, quota, and reports. Required unless you provide an OAuth 2.0

128-- access, quota, and reports. Required unless you provide an OAuth 2.0

120-- token.

129-- token.

121−niKey :: Lens' NegotiationsInsert' (Maybe Text)

130+niKey :: Lens' NegotiationsInsert' (Maybe Key)

122niKey = lens _niKey (\ s a -> s{_niKey = a})

131niKey = lens _niKey (\ s a -> s{_niKey = a})

123

132

124-- | OAuth 2.0 token for the current user.

133-- | OAuth 2.0 token for the current user.

125−niOauthToken :: Lens' NegotiationsInsert' (Maybe Text)

134+niOAuthToken :: Lens' NegotiationsInsert' (Maybe OAuthToken)

126−niOauthToken

135+niOAuthToken

127− = lens _niOauthToken (\ s a -> s{_niOauthToken = a})

136+ = lens _niOAuthToken (\ s a -> s{_niOAuthToken = a})

128

137

129-- | Selector specifying which fields to include in a partial response.

138-- | Selector specifying which fields to include in a partial response.

130niFields :: Lens' NegotiationsInsert' (Maybe Text)

139niFields :: Lens' NegotiationsInsert' (Maybe Text)

131niFields = lens _niFields (\ s a -> s{_niFields = a})

140niFields = lens _niFields (\ s a -> s{_niFields = a})

132

141

133−-- | Data format for the response.

134−niAlt :: Lens' NegotiationsInsert' Alt

142+instance GoogleAuth NegotiationsInsert' where

135−niAlt = lens _niAlt (\ s a -> s{_niAlt = a})

143+ authKey = niKey . _Just

144+ authToken = niOAuthToken . _Just

136

145

137instance GoogleRequest NegotiationsInsert' where

146instance GoogleRequest NegotiationsInsert' where

138 type Rs NegotiationsInsert' = NegotiationDto

147 type Rs NegotiationsInsert' = NegotiationDto

139 request = requestWithRoute defReq adExchangeBuyerURL

148 request = requestWithRoute defReq adExchangeBuyerURL

140 requestWithRoute r u NegotiationsInsert'{..}

149 requestWithRoute r u NegotiationsInsert'{..}

141− = go _niQuotaUser (Just _niPrettyPrint) _niUserIp

150+ = go _niQuotaUser (Just _niPrettyPrint) _niUserIP

142 _niKey

151 _niKey

143− _niOauthToken

152+ _niOAuthToken

144 _niFields

153 _niFields

145− (Just _niAlt)

154+ (Just AltJSON)

155+ _niNegotiationDto

146 where go

156 where go

147 = clientWithRoute

157 = clientWithRoute

148 (Proxy :: Proxy NegotiationsInsertResource)

158 (Proxy :: Proxy NegotiationsInsertResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs+44−35

@@ -32,11 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.List

32 -- * Request Lenses

33 , nlQuotaUser

34 , nlPrettyPrint

35− , nlUserIp

35+ , nlUserIP

36 , nlKey

37− , nlOauthToken

37+ , nlGetNegotiationsRequest

38+ , nlOAuthToken

38 , nlFields

39 , nlFields

39− , nlAlt

40 ) where

41

42import Network.Google.AdExchangeBuyer.Types

@@ -49,23 +49,24 @@ type NegotiationsListResource =

49 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

55− QueryParam "alt" Alt :>

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] GetNegotiationsRequest :>

56− Get '[JSON] GetNegotiationsResponse

57+ Get '[JSON] GetNegotiationsResponse

57

58

58-- | Lists all negotiations the authenticated user has access to.

59-- | Lists all negotiations the authenticated user has access to.

59--

60--

60-- /See:/ 'negotiationsList'' smart constructor.

61-- /See:/ 'negotiationsList'' smart constructor.

61data NegotiationsList' = NegotiationsList'

62data NegotiationsList' = NegotiationsList'

62− { _nlQuotaUser :: !(Maybe Text)

63+ { _nlQuotaUser :: !(Maybe Text)

63− , _nlPrettyPrint :: !Bool

64+ , _nlPrettyPrint :: !Bool

64− , _nlUserIp :: !(Maybe Text)

65+ , _nlUserIP :: !(Maybe Text)

65− , _nlKey :: !(Maybe Text)

66+ , _nlKey :: !(Maybe Key)

66− , _nlOauthToken :: !(Maybe Text)

67+ , _nlGetNegotiationsRequest :: !GetNegotiationsRequest

68+ , _nlOAuthToken :: !(Maybe OAuthToken)

67− , _nlFields :: !(Maybe Text)

69+ , _nlFields :: !(Maybe Text)

68− , _nlAlt :: !Alt

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70

71

71-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.

72-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.

@@ -76,26 +77,27 @@ data NegotiationsList' = NegotiationsList'

76--

77--

77-- * 'nlPrettyPrint'

78-- * 'nlPrettyPrint'

78--

79--

79−-- * 'nlUserIp'

80+-- * 'nlUserIP'

80--

81--

81-- * 'nlKey'

82-- * 'nlKey'

82--

83--

83−-- * 'nlOauthToken'

84+-- * 'nlGetNegotiationsRequest'

84--

85--

85−-- * 'nlFields'

86+-- * 'nlOAuthToken'

86--

87--

87−-- * 'nlAlt'

88+-- * 'nlFields'

88negotiationsList'

89negotiationsList'

90+ :: GetNegotiationsRequest -- ^ 'GetNegotiationsRequest'

89− :: NegotiationsList'

91+ -> NegotiationsList'

90−negotiationsList' =

92+negotiationsList' pNlGetNegotiationsRequest_ =

91 NegotiationsList'

93 NegotiationsList'

92 { _nlQuotaUser = Nothing

94 { _nlQuotaUser = Nothing

93 , _nlPrettyPrint = True

95 , _nlPrettyPrint = True

94− , _nlUserIp = Nothing

96+ , _nlUserIP = Nothing

95 , _nlKey = Nothing

97 , _nlKey = Nothing

96− , _nlOauthToken = Nothing

98+ , _nlGetNegotiationsRequest = pNlGetNegotiationsRequest_

99+ , _nlOAuthToken = Nothing

97 , _nlFields = Nothing

100 , _nlFields = Nothing

98− , _nlAlt = JSON

99 }

101 }

100

102

101-- | Available to use for quota purposes for server-side applications. Can be

103-- | Available to use for quota purposes for server-side applications. Can be

@@ -113,37 +115,44 @@ nlPrettyPrint

113

115

114-- | IP address of the site where the request originates. Use this if you

116-- | IP address of the site where the request originates. Use this if you

115-- want to enforce per-user limits.

117-- want to enforce per-user limits.

116−nlUserIp :: Lens' NegotiationsList' (Maybe Text)

118+nlUserIP :: Lens' NegotiationsList' (Maybe Text)

117−nlUserIp = lens _nlUserIp (\ s a -> s{_nlUserIp = a})

119+nlUserIP = lens _nlUserIP (\ s a -> s{_nlUserIP = a})

118

120

119-- | API key. Your API key identifies your project and provides you with API

121-- | API key. Your API key identifies your project and provides you with API

120-- access, quota, and reports. Required unless you provide an OAuth 2.0

122-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- token.

123-- token.

122−nlKey :: Lens' NegotiationsList' (Maybe Text)

124+nlKey :: Lens' NegotiationsList' (Maybe Key)

123nlKey = lens _nlKey (\ s a -> s{_nlKey = a})

125nlKey = lens _nlKey (\ s a -> s{_nlKey = a})

124

126

127+-- | Multipart request metadata.

128+nlGetNegotiationsRequest :: Lens' NegotiationsList' GetNegotiationsRequest

129+nlGetNegotiationsRequest

130+ = lens _nlGetNegotiationsRequest

131+ (\ s a -> s{_nlGetNegotiationsRequest = a})

132+

125-- | OAuth 2.0 token for the current user.

133-- | OAuth 2.0 token for the current user.

126−nlOauthToken :: Lens' NegotiationsList' (Maybe Text)

134+nlOAuthToken :: Lens' NegotiationsList' (Maybe OAuthToken)

127−nlOauthToken

135+nlOAuthToken

128− = lens _nlOauthToken (\ s a -> s{_nlOauthToken = a})

136+ = lens _nlOAuthToken (\ s a -> s{_nlOAuthToken = a})

129

137

130-- | Selector specifying which fields to include in a partial response.

138-- | Selector specifying which fields to include in a partial response.

131nlFields :: Lens' NegotiationsList' (Maybe Text)

139nlFields :: Lens' NegotiationsList' (Maybe Text)

132nlFields = lens _nlFields (\ s a -> s{_nlFields = a})

140nlFields = lens _nlFields (\ s a -> s{_nlFields = a})

133

141

134−-- | Data format for the response.

135−nlAlt :: Lens' NegotiationsList' Alt

142+instance GoogleAuth NegotiationsList' where

136−nlAlt = lens _nlAlt (\ s a -> s{_nlAlt = a})

143+ authKey = nlKey . _Just

144+ authToken = nlOAuthToken . _Just

137

145

138instance GoogleRequest NegotiationsList' where

146instance GoogleRequest NegotiationsList' where

139 type Rs NegotiationsList' = GetNegotiationsResponse

147 type Rs NegotiationsList' = GetNegotiationsResponse

140 request = requestWithRoute defReq adExchangeBuyerURL

148 request = requestWithRoute defReq adExchangeBuyerURL

141 requestWithRoute r u NegotiationsList'{..}

149 requestWithRoute r u NegotiationsList'{..}

142− = go _nlQuotaUser (Just _nlPrettyPrint) _nlUserIp

150+ = go _nlQuotaUser (Just _nlPrettyPrint) _nlUserIP

143 _nlKey

151 _nlKey

144− _nlOauthToken

152+ _nlOAuthToken

145 _nlFields

153 _nlFields

146− (Just _nlAlt)

154+ (Just AltJSON)

155+ _nlGetNegotiationsRequest

147 where go

156 where go

148 = clientWithRoute

157 = clientWithRoute

149 (Proxy :: Proxy NegotiationsListResource)

158 (Proxy :: Proxy NegotiationsListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs+24−29

@@ -32,12 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Get

32 -- * Request Lenses

33 , ogQuotaUser

34 , ogPrettyPrint

35− , ogUserIp

35+ , ogUserIP

36 , ogKey

37 , ogOfferId

38− , ogOauthToken

38+ , ogOAuthToken

39 , ogFields

40− , ogAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeBuyer.Types

42import Network.Google.AdExchangeBuyer.Types

@@ -51,10 +50,10 @@ type OffersGetResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

55 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] OfferDto

56+ QueryParam "alt" AltJSON :> Get '[JSON] OfferDto

58

57

59-- | Gets the requested offer.

58-- | Gets the requested offer.

60--

59--

@@ -62,12 +61,11 @@ type OffersGetResource =

62data OffersGet' = OffersGet'

61data OffersGet' = OffersGet'

63 { _ogQuotaUser :: !(Maybe Text)

62 { _ogQuotaUser :: !(Maybe Text)

64 , _ogPrettyPrint :: !Bool

63 , _ogPrettyPrint :: !Bool

65− , _ogUserIp :: !(Maybe Text)

64+ , _ogUserIP :: !(Maybe Text)

66− , _ogKey :: !(Maybe Text)

65+ , _ogKey :: !(Maybe Key)

67 , _ogOfferId :: !Int64

66 , _ogOfferId :: !Int64

68− , _ogOauthToken :: !(Maybe Text)

67+ , _ogOAuthToken :: !(Maybe OAuthToken)

69 , _ogFields :: !(Maybe Text)

68 , _ogFields :: !(Maybe Text)

70− , _ogAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

70

73-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.

71-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.

@@ -78,17 +76,15 @@ data OffersGet' = OffersGet'

78--

76--

79-- * 'ogPrettyPrint'

77-- * 'ogPrettyPrint'

80--

78--

81−-- * 'ogUserIp'

79+-- * 'ogUserIP'

82--

80--

83-- * 'ogKey'

81-- * 'ogKey'

84--

82--

85-- * 'ogOfferId'

83-- * 'ogOfferId'

86--

84--

87−-- * 'ogOauthToken'

85+-- * 'ogOAuthToken'

88--

86--

89-- * 'ogFields'

87-- * 'ogFields'

90−--

91−-- * 'ogAlt'

92offersGet'

88offersGet'

93 :: Int64 -- ^ 'offerId'

89 :: Int64 -- ^ 'offerId'

94 -> OffersGet'

90 -> OffersGet'

@@ -96,12 +92,11 @@ offersGet' pOgOfferId_ =

96 OffersGet'

92 OffersGet'

97 { _ogQuotaUser = Nothing

93 { _ogQuotaUser = Nothing

98 , _ogPrettyPrint = True

94 , _ogPrettyPrint = True

99− , _ogUserIp = Nothing

95+ , _ogUserIP = Nothing

100 , _ogKey = Nothing

96 , _ogKey = Nothing

101 , _ogOfferId = pOgOfferId_

97 , _ogOfferId = pOgOfferId_

102− , _ogOauthToken = Nothing

98+ , _ogOAuthToken = Nothing

103 , _ogFields = Nothing

99 , _ogFields = Nothing

104− , _ogAlt = JSON

105 }

100 }

106

101

107-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,13 +114,13 @@ ogPrettyPrint

119

114

120-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

116-- want to enforce per-user limits.

122−ogUserIp :: Lens' OffersGet' (Maybe Text)

117+ogUserIP :: Lens' OffersGet' (Maybe Text)

123−ogUserIp = lens _ogUserIp (\ s a -> s{_ogUserIp = a})

118+ogUserIP = lens _ogUserIP (\ s a -> s{_ogUserIP = a})

124

119

125-- | API key. Your API key identifies your project and provides you with API

120-- | API key. Your API key identifies your project and provides you with API

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- token.

122-- token.

128−ogKey :: Lens' OffersGet' (Maybe Text)

123+ogKey :: Lens' OffersGet' (Maybe Key)

129ogKey = lens _ogKey (\ s a -> s{_ogKey = a})

124ogKey = lens _ogKey (\ s a -> s{_ogKey = a})

130

125

131ogOfferId :: Lens' OffersGet' Int64

126ogOfferId :: Lens' OffersGet' Int64

@@ -133,28 +128,28 @@ ogOfferId

133 = lens _ogOfferId (\ s a -> s{_ogOfferId = a})

128 = lens _ogOfferId (\ s a -> s{_ogOfferId = a})

134

129

135-- | OAuth 2.0 token for the current user.

130-- | OAuth 2.0 token for the current user.

136−ogOauthToken :: Lens' OffersGet' (Maybe Text)

131+ogOAuthToken :: Lens' OffersGet' (Maybe OAuthToken)

137−ogOauthToken

132+ogOAuthToken

138− = lens _ogOauthToken (\ s a -> s{_ogOauthToken = a})

133+ = lens _ogOAuthToken (\ s a -> s{_ogOAuthToken = a})

139

134

140-- | Selector specifying which fields to include in a partial response.

135-- | Selector specifying which fields to include in a partial response.

141ogFields :: Lens' OffersGet' (Maybe Text)

136ogFields :: Lens' OffersGet' (Maybe Text)

142ogFields = lens _ogFields (\ s a -> s{_ogFields = a})

137ogFields = lens _ogFields (\ s a -> s{_ogFields = a})

143

138

144−-- | Data format for the response.

139+instance GoogleAuth OffersGet' where

145−ogAlt :: Lens' OffersGet' Alt

140+ authKey = ogKey . _Just

146−ogAlt = lens _ogAlt (\ s a -> s{_ogAlt = a})

141+ authToken = ogOAuthToken . _Just

147

142

148instance GoogleRequest OffersGet' where

143instance GoogleRequest OffersGet' where

149 type Rs OffersGet' = OfferDto

144 type Rs OffersGet' = OfferDto

150 request = requestWithRoute defReq adExchangeBuyerURL

145 request = requestWithRoute defReq adExchangeBuyerURL

151 requestWithRoute r u OffersGet'{..}

146 requestWithRoute r u OffersGet'{..}

152− = go _ogQuotaUser (Just _ogPrettyPrint) _ogUserIp

147+ = go _ogQuotaUser (Just _ogPrettyPrint) _ogUserIP

153 _ogKey

148 _ogKey

154 _ogOfferId

149 _ogOfferId

155− _ogOauthToken

150+ _ogOAuthToken

156 _ogFields

151 _ogFields

157− (Just _ogAlt)

152+ (Just AltJSON)

158 where go

153 where go

159 = clientWithRoute (Proxy :: Proxy OffersGetResource)

154 = clientWithRoute (Proxy :: Proxy OffersGetResource)

160 r

155 r

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs+39−31

@@ -32,11 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Insert

32 -- * Request Lenses

33 , oiQuotaUser

34 , oiPrettyPrint

35− , oiUserIp

35+ , oiUserIP

36 , oiKey

37− , oiOauthToken

37+ , oiOfferDto

38+ , oiOAuthToken

38 , oiFields

39 , oiFields

39− , oiAlt

40 ) where

41

42import Network.Google.AdExchangeBuyer.Types

@@ -49,10 +49,11 @@ type OffersInsertResource =

49 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

55− QueryParam "alt" Alt :> Post '[JSON] OfferDto

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] OfferDto :> Post '[JSON] OfferDto

56

57

57-- | Creates or updates the requested offer.

58-- | Creates or updates the requested offer.

58--

59--

@@ -60,11 +61,11 @@ type OffersInsertResource =

60data OffersInsert' = OffersInsert'

61data OffersInsert' = OffersInsert'

61 { _oiQuotaUser :: !(Maybe Text)

62 { _oiQuotaUser :: !(Maybe Text)

62 , _oiPrettyPrint :: !Bool

63 , _oiPrettyPrint :: !Bool

63− , _oiUserIp :: !(Maybe Text)

64+ , _oiUserIP :: !(Maybe Text)

64− , _oiKey :: !(Maybe Text)

65+ , _oiKey :: !(Maybe Key)

65− , _oiOauthToken :: !(Maybe Text)

66+ , _oiOfferDto :: !OfferDto

67+ , _oiOAuthToken :: !(Maybe OAuthToken)

66 , _oiFields :: !(Maybe Text)

68 , _oiFields :: !(Maybe Text)

67− , _oiAlt :: !Alt

68 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69

70

70-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.

71-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.

@@ -75,26 +76,27 @@ data OffersInsert' = OffersInsert'

75--

76--

76-- * 'oiPrettyPrint'

77-- * 'oiPrettyPrint'

77--

78--

78−-- * 'oiUserIp'

79+-- * 'oiUserIP'

79--

80--

80-- * 'oiKey'

81-- * 'oiKey'

81--

82--

82−-- * 'oiOauthToken'

83+-- * 'oiOfferDto'

83--

84--

84−-- * 'oiFields'

85+-- * 'oiOAuthToken'

85--

86--

86−-- * 'oiAlt'

87+-- * 'oiFields'

87offersInsert'

88offersInsert'

89+ :: OfferDto -- ^ 'OfferDto'

88− :: OffersInsert'

90+ -> OffersInsert'

89−offersInsert' =

91+offersInsert' pOiOfferDto_ =

90 OffersInsert'

92 OffersInsert'

91 { _oiQuotaUser = Nothing

93 { _oiQuotaUser = Nothing

92 , _oiPrettyPrint = True

94 , _oiPrettyPrint = True

93− , _oiUserIp = Nothing

95+ , _oiUserIP = Nothing

94 , _oiKey = Nothing

96 , _oiKey = Nothing

95− , _oiOauthToken = Nothing

97+ , _oiOfferDto = pOiOfferDto_

98+ , _oiOAuthToken = Nothing

96 , _oiFields = Nothing

99 , _oiFields = Nothing

97− , _oiAlt = JSON

98 }

100 }

99

101

100-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -112,37 +114,43 @@ oiPrettyPrint

112

114

113-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

114-- want to enforce per-user limits.

116-- want to enforce per-user limits.

115−oiUserIp :: Lens' OffersInsert' (Maybe Text)

117+oiUserIP :: Lens' OffersInsert' (Maybe Text)

116−oiUserIp = lens _oiUserIp (\ s a -> s{_oiUserIp = a})

118+oiUserIP = lens _oiUserIP (\ s a -> s{_oiUserIP = a})

117

119

118-- | API key. Your API key identifies your project and provides you with API

120-- | API key. Your API key identifies your project and provides you with API

119-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- access, quota, and reports. Required unless you provide an OAuth 2.0

120-- token.

122-- token.

121−oiKey :: Lens' OffersInsert' (Maybe Text)

123+oiKey :: Lens' OffersInsert' (Maybe Key)

122oiKey = lens _oiKey (\ s a -> s{_oiKey = a})

124oiKey = lens _oiKey (\ s a -> s{_oiKey = a})

123

125

126+-- | Multipart request metadata.

127+oiOfferDto :: Lens' OffersInsert' OfferDto

128+oiOfferDto

129+ = lens _oiOfferDto (\ s a -> s{_oiOfferDto = a})

130+

124-- | OAuth 2.0 token for the current user.

131-- | OAuth 2.0 token for the current user.

125−oiOauthToken :: Lens' OffersInsert' (Maybe Text)

132+oiOAuthToken :: Lens' OffersInsert' (Maybe OAuthToken)

126−oiOauthToken

133+oiOAuthToken

127− = lens _oiOauthToken (\ s a -> s{_oiOauthToken = a})

134+ = lens _oiOAuthToken (\ s a -> s{_oiOAuthToken = a})

128

135

129-- | Selector specifying which fields to include in a partial response.

136-- | Selector specifying which fields to include in a partial response.

130oiFields :: Lens' OffersInsert' (Maybe Text)

137oiFields :: Lens' OffersInsert' (Maybe Text)

131oiFields = lens _oiFields (\ s a -> s{_oiFields = a})

138oiFields = lens _oiFields (\ s a -> s{_oiFields = a})

132

139

133−-- | Data format for the response.

134−oiAlt :: Lens' OffersInsert' Alt

140+instance GoogleAuth OffersInsert' where

135−oiAlt = lens _oiAlt (\ s a -> s{_oiAlt = a})

141+ authKey = oiKey . _Just

142+ authToken = oiOAuthToken . _Just

136

143

137instance GoogleRequest OffersInsert' where

144instance GoogleRequest OffersInsert' where

138 type Rs OffersInsert' = OfferDto

145 type Rs OffersInsert' = OfferDto

139 request = requestWithRoute defReq adExchangeBuyerURL

146 request = requestWithRoute defReq adExchangeBuyerURL

140 requestWithRoute r u OffersInsert'{..}

147 requestWithRoute r u OffersInsert'{..}

141− = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIp

148+ = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIP

142 _oiKey

149 _oiKey

143− _oiOauthToken

150+ _oiOAuthToken

144 _oiFields

151 _oiFields

145− (Just _oiAlt)

152+ (Just AltJSON)

153+ _oiOfferDto

146 where go

154 where go

147 = clientWithRoute

155 = clientWithRoute

148 (Proxy :: Proxy OffersInsertResource)

156 (Proxy :: Proxy OffersInsertResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs+44−35

@@ -32,11 +32,11 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.List

32 -- * Request Lenses

33 , olQuotaUser

34 , olPrettyPrint

35− , olUserIp

35+ , olUserIP

36 , olKey

37− , olOauthToken

37+ , olListOffersRequest

38+ , olOAuthToken

38 , olFields

39 , olFields

39− , olAlt

40 ) where

41

42import Network.Google.AdExchangeBuyer.Types

@@ -49,23 +49,24 @@ type OffersListResource =

49 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

55− QueryParam "alt" Alt :>

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] ListOffersRequest :>

56− Get '[JSON] ListOffersResponse

57+ Get '[JSON] ListOffersResponse

57

58

58-- | Lists all offers the authenticated user has access to.

59-- | Lists all offers the authenticated user has access to.

59--

60--

60-- /See:/ 'offersList'' smart constructor.

61-- /See:/ 'offersList'' smart constructor.

61data OffersList' = OffersList'

62data OffersList' = OffersList'

62− { _olQuotaUser :: !(Maybe Text)

63+ { _olQuotaUser :: !(Maybe Text)

63− , _olPrettyPrint :: !Bool

64+ , _olPrettyPrint :: !Bool

64− , _olUserIp :: !(Maybe Text)

65+ , _olUserIP :: !(Maybe Text)

65− , _olKey :: !(Maybe Text)

66+ , _olKey :: !(Maybe Key)

66− , _olOauthToken :: !(Maybe Text)

67+ , _olListOffersRequest :: !ListOffersRequest

68+ , _olOAuthToken :: !(Maybe OAuthToken)

67− , _olFields :: !(Maybe Text)

69+ , _olFields :: !(Maybe Text)

68− , _olAlt :: !Alt

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70

71

71-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.

72-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.

@@ -76,26 +77,27 @@ data OffersList' = OffersList'

76--

77--

77-- * 'olPrettyPrint'

78-- * 'olPrettyPrint'

78--

79--

79−-- * 'olUserIp'

80+-- * 'olUserIP'

80--

81--

81-- * 'olKey'

82-- * 'olKey'

82--

83--

83−-- * 'olOauthToken'

84+-- * 'olListOffersRequest'

84--

85--

85−-- * 'olFields'

86+-- * 'olOAuthToken'

86--

87--

87−-- * 'olAlt'

88+-- * 'olFields'

88offersList'

89offersList'

90+ :: ListOffersRequest -- ^ 'ListOffersRequest'

89− :: OffersList'

91+ -> OffersList'

90−offersList' =

92+offersList' pOlListOffersRequest_ =

91 OffersList'

93 OffersList'

92 { _olQuotaUser = Nothing

94 { _olQuotaUser = Nothing

93 , _olPrettyPrint = True

95 , _olPrettyPrint = True

94− , _olUserIp = Nothing

96+ , _olUserIP = Nothing

95 , _olKey = Nothing

97 , _olKey = Nothing

96− , _olOauthToken = Nothing

98+ , _olListOffersRequest = pOlListOffersRequest_

99+ , _olOAuthToken = Nothing

97 , _olFields = Nothing

100 , _olFields = Nothing

98− , _olAlt = JSON

99 }

101 }

100

102

101-- | Available to use for quota purposes for server-side applications. Can be

103-- | Available to use for quota purposes for server-side applications. Can be

@@ -113,37 +115,44 @@ olPrettyPrint

113

115

114-- | IP address of the site where the request originates. Use this if you

116-- | IP address of the site where the request originates. Use this if you

115-- want to enforce per-user limits.

117-- want to enforce per-user limits.

116−olUserIp :: Lens' OffersList' (Maybe Text)

118+olUserIP :: Lens' OffersList' (Maybe Text)

117−olUserIp = lens _olUserIp (\ s a -> s{_olUserIp = a})

119+olUserIP = lens _olUserIP (\ s a -> s{_olUserIP = a})

118

120

119-- | API key. Your API key identifies your project and provides you with API

121-- | API key. Your API key identifies your project and provides you with API

120-- access, quota, and reports. Required unless you provide an OAuth 2.0

122-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- token.

123-- token.

122−olKey :: Lens' OffersList' (Maybe Text)

124+olKey :: Lens' OffersList' (Maybe Key)

123olKey = lens _olKey (\ s a -> s{_olKey = a})

125olKey = lens _olKey (\ s a -> s{_olKey = a})

124

126

127+-- | Multipart request metadata.

128+olListOffersRequest :: Lens' OffersList' ListOffersRequest

129+olListOffersRequest

130+ = lens _olListOffersRequest

131+ (\ s a -> s{_olListOffersRequest = a})

132+

125-- | OAuth 2.0 token for the current user.

133-- | OAuth 2.0 token for the current user.

126−olOauthToken :: Lens' OffersList' (Maybe Text)

134+olOAuthToken :: Lens' OffersList' (Maybe OAuthToken)

127−olOauthToken

135+olOAuthToken

128− = lens _olOauthToken (\ s a -> s{_olOauthToken = a})

136+ = lens _olOAuthToken (\ s a -> s{_olOAuthToken = a})

129

137

130-- | Selector specifying which fields to include in a partial response.

138-- | Selector specifying which fields to include in a partial response.

131olFields :: Lens' OffersList' (Maybe Text)

139olFields :: Lens' OffersList' (Maybe Text)

132olFields = lens _olFields (\ s a -> s{_olFields = a})

140olFields = lens _olFields (\ s a -> s{_olFields = a})

133

141

134−-- | Data format for the response.

142+instance GoogleAuth OffersList' where

135−olAlt :: Lens' OffersList' Alt

143+ authKey = olKey . _Just

136−olAlt = lens _olAlt (\ s a -> s{_olAlt = a})

144+ authToken = olOAuthToken . _Just

137

145

138instance GoogleRequest OffersList' where

146instance GoogleRequest OffersList' where

139 type Rs OffersList' = ListOffersResponse

147 type Rs OffersList' = ListOffersResponse

140 request = requestWithRoute defReq adExchangeBuyerURL

148 request = requestWithRoute defReq adExchangeBuyerURL

141 requestWithRoute r u OffersList'{..}

149 requestWithRoute r u OffersList'{..}

142− = go _olQuotaUser (Just _olPrettyPrint) _olUserIp

150+ = go _olQuotaUser (Just _olPrettyPrint) _olUserIP

143 _olKey

151 _olKey

144− _olOauthToken

152+ _olOAuthToken

145 _olFields

153 _olFields

146− (Just _olAlt)

154+ (Just AltJSON)

155+ _olListOffersRequest

147 where go

156 where go

148 = clientWithRoute (Proxy :: Proxy OffersListResource)

157 = clientWithRoute (Proxy :: Proxy OffersListResource)

149 r

158 r

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs+26−31

@@ -32,16 +32,15 @@ module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List

32 -- * Request Lenses

33 , prlQuotaUser

34 , prlPrettyPrint

35− , prlUserIp

35+ , prlUserIP

36 , prlAccountId

37 , prlKey

38 , prlPageToken

39− , prlOauthToken

39+ , prlOAuthToken

40 , prlEndDateTime

41 , prlMaxResults

42 , prlStartDateTime

43 , prlFields

44− , prlAlt

45 ) where

44 ) where

46

45

47import Network.Google.AdExchangeBuyer.Types

46import Network.Google.AdExchangeBuyer.Types

@@ -55,14 +54,14 @@ type PerformanceReportListResource =

55 QueryParam "prettyPrint" Bool :>

54 QueryParam "prettyPrint" Bool :>

56 QueryParam "userIp" Text :>

55 QueryParam "userIp" Text :>

57 QueryParam "accountId" Int64 :>

56 QueryParam "accountId" Int64 :>

58− QueryParam "key" Text :>

57+ QueryParam "key" Key :>

59 QueryParam "pageToken" Text :>

58 QueryParam "pageToken" Text :>

60− QueryParam "oauth_token" Text :>

59+ QueryParam "oauth_token" OAuthToken :>

61 QueryParam "endDateTime" Text :>

60 QueryParam "endDateTime" Text :>

62 QueryParam "maxResults" Word32 :>

61 QueryParam "maxResults" Word32 :>

63 QueryParam "startDateTime" Text :>

62 QueryParam "startDateTime" Text :>

64 QueryParam "fields" Text :>

63 QueryParam "fields" Text :>

65− QueryParam "alt" Alt :>

64+ QueryParam "alt" AltJSON :>

66 Get '[JSON] PerformanceReportList

65 Get '[JSON] PerformanceReportList

67

66

68-- | Retrieves the authenticated user\'s list of performance metrics.

67-- | Retrieves the authenticated user\'s list of performance metrics.

@@ -71,16 +70,15 @@ type PerformanceReportListResource =

71data PerformanceReportList' = PerformanceReportList'

70data PerformanceReportList' = PerformanceReportList'

72 { _prlQuotaUser :: !(Maybe Text)

71 { _prlQuotaUser :: !(Maybe Text)

73 , _prlPrettyPrint :: !Bool

72 , _prlPrettyPrint :: !Bool

74− , _prlUserIp :: !(Maybe Text)

73+ , _prlUserIP :: !(Maybe Text)

75 , _prlAccountId :: !Int64

74 , _prlAccountId :: !Int64

76− , _prlKey :: !(Maybe Text)

75+ , _prlKey :: !(Maybe Key)

77 , _prlPageToken :: !(Maybe Text)

76 , _prlPageToken :: !(Maybe Text)

78− , _prlOauthToken :: !(Maybe Text)

77+ , _prlOAuthToken :: !(Maybe OAuthToken)

79 , _prlEndDateTime :: !Text

78 , _prlEndDateTime :: !Text

80 , _prlMaxResults :: !(Maybe Word32)

79 , _prlMaxResults :: !(Maybe Word32)

81 , _prlStartDateTime :: !Text

80 , _prlStartDateTime :: !Text

82 , _prlFields :: !(Maybe Text)

81 , _prlFields :: !(Maybe Text)

83− , _prlAlt :: !Alt

84 } deriving (Eq,Read,Show,Data,Typeable,Generic)

82 } deriving (Eq,Read,Show,Data,Typeable,Generic)

85

83

86-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.

84-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.

@@ -91,7 +89,7 @@ data PerformanceReportList' = PerformanceReportList'

91--

89--

92-- * 'prlPrettyPrint'

90-- * 'prlPrettyPrint'

93--

91--

94−-- * 'prlUserIp'

92+-- * 'prlUserIP'

95--

93--

96-- * 'prlAccountId'

94-- * 'prlAccountId'

97--

95--

@@ -99,7 +97,7 @@ data PerformanceReportList' = PerformanceReportList'

99--

97--

100-- * 'prlPageToken'

98-- * 'prlPageToken'

101--

99--

102−-- * 'prlOauthToken'

100+-- * 'prlOAuthToken'

103--

101--

104-- * 'prlEndDateTime'

102-- * 'prlEndDateTime'

105--

103--

@@ -108,8 +106,6 @@ data PerformanceReportList' = PerformanceReportList'

108-- * 'prlStartDateTime'

106-- * 'prlStartDateTime'

109--

107--

110-- * 'prlFields'

108-- * 'prlFields'

111−--

112−-- * 'prlAlt'

113performanceReportList'

109performanceReportList'

114 :: Int64 -- ^ 'accountId'

110 :: Int64 -- ^ 'accountId'

115 -> Text -- ^ 'endDateTime'

111 -> Text -- ^ 'endDateTime'

@@ -119,16 +115,15 @@ performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =

119 PerformanceReportList'

115 PerformanceReportList'

120 { _prlQuotaUser = Nothing

116 { _prlQuotaUser = Nothing

121 , _prlPrettyPrint = True

117 , _prlPrettyPrint = True

122− , _prlUserIp = Nothing

118+ , _prlUserIP = Nothing

123 , _prlAccountId = pPrlAccountId_

119 , _prlAccountId = pPrlAccountId_

124 , _prlKey = Nothing

120 , _prlKey = Nothing

125 , _prlPageToken = Nothing

121 , _prlPageToken = Nothing

126− , _prlOauthToken = Nothing

122+ , _prlOAuthToken = Nothing

127 , _prlEndDateTime = pPrlEndDateTime_

123 , _prlEndDateTime = pPrlEndDateTime_

128 , _prlMaxResults = Nothing

124 , _prlMaxResults = Nothing

129 , _prlStartDateTime = pPrlStartDateTime_

125 , _prlStartDateTime = pPrlStartDateTime_

130 , _prlFields = Nothing

126 , _prlFields = Nothing

131− , _prlAlt = JSON

132 }

127 }

133

128

134-- | Available to use for quota purposes for server-side applications. Can be

129-- | Available to use for quota purposes for server-side applications. Can be

@@ -146,9 +141,9 @@ prlPrettyPrint

146

141

147-- | IP address of the site where the request originates. Use this if you

142-- | IP address of the site where the request originates. Use this if you

148-- want to enforce per-user limits.

143-- want to enforce per-user limits.

149−prlUserIp :: Lens' PerformanceReportList' (Maybe Text)

144+prlUserIP :: Lens' PerformanceReportList' (Maybe Text)

150−prlUserIp

145+prlUserIP

151− = lens _prlUserIp (\ s a -> s{_prlUserIp = a})

146+ = lens _prlUserIP (\ s a -> s{_prlUserIP = a})

152

147

153-- | The account id to get the reports.

148-- | The account id to get the reports.

154prlAccountId :: Lens' PerformanceReportList' Int64

149prlAccountId :: Lens' PerformanceReportList' Int64

@@ -158,7 +153,7 @@ prlAccountId

158-- | API key. Your API key identifies your project and provides you with API

153-- | API key. Your API key identifies your project and provides you with API

159-- access, quota, and reports. Required unless you provide an OAuth 2.0

154-- access, quota, and reports. Required unless you provide an OAuth 2.0

160-- token.

155-- token.

161−prlKey :: Lens' PerformanceReportList' (Maybe Text)

156+prlKey :: Lens' PerformanceReportList' (Maybe Key)

162prlKey = lens _prlKey (\ s a -> s{_prlKey = a})

157prlKey = lens _prlKey (\ s a -> s{_prlKey = a})

163

158

164-- | A continuation token, used to page through performance reports. To

159-- | A continuation token, used to page through performance reports. To

@@ -169,10 +164,10 @@ prlPageToken

169 = lens _prlPageToken (\ s a -> s{_prlPageToken = a})

164 = lens _prlPageToken (\ s a -> s{_prlPageToken = a})

170

165

171-- | OAuth 2.0 token for the current user.

166-- | OAuth 2.0 token for the current user.

172−prlOauthToken :: Lens' PerformanceReportList' (Maybe Text)

167+prlOAuthToken :: Lens' PerformanceReportList' (Maybe OAuthToken)

173−prlOauthToken

168+prlOAuthToken

174− = lens _prlOauthToken

169+ = lens _prlOAuthToken

175− (\ s a -> s{_prlOauthToken = a})

170+ (\ s a -> s{_prlOAuthToken = a})

176

171

177-- | The end time of the report in ISO 8601 timestamp format using UTC.

172-- | The end time of the report in ISO 8601 timestamp format using UTC.

178prlEndDateTime :: Lens' PerformanceReportList' Text

173prlEndDateTime :: Lens' PerformanceReportList' Text

@@ -198,25 +193,25 @@ prlFields :: Lens' PerformanceReportList' (Maybe Text)

198prlFields

193prlFields

199 = lens _prlFields (\ s a -> s{_prlFields = a})

194 = lens _prlFields (\ s a -> s{_prlFields = a})

200

195

201−-- | Data format for the response.

202−prlAlt :: Lens' PerformanceReportList' Alt

196+instance GoogleAuth PerformanceReportList' where

203−prlAlt = lens _prlAlt (\ s a -> s{_prlAlt = a})

197+ authKey = prlKey . _Just

198+ authToken = prlOAuthToken . _Just

204

199

205instance GoogleRequest PerformanceReportList' where

200instance GoogleRequest PerformanceReportList' where

206 type Rs PerformanceReportList' =

201 type Rs PerformanceReportList' =

207 PerformanceReportList

202 PerformanceReportList

208 request = requestWithRoute defReq adExchangeBuyerURL

203 request = requestWithRoute defReq adExchangeBuyerURL

209 requestWithRoute r u PerformanceReportList'{..}

204 requestWithRoute r u PerformanceReportList'{..}

210− = go _prlQuotaUser (Just _prlPrettyPrint) _prlUserIp

205+ = go _prlQuotaUser (Just _prlPrettyPrint) _prlUserIP

211 (Just _prlAccountId)

206 (Just _prlAccountId)

212 _prlKey

207 _prlKey

213 _prlPageToken

208 _prlPageToken

214− _prlOauthToken

209+ _prlOAuthToken

215 (Just _prlEndDateTime)

210 (Just _prlEndDateTime)

216 _prlMaxResults

211 _prlMaxResults

217 (Just _prlStartDateTime)

212 (Just _prlStartDateTime)

218 _prlFields

213 _prlFields

219− (Just _prlAlt)

214+ (Just AltJSON)

220 where go

215 where go

221 = clientWithRoute

216 = clientWithRoute

222 (Proxy :: Proxy PerformanceReportListResource)

217 (Proxy :: Proxy PerformanceReportListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs+26−31

@@ -32,13 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete

32 -- * Request Lenses

33 , pcdQuotaUser

34 , pcdPrettyPrint

35− , pcdUserIp

35+ , pcdUserIP

36 , pcdAccountId

37 , pcdKey

38 , pcdConfigId

39− , pcdOauthToken

39+ , pcdOAuthToken

40 , pcdFields

41− , pcdAlt

42 ) where

41 ) where

43

42

44import Network.Google.AdExchangeBuyer.Types

43import Network.Google.AdExchangeBuyer.Types

@@ -53,10 +52,10 @@ type PretargetingConfigDeleteResource =

53 QueryParam "quotaUser" Text :>

52 QueryParam "quotaUser" Text :>

54 QueryParam "prettyPrint" Bool :>

53 QueryParam "prettyPrint" Bool :>

55 QueryParam "userIp" Text :>

54 QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

55+ QueryParam "key" Key :>

57− QueryParam "oauth_token" Text :>

56+ QueryParam "oauth_token" OAuthToken :>

58 QueryParam "fields" Text :>

57 QueryParam "fields" Text :>

59− QueryParam "alt" Alt :> Delete '[JSON] ()

58+ QueryParam "alt" AltJSON :> Delete '[JSON] ()

60

59

61-- | Deletes an existing pretargeting config.

60-- | Deletes an existing pretargeting config.

62--

61--

@@ -64,13 +63,12 @@ type PretargetingConfigDeleteResource =

64data PretargetingConfigDelete' = PretargetingConfigDelete'

63data PretargetingConfigDelete' = PretargetingConfigDelete'

65 { _pcdQuotaUser :: !(Maybe Text)

64 { _pcdQuotaUser :: !(Maybe Text)

66 , _pcdPrettyPrint :: !Bool

65 , _pcdPrettyPrint :: !Bool

67− , _pcdUserIp :: !(Maybe Text)

66+ , _pcdUserIP :: !(Maybe Text)

68 , _pcdAccountId :: !Int64

67 , _pcdAccountId :: !Int64

69− , _pcdKey :: !(Maybe Text)

68+ , _pcdKey :: !(Maybe Key)

70 , _pcdConfigId :: !Int64

69 , _pcdConfigId :: !Int64

71− , _pcdOauthToken :: !(Maybe Text)

70+ , _pcdOAuthToken :: !(Maybe OAuthToken)

72 , _pcdFields :: !(Maybe Text)

71 , _pcdFields :: !(Maybe Text)

73− , _pcdAlt :: !Alt

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72 } deriving (Eq,Read,Show,Data,Typeable,Generic)

75

73

76-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.

74-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.

@@ -81,7 +79,7 @@ data PretargetingConfigDelete' = PretargetingConfigDelete'

81--

79--

82-- * 'pcdPrettyPrint'

80-- * 'pcdPrettyPrint'

83--

81--

84−-- * 'pcdUserIp'

82+-- * 'pcdUserIP'

85--

83--

86-- * 'pcdAccountId'

84-- * 'pcdAccountId'

87--

85--

@@ -89,11 +87,9 @@ data PretargetingConfigDelete' = PretargetingConfigDelete'

89--

87--

90-- * 'pcdConfigId'

88-- * 'pcdConfigId'

91--

89--

92−-- * 'pcdOauthToken'

90+-- * 'pcdOAuthToken'

93--

91--

94-- * 'pcdFields'

92-- * 'pcdFields'

95−--

96−-- * 'pcdAlt'

97pretargetingConfigDelete'

93pretargetingConfigDelete'

98 :: Int64 -- ^ 'accountId'

94 :: Int64 -- ^ 'accountId'

99 -> Int64 -- ^ 'configId'

95 -> Int64 -- ^ 'configId'

@@ -102,13 +98,12 @@ pretargetingConfigDelete' pPcdAccountId_ pPcdConfigId_ =

102 PretargetingConfigDelete'

98 PretargetingConfigDelete'

103 { _pcdQuotaUser = Nothing

99 { _pcdQuotaUser = Nothing

104 , _pcdPrettyPrint = True

100 , _pcdPrettyPrint = True

105− , _pcdUserIp = Nothing

101+ , _pcdUserIP = Nothing

106 , _pcdAccountId = pPcdAccountId_

102 , _pcdAccountId = pPcdAccountId_

107 , _pcdKey = Nothing

103 , _pcdKey = Nothing

108 , _pcdConfigId = pPcdConfigId_

104 , _pcdConfigId = pPcdConfigId_

109− , _pcdOauthToken = Nothing

105+ , _pcdOAuthToken = Nothing

110 , _pcdFields = Nothing

106 , _pcdFields = Nothing

111− , _pcdAlt = JSON

112 }

107 }

113

108

114-- | Available to use for quota purposes for server-side applications. Can be

109-- | Available to use for quota purposes for server-side applications. Can be

@@ -126,9 +121,9 @@ pcdPrettyPrint

126

121

127-- | IP address of the site where the request originates. Use this if you

122-- | IP address of the site where the request originates. Use this if you

128-- want to enforce per-user limits.

123-- want to enforce per-user limits.

129−pcdUserIp :: Lens' PretargetingConfigDelete' (Maybe Text)

124+pcdUserIP :: Lens' PretargetingConfigDelete' (Maybe Text)

130−pcdUserIp

125+pcdUserIP

131− = lens _pcdUserIp (\ s a -> s{_pcdUserIp = a})

126+ = lens _pcdUserIP (\ s a -> s{_pcdUserIP = a})

132

127

133-- | The account id to delete the pretargeting config for.

128-- | The account id to delete the pretargeting config for.

134pcdAccountId :: Lens' PretargetingConfigDelete' Int64

129pcdAccountId :: Lens' PretargetingConfigDelete' Int64

@@ -138,7 +133,7 @@ pcdAccountId

138-- | API key. Your API key identifies your project and provides you with API

133-- | API key. Your API key identifies your project and provides you with API

139-- access, quota, and reports. Required unless you provide an OAuth 2.0

134-- access, quota, and reports. Required unless you provide an OAuth 2.0

140-- token.

135-- token.

141−pcdKey :: Lens' PretargetingConfigDelete' (Maybe Text)

136+pcdKey :: Lens' PretargetingConfigDelete' (Maybe Key)

142pcdKey = lens _pcdKey (\ s a -> s{_pcdKey = a})

137pcdKey = lens _pcdKey (\ s a -> s{_pcdKey = a})

143

138

144-- | The specific id of the configuration to delete.

139-- | The specific id of the configuration to delete.

@@ -147,32 +142,32 @@ pcdConfigId

147 = lens _pcdConfigId (\ s a -> s{_pcdConfigId = a})

142 = lens _pcdConfigId (\ s a -> s{_pcdConfigId = a})

148

143

149-- | OAuth 2.0 token for the current user.

144-- | OAuth 2.0 token for the current user.

150−pcdOauthToken :: Lens' PretargetingConfigDelete' (Maybe Text)

145+pcdOAuthToken :: Lens' PretargetingConfigDelete' (Maybe OAuthToken)

151−pcdOauthToken

146+pcdOAuthToken

152− = lens _pcdOauthToken

147+ = lens _pcdOAuthToken

153− (\ s a -> s{_pcdOauthToken = a})

148+ (\ s a -> s{_pcdOAuthToken = a})

154

149

155-- | Selector specifying which fields to include in a partial response.

150-- | Selector specifying which fields to include in a partial response.

156pcdFields :: Lens' PretargetingConfigDelete' (Maybe Text)

151pcdFields :: Lens' PretargetingConfigDelete' (Maybe Text)

157pcdFields

152pcdFields

158 = lens _pcdFields (\ s a -> s{_pcdFields = a})

153 = lens _pcdFields (\ s a -> s{_pcdFields = a})

159

154

160−-- | Data format for the response.

161−pcdAlt :: Lens' PretargetingConfigDelete' Alt

155+instance GoogleAuth PretargetingConfigDelete' where

162−pcdAlt = lens _pcdAlt (\ s a -> s{_pcdAlt = a})

156+ authKey = pcdKey . _Just

157+ authToken = pcdOAuthToken . _Just

163

158

164instance GoogleRequest PretargetingConfigDelete'

159instance GoogleRequest PretargetingConfigDelete'

165 where

160 where

166 type Rs PretargetingConfigDelete' = ()

161 type Rs PretargetingConfigDelete' = ()

167 request = requestWithRoute defReq adExchangeBuyerURL

162 request = requestWithRoute defReq adExchangeBuyerURL

168 requestWithRoute r u PretargetingConfigDelete'{..}

163 requestWithRoute r u PretargetingConfigDelete'{..}

169− = go _pcdQuotaUser (Just _pcdPrettyPrint) _pcdUserIp

164+ = go _pcdQuotaUser (Just _pcdPrettyPrint) _pcdUserIP

170 _pcdAccountId

165 _pcdAccountId

171 _pcdKey

166 _pcdKey

172 _pcdConfigId

167 _pcdConfigId

173− _pcdOauthToken

168+ _pcdOAuthToken

174 _pcdFields

169 _pcdFields

175− (Just _pcdAlt)

170+ (Just AltJSON)

176 where go

171 where go

177 = clientWithRoute

172 = clientWithRoute

178 (Proxy :: Proxy PretargetingConfigDeleteResource)

173 (Proxy :: Proxy PretargetingConfigDeleteResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs+26−31

@@ -32,13 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get

32 -- * Request Lenses

33 , pcgQuotaUser

34 , pcgPrettyPrint

35− , pcgUserIp

35+ , pcgUserIP

36 , pcgAccountId

37 , pcgKey

38 , pcgConfigId

39− , pcgOauthToken

39+ , pcgOAuthToken

40 , pcgFields

41− , pcgAlt

42 ) where

41 ) where

43

42

44import Network.Google.AdExchangeBuyer.Types

43import Network.Google.AdExchangeBuyer.Types

@@ -53,10 +52,10 @@ type PretargetingConfigGetResource =

53 QueryParam "quotaUser" Text :>

52 QueryParam "quotaUser" Text :>

54 QueryParam "prettyPrint" Bool :>

53 QueryParam "prettyPrint" Bool :>

55 QueryParam "userIp" Text :>

54 QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

55+ QueryParam "key" Key :>

57− QueryParam "oauth_token" Text :>

56+ QueryParam "oauth_token" OAuthToken :>

58 QueryParam "fields" Text :>

57 QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

58+ QueryParam "alt" AltJSON :>

60 Get '[JSON] PretargetingConfig

59 Get '[JSON] PretargetingConfig

61

60

62-- | Gets a specific pretargeting configuration

61-- | Gets a specific pretargeting configuration

@@ -65,13 +64,12 @@ type PretargetingConfigGetResource =

65data PretargetingConfigGet' = PretargetingConfigGet'

64data PretargetingConfigGet' = PretargetingConfigGet'

66 { _pcgQuotaUser :: !(Maybe Text)

65 { _pcgQuotaUser :: !(Maybe Text)

67 , _pcgPrettyPrint :: !Bool

66 , _pcgPrettyPrint :: !Bool

68− , _pcgUserIp :: !(Maybe Text)

67+ , _pcgUserIP :: !(Maybe Text)

69 , _pcgAccountId :: !Int64

68 , _pcgAccountId :: !Int64

70− , _pcgKey :: !(Maybe Text)

69+ , _pcgKey :: !(Maybe Key)

71 , _pcgConfigId :: !Int64

70 , _pcgConfigId :: !Int64

72− , _pcgOauthToken :: !(Maybe Text)

71+ , _pcgOAuthToken :: !(Maybe OAuthToken)

73 , _pcgFields :: !(Maybe Text)

72 , _pcgFields :: !(Maybe Text)

74− , _pcgAlt :: !Alt

75 } deriving (Eq,Read,Show,Data,Typeable,Generic)

73 } deriving (Eq,Read,Show,Data,Typeable,Generic)

76

74

77-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.

75-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.

@@ -82,7 +80,7 @@ data PretargetingConfigGet' = PretargetingConfigGet'

82--

80--

83-- * 'pcgPrettyPrint'

81-- * 'pcgPrettyPrint'

84--

82--

85−-- * 'pcgUserIp'

83+-- * 'pcgUserIP'

86--

84--

87-- * 'pcgAccountId'

85-- * 'pcgAccountId'

88--

86--

@@ -90,11 +88,9 @@ data PretargetingConfigGet' = PretargetingConfigGet'

90--

88--

91-- * 'pcgConfigId'

89-- * 'pcgConfigId'

92--

90--

93−-- * 'pcgOauthToken'

91+-- * 'pcgOAuthToken'

94--

92--

95-- * 'pcgFields'

93-- * 'pcgFields'

96−--

97−-- * 'pcgAlt'

98pretargetingConfigGet'

94pretargetingConfigGet'

99 :: Int64 -- ^ 'accountId'

95 :: Int64 -- ^ 'accountId'

100 -> Int64 -- ^ 'configId'

96 -> Int64 -- ^ 'configId'

@@ -103,13 +99,12 @@ pretargetingConfigGet' pPcgAccountId_ pPcgConfigId_ =

103 PretargetingConfigGet'

99 PretargetingConfigGet'

104 { _pcgQuotaUser = Nothing

100 { _pcgQuotaUser = Nothing

105 , _pcgPrettyPrint = True

101 , _pcgPrettyPrint = True

106− , _pcgUserIp = Nothing

102+ , _pcgUserIP = Nothing

107 , _pcgAccountId = pPcgAccountId_

103 , _pcgAccountId = pPcgAccountId_

108 , _pcgKey = Nothing

104 , _pcgKey = Nothing

109 , _pcgConfigId = pPcgConfigId_

105 , _pcgConfigId = pPcgConfigId_

110− , _pcgOauthToken = Nothing

106+ , _pcgOAuthToken = Nothing

111 , _pcgFields = Nothing

107 , _pcgFields = Nothing

112− , _pcgAlt = JSON

113 }

108 }

114

109

115-- | Available to use for quota purposes for server-side applications. Can be

110-- | Available to use for quota purposes for server-side applications. Can be

@@ -127,9 +122,9 @@ pcgPrettyPrint

127

122

128-- | IP address of the site where the request originates. Use this if you

123-- | IP address of the site where the request originates. Use this if you

129-- want to enforce per-user limits.

124-- want to enforce per-user limits.

130−pcgUserIp :: Lens' PretargetingConfigGet' (Maybe Text)

125+pcgUserIP :: Lens' PretargetingConfigGet' (Maybe Text)

131−pcgUserIp

126+pcgUserIP

132− = lens _pcgUserIp (\ s a -> s{_pcgUserIp = a})

127+ = lens _pcgUserIP (\ s a -> s{_pcgUserIP = a})

133

128

134-- | The account id to get the pretargeting config for.

129-- | The account id to get the pretargeting config for.

135pcgAccountId :: Lens' PretargetingConfigGet' Int64

130pcgAccountId :: Lens' PretargetingConfigGet' Int64

@@ -139,7 +134,7 @@ pcgAccountId

139-- | API key. Your API key identifies your project and provides you with API

134-- | API key. Your API key identifies your project and provides you with API

140-- access, quota, and reports. Required unless you provide an OAuth 2.0

135-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- token.

136-- token.

142−pcgKey :: Lens' PretargetingConfigGet' (Maybe Text)

137+pcgKey :: Lens' PretargetingConfigGet' (Maybe Key)

143pcgKey = lens _pcgKey (\ s a -> s{_pcgKey = a})

138pcgKey = lens _pcgKey (\ s a -> s{_pcgKey = a})

144

139

145-- | The specific id of the configuration to retrieve.

140-- | The specific id of the configuration to retrieve.

@@ -148,31 +143,31 @@ pcgConfigId

148 = lens _pcgConfigId (\ s a -> s{_pcgConfigId = a})

143 = lens _pcgConfigId (\ s a -> s{_pcgConfigId = a})

149

144

150-- | OAuth 2.0 token for the current user.

145-- | OAuth 2.0 token for the current user.

151−pcgOauthToken :: Lens' PretargetingConfigGet' (Maybe Text)

146+pcgOAuthToken :: Lens' PretargetingConfigGet' (Maybe OAuthToken)

152−pcgOauthToken

147+pcgOAuthToken

153− = lens _pcgOauthToken

148+ = lens _pcgOAuthToken

154− (\ s a -> s{_pcgOauthToken = a})

149+ (\ s a -> s{_pcgOAuthToken = a})

155

150

156-- | Selector specifying which fields to include in a partial response.

151-- | Selector specifying which fields to include in a partial response.

157pcgFields :: Lens' PretargetingConfigGet' (Maybe Text)

152pcgFields :: Lens' PretargetingConfigGet' (Maybe Text)

158pcgFields

153pcgFields

159 = lens _pcgFields (\ s a -> s{_pcgFields = a})

154 = lens _pcgFields (\ s a -> s{_pcgFields = a})

160

155

161−-- | Data format for the response.

162−pcgAlt :: Lens' PretargetingConfigGet' Alt

156+instance GoogleAuth PretargetingConfigGet' where

163−pcgAlt = lens _pcgAlt (\ s a -> s{_pcgAlt = a})

157+ authKey = pcgKey . _Just

158+ authToken = pcgOAuthToken . _Just

164

159

165instance GoogleRequest PretargetingConfigGet' where

160instance GoogleRequest PretargetingConfigGet' where

166 type Rs PretargetingConfigGet' = PretargetingConfig

161 type Rs PretargetingConfigGet' = PretargetingConfig

167 request = requestWithRoute defReq adExchangeBuyerURL

162 request = requestWithRoute defReq adExchangeBuyerURL

168 requestWithRoute r u PretargetingConfigGet'{..}

163 requestWithRoute r u PretargetingConfigGet'{..}

169− = go _pcgQuotaUser (Just _pcgPrettyPrint) _pcgUserIp

164+ = go _pcgQuotaUser (Just _pcgPrettyPrint) _pcgUserIP

170 _pcgAccountId

165 _pcgAccountId

171 _pcgKey

166 _pcgKey

172 _pcgConfigId

167 _pcgConfigId

173− _pcgOauthToken

168+ _pcgOAuthToken

174 _pcgFields

169 _pcgFields

175− (Just _pcgAlt)

170+ (Just AltJSON)

176 where go

171 where go

177 = clientWithRoute

172 = clientWithRoute

178 (Proxy :: Proxy PretargetingConfigGetResource)

173 (Proxy :: Proxy PretargetingConfigGetResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs+47−38

@@ -32,12 +32,12 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert

32 -- * Request Lenses

33 , pciQuotaUser

34 , pciPrettyPrint

35− , pciUserIp

35+ , pciUserIP

36+ , pciPretargetingConfig

36 , pciAccountId

37 , pciAccountId

37 , pciKey

38 , pciKey

38− , pciOauthToken

39+ , pciOAuthToken

39 , pciFields

40 , pciFields

40− , pciAlt

41 ) where

42

43import Network.Google.AdExchangeBuyer.Types

@@ -51,24 +51,25 @@ type PretargetingConfigInsertResource =

51 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

54+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :>

57+ QueryParam "alt" AltJSON :>

58+ ReqBody '[JSON] PretargetingConfig :>

58− Post '[JSON] PretargetingConfig

59+ Post '[JSON] PretargetingConfig

59

60

60-- | Inserts a new pretargeting configuration.

61-- | Inserts a new pretargeting configuration.

61--

62--

62-- /See:/ 'pretargetingConfigInsert'' smart constructor.

63-- /See:/ 'pretargetingConfigInsert'' smart constructor.

63data PretargetingConfigInsert' = PretargetingConfigInsert'

64data PretargetingConfigInsert' = PretargetingConfigInsert'

64− { _pciQuotaUser :: !(Maybe Text)

65+ { _pciQuotaUser :: !(Maybe Text)

65− , _pciPrettyPrint :: !Bool

66+ , _pciPrettyPrint :: !Bool

66− , _pciUserIp :: !(Maybe Text)

67+ , _pciUserIP :: !(Maybe Text)

68+ , _pciPretargetingConfig :: !PretargetingConfig

67− , _pciAccountId :: !Int64

69+ , _pciAccountId :: !Int64

68− , _pciKey :: !(Maybe Text)

70+ , _pciKey :: !(Maybe Key)

69− , _pciOauthToken :: !(Maybe Text)

71+ , _pciOAuthToken :: !(Maybe OAuthToken)

70− , _pciFields :: !(Maybe Text)

72+ , _pciFields :: !(Maybe Text)

71− , _pciAlt :: !Alt

72 } deriving (Eq,Read,Show,Data,Typeable,Generic)

73 } deriving (Eq,Read,Show,Data,Typeable,Generic)

73

74

74-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.

75-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.

@@ -79,30 +80,31 @@ data PretargetingConfigInsert' = PretargetingConfigInsert'

79--

80--

80-- * 'pciPrettyPrint'

81-- * 'pciPrettyPrint'

81--

82--

82−-- * 'pciUserIp'

83+-- * 'pciUserIP'

84+--

85+-- * 'pciPretargetingConfig'

83--

86--

84-- * 'pciAccountId'

87-- * 'pciAccountId'

85--

88--

86-- * 'pciKey'

89-- * 'pciKey'

87--

90--

88−-- * 'pciOauthToken'

91+-- * 'pciOAuthToken'

89--

92--

90-- * 'pciFields'

93-- * 'pciFields'

91−--

92−-- * 'pciAlt'

93pretargetingConfigInsert'

94pretargetingConfigInsert'

95+ :: PretargetingConfig -- ^ 'PretargetingConfig'

94− :: Int64 -- ^ 'accountId'

96+ -> Int64 -- ^ 'accountId'

95 -> PretargetingConfigInsert'

97 -> PretargetingConfigInsert'

96−pretargetingConfigInsert' pPciAccountId_ =

98+pretargetingConfigInsert' pPciPretargetingConfig_ pPciAccountId_ =

97 PretargetingConfigInsert'

99 PretargetingConfigInsert'

98 { _pciQuotaUser = Nothing

100 { _pciQuotaUser = Nothing

99 , _pciPrettyPrint = True

101 , _pciPrettyPrint = True

100− , _pciUserIp = Nothing

102+ , _pciUserIP = Nothing

103+ , _pciPretargetingConfig = pPciPretargetingConfig_

101 , _pciAccountId = pPciAccountId_

104 , _pciAccountId = pPciAccountId_

102 , _pciKey = Nothing

105 , _pciKey = Nothing

103− , _pciOauthToken = Nothing

106+ , _pciOAuthToken = Nothing

104 , _pciFields = Nothing

107 , _pciFields = Nothing

105− , _pciAlt = JSON

106 }

108 }

107

109

108-- | Available to use for quota purposes for server-side applications. Can be

110-- | Available to use for quota purposes for server-side applications. Can be

@@ -120,9 +122,15 @@ pciPrettyPrint

120

122

121-- | IP address of the site where the request originates. Use this if you

123-- | IP address of the site where the request originates. Use this if you

122-- want to enforce per-user limits.

124-- want to enforce per-user limits.

123−pciUserIp :: Lens' PretargetingConfigInsert' (Maybe Text)

125+pciUserIP :: Lens' PretargetingConfigInsert' (Maybe Text)

124−pciUserIp

126+pciUserIP

125− = lens _pciUserIp (\ s a -> s{_pciUserIp = a})

127+ = lens _pciUserIP (\ s a -> s{_pciUserIP = a})

128+

129+-- | Multipart request metadata.

130+pciPretargetingConfig :: Lens' PretargetingConfigInsert' PretargetingConfig

131+pciPretargetingConfig

132+ = lens _pciPretargetingConfig

133+ (\ s a -> s{_pciPretargetingConfig = a})

126

134

127-- | The account id to insert the pretargeting config for.

135-- | The account id to insert the pretargeting config for.

128pciAccountId :: Lens' PretargetingConfigInsert' Int64

136pciAccountId :: Lens' PretargetingConfigInsert' Int64

@@ -132,23 +140,23 @@ pciAccountId

132-- | API key. Your API key identifies your project and provides you with API

140-- | API key. Your API key identifies your project and provides you with API

133-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- access, quota, and reports. Required unless you provide an OAuth 2.0

134-- token.

142-- token.

135−pciKey :: Lens' PretargetingConfigInsert' (Maybe Text)

143+pciKey :: Lens' PretargetingConfigInsert' (Maybe Key)

136pciKey = lens _pciKey (\ s a -> s{_pciKey = a})

144pciKey = lens _pciKey (\ s a -> s{_pciKey = a})

137

145

138-- | OAuth 2.0 token for the current user.

146-- | OAuth 2.0 token for the current user.

139−pciOauthToken :: Lens' PretargetingConfigInsert' (Maybe Text)

147+pciOAuthToken :: Lens' PretargetingConfigInsert' (Maybe OAuthToken)

140−pciOauthToken

148+pciOAuthToken

141− = lens _pciOauthToken

149+ = lens _pciOAuthToken

142− (\ s a -> s{_pciOauthToken = a})

150+ (\ s a -> s{_pciOAuthToken = a})

143

151

144-- | Selector specifying which fields to include in a partial response.

152-- | Selector specifying which fields to include in a partial response.

145pciFields :: Lens' PretargetingConfigInsert' (Maybe Text)

153pciFields :: Lens' PretargetingConfigInsert' (Maybe Text)

146pciFields

154pciFields

147 = lens _pciFields (\ s a -> s{_pciFields = a})

155 = lens _pciFields (\ s a -> s{_pciFields = a})

148

156

149−-- | Data format for the response.

150−pciAlt :: Lens' PretargetingConfigInsert' Alt

157+instance GoogleAuth PretargetingConfigInsert' where

151−pciAlt = lens _pciAlt (\ s a -> s{_pciAlt = a})

158+ authKey = pciKey . _Just

159+ authToken = pciOAuthToken . _Just

152

160

153instance GoogleRequest PretargetingConfigInsert'

161instance GoogleRequest PretargetingConfigInsert'

154 where

162 where

@@ -156,12 +164,13 @@ instance GoogleRequest PretargetingConfigInsert'

156 PretargetingConfig

164 PretargetingConfig

157 request = requestWithRoute defReq adExchangeBuyerURL

165 request = requestWithRoute defReq adExchangeBuyerURL

158 requestWithRoute r u PretargetingConfigInsert'{..}

166 requestWithRoute r u PretargetingConfigInsert'{..}

159− = go _pciQuotaUser (Just _pciPrettyPrint) _pciUserIp

167+ = go _pciQuotaUser (Just _pciPrettyPrint) _pciUserIP

160 _pciAccountId

168 _pciAccountId

161 _pciKey

169 _pciKey

162− _pciOauthToken

170+ _pciOAuthToken

163 _pciFields

171 _pciFields

164− (Just _pciAlt)

172+ (Just AltJSON)

173+ _pciPretargetingConfig

165 where go

174 where go

166 = clientWithRoute

175 = clientWithRoute

167 (Proxy :: Proxy PretargetingConfigInsertResource)

176 (Proxy :: Proxy PretargetingConfigInsertResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs+26−31

@@ -33,12 +33,11 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List

33 -- * Request Lenses

34 , pclQuotaUser

35 , pclPrettyPrint

36− , pclUserIp

36+ , pclUserIP

37 , pclAccountId

38 , pclKey

39− , pclOauthToken

39+ , pclOAuthToken

40 , pclFields

41− , pclAlt

42 ) where

41 ) where

43

42

44import Network.Google.AdExchangeBuyer.Types

43import Network.Google.AdExchangeBuyer.Types

@@ -52,10 +51,10 @@ type PretargetingConfigListResource =

52 QueryParam "quotaUser" Text :>

51 QueryParam "quotaUser" Text :>

53 QueryParam "prettyPrint" Bool :>

52 QueryParam "prettyPrint" Bool :>

54 QueryParam "userIp" Text :>

53 QueryParam "userIp" Text :>

55− QueryParam "key" Text :>

54+ QueryParam "key" Key :>

56− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

57 QueryParam "fields" Text :>

56 QueryParam "fields" Text :>

58− QueryParam "alt" Alt :>

57+ QueryParam "alt" AltJSON :>

59 Get '[JSON] PretargetingConfigList

58 Get '[JSON] PretargetingConfigList

60

59

61-- | Retrieves a list of the authenticated user\'s pretargeting

60-- | Retrieves a list of the authenticated user\'s pretargeting

@@ -65,12 +64,11 @@ type PretargetingConfigListResource =

65data PretargetingConfigList' = PretargetingConfigList'

64data PretargetingConfigList' = PretargetingConfigList'

66 { _pclQuotaUser :: !(Maybe Text)

65 { _pclQuotaUser :: !(Maybe Text)

67 , _pclPrettyPrint :: !Bool

66 , _pclPrettyPrint :: !Bool

68− , _pclUserIp :: !(Maybe Text)

67+ , _pclUserIP :: !(Maybe Text)

69 , _pclAccountId :: !Int64

68 , _pclAccountId :: !Int64

70− , _pclKey :: !(Maybe Text)

69+ , _pclKey :: !(Maybe Key)

71− , _pclOauthToken :: !(Maybe Text)

70+ , _pclOAuthToken :: !(Maybe OAuthToken)

72 , _pclFields :: !(Maybe Text)

71 , _pclFields :: !(Maybe Text)

73− , _pclAlt :: !Alt

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72 } deriving (Eq,Read,Show,Data,Typeable,Generic)

75

73

76-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.

74-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.

@@ -81,17 +79,15 @@ data PretargetingConfigList' = PretargetingConfigList'

81--

79--

82-- * 'pclPrettyPrint'

80-- * 'pclPrettyPrint'

83--

81--

84−-- * 'pclUserIp'

82+-- * 'pclUserIP'

85--

83--

86-- * 'pclAccountId'

84-- * 'pclAccountId'

87--

85--

88-- * 'pclKey'

86-- * 'pclKey'

89--

87--

90−-- * 'pclOauthToken'

88+-- * 'pclOAuthToken'

91--

89--

92-- * 'pclFields'

90-- * 'pclFields'

93−--

94−-- * 'pclAlt'

95pretargetingConfigList'

91pretargetingConfigList'

96 :: Int64 -- ^ 'accountId'

92 :: Int64 -- ^ 'accountId'

97 -> PretargetingConfigList'

93 -> PretargetingConfigList'

@@ -99,12 +95,11 @@ pretargetingConfigList' pPclAccountId_ =

99 PretargetingConfigList'

95 PretargetingConfigList'

100 { _pclQuotaUser = Nothing

96 { _pclQuotaUser = Nothing

101 , _pclPrettyPrint = True

97 , _pclPrettyPrint = True

102− , _pclUserIp = Nothing

98+ , _pclUserIP = Nothing

103 , _pclAccountId = pPclAccountId_

99 , _pclAccountId = pPclAccountId_

104 , _pclKey = Nothing

100 , _pclKey = Nothing

105− , _pclOauthToken = Nothing

101+ , _pclOAuthToken = Nothing

106 , _pclFields = Nothing

102 , _pclFields = Nothing

107− , _pclAlt = JSON

108 }

103 }

109

104

110-- | Available to use for quota purposes for server-side applications. Can be

105-- | Available to use for quota purposes for server-side applications. Can be

@@ -122,9 +117,9 @@ pclPrettyPrint

122

117

123-- | IP address of the site where the request originates. Use this if you

118-- | IP address of the site where the request originates. Use this if you

124-- want to enforce per-user limits.

119-- want to enforce per-user limits.

125−pclUserIp :: Lens' PretargetingConfigList' (Maybe Text)

120+pclUserIP :: Lens' PretargetingConfigList' (Maybe Text)

126−pclUserIp

121+pclUserIP

127− = lens _pclUserIp (\ s a -> s{_pclUserIp = a})

122+ = lens _pclUserIP (\ s a -> s{_pclUserIP = a})

128

123

129-- | The account id to get the pretargeting configs for.

124-- | The account id to get the pretargeting configs for.

130pclAccountId :: Lens' PretargetingConfigList' Int64

125pclAccountId :: Lens' PretargetingConfigList' Int64

@@ -134,35 +129,35 @@ pclAccountId

134-- | API key. Your API key identifies your project and provides you with API

129-- | API key. Your API key identifies your project and provides you with API

135-- access, quota, and reports. Required unless you provide an OAuth 2.0

130-- access, quota, and reports. Required unless you provide an OAuth 2.0

136-- token.

131-- token.

137−pclKey :: Lens' PretargetingConfigList' (Maybe Text)

132+pclKey :: Lens' PretargetingConfigList' (Maybe Key)

138pclKey = lens _pclKey (\ s a -> s{_pclKey = a})

133pclKey = lens _pclKey (\ s a -> s{_pclKey = a})

139

134

140-- | OAuth 2.0 token for the current user.

135-- | OAuth 2.0 token for the current user.

141−pclOauthToken :: Lens' PretargetingConfigList' (Maybe Text)

136+pclOAuthToken :: Lens' PretargetingConfigList' (Maybe OAuthToken)

142−pclOauthToken

137+pclOAuthToken

143− = lens _pclOauthToken

138+ = lens _pclOAuthToken

144− (\ s a -> s{_pclOauthToken = a})

139+ (\ s a -> s{_pclOAuthToken = a})

145

140

146-- | Selector specifying which fields to include in a partial response.

141-- | Selector specifying which fields to include in a partial response.

147pclFields :: Lens' PretargetingConfigList' (Maybe Text)

142pclFields :: Lens' PretargetingConfigList' (Maybe Text)

148pclFields

143pclFields

149 = lens _pclFields (\ s a -> s{_pclFields = a})

144 = lens _pclFields (\ s a -> s{_pclFields = a})

150

145

151−-- | Data format for the response.

152−pclAlt :: Lens' PretargetingConfigList' Alt

146+instance GoogleAuth PretargetingConfigList' where

153−pclAlt = lens _pclAlt (\ s a -> s{_pclAlt = a})

147+ authKey = pclKey . _Just

148+ authToken = pclOAuthToken . _Just

154

149

155instance GoogleRequest PretargetingConfigList' where

150instance GoogleRequest PretargetingConfigList' where

156 type Rs PretargetingConfigList' =

151 type Rs PretargetingConfigList' =

157 PretargetingConfigList

152 PretargetingConfigList

158 request = requestWithRoute defReq adExchangeBuyerURL

153 request = requestWithRoute defReq adExchangeBuyerURL

159 requestWithRoute r u PretargetingConfigList'{..}

154 requestWithRoute r u PretargetingConfigList'{..}

160− = go _pclQuotaUser (Just _pclPrettyPrint) _pclUserIp

155+ = go _pclQuotaUser (Just _pclPrettyPrint) _pclUserIP

161 _pclAccountId

156 _pclAccountId

162 _pclKey

157 _pclKey

163− _pclOauthToken

158+ _pclOAuthToken

164 _pclFields

159 _pclFields

165− (Just _pclAlt)

160+ (Just AltJSON)

166 where go

161 where go

167 = clientWithRoute

162 = clientWithRoute

168 (Proxy :: Proxy PretargetingConfigListResource)

163 (Proxy :: Proxy PretargetingConfigListResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs+48−39

@@ -33,13 +33,13 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch

33 -- * Request Lenses

34 , pcpQuotaUser

35 , pcpPrettyPrint

36− , pcpUserIp

36+ , pcpUserIP

37+ , pcpPretargetingConfig

37 , pcpAccountId

38 , pcpAccountId

38 , pcpKey

39 , pcpKey

39 , pcpConfigId

40 , pcpConfigId

40− , pcpOauthToken

41+ , pcpOAuthToken

41 , pcpFields

42 , pcpFields

42− , pcpAlt

43 ) where

44

45import Network.Google.AdExchangeBuyer.Types

@@ -54,26 +54,27 @@ type PretargetingConfigPatchResource =

54 QueryParam "quotaUser" Text :>

55 QueryParam "prettyPrint" Bool :>

56 QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

57+ QueryParam "key" Key :>

58− QueryParam "oauth_token" Text :>

58+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "fields" Text :>

60− QueryParam "alt" Alt :>

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] PretargetingConfig :>

61− Patch '[JSON] PretargetingConfig

62+ Patch '[JSON] PretargetingConfig

62

63

63-- | Updates an existing pretargeting config. This method supports patch

64-- | Updates an existing pretargeting config. This method supports patch

64-- semantics.

65-- semantics.

65--

66--

66-- /See:/ 'pretargetingConfigPatch'' smart constructor.

67-- /See:/ 'pretargetingConfigPatch'' smart constructor.

67data PretargetingConfigPatch' = PretargetingConfigPatch'

68data PretargetingConfigPatch' = PretargetingConfigPatch'

68− { _pcpQuotaUser :: !(Maybe Text)

69+ { _pcpQuotaUser :: !(Maybe Text)

69− , _pcpPrettyPrint :: !Bool

70+ , _pcpPrettyPrint :: !Bool

70− , _pcpUserIp :: !(Maybe Text)

71+ , _pcpUserIP :: !(Maybe Text)

72+ , _pcpPretargetingConfig :: !PretargetingConfig

71− , _pcpAccountId :: !Int64

73+ , _pcpAccountId :: !Int64

72− , _pcpKey :: !(Maybe Text)

74+ , _pcpKey :: !(Maybe Key)

73− , _pcpConfigId :: !Int64

75+ , _pcpConfigId :: !Int64

74− , _pcpOauthToken :: !(Maybe Text)

76+ , _pcpOAuthToken :: !(Maybe OAuthToken)

75− , _pcpFields :: !(Maybe Text)

77+ , _pcpFields :: !(Maybe Text)

76− , _pcpAlt :: !Alt

77 } deriving (Eq,Read,Show,Data,Typeable,Generic)

78 } deriving (Eq,Read,Show,Data,Typeable,Generic)

78

79

79-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.

80-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.

@@ -84,7 +85,9 @@ data PretargetingConfigPatch' = PretargetingConfigPatch'

84--

85--

85-- * 'pcpPrettyPrint'

86-- * 'pcpPrettyPrint'

86--

87--

87−-- * 'pcpUserIp'

88+-- * 'pcpUserIP'

89+--

90+-- * 'pcpPretargetingConfig'

88--

91--

89-- * 'pcpAccountId'

92-- * 'pcpAccountId'

90--

93--

@@ -92,26 +95,25 @@ data PretargetingConfigPatch' = PretargetingConfigPatch'

92--

95--

93-- * 'pcpConfigId'

96-- * 'pcpConfigId'

94--

97--

95−-- * 'pcpOauthToken'

98+-- * 'pcpOAuthToken'

96--

99--

97-- * 'pcpFields'

100-- * 'pcpFields'

98−--

99−-- * 'pcpAlt'

100pretargetingConfigPatch'

101pretargetingConfigPatch'

102+ :: PretargetingConfig -- ^ 'PretargetingConfig'

101− :: Int64 -- ^ 'accountId'

103+ -> Int64 -- ^ 'accountId'

102 -> Int64 -- ^ 'configId'

104 -> Int64 -- ^ 'configId'

103 -> PretargetingConfigPatch'

105 -> PretargetingConfigPatch'

104−pretargetingConfigPatch' pPcpAccountId_ pPcpConfigId_ =

106+pretargetingConfigPatch' pPcpPretargetingConfig_ pPcpAccountId_ pPcpConfigId_ =

105 PretargetingConfigPatch'

107 PretargetingConfigPatch'

106 { _pcpQuotaUser = Nothing

108 { _pcpQuotaUser = Nothing

107 , _pcpPrettyPrint = True

109 , _pcpPrettyPrint = True

108− , _pcpUserIp = Nothing

110+ , _pcpUserIP = Nothing

111+ , _pcpPretargetingConfig = pPcpPretargetingConfig_

109 , _pcpAccountId = pPcpAccountId_

112 , _pcpAccountId = pPcpAccountId_

110 , _pcpKey = Nothing

113 , _pcpKey = Nothing

111 , _pcpConfigId = pPcpConfigId_

114 , _pcpConfigId = pPcpConfigId_

112− , _pcpOauthToken = Nothing

115+ , _pcpOAuthToken = Nothing

113 , _pcpFields = Nothing

116 , _pcpFields = Nothing

114− , _pcpAlt = JSON

115 }

117 }

116

118

117-- | Available to use for quota purposes for server-side applications. Can be

119-- | Available to use for quota purposes for server-side applications. Can be

@@ -129,9 +131,15 @@ pcpPrettyPrint

129

131

130-- | IP address of the site where the request originates. Use this if you

132-- | IP address of the site where the request originates. Use this if you

131-- want to enforce per-user limits.

133-- want to enforce per-user limits.

132−pcpUserIp :: Lens' PretargetingConfigPatch' (Maybe Text)

134+pcpUserIP :: Lens' PretargetingConfigPatch' (Maybe Text)

133−pcpUserIp

135+pcpUserIP

134− = lens _pcpUserIp (\ s a -> s{_pcpUserIp = a})

136+ = lens _pcpUserIP (\ s a -> s{_pcpUserIP = a})

137+

138+-- | Multipart request metadata.

139+pcpPretargetingConfig :: Lens' PretargetingConfigPatch' PretargetingConfig

140+pcpPretargetingConfig

141+ = lens _pcpPretargetingConfig

142+ (\ s a -> s{_pcpPretargetingConfig = a})

135

143

136-- | The account id to update the pretargeting config for.

144-- | The account id to update the pretargeting config for.

137pcpAccountId :: Lens' PretargetingConfigPatch' Int64

145pcpAccountId :: Lens' PretargetingConfigPatch' Int64

@@ -141,7 +149,7 @@ pcpAccountId

141-- | API key. Your API key identifies your project and provides you with API

149-- | API key. Your API key identifies your project and provides you with API

142-- access, quota, and reports. Required unless you provide an OAuth 2.0

150-- access, quota, and reports. Required unless you provide an OAuth 2.0

143-- token.

151-- token.

144−pcpKey :: Lens' PretargetingConfigPatch' (Maybe Text)

152+pcpKey :: Lens' PretargetingConfigPatch' (Maybe Key)

145pcpKey = lens _pcpKey (\ s a -> s{_pcpKey = a})

153pcpKey = lens _pcpKey (\ s a -> s{_pcpKey = a})

146

154

147-- | The specific id of the configuration to update.

155-- | The specific id of the configuration to update.

@@ -150,31 +158,32 @@ pcpConfigId

150 = lens _pcpConfigId (\ s a -> s{_pcpConfigId = a})

158 = lens _pcpConfigId (\ s a -> s{_pcpConfigId = a})

151

159

152-- | OAuth 2.0 token for the current user.

160-- | OAuth 2.0 token for the current user.

153−pcpOauthToken :: Lens' PretargetingConfigPatch' (Maybe Text)

161+pcpOAuthToken :: Lens' PretargetingConfigPatch' (Maybe OAuthToken)

154−pcpOauthToken

162+pcpOAuthToken

155− = lens _pcpOauthToken

163+ = lens _pcpOAuthToken

156− (\ s a -> s{_pcpOauthToken = a})

164+ (\ s a -> s{_pcpOAuthToken = a})

157

165

158-- | Selector specifying which fields to include in a partial response.

166-- | Selector specifying which fields to include in a partial response.

159pcpFields :: Lens' PretargetingConfigPatch' (Maybe Text)

167pcpFields :: Lens' PretargetingConfigPatch' (Maybe Text)

160pcpFields

168pcpFields

161 = lens _pcpFields (\ s a -> s{_pcpFields = a})

169 = lens _pcpFields (\ s a -> s{_pcpFields = a})

162

170

163−-- | Data format for the response.

164−pcpAlt :: Lens' PretargetingConfigPatch' Alt

171+instance GoogleAuth PretargetingConfigPatch' where

165−pcpAlt = lens _pcpAlt (\ s a -> s{_pcpAlt = a})

172+ authKey = pcpKey . _Just

173+ authToken = pcpOAuthToken . _Just

166

174

167instance GoogleRequest PretargetingConfigPatch' where

175instance GoogleRequest PretargetingConfigPatch' where

168 type Rs PretargetingConfigPatch' = PretargetingConfig

176 type Rs PretargetingConfigPatch' = PretargetingConfig

169 request = requestWithRoute defReq adExchangeBuyerURL

177 request = requestWithRoute defReq adExchangeBuyerURL

170 requestWithRoute r u PretargetingConfigPatch'{..}

178 requestWithRoute r u PretargetingConfigPatch'{..}

171− = go _pcpQuotaUser (Just _pcpPrettyPrint) _pcpUserIp

179+ = go _pcpQuotaUser (Just _pcpPrettyPrint) _pcpUserIP

172 _pcpAccountId

180 _pcpAccountId

173 _pcpKey

181 _pcpKey

174 _pcpConfigId

182 _pcpConfigId

175− _pcpOauthToken

183+ _pcpOAuthToken

176 _pcpFields

184 _pcpFields

177− (Just _pcpAlt)

185+ (Just AltJSON)

186+ _pcpPretargetingConfig

178 where go

187 where go

179 = clientWithRoute

188 = clientWithRoute

180 (Proxy :: Proxy PretargetingConfigPatchResource)

189 (Proxy :: Proxy PretargetingConfigPatchResource)

gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs+48−39

@@ -32,13 +32,13 @@ module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update

32 -- * Request Lenses

33 , pcuQuotaUser

34 , pcuPrettyPrint

35− , pcuUserIp

35+ , pcuUserIP

36+ , pcuPretargetingConfig

36 , pcuAccountId

37 , pcuAccountId

37 , pcuKey

38 , pcuKey

38 , pcuConfigId

39 , pcuConfigId

39− , pcuOauthToken

40+ , pcuOAuthToken

40 , pcuFields

41 , pcuFields

41− , pcuAlt

42 ) where

43

44import Network.Google.AdExchangeBuyer.Types

@@ -53,25 +53,26 @@ type PretargetingConfigUpdateResource =

53 QueryParam "quotaUser" Text :>

54 QueryParam "prettyPrint" Bool :>

55 QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

56+ QueryParam "key" Key :>

57− QueryParam "oauth_token" Text :>

57+ QueryParam "oauth_token" OAuthToken :>

58 QueryParam "fields" Text :>

59− QueryParam "alt" Alt :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] PretargetingConfig :>

60− Put '[JSON] PretargetingConfig

61+ Put '[JSON] PretargetingConfig

61

62

62-- | Updates an existing pretargeting config.

63-- | Updates an existing pretargeting config.

63--

64--

64-- /See:/ 'pretargetingConfigUpdate'' smart constructor.

65-- /See:/ 'pretargetingConfigUpdate'' smart constructor.

65data PretargetingConfigUpdate' = PretargetingConfigUpdate'

66data PretargetingConfigUpdate' = PretargetingConfigUpdate'

66− { _pcuQuotaUser :: !(Maybe Text)

67+ { _pcuQuotaUser :: !(Maybe Text)

67− , _pcuPrettyPrint :: !Bool

68+ , _pcuPrettyPrint :: !Bool

68− , _pcuUserIp :: !(Maybe Text)

69+ , _pcuUserIP :: !(Maybe Text)

70+ , _pcuPretargetingConfig :: !PretargetingConfig

69− , _pcuAccountId :: !Int64

71+ , _pcuAccountId :: !Int64

70− , _pcuKey :: !(Maybe Text)

72+ , _pcuKey :: !(Maybe Key)

71− , _pcuConfigId :: !Int64

73+ , _pcuConfigId :: !Int64

72− , _pcuOauthToken :: !(Maybe Text)

74+ , _pcuOAuthToken :: !(Maybe OAuthToken)

73− , _pcuFields :: !(Maybe Text)

75+ , _pcuFields :: !(Maybe Text)

74− , _pcuAlt :: !Alt

75 } deriving (Eq,Read,Show,Data,Typeable,Generic)

76 } deriving (Eq,Read,Show,Data,Typeable,Generic)

76

77

77-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.

78-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.

@@ -82,7 +83,9 @@ data PretargetingConfigUpdate' = PretargetingConfigUpdate'

82--

83--

83-- * 'pcuPrettyPrint'

84-- * 'pcuPrettyPrint'

84--

85--

85−-- * 'pcuUserIp'

86+-- * 'pcuUserIP'

87+--

88+-- * 'pcuPretargetingConfig'

86--

89--

87-- * 'pcuAccountId'

90-- * 'pcuAccountId'

88--

91--

@@ -90,26 +93,25 @@ data PretargetingConfigUpdate' = PretargetingConfigUpdate'

90--

93--

91-- * 'pcuConfigId'

94-- * 'pcuConfigId'

92--

95--

93−-- * 'pcuOauthToken'

96+-- * 'pcuOAuthToken'

94--

97--

95-- * 'pcuFields'

98-- * 'pcuFields'

96−--

97−-- * 'pcuAlt'

98pretargetingConfigUpdate'

99pretargetingConfigUpdate'

100+ :: PretargetingConfig -- ^ 'PretargetingConfig'

99− :: Int64 -- ^ 'accountId'

101+ -> Int64 -- ^ 'accountId'

100 -> Int64 -- ^ 'configId'

102 -> Int64 -- ^ 'configId'

101 -> PretargetingConfigUpdate'

103 -> PretargetingConfigUpdate'

102−pretargetingConfigUpdate' pPcuAccountId_ pPcuConfigId_ =

104+pretargetingConfigUpdate' pPcuPretargetingConfig_ pPcuAccountId_ pPcuConfigId_ =

103 PretargetingConfigUpdate'

105 PretargetingConfigUpdate'

104 { _pcuQuotaUser = Nothing

106 { _pcuQuotaUser = Nothing

105 , _pcuPrettyPrint = True

107 , _pcuPrettyPrint = True

106− , _pcuUserIp = Nothing

108+ , _pcuUserIP = Nothing

109+ , _pcuPretargetingConfig = pPcuPretargetingConfig_

107 , _pcuAccountId = pPcuAccountId_

110 , _pcuAccountId = pPcuAccountId_

108 , _pcuKey = Nothing

111 , _pcuKey = Nothing

109 , _pcuConfigId = pPcuConfigId_

112 , _pcuConfigId = pPcuConfigId_

110− , _pcuOauthToken = Nothing

113+ , _pcuOAuthToken = Nothing

111 , _pcuFields = Nothing

114 , _pcuFields = Nothing

112− , _pcuAlt = JSON

113 }

115 }

114

116

115-- | Available to use for quota purposes for server-side applications. Can be

117-- | Available to use for quota purposes for server-side applications. Can be

@@ -127,9 +129,15 @@ pcuPrettyPrint

127

129

128-- | IP address of the site where the request originates. Use this if you

130-- | IP address of the site where the request originates. Use this if you

129-- want to enforce per-user limits.

131-- want to enforce per-user limits.

130−pcuUserIp :: Lens' PretargetingConfigUpdate' (Maybe Text)

132+pcuUserIP :: Lens' PretargetingConfigUpdate' (Maybe Text)

131−pcuUserIp

133+pcuUserIP

132− = lens _pcuUserIp (\ s a -> s{_pcuUserIp = a})

134+ = lens _pcuUserIP (\ s a -> s{_pcuUserIP = a})

135+

136+-- | Multipart request metadata.

137+pcuPretargetingConfig :: Lens' PretargetingConfigUpdate' PretargetingConfig

138+pcuPretargetingConfig

139+ = lens _pcuPretargetingConfig

140+ (\ s a -> s{_pcuPretargetingConfig = a})

133

141

134-- | The account id to update the pretargeting config for.

142-- | The account id to update the pretargeting config for.

135pcuAccountId :: Lens' PretargetingConfigUpdate' Int64

143pcuAccountId :: Lens' PretargetingConfigUpdate' Int64

@@ -139,7 +147,7 @@ pcuAccountId

139-- | API key. Your API key identifies your project and provides you with API

147-- | API key. Your API key identifies your project and provides you with API

140-- access, quota, and reports. Required unless you provide an OAuth 2.0

148-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- token.

149-- token.

142−pcuKey :: Lens' PretargetingConfigUpdate' (Maybe Text)

150+pcuKey :: Lens' PretargetingConfigUpdate' (Maybe Key)

143pcuKey = lens _pcuKey (\ s a -> s{_pcuKey = a})

151pcuKey = lens _pcuKey (\ s a -> s{_pcuKey = a})

144

152

145-- | The specific id of the configuration to update.

153-- | The specific id of the configuration to update.

@@ -148,19 +156,19 @@ pcuConfigId

148 = lens _pcuConfigId (\ s a -> s{_pcuConfigId = a})

156 = lens _pcuConfigId (\ s a -> s{_pcuConfigId = a})

149

157

150-- | OAuth 2.0 token for the current user.

158-- | OAuth 2.0 token for the current user.

151−pcuOauthToken :: Lens' PretargetingConfigUpdate' (Maybe Text)

159+pcuOAuthToken :: Lens' PretargetingConfigUpdate' (Maybe OAuthToken)

152−pcuOauthToken

160+pcuOAuthToken

153− = lens _pcuOauthToken

161+ = lens _pcuOAuthToken

154− (\ s a -> s{_pcuOauthToken = a})

162+ (\ s a -> s{_pcuOAuthToken = a})

155

163

156-- | Selector specifying which fields to include in a partial response.

164-- | Selector specifying which fields to include in a partial response.

157pcuFields :: Lens' PretargetingConfigUpdate' (Maybe Text)

165pcuFields :: Lens' PretargetingConfigUpdate' (Maybe Text)

158pcuFields

166pcuFields

159 = lens _pcuFields (\ s a -> s{_pcuFields = a})

167 = lens _pcuFields (\ s a -> s{_pcuFields = a})

160

168

161−-- | Data format for the response.

162−pcuAlt :: Lens' PretargetingConfigUpdate' Alt

169+instance GoogleAuth PretargetingConfigUpdate' where

163−pcuAlt = lens _pcuAlt (\ s a -> s{_pcuAlt = a})

170+ authKey = pcuKey . _Just

171+ authToken = pcuOAuthToken . _Just

164

172

165instance GoogleRequest PretargetingConfigUpdate'

173instance GoogleRequest PretargetingConfigUpdate'

166 where

174 where

@@ -168,13 +176,14 @@ instance GoogleRequest PretargetingConfigUpdate'

168 PretargetingConfig

176 PretargetingConfig

169 request = requestWithRoute defReq adExchangeBuyerURL

177 request = requestWithRoute defReq adExchangeBuyerURL

170 requestWithRoute r u PretargetingConfigUpdate'{..}

178 requestWithRoute r u PretargetingConfigUpdate'{..}

171− = go _pcuQuotaUser (Just _pcuPrettyPrint) _pcuUserIp

179+ = go _pcuQuotaUser (Just _pcuPrettyPrint) _pcuUserIP

172 _pcuAccountId

180 _pcuAccountId

173 _pcuKey

181 _pcuKey

174 _pcuConfigId

182 _pcuConfigId

175− _pcuOauthToken

183+ _pcuOAuthToken

176 _pcuFields

184 _pcuFields

177− (Just _pcuAlt)

185+ (Just AltJSON)

186+ _pcuPretargetingConfig

178 where go

187 where go

179 = clientWithRoute

188 = clientWithRoute

180 (Proxy :: Proxy PretargetingConfigUpdateResource)

189 (Proxy :: Proxy PretargetingConfigUpdateResource)

gogol-adexchange-buyer/gogol-adexchange-buyer.cabal+20−20

@@ -43,30 +43,30 @@ library

43 , Network.Google.Resource.AdExchangeBuyer.Budget.Get

44 , Network.Google.Resource.AdExchangeBuyer.Budget.Patch

45 , Network.Google.Resource.AdExchangeBuyer.Budget.Update

46− , Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete

46+ , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Delete

47− , Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get

47+ , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Get

48− , Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert

48+ , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Insert

49− , Network.Google.Resource.AdExchangeBuyer.Clientaccess.List

49+ , Network.Google.Resource.AdExchangeBuyer.ClientAccess.List

50− , Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch

50+ , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Patch

51− , Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update

51+ , Network.Google.Resource.AdExchangeBuyer.ClientAccess.Update

52 , Network.Google.Resource.AdExchangeBuyer.Creatives.Get

53 , Network.Google.Resource.AdExchangeBuyer.Creatives.Insert

54 , Network.Google.Resource.AdExchangeBuyer.Creatives.List

55 , Network.Google.Resource.AdExchangeBuyer.Deals.Get

56− , Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete

56+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Delete

57− , Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert

57+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Insert

58− , Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List

58+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.List

59− , Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update

59+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceDeals.Update

60− , Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert

60+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.Insert

61− , Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List

61+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceNotes.List

62− , Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get

62+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Get

63− , Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search

63+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOffers.Search

64− , Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get

64+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Get

65− , Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert

65+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Insert

66− , Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch

66+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Patch

67− , Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search

67+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Search

68− , Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update

68+ , Network.Google.Resource.AdExchangeBuyer.MarketplaceOrders.Update

69− , Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert

69+ , Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert

70 , Network.Google.Resource.AdExchangeBuyer.Negotiations.Get

71 , Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert

72 , Network.Google.Resource.AdExchangeBuyer.Negotiations.List

gogol-adexchange-seller/LICENSE−6

@@ -365,9 +365,3 @@ file in a relevant directory) where a recipient would be likely to look

365for such a notice.

366

367You may add additional accurate notices of copyright ownership.

368−

369−Exhibit B - "Incompatible With Secondary Licenses" Notice

370−---------------------------------------------------------

371−

372− This Source Code Form is "Incompatible With Secondary Licenses", as

373− defined by the Mozilla Public License, v. 2.0.

gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller.hs+25−28

@@ -27,17 +27,17 @@ module Network.Google.AdExchangeSeller

27

28 -- * REST Resources

29

30− -- ** AdexchangesellerAccountsAdclientsList

30+ -- ** AdexchangesellerAccountsAdClientsList

31− , module Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List

31+ , module Network.Google.Resource.AdExchangeSeller.Accounts.AdClients.List

32

33 -- ** AdexchangesellerAccountsAlertsList

34 , module Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List

35

36− -- ** AdexchangesellerAccountsCustomchannelsGet

36+ -- ** AdexchangesellerAccountsCustomChannelsGet

37− , module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get

37+ , module Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.Get

38

39− -- ** AdexchangesellerAccountsCustomchannelsList

39+ -- ** AdexchangesellerAccountsCustomChannelsList

40− , module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List

40+ , module Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.List

41

42 -- ** AdexchangesellerAccountsGet

43 , module Network.Google.Resource.AdExchangeSeller.Accounts.Get

@@ -51,11 +51,11 @@ module Network.Google.AdExchangeSeller

51 -- ** AdexchangesellerAccountsMetadataMetricsList

52 , module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List

53

54− -- ** AdexchangesellerAccountsPreferreddealsGet

54+ -- ** AdexchangesellerAccountsPreferredDealsGet

55− , module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get

55+ , module Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.Get

56

57− -- ** AdexchangesellerAccountsPreferreddealsList

57+ -- ** AdexchangesellerAccountsPreferredDealsList

58− , module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List

58+ , module Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.List

59

60 -- ** AdexchangesellerAccountsReportsGenerate

61 , module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

@@ -66,8 +66,8 @@ module Network.Google.AdExchangeSeller

66 -- ** AdexchangesellerAccountsReportsSavedList

67 , module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List

68

69− -- ** AdexchangesellerAccountsURLchannelsList

69+ -- ** AdexchangesellerAccountsURLChannelsList

70− , module Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List

70+ , module Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List

71

72 -- * Types

73

@@ -212,7 +212,7 @@ module Network.Google.AdExchangeSeller

212 , uRLChannel

213 , urlcKind

214 , urlcId

215− , urlcUrlPattern

215+ , urlcURLPattern

216

217 -- ** PreferredDeal

218 , PreferredDeal

@@ -225,43 +225,40 @@ module Network.Google.AdExchangeSeller

225 , pEndTime

226 , pId

227 , pFixedCpm

228−

229− -- ** Alt

230− , Alt (..)

231 ) where

228 ) where

232

229

233import Network.Google.AdExchangeSeller.Types

230import Network.Google.AdExchangeSeller.Types

234import Network.Google.Prelude

231import Network.Google.Prelude

235−import Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List

232+import Network.Google.Resource.AdExchangeSeller.Accounts.AdClients.List

236import Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List

233import Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List

237−import Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get

234+import Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.Get

238−import Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List

235+import Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.List

239import Network.Google.Resource.AdExchangeSeller.Accounts.Get

236import Network.Google.Resource.AdExchangeSeller.Accounts.Get

240import Network.Google.Resource.AdExchangeSeller.Accounts.List

237import Network.Google.Resource.AdExchangeSeller.Accounts.List

241import Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.List

238import Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.List

242import Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List

239import Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List

243−import Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get

240+import Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.Get

244−import Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List

241+import Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.List

245import Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

242import Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

246import Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate

243import Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate

247import Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List

244import Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List

248−import Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List

245+import Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List

249

246

250{- $resources

247{- $resources

251TODO

248TODO

252-}

249-}

253

250

254type AdExchangeSellerAPI =

251type AdExchangeSellerAPI =

255− AccountsAdclientsListResource :<|>

252+ AccountsAdClientsListResource :<|>

256 AccountsReportsSavedListResource

253 AccountsReportsSavedListResource

257 :<|> AccountsReportsSavedGenerateResource

254 :<|> AccountsReportsSavedGenerateResource

258 :<|> AccountsReportsGenerateResource

255 :<|> AccountsReportsGenerateResource

259 :<|> AccountsAlertsListResource

256 :<|> AccountsAlertsListResource

260− :<|> AccountsUrlchannelsListResource

257+ :<|> AccountsUrlChannelsListResource

261− :<|> AccountsCustomchannelsListResource

258+ :<|> AccountsCustomChannelsListResource

262− :<|> AccountsCustomchannelsGetResource

259+ :<|> AccountsCustomChannelsGetResource

263− :<|> AccountsPreferreddealsListResource

260+ :<|> AccountsPreferredDealsListResource

264− :<|> AccountsPreferreddealsGetResource

261+ :<|> AccountsPreferredDealsGetResource

265 :<|> AccountsMetadataMetricsListResource

262 :<|> AccountsMetadataMetricsListResource

266 :<|> AccountsMetadataDimensionsListResource

263 :<|> AccountsMetadataDimensionsListResource

267 :<|> AccountsListResource

264 :<|> AccountsListResource

gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types.hs+1−4

@@ -158,7 +158,7 @@ module Network.Google.AdExchangeSeller.Types

158 , uRLChannel

159 , urlcKind

160 , urlcId

161− , urlcUrlPattern

161+ , urlcURLPattern

162

163 -- * PreferredDeal

164 , PreferredDeal

@@ -171,9 +171,6 @@ module Network.Google.AdExchangeSeller.Types

171 , pEndTime

172 , pId

173 , pFixedCpm

174−

175− -- * Alt

176− , Alt (..)

177 ) where

174 ) where

178

175

179import Network.Google.AdExchangeSeller.Types.Product

176import Network.Google.AdExchangeSeller.Types.Product

gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types/Product.hs+24−24

@@ -153,7 +153,7 @@ data AdClients = AdClients

153 { _acEtag :: !(Maybe Text)

154 , _acNextPageToken :: !(Maybe Text)

155 , _acKind :: !Text

156− , _acItems :: !(Maybe [Maybe AdClient])

156+ , _acItems :: !(Maybe [AdClient])

157 } deriving (Eq,Read,Show,Data,Typeable,Generic)

158

159-- | Creates a value of 'AdClients' with the minimum fields required to make a request.

@@ -193,7 +193,7 @@ acKind :: Lens' AdClients Text

193acKind = lens _acKind (\ s a -> s{_acKind = a})

194

195-- | The ad clients returned in this list response.

196−acItems :: Lens' AdClients [Maybe AdClient]

196+acItems :: Lens' AdClients [AdClient]

197acItems

198 = lens _acItems (\ s a -> s{_acItems = a}) . _Default

199 . _Coerce

@@ -221,7 +221,7 @@ data Accounts = Accounts

221 { _aEtag :: !(Maybe Text)

222 , _aNextPageToken :: !(Maybe Text)

223 , _aKind :: !Text

224− , _aItems :: !(Maybe [Maybe Account])

224+ , _aItems :: !(Maybe [Account])

225 } deriving (Eq,Read,Show,Data,Typeable,Generic)

226

227-- | Creates a value of 'Accounts' with the minimum fields required to make a request.

@@ -261,7 +261,7 @@ aKind :: Lens' Accounts Text

261aKind = lens _aKind (\ s a -> s{_aKind = a})

262

263-- | The accounts returned in this list response.

264−aItems :: Lens' Accounts [Maybe Account]

264+aItems :: Lens' Accounts [Account]

265aItems

266 = lens _aItems (\ s a -> s{_aItems = a}) . _Default .

267 _Coerce

@@ -344,7 +344,7 @@ instance ToJSON ReportHeaders where

344-- /See:/ 'alerts' smart constructor.

345data Alerts = Alerts

346 { _aleKind :: !Text

347− , _aleItems :: !(Maybe [Maybe Alert])

347+ , _aleItems :: !(Maybe [Alert])

348 } deriving (Eq,Read,Show,Data,Typeable,Generic)

349

350-- | Creates a value of 'Alerts' with the minimum fields required to make a request.

@@ -367,7 +367,7 @@ aleKind :: Lens' Alerts Text

367aleKind = lens _aleKind (\ s a -> s{_aleKind = a})

368

369-- | The alerts returned in this list response.

370−aleItems :: Lens' Alerts [Maybe Alert]

370+aleItems :: Lens' Alerts [Alert]

371aleItems

372 = lens _aleItems (\ s a -> s{_aleItems = a}) .

373 _Default

@@ -394,7 +394,7 @@ data SavedReports = SavedReports

394 { _srEtag :: !(Maybe Text)

395 , _srNextPageToken :: !(Maybe Text)

396 , _srKind :: !Text

397− , _srItems :: !(Maybe [Maybe SavedReport])

397+ , _srItems :: !(Maybe [SavedReport])

398 } deriving (Eq,Read,Show,Data,Typeable,Generic)

399

400-- | Creates a value of 'SavedReports' with the minimum fields required to make a request.

@@ -435,7 +435,7 @@ srKind :: Lens' SavedReports Text

435srKind = lens _srKind (\ s a -> s{_srKind = a})

436

437-- | The saved reports returned in this list response.

438−srItems :: Lens' SavedReports [Maybe SavedReport]

438+srItems :: Lens' SavedReports [SavedReport]

439srItems

440 = lens _srItems (\ s a -> s{_srItems = a}) . _Default

441 . _Coerce

@@ -517,7 +517,7 @@ data URLChannels = URLChannels

517 { _ucEtag :: !(Maybe Text)

518 , _ucNextPageToken :: !(Maybe Text)

519 , _ucKind :: !Text

520− , _ucItems :: !(Maybe [Maybe URLChannel])

520+ , _ucItems :: !(Maybe [URLChannel])

521 } deriving (Eq,Read,Show,Data,Typeable,Generic)

522

523-- | Creates a value of 'URLChannels' with the minimum fields required to make a request.

@@ -558,7 +558,7 @@ ucKind :: Lens' URLChannels Text

558ucKind = lens _ucKind (\ s a -> s{_ucKind = a})

559

560-- | The URL channels returned in this list response.

561−ucItems :: Lens' URLChannels [Maybe URLChannel]

561+ucItems :: Lens' URLChannels [URLChannel]

562ucItems

563 = lens _ucItems (\ s a -> s{_ucItems = a}) . _Default

564 . _Coerce

@@ -586,7 +586,7 @@ data CustomChannels = CustomChannels

586 { _ccEtag :: !(Maybe Text)

587 , _ccNextPageToken :: !(Maybe Text)

588 , _ccKind :: !Text

589− , _ccItems :: !(Maybe [Maybe CustomChannel])

589+ , _ccItems :: !(Maybe [CustomChannel])

590 } deriving (Eq,Read,Show,Data,Typeable,Generic)

591

592-- | Creates a value of 'CustomChannels' with the minimum fields required to make a request.

@@ -627,7 +627,7 @@ ccKind :: Lens' CustomChannels Text

627ccKind = lens _ccKind (\ s a -> s{_ccKind = a})

628

629-- | The custom channels returned in this list response.

630−ccItems :: Lens' CustomChannels [Maybe CustomChannel]

630+ccItems :: Lens' CustomChannels [CustomChannel]

631ccItems

632 = lens _ccItems (\ s a -> s{_ccItems = a}) . _Default

633 . _Coerce

@@ -1062,7 +1062,7 @@ instance ToJSON CustomChannelTargetingInfo where

1062-- /See:/ 'preferredDeals' smart constructor.

1063data PreferredDeals = PreferredDeals

1064 { _pdKind :: !Text

1065− , _pdItems :: !(Maybe [Maybe PreferredDeal])

1065+ , _pdItems :: !(Maybe [PreferredDeal])

1066 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1067

1068-- | Creates a value of 'PreferredDeals' with the minimum fields required to make a request.

@@ -1085,7 +1085,7 @@ pdKind :: Lens' PreferredDeals Text

1085pdKind = lens _pdKind (\ s a -> s{_pdKind = a})

1086

1087-- | The preferred deals returned in this list response.

1088−pdItems :: Lens' PreferredDeals [Maybe PreferredDeal]

1088+pdItems :: Lens' PreferredDeals [PreferredDeal]

1089pdItems

1090 = lens _pdItems (\ s a -> s{_pdItems = a}) . _Default

1091 . _Coerce

@@ -1109,7 +1109,7 @@ instance ToJSON PreferredDeals where

1109-- /See:/ 'metadata' smart constructor.

1110data Metadata = Metadata

1111 { _mKind :: !Text

1112− , _mItems :: !(Maybe [Maybe ReportingMetadataEntry])

1112+ , _mItems :: !(Maybe [ReportingMetadataEntry])

1113 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1114

1115-- | Creates a value of 'Metadata' with the minimum fields required to make a request.

@@ -1131,7 +1131,7 @@ metadata =

1131mKind :: Lens' Metadata Text

1132mKind = lens _mKind (\ s a -> s{_mKind = a})

1133

1134−mItems :: Lens' Metadata [Maybe ReportingMetadataEntry]

1134+mItems :: Lens' Metadata [ReportingMetadataEntry]

1135mItems

1136 = lens _mItems (\ s a -> s{_mItems = a}) . _Default .

1137 _Coerce

@@ -1232,7 +1232,7 @@ instance ToJSON CustomChannel where

1232data URLChannel = URLChannel

1233 { _urlcKind :: !Text

1234 , _urlcId :: !(Maybe Text)

1235− , _urlcUrlPattern :: !(Maybe Text)

1235+ , _urlcURLPattern :: !(Maybe Text)

1236 } deriving (Eq,Read,Show,Data,Typeable,Generic)

1237

1238-- | Creates a value of 'URLChannel' with the minimum fields required to make a request.

@@ -1243,14 +1243,14 @@ data URLChannel = URLChannel

1243--

1244-- * 'urlcId'

1245--

1246−-- * 'urlcUrlPattern'

1246+-- * 'urlcURLPattern'

1247uRLChannel

1248 :: URLChannel

1249uRLChannel =

1250 URLChannel

1251 { _urlcKind = "adexchangeseller#urlChannel"

1252 , _urlcId = Nothing

1253− , _urlcUrlPattern = Nothing

1253+ , _urlcURLPattern = Nothing

1254 }

1255

1256-- | Kind of resource this is, in this case adexchangeseller#urlChannel.

@@ -1265,10 +1265,10 @@ urlcId = lens _urlcId (\ s a -> s{_urlcId = a})

1265

1266-- | URL Pattern of this URL channel. Does not include \"http:\/\/\" or

1267-- \"https:\/\/\". Example: www.example.com\/home

1268−urlcUrlPattern :: Lens' URLChannel (Maybe Text)

1268+urlcURLPattern :: Lens' URLChannel (Maybe Text)

1269−urlcUrlPattern

1269+urlcURLPattern

1270− = lens _urlcUrlPattern

1270+ = lens _urlcURLPattern

1271− (\ s a -> s{_urlcUrlPattern = a})

1271+ (\ s a -> s{_urlcURLPattern = a})

1272

1273instance FromJSON URLChannel where

1274 parseJSON

@@ -1284,7 +1284,7 @@ instance ToJSON URLChannel where

1284 = object

1285 (catMaybes

1286 [Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId,

1287− ("urlPattern" .=) <$> _urlcUrlPattern])

1287+ ("urlPattern" .=) <$> _urlcURLPattern])

1288

1289--

1290-- /See:/ 'preferredDeal' smart constructor.

gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types/Sum.hs−29

@@ -16,32 +16,3 @@

16module Network.Google.AdExchangeSeller.Types.Sum where

17

18import Network.Google.Prelude

19−

20−-- | Data format for the response.

21−data Alt

22− = CSV

23− -- ^ @csv@

24− -- Responses with Content-Type of text\/csv

25− | JSON

26− -- ^ @json@

27− -- Responses with Content-Type of application\/json

28− deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

29−

30−instance Hashable Alt

31−

32−instance FromText Alt where

33− fromText = \case

34− "csv" -> Just CSV

35− "json" -> Just JSON

36− _ -> Nothing

37−

38−instance ToText Alt where

39− toText = \case

40− CSV -> "csv"

41− JSON -> "json"

42−

43−instance FromJSON Alt where

44− parseJSON = parseJSONText "Alt"

45−

46−instance ToJSON Alt where

47− toJSON = toJSONText

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/AdClients/List.hsnew file+194

@@ -0,0 +1,194 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.AdClients.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | List all ad clients in this Ad Exchange account.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsAdClientsList@.

23+module Network.Google.Resource.AdExchangeSeller.Accounts.AdClients.List

24+ (

25+ -- * REST Resource

26+ AccountsAdClientsListResource

27+

28+ -- * Creating a Request

29+ , accountsAdClientsList'

30+ , AccountsAdClientsList'

31+

32+ -- * Request Lenses

33+ , aaclQuotaUser

34+ , aaclPrettyPrint

35+ , aaclUserIP

36+ , aaclAccountId

37+ , aaclKey

38+ , aaclPageToken

39+ , aaclOAuthToken

40+ , aaclMaxResults

41+ , aaclFields

42+ ) where

43+

44+import Network.Google.AdExchangeSeller.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @AdexchangesellerAccountsAdClientsList@ which the

48+-- 'AccountsAdClientsList'' request conforms to.

49+type AccountsAdClientsListResource =

50+ "accounts" :>

51+ Capture "accountId" Text :>

52+ "adclients" :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "key" Key :>

57+ QueryParam "pageToken" Text :>

58+ QueryParam "oauth_token" OAuthToken :>

59+ QueryParam "maxResults" Word32 :>

60+ QueryParam "fields" Text :>

61+ QueryParam "alt" AltJSON :> Get '[JSON] AdClients

62+

63+-- | List all ad clients in this Ad Exchange account.

64+--

65+-- /See:/ 'accountsAdClientsList'' smart constructor.

66+data AccountsAdClientsList' = AccountsAdClientsList'

67+ { _aaclQuotaUser :: !(Maybe Text)

68+ , _aaclPrettyPrint :: !Bool

69+ , _aaclUserIP :: !(Maybe Text)

70+ , _aaclAccountId :: !Text

71+ , _aaclKey :: !(Maybe Key)

72+ , _aaclPageToken :: !(Maybe Text)

73+ , _aaclOAuthToken :: !(Maybe OAuthToken)

74+ , _aaclMaxResults :: !(Maybe Word32)

75+ , _aaclFields :: !(Maybe Text)

76+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

77+

78+-- | Creates a value of 'AccountsAdClientsList'' with the minimum fields required to make a request.

79+--

80+-- Use one of the following lenses to modify other fields as desired:

81+--

82+-- * 'aaclQuotaUser'

83+--

84+-- * 'aaclPrettyPrint'

85+--

86+-- * 'aaclUserIP'

87+--

88+-- * 'aaclAccountId'

89+--

90+-- * 'aaclKey'

91+--

92+-- * 'aaclPageToken'

93+--

94+-- * 'aaclOAuthToken'

95+--

96+-- * 'aaclMaxResults'

97+--

98+-- * 'aaclFields'

99+accountsAdClientsList'

100+ :: Text -- ^ 'accountId'

101+ -> AccountsAdClientsList'

102+accountsAdClientsList' pAaclAccountId_ =

103+ AccountsAdClientsList'

104+ { _aaclQuotaUser = Nothing

105+ , _aaclPrettyPrint = True

106+ , _aaclUserIP = Nothing

107+ , _aaclAccountId = pAaclAccountId_

108+ , _aaclKey = Nothing

109+ , _aaclPageToken = Nothing

110+ , _aaclOAuthToken = Nothing

111+ , _aaclMaxResults = Nothing

112+ , _aaclFields = Nothing

113+ }

114+

115+-- | Available to use for quota purposes for server-side applications. Can be

116+-- any arbitrary string assigned to a user, but should not exceed 40

117+-- characters. Overrides userIp if both are provided.

118+aaclQuotaUser :: Lens' AccountsAdClientsList' (Maybe Text)

119+aaclQuotaUser

120+ = lens _aaclQuotaUser

121+ (\ s a -> s{_aaclQuotaUser = a})

122+

123+-- | Returns response with indentations and line breaks.

124+aaclPrettyPrint :: Lens' AccountsAdClientsList' Bool

125+aaclPrettyPrint

126+ = lens _aaclPrettyPrint

127+ (\ s a -> s{_aaclPrettyPrint = a})

128+

129+-- | IP address of the site where the request originates. Use this if you

130+-- want to enforce per-user limits.

131+aaclUserIP :: Lens' AccountsAdClientsList' (Maybe Text)

132+aaclUserIP

133+ = lens _aaclUserIP (\ s a -> s{_aaclUserIP = a})

134+

135+-- | Account to which the ad client belongs.

136+aaclAccountId :: Lens' AccountsAdClientsList' Text

137+aaclAccountId

138+ = lens _aaclAccountId

139+ (\ s a -> s{_aaclAccountId = a})

140+

141+-- | API key. Your API key identifies your project and provides you with API

142+-- access, quota, and reports. Required unless you provide an OAuth 2.0

143+-- token.

144+aaclKey :: Lens' AccountsAdClientsList' (Maybe Key)

145+aaclKey = lens _aaclKey (\ s a -> s{_aaclKey = a})

146+

147+-- | A continuation token, used to page through ad clients. To retrieve the

148+-- next page, set this parameter to the value of \"nextPageToken\" from the

149+-- previous response.

150+aaclPageToken :: Lens' AccountsAdClientsList' (Maybe Text)

151+aaclPageToken

152+ = lens _aaclPageToken

153+ (\ s a -> s{_aaclPageToken = a})

154+

155+-- | OAuth 2.0 token for the current user.

156+aaclOAuthToken :: Lens' AccountsAdClientsList' (Maybe OAuthToken)

157+aaclOAuthToken

158+ = lens _aaclOAuthToken

159+ (\ s a -> s{_aaclOAuthToken = a})

160+

161+-- | The maximum number of ad clients to include in the response, used for

162+-- paging.

163+aaclMaxResults :: Lens' AccountsAdClientsList' (Maybe Word32)

164+aaclMaxResults

165+ = lens _aaclMaxResults

166+ (\ s a -> s{_aaclMaxResults = a})

167+

168+-- | Selector specifying which fields to include in a partial response.

169+aaclFields :: Lens' AccountsAdClientsList' (Maybe Text)

170+aaclFields

171+ = lens _aaclFields (\ s a -> s{_aaclFields = a})

172+

173+instance GoogleAuth AccountsAdClientsList' where

174+ authKey = aaclKey . _Just

175+ authToken = aaclOAuthToken . _Just

176+

177+instance GoogleRequest AccountsAdClientsList' where

178+ type Rs AccountsAdClientsList' = AdClients

179+ request = requestWithRoute defReq adExchangeSellerURL

180+ requestWithRoute r u AccountsAdClientsList'{..}

181+ = go _aaclQuotaUser (Just _aaclPrettyPrint)

182+ _aaclUserIP

183+ _aaclAccountId

184+ _aaclKey

185+ _aaclPageToken

186+ _aaclOAuthToken

187+ _aaclMaxResults

188+ _aaclFields

189+ (Just AltJSON)

190+ where go

191+ = clientWithRoute

192+ (Proxy :: Proxy AccountsAdClientsListResource)

193+ r

194+ u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Adclients/List.hsdeleted−190

@@ -1,190 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | List all ad clients in this Ad Exchange account.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsAdclientsList@.

23−module Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List

24− (

25− -- * REST Resource

26− AccountsAdclientsListResource

27−

28− -- * Creating a Request

29− , accountsAdclientsList'

30− , AccountsAdclientsList'

31−

32− -- * Request Lenses

33− , aQuotaUser

34− , aPrettyPrint

35− , aUserIp

36− , aAccountId

37− , aKey

38− , aPageToken

39− , aOauthToken

40− , aMaxResults

41− , aFields

42− , aAlt

43− ) where

44−

45−import Network.Google.AdExchangeSeller.Types

46−import Network.Google.Prelude

47−

48−-- | A resource alias for @AdexchangesellerAccountsAdclientsList@ which the

49−-- 'AccountsAdclientsList'' request conforms to.

50−type AccountsAdclientsListResource =

51− "accounts" :>

52− Capture "accountId" Text :>

53− "adclients" :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

58− QueryParam "pageToken" Text :>

59− QueryParam "oauth_token" Text :>

60− QueryParam "maxResults" Word32 :>

61− QueryParam "fields" Text :>

62− QueryParam "alt" Alt :> Get '[JSON] AdClients

63−

64−-- | List all ad clients in this Ad Exchange account.

65−--

66−-- /See:/ 'accountsAdclientsList'' smart constructor.

67−data AccountsAdclientsList' = AccountsAdclientsList'

68− { _aQuotaUser :: !(Maybe Text)

69− , _aPrettyPrint :: !Bool

70− , _aUserIp :: !(Maybe Text)

71− , _aAccountId :: !Text

72− , _aKey :: !(Maybe Text)

73− , _aPageToken :: !(Maybe Text)

74− , _aOauthToken :: !(Maybe Text)

75− , _aMaxResults :: !(Maybe Word32)

76− , _aFields :: !(Maybe Text)

77− , _aAlt :: !Alt

78− } deriving (Eq,Read,Show,Data,Typeable,Generic)

79−

80−-- | Creates a value of 'AccountsAdclientsList'' with the minimum fields required to make a request.

81−--

82−-- Use one of the following lenses to modify other fields as desired:

83−--

84−-- * 'aQuotaUser'

85−--

86−-- * 'aPrettyPrint'

87−--

88−-- * 'aUserIp'

89−--

90−-- * 'aAccountId'

91−--

92−-- * 'aKey'

93−--

94−-- * 'aPageToken'

95−--

96−-- * 'aOauthToken'

97−--

98−-- * 'aMaxResults'

99−--

100−-- * 'aFields'

101−--

102−-- * 'aAlt'

103−accountsAdclientsList'

104− :: Text -- ^ 'accountId'

105− -> AccountsAdclientsList'

106−accountsAdclientsList' pAAccountId_ =

107− AccountsAdclientsList'

108− { _aQuotaUser = Nothing

109− , _aPrettyPrint = True

110− , _aUserIp = Nothing

111− , _aAccountId = pAAccountId_

112− , _aKey = Nothing

113− , _aPageToken = Nothing

114− , _aOauthToken = Nothing

115− , _aMaxResults = Nothing

116− , _aFields = Nothing

117− , _aAlt = JSON

118− }

119−

120−-- | Available to use for quota purposes for server-side applications. Can be

121−-- any arbitrary string assigned to a user, but should not exceed 40

122−-- characters. Overrides userIp if both are provided.

123−aQuotaUser :: Lens' AccountsAdclientsList' (Maybe Text)

124−aQuotaUser

125− = lens _aQuotaUser (\ s a -> s{_aQuotaUser = a})

126−

127−-- | Returns response with indentations and line breaks.

128−aPrettyPrint :: Lens' AccountsAdclientsList' Bool

129−aPrettyPrint

130− = lens _aPrettyPrint (\ s a -> s{_aPrettyPrint = a})

131−

132−-- | IP address of the site where the request originates. Use this if you

133−-- want to enforce per-user limits.

134−aUserIp :: Lens' AccountsAdclientsList' (Maybe Text)

135−aUserIp = lens _aUserIp (\ s a -> s{_aUserIp = a})

136−

137−-- | Account to which the ad client belongs.

138−aAccountId :: Lens' AccountsAdclientsList' Text

139−aAccountId

140− = lens _aAccountId (\ s a -> s{_aAccountId = a})

141−

142−-- | API key. Your API key identifies your project and provides you with API

143−-- access, quota, and reports. Required unless you provide an OAuth 2.0

144−-- token.

145−aKey :: Lens' AccountsAdclientsList' (Maybe Text)

146−aKey = lens _aKey (\ s a -> s{_aKey = a})

147−

148−-- | A continuation token, used to page through ad clients. To retrieve the

149−-- next page, set this parameter to the value of \"nextPageToken\" from the

150−-- previous response.

151−aPageToken :: Lens' AccountsAdclientsList' (Maybe Text)

152−aPageToken

153− = lens _aPageToken (\ s a -> s{_aPageToken = a})

154−

155−-- | OAuth 2.0 token for the current user.

156−aOauthToken :: Lens' AccountsAdclientsList' (Maybe Text)

157−aOauthToken

158− = lens _aOauthToken (\ s a -> s{_aOauthToken = a})

159−

160−-- | The maximum number of ad clients to include in the response, used for

161−-- paging.

162−aMaxResults :: Lens' AccountsAdclientsList' (Maybe Word32)

163−aMaxResults

164− = lens _aMaxResults (\ s a -> s{_aMaxResults = a})

165−

166−-- | Selector specifying which fields to include in a partial response.

167−aFields :: Lens' AccountsAdclientsList' (Maybe Text)

168−aFields = lens _aFields (\ s a -> s{_aFields = a})

169−

170−-- | Data format for the response.

171−aAlt :: Lens' AccountsAdclientsList' Alt

172−aAlt = lens _aAlt (\ s a -> s{_aAlt = a})

173−

174−instance GoogleRequest AccountsAdclientsList' where

175− type Rs AccountsAdclientsList' = AdClients

176− request = requestWithRoute defReq adExchangeSellerURL

177− requestWithRoute r u AccountsAdclientsList'{..}

178− = go _aQuotaUser (Just _aPrettyPrint) _aUserIp

179− _aAccountId

180− _aKey

181− _aPageToken

182− _aOauthToken

183− _aMaxResults

184− _aFields

185− (Just _aAlt)

186− where go

187− = clientWithRoute

188− (Proxy :: Proxy AccountsAdclientsListResource)

189− r

190− u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs+26−31

@@ -32,13 +32,12 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List

32 -- * Request Lenses

33 , aalQuotaUser

34 , aalPrettyPrint

35− , aalUserIp

35+ , aalUserIP

36 , aalLocale

37 , aalAccountId

38 , aalKey

39− , aalOauthToken

39+ , aalOAuthToken

40 , aalFields

41− , aalAlt

42 ) where

41 ) where

43

42

44import Network.Google.AdExchangeSeller.Types

43import Network.Google.AdExchangeSeller.Types

@@ -54,10 +53,10 @@ type AccountsAlertsListResource =

54 QueryParam "prettyPrint" Bool :>

53 QueryParam "prettyPrint" Bool :>

55 QueryParam "userIp" Text :>

54 QueryParam "userIp" Text :>

56 QueryParam "locale" Text :>

55 QueryParam "locale" Text :>

57− QueryParam "key" Text :>

56+ QueryParam "key" Key :>

58− QueryParam "oauth_token" Text :>

57+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "fields" Text :>

58 QueryParam "fields" Text :>

60− QueryParam "alt" Alt :> Get '[JSON] Alerts

59+ QueryParam "alt" AltJSON :> Get '[JSON] Alerts

61

60

62-- | List the alerts for this Ad Exchange account.

61-- | List the alerts for this Ad Exchange account.

63--

62--

@@ -65,13 +64,12 @@ type AccountsAlertsListResource =

65data AccountsAlertsList' = AccountsAlertsList'

64data AccountsAlertsList' = AccountsAlertsList'

66 { _aalQuotaUser :: !(Maybe Text)

65 { _aalQuotaUser :: !(Maybe Text)

67 , _aalPrettyPrint :: !Bool

66 , _aalPrettyPrint :: !Bool

68− , _aalUserIp :: !(Maybe Text)

67+ , _aalUserIP :: !(Maybe Text)

69 , _aalLocale :: !(Maybe Text)

68 , _aalLocale :: !(Maybe Text)

70 , _aalAccountId :: !Text

69 , _aalAccountId :: !Text

71− , _aalKey :: !(Maybe Text)

70+ , _aalKey :: !(Maybe Key)

72− , _aalOauthToken :: !(Maybe Text)

71+ , _aalOAuthToken :: !(Maybe OAuthToken)

73 , _aalFields :: !(Maybe Text)

72 , _aalFields :: !(Maybe Text)

74− , _aalAlt :: !Alt

75 } deriving (Eq,Read,Show,Data,Typeable,Generic)

73 } deriving (Eq,Read,Show,Data,Typeable,Generic)

76

74

77-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.

75-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.

@@ -82,7 +80,7 @@ data AccountsAlertsList' = AccountsAlertsList'

82--

80--

83-- * 'aalPrettyPrint'

81-- * 'aalPrettyPrint'

84--

82--

85−-- * 'aalUserIp'

83+-- * 'aalUserIP'

86--

84--

87-- * 'aalLocale'

85-- * 'aalLocale'

88--

86--

@@ -90,11 +88,9 @@ data AccountsAlertsList' = AccountsAlertsList'

90--

88--

91-- * 'aalKey'

89-- * 'aalKey'

92--

90--

93−-- * 'aalOauthToken'

91+-- * 'aalOAuthToken'

94--

92--

95-- * 'aalFields'

93-- * 'aalFields'

96−--

97−-- * 'aalAlt'

98accountsAlertsList'

94accountsAlertsList'

99 :: Text -- ^ 'accountId'

95 :: Text -- ^ 'accountId'

100 -> AccountsAlertsList'

96 -> AccountsAlertsList'

@@ -102,13 +98,12 @@ accountsAlertsList' pAalAccountId_ =

102 AccountsAlertsList'

98 AccountsAlertsList'

103 { _aalQuotaUser = Nothing

99 { _aalQuotaUser = Nothing

104 , _aalPrettyPrint = True

100 , _aalPrettyPrint = True

105− , _aalUserIp = Nothing

101+ , _aalUserIP = Nothing

106 , _aalLocale = Nothing

102 , _aalLocale = Nothing

107 , _aalAccountId = pAalAccountId_

103 , _aalAccountId = pAalAccountId_

108 , _aalKey = Nothing

104 , _aalKey = Nothing

109− , _aalOauthToken = Nothing

105+ , _aalOAuthToken = Nothing

110 , _aalFields = Nothing

106 , _aalFields = Nothing

111− , _aalAlt = JSON

112 }

107 }

113

108

114-- | Available to use for quota purposes for server-side applications. Can be

109-- | Available to use for quota purposes for server-side applications. Can be

@@ -126,9 +121,9 @@ aalPrettyPrint

126

121

127-- | IP address of the site where the request originates. Use this if you

122-- | IP address of the site where the request originates. Use this if you

128-- want to enforce per-user limits.

123-- want to enforce per-user limits.

129−aalUserIp :: Lens' AccountsAlertsList' (Maybe Text)

124+aalUserIP :: Lens' AccountsAlertsList' (Maybe Text)

130−aalUserIp

125+aalUserIP

131− = lens _aalUserIp (\ s a -> s{_aalUserIp = a})

126+ = lens _aalUserIP (\ s a -> s{_aalUserIP = a})

132

127

133-- | The locale to use for translating alert messages. The account locale

128-- | The locale to use for translating alert messages. The account locale

134-- will be used if this is not supplied. The AdSense default (English) will

129-- will be used if this is not supplied. The AdSense default (English) will

@@ -145,35 +140,35 @@ aalAccountId

145-- | API key. Your API key identifies your project and provides you with API

140-- | API key. Your API key identifies your project and provides you with API

146-- access, quota, and reports. Required unless you provide an OAuth 2.0

141-- access, quota, and reports. Required unless you provide an OAuth 2.0

147-- token.

142-- token.

148−aalKey :: Lens' AccountsAlertsList' (Maybe Text)

143+aalKey :: Lens' AccountsAlertsList' (Maybe Key)

149aalKey = lens _aalKey (\ s a -> s{_aalKey = a})

144aalKey = lens _aalKey (\ s a -> s{_aalKey = a})

150

145

151-- | OAuth 2.0 token for the current user.

146-- | OAuth 2.0 token for the current user.

152−aalOauthToken :: Lens' AccountsAlertsList' (Maybe Text)

147+aalOAuthToken :: Lens' AccountsAlertsList' (Maybe OAuthToken)

153−aalOauthToken

148+aalOAuthToken

154− = lens _aalOauthToken

149+ = lens _aalOAuthToken

155− (\ s a -> s{_aalOauthToken = a})

150+ (\ s a -> s{_aalOAuthToken = a})

156

151

157-- | Selector specifying which fields to include in a partial response.

152-- | Selector specifying which fields to include in a partial response.

158aalFields :: Lens' AccountsAlertsList' (Maybe Text)

153aalFields :: Lens' AccountsAlertsList' (Maybe Text)

159aalFields

154aalFields

160 = lens _aalFields (\ s a -> s{_aalFields = a})

155 = lens _aalFields (\ s a -> s{_aalFields = a})

161

156

162−-- | Data format for the response.

163−aalAlt :: Lens' AccountsAlertsList' Alt

157+instance GoogleAuth AccountsAlertsList' where

164−aalAlt = lens _aalAlt (\ s a -> s{_aalAlt = a})

158+ authKey = aalKey . _Just

159+ authToken = aalOAuthToken . _Just

165

160

166instance GoogleRequest AccountsAlertsList' where

161instance GoogleRequest AccountsAlertsList' where

167 type Rs AccountsAlertsList' = Alerts

162 type Rs AccountsAlertsList' = Alerts

168 request = requestWithRoute defReq adExchangeSellerURL

163 request = requestWithRoute defReq adExchangeSellerURL

169 requestWithRoute r u AccountsAlertsList'{..}

164 requestWithRoute r u AccountsAlertsList'{..}

170− = go _aalQuotaUser (Just _aalPrettyPrint) _aalUserIp

165+ = go _aalQuotaUser (Just _aalPrettyPrint) _aalUserIP

171 _aalLocale

166 _aalLocale

172 _aalAccountId

167 _aalAccountId

173 _aalKey

168 _aalKey

174− _aalOauthToken

169+ _aalOAuthToken

175 _aalFields

170 _aalFields

176− (Just _aalAlt)

171+ (Just AltJSON)

177 where go

172 where go

178 = clientWithRoute

173 = clientWithRoute

179 (Proxy :: Proxy AccountsAlertsListResource)

174 (Proxy :: Proxy AccountsAlertsListResource)

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/Get.hsnew file+196

@@ -0,0 +1,196 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.Get

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Get the specified custom channel from the specified ad client.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomChannelsGet@.

23+module Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.Get

24+ (

25+ -- * REST Resource

26+ AccountsCustomChannelsGetResource

27+

28+ -- * Creating a Request

29+ , accountsCustomChannelsGet'

30+ , AccountsCustomChannelsGet'

31+

32+ -- * Request Lenses

33+ , accgQuotaUser

34+ , accgPrettyPrint

35+ , accgCustomChannelId

36+ , accgUserIP

37+ , accgAdClientId

38+ , accgAccountId

39+ , accgKey

40+ , accgOAuthToken

41+ , accgFields

42+ ) where

43+

44+import Network.Google.AdExchangeSeller.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @AdexchangesellerAccountsCustomChannelsGet@ which the

48+-- 'AccountsCustomChannelsGet'' request conforms to.

49+type AccountsCustomChannelsGetResource =

50+ "accounts" :>

51+ Capture "accountId" Text :>

52+ "adclients" :>

53+ Capture "adClientId" Text :>

54+ "customchannels" :>

55+ Capture "customChannelId" Text :>

56+ QueryParam "quotaUser" Text :>

57+ QueryParam "prettyPrint" Bool :>

58+ QueryParam "userIp" Text :>

59+ QueryParam "key" Key :>

60+ QueryParam "oauth_token" OAuthToken :>

61+ QueryParam "fields" Text :>

62+ QueryParam "alt" AltJSON :>

63+ Get '[JSON] CustomChannel

64+

65+-- | Get the specified custom channel from the specified ad client.

66+--

67+-- /See:/ 'accountsCustomChannelsGet'' smart constructor.

68+data AccountsCustomChannelsGet' = AccountsCustomChannelsGet'

69+ { _accgQuotaUser :: !(Maybe Text)

70+ , _accgPrettyPrint :: !Bool

71+ , _accgCustomChannelId :: !Text

72+ , _accgUserIP :: !(Maybe Text)

73+ , _accgAdClientId :: !Text

74+ , _accgAccountId :: !Text

75+ , _accgKey :: !(Maybe Key)

76+ , _accgOAuthToken :: !(Maybe OAuthToken)

77+ , _accgFields :: !(Maybe Text)

78+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

79+

80+-- | Creates a value of 'AccountsCustomChannelsGet'' with the minimum fields required to make a request.

81+--

82+-- Use one of the following lenses to modify other fields as desired:

83+--

84+-- * 'accgQuotaUser'

85+--

86+-- * 'accgPrettyPrint'

87+--

88+-- * 'accgCustomChannelId'

89+--

90+-- * 'accgUserIP'

91+--

92+-- * 'accgAdClientId'

93+--

94+-- * 'accgAccountId'

95+--

96+-- * 'accgKey'

97+--

98+-- * 'accgOAuthToken'

99+--

100+-- * 'accgFields'

101+accountsCustomChannelsGet'

102+ :: Text -- ^ 'customChannelId'

103+ -> Text -- ^ 'adClientId'

104+ -> Text -- ^ 'accountId'

105+ -> AccountsCustomChannelsGet'

106+accountsCustomChannelsGet' pAccgCustomChannelId_ pAccgAdClientId_ pAccgAccountId_ =

107+ AccountsCustomChannelsGet'

108+ { _accgQuotaUser = Nothing

109+ , _accgPrettyPrint = True

110+ , _accgCustomChannelId = pAccgCustomChannelId_

111+ , _accgUserIP = Nothing

112+ , _accgAdClientId = pAccgAdClientId_

113+ , _accgAccountId = pAccgAccountId_

114+ , _accgKey = Nothing

115+ , _accgOAuthToken = Nothing

116+ , _accgFields = Nothing

117+ }

118+

119+-- | Available to use for quota purposes for server-side applications. Can be

120+-- any arbitrary string assigned to a user, but should not exceed 40

121+-- characters. Overrides userIp if both are provided.

122+accgQuotaUser :: Lens' AccountsCustomChannelsGet' (Maybe Text)

123+accgQuotaUser

124+ = lens _accgQuotaUser

125+ (\ s a -> s{_accgQuotaUser = a})

126+

127+-- | Returns response with indentations and line breaks.

128+accgPrettyPrint :: Lens' AccountsCustomChannelsGet' Bool

129+accgPrettyPrint

130+ = lens _accgPrettyPrint

131+ (\ s a -> s{_accgPrettyPrint = a})

132+

133+-- | Custom channel to retrieve.

134+accgCustomChannelId :: Lens' AccountsCustomChannelsGet' Text

135+accgCustomChannelId

136+ = lens _accgCustomChannelId

137+ (\ s a -> s{_accgCustomChannelId = a})

138+

139+-- | IP address of the site where the request originates. Use this if you

140+-- want to enforce per-user limits.

141+accgUserIP :: Lens' AccountsCustomChannelsGet' (Maybe Text)

142+accgUserIP

143+ = lens _accgUserIP (\ s a -> s{_accgUserIP = a})

144+

145+-- | Ad client which contains the custom channel.

146+accgAdClientId :: Lens' AccountsCustomChannelsGet' Text

147+accgAdClientId

148+ = lens _accgAdClientId

149+ (\ s a -> s{_accgAdClientId = a})

150+

151+-- | Account to which the ad client belongs.

152+accgAccountId :: Lens' AccountsCustomChannelsGet' Text

153+accgAccountId

154+ = lens _accgAccountId

155+ (\ s a -> s{_accgAccountId = a})

156+

157+-- | API key. Your API key identifies your project and provides you with API

158+-- access, quota, and reports. Required unless you provide an OAuth 2.0

159+-- token.

160+accgKey :: Lens' AccountsCustomChannelsGet' (Maybe Key)

161+accgKey = lens _accgKey (\ s a -> s{_accgKey = a})

162+

163+-- | OAuth 2.0 token for the current user.

164+accgOAuthToken :: Lens' AccountsCustomChannelsGet' (Maybe OAuthToken)

165+accgOAuthToken

166+ = lens _accgOAuthToken

167+ (\ s a -> s{_accgOAuthToken = a})

168+

169+-- | Selector specifying which fields to include in a partial response.

170+accgFields :: Lens' AccountsCustomChannelsGet' (Maybe Text)

171+accgFields

172+ = lens _accgFields (\ s a -> s{_accgFields = a})

173+

174+instance GoogleAuth AccountsCustomChannelsGet' where

175+ authKey = accgKey . _Just

176+ authToken = accgOAuthToken . _Just

177+

178+instance GoogleRequest AccountsCustomChannelsGet'

179+ where

180+ type Rs AccountsCustomChannelsGet' = CustomChannel

181+ request = requestWithRoute defReq adExchangeSellerURL

182+ requestWithRoute r u AccountsCustomChannelsGet'{..}

183+ = go _accgQuotaUser (Just _accgPrettyPrint)

184+ _accgCustomChannelId

185+ _accgUserIP

186+ _accgAdClientId

187+ _accgAccountId

188+ _accgKey

189+ _accgOAuthToken

190+ _accgFields

191+ (Just AltJSON)

192+ where go

193+ = clientWithRoute

194+ (Proxy :: Proxy AccountsCustomChannelsGetResource)

195+ r

196+ u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/List.hsnew file+213

@@ -0,0 +1,213 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | List all custom channels in the specified ad client for this Ad Exchange

21+-- account.

22+--

23+-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomChannelsList@.

24+module Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.List

25+ (

26+ -- * REST Resource

27+ AccountsCustomChannelsListResource

28+

29+ -- * Creating a Request

30+ , accountsCustomChannelsList'

31+ , AccountsCustomChannelsList'

32+

33+ -- * Request Lenses

34+ , acclQuotaUser

35+ , acclPrettyPrint

36+ , acclUserIP

37+ , acclAdClientId

38+ , acclAccountId

39+ , acclKey

40+ , acclPageToken

41+ , acclOAuthToken

42+ , acclMaxResults

43+ , acclFields

44+ ) where

45+

46+import Network.Google.AdExchangeSeller.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @AdexchangesellerAccountsCustomChannelsList@ which the

50+-- 'AccountsCustomChannelsList'' request conforms to.

51+type AccountsCustomChannelsListResource =

52+ "accounts" :>

53+ Capture "accountId" Text :>

54+ "adclients" :>

55+ Capture "adClientId" Text :>

56+ "customchannels" :>

57+ QueryParam "quotaUser" Text :>

58+ QueryParam "prettyPrint" Bool :>

59+ QueryParam "userIp" Text :>

60+ QueryParam "key" Key :>

61+ QueryParam "pageToken" Text :>

62+ QueryParam "oauth_token" OAuthToken :>

63+ QueryParam "maxResults" Word32 :>

64+ QueryParam "fields" Text :>

65+ QueryParam "alt" AltJSON :>

66+ Get '[JSON] CustomChannels

67+

68+-- | List all custom channels in the specified ad client for this Ad Exchange

69+-- account.

70+--

71+-- /See:/ 'accountsCustomChannelsList'' smart constructor.

72+data AccountsCustomChannelsList' = AccountsCustomChannelsList'

73+ { _acclQuotaUser :: !(Maybe Text)

74+ , _acclPrettyPrint :: !Bool

75+ , _acclUserIP :: !(Maybe Text)

76+ , _acclAdClientId :: !Text

77+ , _acclAccountId :: !Text

78+ , _acclKey :: !(Maybe Key)

79+ , _acclPageToken :: !(Maybe Text)

80+ , _acclOAuthToken :: !(Maybe OAuthToken)

81+ , _acclMaxResults :: !(Maybe Word32)

82+ , _acclFields :: !(Maybe Text)

83+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

84+

85+-- | Creates a value of 'AccountsCustomChannelsList'' with the minimum fields required to make a request.

86+--

87+-- Use one of the following lenses to modify other fields as desired:

88+--

89+-- * 'acclQuotaUser'

90+--

91+-- * 'acclPrettyPrint'

92+--

93+-- * 'acclUserIP'

94+--

95+-- * 'acclAdClientId'

96+--

97+-- * 'acclAccountId'

98+--

99+-- * 'acclKey'

100+--

101+-- * 'acclPageToken'

102+--

103+-- * 'acclOAuthToken'

104+--

105+-- * 'acclMaxResults'

106+--

107+-- * 'acclFields'

108+accountsCustomChannelsList'

109+ :: Text -- ^ 'adClientId'

110+ -> Text -- ^ 'accountId'

111+ -> AccountsCustomChannelsList'

112+accountsCustomChannelsList' pAcclAdClientId_ pAcclAccountId_ =

113+ AccountsCustomChannelsList'

114+ { _acclQuotaUser = Nothing

115+ , _acclPrettyPrint = True

116+ , _acclUserIP = Nothing

117+ , _acclAdClientId = pAcclAdClientId_

118+ , _acclAccountId = pAcclAccountId_

119+ , _acclKey = Nothing

120+ , _acclPageToken = Nothing

121+ , _acclOAuthToken = Nothing

122+ , _acclMaxResults = Nothing

123+ , _acclFields = Nothing

124+ }

125+

126+-- | Available to use for quota purposes for server-side applications. Can be

127+-- any arbitrary string assigned to a user, but should not exceed 40

128+-- characters. Overrides userIp if both are provided.

129+acclQuotaUser :: Lens' AccountsCustomChannelsList' (Maybe Text)

130+acclQuotaUser

131+ = lens _acclQuotaUser

132+ (\ s a -> s{_acclQuotaUser = a})

133+

134+-- | Returns response with indentations and line breaks.

135+acclPrettyPrint :: Lens' AccountsCustomChannelsList' Bool

136+acclPrettyPrint

137+ = lens _acclPrettyPrint

138+ (\ s a -> s{_acclPrettyPrint = a})

139+

140+-- | IP address of the site where the request originates. Use this if you

141+-- want to enforce per-user limits.

142+acclUserIP :: Lens' AccountsCustomChannelsList' (Maybe Text)

143+acclUserIP

144+ = lens _acclUserIP (\ s a -> s{_acclUserIP = a})

145+

146+-- | Ad client for which to list custom channels.

147+acclAdClientId :: Lens' AccountsCustomChannelsList' Text

148+acclAdClientId

149+ = lens _acclAdClientId

150+ (\ s a -> s{_acclAdClientId = a})

151+

152+-- | Account to which the ad client belongs.

153+acclAccountId :: Lens' AccountsCustomChannelsList' Text

154+acclAccountId

155+ = lens _acclAccountId

156+ (\ s a -> s{_acclAccountId = a})

157+

158+-- | API key. Your API key identifies your project and provides you with API

159+-- access, quota, and reports. Required unless you provide an OAuth 2.0

160+-- token.

161+acclKey :: Lens' AccountsCustomChannelsList' (Maybe Key)

162+acclKey = lens _acclKey (\ s a -> s{_acclKey = a})

163+

164+-- | A continuation token, used to page through custom channels. To retrieve

165+-- the next page, set this parameter to the value of \"nextPageToken\" from

166+-- the previous response.

167+acclPageToken :: Lens' AccountsCustomChannelsList' (Maybe Text)

168+acclPageToken

169+ = lens _acclPageToken

170+ (\ s a -> s{_acclPageToken = a})

171+

172+-- | OAuth 2.0 token for the current user.

173+acclOAuthToken :: Lens' AccountsCustomChannelsList' (Maybe OAuthToken)

174+acclOAuthToken

175+ = lens _acclOAuthToken

176+ (\ s a -> s{_acclOAuthToken = a})

177+

178+-- | The maximum number of custom channels to include in the response, used

179+-- for paging.

180+acclMaxResults :: Lens' AccountsCustomChannelsList' (Maybe Word32)

181+acclMaxResults

182+ = lens _acclMaxResults

183+ (\ s a -> s{_acclMaxResults = a})

184+

185+-- | Selector specifying which fields to include in a partial response.

186+acclFields :: Lens' AccountsCustomChannelsList' (Maybe Text)

187+acclFields

188+ = lens _acclFields (\ s a -> s{_acclFields = a})

189+

190+instance GoogleAuth AccountsCustomChannelsList' where

191+ authKey = acclKey . _Just

192+ authToken = acclOAuthToken . _Just

193+

194+instance GoogleRequest AccountsCustomChannelsList'

195+ where

196+ type Rs AccountsCustomChannelsList' = CustomChannels

197+ request = requestWithRoute defReq adExchangeSellerURL

198+ requestWithRoute r u AccountsCustomChannelsList'{..}

199+ = go _acclQuotaUser (Just _acclPrettyPrint)

200+ _acclUserIP

201+ _acclAdClientId

202+ _acclAccountId

203+ _acclKey

204+ _acclPageToken

205+ _acclOAuthToken

206+ _acclMaxResults

207+ _acclFields

208+ (Just AltJSON)

209+ where go

210+ = clientWithRoute

211+ (Proxy :: Proxy AccountsCustomChannelsListResource)

212+ r

213+ u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Customchannels/Get.hsdeleted−198

@@ -1,198 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Get the specified custom channel from the specified ad client.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomchannelsGet@.

23−module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get

24− (

25− -- * REST Resource

26− AccountsCustomchannelsGetResource

27−

28− -- * Creating a Request

29− , accountsCustomchannelsGet'

30− , AccountsCustomchannelsGet'

31−

32− -- * Request Lenses

33− , acgQuotaUser

34− , acgPrettyPrint

35− , acgCustomChannelId

36− , acgUserIp

37− , acgAdClientId

38− , acgAccountId

39− , acgKey

40− , acgOauthToken

41− , acgFields

42− , acgAlt

43− ) where

44−

45−import Network.Google.AdExchangeSeller.Types

46−import Network.Google.Prelude

47−

48−-- | A resource alias for @AdexchangesellerAccountsCustomchannelsGet@ which the

49−-- 'AccountsCustomchannelsGet'' request conforms to.

50−type AccountsCustomchannelsGetResource =

51− "accounts" :>

52− Capture "accountId" Text :>

53− "adclients" :>

54− Capture "adClientId" Text :>

55− "customchannels" :>

56− Capture "customChannelId" Text :>

57− QueryParam "quotaUser" Text :>

58− QueryParam "prettyPrint" Bool :>

59− QueryParam "userIp" Text :>

60− QueryParam "key" Text :>

61− QueryParam "oauth_token" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "alt" Alt :> Get '[JSON] CustomChannel

64−

65−-- | Get the specified custom channel from the specified ad client.

66−--

67−-- /See:/ 'accountsCustomchannelsGet'' smart constructor.

68−data AccountsCustomchannelsGet' = AccountsCustomchannelsGet'

69− { _acgQuotaUser :: !(Maybe Text)

70− , _acgPrettyPrint :: !Bool

71− , _acgCustomChannelId :: !Text

72− , _acgUserIp :: !(Maybe Text)

73− , _acgAdClientId :: !Text

74− , _acgAccountId :: !Text

75− , _acgKey :: !(Maybe Text)

76− , _acgOauthToken :: !(Maybe Text)

77− , _acgFields :: !(Maybe Text)

78− , _acgAlt :: !Alt

79− } deriving (Eq,Read,Show,Data,Typeable,Generic)

80−

81−-- | Creates a value of 'AccountsCustomchannelsGet'' with the minimum fields required to make a request.

82−--

83−-- Use one of the following lenses to modify other fields as desired:

84−--

85−-- * 'acgQuotaUser'

86−--

87−-- * 'acgPrettyPrint'

88−--

89−-- * 'acgCustomChannelId'

90−--

91−-- * 'acgUserIp'

92−--

93−-- * 'acgAdClientId'

94−--

95−-- * 'acgAccountId'

96−--

97−-- * 'acgKey'

98−--

99−-- * 'acgOauthToken'

100−--

101−-- * 'acgFields'

102−--

103−-- * 'acgAlt'

104−accountsCustomchannelsGet'

105− :: Text -- ^ 'customChannelId'

106− -> Text -- ^ 'adClientId'

107− -> Text -- ^ 'accountId'

108− -> AccountsCustomchannelsGet'

109−accountsCustomchannelsGet' pAcgCustomChannelId_ pAcgAdClientId_ pAcgAccountId_ =

110− AccountsCustomchannelsGet'

111− { _acgQuotaUser = Nothing

112− , _acgPrettyPrint = True

113− , _acgCustomChannelId = pAcgCustomChannelId_

114− , _acgUserIp = Nothing

115− , _acgAdClientId = pAcgAdClientId_

116− , _acgAccountId = pAcgAccountId_

117− , _acgKey = Nothing

118− , _acgOauthToken = Nothing

119− , _acgFields = Nothing

120− , _acgAlt = JSON

121− }

122−

123−-- | Available to use for quota purposes for server-side applications. Can be

124−-- any arbitrary string assigned to a user, but should not exceed 40

125−-- characters. Overrides userIp if both are provided.

126−acgQuotaUser :: Lens' AccountsCustomchannelsGet' (Maybe Text)

127−acgQuotaUser

128− = lens _acgQuotaUser (\ s a -> s{_acgQuotaUser = a})

129−

130−-- | Returns response with indentations and line breaks.

131−acgPrettyPrint :: Lens' AccountsCustomchannelsGet' Bool

132−acgPrettyPrint

133− = lens _acgPrettyPrint

134− (\ s a -> s{_acgPrettyPrint = a})

135−

136−-- | Custom channel to retrieve.

137−acgCustomChannelId :: Lens' AccountsCustomchannelsGet' Text

138−acgCustomChannelId

139− = lens _acgCustomChannelId

140− (\ s a -> s{_acgCustomChannelId = a})

141−

142−-- | IP address of the site where the request originates. Use this if you

143−-- want to enforce per-user limits.

144−acgUserIp :: Lens' AccountsCustomchannelsGet' (Maybe Text)

145−acgUserIp

146− = lens _acgUserIp (\ s a -> s{_acgUserIp = a})

147−

148−-- | Ad client which contains the custom channel.

149−acgAdClientId :: Lens' AccountsCustomchannelsGet' Text

150−acgAdClientId

151− = lens _acgAdClientId

152− (\ s a -> s{_acgAdClientId = a})

153−

154−-- | Account to which the ad client belongs.

155−acgAccountId :: Lens' AccountsCustomchannelsGet' Text

156−acgAccountId

157− = lens _acgAccountId (\ s a -> s{_acgAccountId = a})

158−

159−-- | API key. Your API key identifies your project and provides you with API

160−-- access, quota, and reports. Required unless you provide an OAuth 2.0

161−-- token.

162−acgKey :: Lens' AccountsCustomchannelsGet' (Maybe Text)

163−acgKey = lens _acgKey (\ s a -> s{_acgKey = a})

164−

165−-- | OAuth 2.0 token for the current user.

166−acgOauthToken :: Lens' AccountsCustomchannelsGet' (Maybe Text)

167−acgOauthToken

168− = lens _acgOauthToken

169− (\ s a -> s{_acgOauthToken = a})

170−

171−-- | Selector specifying which fields to include in a partial response.

172−acgFields :: Lens' AccountsCustomchannelsGet' (Maybe Text)

173−acgFields

174− = lens _acgFields (\ s a -> s{_acgFields = a})

175−

176−-- | Data format for the response.

177−acgAlt :: Lens' AccountsCustomchannelsGet' Alt

178−acgAlt = lens _acgAlt (\ s a -> s{_acgAlt = a})

179−

180−instance GoogleRequest AccountsCustomchannelsGet'

181− where

182− type Rs AccountsCustomchannelsGet' = CustomChannel

183− request = requestWithRoute defReq adExchangeSellerURL

184− requestWithRoute r u AccountsCustomchannelsGet'{..}

185− = go _acgQuotaUser (Just _acgPrettyPrint)

186− _acgCustomChannelId

187− _acgUserIp

188− _acgAdClientId

189− _acgAccountId

190− _acgKey

191− _acgOauthToken

192− _acgFields

193− (Just _acgAlt)

194− where go

195− = clientWithRoute

196− (Proxy :: Proxy AccountsCustomchannelsGetResource)

197− r

198− u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Customchannels/List.hsdeleted−214

@@ -1,214 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | List all custom channels in the specified ad client for this Ad Exchange

21−-- account.

22−--

23−-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomchannelsList@.

24−module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List

25− (

26− -- * REST Resource

27− AccountsCustomchannelsListResource

28−

29− -- * Creating a Request

30− , accountsCustomchannelsList'

31− , AccountsCustomchannelsList'

32−

33− -- * Request Lenses

34− , aclQuotaUser

35− , aclPrettyPrint

36− , aclUserIp

37− , aclAdClientId

38− , aclAccountId

39− , aclKey

40− , aclPageToken

41− , aclOauthToken

42− , aclMaxResults

43− , aclFields

44− , aclAlt

45− ) where

46−

47−import Network.Google.AdExchangeSeller.Types

48−import Network.Google.Prelude

49−

50−-- | A resource alias for @AdexchangesellerAccountsCustomchannelsList@ which the

51−-- 'AccountsCustomchannelsList'' request conforms to.

52−type AccountsCustomchannelsListResource =

53− "accounts" :>

54− Capture "accountId" Text :>

55− "adclients" :>

56− Capture "adClientId" Text :>

57− "customchannels" :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "key" Text :>

62− QueryParam "pageToken" Text :>

63− QueryParam "oauth_token" Text :>

64− QueryParam "maxResults" Word32 :>

65− QueryParam "fields" Text :>

66− QueryParam "alt" Alt :>

67− Get '[JSON] CustomChannels

68−

69−-- | List all custom channels in the specified ad client for this Ad Exchange

70−-- account.

71−--

72−-- /See:/ 'accountsCustomchannelsList'' smart constructor.

73−data AccountsCustomchannelsList' = AccountsCustomchannelsList'

74− { _aclQuotaUser :: !(Maybe Text)

75− , _aclPrettyPrint :: !Bool

76− , _aclUserIp :: !(Maybe Text)

77− , _aclAdClientId :: !Text

78− , _aclAccountId :: !Text

79− , _aclKey :: !(Maybe Text)

80− , _aclPageToken :: !(Maybe Text)

81− , _aclOauthToken :: !(Maybe Text)

82− , _aclMaxResults :: !(Maybe Word32)

83− , _aclFields :: !(Maybe Text)

84− , _aclAlt :: !Alt

85− } deriving (Eq,Read,Show,Data,Typeable,Generic)

86−

87−-- | Creates a value of 'AccountsCustomchannelsList'' with the minimum fields required to make a request.

88−--

89−-- Use one of the following lenses to modify other fields as desired:

90−--

91−-- * 'aclQuotaUser'

92−--

93−-- * 'aclPrettyPrint'

94−--

95−-- * 'aclUserIp'

96−--

97−-- * 'aclAdClientId'

98−--

99−-- * 'aclAccountId'

100−--

101−-- * 'aclKey'

102−--

103−-- * 'aclPageToken'

104−--

105−-- * 'aclOauthToken'

106−--

107−-- * 'aclMaxResults'

108−--

109−-- * 'aclFields'

110−--

111−-- * 'aclAlt'

112−accountsCustomchannelsList'

113− :: Text -- ^ 'adClientId'

114− -> Text -- ^ 'accountId'

115− -> AccountsCustomchannelsList'

116−accountsCustomchannelsList' pAclAdClientId_ pAclAccountId_ =

117− AccountsCustomchannelsList'

118− { _aclQuotaUser = Nothing

119− , _aclPrettyPrint = True

120− , _aclUserIp = Nothing

121− , _aclAdClientId = pAclAdClientId_

122− , _aclAccountId = pAclAccountId_

123− , _aclKey = Nothing

124− , _aclPageToken = Nothing

125− , _aclOauthToken = Nothing

126− , _aclMaxResults = Nothing

127− , _aclFields = Nothing

128− , _aclAlt = JSON

129− }

130−

131−-- | Available to use for quota purposes for server-side applications. Can be

132−-- any arbitrary string assigned to a user, but should not exceed 40

133−-- characters. Overrides userIp if both are provided.

134−aclQuotaUser :: Lens' AccountsCustomchannelsList' (Maybe Text)

135−aclQuotaUser

136− = lens _aclQuotaUser (\ s a -> s{_aclQuotaUser = a})

137−

138−-- | Returns response with indentations and line breaks.

139−aclPrettyPrint :: Lens' AccountsCustomchannelsList' Bool

140−aclPrettyPrint

141− = lens _aclPrettyPrint

142− (\ s a -> s{_aclPrettyPrint = a})

143−

144−-- | IP address of the site where the request originates. Use this if you

145−-- want to enforce per-user limits.

146−aclUserIp :: Lens' AccountsCustomchannelsList' (Maybe Text)

147−aclUserIp

148− = lens _aclUserIp (\ s a -> s{_aclUserIp = a})

149−

150−-- | Ad client for which to list custom channels.

151−aclAdClientId :: Lens' AccountsCustomchannelsList' Text

152−aclAdClientId

153− = lens _aclAdClientId

154− (\ s a -> s{_aclAdClientId = a})

155−

156−-- | Account to which the ad client belongs.

157−aclAccountId :: Lens' AccountsCustomchannelsList' Text

158−aclAccountId

159− = lens _aclAccountId (\ s a -> s{_aclAccountId = a})

160−

161−-- | API key. Your API key identifies your project and provides you with API

162−-- access, quota, and reports. Required unless you provide an OAuth 2.0

163−-- token.

164−aclKey :: Lens' AccountsCustomchannelsList' (Maybe Text)

165−aclKey = lens _aclKey (\ s a -> s{_aclKey = a})

166−

167−-- | A continuation token, used to page through custom channels. To retrieve

168−-- the next page, set this parameter to the value of \"nextPageToken\" from

169−-- the previous response.

170−aclPageToken :: Lens' AccountsCustomchannelsList' (Maybe Text)

171−aclPageToken

172− = lens _aclPageToken (\ s a -> s{_aclPageToken = a})

173−

174−-- | OAuth 2.0 token for the current user.

175−aclOauthToken :: Lens' AccountsCustomchannelsList' (Maybe Text)

176−aclOauthToken

177− = lens _aclOauthToken

178− (\ s a -> s{_aclOauthToken = a})

179−

180−-- | The maximum number of custom channels to include in the response, used

181−-- for paging.

182−aclMaxResults :: Lens' AccountsCustomchannelsList' (Maybe Word32)

183−aclMaxResults

184− = lens _aclMaxResults

185− (\ s a -> s{_aclMaxResults = a})

186−

187−-- | Selector specifying which fields to include in a partial response.

188−aclFields :: Lens' AccountsCustomchannelsList' (Maybe Text)

189−aclFields

190− = lens _aclFields (\ s a -> s{_aclFields = a})

191−

192−-- | Data format for the response.

193−aclAlt :: Lens' AccountsCustomchannelsList' Alt

194−aclAlt = lens _aclAlt (\ s a -> s{_aclAlt = a})

195−

196−instance GoogleRequest AccountsCustomchannelsList'

197− where

198− type Rs AccountsCustomchannelsList' = CustomChannels

199− request = requestWithRoute defReq adExchangeSellerURL

200− requestWithRoute r u AccountsCustomchannelsList'{..}

201− = go _aclQuotaUser (Just _aclPrettyPrint) _aclUserIp

202− _aclAdClientId

203− _aclAccountId

204− _aclKey

205− _aclPageToken

206− _aclOauthToken

207− _aclMaxResults

208− _aclFields

209− (Just _aclAlt)

210− where go

211− = clientWithRoute

212− (Proxy :: Proxy AccountsCustomchannelsListResource)

213− r

214− u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs+24−29

@@ -32,12 +32,11 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Get

32 -- * Request Lenses

33 , agQuotaUser

34 , agPrettyPrint

35− , agUserIp

35+ , agUserIP

36 , agAccountId

37 , agKey

38− , agOauthToken

38+ , agOAuthToken

39 , agFields

40− , agAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeSeller.Types

42import Network.Google.AdExchangeSeller.Types

@@ -51,10 +50,10 @@ type AccountsGetResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

55 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] Account

56+ QueryParam "alt" AltJSON :> Get '[JSON] Account

58

57

59-- | Get information about the selected Ad Exchange account.

58-- | Get information about the selected Ad Exchange account.

60--

59--

@@ -62,12 +61,11 @@ type AccountsGetResource =

62data AccountsGet' = AccountsGet'

61data AccountsGet' = AccountsGet'

63 { _agQuotaUser :: !(Maybe Text)

62 { _agQuotaUser :: !(Maybe Text)

64 , _agPrettyPrint :: !Bool

63 , _agPrettyPrint :: !Bool

65− , _agUserIp :: !(Maybe Text)

64+ , _agUserIP :: !(Maybe Text)

66 , _agAccountId :: !Text

65 , _agAccountId :: !Text

67− , _agKey :: !(Maybe Text)

66+ , _agKey :: !(Maybe Key)

68− , _agOauthToken :: !(Maybe Text)

67+ , _agOAuthToken :: !(Maybe OAuthToken)

69 , _agFields :: !(Maybe Text)

68 , _agFields :: !(Maybe Text)

70− , _agAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

70

73-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.

71-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.

@@ -78,17 +76,15 @@ data AccountsGet' = AccountsGet'

78--

76--

79-- * 'agPrettyPrint'

77-- * 'agPrettyPrint'

80--

78--

81−-- * 'agUserIp'

79+-- * 'agUserIP'

82--

80--

83-- * 'agAccountId'

81-- * 'agAccountId'

84--

82--

85-- * 'agKey'

83-- * 'agKey'

86--

84--

87−-- * 'agOauthToken'

85+-- * 'agOAuthToken'

88--

86--

89-- * 'agFields'

87-- * 'agFields'

90−--

91−-- * 'agAlt'

92accountsGet'

88accountsGet'

93 :: Text -- ^ 'accountId'

89 :: Text -- ^ 'accountId'

94 -> AccountsGet'

90 -> AccountsGet'

@@ -96,12 +92,11 @@ accountsGet' pAgAccountId_ =

96 AccountsGet'

92 AccountsGet'

97 { _agQuotaUser = Nothing

93 { _agQuotaUser = Nothing

98 , _agPrettyPrint = True

94 , _agPrettyPrint = True

99− , _agUserIp = Nothing

95+ , _agUserIP = Nothing

100 , _agAccountId = pAgAccountId_

96 , _agAccountId = pAgAccountId_

101 , _agKey = Nothing

97 , _agKey = Nothing

102− , _agOauthToken = Nothing

98+ , _agOAuthToken = Nothing

103 , _agFields = Nothing

99 , _agFields = Nothing

104− , _agAlt = JSON

105 }

100 }

106

101

107-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,8 +114,8 @@ agPrettyPrint

119

114

120-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

116-- want to enforce per-user limits.

122−agUserIp :: Lens' AccountsGet' (Maybe Text)

117+agUserIP :: Lens' AccountsGet' (Maybe Text)

123−agUserIp = lens _agUserIp (\ s a -> s{_agUserIp = a})

118+agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

124

119

125-- | Account to get information about. Tip: \'myaccount\' is a valid ID.

120-- | Account to get information about. Tip: \'myaccount\' is a valid ID.

126agAccountId :: Lens' AccountsGet' Text

121agAccountId :: Lens' AccountsGet' Text

@@ -130,32 +125,32 @@ agAccountId

130-- | API key. Your API key identifies your project and provides you with API

125-- | API key. Your API key identifies your project and provides you with API

131-- access, quota, and reports. Required unless you provide an OAuth 2.0

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

132-- token.

127-- token.

133−agKey :: Lens' AccountsGet' (Maybe Text)

128+agKey :: Lens' AccountsGet' (Maybe Key)

134agKey = lens _agKey (\ s a -> s{_agKey = a})

129agKey = lens _agKey (\ s a -> s{_agKey = a})

135

130

136-- | OAuth 2.0 token for the current user.

131-- | OAuth 2.0 token for the current user.

137−agOauthToken :: Lens' AccountsGet' (Maybe Text)

132+agOAuthToken :: Lens' AccountsGet' (Maybe OAuthToken)

138−agOauthToken

133+agOAuthToken

139− = lens _agOauthToken (\ s a -> s{_agOauthToken = a})

134+ = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

140

135

141-- | Selector specifying which fields to include in a partial response.

136-- | Selector specifying which fields to include in a partial response.

142agFields :: Lens' AccountsGet' (Maybe Text)

137agFields :: Lens' AccountsGet' (Maybe Text)

143agFields = lens _agFields (\ s a -> s{_agFields = a})

138agFields = lens _agFields (\ s a -> s{_agFields = a})

144

139

145−-- | Data format for the response.

140+instance GoogleAuth AccountsGet' where

146−agAlt :: Lens' AccountsGet' Alt

141+ authKey = agKey . _Just

147−agAlt = lens _agAlt (\ s a -> s{_agAlt = a})

142+ authToken = agOAuthToken . _Just

148

143

149instance GoogleRequest AccountsGet' where

144instance GoogleRequest AccountsGet' where

150 type Rs AccountsGet' = Account

145 type Rs AccountsGet' = Account

151 request = requestWithRoute defReq adExchangeSellerURL

146 request = requestWithRoute defReq adExchangeSellerURL

152 requestWithRoute r u AccountsGet'{..}

147 requestWithRoute r u AccountsGet'{..}

153− = go _agQuotaUser (Just _agPrettyPrint) _agUserIp

148+ = go _agQuotaUser (Just _agPrettyPrint) _agUserIP

154 _agAccountId

149 _agAccountId

155 _agKey

150 _agKey

156− _agOauthToken

151+ _agOAuthToken

157 _agFields

152 _agFields

158− (Just _agAlt)

153+ (Just AltJSON)

159 where go

154 where go

160 = clientWithRoute

155 = clientWithRoute

161 (Proxy :: Proxy AccountsGetResource)

156 (Proxy :: Proxy AccountsGetResource)

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs+24−29

@@ -32,13 +32,12 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.List

32 -- * Request Lenses

33 , alQuotaUser

34 , alPrettyPrint

35− , alUserIp

35+ , alUserIP

36 , alKey

37 , alPageToken

38− , alOauthToken

38+ , alOAuthToken

39 , alMaxResults

40 , alFields

41− , alAlt

42 ) where

41 ) where

43

42

44import Network.Google.AdExchangeSeller.Types

43import Network.Google.AdExchangeSeller.Types

@@ -51,12 +50,12 @@ type AccountsListResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55 QueryParam "pageToken" Text :>

54 QueryParam "pageToken" Text :>

56− QueryParam "oauth_token" Text :>

55+ QueryParam "oauth_token" OAuthToken :>

57 QueryParam "maxResults" Int32 :>

56 QueryParam "maxResults" Int32 :>

58 QueryParam "fields" Text :>

57 QueryParam "fields" Text :>

59− QueryParam "alt" Alt :> Get '[JSON] Accounts

58+ QueryParam "alt" AltJSON :> Get '[JSON] Accounts

60

59

61-- | List all accounts available to this Ad Exchange account.

60-- | List all accounts available to this Ad Exchange account.

62--

61--

@@ -64,13 +63,12 @@ type AccountsListResource =

64data AccountsList' = AccountsList'

63data AccountsList' = AccountsList'

65 { _alQuotaUser :: !(Maybe Text)

64 { _alQuotaUser :: !(Maybe Text)

66 , _alPrettyPrint :: !Bool

65 , _alPrettyPrint :: !Bool

67− , _alUserIp :: !(Maybe Text)

66+ , _alUserIP :: !(Maybe Text)

68− , _alKey :: !(Maybe Text)

67+ , _alKey :: !(Maybe Key)

69 , _alPageToken :: !(Maybe Text)

68 , _alPageToken :: !(Maybe Text)

70− , _alOauthToken :: !(Maybe Text)

69+ , _alOAuthToken :: !(Maybe OAuthToken)

71 , _alMaxResults :: !(Maybe Int32)

70 , _alMaxResults :: !(Maybe Int32)

72 , _alFields :: !(Maybe Text)

71 , _alFields :: !(Maybe Text)

73− , _alAlt :: !Alt

74 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72 } deriving (Eq,Read,Show,Data,Typeable,Generic)

75

73

76-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.

74-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.

@@ -81,32 +79,29 @@ data AccountsList' = AccountsList'

81--

79--

82-- * 'alPrettyPrint'

80-- * 'alPrettyPrint'

83--

81--

84−-- * 'alUserIp'

82+-- * 'alUserIP'

85--

83--

86-- * 'alKey'

84-- * 'alKey'

87--

85--

88-- * 'alPageToken'

86-- * 'alPageToken'

89--

87--

90−-- * 'alOauthToken'

88+-- * 'alOAuthToken'

91--

89--

92-- * 'alMaxResults'

90-- * 'alMaxResults'

93--

91--

94-- * 'alFields'

92-- * 'alFields'

95−--

96−-- * 'alAlt'

97accountsList'

93accountsList'

98 :: AccountsList'

94 :: AccountsList'

99accountsList' =

95accountsList' =

100 AccountsList'

96 AccountsList'

101 { _alQuotaUser = Nothing

97 { _alQuotaUser = Nothing

102 , _alPrettyPrint = True

98 , _alPrettyPrint = True

103− , _alUserIp = Nothing

99+ , _alUserIP = Nothing

104 , _alKey = Nothing

100 , _alKey = Nothing

105 , _alPageToken = Nothing

101 , _alPageToken = Nothing

106− , _alOauthToken = Nothing

102+ , _alOAuthToken = Nothing

107 , _alMaxResults = Nothing

103 , _alMaxResults = Nothing

108 , _alFields = Nothing

104 , _alFields = Nothing

109− , _alAlt = JSON

110 }

105 }

111

106

112-- | Available to use for quota purposes for server-side applications. Can be

107-- | Available to use for quota purposes for server-side applications. Can be

@@ -124,13 +119,13 @@ alPrettyPrint

124

119

125-- | IP address of the site where the request originates. Use this if you

120-- | IP address of the site where the request originates. Use this if you

126-- want to enforce per-user limits.

121-- want to enforce per-user limits.

127−alUserIp :: Lens' AccountsList' (Maybe Text)

122+alUserIP :: Lens' AccountsList' (Maybe Text)

128−alUserIp = lens _alUserIp (\ s a -> s{_alUserIp = a})

123+alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

129

124

130-- | API key. Your API key identifies your project and provides you with API

125-- | API key. Your API key identifies your project and provides you with API

131-- access, quota, and reports. Required unless you provide an OAuth 2.0

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

132-- token.

127-- token.

133−alKey :: Lens' AccountsList' (Maybe Text)

128+alKey :: Lens' AccountsList' (Maybe Key)

134alKey = lens _alKey (\ s a -> s{_alKey = a})

129alKey = lens _alKey (\ s a -> s{_alKey = a})

135

130

136-- | A continuation token, used to page through accounts. To retrieve the

131-- | A continuation token, used to page through accounts. To retrieve the

@@ -141,9 +136,9 @@ alPageToken

141 = lens _alPageToken (\ s a -> s{_alPageToken = a})

136 = lens _alPageToken (\ s a -> s{_alPageToken = a})

142

137

143-- | OAuth 2.0 token for the current user.

138-- | OAuth 2.0 token for the current user.

144−alOauthToken :: Lens' AccountsList' (Maybe Text)

139+alOAuthToken :: Lens' AccountsList' (Maybe OAuthToken)

145−alOauthToken

140+alOAuthToken

146− = lens _alOauthToken (\ s a -> s{_alOauthToken = a})

141+ = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

147

142

148-- | The maximum number of accounts to include in the response, used for

143-- | The maximum number of accounts to include in the response, used for

149-- paging.

144-- paging.

@@ -155,21 +150,21 @@ alMaxResults

155alFields :: Lens' AccountsList' (Maybe Text)

150alFields :: Lens' AccountsList' (Maybe Text)

156alFields = lens _alFields (\ s a -> s{_alFields = a})

151alFields = lens _alFields (\ s a -> s{_alFields = a})

157

152

158−-- | Data format for the response.

159−alAlt :: Lens' AccountsList' Alt

153+instance GoogleAuth AccountsList' where

160−alAlt = lens _alAlt (\ s a -> s{_alAlt = a})

154+ authKey = alKey . _Just

155+ authToken = alOAuthToken . _Just

161

156

162instance GoogleRequest AccountsList' where

157instance GoogleRequest AccountsList' where

163 type Rs AccountsList' = Accounts

158 type Rs AccountsList' = Accounts

164 request = requestWithRoute defReq adExchangeSellerURL

159 request = requestWithRoute defReq adExchangeSellerURL

165 requestWithRoute r u AccountsList'{..}

160 requestWithRoute r u AccountsList'{..}

166− = go _alQuotaUser (Just _alPrettyPrint) _alUserIp

161+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIP

167 _alKey

162 _alKey

168 _alPageToken

163 _alPageToken

169− _alOauthToken

164+ _alOAuthToken

170 _alMaxResults

165 _alMaxResults

171 _alFields

166 _alFields

172− (Just _alAlt)

167+ (Just AltJSON)

173 where go

168 where go

174 = clientWithRoute

169 = clientWithRoute

175 (Proxy :: Proxy AccountsListResource)

170 (Proxy :: Proxy AccountsListResource)

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs+27−31

@@ -33,12 +33,11 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.Lis

33 -- * Request Lenses

34 , amdlQuotaUser

35 , amdlPrettyPrint

36− , amdlUserIp

36+ , amdlUserIP

37 , amdlAccountId

38 , amdlKey

39− , amdlOauthToken

39+ , amdlOAuthToken

40 , amdlFields

41− , amdlAlt

42 ) where

41 ) where

43

42

44import Network.Google.AdExchangeSeller.Types

43import Network.Google.AdExchangeSeller.Types

@@ -54,10 +53,10 @@ type AccountsMetadataDimensionsListResource =

54 QueryParam "quotaUser" Text :>

53 QueryParam "quotaUser" Text :>

55 QueryParam "prettyPrint" Bool :>

54 QueryParam "prettyPrint" Bool :>

56 QueryParam "userIp" Text :>

55 QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

56+ QueryParam "key" Key :>

58− QueryParam "oauth_token" Text :>

57+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "fields" Text :>

58 QueryParam "fields" Text :>

60− QueryParam "alt" Alt :> Get '[JSON] Metadata

59+ QueryParam "alt" AltJSON :> Get '[JSON] Metadata

61

60

62-- | List the metadata for the dimensions available to this AdExchange

61-- | List the metadata for the dimensions available to this AdExchange

63-- account.

62-- account.

@@ -66,12 +65,11 @@ type AccountsMetadataDimensionsListResource =

66data AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'

65data AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'

67 { _amdlQuotaUser :: !(Maybe Text)

66 { _amdlQuotaUser :: !(Maybe Text)

68 , _amdlPrettyPrint :: !Bool

67 , _amdlPrettyPrint :: !Bool

69− , _amdlUserIp :: !(Maybe Text)

68+ , _amdlUserIP :: !(Maybe Text)

70 , _amdlAccountId :: !Text

69 , _amdlAccountId :: !Text

71− , _amdlKey :: !(Maybe Text)

70+ , _amdlKey :: !(Maybe Key)

72− , _amdlOauthToken :: !(Maybe Text)

71+ , _amdlOAuthToken :: !(Maybe OAuthToken)

73 , _amdlFields :: !(Maybe Text)

72 , _amdlFields :: !(Maybe Text)

74− , _amdlAlt :: !Alt

75 } deriving (Eq,Read,Show,Data,Typeable,Generic)

73 } deriving (Eq,Read,Show,Data,Typeable,Generic)

76

74

77-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.

75-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.

@@ -82,17 +80,15 @@ data AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'

82--

80--

83-- * 'amdlPrettyPrint'

81-- * 'amdlPrettyPrint'

84--

82--

85−-- * 'amdlUserIp'

83+-- * 'amdlUserIP'

86--

84--

87-- * 'amdlAccountId'

85-- * 'amdlAccountId'

88--

86--

89-- * 'amdlKey'

87-- * 'amdlKey'

90--

88--

91−-- * 'amdlOauthToken'

89+-- * 'amdlOAuthToken'

92--

90--

93-- * 'amdlFields'

91-- * 'amdlFields'

94−--

95−-- * 'amdlAlt'

96accountsMetadataDimensionsList'

92accountsMetadataDimensionsList'

97 :: Text -- ^ 'accountId'

93 :: Text -- ^ 'accountId'

98 -> AccountsMetadataDimensionsList'

94 -> AccountsMetadataDimensionsList'

@@ -100,12 +96,11 @@ accountsMetadataDimensionsList' pAmdlAccountId_ =

100 AccountsMetadataDimensionsList'

96 AccountsMetadataDimensionsList'

101 { _amdlQuotaUser = Nothing

97 { _amdlQuotaUser = Nothing

102 , _amdlPrettyPrint = True

98 , _amdlPrettyPrint = True

103− , _amdlUserIp = Nothing

99+ , _amdlUserIP = Nothing

104 , _amdlAccountId = pAmdlAccountId_

100 , _amdlAccountId = pAmdlAccountId_

105 , _amdlKey = Nothing

101 , _amdlKey = Nothing

106− , _amdlOauthToken = Nothing

102+ , _amdlOAuthToken = Nothing

107 , _amdlFields = Nothing

103 , _amdlFields = Nothing

108− , _amdlAlt = JSON

109 }

104 }

110

105

111-- | Available to use for quota purposes for server-side applications. Can be

106-- | Available to use for quota purposes for server-side applications. Can be

@@ -124,9 +119,9 @@ amdlPrettyPrint

124

119

125-- | IP address of the site where the request originates. Use this if you

120-- | IP address of the site where the request originates. Use this if you

126-- want to enforce per-user limits.

121-- want to enforce per-user limits.

127−amdlUserIp :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

122+amdlUserIP :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

128−amdlUserIp

123+amdlUserIP

129− = lens _amdlUserIp (\ s a -> s{_amdlUserIp = a})

124+ = lens _amdlUserIP (\ s a -> s{_amdlUserIP = a})

130

125

131-- | Account with visibility to the dimensions.

126-- | Account with visibility to the dimensions.

132amdlAccountId :: Lens' AccountsMetadataDimensionsList' Text

127amdlAccountId :: Lens' AccountsMetadataDimensionsList' Text

@@ -137,23 +132,24 @@ amdlAccountId

137-- | API key. Your API key identifies your project and provides you with API

132-- | API key. Your API key identifies your project and provides you with API

138-- access, quota, and reports. Required unless you provide an OAuth 2.0

133-- access, quota, and reports. Required unless you provide an OAuth 2.0

139-- token.

134-- token.

140−amdlKey :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

135+amdlKey :: Lens' AccountsMetadataDimensionsList' (Maybe Key)

141amdlKey = lens _amdlKey (\ s a -> s{_amdlKey = a})

136amdlKey = lens _amdlKey (\ s a -> s{_amdlKey = a})

142

137

143-- | OAuth 2.0 token for the current user.

138-- | OAuth 2.0 token for the current user.

144−amdlOauthToken :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

139+amdlOAuthToken :: Lens' AccountsMetadataDimensionsList' (Maybe OAuthToken)

145−amdlOauthToken

140+amdlOAuthToken

146− = lens _amdlOauthToken

141+ = lens _amdlOAuthToken

147− (\ s a -> s{_amdlOauthToken = a})

142+ (\ s a -> s{_amdlOAuthToken = a})

148

143

149-- | Selector specifying which fields to include in a partial response.

144-- | Selector specifying which fields to include in a partial response.

150amdlFields :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

145amdlFields :: Lens' AccountsMetadataDimensionsList' (Maybe Text)

151amdlFields

146amdlFields

152 = lens _amdlFields (\ s a -> s{_amdlFields = a})

147 = lens _amdlFields (\ s a -> s{_amdlFields = a})

153

148

154−-- | Data format for the response.

155−amdlAlt :: Lens' AccountsMetadataDimensionsList' Alt

149+instance GoogleAuth AccountsMetadataDimensionsList'

156−amdlAlt = lens _amdlAlt (\ s a -> s{_amdlAlt = a})

150+ where

151+ authKey = amdlKey . _Just

152+ authToken = amdlOAuthToken . _Just

157

153

158instance GoogleRequest

154instance GoogleRequest

159 AccountsMetadataDimensionsList' where

155 AccountsMetadataDimensionsList' where

@@ -162,12 +158,12 @@ instance GoogleRequest

162 requestWithRoute r u

158 requestWithRoute r u

163 AccountsMetadataDimensionsList'{..}

159 AccountsMetadataDimensionsList'{..}

164 = go _amdlQuotaUser (Just _amdlPrettyPrint)

160 = go _amdlQuotaUser (Just _amdlPrettyPrint)

165− _amdlUserIp

161+ _amdlUserIP

166 _amdlAccountId

162 _amdlAccountId

167 _amdlKey

163 _amdlKey

168− _amdlOauthToken

164+ _amdlOAuthToken

169 _amdlFields

165 _amdlFields

170− (Just _amdlAlt)

166+ (Just AltJSON)

171 where go

167 where go

172 = clientWithRoute

168 = clientWithRoute

173 (Proxy ::

169 (Proxy ::

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs+27−31

@@ -32,12 +32,11 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List

32 -- * Request Lenses

33 , ammlQuotaUser

34 , ammlPrettyPrint

35− , ammlUserIp

35+ , ammlUserIP

36 , ammlAccountId

37 , ammlKey

38− , ammlOauthToken

38+ , ammlOAuthToken

39 , ammlFields

40− , ammlAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdExchangeSeller.Types

42import Network.Google.AdExchangeSeller.Types

@@ -53,10 +52,10 @@ type AccountsMetadataMetricsListResource =

53 QueryParam "quotaUser" Text :>

52 QueryParam "quotaUser" Text :>

54 QueryParam "prettyPrint" Bool :>

53 QueryParam "prettyPrint" Bool :>

55 QueryParam "userIp" Text :>

54 QueryParam "userIp" Text :>

56− QueryParam "key" Text :>

55+ QueryParam "key" Key :>

57− QueryParam "oauth_token" Text :>

56+ QueryParam "oauth_token" OAuthToken :>

58 QueryParam "fields" Text :>

57 QueryParam "fields" Text :>

59− QueryParam "alt" Alt :> Get '[JSON] Metadata

58+ QueryParam "alt" AltJSON :> Get '[JSON] Metadata

60

59

61-- | List the metadata for the metrics available to this AdExchange account.

60-- | List the metadata for the metrics available to this AdExchange account.

62--

61--

@@ -64,12 +63,11 @@ type AccountsMetadataMetricsListResource =

64data AccountsMetadataMetricsList' = AccountsMetadataMetricsList'

63data AccountsMetadataMetricsList' = AccountsMetadataMetricsList'

65 { _ammlQuotaUser :: !(Maybe Text)

64 { _ammlQuotaUser :: !(Maybe Text)

66 , _ammlPrettyPrint :: !Bool

65 , _ammlPrettyPrint :: !Bool

67− , _ammlUserIp :: !(Maybe Text)

66+ , _ammlUserIP :: !(Maybe Text)

68 , _ammlAccountId :: !Text

67 , _ammlAccountId :: !Text

69− , _ammlKey :: !(Maybe Text)

68+ , _ammlKey :: !(Maybe Key)

70− , _ammlOauthToken :: !(Maybe Text)

69+ , _ammlOAuthToken :: !(Maybe OAuthToken)

71 , _ammlFields :: !(Maybe Text)

70 , _ammlFields :: !(Maybe Text)

72− , _ammlAlt :: !Alt

73 } deriving (Eq,Read,Show,Data,Typeable,Generic)

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

74

72

75-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.

73-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.

@@ -80,17 +78,15 @@ data AccountsMetadataMetricsList' = AccountsMetadataMetricsList'

80--

78--

81-- * 'ammlPrettyPrint'

79-- * 'ammlPrettyPrint'

82--

80--

83−-- * 'ammlUserIp'

81+-- * 'ammlUserIP'

84--

82--

85-- * 'ammlAccountId'

83-- * 'ammlAccountId'

86--

84--

87-- * 'ammlKey'

85-- * 'ammlKey'

88--

86--

89−-- * 'ammlOauthToken'

87+-- * 'ammlOAuthToken'

90--

88--

91-- * 'ammlFields'

89-- * 'ammlFields'

92−--

93−-- * 'ammlAlt'

94accountsMetadataMetricsList'

90accountsMetadataMetricsList'

95 :: Text -- ^ 'accountId'

91 :: Text -- ^ 'accountId'

96 -> AccountsMetadataMetricsList'

92 -> AccountsMetadataMetricsList'

@@ -98,12 +94,11 @@ accountsMetadataMetricsList' pAmmlAccountId_ =

98 AccountsMetadataMetricsList'

94 AccountsMetadataMetricsList'

99 { _ammlQuotaUser = Nothing

95 { _ammlQuotaUser = Nothing

100 , _ammlPrettyPrint = True

96 , _ammlPrettyPrint = True

101− , _ammlUserIp = Nothing

97+ , _ammlUserIP = Nothing

102 , _ammlAccountId = pAmmlAccountId_

98 , _ammlAccountId = pAmmlAccountId_

103 , _ammlKey = Nothing

99 , _ammlKey = Nothing

104− , _ammlOauthToken = Nothing

100+ , _ammlOAuthToken = Nothing

105 , _ammlFields = Nothing

101 , _ammlFields = Nothing

106− , _ammlAlt = JSON

107 }

102 }

108

103

109-- | Available to use for quota purposes for server-side applications. Can be

104-- | Available to use for quota purposes for server-side applications. Can be

@@ -122,9 +117,9 @@ ammlPrettyPrint

122

117

123-- | IP address of the site where the request originates. Use this if you

118-- | IP address of the site where the request originates. Use this if you

124-- want to enforce per-user limits.

119-- want to enforce per-user limits.

125−ammlUserIp :: Lens' AccountsMetadataMetricsList' (Maybe Text)

120+ammlUserIP :: Lens' AccountsMetadataMetricsList' (Maybe Text)

126−ammlUserIp

121+ammlUserIP

127− = lens _ammlUserIp (\ s a -> s{_ammlUserIp = a})

122+ = lens _ammlUserIP (\ s a -> s{_ammlUserIP = a})

128

123

129-- | Account with visibility to the metrics.

124-- | Account with visibility to the metrics.

130ammlAccountId :: Lens' AccountsMetadataMetricsList' Text

125ammlAccountId :: Lens' AccountsMetadataMetricsList' Text

@@ -135,23 +130,24 @@ ammlAccountId

135-- | API key. Your API key identifies your project and provides you with API

130-- | API key. Your API key identifies your project and provides you with API

136-- access, quota, and reports. Required unless you provide an OAuth 2.0

131-- access, quota, and reports. Required unless you provide an OAuth 2.0

137-- token.

132-- token.

138−ammlKey :: Lens' AccountsMetadataMetricsList' (Maybe Text)

133+ammlKey :: Lens' AccountsMetadataMetricsList' (Maybe Key)

139ammlKey = lens _ammlKey (\ s a -> s{_ammlKey = a})

134ammlKey = lens _ammlKey (\ s a -> s{_ammlKey = a})

140

135

141-- | OAuth 2.0 token for the current user.

136-- | OAuth 2.0 token for the current user.

142−ammlOauthToken :: Lens' AccountsMetadataMetricsList' (Maybe Text)

137+ammlOAuthToken :: Lens' AccountsMetadataMetricsList' (Maybe OAuthToken)

143−ammlOauthToken

138+ammlOAuthToken

144− = lens _ammlOauthToken

139+ = lens _ammlOAuthToken

145− (\ s a -> s{_ammlOauthToken = a})

140+ (\ s a -> s{_ammlOAuthToken = a})

146

141

147-- | Selector specifying which fields to include in a partial response.

142-- | Selector specifying which fields to include in a partial response.

148ammlFields :: Lens' AccountsMetadataMetricsList' (Maybe Text)

143ammlFields :: Lens' AccountsMetadataMetricsList' (Maybe Text)

149ammlFields

144ammlFields

150 = lens _ammlFields (\ s a -> s{_ammlFields = a})

145 = lens _ammlFields (\ s a -> s{_ammlFields = a})

151

146

152−-- | Data format for the response.

153−ammlAlt :: Lens' AccountsMetadataMetricsList' Alt

147+instance GoogleAuth AccountsMetadataMetricsList'

154−ammlAlt = lens _ammlAlt (\ s a -> s{_ammlAlt = a})

148+ where

149+ authKey = ammlKey . _Just

150+ authToken = ammlOAuthToken . _Just

155

151

156instance GoogleRequest AccountsMetadataMetricsList'

152instance GoogleRequest AccountsMetadataMetricsList'

157 where

153 where

@@ -159,12 +155,12 @@ instance GoogleRequest AccountsMetadataMetricsList'

159 request = requestWithRoute defReq adExchangeSellerURL

155 request = requestWithRoute defReq adExchangeSellerURL

160 requestWithRoute r u AccountsMetadataMetricsList'{..}

156 requestWithRoute r u AccountsMetadataMetricsList'{..}

161 = go _ammlQuotaUser (Just _ammlPrettyPrint)

157 = go _ammlQuotaUser (Just _ammlPrettyPrint)

162− _ammlUserIp

158+ _ammlUserIP

163 _ammlAccountId

159 _ammlAccountId

164 _ammlKey

160 _ammlKey

165− _ammlOauthToken

161+ _ammlOAuthToken

166 _ammlFields

162 _ammlFields

167− (Just _ammlAlt)

163+ (Just AltJSON)

168 where go

164 where go

169 = clientWithRoute

165 = clientWithRoute

170 (Proxy :: Proxy AccountsMetadataMetricsListResource)

166 (Proxy :: Proxy AccountsMetadataMetricsListResource)

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/Get.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.Get

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | Get information about the selected Ad Exchange Preferred Deal.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferredDealsGet@.

23+module Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.Get

24+ (

25+ -- * REST Resource

26+ AccountsPreferredDealsGetResource

27+

28+ -- * Creating a Request

29+ , accountsPreferredDealsGet'

30+ , AccountsPreferredDealsGet'

31+

32+ -- * Request Lenses

33+ , apdgQuotaUser

34+ , apdgPrettyPrint

35+ , apdgUserIP

36+ , apdgDealId

37+ , apdgAccountId

38+ , apdgKey

39+ , apdgOAuthToken

40+ , apdgFields

41+ ) where

42+

43+import Network.Google.AdExchangeSeller.Types

44+import Network.Google.Prelude

45+

46+-- | A resource alias for @AdexchangesellerAccountsPreferredDealsGet@ which the

47+-- 'AccountsPreferredDealsGet'' request conforms to.

48+type AccountsPreferredDealsGetResource =

49+ "accounts" :>

50+ Capture "accountId" Text :>

51+ "preferreddeals" :>

52+ Capture "dealId" Text :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "key" Key :>

57+ QueryParam "oauth_token" OAuthToken :>

58+ QueryParam "fields" Text :>

59+ QueryParam "alt" AltJSON :> Get '[JSON] PreferredDeal

60+

61+-- | Get information about the selected Ad Exchange Preferred Deal.

62+--

63+-- /See:/ 'accountsPreferredDealsGet'' smart constructor.

64+data AccountsPreferredDealsGet' = AccountsPreferredDealsGet'

65+ { _apdgQuotaUser :: !(Maybe Text)

66+ , _apdgPrettyPrint :: !Bool

67+ , _apdgUserIP :: !(Maybe Text)

68+ , _apdgDealId :: !Text

69+ , _apdgAccountId :: !Text

70+ , _apdgKey :: !(Maybe Key)

71+ , _apdgOAuthToken :: !(Maybe OAuthToken)

72+ , _apdgFields :: !(Maybe Text)

73+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

74+

75+-- | Creates a value of 'AccountsPreferredDealsGet'' with the minimum fields required to make a request.

76+--

77+-- Use one of the following lenses to modify other fields as desired:

78+--

79+-- * 'apdgQuotaUser'

80+--

81+-- * 'apdgPrettyPrint'

82+--

83+-- * 'apdgUserIP'

84+--

85+-- * 'apdgDealId'

86+--

87+-- * 'apdgAccountId'

88+--

89+-- * 'apdgKey'

90+--

91+-- * 'apdgOAuthToken'

92+--

93+-- * 'apdgFields'

94+accountsPreferredDealsGet'

95+ :: Text -- ^ 'dealId'

96+ -> Text -- ^ 'accountId'

97+ -> AccountsPreferredDealsGet'

98+accountsPreferredDealsGet' pApdgDealId_ pApdgAccountId_ =

99+ AccountsPreferredDealsGet'

100+ { _apdgQuotaUser = Nothing

101+ , _apdgPrettyPrint = True

102+ , _apdgUserIP = Nothing

103+ , _apdgDealId = pApdgDealId_

104+ , _apdgAccountId = pApdgAccountId_

105+ , _apdgKey = Nothing

106+ , _apdgOAuthToken = Nothing

107+ , _apdgFields = Nothing

108+ }

109+

110+-- | Available to use for quota purposes for server-side applications. Can be

111+-- any arbitrary string assigned to a user, but should not exceed 40

112+-- characters. Overrides userIp if both are provided.

113+apdgQuotaUser :: Lens' AccountsPreferredDealsGet' (Maybe Text)

114+apdgQuotaUser

115+ = lens _apdgQuotaUser

116+ (\ s a -> s{_apdgQuotaUser = a})

117+

118+-- | Returns response with indentations and line breaks.

119+apdgPrettyPrint :: Lens' AccountsPreferredDealsGet' Bool

120+apdgPrettyPrint

121+ = lens _apdgPrettyPrint

122+ (\ s a -> s{_apdgPrettyPrint = a})

123+

124+-- | IP address of the site where the request originates. Use this if you

125+-- want to enforce per-user limits.

126+apdgUserIP :: Lens' AccountsPreferredDealsGet' (Maybe Text)

127+apdgUserIP

128+ = lens _apdgUserIP (\ s a -> s{_apdgUserIP = a})

129+

130+-- | Preferred deal to get information about.

131+apdgDealId :: Lens' AccountsPreferredDealsGet' Text

132+apdgDealId

133+ = lens _apdgDealId (\ s a -> s{_apdgDealId = a})

134+

135+-- | Account owning the deal.

136+apdgAccountId :: Lens' AccountsPreferredDealsGet' Text

137+apdgAccountId

138+ = lens _apdgAccountId

139+ (\ s a -> s{_apdgAccountId = a})

140+

141+-- | API key. Your API key identifies your project and provides you with API

142+-- access, quota, and reports. Required unless you provide an OAuth 2.0

143+-- token.

144+apdgKey :: Lens' AccountsPreferredDealsGet' (Maybe Key)

145+apdgKey = lens _apdgKey (\ s a -> s{_apdgKey = a})

146+

147+-- | OAuth 2.0 token for the current user.

148+apdgOAuthToken :: Lens' AccountsPreferredDealsGet' (Maybe OAuthToken)

149+apdgOAuthToken

150+ = lens _apdgOAuthToken

151+ (\ s a -> s{_apdgOAuthToken = a})

152+

153+-- | Selector specifying which fields to include in a partial response.

154+apdgFields :: Lens' AccountsPreferredDealsGet' (Maybe Text)

155+apdgFields

156+ = lens _apdgFields (\ s a -> s{_apdgFields = a})

157+

158+instance GoogleAuth AccountsPreferredDealsGet' where

159+ authKey = apdgKey . _Just

160+ authToken = apdgOAuthToken . _Just

161+

162+instance GoogleRequest AccountsPreferredDealsGet'

163+ where

164+ type Rs AccountsPreferredDealsGet' = PreferredDeal

165+ request = requestWithRoute defReq adExchangeSellerURL

166+ requestWithRoute r u AccountsPreferredDealsGet'{..}

167+ = go _apdgQuotaUser (Just _apdgPrettyPrint)

168+ _apdgUserIP

169+ _apdgDealId

170+ _apdgAccountId

171+ _apdgKey

172+ _apdgOAuthToken

173+ _apdgFields

174+ (Just AltJSON)

175+ where go

176+ = clientWithRoute

177+ (Proxy :: Proxy AccountsPreferredDealsGetResource)

178+ r

179+ u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/List.hsnew file+167

@@ -0,0 +1,167 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | List the preferred deals for this Ad Exchange account.

21+--

22+-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferredDealsList@.

23+module Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.List

24+ (

25+ -- * REST Resource

26+ AccountsPreferredDealsListResource

27+

28+ -- * Creating a Request

29+ , accountsPreferredDealsList'

30+ , AccountsPreferredDealsList'

31+

32+ -- * Request Lenses

33+ , apdlQuotaUser

34+ , apdlPrettyPrint

35+ , apdlUserIP

36+ , apdlAccountId

37+ , apdlKey

38+ , apdlOAuthToken

39+ , apdlFields

40+ ) where

41+

42+import Network.Google.AdExchangeSeller.Types

43+import Network.Google.Prelude

44+

45+-- | A resource alias for @AdexchangesellerAccountsPreferredDealsList@ which the

46+-- 'AccountsPreferredDealsList'' request conforms to.

47+type AccountsPreferredDealsListResource =

48+ "accounts" :>

49+ Capture "accountId" Text :>

50+ "preferreddeals" :>

51+ QueryParam "quotaUser" Text :>

52+ QueryParam "prettyPrint" Bool :>

53+ QueryParam "userIp" Text :>

54+ QueryParam "key" Key :>

55+ QueryParam "oauth_token" OAuthToken :>

56+ QueryParam "fields" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] PreferredDeals

59+

60+-- | List the preferred deals for this Ad Exchange account.

61+--

62+-- /See:/ 'accountsPreferredDealsList'' smart constructor.

63+data AccountsPreferredDealsList' = AccountsPreferredDealsList'

64+ { _apdlQuotaUser :: !(Maybe Text)

65+ , _apdlPrettyPrint :: !Bool

66+ , _apdlUserIP :: !(Maybe Text)

67+ , _apdlAccountId :: !Text

68+ , _apdlKey :: !(Maybe Key)

69+ , _apdlOAuthToken :: !(Maybe OAuthToken)

70+ , _apdlFields :: !(Maybe Text)

71+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

72+

73+-- | Creates a value of 'AccountsPreferredDealsList'' with the minimum fields required to make a request.

74+--

75+-- Use one of the following lenses to modify other fields as desired:

76+--

77+-- * 'apdlQuotaUser'

78+--

79+-- * 'apdlPrettyPrint'

80+--

81+-- * 'apdlUserIP'

82+--

83+-- * 'apdlAccountId'

84+--

85+-- * 'apdlKey'

86+--

87+-- * 'apdlOAuthToken'

88+--

89+-- * 'apdlFields'

90+accountsPreferredDealsList'

91+ :: Text -- ^ 'accountId'

92+ -> AccountsPreferredDealsList'

93+accountsPreferredDealsList' pApdlAccountId_ =

94+ AccountsPreferredDealsList'

95+ { _apdlQuotaUser = Nothing

96+ , _apdlPrettyPrint = True

97+ , _apdlUserIP = Nothing

98+ , _apdlAccountId = pApdlAccountId_

99+ , _apdlKey = Nothing

100+ , _apdlOAuthToken = Nothing

101+ , _apdlFields = Nothing

102+ }

103+

104+-- | Available to use for quota purposes for server-side applications. Can be

105+-- any arbitrary string assigned to a user, but should not exceed 40

106+-- characters. Overrides userIp if both are provided.

107+apdlQuotaUser :: Lens' AccountsPreferredDealsList' (Maybe Text)

108+apdlQuotaUser

109+ = lens _apdlQuotaUser

110+ (\ s a -> s{_apdlQuotaUser = a})

111+

112+-- | Returns response with indentations and line breaks.

113+apdlPrettyPrint :: Lens' AccountsPreferredDealsList' Bool

114+apdlPrettyPrint

115+ = lens _apdlPrettyPrint

116+ (\ s a -> s{_apdlPrettyPrint = a})

117+

118+-- | IP address of the site where the request originates. Use this if you

119+-- want to enforce per-user limits.

120+apdlUserIP :: Lens' AccountsPreferredDealsList' (Maybe Text)

121+apdlUserIP

122+ = lens _apdlUserIP (\ s a -> s{_apdlUserIP = a})

123+

124+-- | Account owning the deals.

125+apdlAccountId :: Lens' AccountsPreferredDealsList' Text

126+apdlAccountId

127+ = lens _apdlAccountId

128+ (\ s a -> s{_apdlAccountId = a})

129+

130+-- | API key. Your API key identifies your project and provides you with API

131+-- access, quota, and reports. Required unless you provide an OAuth 2.0

132+-- token.

133+apdlKey :: Lens' AccountsPreferredDealsList' (Maybe Key)

134+apdlKey = lens _apdlKey (\ s a -> s{_apdlKey = a})

135+

136+-- | OAuth 2.0 token for the current user.

137+apdlOAuthToken :: Lens' AccountsPreferredDealsList' (Maybe OAuthToken)

138+apdlOAuthToken

139+ = lens _apdlOAuthToken

140+ (\ s a -> s{_apdlOAuthToken = a})

141+

142+-- | Selector specifying which fields to include in a partial response.

143+apdlFields :: Lens' AccountsPreferredDealsList' (Maybe Text)

144+apdlFields

145+ = lens _apdlFields (\ s a -> s{_apdlFields = a})

146+

147+instance GoogleAuth AccountsPreferredDealsList' where

148+ authKey = apdlKey . _Just

149+ authToken = apdlOAuthToken . _Just

150+

151+instance GoogleRequest AccountsPreferredDealsList'

152+ where

153+ type Rs AccountsPreferredDealsList' = PreferredDeals

154+ request = requestWithRoute defReq adExchangeSellerURL

155+ requestWithRoute r u AccountsPreferredDealsList'{..}

156+ = go _apdlQuotaUser (Just _apdlPrettyPrint)

157+ _apdlUserIP

158+ _apdlAccountId

159+ _apdlKey

160+ _apdlOAuthToken

161+ _apdlFields

162+ (Just AltJSON)

163+ where go

164+ = clientWithRoute

165+ (Proxy :: Proxy AccountsPreferredDealsListResource)

166+ r

167+ u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Preferreddeals/Get.hsdeleted−181

@@ -1,181 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | Get information about the selected Ad Exchange Preferred Deal.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferreddealsGet@.

23−module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get

24− (

25− -- * REST Resource

26− AccountsPreferreddealsGetResource

27−

28− -- * Creating a Request

29− , accountsPreferreddealsGet'

30− , AccountsPreferreddealsGet'

31−

32− -- * Request Lenses

33− , apgQuotaUser

34− , apgPrettyPrint

35− , apgUserIp

36− , apgDealId

37− , apgAccountId

38− , apgKey

39− , apgOauthToken

40− , apgFields

41− , apgAlt

42− ) where

43−

44−import Network.Google.AdExchangeSeller.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdexchangesellerAccountsPreferreddealsGet@ which the

48−-- 'AccountsPreferreddealsGet'' request conforms to.

49−type AccountsPreferreddealsGetResource =

50− "accounts" :>

51− Capture "accountId" Text :>

52− "preferreddeals" :>

53− Capture "dealId" Text :>

54− QueryParam "quotaUser" Text :>

55− QueryParam "prettyPrint" Bool :>

56− QueryParam "userIp" Text :>

57− QueryParam "key" Text :>

58− QueryParam "oauth_token" Text :>

59− QueryParam "fields" Text :>

60− QueryParam "alt" Alt :> Get '[JSON] PreferredDeal

61−

62−-- | Get information about the selected Ad Exchange Preferred Deal.

63−--

64−-- /See:/ 'accountsPreferreddealsGet'' smart constructor.

65−data AccountsPreferreddealsGet' = AccountsPreferreddealsGet'

66− { _apgQuotaUser :: !(Maybe Text)

67− , _apgPrettyPrint :: !Bool

68− , _apgUserIp :: !(Maybe Text)

69− , _apgDealId :: !Text

70− , _apgAccountId :: !Text

71− , _apgKey :: !(Maybe Text)

72− , _apgOauthToken :: !(Maybe Text)

73− , _apgFields :: !(Maybe Text)

74− , _apgAlt :: !Alt

75− } deriving (Eq,Read,Show,Data,Typeable,Generic)

76−

77−-- | Creates a value of 'AccountsPreferreddealsGet'' with the minimum fields required to make a request.

78−--

79−-- Use one of the following lenses to modify other fields as desired:

80−--

81−-- * 'apgQuotaUser'

82−--

83−-- * 'apgPrettyPrint'

84−--

85−-- * 'apgUserIp'

86−--

87−-- * 'apgDealId'

88−--

89−-- * 'apgAccountId'

90−--

91−-- * 'apgKey'

92−--

93−-- * 'apgOauthToken'

94−--

95−-- * 'apgFields'

96−--

97−-- * 'apgAlt'

98−accountsPreferreddealsGet'

99− :: Text -- ^ 'dealId'

100− -> Text -- ^ 'accountId'

101− -> AccountsPreferreddealsGet'

102−accountsPreferreddealsGet' pApgDealId_ pApgAccountId_ =

103− AccountsPreferreddealsGet'

104− { _apgQuotaUser = Nothing

105− , _apgPrettyPrint = True

106− , _apgUserIp = Nothing

107− , _apgDealId = pApgDealId_

108− , _apgAccountId = pApgAccountId_

109− , _apgKey = Nothing

110− , _apgOauthToken = Nothing

111− , _apgFields = Nothing

112− , _apgAlt = JSON

113− }

114−

115−-- | Available to use for quota purposes for server-side applications. Can be

116−-- any arbitrary string assigned to a user, but should not exceed 40

117−-- characters. Overrides userIp if both are provided.

118−apgQuotaUser :: Lens' AccountsPreferreddealsGet' (Maybe Text)

119−apgQuotaUser

120− = lens _apgQuotaUser (\ s a -> s{_apgQuotaUser = a})

121−

122−-- | Returns response with indentations and line breaks.

123−apgPrettyPrint :: Lens' AccountsPreferreddealsGet' Bool

124−apgPrettyPrint

125− = lens _apgPrettyPrint

126− (\ s a -> s{_apgPrettyPrint = a})

127−

128−-- | IP address of the site where the request originates. Use this if you

129−-- want to enforce per-user limits.

130−apgUserIp :: Lens' AccountsPreferreddealsGet' (Maybe Text)

131−apgUserIp

132− = lens _apgUserIp (\ s a -> s{_apgUserIp = a})

133−

134−-- | Preferred deal to get information about.

135−apgDealId :: Lens' AccountsPreferreddealsGet' Text

136−apgDealId

137− = lens _apgDealId (\ s a -> s{_apgDealId = a})

138−

139−-- | Account owning the deal.

140−apgAccountId :: Lens' AccountsPreferreddealsGet' Text

141−apgAccountId

142− = lens _apgAccountId (\ s a -> s{_apgAccountId = a})

143−

144−-- | API key. Your API key identifies your project and provides you with API

145−-- access, quota, and reports. Required unless you provide an OAuth 2.0

146−-- token.

147−apgKey :: Lens' AccountsPreferreddealsGet' (Maybe Text)

148−apgKey = lens _apgKey (\ s a -> s{_apgKey = a})

149−

150−-- | OAuth 2.0 token for the current user.

151−apgOauthToken :: Lens' AccountsPreferreddealsGet' (Maybe Text)

152−apgOauthToken

153− = lens _apgOauthToken

154− (\ s a -> s{_apgOauthToken = a})

155−

156−-- | Selector specifying which fields to include in a partial response.

157−apgFields :: Lens' AccountsPreferreddealsGet' (Maybe Text)

158−apgFields

159− = lens _apgFields (\ s a -> s{_apgFields = a})

160−

161−-- | Data format for the response.

162−apgAlt :: Lens' AccountsPreferreddealsGet' Alt

163−apgAlt = lens _apgAlt (\ s a -> s{_apgAlt = a})

164−

165−instance GoogleRequest AccountsPreferreddealsGet'

166− where

167− type Rs AccountsPreferreddealsGet' = PreferredDeal

168− request = requestWithRoute defReq adExchangeSellerURL

169− requestWithRoute r u AccountsPreferreddealsGet'{..}

170− = go _apgQuotaUser (Just _apgPrettyPrint) _apgUserIp

171− _apgDealId

172− _apgAccountId

173− _apgKey

174− _apgOauthToken

175− _apgFields

176− (Just _apgAlt)

177− where go

178− = clientWithRoute

179− (Proxy :: Proxy AccountsPreferreddealsGetResource)

180− r

181− u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Preferreddeals/List.hsdeleted−168

@@ -1,168 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | List the preferred deals for this Ad Exchange account.

21−--

22−-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferreddealsList@.

23−module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List

24− (

25− -- * REST Resource

26− AccountsPreferreddealsListResource

27−

28− -- * Creating a Request

29− , accountsPreferreddealsList'

30− , AccountsPreferreddealsList'

31−

32− -- * Request Lenses

33− , aplQuotaUser

34− , aplPrettyPrint

35− , aplUserIp

36− , aplAccountId

37− , aplKey

38− , aplOauthToken

39− , aplFields

40− , aplAlt

41− ) where

42−

43−import Network.Google.AdExchangeSeller.Types

44−import Network.Google.Prelude

45−

46−-- | A resource alias for @AdexchangesellerAccountsPreferreddealsList@ which the

47−-- 'AccountsPreferreddealsList'' request conforms to.

48−type AccountsPreferreddealsListResource =

49− "accounts" :>

50− Capture "accountId" Text :>

51− "preferreddeals" :>

52− QueryParam "quotaUser" Text :>

53− QueryParam "prettyPrint" Bool :>

54− QueryParam "userIp" Text :>

55− QueryParam "key" Text :>

56− QueryParam "oauth_token" Text :>

57− QueryParam "fields" Text :>

58− QueryParam "alt" Alt :> Get '[JSON] PreferredDeals

59−

60−-- | List the preferred deals for this Ad Exchange account.

61−--

62−-- /See:/ 'accountsPreferreddealsList'' smart constructor.

63−data AccountsPreferreddealsList' = AccountsPreferreddealsList'

64− { _aplQuotaUser :: !(Maybe Text)

65− , _aplPrettyPrint :: !Bool

66− , _aplUserIp :: !(Maybe Text)

67− , _aplAccountId :: !Text

68− , _aplKey :: !(Maybe Text)

69− , _aplOauthToken :: !(Maybe Text)

70− , _aplFields :: !(Maybe Text)

71− , _aplAlt :: !Alt

72− } deriving (Eq,Read,Show,Data,Typeable,Generic)

73−

74−-- | Creates a value of 'AccountsPreferreddealsList'' with the minimum fields required to make a request.

75−--

76−-- Use one of the following lenses to modify other fields as desired:

77−--

78−-- * 'aplQuotaUser'

79−--

80−-- * 'aplPrettyPrint'

81−--

82−-- * 'aplUserIp'

83−--

84−-- * 'aplAccountId'

85−--

86−-- * 'aplKey'

87−--

88−-- * 'aplOauthToken'

89−--

90−-- * 'aplFields'

91−--

92−-- * 'aplAlt'

93−accountsPreferreddealsList'

94− :: Text -- ^ 'accountId'

95− -> AccountsPreferreddealsList'

96−accountsPreferreddealsList' pAplAccountId_ =

97− AccountsPreferreddealsList'

98− { _aplQuotaUser = Nothing

99− , _aplPrettyPrint = True

100− , _aplUserIp = Nothing

101− , _aplAccountId = pAplAccountId_

102− , _aplKey = Nothing

103− , _aplOauthToken = Nothing

104− , _aplFields = Nothing

105− , _aplAlt = JSON

106− }

107−

108−-- | Available to use for quota purposes for server-side applications. Can be

109−-- any arbitrary string assigned to a user, but should not exceed 40

110−-- characters. Overrides userIp if both are provided.

111−aplQuotaUser :: Lens' AccountsPreferreddealsList' (Maybe Text)

112−aplQuotaUser

113− = lens _aplQuotaUser (\ s a -> s{_aplQuotaUser = a})

114−

115−-- | Returns response with indentations and line breaks.

116−aplPrettyPrint :: Lens' AccountsPreferreddealsList' Bool

117−aplPrettyPrint

118− = lens _aplPrettyPrint

119− (\ s a -> s{_aplPrettyPrint = a})

120−

121−-- | IP address of the site where the request originates. Use this if you

122−-- want to enforce per-user limits.

123−aplUserIp :: Lens' AccountsPreferreddealsList' (Maybe Text)

124−aplUserIp

125− = lens _aplUserIp (\ s a -> s{_aplUserIp = a})

126−

127−-- | Account owning the deals.

128−aplAccountId :: Lens' AccountsPreferreddealsList' Text

129−aplAccountId

130− = lens _aplAccountId (\ s a -> s{_aplAccountId = a})

131−

132−-- | API key. Your API key identifies your project and provides you with API

133−-- access, quota, and reports. Required unless you provide an OAuth 2.0

134−-- token.

135−aplKey :: Lens' AccountsPreferreddealsList' (Maybe Text)

136−aplKey = lens _aplKey (\ s a -> s{_aplKey = a})

137−

138−-- | OAuth 2.0 token for the current user.

139−aplOauthToken :: Lens' AccountsPreferreddealsList' (Maybe Text)

140−aplOauthToken

141− = lens _aplOauthToken

142− (\ s a -> s{_aplOauthToken = a})

143−

144−-- | Selector specifying which fields to include in a partial response.

145−aplFields :: Lens' AccountsPreferreddealsList' (Maybe Text)

146−aplFields

147− = lens _aplFields (\ s a -> s{_aplFields = a})

148−

149−-- | Data format for the response.

150−aplAlt :: Lens' AccountsPreferreddealsList' Alt

151−aplAlt = lens _aplAlt (\ s a -> s{_aplAlt = a})

152−

153−instance GoogleRequest AccountsPreferreddealsList'

154− where

155− type Rs AccountsPreferreddealsList' = PreferredDeals

156− request = requestWithRoute defReq adExchangeSellerURL

157− requestWithRoute r u AccountsPreferreddealsList'{..}

158− = go _aplQuotaUser (Just _aplPrettyPrint) _aplUserIp

159− _aplAccountId

160− _aplKey

161− _aplOauthToken

162− _aplFields

163− (Just _aplAlt)

164− where go

165− = clientWithRoute

166− (Proxy :: Proxy AccountsPreferreddealsListResource)

167− r

168− u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs+73−32

@@ -34,7 +34,7 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

34 -- * Request Lenses

35 , argQuotaUser

36 , argPrettyPrint

37− , argUserIp

37+ , argUserIP

38 , argDimension

39 , argLocale

40 , argEndDate

@@ -44,11 +44,10 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

44 , argKey

45 , argSort

46 , argFilter

47− , argOauthToken

47+ , argOAuthToken

48 , argStartIndex

49 , argMaxResults

50 , argFields

51− , argAlt

52 ) where

51 ) where

53

52

54import Network.Google.AdExchangeSeller.Types

53import Network.Google.AdExchangeSeller.Types

@@ -68,15 +67,36 @@ type AccountsReportsGenerateResource =

68 QueryParam "endDate" Text :>

67 QueryParam "endDate" Text :>

69 QueryParam "startDate" Text :>

68 QueryParam "startDate" Text :>

70 QueryParams "metric" Text :>

69 QueryParams "metric" Text :>

71− QueryParam "key" Text :>

70+ QueryParam "key" Key :>

72 QueryParams "sort" Text :>

71 QueryParams "sort" Text :>

73 QueryParams "filter" Text :>

72 QueryParams "filter" Text :>

74− QueryParam "oauth_token" Text :>

73+ QueryParam "oauth_token" OAuthToken :>

75 QueryParam "startIndex" Word32 :>

74 QueryParam "startIndex" Word32 :>

76 QueryParam "maxResults" Word32 :>

75 QueryParam "maxResults" Word32 :>

77 QueryParam "fields" Text :>

76 QueryParam "fields" Text :>

78− QueryParam "alt" Alt :>

77+ QueryParam "alt" AltJSON :>

79 Get '[JSON] Report

78 Get '[JSON] Report

79+ :<|>

80+ "accounts" :>

81+ Capture "accountId" Text :>

82+ "reports" :>

83+ QueryParam "quotaUser" Text :>

84+ QueryParam "prettyPrint" Bool :>

85+ QueryParam "userIp" Text :>

86+ QueryParams "dimension" Text :>

87+ QueryParam "locale" Text :>

88+ QueryParam "endDate" Text :>

89+ QueryParam "startDate" Text :>

90+ QueryParams "metric" Text :>

91+ QueryParam "key" Key :>

92+ QueryParams "sort" Text :>

93+ QueryParams "filter" Text :>

94+ QueryParam "oauth_token" OAuthToken :>

95+ QueryParam "startIndex" Word32 :>

96+ QueryParam "maxResults" Word32 :>

97+ QueryParam "fields" Text :>

98+ QueryParam "alt" Media :>

99+ Get '[OctetStream] Stream

80

100

81-- | Generate an Ad Exchange report based on the report request sent in the

101-- | Generate an Ad Exchange report based on the report request sent in the

82-- query parameters. Returns the result as JSON; to retrieve output in CSV

102-- query parameters. Returns the result as JSON; to retrieve output in CSV

@@ -86,21 +106,20 @@ type AccountsReportsGenerateResource =

86data AccountsReportsGenerate' = AccountsReportsGenerate'

106data AccountsReportsGenerate' = AccountsReportsGenerate'

87 { _argQuotaUser :: !(Maybe Text)

107 { _argQuotaUser :: !(Maybe Text)

88 , _argPrettyPrint :: !Bool

108 , _argPrettyPrint :: !Bool

89− , _argUserIp :: !(Maybe Text)

109+ , _argUserIP :: !(Maybe Text)

90 , _argDimension :: !(Maybe Text)

110 , _argDimension :: !(Maybe Text)

91 , _argLocale :: !(Maybe Text)

111 , _argLocale :: !(Maybe Text)

92 , _argEndDate :: !Text

112 , _argEndDate :: !Text

93 , _argStartDate :: !Text

113 , _argStartDate :: !Text

94 , _argAccountId :: !Text

114 , _argAccountId :: !Text

95 , _argMetric :: !(Maybe Text)

115 , _argMetric :: !(Maybe Text)

96− , _argKey :: !(Maybe Text)

116+ , _argKey :: !(Maybe Key)

97 , _argSort :: !(Maybe Text)

117 , _argSort :: !(Maybe Text)

98 , _argFilter :: !(Maybe Text)

118 , _argFilter :: !(Maybe Text)

99− , _argOauthToken :: !(Maybe Text)

119+ , _argOAuthToken :: !(Maybe OAuthToken)

100 , _argStartIndex :: !(Maybe Word32)

120 , _argStartIndex :: !(Maybe Word32)

101 , _argMaxResults :: !(Maybe Word32)

121 , _argMaxResults :: !(Maybe Word32)

102 , _argFields :: !(Maybe Text)

122 , _argFields :: !(Maybe Text)

103− , _argAlt :: !Alt

104 } deriving (Eq,Read,Show,Data,Typeable,Generic)

123 } deriving (Eq,Read,Show,Data,Typeable,Generic)

105

124

106-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.

125-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.

@@ -111,7 +130,7 @@ data AccountsReportsGenerate' = AccountsReportsGenerate'

111--

130--

112-- * 'argPrettyPrint'

131-- * 'argPrettyPrint'

113--

132--

114−-- * 'argUserIp'

133+-- * 'argUserIP'

115--

134--

116-- * 'argDimension'

135-- * 'argDimension'

117--

136--

@@ -131,15 +150,13 @@ data AccountsReportsGenerate' = AccountsReportsGenerate'

131--

150--

132-- * 'argFilter'

151-- * 'argFilter'

133--

152--

134−-- * 'argOauthToken'

153+-- * 'argOAuthToken'

135--

154--

136-- * 'argStartIndex'

155-- * 'argStartIndex'

137--

156--

138-- * 'argMaxResults'

157-- * 'argMaxResults'

139--

158--

140-- * 'argFields'

159-- * 'argFields'

141−--

142−-- * 'argAlt'

143accountsReportsGenerate'

160accountsReportsGenerate'

144 :: Text -- ^ 'endDate'

161 :: Text -- ^ 'endDate'

145 -> Text -- ^ 'startDate'

162 -> Text -- ^ 'startDate'

@@ -149,7 +166,7 @@ accountsReportsGenerate' pArgEndDate_ pArgStartDate_ pArgAccountId_ =

149 AccountsReportsGenerate'

166 AccountsReportsGenerate'

150 { _argQuotaUser = Nothing

167 { _argQuotaUser = Nothing

151 , _argPrettyPrint = True

168 , _argPrettyPrint = True

152− , _argUserIp = Nothing

169+ , _argUserIP = Nothing

153 , _argDimension = Nothing

170 , _argDimension = Nothing

154 , _argLocale = Nothing

171 , _argLocale = Nothing

155 , _argEndDate = pArgEndDate_

172 , _argEndDate = pArgEndDate_

@@ -159,11 +176,10 @@ accountsReportsGenerate' pArgEndDate_ pArgStartDate_ pArgAccountId_ =

159 , _argKey = Nothing

176 , _argKey = Nothing

160 , _argSort = Nothing

177 , _argSort = Nothing

161 , _argFilter = Nothing

178 , _argFilter = Nothing

162− , _argOauthToken = Nothing

179+ , _argOAuthToken = Nothing

163 , _argStartIndex = Nothing

180 , _argStartIndex = Nothing

164 , _argMaxResults = Nothing

181 , _argMaxResults = Nothing

165 , _argFields = Nothing

182 , _argFields = Nothing

166− , _argAlt = JSON

167 }

183 }

168

184

169-- | Available to use for quota purposes for server-side applications. Can be

185-- | Available to use for quota purposes for server-side applications. Can be

@@ -181,9 +197,9 @@ argPrettyPrint

181

197

182-- | IP address of the site where the request originates. Use this if you

198-- | IP address of the site where the request originates. Use this if you

183-- want to enforce per-user limits.

199-- want to enforce per-user limits.

184−argUserIp :: Lens' AccountsReportsGenerate' (Maybe Text)

200+argUserIP :: Lens' AccountsReportsGenerate' (Maybe Text)

185−argUserIp

201+argUserIP

186− = lens _argUserIp (\ s a -> s{_argUserIp = a})

202+ = lens _argUserIP (\ s a -> s{_argUserIP = a})

187

203

188-- | Dimensions to base the report on.

204-- | Dimensions to base the report on.

189argDimension :: Lens' AccountsReportsGenerate' (Maybe Text)

205argDimension :: Lens' AccountsReportsGenerate' (Maybe Text)

@@ -220,7 +236,7 @@ argMetric

220-- | API key. Your API key identifies your project and provides you with API

236-- | API key. Your API key identifies your project and provides you with API

221-- access, quota, and reports. Required unless you provide an OAuth 2.0

237-- access, quota, and reports. Required unless you provide an OAuth 2.0

222-- token.

238-- token.

223−argKey :: Lens' AccountsReportsGenerate' (Maybe Text)

239+argKey :: Lens' AccountsReportsGenerate' (Maybe Key)

224argKey = lens _argKey (\ s a -> s{_argKey = a})

240argKey = lens _argKey (\ s a -> s{_argKey = a})

225

241

226-- | The name of a dimension or metric to sort the resulting report on,

242-- | The name of a dimension or metric to sort the resulting report on,

@@ -235,10 +251,10 @@ argFilter

235 = lens _argFilter (\ s a -> s{_argFilter = a})

251 = lens _argFilter (\ s a -> s{_argFilter = a})

236

252

237-- | OAuth 2.0 token for the current user.

253-- | OAuth 2.0 token for the current user.

238−argOauthToken :: Lens' AccountsReportsGenerate' (Maybe Text)

254+argOAuthToken :: Lens' AccountsReportsGenerate' (Maybe OAuthToken)

239−argOauthToken

255+argOAuthToken

240− = lens _argOauthToken

256+ = lens _argOAuthToken

241− (\ s a -> s{_argOauthToken = a})

257+ (\ s a -> s{_argOAuthToken = a})

242

258

243-- | Index of the first row of report data to return.

259-- | Index of the first row of report data to return.

244argStartIndex :: Lens' AccountsReportsGenerate' (Maybe Word32)

260argStartIndex :: Lens' AccountsReportsGenerate' (Maybe Word32)

@@ -257,15 +273,40 @@ argFields :: Lens' AccountsReportsGenerate' (Maybe Text)

257argFields

273argFields

258 = lens _argFields (\ s a -> s{_argFields = a})

274 = lens _argFields (\ s a -> s{_argFields = a})

259

275

260−-- | Data format for the response.

261−argAlt :: Lens' AccountsReportsGenerate' Alt

276+instance GoogleAuth AccountsReportsGenerate' where

262−argAlt = lens _argAlt (\ s a -> s{_argAlt = a})

277+ authKey = argKey . _Just

278+ authToken = argOAuthToken . _Just

263

279

264instance GoogleRequest AccountsReportsGenerate' where

280instance GoogleRequest AccountsReportsGenerate' where

265 type Rs AccountsReportsGenerate' = Report

281 type Rs AccountsReportsGenerate' = Report

266 request = requestWithRoute defReq adExchangeSellerURL

282 request = requestWithRoute defReq adExchangeSellerURL

267 requestWithRoute r u AccountsReportsGenerate'{..}

283 requestWithRoute r u AccountsReportsGenerate'{..}

268− = go _argQuotaUser (Just _argPrettyPrint) _argUserIp

284+ = go _argQuotaUser (Just _argPrettyPrint) _argUserIP

285+ _argDimension

286+ _argLocale

287+ (Just _argEndDate)

288+ (Just _argStartDate)

289+ _argAccountId

290+ _argMetric

291+ _argKey

292+ _argSort

293+ _argFilter

294+ _argOAuthToken

295+ _argStartIndex

296+ _argMaxResults

297+ _argFields

298+ (Just AltJSON)

299+ where go :<|> _

300+ = clientWithRoute

301+ (Proxy :: Proxy AccountsReportsGenerateResource)

302+ r

303+ u

304+

305+instance GoogleRequest AccountsReportsGenerate' where

306+ type Rs (Download AccountsReportsGenerate') = Stream

307+ request = requestWithRoute defReq adExchangeSellerURL

308+ requestWithRoute r u AccountsReportsGenerate'{..}

309+ = go _argQuotaUser (Just _argPrettyPrint) _argUserIP

269 _argDimension

310 _argDimension

270 _argLocale

311 _argLocale

271 (Just _argEndDate)

312 (Just _argEndDate)

@@ -275,12 +316,12 @@ instance GoogleRequest AccountsReportsGenerate' where

275 _argKey

316 _argKey

276 _argSort

317 _argSort

277 _argFilter

318 _argFilter

278− _argOauthToken

319+ _argOAuthToken

279 _argStartIndex

320 _argStartIndex

280 _argMaxResults

321 _argMaxResults

281 _argFields

322 _argFields

282− (Just _argAlt)

323+ (Just Media)

283− where go

324+ where go :<|> _

284 = clientWithRoute

325 = clientWithRoute

285 (Proxy :: Proxy AccountsReportsGenerateResource)

326 (Proxy :: Proxy AccountsReportsGenerateResource)

286 r

327 r

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs+27−31

@@ -33,16 +33,15 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate

33 -- * Request Lenses

34 , arsgQuotaUser

35 , arsgPrettyPrint

36− , arsgUserIp

36+ , arsgUserIP

37 , arsgLocale

38 , arsgSavedReportId

39 , arsgAccountId

40 , arsgKey

41− , arsgOauthToken

41+ , arsgOAuthToken

42 , arsgStartIndex

43 , arsgMaxResults

44 , arsgFields

45− , arsgAlt

46 ) where

45 ) where

47

46

48import Network.Google.AdExchangeSeller.Types

47import Network.Google.AdExchangeSeller.Types

@@ -59,12 +58,12 @@ type AccountsReportsSavedGenerateResource =

59 QueryParam "prettyPrint" Bool :>

58 QueryParam "prettyPrint" Bool :>

60 QueryParam "userIp" Text :>

59 QueryParam "userIp" Text :>

61 QueryParam "locale" Text :>

60 QueryParam "locale" Text :>

62− QueryParam "key" Text :>

61+ QueryParam "key" Key :>

63− QueryParam "oauth_token" Text :>

62+ QueryParam "oauth_token" OAuthToken :>

64 QueryParam "startIndex" Int32 :>

63 QueryParam "startIndex" Int32 :>

65 QueryParam "maxResults" Int32 :>

64 QueryParam "maxResults" Int32 :>

66 QueryParam "fields" Text :>

65 QueryParam "fields" Text :>

67− QueryParam "alt" Alt :> Get '[JSON] Report

66+ QueryParam "alt" AltJSON :> Get '[JSON] Report

68

67

69-- | Generate an Ad Exchange report based on the saved report ID sent in the

68-- | Generate an Ad Exchange report based on the saved report ID sent in the

70-- query parameters.

69-- query parameters.

@@ -73,16 +72,15 @@ type AccountsReportsSavedGenerateResource =

73data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'

72data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'

74 { _arsgQuotaUser :: !(Maybe Text)

73 { _arsgQuotaUser :: !(Maybe Text)

75 , _arsgPrettyPrint :: !Bool

74 , _arsgPrettyPrint :: !Bool

76− , _arsgUserIp :: !(Maybe Text)

75+ , _arsgUserIP :: !(Maybe Text)

77 , _arsgLocale :: !(Maybe Text)

76 , _arsgLocale :: !(Maybe Text)

78 , _arsgSavedReportId :: !Text

77 , _arsgSavedReportId :: !Text

79 , _arsgAccountId :: !Text

78 , _arsgAccountId :: !Text

80− , _arsgKey :: !(Maybe Text)

79+ , _arsgKey :: !(Maybe Key)

81− , _arsgOauthToken :: !(Maybe Text)

80+ , _arsgOAuthToken :: !(Maybe OAuthToken)

82 , _arsgStartIndex :: !(Maybe Int32)

81 , _arsgStartIndex :: !(Maybe Int32)

83 , _arsgMaxResults :: !(Maybe Int32)

82 , _arsgMaxResults :: !(Maybe Int32)

84 , _arsgFields :: !(Maybe Text)

83 , _arsgFields :: !(Maybe Text)

85− , _arsgAlt :: !Alt

86 } deriving (Eq,Read,Show,Data,Typeable,Generic)

84 } deriving (Eq,Read,Show,Data,Typeable,Generic)

87

85

88-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.

86-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.

@@ -93,7 +91,7 @@ data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'

93--

91--

94-- * 'arsgPrettyPrint'

92-- * 'arsgPrettyPrint'

95--

93--

96−-- * 'arsgUserIp'

94+-- * 'arsgUserIP'

97--

95--

98-- * 'arsgLocale'

96-- * 'arsgLocale'

99--

97--

@@ -103,15 +101,13 @@ data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'

103--

101--

104-- * 'arsgKey'

102-- * 'arsgKey'

105--

103--

106−-- * 'arsgOauthToken'

104+-- * 'arsgOAuthToken'

107--

105--

108-- * 'arsgStartIndex'

106-- * 'arsgStartIndex'

109--

107--

110-- * 'arsgMaxResults'

108-- * 'arsgMaxResults'

111--

109--

112-- * 'arsgFields'

110-- * 'arsgFields'

113−--

114−-- * 'arsgAlt'

115accountsReportsSavedGenerate'

111accountsReportsSavedGenerate'

116 :: Text -- ^ 'savedReportId'

112 :: Text -- ^ 'savedReportId'

117 -> Text -- ^ 'accountId'

113 -> Text -- ^ 'accountId'

@@ -120,16 +116,15 @@ accountsReportsSavedGenerate' pArsgSavedReportId_ pArsgAccountId_ =

120 AccountsReportsSavedGenerate'

116 AccountsReportsSavedGenerate'

121 { _arsgQuotaUser = Nothing

117 { _arsgQuotaUser = Nothing

122 , _arsgPrettyPrint = True

118 , _arsgPrettyPrint = True

123− , _arsgUserIp = Nothing

119+ , _arsgUserIP = Nothing

124 , _arsgLocale = Nothing

120 , _arsgLocale = Nothing

125 , _arsgSavedReportId = pArsgSavedReportId_

121 , _arsgSavedReportId = pArsgSavedReportId_

126 , _arsgAccountId = pArsgAccountId_

122 , _arsgAccountId = pArsgAccountId_

127 , _arsgKey = Nothing

123 , _arsgKey = Nothing

128− , _arsgOauthToken = Nothing

124+ , _arsgOAuthToken = Nothing

129 , _arsgStartIndex = Nothing

125 , _arsgStartIndex = Nothing

130 , _arsgMaxResults = Nothing

126 , _arsgMaxResults = Nothing

131 , _arsgFields = Nothing

127 , _arsgFields = Nothing

132− , _arsgAlt = JSON

133 }

128 }

134

129

135-- | Available to use for quota purposes for server-side applications. Can be

130-- | Available to use for quota purposes for server-side applications. Can be

@@ -148,9 +143,9 @@ arsgPrettyPrint

148

143

149-- | IP address of the site where the request originates. Use this if you

144-- | IP address of the site where the request originates. Use this if you

150-- want to enforce per-user limits.

145-- want to enforce per-user limits.

151−arsgUserIp :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

146+arsgUserIP :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

152−arsgUserIp

147+arsgUserIP

153− = lens _arsgUserIp (\ s a -> s{_arsgUserIp = a})

148+ = lens _arsgUserIP (\ s a -> s{_arsgUserIP = a})

154

149

155-- | Optional locale to use for translating report output to a local

150-- | Optional locale to use for translating report output to a local

156-- language. Defaults to \"en_US\" if not specified.

151-- language. Defaults to \"en_US\" if not specified.

@@ -173,14 +168,14 @@ arsgAccountId

173-- | API key. Your API key identifies your project and provides you with API

168-- | API key. Your API key identifies your project and provides you with API

174-- access, quota, and reports. Required unless you provide an OAuth 2.0

169-- access, quota, and reports. Required unless you provide an OAuth 2.0

175-- token.

170-- token.

176−arsgKey :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

171+arsgKey :: Lens' AccountsReportsSavedGenerate' (Maybe Key)

177arsgKey = lens _arsgKey (\ s a -> s{_arsgKey = a})

172arsgKey = lens _arsgKey (\ s a -> s{_arsgKey = a})

178

173

179-- | OAuth 2.0 token for the current user.

174-- | OAuth 2.0 token for the current user.

180−arsgOauthToken :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

175+arsgOAuthToken :: Lens' AccountsReportsSavedGenerate' (Maybe OAuthToken)

181−arsgOauthToken

176+arsgOAuthToken

182− = lens _arsgOauthToken

177+ = lens _arsgOAuthToken

183− (\ s a -> s{_arsgOauthToken = a})

178+ (\ s a -> s{_arsgOAuthToken = a})

184

179

185-- | Index of the first row of report data to return.

180-- | Index of the first row of report data to return.

186arsgStartIndex :: Lens' AccountsReportsSavedGenerate' (Maybe Int32)

181arsgStartIndex :: Lens' AccountsReportsSavedGenerate' (Maybe Int32)

@@ -199,9 +194,10 @@ arsgFields :: Lens' AccountsReportsSavedGenerate' (Maybe Text)

199arsgFields

194arsgFields

200 = lens _arsgFields (\ s a -> s{_arsgFields = a})

195 = lens _arsgFields (\ s a -> s{_arsgFields = a})

201

196

202−-- | Data format for the response.

203−arsgAlt :: Lens' AccountsReportsSavedGenerate' Alt

197+instance GoogleAuth AccountsReportsSavedGenerate'

204−arsgAlt = lens _arsgAlt (\ s a -> s{_arsgAlt = a})

198+ where

199+ authKey = arsgKey . _Just

200+ authToken = arsgOAuthToken . _Just

205

201

206instance GoogleRequest AccountsReportsSavedGenerate'

202instance GoogleRequest AccountsReportsSavedGenerate'

207 where

203 where

@@ -210,16 +206,16 @@ instance GoogleRequest AccountsReportsSavedGenerate'

210 requestWithRoute r u

206 requestWithRoute r u

211 AccountsReportsSavedGenerate'{..}

207 AccountsReportsSavedGenerate'{..}

212 = go _arsgQuotaUser (Just _arsgPrettyPrint)

208 = go _arsgQuotaUser (Just _arsgPrettyPrint)

213− _arsgUserIp

209+ _arsgUserIP

214 _arsgLocale

210 _arsgLocale

215 _arsgSavedReportId

211 _arsgSavedReportId

216 _arsgAccountId

212 _arsgAccountId

217 _arsgKey

213 _arsgKey

218− _arsgOauthToken

214+ _arsgOAuthToken

219 _arsgStartIndex

215 _arsgStartIndex

220 _arsgMaxResults

216 _arsgMaxResults

221 _arsgFields

217 _arsgFields

222− (Just _arsgAlt)

218+ (Just AltJSON)

223 where go

219 where go

224 = clientWithRoute

220 = clientWithRoute

225 (Proxy :: Proxy AccountsReportsSavedGenerateResource)

221 (Proxy :: Proxy AccountsReportsSavedGenerateResource)

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs+27−31

@@ -32,14 +32,13 @@ module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List

32 -- * Request Lenses

33 , arslQuotaUser

34 , arslPrettyPrint

35− , arslUserIp

35+ , arslUserIP

36 , arslAccountId

37 , arslKey

38 , arslPageToken

39− , arslOauthToken

39+ , arslOAuthToken

40 , arslMaxResults

41 , arslFields

42− , arslAlt

43 ) where

42 ) where

44

43

45import Network.Google.AdExchangeSeller.Types

44import Network.Google.AdExchangeSeller.Types

@@ -55,12 +54,13 @@ type AccountsReportsSavedListResource =

55 QueryParam "quotaUser" Text :>

54 QueryParam "quotaUser" Text :>

56 QueryParam "prettyPrint" Bool :>

55 QueryParam "prettyPrint" Bool :>

57 QueryParam "userIp" Text :>

56 QueryParam "userIp" Text :>

58− QueryParam "key" Text :>

57+ QueryParam "key" Key :>

59 QueryParam "pageToken" Text :>

58 QueryParam "pageToken" Text :>

60− QueryParam "oauth_token" Text :>

59+ QueryParam "oauth_token" OAuthToken :>

61 QueryParam "maxResults" Int32 :>

60 QueryParam "maxResults" Int32 :>

62 QueryParam "fields" Text :>

61 QueryParam "fields" Text :>

62+ QueryParam "alt" AltJSON :>

63− QueryParam "alt" Alt :> Get '[JSON] SavedReports

63+ Get '[JSON] SavedReports

64

65-- | List all saved reports in this Ad Exchange account.

66--

@@ -68,14 +68,13 @@ type AccountsReportsSavedListResource =

68data AccountsReportsSavedList' = AccountsReportsSavedList'

69 { _arslQuotaUser :: !(Maybe Text)

70 , _arslPrettyPrint :: !Bool

71− , _arslUserIp :: !(Maybe Text)

71+ , _arslUserIP :: !(Maybe Text)

72 , _arslAccountId :: !Text

73− , _arslKey :: !(Maybe Text)

73+ , _arslKey :: !(Maybe Key)

74 , _arslPageToken :: !(Maybe Text)

75− , _arslOauthToken :: !(Maybe Text)

75+ , _arslOAuthToken :: !(Maybe OAuthToken)

76 , _arslMaxResults :: !(Maybe Int32)

77 , _arslFields :: !(Maybe Text)

78− , _arslAlt :: !Alt

79 } deriving (Eq,Read,Show,Data,Typeable,Generic)

78 } deriving (Eq,Read,Show,Data,Typeable,Generic)

80

79

81-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.

80-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.

@@ -86,7 +85,7 @@ data AccountsReportsSavedList' = AccountsReportsSavedList'

86--

85--

87-- * 'arslPrettyPrint'

86-- * 'arslPrettyPrint'

88--

87--

89−-- * 'arslUserIp'

88+-- * 'arslUserIP'

90--

89--

91-- * 'arslAccountId'

90-- * 'arslAccountId'

92--

91--

@@ -94,13 +93,11 @@ data AccountsReportsSavedList' = AccountsReportsSavedList'

94--

93--

95-- * 'arslPageToken'

94-- * 'arslPageToken'

96--

95--

97−-- * 'arslOauthToken'

96+-- * 'arslOAuthToken'

98--

97--

99-- * 'arslMaxResults'

98-- * 'arslMaxResults'

100--

99--

101-- * 'arslFields'

100-- * 'arslFields'

102−--

103−-- * 'arslAlt'

104accountsReportsSavedList'

101accountsReportsSavedList'

105 :: Text -- ^ 'accountId'

102 :: Text -- ^ 'accountId'

106 -> AccountsReportsSavedList'

103 -> AccountsReportsSavedList'

@@ -108,14 +105,13 @@ accountsReportsSavedList' pArslAccountId_ =

108 AccountsReportsSavedList'

105 AccountsReportsSavedList'

109 { _arslQuotaUser = Nothing

106 { _arslQuotaUser = Nothing

110 , _arslPrettyPrint = True

107 , _arslPrettyPrint = True

111− , _arslUserIp = Nothing

108+ , _arslUserIP = Nothing

112 , _arslAccountId = pArslAccountId_

109 , _arslAccountId = pArslAccountId_

113 , _arslKey = Nothing

110 , _arslKey = Nothing

114 , _arslPageToken = Nothing

111 , _arslPageToken = Nothing

115− , _arslOauthToken = Nothing

112+ , _arslOAuthToken = Nothing

116 , _arslMaxResults = Nothing

113 , _arslMaxResults = Nothing

117 , _arslFields = Nothing

114 , _arslFields = Nothing

118− , _arslAlt = JSON

119 }

115 }

120

116

121-- | Available to use for quota purposes for server-side applications. Can be

117-- | Available to use for quota purposes for server-side applications. Can be

@@ -134,9 +130,9 @@ arslPrettyPrint

134

130

135-- | IP address of the site where the request originates. Use this if you

131-- | IP address of the site where the request originates. Use this if you

136-- want to enforce per-user limits.

132-- want to enforce per-user limits.

137−arslUserIp :: Lens' AccountsReportsSavedList' (Maybe Text)

133+arslUserIP :: Lens' AccountsReportsSavedList' (Maybe Text)

138−arslUserIp

134+arslUserIP

139− = lens _arslUserIp (\ s a -> s{_arslUserIp = a})

135+ = lens _arslUserIP (\ s a -> s{_arslUserIP = a})

140

136

141-- | Account owning the saved reports.

137-- | Account owning the saved reports.

142arslAccountId :: Lens' AccountsReportsSavedList' Text

138arslAccountId :: Lens' AccountsReportsSavedList' Text

@@ -147,7 +143,7 @@ arslAccountId

147-- | API key. Your API key identifies your project and provides you with API

143-- | API key. Your API key identifies your project and provides you with API

148-- access, quota, and reports. Required unless you provide an OAuth 2.0

144-- access, quota, and reports. Required unless you provide an OAuth 2.0

149-- token.

145-- token.

150−arslKey :: Lens' AccountsReportsSavedList' (Maybe Text)

146+arslKey :: Lens' AccountsReportsSavedList' (Maybe Key)

151arslKey = lens _arslKey (\ s a -> s{_arslKey = a})

147arslKey = lens _arslKey (\ s a -> s{_arslKey = a})

152

148

153-- | A continuation token, used to page through saved reports. To retrieve

149-- | A continuation token, used to page through saved reports. To retrieve

@@ -159,10 +155,10 @@ arslPageToken

159 (\ s a -> s{_arslPageToken = a})

155 (\ s a -> s{_arslPageToken = a})

160

156

161-- | OAuth 2.0 token for the current user.

157-- | OAuth 2.0 token for the current user.

162−arslOauthToken :: Lens' AccountsReportsSavedList' (Maybe Text)

158+arslOAuthToken :: Lens' AccountsReportsSavedList' (Maybe OAuthToken)

163−arslOauthToken

159+arslOAuthToken

164− = lens _arslOauthToken

160+ = lens _arslOAuthToken

165− (\ s a -> s{_arslOauthToken = a})

161+ (\ s a -> s{_arslOAuthToken = a})

166

162

167-- | The maximum number of saved reports to include in the response, used for

163-- | The maximum number of saved reports to include in the response, used for

168-- paging.

164-- paging.

@@ -176,9 +172,9 @@ arslFields :: Lens' AccountsReportsSavedList' (Maybe Text)

176arslFields

172arslFields

177 = lens _arslFields (\ s a -> s{_arslFields = a})

173 = lens _arslFields (\ s a -> s{_arslFields = a})

178

174

179−-- | Data format for the response.

180−arslAlt :: Lens' AccountsReportsSavedList' Alt

175+instance GoogleAuth AccountsReportsSavedList' where

181−arslAlt = lens _arslAlt (\ s a -> s{_arslAlt = a})

176+ authKey = arslKey . _Just

177+ authToken = arslOAuthToken . _Just

182

178

183instance GoogleRequest AccountsReportsSavedList'

179instance GoogleRequest AccountsReportsSavedList'

184 where

180 where

@@ -186,14 +182,14 @@ instance GoogleRequest AccountsReportsSavedList'

186 request = requestWithRoute defReq adExchangeSellerURL

182 request = requestWithRoute defReq adExchangeSellerURL

187 requestWithRoute r u AccountsReportsSavedList'{..}

183 requestWithRoute r u AccountsReportsSavedList'{..}

188 = go _arslQuotaUser (Just _arslPrettyPrint)

184 = go _arslQuotaUser (Just _arslPrettyPrint)

189− _arslUserIp

185+ _arslUserIP

190 _arslAccountId

186 _arslAccountId

191 _arslKey

187 _arslKey

192 _arslPageToken

188 _arslPageToken

193− _arslOauthToken

189+ _arslOAuthToken

194 _arslMaxResults

190 _arslMaxResults

195 _arslFields

191 _arslFields

196− (Just _arslAlt)

192+ (Just AltJSON)

197 where go

193 where go

198 = clientWithRoute

194 = clientWithRoute

199 (Proxy :: Proxy AccountsReportsSavedListResource)

195 (Proxy :: Proxy AccountsReportsSavedListResource)

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hsnew file+212

@@ -0,0 +1,212 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

6+{-# LANGUAGE TypeFamilies #-}

7+{-# LANGUAGE TypeOperators #-}

8+

9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11+

12+-- |

13+-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List

15+-- License : Mozilla Public License, v. 2.0.

16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17+-- Stability : auto-generated

18+-- Portability : non-portable (GHC extensions)

19+--

20+-- | List all URL channels in the specified ad client for this Ad Exchange

21+-- account.

22+--

23+-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsURLChannelsList@.

24+module Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List

25+ (

26+ -- * REST Resource

27+ AccountsUrlChannelsListResource

28+

29+ -- * Creating a Request

30+ , accountsURLChannelsList'

31+ , AccountsURLChannelsList'

32+

33+ -- * Request Lenses

34+ , auclQuotaUser

35+ , auclPrettyPrint

36+ , auclUserIP

37+ , auclAdClientId

38+ , auclAccountId

39+ , auclKey

40+ , auclPageToken

41+ , auclOAuthToken

42+ , auclMaxResults

43+ , auclFields

44+ ) where

45+

46+import Network.Google.AdExchangeSeller.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @AdexchangesellerAccountsURLChannelsList@ which the

50+-- 'AccountsURLChannelsList'' request conforms to.

51+type AccountsUrlChannelsListResource =

52+ "accounts" :>

53+ Capture "accountId" Text :>

54+ "adclients" :>

55+ Capture "adClientId" Text :>

56+ "urlchannels" :>

57+ QueryParam "quotaUser" Text :>

58+ QueryParam "prettyPrint" Bool :>

59+ QueryParam "userIp" Text :>

60+ QueryParam "key" Key :>

61+ QueryParam "pageToken" Text :>

62+ QueryParam "oauth_token" OAuthToken :>

63+ QueryParam "maxResults" Word32 :>

64+ QueryParam "fields" Text :>

65+ QueryParam "alt" AltJSON :>

66+ Get '[JSON] URLChannels

67+

68+-- | List all URL channels in the specified ad client for this Ad Exchange

69+-- account.

70+--

71+-- /See:/ 'accountsURLChannelsList'' smart constructor.

72+data AccountsURLChannelsList' = AccountsURLChannelsList'

73+ { _auclQuotaUser :: !(Maybe Text)

74+ , _auclPrettyPrint :: !Bool

75+ , _auclUserIP :: !(Maybe Text)

76+ , _auclAdClientId :: !Text

77+ , _auclAccountId :: !Text

78+ , _auclKey :: !(Maybe Key)

79+ , _auclPageToken :: !(Maybe Text)

80+ , _auclOAuthToken :: !(Maybe OAuthToken)

81+ , _auclMaxResults :: !(Maybe Word32)

82+ , _auclFields :: !(Maybe Text)

83+ } deriving (Eq,Read,Show,Data,Typeable,Generic)

84+

85+-- | Creates a value of 'AccountsURLChannelsList'' with the minimum fields required to make a request.

86+--

87+-- Use one of the following lenses to modify other fields as desired:

88+--

89+-- * 'auclQuotaUser'

90+--

91+-- * 'auclPrettyPrint'

92+--

93+-- * 'auclUserIP'

94+--

95+-- * 'auclAdClientId'

96+--

97+-- * 'auclAccountId'

98+--

99+-- * 'auclKey'

100+--

101+-- * 'auclPageToken'

102+--

103+-- * 'auclOAuthToken'

104+--

105+-- * 'auclMaxResults'

106+--

107+-- * 'auclFields'

108+accountsURLChannelsList'

109+ :: Text -- ^ 'adClientId'

110+ -> Text -- ^ 'accountId'

111+ -> AccountsURLChannelsList'

112+accountsURLChannelsList' pAuclAdClientId_ pAuclAccountId_ =

113+ AccountsURLChannelsList'

114+ { _auclQuotaUser = Nothing

115+ , _auclPrettyPrint = True

116+ , _auclUserIP = Nothing

117+ , _auclAdClientId = pAuclAdClientId_

118+ , _auclAccountId = pAuclAccountId_

119+ , _auclKey = Nothing

120+ , _auclPageToken = Nothing

121+ , _auclOAuthToken = Nothing

122+ , _auclMaxResults = Nothing

123+ , _auclFields = Nothing

124+ }

125+

126+-- | Available to use for quota purposes for server-side applications. Can be

127+-- any arbitrary string assigned to a user, but should not exceed 40

128+-- characters. Overrides userIp if both are provided.

129+auclQuotaUser :: Lens' AccountsURLChannelsList' (Maybe Text)

130+auclQuotaUser

131+ = lens _auclQuotaUser

132+ (\ s a -> s{_auclQuotaUser = a})

133+

134+-- | Returns response with indentations and line breaks.

135+auclPrettyPrint :: Lens' AccountsURLChannelsList' Bool

136+auclPrettyPrint

137+ = lens _auclPrettyPrint

138+ (\ s a -> s{_auclPrettyPrint = a})

139+

140+-- | IP address of the site where the request originates. Use this if you

141+-- want to enforce per-user limits.

142+auclUserIP :: Lens' AccountsURLChannelsList' (Maybe Text)

143+auclUserIP

144+ = lens _auclUserIP (\ s a -> s{_auclUserIP = a})

145+

146+-- | Ad client for which to list URL channels.

147+auclAdClientId :: Lens' AccountsURLChannelsList' Text

148+auclAdClientId

149+ = lens _auclAdClientId

150+ (\ s a -> s{_auclAdClientId = a})

151+

152+-- | Account to which the ad client belongs.

153+auclAccountId :: Lens' AccountsURLChannelsList' Text

154+auclAccountId

155+ = lens _auclAccountId

156+ (\ s a -> s{_auclAccountId = a})

157+

158+-- | API key. Your API key identifies your project and provides you with API

159+-- access, quota, and reports. Required unless you provide an OAuth 2.0

160+-- token.

161+auclKey :: Lens' AccountsURLChannelsList' (Maybe Key)

162+auclKey = lens _auclKey (\ s a -> s{_auclKey = a})

163+

164+-- | A continuation token, used to page through URL channels. To retrieve the

165+-- next page, set this parameter to the value of \"nextPageToken\" from the

166+-- previous response.

167+auclPageToken :: Lens' AccountsURLChannelsList' (Maybe Text)

168+auclPageToken

169+ = lens _auclPageToken

170+ (\ s a -> s{_auclPageToken = a})

171+

172+-- | OAuth 2.0 token for the current user.

173+auclOAuthToken :: Lens' AccountsURLChannelsList' (Maybe OAuthToken)

174+auclOAuthToken

175+ = lens _auclOAuthToken

176+ (\ s a -> s{_auclOAuthToken = a})

177+

178+-- | The maximum number of URL channels to include in the response, used for

179+-- paging.

180+auclMaxResults :: Lens' AccountsURLChannelsList' (Maybe Word32)

181+auclMaxResults

182+ = lens _auclMaxResults

183+ (\ s a -> s{_auclMaxResults = a})

184+

185+-- | Selector specifying which fields to include in a partial response.

186+auclFields :: Lens' AccountsURLChannelsList' (Maybe Text)

187+auclFields

188+ = lens _auclFields (\ s a -> s{_auclFields = a})

189+

190+instance GoogleAuth AccountsURLChannelsList' where

191+ authKey = auclKey . _Just

192+ authToken = auclOAuthToken . _Just

193+

194+instance GoogleRequest AccountsURLChannelsList' where

195+ type Rs AccountsURLChannelsList' = URLChannels

196+ request = requestWithRoute defReq adExchangeSellerURL

197+ requestWithRoute r u AccountsURLChannelsList'{..}

198+ = go _auclQuotaUser (Just _auclPrettyPrint)

199+ _auclUserIP

200+ _auclAdClientId

201+ _auclAccountId

202+ _auclKey

203+ _auclPageToken

204+ _auclOAuthToken

205+ _auclMaxResults

206+ _auclFields

207+ (Just AltJSON)

208+ where go

209+ = clientWithRoute

210+ (Proxy :: Proxy AccountsUrlChannelsListResource)

211+ r

212+ u

gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLchannels/List.hsdeleted−212

@@ -1,212 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE OverloadedStrings #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE TypeFamilies #-}

7−{-# LANGUAGE TypeOperators #-}

8−

9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11−

12−-- |

13−-- Module : Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List

15−-- License : Mozilla Public License, v. 2.0.

16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

17−-- Stability : auto-generated

18−-- Portability : non-portable (GHC extensions)

19−--

20−-- | List all URL channels in the specified ad client for this Ad Exchange

21−-- account.

22−--

23−-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsURLchannelsList@.

24−module Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List

25− (

26− -- * REST Resource

27− AccountsUrlchannelsListResource

28−

29− -- * Creating a Request

30− , accountsURLchannelsList'

31− , AccountsURLchannelsList'

32−

33− -- * Request Lenses

34− , aulQuotaUser

35− , aulPrettyPrint

36− , aulUserIp

37− , aulAdClientId

38− , aulAccountId

39− , aulKey

40− , aulPageToken

41− , aulOauthToken

42− , aulMaxResults

43− , aulFields

44− , aulAlt

45− ) where

46−

47−import Network.Google.AdExchangeSeller.Types

48−import Network.Google.Prelude

49−

50−-- | A resource alias for @AdexchangesellerAccountsURLchannelsList@ which the

51−-- 'AccountsURLchannelsList'' request conforms to.

52−type AccountsUrlchannelsListResource =

53− "accounts" :>

54− Capture "accountId" Text :>

55− "adclients" :>

56− Capture "adClientId" Text :>

57− "urlchannels" :>

58− QueryParam "quotaUser" Text :>

59− QueryParam "prettyPrint" Bool :>

60− QueryParam "userIp" Text :>

61− QueryParam "key" Text :>

62− QueryParam "pageToken" Text :>

63− QueryParam "oauth_token" Text :>

64− QueryParam "maxResults" Word32 :>

65− QueryParam "fields" Text :>

66− QueryParam "alt" Alt :> Get '[JSON] URLChannels

67−

68−-- | List all URL channels in the specified ad client for this Ad Exchange

69−-- account.

70−--

71−-- /See:/ 'accountsURLchannelsList'' smart constructor.

72−data AccountsURLchannelsList' = AccountsURLchannelsList'

73− { _aulQuotaUser :: !(Maybe Text)

74− , _aulPrettyPrint :: !Bool

75− , _aulUserIp :: !(Maybe Text)

76− , _aulAdClientId :: !Text

77− , _aulAccountId :: !Text

78− , _aulKey :: !(Maybe Text)

79− , _aulPageToken :: !(Maybe Text)

80− , _aulOauthToken :: !(Maybe Text)

81− , _aulMaxResults :: !(Maybe Word32)

82− , _aulFields :: !(Maybe Text)

83− , _aulAlt :: !Alt

84− } deriving (Eq,Read,Show,Data,Typeable,Generic)

85−

86−-- | Creates a value of 'AccountsURLchannelsList'' with the minimum fields required to make a request.

87−--

88−-- Use one of the following lenses to modify other fields as desired:

89−--

90−-- * 'aulQuotaUser'

91−--

92−-- * 'aulPrettyPrint'

93−--

94−-- * 'aulUserIp'

95−--

96−-- * 'aulAdClientId'

97−--

98−-- * 'aulAccountId'

99−--

100−-- * 'aulKey'

101−--

102−-- * 'aulPageToken'

103−--

104−-- * 'aulOauthToken'

105−--

106−-- * 'aulMaxResults'

107−--

108−-- * 'aulFields'

109−--

110−-- * 'aulAlt'

111−accountsURLchannelsList'

112− :: Text -- ^ 'adClientId'

113− -> Text -- ^ 'accountId'

114− -> AccountsURLchannelsList'

115−accountsURLchannelsList' pAulAdClientId_ pAulAccountId_ =

116− AccountsURLchannelsList'

117− { _aulQuotaUser = Nothing

118− , _aulPrettyPrint = True

119− , _aulUserIp = Nothing

120− , _aulAdClientId = pAulAdClientId_

121− , _aulAccountId = pAulAccountId_

122− , _aulKey = Nothing

123− , _aulPageToken = Nothing

124− , _aulOauthToken = Nothing

125− , _aulMaxResults = Nothing

126− , _aulFields = Nothing

127− , _aulAlt = JSON

128− }

129−

130−-- | Available to use for quota purposes for server-side applications. Can be

131−-- any arbitrary string assigned to a user, but should not exceed 40

132−-- characters. Overrides userIp if both are provided.

133−aulQuotaUser :: Lens' AccountsURLchannelsList' (Maybe Text)

134−aulQuotaUser

135− = lens _aulQuotaUser (\ s a -> s{_aulQuotaUser = a})

136−

137−-- | Returns response with indentations and line breaks.

138−aulPrettyPrint :: Lens' AccountsURLchannelsList' Bool

139−aulPrettyPrint

140− = lens _aulPrettyPrint

141− (\ s a -> s{_aulPrettyPrint = a})

142−

143−-- | IP address of the site where the request originates. Use this if you

144−-- want to enforce per-user limits.

145−aulUserIp :: Lens' AccountsURLchannelsList' (Maybe Text)

146−aulUserIp

147− = lens _aulUserIp (\ s a -> s{_aulUserIp = a})

148−

149−-- | Ad client for which to list URL channels.

150−aulAdClientId :: Lens' AccountsURLchannelsList' Text

151−aulAdClientId

152− = lens _aulAdClientId

153− (\ s a -> s{_aulAdClientId = a})

154−

155−-- | Account to which the ad client belongs.

156−aulAccountId :: Lens' AccountsURLchannelsList' Text

157−aulAccountId

158− = lens _aulAccountId (\ s a -> s{_aulAccountId = a})

159−

160−-- | API key. Your API key identifies your project and provides you with API

161−-- access, quota, and reports. Required unless you provide an OAuth 2.0

162−-- token.

163−aulKey :: Lens' AccountsURLchannelsList' (Maybe Text)

164−aulKey = lens _aulKey (\ s a -> s{_aulKey = a})

165−

166−-- | A continuation token, used to page through URL channels. To retrieve the

167−-- next page, set this parameter to the value of \"nextPageToken\" from the

168−-- previous response.

169−aulPageToken :: Lens' AccountsURLchannelsList' (Maybe Text)

170−aulPageToken

171− = lens _aulPageToken (\ s a -> s{_aulPageToken = a})

172−

173−-- | OAuth 2.0 token for the current user.

174−aulOauthToken :: Lens' AccountsURLchannelsList' (Maybe Text)

175−aulOauthToken

176− = lens _aulOauthToken

177− (\ s a -> s{_aulOauthToken = a})

178−

179−-- | The maximum number of URL channels to include in the response, used for

180−-- paging.

181−aulMaxResults :: Lens' AccountsURLchannelsList' (Maybe Word32)

182−aulMaxResults

183− = lens _aulMaxResults

184− (\ s a -> s{_aulMaxResults = a})

185−

186−-- | Selector specifying which fields to include in a partial response.

187−aulFields :: Lens' AccountsURLchannelsList' (Maybe Text)

188−aulFields

189− = lens _aulFields (\ s a -> s{_aulFields = a})

190−

191−-- | Data format for the response.

192−aulAlt :: Lens' AccountsURLchannelsList' Alt

193−aulAlt = lens _aulAlt (\ s a -> s{_aulAlt = a})

194−

195−instance GoogleRequest AccountsURLchannelsList' where

196− type Rs AccountsURLchannelsList' = URLChannels

197− request = requestWithRoute defReq adExchangeSellerURL

198− requestWithRoute r u AccountsURLchannelsList'{..}

199− = go _aulQuotaUser (Just _aulPrettyPrint) _aulUserIp

200− _aulAdClientId

201− _aulAccountId

202− _aulKey

203− _aulPageToken

204− _aulOauthToken

205− _aulMaxResults

206− _aulFields

207− (Just _aulAlt)

208− where go

209− = clientWithRoute

210− (Proxy :: Proxy AccountsUrlchannelsListResource)

211− r

212− u

gogol-adexchange-seller/gogol-adexchange-seller.cabal+6−6

@@ -33,20 +33,20 @@ library

33 exposed-modules:

34 Network.Google.AdExchangeSeller

35 , Network.Google.AdExchangeSeller.Types

36− , Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List

36+ , Network.Google.Resource.AdExchangeSeller.Accounts.AdClients.List

37 , Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List

38− , Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get

38+ , Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.Get

39− , Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List

39+ , Network.Google.Resource.AdExchangeSeller.Accounts.CustomChannels.List

40 , Network.Google.Resource.AdExchangeSeller.Accounts.Get

41 , Network.Google.Resource.AdExchangeSeller.Accounts.List

42 , Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.List

43 , Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List

44− , Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get

44+ , Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.Get

45− , Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List

45+ , Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.List

46 , Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate

47 , Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate

48 , Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List

49− , Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List

49+ , Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List

50

51 other-modules:

52 Network.Google.AdExchangeSeller.Types.Product

gogol-admin-datatransfer/LICENSE−6

@@ -365,9 +365,3 @@ file in a relevant directory) where a recipient would be likely to look

365for such a notice.

366

367You may add additional accurate notices of copyright ownership.

368−

369−Exhibit B - "Incompatible With Secondary Licenses" Notice

370−---------------------------------------------------------

371−

372− This Source Code Form is "Incompatible With Secondary Licenses", as

373− defined by the Mozilla Public License, v. 2.0.

gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer.hs+15−18

@@ -27,20 +27,20 @@ module Network.Google.AdminDataTransfer

27

28 -- * REST Resources

29

30− -- ** DatatransferApplicationsGet

30+ -- ** DataTransferApplicationsGet

31− , module Network.Google.Resource.Datatransfer.Applications.Get

31+ , module Network.Google.Resource.DataTransfer.Applications.Get

32

33− -- ** DatatransferApplicationsList

33+ -- ** DataTransferApplicationsList

34− , module Network.Google.Resource.Datatransfer.Applications.List

34+ , module Network.Google.Resource.DataTransfer.Applications.List

35

36− -- ** DatatransferTransfersGet

36+ -- ** DataTransferTransfersGet

37− , module Network.Google.Resource.Datatransfer.Transfers.Get

37+ , module Network.Google.Resource.DataTransfer.Transfers.Get

38

39− -- ** DatatransferTransfersInsert

39+ -- ** DataTransferTransfersInsert

40− , module Network.Google.Resource.Datatransfer.Transfers.Insert

40+ , module Network.Google.Resource.DataTransfer.Transfers.Insert

41

42− -- ** DatatransferTransfersList

42+ -- ** DataTransferTransfersList

43− , module Network.Google.Resource.Datatransfer.Transfers.List

43+ , module Network.Google.Resource.DataTransfer.Transfers.List

44

45 -- * Types

46

@@ -87,9 +87,6 @@ module Network.Google.AdminDataTransfer

87 , dtlrKind

88 , dtlrDataTransfers

89

90− -- ** Alt

91− , Alt (..)

92−

93 -- ** ApplicationDataTransfer

90 -- ** ApplicationDataTransfer

94 , ApplicationDataTransfer

91 , ApplicationDataTransfer

95 , applicationDataTransfer

92 , applicationDataTransfer

@@ -100,11 +97,11 @@ module Network.Google.AdminDataTransfer

100

97

101import Network.Google.AdminDataTransfer.Types

98import Network.Google.AdminDataTransfer.Types

102import Network.Google.Prelude

99import Network.Google.Prelude

103−import Network.Google.Resource.Datatransfer.Applications.Get

100+import Network.Google.Resource.DataTransfer.Applications.Get

104−import Network.Google.Resource.Datatransfer.Applications.List

101+import Network.Google.Resource.DataTransfer.Applications.List

105−import Network.Google.Resource.Datatransfer.Transfers.Get

102+import Network.Google.Resource.DataTransfer.Transfers.Get

106−import Network.Google.Resource.Datatransfer.Transfers.Insert

103+import Network.Google.Resource.DataTransfer.Transfers.Insert

107−import Network.Google.Resource.Datatransfer.Transfers.List

104+import Network.Google.Resource.DataTransfer.Transfers.List

108

105

109{- $resources

106{- $resources

110TODO

107TODO

gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer/Types.hs−3

@@ -60,9 +60,6 @@ module Network.Google.AdminDataTransfer.Types

60 , dtlrKind

61 , dtlrDataTransfers

62

63− -- * Alt

64− , Alt (..)

65−

66 -- * ApplicationDataTransfer

63 -- * ApplicationDataTransfer

67 , ApplicationDataTransfer

64 , ApplicationDataTransfer

68 , applicationDataTransfer

65 , applicationDataTransfer

gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer/Types/Product.hs+10−10

@@ -22,7 +22,7 @@ import Network.Google.Prelude

22--

23-- /See:/ 'application' smart constructor.

24data Application = Application

25− { _aTransferParams :: !(Maybe [Maybe ApplicationTransferParam])

25+ { _aTransferParams :: !(Maybe [ApplicationTransferParam])

26 , _aEtag :: !(Maybe Text)

27 , _aKind :: !Text

28 , _aName :: !(Maybe Text)

@@ -56,7 +56,7 @@ application =

56-- | The list of all possible transfer parameters for this application. These

57-- parameters can be used to select the data of the user in this

58-- application to be transfered.

59−aTransferParams :: Lens' Application [Maybe ApplicationTransferParam]

59+aTransferParams :: Lens' Application [ApplicationTransferParam]

60aTransferParams

61 = lens _aTransferParams

62 (\ s a -> s{_aTransferParams = a})

@@ -155,7 +155,7 @@ data ApplicationsListResponse = ApplicationsListResponse

155 { _alrEtag :: !(Maybe Text)

156 , _alrNextPageToken :: !(Maybe Text)

157 , _alrKind :: !Text

158− , _alrApplications :: !(Maybe [Maybe Application])

158+ , _alrApplications :: !(Maybe [Application])

159 } deriving (Eq,Read,Show,Data,Typeable,Generic)

160

161-- | Creates a value of 'ApplicationsListResponse' with the minimum fields required to make a request.

@@ -195,7 +195,7 @@ alrKind = lens _alrKind (\ s a -> s{_alrKind = a})

195

196-- | List of applications that support data transfer and are also installed

197-- for the customer.

198−alrApplications :: Lens' ApplicationsListResponse [Maybe Application]

198+alrApplications :: Lens' ApplicationsListResponse [Application]

199alrApplications

200 = lens _alrApplications

201 (\ s a -> s{_alrApplications = a})

@@ -230,7 +230,7 @@ data DataTransfer = DataTransfer

230 , _dtKind :: !Text

231 , _dtNewOwnerUserId :: !(Maybe Text)

232 , _dtRequestTime :: !(Maybe UTCTime)

233− , _dtApplicationDataTransfers :: !(Maybe [Maybe ApplicationDataTransfer])

233+ , _dtApplicationDataTransfers :: !(Maybe [ApplicationDataTransfer])

234 , _dtId :: !(Maybe Text)

235 , _dtOverallTransferStatusCode :: !(Maybe Text)

236 } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -299,7 +299,7 @@ dtRequestTime

299-- resource. Note that this list is also used to specify the applications

300-- for which data transfer has to be done at the time of the transfer

301-- resource creation.

302−dtApplicationDataTransfers :: Lens' DataTransfer [Maybe ApplicationDataTransfer]

302+dtApplicationDataTransfers :: Lens' DataTransfer [ApplicationDataTransfer]

303dtApplicationDataTransfers

304 = lens _dtApplicationDataTransfers

305 (\ s a -> s{_dtApplicationDataTransfers = a})

@@ -351,7 +351,7 @@ data DataTransfersListResponse = DataTransfersListResponse

351 { _dtlrEtag :: !(Maybe Text)

352 , _dtlrNextPageToken :: !(Maybe Text)

353 , _dtlrKind :: !Text

354− , _dtlrDataTransfers :: !(Maybe [Maybe DataTransfer])

354+ , _dtlrDataTransfers :: !(Maybe [DataTransfer])

355 } deriving (Eq,Read,Show,Data,Typeable,Generic)

356

357-- | Creates a value of 'DataTransfersListResponse' with the minimum fields required to make a request.

@@ -390,7 +390,7 @@ dtlrKind :: Lens' DataTransfersListResponse Text

390dtlrKind = lens _dtlrKind (\ s a -> s{_dtlrKind = a})

391

392-- | List of data transfer requests.

393−dtlrDataTransfers :: Lens' DataTransfersListResponse [Maybe DataTransfer]

393+dtlrDataTransfers :: Lens' DataTransfersListResponse [DataTransfer]

394dtlrDataTransfers

395 = lens _dtlrDataTransfers

396 (\ s a -> s{_dtlrDataTransfers = a})

@@ -420,7 +420,7 @@ instance ToJSON DataTransfersListResponse where

420--

421-- /See:/ 'applicationDataTransfer' smart constructor.

422data ApplicationDataTransfer = ApplicationDataTransfer

423− { _adtApplicationTransferParams :: !(Maybe [Maybe ApplicationTransferParam])

423+ { _adtApplicationTransferParams :: !(Maybe [ApplicationTransferParam])

424 , _adtApplicationId :: !(Maybe Int64)

425 , _adtApplicationTransferStatus :: !(Maybe Text)

426 } deriving (Eq,Read,Show,Data,Typeable,Generic)

@@ -446,7 +446,7 @@ applicationDataTransfer =

446-- | The transfer parameters for the application. These parameters are used

447-- to select the data which will get transfered in context of this

448-- application.

449−adtApplicationTransferParams :: Lens' ApplicationDataTransfer [Maybe ApplicationTransferParam]

449+adtApplicationTransferParams :: Lens' ApplicationDataTransfer [ApplicationTransferParam]

450adtApplicationTransferParams

451 = lens _adtApplicationTransferParams

452 (\ s a -> s{_adtApplicationTransferParams = a})

gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer/Types/Sum.hs−24

@@ -16,27 +16,3 @@

16module Network.Google.AdminDataTransfer.Types.Sum where

17

18import Network.Google.Prelude

19−

20−-- | Data format for the response.

21−data Alt

22− = JSON

23− -- ^ @json@

24− -- Responses with Content-Type of application\/json

25− deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

26−

27−instance Hashable Alt

28−

29−instance FromText Alt where

30− fromText = \case

31− "json" -> Just JSON

32− _ -> Nothing

33−

34−instance ToText Alt where

35− toText = \case

36− JSON -> "json"

37−

38−instance FromJSON Alt where

39− parseJSON = parseJSONText "Alt"

40−

41−instance ToJSON Alt where

42− toJSON = toJSONText

gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Applications/Get.hs → gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Applications/Get.hsrenamed+28−33

@@ -10,7 +10,7 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.Datatransfer.Applications.Get

13+-- Module : Network.Google.Resource.DataTransfer.Applications.Get

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -19,8 +19,8 @@

19--

20-- | Retrieves information about an application for the given application ID.

21--

22−-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DatatransferApplicationsGet@.

22+-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DataTransferApplicationsGet@.

23−module Network.Google.Resource.Datatransfer.Applications.Get

23+module Network.Google.Resource.DataTransfer.Applications.Get

24 (

25 -- * REST Resource

26 ApplicationsGetResource

@@ -32,18 +32,17 @@ module Network.Google.Resource.Datatransfer.Applications.Get

32 -- * Request Lenses

33 , agQuotaUser

34 , agPrettyPrint

35− , agUserIp

35+ , agUserIP

36 , agApplicationId

37 , agKey

38− , agOauthToken

38+ , agOAuthToken

39 , agFields

40− , agAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdminDataTransfer.Types

42import Network.Google.AdminDataTransfer.Types

44import Network.Google.Prelude

43import Network.Google.Prelude

45

44

46−-- | A resource alias for @DatatransferApplicationsGet@ which the

45+-- | A resource alias for @DataTransferApplicationsGet@ which the

47-- 'ApplicationsGet'' request conforms to.

46-- 'ApplicationsGet'' request conforms to.

48type ApplicationsGetResource =

47type ApplicationsGetResource =

49 "applications" :>

48 "applications" :>

@@ -51,10 +50,10 @@ type ApplicationsGetResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

55 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] Application

56+ QueryParam "alt" AltJSON :> Get '[JSON] Application

58

57

59-- | Retrieves information about an application for the given application ID.

58-- | Retrieves information about an application for the given application ID.

60--

59--

@@ -62,12 +61,11 @@ type ApplicationsGetResource =

62data ApplicationsGet' = ApplicationsGet'

61data ApplicationsGet' = ApplicationsGet'

63 { _agQuotaUser :: !(Maybe Text)

62 { _agQuotaUser :: !(Maybe Text)

64 , _agPrettyPrint :: !Bool

63 , _agPrettyPrint :: !Bool

65− , _agUserIp :: !(Maybe Text)

64+ , _agUserIP :: !(Maybe Text)

66 , _agApplicationId :: !Int64

65 , _agApplicationId :: !Int64

67− , _agKey :: !(Maybe Text)

66+ , _agKey :: !(Maybe Key)

68− , _agOauthToken :: !(Maybe Text)

67+ , _agOAuthToken :: !(Maybe OAuthToken)

69 , _agFields :: !(Maybe Text)

68 , _agFields :: !(Maybe Text)

70− , _agAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

70

73-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.

71-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.

@@ -78,17 +76,15 @@ data ApplicationsGet' = ApplicationsGet'

78--

76--

79-- * 'agPrettyPrint'

77-- * 'agPrettyPrint'

80--

78--

81−-- * 'agUserIp'

79+-- * 'agUserIP'

82--

80--

83-- * 'agApplicationId'

81-- * 'agApplicationId'

84--

82--

85-- * 'agKey'

83-- * 'agKey'

86--

84--

87−-- * 'agOauthToken'

85+-- * 'agOAuthToken'

88--

86--

89-- * 'agFields'

87-- * 'agFields'

90−--

91−-- * 'agAlt'

92applicationsGet'

88applicationsGet'

93 :: Int64 -- ^ 'applicationId'

89 :: Int64 -- ^ 'applicationId'

94 -> ApplicationsGet'

90 -> ApplicationsGet'

@@ -96,12 +92,11 @@ applicationsGet' pAgApplicationId_ =

96 ApplicationsGet'

92 ApplicationsGet'

97 { _agQuotaUser = Nothing

93 { _agQuotaUser = Nothing

98 , _agPrettyPrint = True

94 , _agPrettyPrint = True

99− , _agUserIp = Nothing

95+ , _agUserIP = Nothing

100 , _agApplicationId = pAgApplicationId_

96 , _agApplicationId = pAgApplicationId_

101 , _agKey = Nothing

97 , _agKey = Nothing

102− , _agOauthToken = Nothing

98+ , _agOAuthToken = Nothing

103 , _agFields = Nothing

99 , _agFields = Nothing

104− , _agAlt = JSON

105 }

100 }

106

101

107-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,8 +114,8 @@ agPrettyPrint

119

114

120-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

116-- want to enforce per-user limits.

122−agUserIp :: Lens' ApplicationsGet' (Maybe Text)

117+agUserIP :: Lens' ApplicationsGet' (Maybe Text)

123−agUserIp = lens _agUserIp (\ s a -> s{_agUserIp = a})

118+agUserIP = lens _agUserIP (\ s a -> s{_agUserIP = a})

124

119

125-- | ID of the application resource to be retrieved.

120-- | ID of the application resource to be retrieved.

126agApplicationId :: Lens' ApplicationsGet' Int64

121agApplicationId :: Lens' ApplicationsGet' Int64

@@ -131,33 +126,33 @@ agApplicationId

131-- | API key. Your API key identifies your project and provides you with API

126-- | API key. Your API key identifies your project and provides you with API

132-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- access, quota, and reports. Required unless you provide an OAuth 2.0

133-- token.

128-- token.

134−agKey :: Lens' ApplicationsGet' (Maybe Text)

129+agKey :: Lens' ApplicationsGet' (Maybe Key)

135agKey = lens _agKey (\ s a -> s{_agKey = a})

130agKey = lens _agKey (\ s a -> s{_agKey = a})

136

131

137-- | OAuth 2.0 token for the current user.

132-- | OAuth 2.0 token for the current user.

138−agOauthToken :: Lens' ApplicationsGet' (Maybe Text)

133+agOAuthToken :: Lens' ApplicationsGet' (Maybe OAuthToken)

139−agOauthToken

134+agOAuthToken

140− = lens _agOauthToken (\ s a -> s{_agOauthToken = a})

135+ = lens _agOAuthToken (\ s a -> s{_agOAuthToken = a})

141

136

142-- | Selector specifying which fields to include in a partial response.

137-- | Selector specifying which fields to include in a partial response.

143agFields :: Lens' ApplicationsGet' (Maybe Text)

138agFields :: Lens' ApplicationsGet' (Maybe Text)

144agFields = lens _agFields (\ s a -> s{_agFields = a})

139agFields = lens _agFields (\ s a -> s{_agFields = a})

145

140

146−-- | Data format for the response.

147−agAlt :: Lens' ApplicationsGet' Alt

141+instance GoogleAuth ApplicationsGet' where

148−agAlt = lens _agAlt (\ s a -> s{_agAlt = a})

142+ authKey = agKey . _Just

143+ authToken = agOAuthToken . _Just

149

144

150instance GoogleRequest ApplicationsGet' where

145instance GoogleRequest ApplicationsGet' where

151 type Rs ApplicationsGet' = Application

146 type Rs ApplicationsGet' = Application

152 request

147 request

153 = requestWithRoute defReq adminDataTransferURL

148 = requestWithRoute defReq adminDataTransferURL

154 requestWithRoute r u ApplicationsGet'{..}

149 requestWithRoute r u ApplicationsGet'{..}

155− = go _agQuotaUser (Just _agPrettyPrint) _agUserIp

150+ = go _agQuotaUser (Just _agPrettyPrint) _agUserIP

156 _agApplicationId

151 _agApplicationId

157 _agKey

152 _agKey

158− _agOauthToken

153+ _agOAuthToken

159 _agFields

154 _agFields

160− (Just _agAlt)

155+ (Just AltJSON)

161 where go

156 where go

162 = clientWithRoute

157 = clientWithRoute

163 (Proxy :: Proxy ApplicationsGetResource)

158 (Proxy :: Proxy ApplicationsGetResource)

gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Applications/List.hs → gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Applications/List.hsrenamed+28−33

@@ -10,7 +10,7 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.Datatransfer.Applications.List

13+-- Module : Network.Google.Resource.DataTransfer.Applications.List

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -19,8 +19,8 @@

19--

20-- | Lists the applications available for data transfer for a customer.

21--

22−-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DatatransferApplicationsList@.

22+-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DataTransferApplicationsList@.

23−module Network.Google.Resource.Datatransfer.Applications.List

23+module Network.Google.Resource.DataTransfer.Applications.List

24 (

25 -- * REST Resource

26 ApplicationsListResource

@@ -32,20 +32,19 @@ module Network.Google.Resource.Datatransfer.Applications.List

32 -- * Request Lenses

33 , alQuotaUser

34 , alPrettyPrint

35− , alUserIp

35+ , alUserIP

36 , alCustomerId

37 , alKey

38 , alPageToken

39− , alOauthToken

39+ , alOAuthToken

40 , alMaxResults

41 , alFields

42− , alAlt

43 ) where

42 ) where

44

43

45import Network.Google.AdminDataTransfer.Types

44import Network.Google.AdminDataTransfer.Types

46import Network.Google.Prelude

45import Network.Google.Prelude

47

46

48−-- | A resource alias for @DatatransferApplicationsList@ which the

47+-- | A resource alias for @DataTransferApplicationsList@ which the

49-- 'ApplicationsList'' request conforms to.

48-- 'ApplicationsList'' request conforms to.

50type ApplicationsListResource =

49type ApplicationsListResource =

51 "applications" :>

50 "applications" :>

@@ -53,12 +52,12 @@ type ApplicationsListResource =

53 QueryParam "prettyPrint" Bool :>

52 QueryParam "prettyPrint" Bool :>

54 QueryParam "userIp" Text :>

53 QueryParam "userIp" Text :>

55 QueryParam "customerId" Text :>

54 QueryParam "customerId" Text :>

56− QueryParam "key" Text :>

55+ QueryParam "key" Key :>

57 QueryParam "pageToken" Text :>

56 QueryParam "pageToken" Text :>

58− QueryParam "oauth_token" Text :>

57+ QueryParam "oauth_token" OAuthToken :>

59 QueryParam "maxResults" Word32 :>

58 QueryParam "maxResults" Word32 :>

60 QueryParam "fields" Text :>

59 QueryParam "fields" Text :>

61− QueryParam "alt" Alt :>

60+ QueryParam "alt" AltJSON :>

62 Get '[JSON] ApplicationsListResponse

61 Get '[JSON] ApplicationsListResponse

63

62

64-- | Lists the applications available for data transfer for a customer.

63-- | Lists the applications available for data transfer for a customer.

@@ -67,14 +66,13 @@ type ApplicationsListResource =

67data ApplicationsList' = ApplicationsList'

66data ApplicationsList' = ApplicationsList'

68 { _alQuotaUser :: !(Maybe Text)

67 { _alQuotaUser :: !(Maybe Text)

69 , _alPrettyPrint :: !Bool

68 , _alPrettyPrint :: !Bool

70− , _alUserIp :: !(Maybe Text)

69+ , _alUserIP :: !(Maybe Text)

71 , _alCustomerId :: !(Maybe Text)

70 , _alCustomerId :: !(Maybe Text)

72− , _alKey :: !(Maybe Text)

71+ , _alKey :: !(Maybe Key)

73 , _alPageToken :: !(Maybe Text)

72 , _alPageToken :: !(Maybe Text)

74− , _alOauthToken :: !(Maybe Text)

73+ , _alOAuthToken :: !(Maybe OAuthToken)

75 , _alMaxResults :: !(Maybe Word32)

74 , _alMaxResults :: !(Maybe Word32)

76 , _alFields :: !(Maybe Text)

75 , _alFields :: !(Maybe Text)

77− , _alAlt :: !Alt

78 } deriving (Eq,Read,Show,Data,Typeable,Generic)

76 } deriving (Eq,Read,Show,Data,Typeable,Generic)

79

77

80-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.

78-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.

@@ -85,7 +83,7 @@ data ApplicationsList' = ApplicationsList'

85--

83--

86-- * 'alPrettyPrint'

84-- * 'alPrettyPrint'

87--

85--

88−-- * 'alUserIp'

86+-- * 'alUserIP'

89--

87--

90-- * 'alCustomerId'

88-- * 'alCustomerId'

91--

89--

@@ -93,27 +91,24 @@ data ApplicationsList' = ApplicationsList'

93--

91--

94-- * 'alPageToken'

92-- * 'alPageToken'

95--

93--

96−-- * 'alOauthToken'

94+-- * 'alOAuthToken'

97--

95--

98-- * 'alMaxResults'

96-- * 'alMaxResults'

99--

97--

100-- * 'alFields'

98-- * 'alFields'

101−--

102−-- * 'alAlt'

103applicationsList'

99applicationsList'

104 :: ApplicationsList'

100 :: ApplicationsList'

105applicationsList' =

101applicationsList' =

106 ApplicationsList'

102 ApplicationsList'

107 { _alQuotaUser = Nothing

103 { _alQuotaUser = Nothing

108 , _alPrettyPrint = True

104 , _alPrettyPrint = True

109− , _alUserIp = Nothing

105+ , _alUserIP = Nothing

110 , _alCustomerId = Nothing

106 , _alCustomerId = Nothing

111 , _alKey = Nothing

107 , _alKey = Nothing

112 , _alPageToken = Nothing

108 , _alPageToken = Nothing

113− , _alOauthToken = Nothing

109+ , _alOAuthToken = Nothing

114 , _alMaxResults = Nothing

110 , _alMaxResults = Nothing

115 , _alFields = Nothing

111 , _alFields = Nothing

116− , _alAlt = JSON

117 }

112 }

118

113

119-- | Available to use for quota purposes for server-side applications. Can be

114-- | Available to use for quota purposes for server-side applications. Can be

@@ -131,8 +126,8 @@ alPrettyPrint

131

126

132-- | IP address of the site where the request originates. Use this if you

127-- | IP address of the site where the request originates. Use this if you

133-- want to enforce per-user limits.

128-- want to enforce per-user limits.

134−alUserIp :: Lens' ApplicationsList' (Maybe Text)

129+alUserIP :: Lens' ApplicationsList' (Maybe Text)

135−alUserIp = lens _alUserIp (\ s a -> s{_alUserIp = a})

130+alUserIP = lens _alUserIP (\ s a -> s{_alUserIP = a})

136

131

137-- | Immutable ID of the Google Apps account.

132-- | Immutable ID of the Google Apps account.

138alCustomerId :: Lens' ApplicationsList' (Maybe Text)

133alCustomerId :: Lens' ApplicationsList' (Maybe Text)

@@ -142,7 +137,7 @@ alCustomerId

142-- | API key. Your API key identifies your project and provides you with API

137-- | API key. Your API key identifies your project and provides you with API

143-- access, quota, and reports. Required unless you provide an OAuth 2.0

138-- access, quota, and reports. Required unless you provide an OAuth 2.0

144-- token.

139-- token.

145−alKey :: Lens' ApplicationsList' (Maybe Text)

140+alKey :: Lens' ApplicationsList' (Maybe Key)

146alKey = lens _alKey (\ s a -> s{_alKey = a})

141alKey = lens _alKey (\ s a -> s{_alKey = a})

147

142

148-- | Token to specify next page in the list.

143-- | Token to specify next page in the list.

@@ -151,9 +146,9 @@ alPageToken

151 = lens _alPageToken (\ s a -> s{_alPageToken = a})

146 = lens _alPageToken (\ s a -> s{_alPageToken = a})

152

147

153-- | OAuth 2.0 token for the current user.

148-- | OAuth 2.0 token for the current user.

154−alOauthToken :: Lens' ApplicationsList' (Maybe Text)

149+alOAuthToken :: Lens' ApplicationsList' (Maybe OAuthToken)

155−alOauthToken

150+alOAuthToken

156− = lens _alOauthToken (\ s a -> s{_alOauthToken = a})

151+ = lens _alOAuthToken (\ s a -> s{_alOAuthToken = a})

157

152

158-- | Maximum number of results to return. Default is 100.

153-- | Maximum number of results to return. Default is 100.

159alMaxResults :: Lens' ApplicationsList' (Maybe Word32)

154alMaxResults :: Lens' ApplicationsList' (Maybe Word32)

@@ -164,23 +159,23 @@ alMaxResults

164alFields :: Lens' ApplicationsList' (Maybe Text)

159alFields :: Lens' ApplicationsList' (Maybe Text)

165alFields = lens _alFields (\ s a -> s{_alFields = a})

160alFields = lens _alFields (\ s a -> s{_alFields = a})

166

161

167−-- | Data format for the response.

168−alAlt :: Lens' ApplicationsList' Alt

162+instance GoogleAuth ApplicationsList' where

169−alAlt = lens _alAlt (\ s a -> s{_alAlt = a})

163+ authKey = alKey . _Just

164+ authToken = alOAuthToken . _Just

170

165

171instance GoogleRequest ApplicationsList' where

166instance GoogleRequest ApplicationsList' where

172 type Rs ApplicationsList' = ApplicationsListResponse

167 type Rs ApplicationsList' = ApplicationsListResponse

173 request

168 request

174 = requestWithRoute defReq adminDataTransferURL

169 = requestWithRoute defReq adminDataTransferURL

175 requestWithRoute r u ApplicationsList'{..}

170 requestWithRoute r u ApplicationsList'{..}

176− = go _alQuotaUser (Just _alPrettyPrint) _alUserIp

171+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIP

177 _alCustomerId

172 _alCustomerId

178 _alKey

173 _alKey

179 _alPageToken

174 _alPageToken

180− _alOauthToken

175+ _alOAuthToken

181 _alMaxResults

176 _alMaxResults

182 _alFields

177 _alFields

183− (Just _alAlt)

178+ (Just AltJSON)

184 where go

179 where go

185 = clientWithRoute

180 = clientWithRoute

186 (Proxy :: Proxy ApplicationsListResource)

181 (Proxy :: Proxy ApplicationsListResource)

gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Transfers/Get.hs → gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/Get.hsrenamed+28−33

@@ -10,7 +10,7 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.Datatransfer.Transfers.Get

13+-- Module : Network.Google.Resource.DataTransfer.Transfers.Get

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -19,8 +19,8 @@

19--

20-- | Retrieves a data transfer request by its resource ID.

21--

22−-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DatatransferTransfersGet@.

22+-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DataTransferTransfersGet@.

23−module Network.Google.Resource.Datatransfer.Transfers.Get

23+module Network.Google.Resource.DataTransfer.Transfers.Get

24 (

25 -- * REST Resource

26 TransfersGetResource

@@ -32,18 +32,17 @@ module Network.Google.Resource.Datatransfer.Transfers.Get

32 -- * Request Lenses

33 , tgQuotaUser

34 , tgPrettyPrint

35− , tgUserIp

35+ , tgUserIP

36 , tgKey

37− , tgOauthToken

37+ , tgOAuthToken

38 , tgDataTransferId

39 , tgFields

40− , tgAlt

41 ) where

40 ) where

42

41

43import Network.Google.AdminDataTransfer.Types

42import Network.Google.AdminDataTransfer.Types

44import Network.Google.Prelude

43import Network.Google.Prelude

45

44

46−-- | A resource alias for @DatatransferTransfersGet@ which the

45+-- | A resource alias for @DataTransferTransfersGet@ which the

47-- 'TransfersGet'' request conforms to.

46-- 'TransfersGet'' request conforms to.

48type TransfersGetResource =

47type TransfersGetResource =

49 "transfers" :>

48 "transfers" :>

@@ -51,10 +50,10 @@ type TransfersGetResource =

51 QueryParam "quotaUser" Text :>

50 QueryParam "quotaUser" Text :>

52 QueryParam "prettyPrint" Bool :>

51 QueryParam "prettyPrint" Bool :>

53 QueryParam "userIp" Text :>

52 QueryParam "userIp" Text :>

54− QueryParam "key" Text :>

53+ QueryParam "key" Key :>

55− QueryParam "oauth_token" Text :>

54+ QueryParam "oauth_token" OAuthToken :>

56 QueryParam "fields" Text :>

55 QueryParam "fields" Text :>

57− QueryParam "alt" Alt :> Get '[JSON] DataTransfer

56+ QueryParam "alt" AltJSON :> Get '[JSON] DataTransfer

58

57

59-- | Retrieves a data transfer request by its resource ID.

58-- | Retrieves a data transfer request by its resource ID.

60--

59--

@@ -62,12 +61,11 @@ type TransfersGetResource =

62data TransfersGet' = TransfersGet'

61data TransfersGet' = TransfersGet'

63 { _tgQuotaUser :: !(Maybe Text)

62 { _tgQuotaUser :: !(Maybe Text)

64 , _tgPrettyPrint :: !Bool

63 , _tgPrettyPrint :: !Bool

65− , _tgUserIp :: !(Maybe Text)

64+ , _tgUserIP :: !(Maybe Text)

66− , _tgKey :: !(Maybe Text)

65+ , _tgKey :: !(Maybe Key)

67− , _tgOauthToken :: !(Maybe Text)

66+ , _tgOAuthToken :: !(Maybe OAuthToken)

68 , _tgDataTransferId :: !Text

67 , _tgDataTransferId :: !Text

69 , _tgFields :: !(Maybe Text)

68 , _tgFields :: !(Maybe Text)

70− , _tgAlt :: !Alt

71 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69 } deriving (Eq,Read,Show,Data,Typeable,Generic)

72

70

73-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.

71-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.

@@ -78,17 +76,15 @@ data TransfersGet' = TransfersGet'

78--

76--

79-- * 'tgPrettyPrint'

77-- * 'tgPrettyPrint'

80--

78--

81−-- * 'tgUserIp'

79+-- * 'tgUserIP'

82--

80--

83-- * 'tgKey'

81-- * 'tgKey'

84--

82--

85−-- * 'tgOauthToken'

83+-- * 'tgOAuthToken'

86--

84--

87-- * 'tgDataTransferId'

85-- * 'tgDataTransferId'

88--

86--

89-- * 'tgFields'

87-- * 'tgFields'

90−--

91−-- * 'tgAlt'

92transfersGet'

88transfersGet'

93 :: Text -- ^ 'dataTransferId'

89 :: Text -- ^ 'dataTransferId'

94 -> TransfersGet'

90 -> TransfersGet'

@@ -96,12 +92,11 @@ transfersGet' pTgDataTransferId_ =

96 TransfersGet'

92 TransfersGet'

97 { _tgQuotaUser = Nothing

93 { _tgQuotaUser = Nothing

98 , _tgPrettyPrint = True

94 , _tgPrettyPrint = True

99− , _tgUserIp = Nothing

95+ , _tgUserIP = Nothing

100 , _tgKey = Nothing

96 , _tgKey = Nothing

101− , _tgOauthToken = Nothing

97+ , _tgOAuthToken = Nothing

102 , _tgDataTransferId = pTgDataTransferId_

98 , _tgDataTransferId = pTgDataTransferId_

103 , _tgFields = Nothing

99 , _tgFields = Nothing

104− , _tgAlt = JSON

105 }

100 }

106

101

107-- | Available to use for quota purposes for server-side applications. Can be

102-- | Available to use for quota purposes for server-side applications. Can be

@@ -119,19 +114,19 @@ tgPrettyPrint

119

114

120-- | IP address of the site where the request originates. Use this if you

115-- | IP address of the site where the request originates. Use this if you

121-- want to enforce per-user limits.

116-- want to enforce per-user limits.

122−tgUserIp :: Lens' TransfersGet' (Maybe Text)

117+tgUserIP :: Lens' TransfersGet' (Maybe Text)

123−tgUserIp = lens _tgUserIp (\ s a -> s{_tgUserIp = a})

118+tgUserIP = lens _tgUserIP (\ s a -> s{_tgUserIP = a})

124

119

125-- | API key. Your API key identifies your project and provides you with API

120-- | API key. Your API key identifies your project and provides you with API

126-- access, quota, and reports. Required unless you provide an OAuth 2.0

121-- access, quota, and reports. Required unless you provide an OAuth 2.0

127-- token.

122-- token.

128−tgKey :: Lens' TransfersGet' (Maybe Text)

123+tgKey :: Lens' TransfersGet' (Maybe Key)

129tgKey = lens _tgKey (\ s a -> s{_tgKey = a})

124tgKey = lens _tgKey (\ s a -> s{_tgKey = a})

130

125

131-- | OAuth 2.0 token for the current user.

126-- | OAuth 2.0 token for the current user.

132−tgOauthToken :: Lens' TransfersGet' (Maybe Text)

127+tgOAuthToken :: Lens' TransfersGet' (Maybe OAuthToken)

133−tgOauthToken

128+tgOAuthToken

134− = lens _tgOauthToken (\ s a -> s{_tgOauthToken = a})

129+ = lens _tgOAuthToken (\ s a -> s{_tgOAuthToken = a})

135

130

136-- | ID of the resource to be retrieved. This is returned in the response

131-- | ID of the resource to be retrieved. This is returned in the response

137-- from the insert method.

132-- from the insert method.

@@ -144,21 +139,21 @@ tgDataTransferId

144tgFields :: Lens' TransfersGet' (Maybe Text)

139tgFields :: Lens' TransfersGet' (Maybe Text)

145tgFields = lens _tgFields (\ s a -> s{_tgFields = a})

140tgFields = lens _tgFields (\ s a -> s{_tgFields = a})

146

141

147−-- | Data format for the response.

148−tgAlt :: Lens' TransfersGet' Alt

142+instance GoogleAuth TransfersGet' where

149−tgAlt = lens _tgAlt (\ s a -> s{_tgAlt = a})

143+ authKey = tgKey . _Just

144+ authToken = tgOAuthToken . _Just

150

145

151instance GoogleRequest TransfersGet' where

146instance GoogleRequest TransfersGet' where

152 type Rs TransfersGet' = DataTransfer

147 type Rs TransfersGet' = DataTransfer

153 request

148 request

154 = requestWithRoute defReq adminDataTransferURL

149 = requestWithRoute defReq adminDataTransferURL

155 requestWithRoute r u TransfersGet'{..}

150 requestWithRoute r u TransfersGet'{..}

156− = go _tgQuotaUser (Just _tgPrettyPrint) _tgUserIp

151+ = go _tgQuotaUser (Just _tgPrettyPrint) _tgUserIP

157 _tgKey

152 _tgKey

158− _tgOauthToken

153+ _tgOAuthToken

159 _tgDataTransferId

154 _tgDataTransferId

160 _tgFields

155 _tgFields

161− (Just _tgAlt)

156+ (Just AltJSON)

162 where go

157 where go

163 = clientWithRoute

158 = clientWithRoute

164 (Proxy :: Proxy TransfersGetResource)

159 (Proxy :: Proxy TransfersGetResource)

gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Transfers/Insert.hs → gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/Insert.hsrenamed+48−38

@@ -10,7 +10,7 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.Datatransfer.Transfers.Insert

13+-- Module : Network.Google.Resource.DataTransfer.Transfers.Insert

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -19,8 +19,8 @@

19--

20-- | Inserts a data transfer request.

21--

22−-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DatatransferTransfersInsert@.

22+-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DataTransferTransfersInsert@.

23−module Network.Google.Resource.Datatransfer.Transfers.Insert

23+module Network.Google.Resource.DataTransfer.Transfers.Insert

24 (

25 -- * REST Resource

26 TransfersInsertResource

@@ -32,39 +32,41 @@ module Network.Google.Resource.Datatransfer.Transfers.Insert

32 -- * Request Lenses

33 , tiQuotaUser

34 , tiPrettyPrint

35− , tiUserIp

35+ , tiUserIP

36 , tiKey

37− , tiOauthToken

37+ , tiOAuthToken

38+ , tiDataTransfer

38 , tiFields

39 , tiFields

39− , tiAlt

40 ) where

41

42import Network.Google.AdminDataTransfer.Types

43import Network.Google.Prelude

44

45−-- | A resource alias for @DatatransferTransfersInsert@ which the

45+-- | A resource alias for @DataTransferTransfersInsert@ which the

46-- 'TransfersInsert'' request conforms to.

47type TransfersInsertResource =

48 "transfers" :>

49 QueryParam "quotaUser" Text :>

50 QueryParam "prettyPrint" Bool :>

51 QueryParam "userIp" Text :>

52− QueryParam "key" Text :>

52+ QueryParam "key" Key :>

53− QueryParam "oauth_token" Text :>

53+ QueryParam "oauth_token" OAuthToken :>

54 QueryParam "fields" Text :>

55+ QueryParam "alt" AltJSON :>

56+ ReqBody '[JSON] DataTransfer :>

55− QueryParam "alt" Alt :> Post '[JSON] DataTransfer

57+ Post '[JSON] DataTransfer

56

58

57-- | Inserts a data transfer request.

59-- | Inserts a data transfer request.

58--

60--

59-- /See:/ 'transfersInsert'' smart constructor.

61-- /See:/ 'transfersInsert'' smart constructor.

60data TransfersInsert' = TransfersInsert'

62data TransfersInsert' = TransfersInsert'

61− { _tiQuotaUser :: !(Maybe Text)

63+ { _tiQuotaUser :: !(Maybe Text)

62− , _tiPrettyPrint :: !Bool

64+ , _tiPrettyPrint :: !Bool

63− , _tiUserIp :: !(Maybe Text)

65+ , _tiUserIP :: !(Maybe Text)

64− , _tiKey :: !(Maybe Text)

66+ , _tiKey :: !(Maybe Key)

65− , _tiOauthToken :: !(Maybe Text)

67+ , _tiOAuthToken :: !(Maybe OAuthToken)

68+ , _tiDataTransfer :: !DataTransfer

66− , _tiFields :: !(Maybe Text)

69+ , _tiFields :: !(Maybe Text)

67− , _tiAlt :: !Alt

68 } deriving (Eq,Read,Show,Data,Typeable,Generic)

70 } deriving (Eq,Read,Show,Data,Typeable,Generic)

69

71

70-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.

72-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.

@@ -75,26 +77,27 @@ data TransfersInsert' = TransfersInsert'

75--

77--

76-- * 'tiPrettyPrint'

78-- * 'tiPrettyPrint'

77--

79--

78−-- * 'tiUserIp'

80+-- * 'tiUserIP'

79--

81--

80-- * 'tiKey'

82-- * 'tiKey'

81--

83--

82−-- * 'tiOauthToken'

84+-- * 'tiOAuthToken'

83--

85--

84−-- * 'tiFields'

86+-- * 'tiDataTransfer'

85--

87--

86−-- * 'tiAlt'

88+-- * 'tiFields'

87transfersInsert'

89transfersInsert'

90+ :: DataTransfer -- ^ 'DataTransfer'

88− :: TransfersInsert'

91+ -> TransfersInsert'

89−transfersInsert' =

92+transfersInsert' pTiDataTransfer_ =

90 TransfersInsert'

93 TransfersInsert'

91 { _tiQuotaUser = Nothing

94 { _tiQuotaUser = Nothing

92 , _tiPrettyPrint = True

95 , _tiPrettyPrint = True

93− , _tiUserIp = Nothing

96+ , _tiUserIP = Nothing

94 , _tiKey = Nothing

97 , _tiKey = Nothing

95− , _tiOauthToken = Nothing

98+ , _tiOAuthToken = Nothing

99+ , _tiDataTransfer = pTiDataTransfer_

96 , _tiFields = Nothing

100 , _tiFields = Nothing

97− , _tiAlt = JSON

98 }

101 }

99

102

100-- | Available to use for quota purposes for server-side applications. Can be

103-- | Available to use for quota purposes for server-side applications. Can be

@@ -112,38 +115,45 @@ tiPrettyPrint

112

115

113-- | IP address of the site where the request originates. Use this if you

116-- | IP address of the site where the request originates. Use this if you

114-- want to enforce per-user limits.

117-- want to enforce per-user limits.

115−tiUserIp :: Lens' TransfersInsert' (Maybe Text)

118+tiUserIP :: Lens' TransfersInsert' (Maybe Text)

116−tiUserIp = lens _tiUserIp (\ s a -> s{_tiUserIp = a})

119+tiUserIP = lens _tiUserIP (\ s a -> s{_tiUserIP = a})

117

120

118-- | API key. Your API key identifies your project and provides you with API

121-- | API key. Your API key identifies your project and provides you with API

119-- access, quota, and reports. Required unless you provide an OAuth 2.0

122-- access, quota, and reports. Required unless you provide an OAuth 2.0

120-- token.

123-- token.

121−tiKey :: Lens' TransfersInsert' (Maybe Text)

124+tiKey :: Lens' TransfersInsert' (Maybe Key)

122tiKey = lens _tiKey (\ s a -> s{_tiKey = a})

125tiKey = lens _tiKey (\ s a -> s{_tiKey = a})

123

126

124-- | OAuth 2.0 token for the current user.

127-- | OAuth 2.0 token for the current user.

125−tiOauthToken :: Lens' TransfersInsert' (Maybe Text)

128+tiOAuthToken :: Lens' TransfersInsert' (Maybe OAuthToken)

126−tiOauthToken

129+tiOAuthToken

127− = lens _tiOauthToken (\ s a -> s{_tiOauthToken = a})

130+ = lens _tiOAuthToken (\ s a -> s{_tiOAuthToken = a})

131+

132+-- | Multipart request metadata.

133+tiDataTransfer :: Lens' TransfersInsert' DataTransfer

134+tiDataTransfer

135+ = lens _tiDataTransfer

136+ (\ s a -> s{_tiDataTransfer = a})

128

137

129-- | Selector specifying which fields to include in a partial response.

138-- | Selector specifying which fields to include in a partial response.

130tiFields :: Lens' TransfersInsert' (Maybe Text)

139tiFields :: Lens' TransfersInsert' (Maybe Text)

131tiFields = lens _tiFields (\ s a -> s{_tiFields = a})

140tiFields = lens _tiFields (\ s a -> s{_tiFields = a})

132

141

133−-- | Data format for the response.

134−tiAlt :: Lens' TransfersInsert' Alt

142+instance GoogleAuth TransfersInsert' where

135−tiAlt = lens _tiAlt (\ s a -> s{_tiAlt = a})

143+ authKey = tiKey . _Just

144+ authToken = tiOAuthToken . _Just

136

145

137instance GoogleRequest TransfersInsert' where

146instance GoogleRequest TransfersInsert' where

138 type Rs TransfersInsert' = DataTransfer

147 type Rs TransfersInsert' = DataTransfer

139 request

148 request

140 = requestWithRoute defReq adminDataTransferURL

149 = requestWithRoute defReq adminDataTransferURL

141 requestWithRoute r u TransfersInsert'{..}

150 requestWithRoute r u TransfersInsert'{..}

142− = go _tiQuotaUser (Just _tiPrettyPrint) _tiUserIp

151+ = go _tiQuotaUser (Just _tiPrettyPrint) _tiUserIP

143 _tiKey

152 _tiKey

144− _tiOauthToken

153+ _tiOAuthToken

145 _tiFields

154 _tiFields

146− (Just _tiAlt)

155+ (Just AltJSON)

156+ _tiDataTransfer

147 where go

157 where go

148 = clientWithRoute

158 = clientWithRoute

149 (Proxy :: Proxy TransfersInsertResource)

159 (Proxy :: Proxy TransfersInsertResource)

gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Transfers/List.hs → gogol-admin-datatransfer/gen/Network/Google/Resource/DataTransfer/Transfers/List.hsrenamed+28−33

@@ -10,7 +10,7 @@

10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

11

12-- |

13−-- Module : Network.Google.Resource.Datatransfer.Transfers.List

13+-- Module : Network.Google.Resource.DataTransfer.Transfers.List

15-- License : Mozilla Public License, v. 2.0.

16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -20,8 +20,8 @@

20-- | Lists the transfers for a customer by source user, destination user, or

21-- status.

22--

23−-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DatatransferTransfersList@.

23+-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference> for @DataTransferTransfersList@.

24−module Network.Google.Resource.Datatransfer.Transfers.List

24+module Network.Google.Resource.DataTransfer.Transfers.List

25 (

26 -- * REST Resource

27 TransfersListResource

@@ -35,21 +35,20 @@ module Network.Google.Resource.Datatransfer.Transfers.List

35 , tlQuotaUser

36 , tlPrettyPrint

37 , tlOldOwnerUserId

38− , tlUserIp

38+ , tlUserIP

39 , tlNewOwnerUserId

40 , tlCustomerId

41 , tlKey

42 , tlPageToken

43− , tlOauthToken

43+ , tlOAuthToken

44 , tlMaxResults

45 , tlFields

46− , tlAlt

47 ) where

46 ) where

48

47

49import Network.Google.AdminDataTransfer.Types

48import Network.Google.AdminDataTransfer.Types

50import Network.Google.Prelude

49import Network.Google.Prelude

51

50

52−-- | A resource alias for @DatatransferTransfersList@ which the

51+-- | A resource alias for @DataTransferTransfersList@ which the

53-- 'TransfersList'' request conforms to.

52-- 'TransfersList'' request conforms to.

54type TransfersListResource =

53type TransfersListResource =

55 "transfers" :>

54 "transfers" :>

@@ -60,12 +59,12 @@ type TransfersListResource =

60 QueryParam "userIp" Text :>

59 QueryParam "userIp" Text :>

61 QueryParam "newOwnerUserId" Text :>

60 QueryParam "newOwnerUserId" Text :>

62 QueryParam "customerId" Text :>

61 QueryParam "customerId" Text :>

63− QueryParam "key" Text :>

62+ QueryParam "key" Key :>

64 QueryParam "pageToken" Text :>

63 QueryParam "pageToken" Text :>

65− QueryParam "oauth_token" Text :>

64+ QueryParam "oauth_token" OAuthToken :>

66 QueryParam "maxResults" Int32 :>

65 QueryParam "maxResults" Int32 :>

67 QueryParam "fields" Text :>

66 QueryParam "fields" Text :>

68− QueryParam "alt" Alt :>

67+ QueryParam "alt" AltJSON :>

69 Get '[JSON] DataTransfersListResponse

68 Get '[JSON] DataTransfersListResponse

70

69

71-- | Lists the transfers for a customer by source user, destination user, or

70-- | Lists the transfers for a customer by source user, destination user, or

@@ -77,15 +76,14 @@ data TransfersList' = TransfersList'

77 , _tlQuotaUser :: !(Maybe Text)

76 , _tlQuotaUser :: !(Maybe Text)

78 , _tlPrettyPrint :: !Bool

77 , _tlPrettyPrint :: !Bool

79 , _tlOldOwnerUserId :: !(Maybe Text)

78 , _tlOldOwnerUserId :: !(Maybe Text)

80− , _tlUserIp :: !(Maybe Text)

79+ , _tlUserIP :: !(Maybe Text)

81 , _tlNewOwnerUserId :: !(Maybe Text)

80 , _tlNewOwnerUserId :: !(Maybe Text)

82 , _tlCustomerId :: !(Maybe Text)

81 , _tlCustomerId :: !(Maybe Text)

83− , _tlKey :: !(Maybe Text)

82+ , _tlKey :: !(Maybe Key)

84 , _tlPageToken :: !(Maybe Text)

83 , _tlPageToken :: !(Maybe Text)

85− , _tlOauthToken :: !(Maybe Text)

84+ , _tlOAuthToken :: !(Maybe OAuthToken)

86 , _tlMaxResults :: !(Maybe Int32)

85 , _tlMaxResults :: !(Maybe Int32)

87 , _tlFields :: !(Maybe Text)

86 , _tlFields :: !(Maybe Text)

88− , _tlAlt :: !Alt

89 } deriving (Eq,Read,Show,Data,Typeable,Generic)

87 } deriving (Eq,Read,Show,Data,Typeable,Generic)

90

88

91-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.

89-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.

@@ -100,7 +98,7 @@ data TransfersList' = TransfersList'

100--

98--

101-- * 'tlOldOwnerUserId'

99-- * 'tlOldOwnerUserId'

102--

100--

103−-- * 'tlUserIp'

101+-- * 'tlUserIP'

104--

102--

105-- * 'tlNewOwnerUserId'

103-- * 'tlNewOwnerUserId'

106--

104--

@@ -110,13 +108,11 @@ data TransfersList' = TransfersList'

110--

108--

111-- * 'tlPageToken'

109-- * 'tlPageToken'

112--

110--

113−-- * 'tlOauthToken'

111+-- * 'tlOAuthToken'

114--

112--

115-- * 'tlMaxResults'

113-- * 'tlMaxResults'

116--

114--

117-- * 'tlFields'

115-- * 'tlFields'

118−--

119−-- * 'tlAlt'

120transfersList'

116transfersList'

121 :: TransfersList'

117 :: TransfersList'

122transfersList' =

118transfersList' =

@@ -125,15 +121,14 @@ transfersList' =

125 , _tlQuotaUser = Nothing

121 , _tlQuotaUser = Nothing

126 , _tlPrettyPrint = True

122 , _tlPrettyPrint = True

127 , _tlOldOwnerUserId = Nothing

123 , _tlOldOwnerUserId = Nothing

128− , _tlUserIp = Nothing

124+ , _tlUserIP = Nothing

129 , _tlNewOwnerUserId = Nothing

125 , _tlNewOwnerUserId = Nothing

130 , _tlCustomerId = Nothing

126 , _tlCustomerId = Nothing

131 , _tlKey = Nothing

127 , _tlKey = Nothing

132 , _tlPageToken = Nothing

128 , _tlPageToken = Nothing

133− , _tlOauthToken = Nothing

129+ , _tlOAuthToken = Nothing

134 , _tlMaxResults = Nothing

130 , _tlMaxResults = Nothing

135 , _tlFields = Nothing

131 , _tlFields = Nothing

136− , _tlAlt = JSON

137 }

132 }

138

133

139-- | Status of the transfer.

134-- | Status of the transfer.

@@ -161,8 +156,8 @@ tlOldOwnerUserId

161

156

162-- | IP address of the site where the request originates. Use this if you

157-- | IP address of the site where the request originates. Use this if you

163-- want to enforce per-user limits.

158-- want to enforce per-user limits.

164−tlUserIp :: Lens' TransfersList' (Maybe Text)

159+tlUserIP :: Lens' TransfersList' (Maybe Text)

165−tlUserIp = lens _tlUserIp (\ s a -> s{_tlUserIp = a})

160+tlUserIP = lens _tlUserIP (\ s a -> s{_tlUserIP = a})

166

161

167-- | Destination user\'s profile ID.

162-- | Destination user\'s profile ID.

168tlNewOwnerUserId :: Lens' TransfersList' (Maybe Text)

163tlNewOwnerUserId :: Lens' TransfersList' (Maybe Text)

@@ -178,7 +173,7 @@ tlCustomerId

178-- | API key. Your API key identifies your project and provides you with API

173-- | API key. Your API key identifies your project and provides you with API

179-- access, quota, and reports. Required unless you provide an OAuth 2.0

174-- access, quota, and reports. Required unless you provide an OAuth 2.0

180-- token.

175-- token.

181−tlKey :: Lens' TransfersList' (Maybe Text)

176+tlKey :: Lens' TransfersList' (Maybe Key)

182tlKey = lens _tlKey (\ s a -> s{_tlKey = a})

177tlKey = lens _tlKey (\ s a -> s{_tlKey = a})

183

178

184-- | Token to specify the next page in the list.

179-- | Token to specify the next page in the list.

@@ -187,9 +182,9 @@ tlPageToken

187 = lens _tlPageToken (\ s a -> s{_tlPageToken = a})

182 = lens _tlPageToken (\ s a -> s{_tlPageToken = a})

188

183

189-- | OAuth 2.0 token for the current user.

184-- | OAuth 2.0 token for the current user.

190−tlOauthToken :: Lens' TransfersList' (Maybe Text)

185+tlOAuthToken :: Lens' TransfersList' (Maybe OAuthToken)

191−tlOauthToken

186+tlOAuthToken

192− = lens _tlOauthToken (\ s a -> s{_tlOauthToken = a})

187+ = lens _tlOAuthToken (\ s a -> s{_tlOAuthToken = a})

193

188

194-- | Maximum number of results to return. Default is 100.

189-- | Maximum number of results to return. Default is 100.

195tlMaxResults :: Lens' TransfersList' (Maybe Int32)

190tlMaxResults :: Lens' TransfersList' (Maybe Int32)

@@ -200,9 +195,9 @@ tlMaxResults

200tlFields :: Lens' TransfersList' (Maybe Text)

195tlFields :: Lens' TransfersList' (Maybe Text)

201tlFields = lens _tlFields (\ s a -> s{_tlFields = a})

196tlFields = lens _tlFields (\ s a -> s{_tlFields = a})

202

197

203−-- | Data format for the response.

204−tlAlt :: Lens' TransfersList' Alt

198+instance GoogleAuth TransfersList' where

205−tlAlt = lens _tlAlt (\ s a -> s{_tlAlt = a})

199+ authKey = tlKey . _Just

200+ authToken = tlOAuthToken . _Just

206

201

207instance GoogleRequest TransfersList' where

202instance GoogleRequest TransfersList' where

208 type Rs TransfersList' = DataTransfersListResponse

203 type Rs TransfersList' = DataTransfersListResponse

@@ -211,15 +206,15 @@ instance GoogleRequest TransfersList' where

211 requestWithRoute r u TransfersList'{..}

206 requestWithRoute r u TransfersList'{..}

212 = go _tlStatus _tlQuotaUser (Just _tlPrettyPrint)

207 = go _tlStatus _tlQuotaUser (Just _tlPrettyPrint)

213 _tlOldOwnerUserId

208 _tlOldOwnerUserId

214− _tlUserIp

209+ _tlUserIP

215 _tlNewOwnerUserId

210 _tlNewOwnerUserId

216 _tlCustomerId

211 _tlCustomerId

217 _tlKey

212 _tlKey

218 _tlPageToken

213 _tlPageToken

219− _tlOauthToken

214+ _tlOAuthToken

220 _tlMaxResults

215 _tlMaxResults

221 _tlFields

216 _tlFields

222− (Just _tlAlt)

217+ (Just AltJSON)

223 where go

218 where go

224 = clientWithRoute

219 = clientWithRoute

225 (Proxy :: Proxy TransfersListResource)

220 (Proxy :: Proxy TransfersListResource)

gogol-admin-datatransfer/gogol-admin-datatransfer.cabal+5−5

@@ -33,11 +33,11 @@ library

33 exposed-modules:

34 Network.Google.AdminDataTransfer

35 , Network.Google.AdminDataTransfer.Types

36− , Network.Google.Resource.Datatransfer.Applications.Get

36+ , Network.Google.Resource.DataTransfer.Applications.Get

37− , Network.Google.Resource.Datatransfer.Applications.List

37+ , Network.Google.Resource.DataTransfer.Applications.List

38− , Network.Google.Resource.Datatransfer.Transfers.Get

38+ , Network.Google.Resource.DataTransfer.Transfers.Get

39− , Network.Google.Resource.Datatransfer.Transfers.Insert

39+ , Network.Google.Resource.DataTransfer.Transfers.Insert

40− , Network.Google.Resource.Datatransfer.Transfers.List

40+ , Network.Google.Resource.DataTransfer.Transfers.List

41

42 other-modules:

43 Network.Google.AdminDataTransfer.Types.Product

gogol-admin-directory/LICENSE−6

@@ -365,9 +365,3 @@ file in a relevant directory) where a recipient would be likely to look

365for such a notice.

366

367You may add additional accurate notices of copyright ownership.

368−

369−Exhibit B - "Incompatible With Secondary Licenses" Notice

370−---------------------------------------------------------

371−

372− This Source Code Form is "Incompatible With Secondary Licenses", as

373− defined by the Mozilla Public License, v. 2.0.

gogol-admin-directory/gen/Network/Google/AdminDirectory.hs+137−140

@@ -40,17 +40,17 @@ module Network.Google.AdminDirectory

40 -- ** DirectoryAspsList

41 , module Network.Google.Resource.Directory.Asps.List

42

43− -- ** DirectoryChromeosdevicesGet

43+ -- ** DirectoryChromeosDevicesGet

44− , module Network.Google.Resource.Directory.Chromeosdevices.Get

44+ , module Network.Google.Resource.Directory.ChromeosDevices.Get

45

46− -- ** DirectoryChromeosdevicesList

46+ -- ** DirectoryChromeosDevicesList

47− , module Network.Google.Resource.Directory.Chromeosdevices.List

47+ , module Network.Google.Resource.Directory.ChromeosDevices.List

48

49− -- ** DirectoryChromeosdevicesPatch

49+ -- ** DirectoryChromeosDevicesPatch

50− , module Network.Google.Resource.Directory.Chromeosdevices.Patch

50+ , module Network.Google.Resource.Directory.ChromeosDevices.Patch

51

52− -- ** DirectoryChromeosdevicesUpdate

52+ -- ** DirectoryChromeosDevicesUpdate

53− , module Network.Google.Resource.Directory.Chromeosdevices.Update

53+ , module Network.Google.Resource.Directory.ChromeosDevices.Update

54

55 -- ** DirectoryGroupsAliasesDelete

56 , module Network.Google.Resource.Directory.Groups.Aliases.Delete

@@ -97,17 +97,17 @@ module Network.Google.AdminDirectory

97 -- ** DirectoryMembersUpdate

98 , module Network.Google.Resource.Directory.Members.Update

99

100− -- ** DirectoryMobiledevicesAction

100+ -- ** DirectoryMobileDevicesAction

101− , module Network.Google.Resource.Directory.Mobiledevices.Action

101+ , module Network.Google.Resource.Directory.MobileDevices.Action

102

103− -- ** DirectoryMobiledevicesDelete

103+ -- ** DirectoryMobileDevicesDelete

104− , module Network.Google.Resource.Directory.Mobiledevices.Delete

104+ , module Network.Google.Resource.Directory.MobileDevices.Delete

105

106− -- ** DirectoryMobiledevicesGet

106+ -- ** DirectoryMobileDevicesGet

107− , module Network.Google.Resource.Directory.Mobiledevices.Get

107+ , module Network.Google.Resource.Directory.MobileDevices.Get

108

109− -- ** DirectoryMobiledevicesList

109+ -- ** DirectoryMobileDevicesList

110− , module Network.Google.Resource.Directory.Mobiledevices.List

110+ , module Network.Google.Resource.Directory.MobileDevices.List

111

112 -- ** DirectoryNotificationsDelete

113 , module Network.Google.Resource.Directory.Notifications.Delete

@@ -124,23 +124,23 @@ module Network.Google.AdminDirectory

124 -- ** DirectoryNotificationsUpdate

125 , module Network.Google.Resource.Directory.Notifications.Update

126

127− -- ** DirectoryOrgunitsDelete

127+ -- ** DirectoryOrgUnitsDelete

128− , module Network.Google.Resource.Directory.Orgunits.Delete

128+ , module Network.Google.Resource.Directory.OrgUnits.Delete

129

130− -- ** DirectoryOrgunitsGet

130+ -- ** DirectoryOrgUnitsGet

131− , module Network.Google.Resource.Directory.Orgunits.Get

131+ , module Network.Google.Resource.Directory.OrgUnits.Get

132

133− -- ** DirectoryOrgunitsInsert

133+ -- ** DirectoryOrgUnitsInsert

134− , module Network.Google.Resource.Directory.Orgunits.Insert

134+ , module Network.Google.Resource.Directory.OrgUnits.Insert

135

136− -- ** DirectoryOrgunitsList

136+ -- ** DirectoryOrgUnitsList

137− , module Network.Google.Resource.Directory.Orgunits.List

137+ , module Network.Google.Resource.Directory.OrgUnits.List

138

139− -- ** DirectoryOrgunitsPatch

139+ -- ** DirectoryOrgUnitsPatch

140− , module Network.Google.Resource.Directory.Orgunits.Patch

140+ , module Network.Google.Resource.Directory.OrgUnits.Patch

141

142− -- ** DirectoryOrgunitsUpdate

142+ -- ** DirectoryOrgUnitsUpdate

143− , module Network.Google.Resource.Directory.Orgunits.Update

143+ , module Network.Google.Resource.Directory.OrgUnits.Update

144

145 -- ** DirectorySchemasDelete

146 , module Network.Google.Resource.Directory.Schemas.Delete

@@ -274,8 +274,8 @@ module Network.Google.AdminDirectory

274 -- ** DirectoryUsersListViewType

275 , DirectoryUsersListViewType (..)

276

277− -- ** DirectoryChromeosdevicesListProjection

277+ -- ** DirectoryChromeosDevicesListProjection

278− , DirectoryChromeosdevicesListProjection (..)

278+ , DirectoryChromeosDevicesListProjection (..)

279

280 -- ** UserAddress

281 , UserAddress

@@ -311,9 +311,9 @@ module Network.Google.AdminDirectory

311 , groId

312 , groDescription

313

314− -- ** ChromeOsDeviceActiveTimeRanges

314+ -- ** ChromeOSDeviceActiveTimeRanges

315− , ChromeOsDeviceActiveTimeRanges

315+ , ChromeOSDeviceActiveTimeRanges

316− , chromeOsDeviceActiveTimeRanges

316+ , chromeOSDeviceActiveTimeRanges

317 , codatrDate

318 , codatrActiveTime

319

@@ -338,9 +338,9 @@ module Network.Google.AdminDirectory

338 , sSchemas

339 , sKind

340

341− -- ** ChromeOsDevice

341+ -- ** ChromeOSDevice

342− , ChromeOsDevice

342+ , ChromeOSDevice

343− , chromeOsDevice

343+ , chromeOSDevice

344 , codStatus

345 , codEtag

346 , codAnnotatedUser

@@ -348,10 +348,10 @@ module Network.Google.AdminDirectory

348 , codLastSync

349 , codActiveTimeRanges

350 , codKind

351− , codEthernetMacAddress

351+ , codEthernetMACAddress

352 , codLastEnrollmentTime

353 , codAnnotatedLocation

354− , codMacAddress

354+ , codMACAddress

355 , codOrgUnitPath

356 , codRecentUsers

357 , codSupportEndDate

@@ -365,7 +365,7 @@ module Network.Google.AdminDirectory

365 , codNotes

366 , codSerialNumber

367 , codFirmwareVersion

368− , codOsVersion

368+ , codOSVersion

369

370 -- ** Users

371 , Users

@@ -386,8 +386,8 @@ module Network.Google.AdminDirectory

386 , uiType

387 , uiCustomType

388

389− -- ** DirectoryMobiledevicesListOrderBy

389+ -- ** DirectoryMobileDevicesListOrderBy

390− , DirectoryMobiledevicesListOrderBy (..)

390+ , DirectoryMobileDevicesListOrderBy (..)

391

392 -- ** Notification

393 , Notification

@@ -436,13 +436,13 @@ module Network.Google.AdminDirectory

436 , tokDisplayText

437 , tokKind

438 , tokScopes

439− , tokNativeApp

439+ , tokNATiveApp

440 , tokAnonymous

441 , tokUserKey

442

443− -- ** ChromeOsDeviceRecentUsers

443+ -- ** ChromeOSDeviceRecentUsers

444− , ChromeOsDeviceRecentUsers

444+ , ChromeOSDeviceRecentUsers

445− , chromeOsDeviceRecentUsers

445+ , chromeOSDeviceRecentUsers

446 , codruEmail

447 , codruType

448

@@ -457,7 +457,7 @@ module Network.Google.AdminDirectory

457 , mdEtag

458 , mdNextPageToken

459 , mdKind

460− , mdMobiledevices

460+ , mdMobileDevices

461

462 -- ** Members

463 , Members

@@ -470,13 +470,13 @@ module Network.Google.AdminDirectory

470 -- ** Channel

471 , Channel

472 , channel

473− , cResourceUri

473+ , cResourceURI

474 , cResourceId

475 , cKind

476 , cExpiration

477 , cToken

478 , cAddress

479− , cPayload

479+ , cPayLoad

480 , cParams

481 , cId

482 , cType

@@ -503,8 +503,8 @@ module Network.Google.AdminDirectory

503 -- ** DirectoryUsersWatchSortOrder

504 , DirectoryUsersWatchSortOrder (..)

505

506− -- ** DirectoryMobiledevicesGetProjection

506+ -- ** DirectoryMobileDevicesGetProjection

507− , DirectoryMobiledevicesGetProjection (..)

507+ , DirectoryMobileDevicesGetProjection (..)

508

509 -- ** MobileDeviceApplications

510 , MobileDeviceApplications

@@ -522,7 +522,7 @@ module Network.Google.AdminDirectory

522 , useLastLoginTime

523 , useThumbnailPhotoEtag

524 , useEtag

525− , useIpWhitelisted

525+ , useIPWhiteListed

526 , useRelations

527 , useHashFunction

528 , useKind

@@ -530,7 +530,7 @@ module Network.Google.AdminDirectory

530 , useWebsites

531 , useAddresses

532 , useAliases

533− , useThumbnailPhotoUrl

533+ , useThumbnailPhotoURL

534 , useExternalIds

535 , useSuspended

536 , useAgreedToTerms

@@ -563,20 +563,20 @@ module Network.Google.AdminDirectory

563 , schSchemaId

564 , schFields

565

566− -- ** DirectoryMobiledevicesListSortOrder

566+ -- ** DirectoryMobileDevicesListSortOrder

567− , DirectoryMobiledevicesListSortOrder (..)

567+ , DirectoryMobileDevicesListSortOrder (..)

568

569 -- ** DirectoryUsersListOrderBy

570 , DirectoryUsersListOrderBy (..)

571

572− -- ** DirectoryOrgunitsListType

572+ -- ** DirectoryOrgUnitsListType

573− , DirectoryOrgunitsListType (..)

573+ , DirectoryOrgUnitsListType (..)

574

575 -- ** DirectoryUsersListProjection

576 , DirectoryUsersListProjection (..)

577

578− -- ** DirectoryChromeosdevicesUpdateProjection

578+ -- ** DirectoryChromeosDevicesUpdateProjection

579− , DirectoryChromeosdevicesUpdateProjection (..)

579+ , DirectoryChromeosDevicesUpdateProjection (..)

580

581 -- ** DirectoryUsersWatchProjection

582 , DirectoryUsersWatchProjection (..)

@@ -606,8 +606,8 @@ module Network.Google.AdminDirectory

606 , urType

607 , urCustomType

608

609− -- ** DirectoryChromeosdevicesListOrderBy

609+ -- ** DirectoryChromeosDevicesListOrderBy

610− , DirectoryChromeosdevicesListOrderBy (..)

610+ , DirectoryChromeosDevicesListOrderBy (..)

611

612 -- ** UserWebsite

613 , UserWebsite

@@ -620,7 +620,7 @@ module Network.Google.AdminDirectory

620 -- ** UserOrganization

621 , UserOrganization

622 , userOrganization

623− , uoDepartment

623+ , uoDePartyment

624 , uoLocation

625 , uoCostCenter

626 , uoDomain

@@ -655,8 +655,8 @@ module Network.Google.AdminDirectory

655 -- ** DirectoryUsersListEvent

656 , DirectoryUsersListEvent (..)

657

658− -- ** DirectoryMobiledevicesListProjection

658+ -- ** DirectoryMobileDevicesListProjection

659− , DirectoryMobiledevicesListProjection (..)

659+ , DirectoryMobileDevicesListProjection (..)

660

661 -- ** UserEmail

662 , UserEmail

@@ -682,43 +682,43 @@ module Network.Google.AdminDirectory

682 -- ** MobileDevice

683 , MobileDevice

684 , mobileDevice

685− , mddEmail

685+ , mobEmail

686− , mddStatus

686+ , mobStatus

687− , mddEtag

687+ , mobEtag

688− , mddResourceId

688+ , mobResourceId

689− , mddBuildNumber

689+ , mobBuildNumber

690− , mddManagedAccountIsOnOwnerProfile

690+ , mobManagedAccountIsOnOwnerProfile

691− , mddLastSync

691+ , mobLastSync

692− , mddOtherAccountsInfo

692+ , mobOtherAccountsInfo

693− , mddKind

693+ , mobKind

694− , mddAdbStatus

694+ , mobAdbStatus

695− , mddNetworkOperator

695+ , mobNetworkOperator

696− , mddKernelVersion

696+ , mobKernelVersion

697− , mddOs

697+ , mobOS

698− , mddName

698+ , mobName

699− , mddModel

699+ , mobModel

700− , mddDeveloperOptionsStatus

700+ , mobDeveloperOptionsStatus

701− , mddUnknownSourcesStatus

701+ , mobUnknownSourcesStatus

702− , mddMeid

702+ , mobMeid

703− , mddDeviceId

703+ , mobDeviceId

704− , mddFirstSync

704+ , mobFirstSync

705− , mddUserAgent

705+ , mobUserAgent

706− , mddImei

706+ , mobImei

707− , mddType

707+ , mobType

708− , mddWifiMacAddress

708+ , mobWifiMACAddress

709− , mddSerialNumber

709+ , mobSerialNumber

710− , mddHardwareId

710+ , mobHardwareId

711− , mddBasebandVersion

711+ , mobBasebandVersion

712− , mddSupportsWorkProfile

712+ , mobSupportsWorkProfile

713− , mddDeviceCompromisedStatus

713+ , mobDeviceCompromisedStatus

714− , mddApplications

714+ , mobApplications

715− , mddDefaultLanguage

715+ , mobDefaultLanguage

716−

716+

717− -- ** DirectoryChromeosdevicesGetProjection

717+ -- ** DirectoryChromeosDevicesGetProjection

718− , DirectoryChromeosdevicesGetProjection (..)

718+ , DirectoryChromeosDevicesGetProjection (..)

719−

719+

720− -- ** DirectoryChromeosdevicesPatchProjection

720+ -- ** DirectoryChromeosDevicesPatchProjection

721− , DirectoryChromeosdevicesPatchProjection (..)

721+ , DirectoryChromeosDevicesPatchProjection (..)

722

723 -- ** UserCustomProperties

724 , UserCustomProperties

@@ -760,8 +760,8 @@ module Network.Google.AdminDirectory

760 , notItems

761 , notUnreadNotificationsCount

762

763− -- ** DirectoryChromeosdevicesListSortOrder

763+ -- ** DirectoryChromeosDevicesListSortOrder

764− , DirectoryChromeosdevicesListSortOrder (..)

764+ , DirectoryChromeosDevicesListSortOrder (..)

765

766 -- ** UserExternalId

767 , UserExternalId

@@ -777,16 +777,13 @@ module Network.Google.AdminDirectory

777 , aaKind

778 , aaItems

779

780− -- ** Alt

780+ -- ** ChromeOSDevices

781− , Alt (..)

781+ , ChromeOSDevices

782−

782+ , chromeOSDevices

783− -- ** ChromeOsDevices

783+ , cosdEtag

784− , ChromeOsDevices

784+ , cosdNextPageToken

785− , chromeOsDevices

785+ , cosdKind

786− , codsEtag

786+ , cosdChromeosDevices

787− , codsNextPageToken

788− , codsKind

789− , codsChromeosdevices

790 ) where

787 ) where

791

788

792import Network.Google.AdminDirectory.Types

789import Network.Google.AdminDirectory.Types

@@ -795,10 +792,10 @@ import Network.Google.Resource.Admin.Channels.Stop

795import Network.Google.Resource.Directory.Asps.Delete

792import Network.Google.Resource.Directory.Asps.Delete

796import Network.Google.Resource.Directory.Asps.Get

793import Network.Google.Resource.Directory.Asps.Get

797import Network.Google.Resource.Directory.Asps.List

794import Network.Google.Resource.Directory.Asps.List

798−import Network.Google.Resource.Directory.Chromeosdevices.Get

795+import Network.Google.Resource.Directory.ChromeosDevices.Get

799−import Network.Google.Resource.Directory.Chromeosdevices.List

796+import Network.Google.Resource.Directory.ChromeosDevices.List

800−import Network.Google.Resource.Directory.Chromeosdevices.Patch

797+import Network.Google.Resource.Directory.ChromeosDevices.Patch

801−import Network.Google.Resource.Directory.Chromeosdevices.Update

798+import Network.Google.Resource.Directory.ChromeosDevices.Update

802import Network.Google.Resource.Directory.Groups.Aliases.Delete

799import Network.Google.Resource.Directory.Groups.Aliases.Delete

803import Network.Google.Resource.Directory.Groups.Aliases.Insert

800import Network.Google.Resource.Directory.Groups.Aliases.Insert

804import Network.Google.Resource.Directory.Groups.Aliases.List

801import Network.Google.Resource.Directory.Groups.Aliases.List

@@ -814,21 +811,21 @@ import Network.Google.Resource.Directory.Members.Insert

814import Network.Google.Resource.Directory.Members.List

811import Network.Google.Resource.Directory.Members.List

815import Network.Google.Resource.Directory.Members.Patch

812import Network.Google.Resource.Directory.Members.Patch

816import Network.Google.Resource.Directory.Members.Update

813import Network.Google.Resource.Directory.Members.Update

817−import Network.Google.Resource.Directory.Mobiledevices.Action

814+import Network.Google.Resource.Directory.MobileDevices.Action

818−import Network.Google.Resource.Directory.Mobiledevices.Delete

815+import Network.Google.Resource.Directory.MobileDevices.Delete

819−import Network.Google.Resource.Directory.Mobiledevices.Get

816+import Network.Google.Resource.Directory.MobileDevices.Get

820−import Network.Google.Resource.Directory.Mobiledevices.List

817+import Network.Google.Resource.Directory.MobileDevices.List

821import Network.Google.Resource.Directory.Notifications.Delete

818import Network.Google.Resource.Directory.Notifications.Delete

822import Network.Google.Resource.Directory.Notifications.Get

819import Network.Google.Resource.Directory.Notifications.Get

823import Network.Google.Resource.Directory.Notifications.List

820import Network.Google.Resource.Directory.Notifications.List

824import Network.Google.Resource.Directory.Notifications.Patch

821import Network.Google.Resource.Directory.Notifications.Patch

825import Network.Google.Resource.Directory.Notifications.Update

822import Network.Google.Resource.Directory.Notifications.Update

826−import Network.Google.Resource.Directory.Orgunits.Delete

823+import Network.Google.Resource.Directory.OrgUnits.Delete

827−import Network.Google.Resource.Directory.Orgunits.Get

824+import Network.Google.Resource.Directory.OrgUnits.Get

828−import Network.Google.Resource.Directory.Orgunits.Insert

825+import Network.Google.Resource.Directory.OrgUnits.Insert

829−import Network.Google.Resource.Directory.Orgunits.List

826+import Network.Google.Resource.Directory.OrgUnits.List

830−import Network.Google.Resource.Directory.Orgunits.Patch

827+import Network.Google.Resource.Directory.OrgUnits.Patch

831−import Network.Google.Resource.Directory.Orgunits.Update

828+import Network.Google.Resource.Directory.OrgUnits.Update

832import Network.Google.Resource.Directory.Schemas.Delete

829import Network.Google.Resource.Directory.Schemas.Delete

833import Network.Google.Resource.Directory.Schemas.Get

830import Network.Google.Resource.Directory.Schemas.Get

834import Network.Google.Resource.Directory.Schemas.Insert

831import Network.Google.Resource.Directory.Schemas.Insert

@@ -906,16 +903,16 @@ type AdminDirectoryAPI =

906 :<|> MembersGetResource

903 :<|> MembersGetResource

907 :<|> MembersDeleteResource

904 :<|> MembersDeleteResource

908 :<|> MembersUpdateResource

905 :<|> MembersUpdateResource

909− :<|> MobiledevicesListResource

906+ :<|> MobileDevicesListResource

910− :<|> MobiledevicesGetResource

907+ :<|> MobileDevicesGetResource

911− :<|> MobiledevicesActionResource

908+ :<|> MobileDevicesActionResource

912− :<|> MobiledevicesDeleteResource

909+ :<|> MobileDevicesDeleteResource

913− :<|> OrgunitsInsertResource

910+ :<|> OrgUnitsInsertResource

914− :<|> OrgunitsListResource

911+ :<|> OrgUnitsListResource

915− :<|> OrgunitsPatchResource

912+ :<|> OrgUnitsPatchResource

916− :<|> OrgunitsGetResource

913+ :<|> OrgUnitsGetResource

917− :<|> OrgunitsDeleteResource

914+ :<|> OrgUnitsDeleteResource

918− :<|> OrgunitsUpdateResource

915+ :<|> OrgUnitsUpdateResource

919 :<|> VerificationCodesListResource

916 :<|> VerificationCodesListResource

920 :<|> VerificationCodesGenerateResource

917 :<|> VerificationCodesGenerateResource

921 :<|> VerificationCodesInvalidateResource

918 :<|> VerificationCodesInvalidateResource

@@ -924,10 +921,10 @@ type AdminDirectoryAPI =

924 :<|> NotificationsGetResource

921 :<|> NotificationsGetResource

925 :<|> NotificationsDeleteResource

922 :<|> NotificationsDeleteResource

926 :<|> NotificationsUpdateResource

923 :<|> NotificationsUpdateResource

927− :<|> ChromeosdevicesListResource

924+ :<|> ChromeosDevicesListResource

928− :<|> ChromeosdevicesPatchResource

925+ :<|> ChromeosDevicesPatchResource

929− :<|> ChromeosdevicesGetResource

926+ :<|> ChromeosDevicesGetResource

930− :<|> ChromeosdevicesUpdateResource

927+ :<|> ChromeosDevicesUpdateResource

931 :<|> AspsListResource

928 :<|> AspsListResource

932 :<|> AspsGetResource

929 :<|> AspsGetResource

933 :<|> AspsDeleteResource

930 :<|> AspsDeleteResource

gogol-admin-directory/gen/Network/Google/AdminDirectory/Types.hs+81−84

@@ -60,8 +60,8 @@ module Network.Google.AdminDirectory.Types

60 -- * DirectoryUsersListViewType

61 , DirectoryUsersListViewType (..)

62

63− -- * DirectoryChromeosdevicesListProjection

63+ -- * DirectoryChromeosDevicesListProjection

64− , DirectoryChromeosdevicesListProjection (..)

64+ , DirectoryChromeosDevicesListProjection (..)

65

66 -- * UserAddress

67 , UserAddress

@@ -97,9 +97,9 @@ module Network.Google.AdminDirectory.Types

97 , groId

98 , groDescription

99

100− -- * ChromeOsDeviceActiveTimeRanges

100+ -- * ChromeOSDeviceActiveTimeRanges

101− , ChromeOsDeviceActiveTimeRanges

101+ , ChromeOSDeviceActiveTimeRanges

102− , chromeOsDeviceActiveTimeRanges

102+ , chromeOSDeviceActiveTimeRanges

103 , codatrDate

104 , codatrActiveTime

105

@@ -124,9 +124,9 @@ module Network.Google.AdminDirectory.Types

124 , sSchemas

125 , sKind

126

127− -- * ChromeOsDevice

127+ -- * ChromeOSDevice

128− , ChromeOsDevice

128+ , ChromeOSDevice

129− , chromeOsDevice

129+ , chromeOSDevice

130 , codStatus

131 , codEtag

132 , codAnnotatedUser

@@ -134,10 +134,10 @@ module Network.Google.AdminDirectory.Types

134 , codLastSync

135 , codActiveTimeRanges

136 , codKind

137− , codEthernetMacAddress

137+ , codEthernetMACAddress

138 , codLastEnrollmentTime

139 , codAnnotatedLocation

140− , codMacAddress

140+ , codMACAddress

141 , codOrgUnitPath

142 , codRecentUsers

143 , codSupportEndDate

@@ -151,7 +151,7 @@ module Network.Google.AdminDirectory.Types

151 , codNotes

152 , codSerialNumber

153 , codFirmwareVersion

154− , codOsVersion

154+ , codOSVersion

155

156 -- * Users

157 , Users

@@ -172,8 +172,8 @@ module Network.Google.AdminDirectory.Types

172 , uiType

173 , uiCustomType

174

175− -- * DirectoryMobiledevicesListOrderBy

175+ -- * DirectoryMobileDevicesListOrderBy

176− , DirectoryMobiledevicesListOrderBy (..)

176+ , DirectoryMobileDevicesListOrderBy (..)

177

178 -- * Notification

179 , Notification

@@ -222,13 +222,13 @@ module Network.Google.AdminDirectory.Types

222 , tokDisplayText

223 , tokKind

224 , tokScopes

225− , tokNativeApp

225+ , tokNATiveApp

226 , tokAnonymous

227 , tokUserKey

228

229− -- * ChromeOsDeviceRecentUsers

229+ -- * ChromeOSDeviceRecentUsers

230− , ChromeOsDeviceRecentUsers

230+ , ChromeOSDeviceRecentUsers

231− , chromeOsDeviceRecentUsers

231+ , chromeOSDeviceRecentUsers

232 , codruEmail

233 , codruType

234

@@ -243,7 +243,7 @@ module Network.Google.AdminDirectory.Types

243 , mdEtag

244 , mdNextPageToken

245 , mdKind

246− , mdMobiledevices

246+ , mdMobileDevices

247

248 -- * Members

249 , Members

@@ -256,13 +256,13 @@ module Network.Google.AdminDirectory.Types

256 -- * Channel

257 , Channel

258 , channel

259− , cResourceUri

259+ , cResourceURI

260 , cResourceId

261 , cKind

262 , cExpiration

263 , cToken

264 , cAddress

265− , cPayload

265+ , cPayLoad

266 , cParams

267 , cId

268 , cType

@@ -289,8 +289,8 @@ module Network.Google.AdminDirectory.Types

289 -- * DirectoryUsersWatchSortOrder

290 , DirectoryUsersWatchSortOrder (..)

291

292− -- * DirectoryMobiledevicesGetProjection

292+ -- * DirectoryMobileDevicesGetProjection

293− , DirectoryMobiledevicesGetProjection (..)

293+ , DirectoryMobileDevicesGetProjection (..)

294

295 -- * MobileDeviceApplications

296 , MobileDeviceApplications

@@ -308,7 +308,7 @@ module Network.Google.AdminDirectory.Types

308 , useLastLoginTime

309 , useThumbnailPhotoEtag

310 , useEtag

311− , useIpWhitelisted

311+ , useIPWhiteListed

312 , useRelations

313 , useHashFunction

314 , useKind

@@ -316,7 +316,7 @@ module Network.Google.AdminDirectory.Types

316 , useWebsites

317 , useAddresses

318 , useAliases

319− , useThumbnailPhotoUrl

319+ , useThumbnailPhotoURL

320 , useExternalIds

321 , useSuspended

322 , useAgreedToTerms

@@ -349,20 +349,20 @@ module Network.Google.AdminDirectory.Types

349 , schSchemaId

350 , schFields

351

352− -- * DirectoryMobiledevicesListSortOrder

352+ -- * DirectoryMobileDevicesListSortOrder

353− , DirectoryMobiledevicesListSortOrder (..)

353+ , DirectoryMobileDevicesListSortOrder (..)

354

355 -- * DirectoryUsersListOrderBy

356 , DirectoryUsersListOrderBy (..)

357

358− -- * DirectoryOrgunitsListType

358+ -- * DirectoryOrgUnitsListType

359− , DirectoryOrgunitsListType (..)

359+ , DirectoryOrgUnitsListType (..)

360

361 -- * DirectoryUsersListProjection

362 , DirectoryUsersListProjection (..)

363

364− -- * DirectoryChromeosdevicesUpdateProjection

364+ -- * DirectoryChromeosDevicesUpdateProjection

365− , DirectoryChromeosdevicesUpdateProjection (..)

365+ , DirectoryChromeosDevicesUpdateProjection (..)

366

367 -- * DirectoryUsersWatchProjection

368 , DirectoryUsersWatchProjection (..)

@@ -392,8 +392,8 @@ module Network.Google.AdminDirectory.Types

392 , urType

393 , urCustomType

394

395− -- * DirectoryChromeosdevicesListOrderBy

395+ -- * DirectoryChromeosDevicesListOrderBy

396− , DirectoryChromeosdevicesListOrderBy (..)

396+ , DirectoryChromeosDevicesListOrderBy (..)

397

398 -- * UserWebsite

399 , UserWebsite

@@ -406,7 +406,7 @@ module Network.Google.AdminDirectory.Types

406 -- * UserOrganization

407 , UserOrganization

408 , userOrganization

409− , uoDepartment

409+ , uoDePartyment

410 , uoLocation

411 , uoCostCenter

412 , uoDomain

@@ -441,8 +441,8 @@ module Network.Google.AdminDirectory.Types

441 -- * DirectoryUsersListEvent

442 , DirectoryUsersListEvent (..)

443

444− -- * DirectoryMobiledevicesListProjection

444+ -- * DirectoryMobileDevicesListProjection

445− , DirectoryMobiledevicesListProjection (..)

445+ , DirectoryMobileDevicesListProjection (..)

446

447 -- * UserEmail

448 , UserEmail

@@ -468,43 +468,43 @@ module Network.Google.AdminDirectory.Types

468 -- * MobileDevice

469 , MobileDevice

470 , mobileDevice

471− , mddEmail

471+ , mobEmail

472− , mddStatus

472+ , mobStatus

473− , mddEtag

473+ , mobEtag

474− , mddResourceId

474+ , mobResourceId

475− , mddBuildNumber

475+ , mobBuildNumber

476− , mddManagedAccountIsOnOwnerProfile

476+ , mobManagedAccountIsOnOwnerProfile

477− , mddLastSync

477+ , mobLastSync

478− , mddOtherAccountsInfo

478+ , mobOtherAccountsInfo

479− , mddKind

479+ , mobKind

480− , mddAdbStatus

480+ , mobAdbStatus

481− , mddNetworkOperator

481+ , mobNetworkOperator

482− , mddKernelVersion

482+ , mobKernelVersion

483− , mddOs

483+ , mobOS

484− , mddName

484+ , mobName

485− , mddModel

485+ , mobModel

486− , mddDeveloperOptionsStatus

486+ , mobDeveloperOptionsStatus

487− , mddUnknownSourcesStatus

487+ , mobUnknownSourcesStatus

488− , mddMeid

488+ , mobMeid

489− , mddDeviceId

489+ , mobDeviceId

490− , mddFirstSync

490+ , mobFirstSync

491− , mddUserAgent

491+ , mobUserAgent

492− , mddImei

492+ , mobImei

493− , mddType

493+ , mobType

494− , mddWifiMacAddress

494+ , mobWifiMACAddress

495− , mddSerialNumber

495+ , mobSerialNumber

496− , mddHardwareId

496+ , mobHardwareId

497− , mddBasebandVersion

497+ , mobBasebandVersion

498− , mddSupportsWorkProfile

498+ , mobSupportsWorkProfile

499− , mddDeviceCompromisedStatus

499+ , mobDeviceCompromisedStatus

500− , mddApplications

500+ , mobApplications

501− , mddDefaultLanguage

501+ , mobDefaultLanguage

502−

502+

503− -- * DirectoryChromeosdevicesGetProjection

503+ -- * DirectoryChromeosDevicesGetProjection

504− , DirectoryChromeosdevicesGetProjection (..)

504+ , DirectoryChromeosDevicesGetProjection (..)

505−

505+

506− -- * DirectoryChromeosdevicesPatchProjection

506+ -- * DirectoryChromeosDevicesPatchProjection

507− , DirectoryChromeosdevicesPatchProjection (..)

507+ , DirectoryChromeosDevicesPatchProjection (..)

508

509 -- * UserCustomProperties

510 , UserCustomProperties

@@ -546,8 +546,8 @@ module Network.Google.AdminDirectory.Types

546 , notItems

547 , notUnreadNotificationsCount

548

549− -- * DirectoryChromeosdevicesListSortOrder

549+ -- * DirectoryChromeosDevicesListSortOrder

550− , DirectoryChromeosdevicesListSortOrder (..)

550+ , DirectoryChromeosDevicesListSortOrder (..)

551

552 -- * UserExternalId

553 , UserExternalId

@@ -563,16 +563,13 @@ module Network.Google.AdminDirectory.Types

563 , aaKind

564 , aaItems

565

566− -- * Alt

566+ -- * ChromeOSDevices

567− , Alt (..)

567+ , ChromeOSDevices

568−

568+ , chromeOSDevices

569− -- * ChromeOsDevices

569+ , cosdEtag

570− , ChromeOsDevices

570+ , cosdNextPageToken

571− , chromeOsDevices

571+ , cosdKind

572− , codsEtag

572+ , cosdChromeosDevices

573− , codsNextPageToken

574− , codsKind

575− , codsChromeosdevices

576 ) where

573 ) where

577

574

578import Network.Google.AdminDirectory.Types.Product

575import Network.Google.AdminDirectory.Types.Product

gogol-admin-directory/gen/Network/Google/AdminDirectory/Types/Product.hs+427−426