Regenerating all services
core/src/Network/Google/Data/JSON.hs+2
@@ -17,6 +17,8 @@ import Data.Aeson
17import Data.Aeson.Types
17import Data.Aeson.Types
18import Servant.API
18import Servant.API
20+type JSONValue = Value
20parseJSONText :: FromText a => String -> Value -> Parser a
22parseJSONText :: FromText a => String -> Value -> Parser a
21parseJSONText n = withText n (maybe (fail n) pure . fromText)
23parseJSONText n = withText n (maybe (fail n) pure . fromText)
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer.hs+247−98
@@ -29,142 +29,142 @@ module Network.Google.AdExchangeBuyer
29 -- * REST Resources
29 -- * REST Resources
31 -- ** AdexchangebuyerAccountsGet
31 -- ** AdexchangebuyerAccountsGet
32− , module AdExchangeBuyer.Accounts.Get
32+ , module Network.Google.Resource.AdExchangeBuyer.Accounts.Get
34 -- ** AdexchangebuyerAccountsList
34 -- ** AdexchangebuyerAccountsList
35− , module AdExchangeBuyer.Accounts.List
35+ , module Network.Google.Resource.AdExchangeBuyer.Accounts.List
37 -- ** AdexchangebuyerAccountsPatch
37 -- ** AdexchangebuyerAccountsPatch
38− , module AdExchangeBuyer.Accounts.Patch
38+ , module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch
40 -- ** AdexchangebuyerAccountsUpdate
40 -- ** AdexchangebuyerAccountsUpdate
41− , module AdExchangeBuyer.Accounts.Update
41+ , module Network.Google.Resource.AdExchangeBuyer.Accounts.Update
43 -- ** AdexchangebuyerBillingInfoGet
43 -- ** AdexchangebuyerBillingInfoGet
44− , module AdExchangeBuyer.BillingInfo.Get
44+ , module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get
46 -- ** AdexchangebuyerBillingInfoList
46 -- ** AdexchangebuyerBillingInfoList
47− , module AdExchangeBuyer.BillingInfo.List
47+ , module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List
49 -- ** AdexchangebuyerBudgetGet
49 -- ** AdexchangebuyerBudgetGet
50− , module AdExchangeBuyer.Budget.Get
50+ , module Network.Google.Resource.AdExchangeBuyer.Budget.Get
52 -- ** AdexchangebuyerBudgetPatch
52 -- ** AdexchangebuyerBudgetPatch
53− , module AdExchangeBuyer.Budget.Patch
53+ , module Network.Google.Resource.AdExchangeBuyer.Budget.Patch
55 -- ** AdexchangebuyerBudgetUpdate
55 -- ** AdexchangebuyerBudgetUpdate
56− , module AdExchangeBuyer.Budget.Update
56+ , module Network.Google.Resource.AdExchangeBuyer.Budget.Update
58 -- ** AdexchangebuyerClientaccessDelete
58 -- ** AdexchangebuyerClientaccessDelete
59− , module AdExchangeBuyer.Clientaccess.Delete
59+ , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete
61 -- ** AdexchangebuyerClientaccessGet
61 -- ** AdexchangebuyerClientaccessGet
62− , module AdExchangeBuyer.Clientaccess.Get
62+ , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get
64 -- ** AdexchangebuyerClientaccessInsert
64 -- ** AdexchangebuyerClientaccessInsert
65− , module AdExchangeBuyer.Clientaccess.Insert
65+ , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert
67 -- ** AdexchangebuyerClientaccessList
67 -- ** AdexchangebuyerClientaccessList
68− , module AdExchangeBuyer.Clientaccess.List
68+ , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.List
70 -- ** AdexchangebuyerClientaccessPatch
70 -- ** AdexchangebuyerClientaccessPatch
71− , module AdExchangeBuyer.Clientaccess.Patch
71+ , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch
73 -- ** AdexchangebuyerClientaccessUpdate
73 -- ** AdexchangebuyerClientaccessUpdate
74− , module AdExchangeBuyer.Clientaccess.Update
74+ , module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update
76 -- ** AdexchangebuyerCreativesGet
76 -- ** AdexchangebuyerCreativesGet
77− , module AdExchangeBuyer.Creatives.Get
77+ , module Network.Google.Resource.AdExchangeBuyer.Creatives.Get
79 -- ** AdexchangebuyerCreativesInsert
79 -- ** AdexchangebuyerCreativesInsert
80− , module AdExchangeBuyer.Creatives.Insert
80+ , module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert
82 -- ** AdexchangebuyerCreativesList
82 -- ** AdexchangebuyerCreativesList
83− , module AdExchangeBuyer.Creatives.List
83+ , module Network.Google.Resource.AdExchangeBuyer.Creatives.List
85 -- ** AdexchangebuyerDealsGet
85 -- ** AdexchangebuyerDealsGet
86− , module AdExchangeBuyer.Deals.Get
86+ , module Network.Google.Resource.AdExchangeBuyer.Deals.Get
88 -- ** AdexchangebuyerMarketplacedealsDelete
88 -- ** AdexchangebuyerMarketplacedealsDelete
89− , module AdExchangeBuyer.Marketplacedeals.Delete
89+ , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete
91 -- ** AdexchangebuyerMarketplacedealsInsert
91 -- ** AdexchangebuyerMarketplacedealsInsert
92− , module AdExchangeBuyer.Marketplacedeals.Insert
92+ , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert
94 -- ** AdexchangebuyerMarketplacedealsList
94 -- ** AdexchangebuyerMarketplacedealsList
95− , module AdExchangeBuyer.Marketplacedeals.List
95+ , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List
97 -- ** AdexchangebuyerMarketplacedealsUpdate
97 -- ** AdexchangebuyerMarketplacedealsUpdate
98− , module AdExchangeBuyer.Marketplacedeals.Update
98+ , module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update
100 -- ** AdexchangebuyerMarketplacenotesInsert
100 -- ** AdexchangebuyerMarketplacenotesInsert
101− , module AdExchangeBuyer.Marketplacenotes.Insert
101+ , module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert
103 -- ** AdexchangebuyerMarketplacenotesList
103 -- ** AdexchangebuyerMarketplacenotesList
104− , module AdExchangeBuyer.Marketplacenotes.List
104+ , module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List
106 -- ** AdexchangebuyerMarketplaceoffersGet
106 -- ** AdexchangebuyerMarketplaceoffersGet
107− , module AdExchangeBuyer.Marketplaceoffers.Get
107+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get
109 -- ** AdexchangebuyerMarketplaceoffersSearch
109 -- ** AdexchangebuyerMarketplaceoffersSearch
110− , module AdExchangeBuyer.Marketplaceoffers.Search
110+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search
112 -- ** AdexchangebuyerMarketplaceordersGet
112 -- ** AdexchangebuyerMarketplaceordersGet
113− , module AdExchangeBuyer.Marketplaceorders.Get
113+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get
115 -- ** AdexchangebuyerMarketplaceordersInsert
115 -- ** AdexchangebuyerMarketplaceordersInsert
116− , module AdExchangeBuyer.Marketplaceorders.Insert
116+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert
118 -- ** AdexchangebuyerMarketplaceordersPatch
118 -- ** AdexchangebuyerMarketplaceordersPatch
119− , module AdExchangeBuyer.Marketplaceorders.Patch
119+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch
121 -- ** AdexchangebuyerMarketplaceordersSearch
121 -- ** AdexchangebuyerMarketplaceordersSearch
122− , module AdExchangeBuyer.Marketplaceorders.Search
122+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search
124 -- ** AdexchangebuyerMarketplaceordersUpdate
124 -- ** AdexchangebuyerMarketplaceordersUpdate
125− , module AdExchangeBuyer.Marketplaceorders.Update
125+ , module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update
127 -- ** AdexchangebuyerNegotiationroundsInsert
127 -- ** AdexchangebuyerNegotiationroundsInsert
128− , module AdExchangeBuyer.Negotiationrounds.Insert
128+ , module Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert
130 -- ** AdexchangebuyerNegotiationsGet
130 -- ** AdexchangebuyerNegotiationsGet
131− , module AdExchangeBuyer.Negotiations.Get
131+ , module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get
133 -- ** AdexchangebuyerNegotiationsInsert
133 -- ** AdexchangebuyerNegotiationsInsert
134− , module AdExchangeBuyer.Negotiations.Insert
134+ , module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert
136 -- ** AdexchangebuyerNegotiationsList
136 -- ** AdexchangebuyerNegotiationsList
137− , module AdExchangeBuyer.Negotiations.List
137+ , module Network.Google.Resource.AdExchangeBuyer.Negotiations.List
139 -- ** AdexchangebuyerOffersGet
139 -- ** AdexchangebuyerOffersGet
140− , module AdExchangeBuyer.Offers.Get
140+ , module Network.Google.Resource.AdExchangeBuyer.Offers.Get
142 -- ** AdexchangebuyerOffersInsert
142 -- ** AdexchangebuyerOffersInsert
143− , module AdExchangeBuyer.Offers.Insert
143+ , module Network.Google.Resource.AdExchangeBuyer.Offers.Insert
145 -- ** AdexchangebuyerOffersList
145 -- ** AdexchangebuyerOffersList
146− , module AdExchangeBuyer.Offers.List
146+ , module Network.Google.Resource.AdExchangeBuyer.Offers.List
148 -- ** AdexchangebuyerPerformanceReportList
148 -- ** AdexchangebuyerPerformanceReportList
149− , module AdExchangeBuyer.PerformanceReport.List
149+ , module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List
151 -- ** AdexchangebuyerPretargetingConfigDelete
151 -- ** AdexchangebuyerPretargetingConfigDelete
152− , module AdExchangeBuyer.PretargetingConfig.Delete
152+ , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete
154 -- ** AdexchangebuyerPretargetingConfigGet
154 -- ** AdexchangebuyerPretargetingConfigGet
155− , module AdExchangeBuyer.PretargetingConfig.Get
155+ , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get
157 -- ** AdexchangebuyerPretargetingConfigInsert
157 -- ** AdexchangebuyerPretargetingConfigInsert
158− , module AdExchangeBuyer.PretargetingConfig.Insert
158+ , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert
160 -- ** AdexchangebuyerPretargetingConfigList
160 -- ** AdexchangebuyerPretargetingConfigList
161− , module AdExchangeBuyer.PretargetingConfig.List
161+ , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List
163 -- ** AdexchangebuyerPretargetingConfigPatch
163 -- ** AdexchangebuyerPretargetingConfigPatch
164− , module AdExchangeBuyer.PretargetingConfig.Patch
164+ , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch
166 -- ** AdexchangebuyerPretargetingConfigUpdate
166 -- ** AdexchangebuyerPretargetingConfigUpdate
167− , module AdExchangeBuyer.PretargetingConfig.Update
167+ , module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update
169 -- * Types
169 -- * Types
@@ -192,6 +192,28 @@ module Network.Google.AdExchangeBuyer
192 , mnOrderId
192 , mnOrderId
193 , mnOrderRevisionNumber
193 , mnOrderRevisionNumber
195+ -- ** CreativeNATiveAd
200+ , cnataClickTrackingUrl
203+ , cnataImpressionTrackingUrl
211+ -- ** PretargetingConfigDimensions
212+ , PretargetingConfigDimensions
213+ , pretargetingConfigDimensions
195 -- ** TermsDto
217 -- ** TermsDto
196 , TermsDto
218 , TermsDto
197 , termsDto
219 , termsDto
@@ -230,6 +252,14 @@ module Network.Google.AdExchangeBuyer
231 , clItems
253 , clItems
255+ -- ** CreativeServingRestrictionsContexts
256+ , CreativeServingRestrictionsContexts
257+ , creativeServingRestrictionsContexts
233 -- ** CreateOrdersResponse
263 -- ** CreateOrdersResponse
234 , CreateOrdersResponse
264 , CreateOrdersResponse
235 , createOrdersResponse
265 , createOrdersResponse
@@ -312,6 +342,12 @@ module Network.Google.AdExchangeBuyer
313 , alItems
343 , alItems
345+ -- ** CreativeServingRestrictionsDisapprovalReasons
346+ , CreativeServingRestrictionsDisapprovalReasons
347+ , creativeServingRestrictionsDisapprovalReasons
315 -- ** GetOrderNotesResponse
351 -- ** GetOrderNotesResponse
316 , GetOrderNotesResponse
352 , GetOrderNotesResponse
317 , getOrderNotesResponse
353 , getOrderNotesResponse
@@ -373,6 +409,9 @@ module Network.Google.AdExchangeBuyer
373 , cServingRestrictions
409 , cServingRestrictions
374 , cOpenAuctionStatus
410 , cOpenAuctionStatus
412+ -- ** AdexchangebuyerMarketplaceordersUpdateUpdateAction
413+ , AdexchangebuyerMarketplaceordersUpdateUpdateAction (..)
376 -- ** AddOrderDealsResponse
415 -- ** AddOrderDealsResponse
377 , AddOrderDealsResponse
416 , AddOrderDealsResponse
378 , addOrderDealsResponse
417 , addOrderDealsResponse
@@ -385,6 +424,15 @@ module Network.Google.AdExchangeBuyer
385 , pclKind
424 , pclKind
386 , pclItems
425 , pclItems
427+ -- ** CreativeCorrections
428+ , CreativeCorrections
429+ , creativeCorrections
433+ -- ** AdexchangebuyerCreativesListOpenAuctionStatusFilter
434+ , AdexchangebuyerCreativesListOpenAuctionStatusFilter (..)
388 -- ** BuyerDto
436 -- ** BuyerDto
389 , BuyerDto
437 , BuyerDto
390 , buyerDto
438 , buyerDto
@@ -462,11 +510,30 @@ module Network.Google.AdExchangeBuyer
462 , dodrDealIds
510 , dodrDealIds
463 , dodrOrderRevisionNumber
511 , dodrOrderRevisionNumber
513+ -- ** PretargetingConfigExcludedPlacements
514+ , PretargetingConfigExcludedPlacements
515+ , pretargetingConfigExcludedPlacements
519+ -- ** CreativeNATiveAdLogo
520+ , CreativeNATiveAdLogo
521+ , creativeNATiveAdLogo
465 -- ** GetOrderDealsResponse
526 -- ** GetOrderDealsResponse
466 , GetOrderDealsResponse
527 , GetOrderDealsResponse
467 , getOrderDealsResponse
528 , getOrderDealsResponse
468 , godrDeals
529 , godrDeals
531+ -- ** CreativeFilteringReasons
532+ , CreativeFilteringReasons
533+ , creativeFilteringReasons
470 -- ** ContactInformation
537 -- ** ContactInformation
471 , ContactInformation
538 , ContactInformation
472 , contactInformation
539 , contactInformation
@@ -513,6 +580,9 @@ module Network.Google.AdExchangeBuyer
513 , prlKind
580 , prlKind
514 , prlPerformanceReport
581 , prlPerformanceReport
583+ -- ** AdexchangebuyerMarketplaceordersPatchUpdateAction
584+ , AdexchangebuyerMarketplaceordersPatchUpdateAction (..)
516 -- ** NegotiationDto
586 -- ** NegotiationDto
517 , NegotiationDto
587 , NegotiationDto
518 , negotiationDto
588 , negotiationDto
@@ -647,6 +717,13 @@ module Network.Google.AdExchangeBuyer
647 , pCurrencyCode
717 , pCurrencyCode
648 , pAmountMicros
718 , pAmountMicros
720+ -- ** CreativeNATiveAdAppIcon
721+ , CreativeNATiveAdAppIcon
722+ , creativeNATiveAdAppIcon
650 -- ** EditAllOrderDealsRequest
727 -- ** EditAllOrderDealsRequest
651 , EditAllOrderDealsRequest
728 , EditAllOrderDealsRequest
652 , editAllOrderDealsRequest
729 , editAllOrderDealsRequest
@@ -685,6 +762,13 @@ module Network.Google.AdExchangeBuyer
685 , listOffersRequest
762 , listOffersRequest
686 , lorSinceTimestampMillis
763 , lorSinceTimestampMillis
765+ -- ** CreativeNATiveAdImage
766+ , CreativeNATiveAdImage
767+ , creativeNATiveAdImage
688 -- ** ListClientAccessCapabilitiesRequest
772 -- ** ListClientAccessCapabilitiesRequest
689 , ListClientAccessCapabilitiesRequest
773 , ListClientAccessCapabilitiesRequest
690 , listClientAccessCapabilitiesRequest
774 , listClientAccessCapabilitiesRequest
@@ -737,6 +821,19 @@ module Network.Google.AdExchangeBuyer
737 , stExclusions
821 , stExclusions
738 , stInclusions
822 , stInclusions
824+ -- ** AccountBidderLocation
825+ , AccountBidderLocation
826+ , accountBidderLocation
831+ -- ** CreativeFilteringReasonsReasons
832+ , CreativeFilteringReasonsReasons
833+ , creativeFilteringReasonsReasons
834+ , cfrrFilteringStatus
835+ , cfrrFilteringCount
740 -- ** ClientAccessCapabilities
837 -- ** ClientAccessCapabilities
741 , ClientAccessCapabilities
838 , ClientAccessCapabilities
742 , clientAccessCapabilities
839 , clientAccessCapabilities
@@ -752,25 +849,31 @@ module Network.Google.AdExchangeBuyer
752 -- ** MarketplaceDeal
849 -- ** MarketplaceDeal
753 , MarketplaceDeal
850 , MarketplaceDeal
754 , marketplaceDeal
851 , marketplaceDeal
755− , mdExternalDealId
852+ , mddExternalDealId
756− , mdBuyerPrivateData
853+ , mddBuyerPrivateData
757− , mdWebPropertyCode
854+ , mddWebPropertyCode
758− , mdCreationTimeMs
855+ , mddCreationTimeMs
759− , mdTerms
856+ , mddTerms
760− , mdOfferRevisionNumber
857+ , mddOfferRevisionNumber
761− , mdLastUpdateTimeMs
858+ , mddLastUpdateTimeMs
762− , mdKind
859+ , mddKind
763− , mdDeliveryControl
860+ , mddDeliveryControl
764− , mdFlightStartTimeMs
861+ , mddFlightStartTimeMs
765− , mdSharedTargetings
862+ , mddSharedTargetings
766− , mdDealId
863+ , mddDealId
767− , mdInventoryDescription
864+ , mddInventoryDescription
768− , mdSyndicationProduct
865+ , mddSyndicationProduct
769− , mdFlightEndTimeMs
866+ , mddFlightEndTimeMs
770− , mdName
867+ , mddName
771− , mdSellerContacts
868+ , mddSellerContacts
772− , mdOfferId
869+ , mddOfferId
773− , mdOrderId
870+ , mddOrderId
872+ -- ** PretargetingConfigPlacements
873+ , PretargetingConfigPlacements
874+ , pretargetingConfigPlacements
775 -- ** NegotiationRoundDto
878 -- ** NegotiationRoundDto
776 , NegotiationRoundDto
879 , NegotiationRoundDto
@@ -806,6 +909,16 @@ module Network.Google.AdExchangeBuyer
806 , dtngatReservePricePerBuyers
909 , dtngatReservePricePerBuyers
807 , dtngatPrivateAuctionId
910 , dtngatPrivateAuctionId
912+ -- ** CreativeServingRestrictions
913+ , CreativeServingRestrictions
914+ , creativeServingRestrictions
917+ , csrDisapprovalReasons
919+ -- ** AdexchangebuyerCreativesListDealsStatusFilter
920+ , AdexchangebuyerCreativesListDealsStatusFilter (..)
809 -- ** Buyer
922 -- ** Buyer
@@ -840,26 +953,26 @@ module Network.Google.AdExchangeBuyer
840 -- ** MarketplaceOrder
953 -- ** MarketplaceOrder
841 , MarketplaceOrder
954 , MarketplaceOrder
842 , marketplaceOrder
955 , marketplaceOrder
843− , mBuyerPrivateData
956+ , mooBuyerPrivateData
844− , mIsSetupComplete
957+ , mooIsSetupComplete
845− , mBuyerContacts
958+ , mooBuyerContacts
846− , mKind
959+ , mooKind
847− , mOriginatorRole
960+ , mooOriginatorRole
848− , mRevisionNumber
961+ , mooRevisionNumber
849− , mBilledBuyer
962+ , mooBilledBuyer
850− , mIsRenegotiating
963+ , mooIsRenegotiating
851− , mHasSellerSignedOff
964+ , mooHasSellerSignedOff
852− , mSeller
965+ , mooSeller
853− , mOrderState
966+ , mooOrderState
854− , mName
967+ , mooName
855− , mSellerContacts
968+ , mooSellerContacts
856− , mLastUpdaterRole
969+ , mooLastUpdaterRole
857− , mLabels
970+ , mooLabels
858− , mRevisionTimeMs
971+ , mooRevisionTimeMs
859− , mOrderId
972+ , mooOrderId
860− , mLastUpdaterOrCommentorRole
973+ , mooLastUpdaterOrCommentorRole
861− , mHasBuyerSignedOff
974+ , mooHasBuyerSignedOff
862− , mBuyer
975+ , mooBuyer
864 -- ** AddOrderDealsRequest
977 -- ** AddOrderDealsRequest
865 , AddOrderDealsRequest
978 , AddOrderDealsRequest
@@ -876,6 +989,9 @@ module Network.Google.AdExchangeBuyer
876 , dtGuaranteedFixedPriceTerms
989 , dtGuaranteedFixedPriceTerms
877 , dtDescription
990 , dtDescription
879 -- ** EditHistoryDto
995 -- ** EditHistoryDto
880 , EditHistoryDto
996 , EditHistoryDto
881 , editHistoryDto
997 , editHistoryDto
@@ -939,19 +1055,52 @@ TODO
941type AdExchangeBuyerAPI =
1057type AdExchangeBuyerAPI =
942− Marketplacenotes :<|> Deals :<|> Negotiationrounds
1058+ MarketplacenotesInsertResource :<|>
943− :<|> Accounts
1059+ MarketplacenotesListResource
944− :<|> Budget
1060+ :<|> DealsGetResource
945− :<|> Creatives
1061+ :<|> NegotiationroundsInsertResource
946− :<|> PerformanceReport
1062+ :<|> AccountsListResource
947− :<|> Marketplaceoffers
1063+ :<|> AccountsPatchResource
948− :<|> PretargetingConfig
1064+ :<|> AccountsGetResource
949− :<|> Marketplaceorders
1065+ :<|> AccountsUpdateResource
950− :<|> Clientaccess
1066+ :<|> BudgetPatchResource
951− :<|> BillingInfo
1067+ :<|> BudgetGetResource
952− :<|> Marketplacedeals
1068+ :<|> BudgetUpdateResource
953− :<|> Negotiations
1069+ :<|> CreativesInsertResource
954− :<|> Offers
1070+ :<|> CreativesListResource
1071+ :<|> CreativesGetResource
1072+ :<|> PerformanceReportListResource
1073+ :<|> MarketplaceoffersGetResource
1074+ :<|> MarketplaceoffersSearchResource
1075+ :<|> PretargetingConfigInsertResource
1076+ :<|> PretargetingConfigListResource
1077+ :<|> PretargetingConfigPatchResource
1078+ :<|> PretargetingConfigGetResource
1079+ :<|> PretargetingConfigDeleteResource
1080+ :<|> PretargetingConfigUpdateResource
1081+ :<|> MarketplaceordersInsertResource
1082+ :<|> MarketplaceordersPatchResource
1083+ :<|> MarketplaceordersGetResource
1084+ :<|> MarketplaceordersSearchResource
1085+ :<|> MarketplaceordersUpdateResource
1086+ :<|> ClientaccessInsertResource
1087+ :<|> ClientaccessListResource
1088+ :<|> ClientaccessPatchResource
1089+ :<|> ClientaccessGetResource
1090+ :<|> ClientaccessDeleteResource
1091+ :<|> ClientaccessUpdateResource
1092+ :<|> BillingInfoListResource
1093+ :<|> BillingInfoGetResource
1094+ :<|> MarketplacedealsInsertResource
1095+ :<|> MarketplacedealsListResource
1096+ :<|> MarketplacedealsDeleteResource
1097+ :<|> MarketplacedealsUpdateResource
1098+ :<|> NegotiationsInsertResource
1099+ :<|> NegotiationsListResource
1100+ :<|> NegotiationsGetResource
1101+ :<|> OffersInsertResource
1102+ :<|> OffersListResource
1103+ :<|> OffersGetResource
956adExchangeBuyerAPI :: Proxy AdExchangeBuyerAPI
1105adExchangeBuyerAPI :: Proxy AdExchangeBuyerAPI
957adExchangeBuyerAPI = Proxy
1106adExchangeBuyerAPI = Proxy
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types.hs+156−40
@@ -41,6 +41,28 @@ module Network.Google.AdExchangeBuyer.Types
41 , mnOrderId
41 , mnOrderId
42 , mnOrderRevisionNumber
42 , mnOrderRevisionNumber
44+ -- * CreativeNATiveAd
49+ , cnataClickTrackingUrl
52+ , cnataImpressionTrackingUrl
60+ -- * PretargetingConfigDimensions
61+ , PretargetingConfigDimensions
62+ , pretargetingConfigDimensions
44 -- * TermsDto
66 -- * TermsDto
45 , TermsDto
67 , TermsDto
46 , termsDto
68 , termsDto
@@ -79,6 +101,14 @@ module Network.Google.AdExchangeBuyer.Types
80 , clItems
102 , clItems
104+ -- * CreativeServingRestrictionsContexts
105+ , CreativeServingRestrictionsContexts
106+ , creativeServingRestrictionsContexts
82 -- * CreateOrdersResponse
112 -- * CreateOrdersResponse
83 , CreateOrdersResponse
113 , CreateOrdersResponse
84 , createOrdersResponse
114 , createOrdersResponse
@@ -161,6 +191,12 @@ module Network.Google.AdExchangeBuyer.Types
162 , alItems
192 , alItems
194+ -- * CreativeServingRestrictionsDisapprovalReasons
195+ , CreativeServingRestrictionsDisapprovalReasons
196+ , creativeServingRestrictionsDisapprovalReasons
164 -- * GetOrderNotesResponse
200 -- * GetOrderNotesResponse
165 , GetOrderNotesResponse
201 , GetOrderNotesResponse
166 , getOrderNotesResponse
202 , getOrderNotesResponse
@@ -222,6 +258,9 @@ module Network.Google.AdExchangeBuyer.Types
222 , cServingRestrictions
258 , cServingRestrictions
223 , cOpenAuctionStatus
259 , cOpenAuctionStatus
261+ -- * AdexchangebuyerMarketplaceordersUpdateUpdateAction
262+ , AdexchangebuyerMarketplaceordersUpdateUpdateAction (..)
225 -- * AddOrderDealsResponse
264 -- * AddOrderDealsResponse
226 , AddOrderDealsResponse
265 , AddOrderDealsResponse
227 , addOrderDealsResponse
266 , addOrderDealsResponse
@@ -234,6 +273,15 @@ module Network.Google.AdExchangeBuyer.Types
234 , pclKind
273 , pclKind
235 , pclItems
274 , pclItems
276+ -- * CreativeCorrections
277+ , CreativeCorrections
278+ , creativeCorrections
282+ -- * AdexchangebuyerCreativesListOpenAuctionStatusFilter
283+ , AdexchangebuyerCreativesListOpenAuctionStatusFilter (..)
237 -- * BuyerDto
285 -- * BuyerDto
238 , BuyerDto
286 , BuyerDto
239 , buyerDto
287 , buyerDto
@@ -311,11 +359,30 @@ module Network.Google.AdExchangeBuyer.Types
311 , dodrDealIds
359 , dodrDealIds
312 , dodrOrderRevisionNumber
360 , dodrOrderRevisionNumber
362+ -- * PretargetingConfigExcludedPlacements
363+ , PretargetingConfigExcludedPlacements
364+ , pretargetingConfigExcludedPlacements
368+ -- * CreativeNATiveAdLogo
369+ , CreativeNATiveAdLogo
370+ , creativeNATiveAdLogo
314 -- * GetOrderDealsResponse
375 -- * GetOrderDealsResponse
315 , GetOrderDealsResponse
376 , GetOrderDealsResponse
316 , getOrderDealsResponse
377 , getOrderDealsResponse
317 , godrDeals
378 , godrDeals
380+ -- * CreativeFilteringReasons
381+ , CreativeFilteringReasons
382+ , creativeFilteringReasons
319 -- * ContactInformation
386 -- * ContactInformation
320 , ContactInformation
387 , ContactInformation
321 , contactInformation
388 , contactInformation
@@ -362,6 +429,9 @@ module Network.Google.AdExchangeBuyer.Types
362 , prlKind
429 , prlKind
363 , prlPerformanceReport
430 , prlPerformanceReport
432+ -- * AdexchangebuyerMarketplaceordersPatchUpdateAction
433+ , AdexchangebuyerMarketplaceordersPatchUpdateAction (..)
365 -- * NegotiationDto
435 -- * NegotiationDto
366 , NegotiationDto
436 , NegotiationDto
367 , negotiationDto
437 , negotiationDto
@@ -496,6 +566,13 @@ module Network.Google.AdExchangeBuyer.Types
496 , pCurrencyCode
566 , pCurrencyCode
497 , pAmountMicros
567 , pAmountMicros
569+ -- * CreativeNATiveAdAppIcon
570+ , CreativeNATiveAdAppIcon
571+ , creativeNATiveAdAppIcon
499 -- * EditAllOrderDealsRequest
576 -- * EditAllOrderDealsRequest
500 , EditAllOrderDealsRequest
577 , EditAllOrderDealsRequest
501 , editAllOrderDealsRequest
578 , editAllOrderDealsRequest
@@ -534,6 +611,13 @@ module Network.Google.AdExchangeBuyer.Types
534 , listOffersRequest
611 , listOffersRequest
535 , lorSinceTimestampMillis
612 , lorSinceTimestampMillis
614+ -- * CreativeNATiveAdImage
615+ , CreativeNATiveAdImage
616+ , creativeNATiveAdImage
537 -- * ListClientAccessCapabilitiesRequest
621 -- * ListClientAccessCapabilitiesRequest
538 , ListClientAccessCapabilitiesRequest
622 , ListClientAccessCapabilitiesRequest
539 , listClientAccessCapabilitiesRequest
623 , listClientAccessCapabilitiesRequest
@@ -586,6 +670,19 @@ module Network.Google.AdExchangeBuyer.Types
586 , stExclusions
670 , stExclusions
587 , stInclusions
671 , stInclusions
673+ -- * AccountBidderLocation
674+ , AccountBidderLocation
675+ , accountBidderLocation
680+ -- * CreativeFilteringReasonsReasons
681+ , CreativeFilteringReasonsReasons
682+ , creativeFilteringReasonsReasons
683+ , cfrrFilteringStatus
684+ , cfrrFilteringCount
589 -- * ClientAccessCapabilities
686 -- * ClientAccessCapabilities
590 , ClientAccessCapabilities
687 , ClientAccessCapabilities
591 , clientAccessCapabilities
688 , clientAccessCapabilities
@@ -601,25 +698,31 @@ module Network.Google.AdExchangeBuyer.Types
601 -- * MarketplaceDeal
698 -- * MarketplaceDeal
602 , MarketplaceDeal
699 , MarketplaceDeal
603 , marketplaceDeal
700 , marketplaceDeal
604− , mdExternalDealId
701+ , mddExternalDealId
605− , mdBuyerPrivateData
702+ , mddBuyerPrivateData
606− , mdWebPropertyCode
703+ , mddWebPropertyCode
607− , mdCreationTimeMs
704+ , mddCreationTimeMs
608− , mdTerms
705+ , mddTerms
609− , mdOfferRevisionNumber
706+ , mddOfferRevisionNumber
610− , mdLastUpdateTimeMs
707+ , mddLastUpdateTimeMs
611− , mdKind
708+ , mddKind
612− , mdDeliveryControl
709+ , mddDeliveryControl
613− , mdFlightStartTimeMs
710+ , mddFlightStartTimeMs
614− , mdSharedTargetings
711+ , mddSharedTargetings
615− , mdDealId
712+ , mddDealId
616− , mdInventoryDescription
713+ , mddInventoryDescription
617− , mdSyndicationProduct
714+ , mddSyndicationProduct
618− , mdFlightEndTimeMs
715+ , mddFlightEndTimeMs
619− , mdName
716+ , mddName
620− , mdSellerContacts
717+ , mddSellerContacts
621− , mdOfferId
718+ , mddOfferId
622− , mdOrderId
719+ , mddOrderId
721+ -- * PretargetingConfigPlacements
722+ , PretargetingConfigPlacements
723+ , pretargetingConfigPlacements
624 -- * NegotiationRoundDto
727 -- * NegotiationRoundDto
625 , NegotiationRoundDto
728 , NegotiationRoundDto
@@ -655,6 +758,16 @@ module Network.Google.AdExchangeBuyer.Types
655 , dtngatReservePricePerBuyers
758 , dtngatReservePricePerBuyers
656 , dtngatPrivateAuctionId
759 , dtngatPrivateAuctionId
761+ -- * CreativeServingRestrictions
762+ , CreativeServingRestrictions
763+ , creativeServingRestrictions
766+ , csrDisapprovalReasons
768+ -- * AdexchangebuyerCreativesListDealsStatusFilter
769+ , AdexchangebuyerCreativesListDealsStatusFilter (..)
658 -- * Buyer
771 -- * Buyer
@@ -689,26 +802,26 @@ module Network.Google.AdExchangeBuyer.Types
689 -- * MarketplaceOrder
802 -- * MarketplaceOrder
690 , MarketplaceOrder
803 , MarketplaceOrder
691 , marketplaceOrder
804 , marketplaceOrder
692− , mBuyerPrivateData
805+ , mooBuyerPrivateData
693− , mIsSetupComplete
806+ , mooIsSetupComplete
694− , mBuyerContacts
807+ , mooBuyerContacts
695− , mKind
808+ , mooKind
696− , mOriginatorRole
809+ , mooOriginatorRole
697− , mRevisionNumber
810+ , mooRevisionNumber
698− , mBilledBuyer
811+ , mooBilledBuyer
699− , mIsRenegotiating
812+ , mooIsRenegotiating
700− , mHasSellerSignedOff
813+ , mooHasSellerSignedOff
701− , mSeller
814+ , mooSeller
702− , mOrderState
815+ , mooOrderState
703− , mName
816+ , mooName
704− , mSellerContacts
817+ , mooSellerContacts
705− , mLastUpdaterRole
818+ , mooLastUpdaterRole
706− , mLabels
819+ , mooLabels
707− , mRevisionTimeMs
820+ , mooRevisionTimeMs
708− , mOrderId
821+ , mooOrderId
709− , mLastUpdaterOrCommentorRole
822+ , mooLastUpdaterOrCommentorRole
710− , mHasBuyerSignedOff
823+ , mooHasBuyerSignedOff
711− , mBuyer
824+ , mooBuyer
713 -- * AddOrderDealsRequest
826 -- * AddOrderDealsRequest
714 , AddOrderDealsRequest
827 , AddOrderDealsRequest
@@ -725,6 +838,9 @@ module Network.Google.AdExchangeBuyer.Types
725 , dtGuaranteedFixedPriceTerms
838 , dtGuaranteedFixedPriceTerms
726 , dtDescription
839 , dtDescription
728 -- * EditHistoryDto
844 -- * EditHistoryDto
729 , EditHistoryDto
845 , EditHistoryDto
730 , editHistoryDto
846 , editHistoryDto
@@ -739,7 +855,7 @@ import Network.Google.AdExchangeBuyer.Types.Sum
739import Network.Google.Prelude
855import Network.Google.Prelude
741-- | URL referring to version 'v1.4' of the Ad Exchange Buyer API.
857-- | URL referring to version 'v1.4' of the Ad Exchange Buyer API.
742−adExchangeBuyerURL :: BaseURL
858+adExchangeBuyerURL :: BaseUrl
743adExchangeBuyerURL
859adExchangeBuyerURL
744 = BaseUrl Https
860 = BaseUrl Https
745 "https://www.googleapis.com/adexchangebuyer/v1.4/"
861 "https://www.googleapis.com/adexchangebuyer/v1.4/"
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Product.hs+1197−309
@@ -223,6 +223,216 @@ instance ToJSON MarketplaceNote where
223 ("orderRevisionNumber" .=) <$>
223 ("orderRevisionNumber" .=) <$>
224 _mnOrderRevisionNumber])
224 _mnOrderRevisionNumber])
226+-- | If nativeAd is set, HTMLSnippet and videoURL should not be set.
228+-- /See:/ 'creativeNATiveAd' smart constructor.
229+data CreativeNATiveAd = CreativeNATiveAd
230+ { _cnataImage :: !(Maybe CreativeNATiveAdImage)
231+ , _cnataAppIcon :: !(Maybe CreativeNATiveAdAppIcon)
232+ , _cnataClickTrackingUrl :: !(Maybe Text)
233+ , _cnataBody :: !(Maybe Text)
234+ , _cnataHeadline :: !(Maybe Text)
235+ , _cnataImpressionTrackingUrl :: !(Maybe [Text])
236+ , _cnataCallToAction :: !(Maybe Text)
237+ , _cnataStore :: !(Maybe Text)
238+ , _cnataPrice :: !(Maybe Text)
239+ , _cnataAdvertiser :: !(Maybe Text)
240+ , _cnataStarRating :: !(Maybe Double)
241+ , _cnataLogo :: !(Maybe CreativeNATiveAdLogo)
242+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
244+-- | Creates a value of 'CreativeNATiveAd' with the minimum fields required to make a request.
246+-- Use one of the following lenses to modify other fields as desired:
252+-- * 'cnataClickTrackingUrl'
258+-- * 'cnataImpressionTrackingUrl'
260+-- * 'cnataCallToAction'
266+-- * 'cnataAdvertiser'
268+-- * 'cnataStarRating'
275+ { _cnataImage = Nothing
276+ , _cnataAppIcon = Nothing
277+ , _cnataClickTrackingUrl = Nothing
278+ , _cnataBody = Nothing
279+ , _cnataHeadline = Nothing
280+ , _cnataImpressionTrackingUrl = Nothing
281+ , _cnataCallToAction = Nothing
282+ , _cnataStore = Nothing
283+ , _cnataPrice = Nothing
284+ , _cnataAdvertiser = Nothing
285+ , _cnataStarRating = Nothing
286+ , _cnataLogo = Nothing
290+cnataImage :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdImage)
292+ = lens _cnataImage (\ s a -> s{_cnataImage = a})
294+-- | The app icon, for app download ads.
295+cnataAppIcon :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdAppIcon)
297+ = lens _cnataAppIcon (\ s a -> s{_cnataAppIcon = a})
299+-- | The URL to use for click tracking.
300+cnataClickTrackingUrl :: Lens' CreativeNATiveAd (Maybe Text)
301+cnataClickTrackingUrl
302+ = lens _cnataClickTrackingUrl
303+ (\ s a -> s{_cnataClickTrackingUrl = a})
305+-- | A long description of the ad.
306+cnataBody :: Lens' CreativeNATiveAd (Maybe Text)
308+ = lens _cnataBody (\ s a -> s{_cnataBody = a})
310+-- | A short title for the ad.
311+cnataHeadline :: Lens' CreativeNATiveAd (Maybe Text)
313+ = lens _cnataHeadline
314+ (\ s a -> s{_cnataHeadline = a})
316+-- | The URLs are called when the impression is rendered.
317+cnataImpressionTrackingUrl :: Lens' CreativeNATiveAd [Text]
318+cnataImpressionTrackingUrl
319+ = lens _cnataImpressionTrackingUrl
320+ (\ s a -> s{_cnataImpressionTrackingUrl = a})
324+-- | A label for the button that the user is supposed to click.
325+cnataCallToAction :: Lens' CreativeNATiveAd (Maybe Text)
327+ = lens _cnataCallToAction
328+ (\ s a -> s{_cnataCallToAction = a})
330+-- | The URL to the app store to purchase\/download the promoted app.
331+cnataStore :: Lens' CreativeNATiveAd (Maybe Text)
333+ = lens _cnataStore (\ s a -> s{_cnataStore = a})
335+-- | The price of the promoted app including the currency info.
336+cnataPrice :: Lens' CreativeNATiveAd (Maybe Text)
338+ = lens _cnataPrice (\ s a -> s{_cnataPrice = a})
340+cnataAdvertiser :: Lens' CreativeNATiveAd (Maybe Text)
342+ = lens _cnataAdvertiser
343+ (\ s a -> s{_cnataAdvertiser = a})
345+-- | The app rating in the app store. Must be in the range [0-5].
346+cnataStarRating :: Lens' CreativeNATiveAd (Maybe Double)
348+ = lens _cnataStarRating
349+ (\ s a -> s{_cnataStarRating = a})
351+-- | A smaller image, for the advertiser logo.
352+cnataLogo :: Lens' CreativeNATiveAd (Maybe CreativeNATiveAdLogo)
354+ = lens _cnataLogo (\ s a -> s{_cnataLogo = a})
356+instance FromJSON CreativeNATiveAd where
358+ = withObject "CreativeNATiveAd"
360+ CreativeNATiveAd <$>
361+ (o .:? "image") <*> (o .:? "appIcon") <*>
362+ (o .:? "clickTrackingUrl")
364+ <*> (o .:? "headline")
365+ <*> (o .:? "impressionTrackingUrl" .!= mempty)
366+ <*> (o .:? "callToAction")
369+ <*> (o .:? "advertiser")
370+ <*> (o .:? "starRating")
373+instance ToJSON CreativeNATiveAd where
374+ toJSON CreativeNATiveAd{..}
377+ [("image" .=) <$> _cnataImage,
378+ ("appIcon" .=) <$> _cnataAppIcon,
379+ ("clickTrackingUrl" .=) <$> _cnataClickTrackingUrl,
380+ ("body" .=) <$> _cnataBody,
381+ ("headline" .=) <$> _cnataHeadline,
382+ ("impressionTrackingUrl" .=) <$>
383+ _cnataImpressionTrackingUrl,
384+ ("callToAction" .=) <$> _cnataCallToAction,
385+ ("store" .=) <$> _cnataStore,
386+ ("price" .=) <$> _cnataPrice,
387+ ("advertiser" .=) <$> _cnataAdvertiser,
388+ ("starRating" .=) <$> _cnataStarRating,
389+ ("logo" .=) <$> _cnataLogo])
392+-- /See:/ 'pretargetingConfigDimensions' smart constructor.
393+data PretargetingConfigDimensions = PretargetingConfigDimensions
394+ { _pcdHeight :: !(Maybe Int64)
395+ , _pcdWidth :: !(Maybe Int64)
396+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
398+-- | Creates a value of 'PretargetingConfigDimensions' with the minimum fields required to make a request.
400+-- Use one of the following lenses to modify other fields as desired:
405+pretargetingConfigDimensions
406+ :: PretargetingConfigDimensions
407+pretargetingConfigDimensions =
408+ PretargetingConfigDimensions
409+ { _pcdHeight = Nothing
410+ , _pcdWidth = Nothing
413+-- | Height in pixels.
414+pcdHeight :: Lens' PretargetingConfigDimensions (Maybe Int64)
416+ = lens _pcdHeight (\ s a -> s{_pcdHeight = a})
418+-- | Width in pixels.
419+pcdWidth :: Lens' PretargetingConfigDimensions (Maybe Int64)
420+pcdWidth = lens _pcdWidth (\ s a -> s{_pcdWidth = a})
422+instance FromJSON PretargetingConfigDimensions where
424+ = withObject "PretargetingConfigDimensions"
426+ PretargetingConfigDimensions <$>
427+ (o .:? "height") <*> (o .:? "width"))
429+instance ToJSON PretargetingConfigDimensions where
430+ toJSON PretargetingConfigDimensions{..}
433+ [("height" .=) <$> _pcdHeight,
434+ ("width" .=) <$> _pcdWidth])
227-- /See:/ 'termsDto' smart constructor.
437-- /See:/ 'termsDto' smart constructor.
228data TermsDto = TermsDto
438data TermsDto = TermsDto
@@ -641,6 +851,89 @@ instance ToJSON CreativesList where
641 [("nextPageToken" .=) <$> _clNextPageToken,
851 [("nextPageToken" .=) <$> _clNextPageToken,
642 Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
852 Just ("kind" .= _clKind), ("items" .=) <$> _clItems])
855+-- /See:/ 'creativeServingRestrictionsContexts' smart constructor.
856+data CreativeServingRestrictionsContexts = CreativeServingRestrictionsContexts
857+ { _csrcPlatform :: !(Maybe [Text])
858+ , _csrcContextType :: !(Maybe Text)
859+ , _csrcAuctionType :: !(Maybe [Text])
860+ , _csrcGeoCriteriaId :: !(Maybe [Int32])
861+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
863+-- | Creates a value of 'CreativeServingRestrictionsContexts' with the minimum fields required to make a request.
865+-- Use one of the following lenses to modify other fields as desired:
869+-- * 'csrcContextType'
871+-- * 'csrcAuctionType'
873+-- * 'csrcGeoCriteriaId'
874+creativeServingRestrictionsContexts
875+ :: CreativeServingRestrictionsContexts
876+creativeServingRestrictionsContexts =
877+ CreativeServingRestrictionsContexts
878+ { _csrcPlatform = Nothing
879+ , _csrcContextType = Nothing
880+ , _csrcAuctionType = Nothing
881+ , _csrcGeoCriteriaId = Nothing
884+-- | Only set when contextType=PLATFORM. Represents the platforms this
885+-- restriction applies to.
886+csrcPlatform :: Lens' CreativeServingRestrictionsContexts [Text]
888+ = lens _csrcPlatform (\ s a -> s{_csrcPlatform = a})
892+-- | The type of context (e.g., location, platform, auction type, SSL-ness).
893+csrcContextType :: Lens' CreativeServingRestrictionsContexts (Maybe Text)
895+ = lens _csrcContextType
896+ (\ s a -> s{_csrcContextType = a})
898+-- | Only set when contextType=AUCTION_TYPE. Represents the auction types
899+-- this restriction applies to.
900+csrcAuctionType :: Lens' CreativeServingRestrictionsContexts [Text]
902+ = lens _csrcAuctionType
903+ (\ s a -> s{_csrcAuctionType = a})
907+-- | Only set when contextType=LOCATION. Represents the geo criterias this
908+-- restriction applies to.
909+csrcGeoCriteriaId :: Lens' CreativeServingRestrictionsContexts [Int32]
911+ = lens _csrcGeoCriteriaId
912+ (\ s a -> s{_csrcGeoCriteriaId = a})
916+instance FromJSON CreativeServingRestrictionsContexts
919+ = withObject "CreativeServingRestrictionsContexts"
921+ CreativeServingRestrictionsContexts <$>
922+ (o .:? "platform" .!= mempty) <*>
923+ (o .:? "contextType")
924+ <*> (o .:? "auctionType" .!= mempty)
925+ <*> (o .:? "geoCriteriaId" .!= mempty))
927+instance ToJSON CreativeServingRestrictionsContexts
929+ toJSON CreativeServingRestrictionsContexts{..}
932+ [("platform" .=) <$> _csrcPlatform,
933+ ("contextType" .=) <$> _csrcContextType,
934+ ("auctionType" .=) <$> _csrcAuctionType,
935+ ("geoCriteriaId" .=) <$> _csrcGeoCriteriaId])
645-- /See:/ 'createOrdersResponse' smart constructor.
938-- /See:/ 'createOrdersResponse' smart constructor.
646newtype CreateOrdersResponse = CreateOrdersResponse
939newtype CreateOrdersResponse = CreateOrdersResponse
@@ -1286,6 +1579,58 @@ instance ToJSON AccountsList where
1286 [Just ("kind" .= _alKind),
1579 [Just ("kind" .= _alKind),
1287 ("items" .=) <$> _alItems])
1580 ("items" .=) <$> _alItems])
1583+-- /See:/ 'creativeServingRestrictionsDisapprovalReasons' smart constructor.
1584+data CreativeServingRestrictionsDisapprovalReasons = CreativeServingRestrictionsDisapprovalReasons
1585+ { _csrdrReason :: !(Maybe Text)
1586+ , _csrdrDetails :: !(Maybe [Text])
1587+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1589+-- | Creates a value of 'CreativeServingRestrictionsDisapprovalReasons' with the minimum fields required to make a request.
1591+-- Use one of the following lenses to modify other fields as desired:
1596+creativeServingRestrictionsDisapprovalReasons
1597+ :: CreativeServingRestrictionsDisapprovalReasons
1598+creativeServingRestrictionsDisapprovalReasons =
1599+ CreativeServingRestrictionsDisapprovalReasons
1600+ { _csrdrReason = Nothing
1601+ , _csrdrDetails = Nothing
1604+-- | The categorized reason for disapproval.
1605+csrdrReason :: Lens' CreativeServingRestrictionsDisapprovalReasons (Maybe Text)
1607+ = lens _csrdrReason (\ s a -> s{_csrdrReason = a})
1609+-- | Additional details about the reason for disapproval.
1610+csrdrDetails :: Lens' CreativeServingRestrictionsDisapprovalReasons [Text]
1612+ = lens _csrdrDetails (\ s a -> s{_csrdrDetails = a})
1617+ CreativeServingRestrictionsDisapprovalReasons where
1620+ "CreativeServingRestrictionsDisapprovalReasons"
1622+ CreativeServingRestrictionsDisapprovalReasons <$>
1623+ (o .:? "reason") <*> (o .:? "details" .!= mempty))
1626+ CreativeServingRestrictionsDisapprovalReasons where
1628+ CreativeServingRestrictionsDisapprovalReasons{..}
1631+ [("reason" .=) <$> _csrdrReason,
1632+ ("details" .=) <$> _csrdrDetails])
1290-- /See:/ 'getOrderNotesResponse' smart constructor.
1635-- /See:/ 'getOrderNotesResponse' smart constructor.
1291newtype GetOrderNotesResponse = GetOrderNotesResponse
1636newtype GetOrderNotesResponse = GetOrderNotesResponse
@@ -1562,7 +1907,7 @@ data Creative = Creative
1562 , _cBuyerCreativeId :: !(Maybe Text)
1907 , _cBuyerCreativeId :: !(Maybe Text)
1563 , _cAdvertiserName :: !(Maybe Text)
1908 , _cAdvertiserName :: !(Maybe Text)
1564 , _cAgencyId :: !(Maybe Int64)
1909 , _cAgencyId :: !(Maybe Int64)
1565− , _cCorrections :: !(Maybe [CreativeCorrectionsItem])
1910+ , _cCorrections :: !(Maybe [CreativeCorrections])
1566 , _cProductCategories :: !(Maybe [Int32])
1911 , _cProductCategories :: !(Maybe [Int32])
1567 , _cKind :: !Text
1912 , _cKind :: !Text
1568 , _cHTMLSnippet :: !(Maybe Text)
1913 , _cHTMLSnippet :: !(Maybe Text)
@@ -1579,7 +1924,7 @@ data Creative = Creative
1579 , _cSensitiveCategories :: !(Maybe [Int32])
1924 , _cSensitiveCategories :: !(Maybe [Int32])
1580 , _cVideoURL :: !(Maybe Text)
1925 , _cVideoURL :: !(Maybe Text)
1581 , _cApiUploadTimestamp :: !(Maybe UTCTime)
1926 , _cApiUploadTimestamp :: !(Maybe UTCTime)
1582− , _cServingRestrictions :: !(Maybe [CreativeServingRestrictionsItem])
1927+ , _cServingRestrictions :: !(Maybe [CreativeServingRestrictions])
1583 , _cOpenAuctionStatus :: !(Maybe Text)
1928 , _cOpenAuctionStatus :: !(Maybe Text)
1584 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1929 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -1702,7 +2047,7 @@ cAgencyId
1703-- | Shows any corrections that were applied to this creative. Read-only.
2048-- | Shows any corrections that were applied to this creative. Read-only.
1704-- This field should not be set in requests.
2049-- This field should not be set in requests.
1705−cCorrections :: Lens' Creative [CreativeCorrectionsItem]
2050+cCorrections :: Lens' Creative [CreativeCorrections]
1706cCorrections
2051cCorrections
1707 = lens _cCorrections (\ s a -> s{_cCorrections = a})
2052 = lens _cCorrections (\ s a -> s{_cCorrections = a})
1708 . _Default
2053 . _Default
@@ -1824,7 +2169,7 @@ cApiUploadTimestamp
1824-- relates to where something ultimately serves (for example, a physical
2169-- relates to where something ultimately serves (for example, a physical
1825-- location, a platform, an HTTPS vs HTTP request, or the type of auction).
2170-- location, a platform, an HTTPS vs HTTP request, or the type of auction).
1826-- Read-only. This field should not be set in requests.
2171-- Read-only. This field should not be set in requests.
1827−cServingRestrictions :: Lens' Creative [CreativeServingRestrictionsItem]
2172+cServingRestrictions :: Lens' Creative [CreativeServingRestrictions]
1828cServingRestrictions
2173cServingRestrictions
1829 = lens _cServingRestrictions
2174 = lens _cServingRestrictions
1830 (\ s a -> s{_cServingRestrictions = a})
2175 (\ s a -> s{_cServingRestrictions = a})
@@ -2003,6 +2348,53 @@ instance ToJSON PretargetingConfigList where
2003 [Just ("kind" .= _pclKind),
2348 [Just ("kind" .= _pclKind),
2004 ("items" .=) <$> _pclItems])
2349 ("items" .=) <$> _pclItems])
2352+-- /See:/ 'creativeCorrections' smart constructor.
2353+data CreativeCorrections = CreativeCorrections
2354+ { _ccReason :: !(Maybe Text)
2355+ , _ccDetails :: !(Maybe [Text])
2356+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2358+-- | Creates a value of 'CreativeCorrections' with the minimum fields required to make a request.
2360+-- Use one of the following lenses to modify other fields as desired:
2366+ :: CreativeCorrections
2367+creativeCorrections =
2368+ CreativeCorrections
2369+ { _ccReason = Nothing
2370+ , _ccDetails = Nothing
2373+-- | The type of correction that was applied to the creative.
2374+ccReason :: Lens' CreativeCorrections (Maybe Text)
2375+ccReason = lens _ccReason (\ s a -> s{_ccReason = a})
2377+-- | Additional details about the correction.
2378+ccDetails :: Lens' CreativeCorrections [Text]
2380+ = lens _ccDetails (\ s a -> s{_ccDetails = a}) .
2384+instance FromJSON CreativeCorrections where
2386+ = withObject "CreativeCorrections"
2388+ CreativeCorrections <$>
2389+ (o .:? "reason") <*> (o .:? "details" .!= mempty))
2391+instance ToJSON CreativeCorrections where
2392+ toJSON CreativeCorrections{..}
2395+ [("reason" .=) <$> _ccReason,
2396+ ("details" .=) <$> _ccDetails])
2007-- /See:/ 'buyerDto' smart constructor.
2399-- /See:/ 'buyerDto' smart constructor.
2008data BuyerDto = BuyerDto
2400data BuyerDto = BuyerDto
@@ -2238,18 +2630,18 @@ data PerformanceReport = PerformanceReport
2238 { _prFilteredBidRate :: !(Maybe Double)
2630 { _prFilteredBidRate :: !(Maybe Double)
2239 , _prKind :: !Text
2631 , _prKind :: !Text
2240 , _prLatency95thPercentile :: !(Maybe Double)
2632 , _prLatency95thPercentile :: !(Maybe Double)
2241− , _prCookieMatcherStatusRate :: !(Maybe [JSON])
2633+ , _prCookieMatcherStatusRate :: !(Maybe [JSONValue])
2242− , _prHostedMatchStatusRate :: !(Maybe [JSON])
2634+ , _prHostedMatchStatusRate :: !(Maybe [JSONValue])
2243 , _prUnsuccessfulRequestRate :: !(Maybe Double)
2635 , _prUnsuccessfulRequestRate :: !(Maybe Double)
2244 , _prBidRequestRate :: !(Maybe Double)
2636 , _prBidRequestRate :: !(Maybe Double)
2245 , _prQuotaThrottledLimit :: !(Maybe Double)
2637 , _prQuotaThrottledLimit :: !(Maybe Double)
2246 , _prQuotaConfiguredLimit :: !(Maybe Double)
2638 , _prQuotaConfiguredLimit :: !(Maybe Double)
2247 , _prSuccessfulRequestRate :: !(Maybe Double)
2639 , _prSuccessfulRequestRate :: !(Maybe Double)
2248 , _prLatency85thPercentile :: !(Maybe Double)
2640 , _prLatency85thPercentile :: !(Maybe Double)
2249− , _prCalloutStatusRate :: !(Maybe [JSON])
2641+ , _prCalloutStatusRate :: !(Maybe [JSONValue])
2250 , _prLatency50thPercentile :: !(Maybe Double)
2642 , _prLatency50thPercentile :: !(Maybe Double)
2251 , _prBidRate :: !(Maybe Double)
2643 , _prBidRate :: !(Maybe Double)
2252− , _prCreativeStatusRate :: !(Maybe [JSON])
2644+ , _prCreativeStatusRate :: !(Maybe [JSONValue])
2253 , _prNoQuotaInRegion :: !(Maybe Double)
2645 , _prNoQuotaInRegion :: !(Maybe Double)
2254 , _prRegion :: !(Maybe Text)
2646 , _prRegion :: !(Maybe Text)
2255 , _prInventoryMatchRate :: !(Maybe Double)
2647 , _prInventoryMatchRate :: !(Maybe Double)
@@ -2353,7 +2745,7 @@ prLatency95thPercentile
2353 (\ s a -> s{_prLatency95thPercentile = a})
2745 (\ s a -> s{_prLatency95thPercentile = a})
2355-- | Average QPS for cookie matcher operations.
2747-- | Average QPS for cookie matcher operations.
2356−prCookieMatcherStatusRate :: Lens' PerformanceReport [JSON]
2748+prCookieMatcherStatusRate :: Lens' PerformanceReport [JSONValue]
2357prCookieMatcherStatusRate
2749prCookieMatcherStatusRate
2358 = lens _prCookieMatcherStatusRate
2750 = lens _prCookieMatcherStatusRate
2359 (\ s a -> s{_prCookieMatcherStatusRate = a})
2751 (\ s a -> s{_prCookieMatcherStatusRate = a})
@@ -2361,7 +2753,7 @@ prCookieMatcherStatusRate
2361 . _Coerce
2753 . _Coerce
2363-- | Average QPS for hosted match operations.
2755-- | Average QPS for hosted match operations.
2364−prHostedMatchStatusRate :: Lens' PerformanceReport [JSON]
2756+prHostedMatchStatusRate :: Lens' PerformanceReport [JSONValue]
2365prHostedMatchStatusRate
2757prHostedMatchStatusRate
2366 = lens _prHostedMatchStatusRate
2758 = lens _prHostedMatchStatusRate
2367 (\ s a -> s{_prHostedMatchStatusRate = a})
2759 (\ s a -> s{_prHostedMatchStatusRate = a})
@@ -2409,7 +2801,7 @@ prLatency85thPercentile
2410-- | Rate of various prefiltering statuses per match. Please refer to the
2802-- | Rate of various prefiltering statuses per match. Please refer to the
2411-- callout-status-codes.txt file for different statuses.
2803-- callout-status-codes.txt file for different statuses.
2412−prCalloutStatusRate :: Lens' PerformanceReport [JSON]
2804+prCalloutStatusRate :: Lens' PerformanceReport [JSONValue]
2413prCalloutStatusRate
2805prCalloutStatusRate
2414 = lens _prCalloutStatusRate
2806 = lens _prCalloutStatusRate
2415 (\ s a -> s{_prCalloutStatusRate = a})
2807 (\ s a -> s{_prCalloutStatusRate = a})
@@ -2430,7 +2822,7 @@ prBidRate
2431-- | Rate of ads with a given status. Please refer to the
2823-- | Rate of ads with a given status. Please refer to the
2432-- creative-status-codes.txt file for different statuses.
2824-- creative-status-codes.txt file for different statuses.
2433−prCreativeStatusRate :: Lens' PerformanceReport [JSON]
2825+prCreativeStatusRate :: Lens' PerformanceReport [JSONValue]
2434prCreativeStatusRate
2826prCreativeStatusRate
2435 = lens _prCreativeStatusRate
2827 = lens _prCreativeStatusRate
2436 (\ s a -> s{_prCreativeStatusRate = a})
2828 (\ s a -> s{_prCreativeStatusRate = a})
@@ -2552,7 +2944,7 @@ data Account = Account
2552 , _aCookieMatchingNid :: !(Maybe Text)
2944 , _aCookieMatchingNid :: !(Maybe Text)
2553 , _aNumberActiveCreatives :: !(Maybe Int32)
2945 , _aNumberActiveCreatives :: !(Maybe Int32)
2554 , _aId :: !(Maybe Int32)
2946 , _aId :: !(Maybe Int32)
2555− , _aBidderLocation :: !(Maybe [AccountBidderLocationItem])
2947+ , _aBidderLocation :: !(Maybe [AccountBidderLocation])
2556 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2948 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2558-- | Creates a value of 'Account' with the minimum fields required to make a request.
2950-- | Creates a value of 'Account' with the minimum fields required to make a request.
@@ -2634,7 +3026,7 @@ aId :: Lens' Account (Maybe Int32)
2634aId = lens _aId (\ s a -> s{_aId = a})
3026aId = lens _aId (\ s a -> s{_aId = a})
2636-- | Your bidder locations that have distinct URLs.
3028-- | Your bidder locations that have distinct URLs.
2637−aBidderLocation :: Lens' Account [AccountBidderLocationItem]
3029+aBidderLocation :: Lens' Account [AccountBidderLocation]
2638aBidderLocation
3030aBidderLocation
2639 = lens _aBidderLocation
3031 = lens _aBidderLocation
2640 (\ s a -> s{_aBidderLocation = a})
3032 (\ s a -> s{_aBidderLocation = a})
@@ -2780,6 +3172,110 @@ instance ToJSON DeleteOrderDealsRequest where
2780 ("orderRevisionNumber" .=) <$>
3172 ("orderRevisionNumber" .=) <$>
2781 _dodrOrderRevisionNumber])
3173 _dodrOrderRevisionNumber])
3176+-- /See:/ 'pretargetingConfigExcludedPlacements' smart constructor.
3177+data PretargetingConfigExcludedPlacements = PretargetingConfigExcludedPlacements
3178+ { _pcepToken :: !(Maybe Text)
3179+ , _pcepType :: !(Maybe Text)
3180+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3182+-- | Creates a value of 'PretargetingConfigExcludedPlacements' with the minimum fields required to make a request.
3184+-- Use one of the following lenses to modify other fields as desired:
3189+pretargetingConfigExcludedPlacements
3190+ :: PretargetingConfigExcludedPlacements
3191+pretargetingConfigExcludedPlacements =
3192+ PretargetingConfigExcludedPlacements
3193+ { _pcepToken = Nothing
3194+ , _pcepType = Nothing
3197+-- | The value of the placement. Interpretation depends on the placement
3198+-- type, e.g. URL for a site placement, channel name for a channel
3199+-- placement, app id for a mobile app placement.
3200+pcepToken :: Lens' PretargetingConfigExcludedPlacements (Maybe Text)
3202+ = lens _pcepToken (\ s a -> s{_pcepToken = a})
3204+-- | The type of the placement.
3205+pcepType :: Lens' PretargetingConfigExcludedPlacements (Maybe Text)
3206+pcepType = lens _pcepType (\ s a -> s{_pcepType = a})
3209+ PretargetingConfigExcludedPlacements where
3211+ = withObject "PretargetingConfigExcludedPlacements"
3213+ PretargetingConfigExcludedPlacements <$>
3214+ (o .:? "token") <*> (o .:? "type"))
3216+instance ToJSON PretargetingConfigExcludedPlacements
3218+ toJSON PretargetingConfigExcludedPlacements{..}
3221+ [("token" .=) <$> _pcepToken,
3222+ ("type" .=) <$> _pcepType])
3224+-- | A smaller image, for the advertiser logo.
3226+-- /See:/ 'creativeNATiveAdLogo' smart constructor.
3227+data CreativeNATiveAdLogo = CreativeNATiveAdLogo
3228+ { _cnatalHeight :: !(Maybe Int32)
3229+ , _cnatalUrl :: !(Maybe Text)
3230+ , _cnatalWidth :: !(Maybe Int32)
3231+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3233+-- | Creates a value of 'CreativeNATiveAdLogo' with the minimum fields required to make a request.
3235+-- Use one of the following lenses to modify other fields as desired:
3242+creativeNATiveAdLogo
3243+ :: CreativeNATiveAdLogo
3244+creativeNATiveAdLogo =
3245+ CreativeNATiveAdLogo
3246+ { _cnatalHeight = Nothing
3247+ , _cnatalUrl = Nothing
3248+ , _cnatalWidth = Nothing
3251+cnatalHeight :: Lens' CreativeNATiveAdLogo (Maybe Int32)
3253+ = lens _cnatalHeight (\ s a -> s{_cnatalHeight = a})
3255+cnatalUrl :: Lens' CreativeNATiveAdLogo (Maybe Text)
3257+ = lens _cnatalUrl (\ s a -> s{_cnatalUrl = a})
3259+cnatalWidth :: Lens' CreativeNATiveAdLogo (Maybe Int32)
3261+ = lens _cnatalWidth (\ s a -> s{_cnatalWidth = a})
3263+instance FromJSON CreativeNATiveAdLogo where
3265+ = withObject "CreativeNATiveAdLogo"
3267+ CreativeNATiveAdLogo <$>
3268+ (o .:? "height") <*> (o .:? "url") <*>
3271+instance ToJSON CreativeNATiveAdLogo where
3272+ toJSON CreativeNATiveAdLogo{..}
3275+ [("height" .=) <$> _cnatalHeight,
3276+ ("url" .=) <$> _cnatalUrl,
3277+ ("width" .=) <$> _cnatalWidth])
2784-- /See:/ 'getOrderDealsResponse' smart constructor.
3280-- /See:/ 'getOrderDealsResponse' smart constructor.
2785newtype GetOrderDealsResponse = GetOrderDealsResponse
3281newtype GetOrderDealsResponse = GetOrderDealsResponse
@@ -2815,6 +3311,56 @@ instance ToJSON GetOrderDealsResponse where
2815 toJSON GetOrderDealsResponse{..}
3311 toJSON GetOrderDealsResponse{..}
2816 = object (catMaybes [("deals" .=) <$> _godrDeals])
3312 = object (catMaybes [("deals" .=) <$> _godrDeals])
3314+-- | The filtering reasons for the creative. Read-only. This field should not
3315+-- be set in requests.
3317+-- /See:/ 'creativeFilteringReasons' smart constructor.
3318+data CreativeFilteringReasons = CreativeFilteringReasons
3319+ { _cfrReasons :: !(Maybe [CreativeFilteringReasonsReasons])
3320+ , _cfrDate :: !(Maybe Text)
3321+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3323+-- | Creates a value of 'CreativeFilteringReasons' with the minimum fields required to make a request.
3325+-- Use one of the following lenses to modify other fields as desired:
3330+creativeFilteringReasons
3331+ :: CreativeFilteringReasons
3332+creativeFilteringReasons =
3333+ CreativeFilteringReasons
3334+ { _cfrReasons = Nothing
3335+ , _cfrDate = Nothing
3338+-- | The filtering reasons.
3339+cfrReasons :: Lens' CreativeFilteringReasons [CreativeFilteringReasonsReasons]
3341+ = lens _cfrReasons (\ s a -> s{_cfrReasons = a}) .
3345+-- | The date in ISO 8601 format for the data. The data is collected from
3346+-- 00:00:00 to 23:59:59 in PST.
3347+cfrDate :: Lens' CreativeFilteringReasons (Maybe Text)
3348+cfrDate = lens _cfrDate (\ s a -> s{_cfrDate = a})
3350+instance FromJSON CreativeFilteringReasons where
3352+ = withObject "CreativeFilteringReasons"
3354+ CreativeFilteringReasons <$>
3355+ (o .:? "reasons" .!= mempty) <*> (o .:? "date"))
3357+instance ToJSON CreativeFilteringReasons where
3358+ toJSON CreativeFilteringReasons{..}
3361+ [("reasons" .=) <$> _cfrReasons,
3362+ ("date" .=) <$> _cfrDate])
2819-- /See:/ 'contactInformation' smart constructor.
3365-- /See:/ 'contactInformation' smart constructor.
2820data ContactInformation = ContactInformation
3366data ContactInformation = ContactInformation
@@ -2929,16 +3475,16 @@ data PretargetingConfig = PretargetingConfig
2929 , _pcSupportedCreativeAttributes :: !(Maybe [Int64])
3475 , _pcSupportedCreativeAttributes :: !(Maybe [Int64])
2930 , _pcUserLists :: !(Maybe [Int64])
3476 , _pcUserLists :: !(Maybe [Int64])
2931 , _pcKind :: !Text
3477 , _pcKind :: !Text
2932− , _pcExcludedPlacements :: !(Maybe [PretargetingConfigExcludedPlacementsItem])
3478+ , _pcExcludedPlacements :: !(Maybe [PretargetingConfigExcludedPlacements])
2933 , _pcMobileDevices :: !(Maybe [Int64])
3479 , _pcMobileDevices :: !(Maybe [Int64])
2934 , _pcLanguages :: !(Maybe [Text])
3480 , _pcLanguages :: !(Maybe [Text])
2935 , _pcVerticals :: !(Maybe [Int64])
3481 , _pcVerticals :: !(Maybe [Int64])
2936 , _pcConfigId :: !(Maybe Int64)
3482 , _pcConfigId :: !(Maybe Int64)
2937− , _pcPlacements :: !(Maybe [PretargetingConfigPlacementsItem])
3483+ , _pcPlacements :: !(Maybe [PretargetingConfigPlacements])
2938 , _pcExcludedUserLists :: !(Maybe [Int64])
3484 , _pcExcludedUserLists :: !(Maybe [Int64])
2939 , _pcConfigName :: !(Maybe Text)
3485 , _pcConfigName :: !(Maybe Text)
2940 , _pcGeoCriteriaIds :: !(Maybe [Int64])
3486 , _pcGeoCriteriaIds :: !(Maybe [Int64])
2941− , _pcDimensions :: !(Maybe [PretargetingConfigDimensionsItem])
3487+ , _pcDimensions :: !(Maybe [PretargetingConfigDimensions])
2942 , _pcExcludedVerticals :: !(Maybe [Int64])
3488 , _pcExcludedVerticals :: !(Maybe [Int64])
2943 , _pcCreativeType :: !(Maybe [Text])
3489 , _pcCreativeType :: !(Maybe [Text])
2944 , _pcIsActive :: !(Maybe Bool)
3490 , _pcIsActive :: !(Maybe Bool)
@@ -3083,7 +3629,7 @@ pcKind :: Lens' PretargetingConfig Text
3083pcKind = lens _pcKind (\ s a -> s{_pcKind = a})
3629pcKind = lens _pcKind (\ s a -> s{_pcKind = a})
3085-- | Requests containing any of these placements will not match.
3631-- | Requests containing any of these placements will not match.
3086−pcExcludedPlacements :: Lens' PretargetingConfig [PretargetingConfigExcludedPlacementsItem]
3632+pcExcludedPlacements :: Lens' PretargetingConfig [PretargetingConfigExcludedPlacements]
3087pcExcludedPlacements
3633pcExcludedPlacements
3088 = lens _pcExcludedPlacements
3634 = lens _pcExcludedPlacements
3089 (\ s a -> s{_pcExcludedPlacements = a})
3635 (\ s a -> s{_pcExcludedPlacements = a})
@@ -3120,7 +3666,7 @@ pcConfigId
3120 = lens _pcConfigId (\ s a -> s{_pcConfigId = a})
3666 = lens _pcConfigId (\ s a -> s{_pcConfigId = a})
3122-- | Requests containing any of these placements will match.
3668-- | Requests containing any of these placements will match.
3123−pcPlacements :: Lens' PretargetingConfig [PretargetingConfigPlacementsItem]
3669+pcPlacements :: Lens' PretargetingConfig [PretargetingConfigPlacements]
3124pcPlacements
3670pcPlacements
3125 = lens _pcPlacements (\ s a -> s{_pcPlacements = a})
3671 = lens _pcPlacements (\ s a -> s{_pcPlacements = a})
3126 . _Default
3672 . _Default
@@ -3149,7 +3695,7 @@ pcGeoCriteriaIds
3150-- | Requests which allow one of these (width, height) pairs will match. All
3696-- | Requests which allow one of these (width, height) pairs will match. All
3151-- pairs must be supported ad dimensions.
3697-- pairs must be supported ad dimensions.
3152−pcDimensions :: Lens' PretargetingConfig [PretargetingConfigDimensionsItem]
3698+pcDimensions :: Lens' PretargetingConfig [PretargetingConfigDimensions]
3153pcDimensions
3699pcDimensions
3154 = lens _pcDimensions (\ s a -> s{_pcDimensions = a})
3700 = lens _pcDimensions (\ s a -> s{_pcDimensions = a})
3155 . _Default
3701 . _Default
@@ -4547,6 +5093,62 @@ instance ToJSON Price where
4547 [("currencyCode" .=) <$> _pCurrencyCode,
5093 [("currencyCode" .=) <$> _pCurrencyCode,
4548 ("amountMicros" .=) <$> _pAmountMicros])
5094 ("amountMicros" .=) <$> _pAmountMicros])
5096+-- | The app icon, for app download ads.
5098+-- /See:/ 'creativeNATiveAdAppIcon' smart constructor.
5099+data CreativeNATiveAdAppIcon = CreativeNATiveAdAppIcon
5100+ { _cnataaiHeight :: !(Maybe Int32)
5101+ , _cnataaiUrl :: !(Maybe Text)
5102+ , _cnataaiWidth :: !(Maybe Int32)
5103+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5105+-- | Creates a value of 'CreativeNATiveAdAppIcon' with the minimum fields required to make a request.
5107+-- Use one of the following lenses to modify other fields as desired:
5109+-- * 'cnataaiHeight'
5114+creativeNATiveAdAppIcon
5115+ :: CreativeNATiveAdAppIcon
5116+creativeNATiveAdAppIcon =
5117+ CreativeNATiveAdAppIcon
5118+ { _cnataaiHeight = Nothing
5119+ , _cnataaiUrl = Nothing
5120+ , _cnataaiWidth = Nothing
5123+cnataaiHeight :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)
5125+ = lens _cnataaiHeight
5126+ (\ s a -> s{_cnataaiHeight = a})
5128+cnataaiUrl :: Lens' CreativeNATiveAdAppIcon (Maybe Text)
5130+ = lens _cnataaiUrl (\ s a -> s{_cnataaiUrl = a})
5132+cnataaiWidth :: Lens' CreativeNATiveAdAppIcon (Maybe Int32)
5134+ = lens _cnataaiWidth (\ s a -> s{_cnataaiWidth = a})
5136+instance FromJSON CreativeNATiveAdAppIcon where
5138+ = withObject "CreativeNATiveAdAppIcon"
5140+ CreativeNATiveAdAppIcon <$>
5141+ (o .:? "height") <*> (o .:? "url") <*>
5144+instance ToJSON CreativeNATiveAdAppIcon where
5145+ toJSON CreativeNATiveAdAppIcon{..}
5148+ [("height" .=) <$> _cnataaiHeight,
5149+ ("url" .=) <$> _cnataaiUrl,
5150+ ("width" .=) <$> _cnataaiWidth])
4551-- /See:/ 'editAllOrderDealsRequest' smart constructor.
5153-- /See:/ 'editAllOrderDealsRequest' smart constructor.
4552data EditAllOrderDealsRequest = EditAllOrderDealsRequest
5154data EditAllOrderDealsRequest = EditAllOrderDealsRequest
@@ -4890,6 +5492,61 @@ instance ToJSON ListOffersRequest where
4890 [("sinceTimestampMillis" .=) <$>
5492 [("sinceTimestampMillis" .=) <$>
4891 _lorSinceTimestampMillis])
5493 _lorSinceTimestampMillis])
5497+-- /See:/ 'creativeNATiveAdImage' smart constructor.
5498+data CreativeNATiveAdImage = CreativeNATiveAdImage
5499+ { _cnataiHeight :: !(Maybe Int32)
5500+ , _cnataiUrl :: !(Maybe Text)
5501+ , _cnataiWidth :: !(Maybe Int32)
5502+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
5504+-- | Creates a value of 'CreativeNATiveAdImage' with the minimum fields required to make a request.
5506+-- Use one of the following lenses to modify other fields as desired:
5513+creativeNATiveAdImage
5514+ :: CreativeNATiveAdImage
5515+creativeNATiveAdImage =
5516+ CreativeNATiveAdImage
5517+ { _cnataiHeight = Nothing
5518+ , _cnataiUrl = Nothing
5519+ , _cnataiWidth = Nothing
5522+cnataiHeight :: Lens' CreativeNATiveAdImage (Maybe Int32)
5524+ = lens _cnataiHeight (\ s a -> s{_cnataiHeight = a})
5526+cnataiUrl :: Lens' CreativeNATiveAdImage (Maybe Text)
5528+ = lens _cnataiUrl (\ s a -> s{_cnataiUrl = a})
5530+cnataiWidth :: Lens' CreativeNATiveAdImage (Maybe Int32)
5532+ = lens _cnataiWidth (\ s a -> s{_cnataiWidth = a})
5534+instance FromJSON CreativeNATiveAdImage where
5536+ = withObject "CreativeNATiveAdImage"
5538+ CreativeNATiveAdImage <$>
5539+ (o .:? "height") <*> (o .:? "url") <*>
5542+instance ToJSON CreativeNATiveAdImage where
5543+ toJSON CreativeNATiveAdImage{..}
5546+ [("height" .=) <$> _cnataiHeight,
5547+ ("url" .=) <$> _cnataiUrl,
5548+ ("width" .=) <$> _cnataiWidth])
4894-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
5551-- /See:/ 'listClientAccessCapabilitiesRequest' smart constructor.
4895newtype ListClientAccessCapabilitiesRequest = ListClientAccessCapabilitiesRequest
5552newtype ListClientAccessCapabilitiesRequest = ListClientAccessCapabilitiesRequest
@@ -5506,6 +6163,117 @@ instance ToJSON SharedTargeting where
5506 ("exclusions" .=) <$> _stExclusions,
6163 ("exclusions" .=) <$> _stExclusions,
5507 ("inclusions" .=) <$> _stInclusions])
6164 ("inclusions" .=) <$> _stInclusions])
6167+-- /See:/ 'accountBidderLocation' smart constructor.
6168+data AccountBidderLocation = AccountBidderLocation
6169+ { _ablUrl :: !(Maybe Text)
6170+ , _ablMaximumQps :: !(Maybe Int32)
6171+ , _ablRegion :: !(Maybe Text)
6172+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
6174+-- | Creates a value of 'AccountBidderLocation' with the minimum fields required to make a request.
6176+-- Use one of the following lenses to modify other fields as desired:
6180+-- * 'ablMaximumQps'
6183+accountBidderLocation
6184+ :: AccountBidderLocation
6185+accountBidderLocation =
6186+ AccountBidderLocation
6187+ { _ablUrl = Nothing
6188+ , _ablMaximumQps = Nothing
6189+ , _ablRegion = Nothing
6192+-- | The URL to which the Ad Exchange will send bid requests.
6193+ablUrl :: Lens' AccountBidderLocation (Maybe Text)
6194+ablUrl = lens _ablUrl (\ s a -> s{_ablUrl = a})
6196+-- | The maximum queries per second the Ad Exchange will send.
6197+ablMaximumQps :: Lens' AccountBidderLocation (Maybe Int32)
6199+ = lens _ablMaximumQps
6200+ (\ s a -> s{_ablMaximumQps = a})
6202+-- | The geographical region the Ad Exchange should send requests from. Only
6203+-- used by some quota systems, but always setting the value is recommended.
6204+-- Allowed values: - ASIA - EUROPE - US_EAST - US_WEST
6205+ablRegion :: Lens' AccountBidderLocation (Maybe Text)
6207+ = lens _ablRegion (\ s a -> s{_ablRegion = a})
6209+instance FromJSON AccountBidderLocation where
6211+ = withObject "AccountBidderLocation"
6213+ AccountBidderLocation <$>
6214+ (o .:? "url") <*> (o .:? "maximumQps") <*>
6217+instance ToJSON AccountBidderLocation where
6218+ toJSON AccountBidderLocation{..}
6221+ [("url" .=) <$> _ablUrl,
6222+ ("maximumQps" .=) <$> _ablMaximumQps,
6223+ ("region" .=) <$> _ablRegion])
6226+-- /See:/ 'creativeFilteringReasonsReasons' smart constructor.
6227+data CreativeFilteringReasonsReasons = CreativeFilteringReasonsReasons
6228+ { _cfrrFilteringStatus :: !(Maybe Int32)
6229+ , _cfrrFilteringCount :: !(Maybe Int64)
6230+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
6232+-- | Creates a value of 'CreativeFilteringReasonsReasons' with the minimum fields required to make a request.
6234+-- Use one of the following lenses to modify other fields as desired:
6236+-- * 'cfrrFilteringStatus'
6238+-- * 'cfrrFilteringCount'
6239+creativeFilteringReasonsReasons
6240+ :: CreativeFilteringReasonsReasons
6241+creativeFilteringReasonsReasons =
6242+ CreativeFilteringReasonsReasons
6243+ { _cfrrFilteringStatus = Nothing
6244+ , _cfrrFilteringCount = Nothing
6247+-- | The filtering status code. Please refer to the creative-status-codes.txt
6248+-- file for different statuses.
6249+cfrrFilteringStatus :: Lens' CreativeFilteringReasonsReasons (Maybe Int32)
6251+ = lens _cfrrFilteringStatus
6252+ (\ s a -> s{_cfrrFilteringStatus = a})
6254+-- | The number of times the creative was filtered for the status. The count
6255+-- is aggregated across all publishers on the exchange.
6256+cfrrFilteringCount :: Lens' CreativeFilteringReasonsReasons (Maybe Int64)
6258+ = lens _cfrrFilteringCount
6259+ (\ s a -> s{_cfrrFilteringCount = a})
6261+instance FromJSON CreativeFilteringReasonsReasons
6264+ = withObject "CreativeFilteringReasonsReasons"
6266+ CreativeFilteringReasonsReasons <$>
6267+ (o .:? "filteringStatus") <*>
6268+ (o .:? "filteringCount"))
6270+instance ToJSON CreativeFilteringReasonsReasons where
6271+ toJSON CreativeFilteringReasonsReasons{..}
6274+ [("filteringStatus" .=) <$> _cfrrFilteringStatus,
6275+ ("filteringCount" .=) <$> _cfrrFilteringCount])
5510-- /See:/ 'clientAccessCapabilities' smart constructor.
6278-- /See:/ 'clientAccessCapabilities' smart constructor.
5511data ClientAccessCapabilities = ClientAccessCapabilities
6279data ClientAccessCapabilities = ClientAccessCapabilities
@@ -5610,208 +6378,209 @@ instance ToJSON DeleteOrderDealsResponse where
5611-- /See:/ 'marketplaceDeal' smart constructor.
6379-- /See:/ 'marketplaceDeal' smart constructor.
5612data MarketplaceDeal = MarketplaceDeal
6380data MarketplaceDeal = MarketplaceDeal
5613− { _mdExternalDealId :: !(Maybe Text)
6381+ { _mddExternalDealId :: !(Maybe Text)
5614− , _mdBuyerPrivateData :: !(Maybe (Maybe PrivateData))
6382+ , _mddBuyerPrivateData :: !(Maybe (Maybe PrivateData))
5615− , _mdWebPropertyCode :: !(Maybe Text)
6383+ , _mddWebPropertyCode :: !(Maybe Text)
5616− , _mdCreationTimeMs :: !(Maybe Int64)
6384+ , _mddCreationTimeMs :: !(Maybe Int64)
5617− , _mdTerms :: !(Maybe (Maybe DealTerms))
6385+ , _mddTerms :: !(Maybe (Maybe DealTerms))
5618− , _mdOfferRevisionNumber :: !(Maybe Int64)
6386+ , _mddOfferRevisionNumber :: !(Maybe Int64)
5619− , _mdLastUpdateTimeMs :: !(Maybe Int64)
6387+ , _mddLastUpdateTimeMs :: !(Maybe Int64)
5620− , _mdKind :: !Text
6388+ , _mddKind :: !Text
5621− , _mdDeliveryControl :: !(Maybe (Maybe DeliveryControl))
6389+ , _mddDeliveryControl :: !(Maybe (Maybe DeliveryControl))
5622− , _mdFlightStartTimeMs :: !(Maybe Int64)
6390+ , _mddFlightStartTimeMs :: !(Maybe Int64)
5623− , _mdSharedTargetings :: !(Maybe [Maybe SharedTargeting])
6391+ , _mddSharedTargetings :: !(Maybe [Maybe SharedTargeting])
5624− , _mdDealId :: !(Maybe Text)
6392+ , _mddDealId :: !(Maybe Text)
5625− , _mdInventoryDescription :: !(Maybe Text)
6393+ , _mddInventoryDescription :: !(Maybe Text)
5626− , _mdSyndicationProduct :: !(Maybe Text)
6394+ , _mddSyndicationProduct :: !(Maybe Text)
5627− , _mdFlightEndTimeMs :: !(Maybe Int64)
6395+ , _mddFlightEndTimeMs :: !(Maybe Int64)
5628− , _mdName :: !(Maybe Text)
6396+ , _mddName :: !(Maybe Text)
5629− , _mdSellerContacts :: !(Maybe [Maybe ContactInformation])
6397+ , _mddSellerContacts :: !(Maybe [Maybe ContactInformation])
5630− , _mdOfferId :: !(Maybe Text)
6398+ , _mddOfferId :: !(Maybe Text)
5631− , _mdOrderId :: !(Maybe Text)
6399+ , _mddOrderId :: !(Maybe Text)
5632 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6400 } deriving (Eq,Read,Show,Data,Typeable,Generic)
5634-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.
6402-- | Creates a value of 'MarketplaceDeal' with the minimum fields required to make a request.
5636-- Use one of the following lenses to modify other fields as desired:
6404-- Use one of the following lenses to modify other fields as desired:
5638−-- * 'mdExternalDealId'
6406+-- * 'mddExternalDealId'
5640−-- * 'mdBuyerPrivateData'
6408+-- * 'mddBuyerPrivateData'
5642−-- * 'mdWebPropertyCode'
6410+-- * 'mddWebPropertyCode'
5644−-- * 'mdCreationTimeMs'
6412+-- * 'mddCreationTimeMs'
5646−-- * 'mdTerms'
6414+-- * 'mddTerms'
5648−-- * 'mdOfferRevisionNumber'
6416+-- * 'mddOfferRevisionNumber'
5650−-- * 'mdLastUpdateTimeMs'
6418+-- * 'mddLastUpdateTimeMs'
5652−-- * 'mdKind'
6420+-- * 'mddKind'
5654−-- * 'mdDeliveryControl'
6422+-- * 'mddDeliveryControl'
5656−-- * 'mdFlightStartTimeMs'
6424+-- * 'mddFlightStartTimeMs'
5658−-- * 'mdSharedTargetings'
6426+-- * 'mddSharedTargetings'
5660−-- * 'mdDealId'
6428+-- * 'mddDealId'
5662−-- * 'mdInventoryDescription'
6430+-- * 'mddInventoryDescription'
5664−-- * 'mdSyndicationProduct'
6432+-- * 'mddSyndicationProduct'
5666−-- * 'mdFlightEndTimeMs'
6434+-- * 'mddFlightEndTimeMs'
5668−-- * 'mdName'
6436+-- * 'mddName'
5670−-- * 'mdSellerContacts'
6438+-- * 'mddSellerContacts'
5672−-- * 'mdOfferId'
6440+-- * 'mddOfferId'
5674−-- * 'mdOrderId'
6442+-- * 'mddOrderId'
5675marketplaceDeal
6443marketplaceDeal
5676 :: MarketplaceDeal
6444 :: MarketplaceDeal
5677marketplaceDeal =
6445marketplaceDeal =
5678 MarketplaceDeal
6446 MarketplaceDeal
5679− { _mdExternalDealId = Nothing
6447+ { _mddExternalDealId = Nothing
5680− , _mdBuyerPrivateData = Nothing
6448+ , _mddBuyerPrivateData = Nothing
5681− , _mdWebPropertyCode = Nothing
6449+ , _mddWebPropertyCode = Nothing
5682− , _mdCreationTimeMs = Nothing
6450+ , _mddCreationTimeMs = Nothing
5683− , _mdTerms = Nothing
6451+ , _mddTerms = Nothing
5684− , _mdOfferRevisionNumber = Nothing
6452+ , _mddOfferRevisionNumber = Nothing
5685− , _mdLastUpdateTimeMs = Nothing
6453+ , _mddLastUpdateTimeMs = Nothing
5686− , _mdKind = "adexchangebuyer#marketplaceDeal"
6454+ , _mddKind = "adexchangebuyer#marketplaceDeal"
5687− , _mdDeliveryControl = Nothing
6455+ , _mddDeliveryControl = Nothing
5688− , _mdFlightStartTimeMs = Nothing
6456+ , _mddFlightStartTimeMs = Nothing
5689− , _mdSharedTargetings = Nothing
6457+ , _mddSharedTargetings = Nothing
5690− , _mdDealId = Nothing
6458+ , _mddDealId = Nothing
5691− , _mdInventoryDescription = Nothing
6459+ , _mddInventoryDescription = Nothing
5692− , _mdSyndicationProduct = Nothing
6460+ , _mddSyndicationProduct = Nothing
5693− , _mdFlightEndTimeMs = Nothing
6461+ , _mddFlightEndTimeMs = Nothing
5694− , _mdName = Nothing
6462+ , _mddName = Nothing
5695− , _mdSellerContacts = Nothing
6463+ , _mddSellerContacts = Nothing
5696− , _mdOfferId = Nothing
6464+ , _mddOfferId = Nothing
5697− , _mdOrderId = Nothing
6465+ , _mddOrderId = Nothing
5700-- | The external deal id assigned to this deal once the deal is finalized.
6468-- | The external deal id assigned to this deal once the deal is finalized.
5701-- This is the deal-id that shows up in serving\/reporting etc. (readonly)
6469-- This is the deal-id that shows up in serving\/reporting etc. (readonly)
5702−mdExternalDealId :: Lens' MarketplaceDeal (Maybe Text)
6470+mddExternalDealId :: Lens' MarketplaceDeal (Maybe Text)
5703−mdExternalDealId
6471+mddExternalDealId
5704− = lens _mdExternalDealId
6472+ = lens _mddExternalDealId
5705− (\ s a -> s{_mdExternalDealId = a})
6473+ (\ s a -> s{_mddExternalDealId = a})
5707-- | Buyer private data (hidden from seller).
6475-- | Buyer private data (hidden from seller).
5708−mdBuyerPrivateData :: Lens' MarketplaceDeal (Maybe (Maybe PrivateData))
6476+mddBuyerPrivateData :: Lens' MarketplaceDeal (Maybe (Maybe PrivateData))
5709−mdBuyerPrivateData
6477+mddBuyerPrivateData
5710− = lens _mdBuyerPrivateData
6478+ = lens _mddBuyerPrivateData
5711− (\ s a -> s{_mdBuyerPrivateData = a})
6479+ (\ s a -> s{_mddBuyerPrivateData = a})
5713−mdWebPropertyCode :: Lens' MarketplaceDeal (Maybe Text)
6481+mddWebPropertyCode :: Lens' MarketplaceDeal (Maybe Text)
5714−mdWebPropertyCode
6482+mddWebPropertyCode
5715− = lens _mdWebPropertyCode
6483+ = lens _mddWebPropertyCode
5716− (\ s a -> s{_mdWebPropertyCode = a})
6484+ (\ s a -> s{_mddWebPropertyCode = a})
5718-- | The time (ms since epoch) of the deal creation. (readonly)
6486-- | The time (ms since epoch) of the deal creation. (readonly)
5719−mdCreationTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
6487+mddCreationTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
5720−mdCreationTimeMs
6488+mddCreationTimeMs
5721− = lens _mdCreationTimeMs
6489+ = lens _mddCreationTimeMs
5722− (\ s a -> s{_mdCreationTimeMs = a})
6490+ (\ s a -> s{_mddCreationTimeMs = a})
5724-- | The negotiable terms of the deal. (updatable)
6492-- | The negotiable terms of the deal. (updatable)
5725−mdTerms :: Lens' MarketplaceDeal (Maybe (Maybe DealTerms))
6493+mddTerms :: Lens' MarketplaceDeal (Maybe (Maybe DealTerms))
5726−mdTerms = lens _mdTerms (\ s a -> s{_mdTerms = a})
6494+mddTerms = lens _mddTerms (\ s a -> s{_mddTerms = a})
5728-- | The revision number of the offer that the deal was created from
6496-- | The revision number of the offer that the deal was created from
5729-- (readonly, except on create)
6497-- (readonly, except on create)
5730−mdOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)
6498+mddOfferRevisionNumber :: Lens' MarketplaceDeal (Maybe Int64)
5731−mdOfferRevisionNumber
6499+mddOfferRevisionNumber
5732− = lens _mdOfferRevisionNumber
6500+ = lens _mddOfferRevisionNumber
5733− (\ s a -> s{_mdOfferRevisionNumber = a})
6501+ (\ s a -> s{_mddOfferRevisionNumber = a})
5735-- | The time (ms since epoch) when the deal was last updated. (readonly)
6503-- | The time (ms since epoch) when the deal was last updated. (readonly)
5736−mdLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
6504+mddLastUpdateTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
5737−mdLastUpdateTimeMs
6505+mddLastUpdateTimeMs
5738− = lens _mdLastUpdateTimeMs
6506+ = lens _mddLastUpdateTimeMs
5739− (\ s a -> s{_mdLastUpdateTimeMs = a})
6507+ (\ s a -> s{_mddLastUpdateTimeMs = a})
5741-- | Identifies what kind of resource this is. Value: the fixed string
6509-- | Identifies what kind of resource this is. Value: the fixed string
5742-- \"adexchangebuyer#marketplaceDeal\".
6510-- \"adexchangebuyer#marketplaceDeal\".
5743−mdKind :: Lens' MarketplaceDeal Text
6511+mddKind :: Lens' MarketplaceDeal Text
5744−mdKind = lens _mdKind (\ s a -> s{_mdKind = a})
6512+mddKind = lens _mddKind (\ s a -> s{_mddKind = a})
5746-- | The set of fields around delivery control that are interesting for a
6514-- | The set of fields around delivery control that are interesting for a
5747-- buyer to see but are non-negotiable. These are set by the publisher.
6515-- buyer to see but are non-negotiable. These are set by the publisher.
5748-- This message is assigned an id of 100 since some day we would want to
6516-- This message is assigned an id of 100 since some day we would want to
5749-- model this as a protobuf extension.
6517-- model this as a protobuf extension.
5750−mdDeliveryControl :: Lens' MarketplaceDeal (Maybe (Maybe DeliveryControl))
6518+mddDeliveryControl :: Lens' MarketplaceDeal (Maybe (Maybe DeliveryControl))
5751−mdDeliveryControl
6519+mddDeliveryControl
5752− = lens _mdDeliveryControl
6520+ = lens _mddDeliveryControl
5753− (\ s a -> s{_mdDeliveryControl = a})
6521+ (\ s a -> s{_mddDeliveryControl = a})
5755-- | Proposed flight start time of the deal (ms since epoch) This will
6523-- | Proposed flight start time of the deal (ms since epoch) This will
5756-- generally be stored in a granularity of a second. (updatable)
6524-- generally be stored in a granularity of a second. (updatable)
5757−mdFlightStartTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
6525+mddFlightStartTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
5758−mdFlightStartTimeMs
6526+mddFlightStartTimeMs
5759− = lens _mdFlightStartTimeMs
6527+ = lens _mddFlightStartTimeMs
5760− (\ s a -> s{_mdFlightStartTimeMs = a})
6528+ (\ s a -> s{_mddFlightStartTimeMs = a})
5762-- | The shared targeting visible to buyers and sellers. (updatable)
6530-- | The shared targeting visible to buyers and sellers. (updatable)
5763−mdSharedTargetings :: Lens' MarketplaceDeal [Maybe SharedTargeting]
6531+mddSharedTargetings :: Lens' MarketplaceDeal [Maybe SharedTargeting]
5764−mdSharedTargetings
6532+mddSharedTargetings
5765− = lens _mdSharedTargetings
6533+ = lens _mddSharedTargetings
5766− (\ s a -> s{_mdSharedTargetings = a})
6534+ (\ s a -> s{_mddSharedTargetings = a})
5767 . _Default
6535 . _Default
5768 . _Coerce
6536 . _Coerce
5770-- | A unique deal=id for the deal (readonly).
6538-- | A unique deal=id for the deal (readonly).
5771−mdDealId :: Lens' MarketplaceDeal (Maybe Text)
6539+mddDealId :: Lens' MarketplaceDeal (Maybe Text)
5772−mdDealId = lens _mdDealId (\ s a -> s{_mdDealId = a})
6540+mddDealId
6541+ = lens _mddDealId (\ s a -> s{_mddDealId = a})
5774-- | Description for the deal terms. (updatable)
6543-- | Description for the deal terms. (updatable)
5775−mdInventoryDescription :: Lens' MarketplaceDeal (Maybe Text)
6544+mddInventoryDescription :: Lens' MarketplaceDeal (Maybe Text)
5776−mdInventoryDescription
6545+mddInventoryDescription
5777− = lens _mdInventoryDescription
6546+ = lens _mddInventoryDescription
5778− (\ s a -> s{_mdInventoryDescription = a})
6547+ (\ s a -> s{_mddInventoryDescription = a})
5780-- | The syndication product associated with the deal. (readonly, except on
6549-- | The syndication product associated with the deal. (readonly, except on
5781-- create)
6550-- create)
5782−mdSyndicationProduct :: Lens' MarketplaceDeal (Maybe Text)
6551+mddSyndicationProduct :: Lens' MarketplaceDeal (Maybe Text)
5783−mdSyndicationProduct
6552+mddSyndicationProduct
5784− = lens _mdSyndicationProduct
6553+ = lens _mddSyndicationProduct
5785− (\ s a -> s{_mdSyndicationProduct = a})
6554+ (\ s a -> s{_mddSyndicationProduct = a})
5787-- | Proposed flight end time of the deal (ms since epoch) This will
6556-- | Proposed flight end time of the deal (ms since epoch) This will
5788-- generally be stored in a granularity of a second. (updatable)
6557-- generally be stored in a granularity of a second. (updatable)
5789−mdFlightEndTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
6558+mddFlightEndTimeMs :: Lens' MarketplaceDeal (Maybe Int64)
5790−mdFlightEndTimeMs
6559+mddFlightEndTimeMs
5791− = lens _mdFlightEndTimeMs
6560+ = lens _mddFlightEndTimeMs
5792− (\ s a -> s{_mdFlightEndTimeMs = a})
6561+ (\ s a -> s{_mddFlightEndTimeMs = a})
5794-- | The name of the deal. (updatable)
6563-- | The name of the deal. (updatable)
5795−mdName :: Lens' MarketplaceDeal (Maybe Text)
6564+mddName :: Lens' MarketplaceDeal (Maybe Text)
5796−mdName = lens _mdName (\ s a -> s{_mdName = a})
6565+mddName = lens _mddName (\ s a -> s{_mddName = a})
5798-- | Optional Seller contact information for the deal (buyer-readonly)
6567-- | Optional Seller contact information for the deal (buyer-readonly)
5799−mdSellerContacts :: Lens' MarketplaceDeal [Maybe ContactInformation]
6568+mddSellerContacts :: Lens' MarketplaceDeal [Maybe ContactInformation]
5800−mdSellerContacts
6569+mddSellerContacts
5801− = lens _mdSellerContacts
6570+ = lens _mddSellerContacts
5802− (\ s a -> s{_mdSellerContacts = a})
6571+ (\ s a -> s{_mddSellerContacts = a})
5803 . _Default
6572 . _Default
5804 . _Coerce
6573 . _Coerce
5806-- | The offer-id from which this deal was created. (readonly, except on
6575-- | The offer-id from which this deal was created. (readonly, except on
5807-- create)
6576-- create)
5808−mdOfferId :: Lens' MarketplaceDeal (Maybe Text)
6577+mddOfferId :: Lens' MarketplaceDeal (Maybe Text)
5809−mdOfferId
6578+mddOfferId
5810− = lens _mdOfferId (\ s a -> s{_mdOfferId = a})
6579+ = lens _mddOfferId (\ s a -> s{_mddOfferId = a})
5812−mdOrderId :: Lens' MarketplaceDeal (Maybe Text)
6581+mddOrderId :: Lens' MarketplaceDeal (Maybe Text)
5813−mdOrderId
6582+mddOrderId
5814− = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
6583+ = lens _mddOrderId (\ s a -> s{_mddOrderId = a})
5816instance FromJSON MarketplaceDeal where
6585instance FromJSON MarketplaceDeal where
5817 parseJSON
6586 parseJSON
@@ -5843,27 +6612,73 @@ instance ToJSON MarketplaceDeal where
5843 toJSON MarketplaceDeal{..}
6612 toJSON MarketplaceDeal{..}
5844 = object
6613 = object
5845 (catMaybes
6614 (catMaybes
5846− [("externalDealId" .=) <$> _mdExternalDealId,
6615+ [("externalDealId" .=) <$> _mddExternalDealId,
5847− ("buyerPrivateData" .=) <$> _mdBuyerPrivateData,
6616+ ("buyerPrivateData" .=) <$> _mddBuyerPrivateData,
5848− ("webPropertyCode" .=) <$> _mdWebPropertyCode,
6617+ ("webPropertyCode" .=) <$> _mddWebPropertyCode,
5849− ("creationTimeMs" .=) <$> _mdCreationTimeMs,
6618+ ("creationTimeMs" .=) <$> _mddCreationTimeMs,
5850− ("terms" .=) <$> _mdTerms,
6619+ ("terms" .=) <$> _mddTerms,
5851 ("offerRevisionNumber" .=) <$>
6620 ("offerRevisionNumber" .=) <$>
5852− _mdOfferRevisionNumber,
6621+ _mddOfferRevisionNumber,
5853− ("lastUpdateTimeMs" .=) <$> _mdLastUpdateTimeMs,
6622+ ("lastUpdateTimeMs" .=) <$> _mddLastUpdateTimeMs,
5854− Just ("kind" .= _mdKind),
6623+ Just ("kind" .= _mddKind),
5855− ("deliveryControl" .=) <$> _mdDeliveryControl,
6624+ ("deliveryControl" .=) <$> _mddDeliveryControl,
5856− ("flightStartTimeMs" .=) <$> _mdFlightStartTimeMs,
6625+ ("flightStartTimeMs" .=) <$> _mddFlightStartTimeMs,
5857− ("sharedTargetings" .=) <$> _mdSharedTargetings,
6626+ ("sharedTargetings" .=) <$> _mddSharedTargetings,
5858− ("dealId" .=) <$> _mdDealId,
6627+ ("dealId" .=) <$> _mddDealId,
5859 ("inventoryDescription" .=) <$>
6628 ("inventoryDescription" .=) <$>
5860− _mdInventoryDescription,
6629+ _mddInventoryDescription,
5861− ("syndicationProduct" .=) <$> _mdSyndicationProduct,
6630+ ("syndicationProduct" .=) <$> _mddSyndicationProduct,
5862− ("flightEndTimeMs" .=) <$> _mdFlightEndTimeMs,
6631+ ("flightEndTimeMs" .=) <$> _mddFlightEndTimeMs,
5863− ("name" .=) <$> _mdName,
6632+ ("name" .=) <$> _mddName,
5864− ("sellerContacts" .=) <$> _mdSellerContacts,
6633+ ("sellerContacts" .=) <$> _mddSellerContacts,
5865− ("offerId" .=) <$> _mdOfferId,
6634+ ("offerId" .=) <$> _mddOfferId,
5866− ("orderId" .=) <$> _mdOrderId])
6635+ ("orderId" .=) <$> _mddOrderId])
6638+-- /See:/ 'pretargetingConfigPlacements' smart constructor.
6639+data PretargetingConfigPlacements = PretargetingConfigPlacements
6640+ { _pcpToken :: !(Maybe Text)
6641+ , _pcpType :: !(Maybe Text)
6642+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
6644+-- | Creates a value of 'PretargetingConfigPlacements' with the minimum fields required to make a request.
6646+-- Use one of the following lenses to modify other fields as desired:
6651+pretargetingConfigPlacements
6652+ :: PretargetingConfigPlacements
6653+pretargetingConfigPlacements =
6654+ PretargetingConfigPlacements
6655+ { _pcpToken = Nothing
6656+ , _pcpType = Nothing
6659+-- | The value of the placement. Interpretation depends on the placement
6660+-- type, e.g. URL for a site placement, channel name for a channel
6661+-- placement, app id for a mobile app placement.
6662+pcpToken :: Lens' PretargetingConfigPlacements (Maybe Text)
6663+pcpToken = lens _pcpToken (\ s a -> s{_pcpToken = a})
6665+-- | The type of the placement.
6666+pcpType :: Lens' PretargetingConfigPlacements (Maybe Text)
6667+pcpType = lens _pcpType (\ s a -> s{_pcpType = a})
6669+instance FromJSON PretargetingConfigPlacements where
6671+ = withObject "PretargetingConfigPlacements"
6673+ PretargetingConfigPlacements <$>
6674+ (o .:? "token") <*> (o .:? "type"))
6676+instance ToJSON PretargetingConfigPlacements where
6677+ toJSON PretargetingConfigPlacements{..}
6680+ [("token" .=) <$> _pcpToken,
6681+ ("type" .=) <$> _pcpType])
5869-- /See:/ 'negotiationRoundDto' smart constructor.
6684-- /See:/ 'negotiationRoundDto' smart constructor.
@@ -6161,6 +6976,74 @@ instance ToJSON DealTermsNonGuaranteedAuctionTerms
6161 _dtngatReservePricePerBuyers,
6976 _dtngatReservePricePerBuyers,
6162 ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId])
6977 ("privateAuctionId" .=) <$> _dtngatPrivateAuctionId])
6980+-- /See:/ 'creativeServingRestrictions' smart constructor.
6981+data CreativeServingRestrictions = CreativeServingRestrictions
6982+ { _csrContexts :: !(Maybe [CreativeServingRestrictionsContexts])
6983+ , _csrReason :: !(Maybe Text)
6984+ , _csrDisapprovalReasons :: !(Maybe [CreativeServingRestrictionsDisapprovalReasons])
6985+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
6987+-- | Creates a value of 'CreativeServingRestrictions' with the minimum fields required to make a request.
6989+-- Use one of the following lenses to modify other fields as desired:
6995+-- * 'csrDisapprovalReasons'
6996+creativeServingRestrictions
6997+ :: CreativeServingRestrictions
6998+creativeServingRestrictions =
6999+ CreativeServingRestrictions
7000+ { _csrContexts = Nothing
7001+ , _csrReason = Nothing
7002+ , _csrDisapprovalReasons = Nothing
7005+-- | All known contexts\/restrictions.
7006+csrContexts :: Lens' CreativeServingRestrictions [CreativeServingRestrictionsContexts]
7008+ = lens _csrContexts (\ s a -> s{_csrContexts = a}) .
7012+-- | Why the creative is ineligible to serve in this context (e.g., it has
7013+-- been explicitly disapproved or is pending review).
7014+csrReason :: Lens' CreativeServingRestrictions (Maybe Text)
7016+ = lens _csrReason (\ s a -> s{_csrReason = a})
7018+-- | The reasons for disapproval within this restriction, if any. Note that
7019+-- not all disapproval reasons may be categorized, so it is possible for
7020+-- the creative to have a status of DISAPPROVED or CONDITIONALLY_APPROVED
7021+-- with an empty list for disapproval_reasons. In this case, please reach
7022+-- out to your TAM to help debug the issue.
7023+csrDisapprovalReasons :: Lens' CreativeServingRestrictions [CreativeServingRestrictionsDisapprovalReasons]
7024+csrDisapprovalReasons
7025+ = lens _csrDisapprovalReasons
7026+ (\ s a -> s{_csrDisapprovalReasons = a})
7030+instance FromJSON CreativeServingRestrictions where
7032+ = withObject "CreativeServingRestrictions"
7034+ CreativeServingRestrictions <$>
7035+ (o .:? "contexts" .!= mempty) <*> (o .:? "reason")
7036+ <*> (o .:? "disapprovalReasons" .!= mempty))
7038+instance ToJSON CreativeServingRestrictions where
7039+ toJSON CreativeServingRestrictions{..}
7042+ [("contexts" .=) <$> _csrContexts,
7043+ ("reason" .=) <$> _csrReason,
7044+ ("disapprovalReasons" .=) <$>
7045+ _csrDisapprovalReasons])
6165-- /See:/ 'buyer' smart constructor.
7048-- /See:/ 'buyer' smart constructor.
6166newtype Buyer = Buyer
7049newtype Buyer = Buyer
@@ -6427,214 +7310,219 @@ instance ToJSON DealTermsGuaranteedFixedPriceTerms
6428-- /See:/ 'marketplaceOrder' smart constructor.
7311-- /See:/ 'marketplaceOrder' smart constructor.
6429data MarketplaceOrder = MarketplaceOrder
7312data MarketplaceOrder = MarketplaceOrder
6430− { _mBuyerPrivateData :: !(Maybe (Maybe PrivateData))
7313+ { _mooBuyerPrivateData :: !(Maybe (Maybe PrivateData))
6431− , _mIsSetupComplete :: !(Maybe Bool)
7314+ , _mooIsSetupComplete :: !(Maybe Bool)
6432− , _mBuyerContacts :: !(Maybe [Maybe ContactInformation])
7315+ , _mooBuyerContacts :: !(Maybe [Maybe ContactInformation])
6433− , _mKind :: !Text
7316+ , _mooKind :: !Text
6434− , _mOriginatorRole :: !(Maybe Text)
7317+ , _mooOriginatorRole :: !(Maybe Text)
6435− , _mRevisionNumber :: !(Maybe Int64)
7318+ , _mooRevisionNumber :: !(Maybe Int64)
6436− , _mBilledBuyer :: !(Maybe (Maybe Buyer))
7319+ , _mooBilledBuyer :: !(Maybe (Maybe Buyer))
6437− , _mIsRenegotiating :: !(Maybe Bool)
7320+ , _mooIsRenegotiating :: !(Maybe Bool)
6438− , _mHasSellerSignedOff :: !(Maybe Bool)
7321+ , _mooHasSellerSignedOff :: !(Maybe Bool)
6439− , _mSeller :: !(Maybe (Maybe Seller))
7322+ , _mooSeller :: !(Maybe (Maybe Seller))
6440− , _mOrderState :: !(Maybe Text)
7323+ , _mooOrderState :: !(Maybe Text)
6441− , _mName :: !(Maybe Text)
7324+ , _mooName :: !(Maybe Text)
6442− , _mSellerContacts :: !(Maybe [Maybe ContactInformation])
7325+ , _mooSellerContacts :: !(Maybe [Maybe ContactInformation])
6443− , _mLastUpdaterRole :: !(Maybe Text)
7326+ , _mooLastUpdaterRole :: !(Maybe Text)
6444− , _mLabels :: !(Maybe [Maybe MarketplaceLabel])
7327+ , _mooLabels :: !(Maybe [Maybe MarketplaceLabel])
6445− , _mRevisionTimeMs :: !(Maybe Int64)
7328+ , _mooRevisionTimeMs :: !(Maybe Int64)
6446− , _mOrderId :: !(Maybe Text)
7329+ , _mooOrderId :: !(Maybe Text)
6447− , _mLastUpdaterOrCommentorRole :: !(Maybe Text)
7330+ , _mooLastUpdaterOrCommentorRole :: !(Maybe Text)
6448− , _mHasBuyerSignedOff :: !(Maybe Bool)
7331+ , _mooHasBuyerSignedOff :: !(Maybe Bool)
6449− , _mBuyer :: !(Maybe (Maybe Buyer))
7332+ , _mooBuyer :: !(Maybe (Maybe Buyer))
6450 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7333 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6452-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
7335-- | Creates a value of 'MarketplaceOrder' with the minimum fields required to make a request.
6454-- Use one of the following lenses to modify other fields as desired:
7337-- Use one of the following lenses to modify other fields as desired:
6456−-- * 'mBuyerPrivateData'
7339+-- * 'mooBuyerPrivateData'
6458−-- * 'mIsSetupComplete'
7341+-- * 'mooIsSetupComplete'
6460−-- * 'mBuyerContacts'
7343+-- * 'mooBuyerContacts'
6462−-- * 'mKind'
7345+-- * 'mooKind'
6464−-- * 'mOriginatorRole'
7347+-- * 'mooOriginatorRole'
6466−-- * 'mRevisionNumber'
7349+-- * 'mooRevisionNumber'
6468−-- * 'mBilledBuyer'
7351+-- * 'mooBilledBuyer'
6470−-- * 'mIsRenegotiating'
7353+-- * 'mooIsRenegotiating'
6472−-- * 'mHasSellerSignedOff'
7355+-- * 'mooHasSellerSignedOff'
6474−-- * 'mSeller'
7357+-- * 'mooSeller'
6476−-- * 'mOrderState'
7359+-- * 'mooOrderState'
6478−-- * 'mName'
7361+-- * 'mooName'
6480−-- * 'mSellerContacts'
7363+-- * 'mooSellerContacts'
6482−-- * 'mLastUpdaterRole'
7365+-- * 'mooLastUpdaterRole'
6484−-- * 'mLabels'
7367+-- * 'mooLabels'
6486−-- * 'mRevisionTimeMs'
7369+-- * 'mooRevisionTimeMs'
6488−-- * 'mOrderId'
7371+-- * 'mooOrderId'
6490−-- * 'mLastUpdaterOrCommentorRole'
7373+-- * 'mooLastUpdaterOrCommentorRole'
6492−-- * 'mHasBuyerSignedOff'
7375+-- * 'mooHasBuyerSignedOff'
6494−-- * 'mBuyer'
7377+-- * 'mooBuyer'
6495marketplaceOrder
7378marketplaceOrder
6496 :: MarketplaceOrder
7379 :: MarketplaceOrder
6497marketplaceOrder =
7380marketplaceOrder =
6498 MarketplaceOrder
7381 MarketplaceOrder
6499− { _mBuyerPrivateData = Nothing
7382+ { _mooBuyerPrivateData = Nothing
6500− , _mIsSetupComplete = Nothing
7383+ , _mooIsSetupComplete = Nothing
6501− , _mBuyerContacts = Nothing
7384+ , _mooBuyerContacts = Nothing
6502− , _mKind = "adexchangebuyer#marketplaceOrder"
7385+ , _mooKind = "adexchangebuyer#marketplaceOrder"
6503− , _mOriginatorRole = Nothing
7386+ , _mooOriginatorRole = Nothing
6504− , _mRevisionNumber = Nothing
7387+ , _mooRevisionNumber = Nothing
6505− , _mBilledBuyer = Nothing
7388+ , _mooBilledBuyer = Nothing
6506− , _mIsRenegotiating = Nothing
7389+ , _mooIsRenegotiating = Nothing
6507− , _mHasSellerSignedOff = Nothing
7390+ , _mooHasSellerSignedOff = Nothing
6508− , _mSeller = Nothing
7391+ , _mooSeller = Nothing
6509− , _mOrderState = Nothing
7392+ , _mooOrderState = Nothing
6510− , _mName = Nothing
7393+ , _mooName = Nothing
6511− , _mSellerContacts = Nothing
7394+ , _mooSellerContacts = Nothing
6512− , _mLastUpdaterRole = Nothing
7395+ , _mooLastUpdaterRole = Nothing
6513− , _mLabels = Nothing
7396+ , _mooLabels = Nothing
6514− , _mRevisionTimeMs = Nothing
7397+ , _mooRevisionTimeMs = Nothing
6515− , _mOrderId = Nothing
7398+ , _mooOrderId = Nothing
6516− , _mLastUpdaterOrCommentorRole = Nothing
7399+ , _mooLastUpdaterOrCommentorRole = Nothing
6517− , _mHasBuyerSignedOff = Nothing
7400+ , _mooHasBuyerSignedOff = Nothing
6518− , _mBuyer = Nothing
7401+ , _mooBuyer = Nothing
6521-- | Private data for buyer. (hidden from seller).
7404-- | Private data for buyer. (hidden from seller).
6522−mBuyerPrivateData :: Lens' MarketplaceOrder (Maybe (Maybe PrivateData))
7405+mooBuyerPrivateData :: Lens' MarketplaceOrder (Maybe (Maybe PrivateData))
6523−mBuyerPrivateData
7406+mooBuyerPrivateData
6524− = lens _mBuyerPrivateData
7407+ = lens _mooBuyerPrivateData
6525− (\ s a -> s{_mBuyerPrivateData = a})
7408+ (\ s a -> s{_mooBuyerPrivateData = a})
6527-- | True, if the buyside inventory setup is complete for this order.
7410-- | True, if the buyside inventory setup is complete for this order.
6528-- (readonly)
7411-- (readonly)
6529−mIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
7412+mooIsSetupComplete :: Lens' MarketplaceOrder (Maybe Bool)
6530−mIsSetupComplete
7413+mooIsSetupComplete
6531− = lens _mIsSetupComplete
7414+ = lens _mooIsSetupComplete
6532− (\ s a -> s{_mIsSetupComplete = a})
7415+ (\ s a -> s{_mooIsSetupComplete = a})
6534-- | Optional contact information fort the buyer. (seller-readonly)
7417-- | Optional contact information fort the buyer. (seller-readonly)
6535−mBuyerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]
7418+mooBuyerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]
6536−mBuyerContacts
7419+mooBuyerContacts
6537− = lens _mBuyerContacts
7420+ = lens _mooBuyerContacts
6538− (\ s a -> s{_mBuyerContacts = a})
7421+ (\ s a -> s{_mooBuyerContacts = a})
6539 . _Default
7422 . _Default
6540 . _Coerce
7423 . _Coerce
6542-- | Identifies what kind of resource this is. Value: the fixed string
7425-- | Identifies what kind of resource this is. Value: the fixed string
6543-- \"adexchangebuyer#marketplaceOrder\".
7426-- \"adexchangebuyer#marketplaceOrder\".
6544−mKind :: Lens' MarketplaceOrder Text
7427+mooKind :: Lens' MarketplaceOrder Text
6545−mKind = lens _mKind (\ s a -> s{_mKind = a})
7428+mooKind = lens _mooKind (\ s a -> s{_mooKind = a})
6547-- | Indicates whether the buyer\/seller created the offer.(readonly)
7430-- | Indicates whether the buyer\/seller created the offer.(readonly)
6548−mOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
7431+mooOriginatorRole :: Lens' MarketplaceOrder (Maybe Text)
6549−mOriginatorRole
7432+mooOriginatorRole
6550− = lens _mOriginatorRole
7433+ = lens _mooOriginatorRole
6551− (\ s a -> s{_mOriginatorRole = a})
7434+ (\ s a -> s{_mooOriginatorRole = a})
6553-- | The revision number for the order (readonly).
7436-- | The revision number for the order (readonly).
6554−mRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
7437+mooRevisionNumber :: Lens' MarketplaceOrder (Maybe Int64)
6555−mRevisionNumber
7438+mooRevisionNumber
6556− = lens _mRevisionNumber
7439+ = lens _mooRevisionNumber
6557− (\ s a -> s{_mRevisionNumber = a})
7440+ (\ s a -> s{_mooRevisionNumber = a})
6559-- | Reference to the buyer that will get billed for this order. (readonly)
7442-- | Reference to the buyer that will get billed for this order. (readonly)
6560−mBilledBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))
7443+mooBilledBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))
6561−mBilledBuyer
7444+mooBilledBuyer
6562− = lens _mBilledBuyer (\ s a -> s{_mBilledBuyer = a})
7445+ = lens _mooBilledBuyer
7446+ (\ s a -> s{_mooBilledBuyer = a})
6564-- | True if the order is being renegotiated (readonly).
7448-- | True if the order is being renegotiated (readonly).
6565−mIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
7449+mooIsRenegotiating :: Lens' MarketplaceOrder (Maybe Bool)
6566−mIsRenegotiating
7450+mooIsRenegotiating
6567− = lens _mIsRenegotiating
7451+ = lens _mooIsRenegotiating
6568− (\ s a -> s{_mIsRenegotiating = a})
7452+ (\ s a -> s{_mooIsRenegotiating = a})
6570-- | When an order is in an accepted state, indicates whether the buyer has
7454-- | When an order is in an accepted state, indicates whether the buyer has
6571-- signed off Once both sides have signed off on a deal, the order can be
7455-- signed off Once both sides have signed off on a deal, the order can be
6572-- finalized by the seller. (buyer-readonly)
7456-- finalized by the seller. (buyer-readonly)
6573−mHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7457+mooHasSellerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
6574−mHasSellerSignedOff
7458+mooHasSellerSignedOff
6575− = lens _mHasSellerSignedOff
7459+ = lens _mooHasSellerSignedOff
6576− (\ s a -> s{_mHasSellerSignedOff = a})
7460+ (\ s a -> s{_mooHasSellerSignedOff = a})
6578-- | Reference to the seller on the order. (readonly, except on create)
7462-- | Reference to the seller on the order. (readonly, except on create)
6579−mSeller :: Lens' MarketplaceOrder (Maybe (Maybe Seller))
7463+mooSeller :: Lens' MarketplaceOrder (Maybe (Maybe Seller))
6580−mSeller = lens _mSeller (\ s a -> s{_mSeller = a})
7464+mooSeller
7465+ = lens _mooSeller (\ s a -> s{_mooSeller = a})
6582-- | The current state of the order. (readonly)
7467-- | The current state of the order. (readonly)
6583−mOrderState :: Lens' MarketplaceOrder (Maybe Text)
7468+mooOrderState :: Lens' MarketplaceOrder (Maybe Text)
6584−mOrderState
7469+mooOrderState
6585− = lens _mOrderState (\ s a -> s{_mOrderState = a})
7470+ = lens _mooOrderState
7471+ (\ s a -> s{_mooOrderState = a})
6587-- | The name for the order (updatable)
7473-- | The name for the order (updatable)
6588−mName :: Lens' MarketplaceOrder (Maybe Text)
7474+mooName :: Lens' MarketplaceOrder (Maybe Text)
6589−mName = lens _mName (\ s a -> s{_mName = a})
7475+mooName = lens _mooName (\ s a -> s{_mooName = a})
6591-- | Optional contact information for the seller (buyer-readonly).
7477-- | Optional contact information for the seller (buyer-readonly).
6592−mSellerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]
7478+mooSellerContacts :: Lens' MarketplaceOrder [Maybe ContactInformation]
6593−mSellerContacts
7479+mooSellerContacts
6594− = lens _mSellerContacts
7480+ = lens _mooSellerContacts
6595− (\ s a -> s{_mSellerContacts = a})
7481+ (\ s a -> s{_mooSellerContacts = a})
6596 . _Default
7482 . _Default
6597 . _Coerce
7483 . _Coerce
6599−mLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
7485+mooLastUpdaterRole :: Lens' MarketplaceOrder (Maybe Text)
6600−mLastUpdaterRole
7486+mooLastUpdaterRole
6601− = lens _mLastUpdaterRole
7487+ = lens _mooLastUpdaterRole
6602− (\ s a -> s{_mLastUpdaterRole = a})
7488+ (\ s a -> s{_mooLastUpdaterRole = a})
6604-- | List of labels associated with the order. (readonly)
7490-- | List of labels associated with the order. (readonly)
6605−mLabels :: Lens' MarketplaceOrder [Maybe MarketplaceLabel]
7491+mooLabels :: Lens' MarketplaceOrder [Maybe MarketplaceLabel]
6606−mLabels
7492+mooLabels
7493+ = lens _mooLabels (\ s a -> s{_mooLabels = a}) .
6607− = lens _mLabels (\ s a -> s{_mLabels = a}) . _Default
7494+ _Default
6608 . _Coerce
7495 . _Coerce
6610-- | The time (ms since epoch) when the order was last revised (readonly).
7497-- | The time (ms since epoch) when the order was last revised (readonly).
6611−mRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
7498+mooRevisionTimeMs :: Lens' MarketplaceOrder (Maybe Int64)
6612−mRevisionTimeMs
7499+mooRevisionTimeMs
6613− = lens _mRevisionTimeMs
7500+ = lens _mooRevisionTimeMs
6614− (\ s a -> s{_mRevisionTimeMs = a})
7501+ (\ s a -> s{_mooRevisionTimeMs = a})
6616-- | The unique id of the order. (readonly).
7503-- | The unique id of the order. (readonly).
6617−mOrderId :: Lens' MarketplaceOrder (Maybe Text)
7504+mooOrderId :: Lens' MarketplaceOrder (Maybe Text)
6618−mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
7505+mooOrderId
7506+ = lens _mooOrderId (\ s a -> s{_mooOrderId = a})
6620-- | The role of the last user that either updated the order or left a
7508-- | The role of the last user that either updated the order or left a
6621-- comment. (readonly)
7509-- comment. (readonly)
6622−mLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)
7510+mooLastUpdaterOrCommentorRole :: Lens' MarketplaceOrder (Maybe Text)
6623−mLastUpdaterOrCommentorRole
7511+mooLastUpdaterOrCommentorRole
6624− = lens _mLastUpdaterOrCommentorRole
7512+ = lens _mooLastUpdaterOrCommentorRole
6625− (\ s a -> s{_mLastUpdaterOrCommentorRole = a})
7513+ (\ s a -> s{_mooLastUpdaterOrCommentorRole = a})
6627-- | When an order is in an accepted state, indicates whether the buyer has
7515-- | When an order is in an accepted state, indicates whether the buyer has
6628-- signed off Once both sides have signed off on a deal, the order can be
7516-- signed off Once both sides have signed off on a deal, the order can be
6629-- finalized by the seller. (seller-readonly)
7517-- finalized by the seller. (seller-readonly)
6630−mHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
7518+mooHasBuyerSignedOff :: Lens' MarketplaceOrder (Maybe Bool)
6631−mHasBuyerSignedOff
7519+mooHasBuyerSignedOff
6632− = lens _mHasBuyerSignedOff
7520+ = lens _mooHasBuyerSignedOff
6633− (\ s a -> s{_mHasBuyerSignedOff = a})
7521+ (\ s a -> s{_mooHasBuyerSignedOff = a})
6635-- | Reference to the buyer on the order. (readonly, except on create)
7523-- | Reference to the buyer on the order. (readonly, except on create)
6636−mBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))
7524+mooBuyer :: Lens' MarketplaceOrder (Maybe (Maybe Buyer))
6637−mBuyer = lens _mBuyer (\ s a -> s{_mBuyer = a})
7525+mooBuyer = lens _mooBuyer (\ s a -> s{_mooBuyer = a})
6639instance FromJSON MarketplaceOrder where
7527instance FromJSON MarketplaceOrder where
6640 parseJSON
7528 parseJSON
@@ -6667,27 +7555,27 @@ instance ToJSON MarketplaceOrder where
6667 toJSON MarketplaceOrder{..}
7555 toJSON MarketplaceOrder{..}
6668 = object
7556 = object
6669 (catMaybes
7557 (catMaybes
6670− [("buyerPrivateData" .=) <$> _mBuyerPrivateData,
7558+ [("buyerPrivateData" .=) <$> _mooBuyerPrivateData,
6671− ("isSetupComplete" .=) <$> _mIsSetupComplete,
7559+ ("isSetupComplete" .=) <$> _mooIsSetupComplete,
6672− ("buyerContacts" .=) <$> _mBuyerContacts,
7560+ ("buyerContacts" .=) <$> _mooBuyerContacts,
6673− Just ("kind" .= _mKind),
7561+ Just ("kind" .= _mooKind),
6674− ("originatorRole" .=) <$> _mOriginatorRole,
7562+ ("originatorRole" .=) <$> _mooOriginatorRole,
6675− ("revisionNumber" .=) <$> _mRevisionNumber,
7563+ ("revisionNumber" .=) <$> _mooRevisionNumber,
6676− ("billedBuyer" .=) <$> _mBilledBuyer,
7564+ ("billedBuyer" .=) <$> _mooBilledBuyer,
6677− ("isRenegotiating" .=) <$> _mIsRenegotiating,
7565+ ("isRenegotiating" .=) <$> _mooIsRenegotiating,
6678− ("hasSellerSignedOff" .=) <$> _mHasSellerSignedOff,
7566+ ("hasSellerSignedOff" .=) <$> _mooHasSellerSignedOff,
6679− ("seller" .=) <$> _mSeller,
7567+ ("seller" .=) <$> _mooSeller,
6680− ("orderState" .=) <$> _mOrderState,
7568+ ("orderState" .=) <$> _mooOrderState,
6681− ("name" .=) <$> _mName,
7569+ ("name" .=) <$> _mooName,
6682− ("sellerContacts" .=) <$> _mSellerContacts,
7570+ ("sellerContacts" .=) <$> _mooSellerContacts,
6683− ("lastUpdaterRole" .=) <$> _mLastUpdaterRole,
7571+ ("lastUpdaterRole" .=) <$> _mooLastUpdaterRole,
6684− ("labels" .=) <$> _mLabels,
7572+ ("labels" .=) <$> _mooLabels,
6685− ("revisionTimeMs" .=) <$> _mRevisionTimeMs,
7573+ ("revisionTimeMs" .=) <$> _mooRevisionTimeMs,
6686− ("orderId" .=) <$> _mOrderId,
7574+ ("orderId" .=) <$> _mooOrderId,
6687 ("lastUpdaterOrCommentorRole" .=) <$>
7575 ("lastUpdaterOrCommentorRole" .=) <$>
6688− _mLastUpdaterOrCommentorRole,
7576+ _mooLastUpdaterOrCommentorRole,
6689− ("hasBuyerSignedOff" .=) <$> _mHasBuyerSignedOff,
7577+ ("hasBuyerSignedOff" .=) <$> _mooHasBuyerSignedOff,
6690− ("buyer" .=) <$> _mBuyer])
7578+ ("buyer" .=) <$> _mooBuyer])
6693-- /See:/ 'addOrderDealsRequest' smart constructor.
7581-- /See:/ 'addOrderDealsRequest' smart constructor.
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Sum.hs+184
@@ -16,3 +16,187 @@
16module Network.Google.AdExchangeBuyer.Types.Sum where
16module Network.Google.AdExchangeBuyer.Types.Sum where
18import Network.Google.Prelude
18import Network.Google.Prelude
20+-- | The proposed action to take on the order.
21+data AdexchangebuyerMarketplaceordersUpdateUpdateAction
31+ -- ^ @updateFinalized@
32+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
34+instance Hashable AdexchangebuyerMarketplaceordersUpdateUpdateAction
36+instance FromText AdexchangebuyerMarketplaceordersUpdateUpdateAction where
38+ "accept" -> Just Accept
39+ "cancel" -> Just Cancel
40+ "propose" -> Just Propose
41+ "unknownAction" -> Just UnknownAction
42+ "updateFinalized" -> Just UpdateFinalized
45+instance ToText AdexchangebuyerMarketplaceordersUpdateUpdateAction where
50+ UnknownAction -> "unknownAction"
51+ UpdateFinalized -> "updateFinalized"
53+instance FromJSON AdexchangebuyerMarketplaceordersUpdateUpdateAction where
54+ parseJSON = parseJSONText "AdexchangebuyerMarketplaceordersUpdateUpdateAction"
56+instance ToJSON AdexchangebuyerMarketplaceordersUpdateUpdateAction where
59+-- | When specified, only creatives having the given open auction status are
61+data AdexchangebuyerCreativesListOpenAuctionStatusFilter
64+ -- Creatives which have been approved for serving on the open auction.
65+ | ConditionallyApproved
66+ -- ^ @conditionally_approved@
67+ -- Creatives which have been conditionally approved for serving on the open
71+ -- Creatives which have been disapproved for serving on the open auction.
74+ -- Creatives whose open auction status is not yet checked.
75+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
77+instance Hashable AdexchangebuyerCreativesListOpenAuctionStatusFilter
79+instance FromText AdexchangebuyerCreativesListOpenAuctionStatusFilter where
81+ "approved" -> Just Approved
82+ "conditionally_approved" -> Just ConditionallyApproved
83+ "disapproved" -> Just Disapproved
84+ "not_checked" -> Just NotChecked
87+instance ToText AdexchangebuyerCreativesListOpenAuctionStatusFilter where
89+ Approved -> "approved"
90+ ConditionallyApproved -> "conditionally_approved"
91+ Disapproved -> "disapproved"
92+ NotChecked -> "not_checked"
94+instance FromJSON AdexchangebuyerCreativesListOpenAuctionStatusFilter where
95+ parseJSON = parseJSONText "AdexchangebuyerCreativesListOpenAuctionStatusFilter"
97+instance ToJSON AdexchangebuyerCreativesListOpenAuctionStatusFilter where
100+-- | The proposed action to take on the order.
101+data AdexchangebuyerMarketplaceordersPatchUpdateAction
108+ | AMPUAUnknownAction
109+ -- ^ @unknownAction@
110+ | AMPUAUpdateFinalized
111+ -- ^ @updateFinalized@
112+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
114+instance Hashable AdexchangebuyerMarketplaceordersPatchUpdateAction
116+instance FromText AdexchangebuyerMarketplaceordersPatchUpdateAction where
118+ "accept" -> Just AMPUAAccept
119+ "cancel" -> Just AMPUACancel
120+ "propose" -> Just AMPUAPropose
121+ "unknownAction" -> Just AMPUAUnknownAction
122+ "updateFinalized" -> Just AMPUAUpdateFinalized
125+instance ToText AdexchangebuyerMarketplaceordersPatchUpdateAction where
127+ AMPUAAccept -> "accept"
128+ AMPUACancel -> "cancel"
129+ AMPUAPropose -> "propose"
130+ AMPUAUnknownAction -> "unknownAction"
131+ AMPUAUpdateFinalized -> "updateFinalized"
133+instance FromJSON AdexchangebuyerMarketplaceordersPatchUpdateAction where
134+ parseJSON = parseJSONText "AdexchangebuyerMarketplaceordersPatchUpdateAction"
136+instance ToJSON AdexchangebuyerMarketplaceordersPatchUpdateAction where
139+-- | When specified, only creatives having the given direct deals status are
141+data AdexchangebuyerCreativesListDealsStatusFilter
144+ -- Creatives which have been approved for serving on direct deals.
145+ | ACLDSFConditionallyApproved
146+ -- ^ @conditionally_approved@
147+ -- Creatives which have been conditionally approved for serving on direct
151+ -- Creatives which have been disapproved for serving on direct deals.
154+ -- Creatives whose direct deals status is not yet checked.
155+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
157+instance Hashable AdexchangebuyerCreativesListDealsStatusFilter
159+instance FromText AdexchangebuyerCreativesListDealsStatusFilter where
161+ "approved" -> Just ACLDSFApproved
162+ "conditionally_approved" -> Just ACLDSFConditionallyApproved
163+ "disapproved" -> Just ACLDSFDisapproved
164+ "not_checked" -> Just ACLDSFNotChecked
167+instance ToText AdexchangebuyerCreativesListDealsStatusFilter where
169+ ACLDSFApproved -> "approved"
170+ ACLDSFConditionallyApproved -> "conditionally_approved"
171+ ACLDSFDisapproved -> "disapproved"
172+ ACLDSFNotChecked -> "not_checked"
174+instance FromJSON AdexchangebuyerCreativesListDealsStatusFilter where
175+ parseJSON = parseJSONText "AdexchangebuyerCreativesListDealsStatusFilter"
177+instance ToJSON AdexchangebuyerCreativesListDealsStatusFilter where
180+-- | Data format for the response.
184+ -- Responses with Content-Type of application\/json
185+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
187+instance Hashable Alt
189+instance FromText Alt where
194+instance ToText Alt where
198+instance FromJSON Alt where
199+ parseJSON = parseJSONText "Alt"
201+instance ToJSON Alt where
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Get.hs+32−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets one account by ID.
20-- | Gets one account by ID.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsGet@.
22−module AdExchangeBuyer.Accounts.Get
23+module Network.Google.Resource.AdExchangeBuyer.Accounts.Get
24 -- * REST Resource
25 -- * REST Resource
25− AccountsGetAPI
26+ AccountsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsGet
29+ , accountsGet'
29− , AccountsGet
30+ , AccountsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , agQuotaUser
33 , agQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerAccountsGet@ which the
46-- | A resource alias for @AdexchangebuyerAccountsGet@ which the
46−-- 'AccountsGet' request conforms to.
47+-- 'AccountsGet'' request conforms to.
47−type AccountsGetAPI =
48+type AccountsGetResource =
48 "accounts" :>
49 "accounts" :>
49− Capture "id" Int32 :> Get '[JSON] Account
50+ Capture "id" Int32 :>
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] Account
51-- | Gets one account by ID.
59-- | Gets one account by ID.
53−-- /See:/ 'accountsGet' smart constructor.
61+-- /See:/ 'accountsGet'' smart constructor.
54−data AccountsGet = AccountsGet
62+data AccountsGet' = AccountsGet'
55 { _agQuotaUser :: !(Maybe Text)
63 { _agQuotaUser :: !(Maybe Text)
56 , _agPrettyPrint :: !Bool
64 , _agPrettyPrint :: !Bool
57 , _agUserIp :: !(Maybe Text)
65 , _agUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data AccountsGet = AccountsGet
59 , _agId :: !Int32
67 , _agId :: !Int32
60 , _agOauthToken :: !(Maybe Text)
68 , _agOauthToken :: !(Maybe Text)
61 , _agFields :: !(Maybe Text)
69 , _agFields :: !(Maybe Text)
62− , _agAlt :: !Text
70+ , _agAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data AccountsGet = AccountsGet
81-- * 'agFields'
89-- * 'agFields'
83-- * 'agAlt'
91-- * 'agAlt'
84−accountsGet
92+accountsGet'
85 :: Int32 -- ^ 'id'
93 :: Int32 -- ^ 'id'
86− -> AccountsGet
94+ -> AccountsGet'
87−accountsGet pAgId_ =
95+accountsGet' pAgId_ =
88− AccountsGet
96+ AccountsGet'
89 { _agQuotaUser = Nothing
97 { _agQuotaUser = Nothing
90 , _agPrettyPrint = True
98 , _agPrettyPrint = True
91 , _agUserIp = Nothing
99 , _agUserIp = Nothing
@@ -93,7 +101,7 @@ accountsGet pAgId_ =
93 , _agId = pAgId_
101 , _agId = pAgId_
94 , _agOauthToken = Nothing
102 , _agOauthToken = Nothing
95 , _agFields = Nothing
103 , _agFields = Nothing
96− , _agAlt = "json"
104+ , _agAlt = JSON
99-- | 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
@@ -134,17 +142,21 @@ agFields :: Lens' AccountsGet' (Maybe Text)
134agFields = lens _agFields (\ s a -> s{_agFields = a})
142agFields = lens _agFields (\ s a -> s{_agFields = a})
136-- | Data format for the response.
144-- | Data format for the response.
137−agAlt :: Lens' AccountsGet' Text
145+agAlt :: Lens' AccountsGet' Alt
138agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
146agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
140instance GoogleRequest AccountsGet' where
148instance GoogleRequest AccountsGet' where
141 type Rs AccountsGet' = Account
149 type Rs AccountsGet' = Account
142 request = requestWithRoute defReq adExchangeBuyerURL
150 request = requestWithRoute defReq adExchangeBuyerURL
143− requestWithRoute r u AccountsGet{..}
151+ requestWithRoute r u AccountsGet'{..}
144− = go _agQuotaUser _agPrettyPrint _agUserIp _agKey
152+ = go _agQuotaUser (Just _agPrettyPrint) _agUserIp
146 _agOauthToken
155 _agOauthToken
147 _agFields
156 _agFields
148− _agAlt
157+ (Just _agAlt)
150− = clientWithRoute (Proxy :: Proxy AccountsGetAPI) r u
159+ = clientWithRoute
160+ (Proxy :: Proxy AccountsGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/List.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieves the authenticated user\'s list of accounts.
20-- | Retrieves the authenticated user\'s list of accounts.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsList@.
22−module AdExchangeBuyer.Accounts.List
23+module Network.Google.Resource.AdExchangeBuyer.Accounts.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsListAPI
26+ AccountsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsList
29+ , accountsList'
29− , AccountsList
30+ , AccountsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , alQuotaUser
33 , alQuotaUser
@@ -42,21 +43,28 @@ import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerAccountsList@ which the
45-- | A resource alias for @AdexchangebuyerAccountsList@ which the
45−-- 'AccountsList' request conforms to.
46+-- 'AccountsList'' request conforms to.
46−type AccountsListAPI =
47+type AccountsListResource =
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 :>
47− "accounts" :> Get '[JSON] AccountsList
55+ QueryParam "alt" Alt :> Get '[JSON] AccountsList
49-- | Retrieves the authenticated user\'s list of accounts.
57-- | Retrieves the authenticated user\'s list of accounts.
51−-- /See:/ 'accountsList' smart constructor.
59+-- /See:/ 'accountsList'' smart constructor.
52−data AccountsList = AccountsList
60+data AccountsList' = AccountsList'
53 { _alQuotaUser :: !(Maybe Text)
61 { _alQuotaUser :: !(Maybe Text)
54 , _alPrettyPrint :: !Bool
62 , _alPrettyPrint :: !Bool
55 , _alUserIp :: !(Maybe Text)
63 , _alUserIp :: !(Maybe Text)
56 , _alKey :: !(Maybe Text)
64 , _alKey :: !(Maybe Text)
57 , _alOauthToken :: !(Maybe Text)
65 , _alOauthToken :: !(Maybe Text)
58 , _alFields :: !(Maybe Text)
66 , _alFields :: !(Maybe Text)
59− , _alAlt :: !Text
67+ , _alAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
70-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
@@ -76,17 +84,17 @@ data AccountsList = AccountsList
76-- * 'alFields'
84-- * 'alFields'
78-- * 'alAlt'
86-- * 'alAlt'
79−accountsList
87+accountsList'
80− :: AccountsList
88+ :: AccountsList'
81−accountsList =
89+accountsList' =
82− AccountsList
90+ AccountsList'
83 { _alQuotaUser = Nothing
91 { _alQuotaUser = Nothing
84 , _alPrettyPrint = True
92 , _alPrettyPrint = True
85 , _alUserIp = Nothing
93 , _alUserIp = Nothing
86 , _alKey = Nothing
94 , _alKey = Nothing
87 , _alOauthToken = Nothing
95 , _alOauthToken = Nothing
88 , _alFields = Nothing
96 , _alFields = Nothing
89− , _alAlt = "json"
97+ , _alAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
@@ -123,17 +131,20 @@ alFields :: Lens' AccountsList' (Maybe Text)
123alFields = lens _alFields (\ s a -> s{_alFields = a})
131alFields = lens _alFields (\ s a -> s{_alFields = a})
125-- | Data format for the response.
133-- | Data format for the response.
126−alAlt :: Lens' AccountsList' Text
134+alAlt :: Lens' AccountsList' Alt
127alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
135alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
129instance GoogleRequest AccountsList' where
137instance GoogleRequest AccountsList' where
130 type Rs AccountsList' = AccountsList
138 type Rs AccountsList' = AccountsList
131 request = requestWithRoute defReq adExchangeBuyerURL
139 request = requestWithRoute defReq adExchangeBuyerURL
132− requestWithRoute r u AccountsList{..}
140+ requestWithRoute r u AccountsList'{..}
133− = go _alQuotaUser _alPrettyPrint _alUserIp _alKey
141+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIp
134 _alOauthToken
143 _alOauthToken
135 _alFields
144 _alFields
136− _alAlt
145+ (Just _alAlt)
138− = clientWithRoute (Proxy :: Proxy AccountsListAPI) r
147+ = clientWithRoute
148+ (Proxy :: Proxy AccountsListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Patch.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Updates an existing account. This method supports patch semantics.
20-- | Updates an existing account. This method supports patch semantics.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsPatch@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsPatch@.
22−module AdExchangeBuyer.Accounts.Patch
23+module Network.Google.Resource.AdExchangeBuyer.Accounts.Patch
24 -- * REST Resource
25 -- * REST Resource
25− AccountsPatchAPI
26+ AccountsPatchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsPatch
29+ , accountsPatch'
29− , AccountsPatch
30+ , AccountsPatch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , apQuotaUser
33 , apQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerAccountsPatch@ which the
46-- | A resource alias for @AdexchangebuyerAccountsPatch@ which the
46−-- 'AccountsPatch' request conforms to.
47+-- 'AccountsPatch'' request conforms to.
47−type AccountsPatchAPI =
48+type AccountsPatchResource =
48 "accounts" :>
49 "accounts" :>
49− Capture "id" Int32 :> Patch '[JSON] Account
50+ Capture "id" Int32 :>
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 :> Patch '[JSON] Account
51-- | Updates an existing account. This method supports patch semantics.
59-- | Updates an existing account. This method supports patch semantics.
53−-- /See:/ 'accountsPatch' smart constructor.
61+-- /See:/ 'accountsPatch'' smart constructor.
54−data AccountsPatch = AccountsPatch
62+data AccountsPatch' = AccountsPatch'
55 { _apQuotaUser :: !(Maybe Text)
63 { _apQuotaUser :: !(Maybe Text)
56 , _apPrettyPrint :: !Bool
64 , _apPrettyPrint :: !Bool
57 , _apUserIp :: !(Maybe Text)
65 , _apUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data AccountsPatch = AccountsPatch
59 , _apId :: !Int32
67 , _apId :: !Int32
60 , _apOauthToken :: !(Maybe Text)
68 , _apOauthToken :: !(Maybe Text)
61 , _apFields :: !(Maybe Text)
69 , _apFields :: !(Maybe Text)
62− , _apAlt :: !Text
70+ , _apAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.
73-- | Creates a value of 'AccountsPatch'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data AccountsPatch = AccountsPatch
81-- * 'apFields'
89-- * 'apFields'
83-- * 'apAlt'
91-- * 'apAlt'
84−accountsPatch
92+accountsPatch'
85 :: Int32 -- ^ 'id'
93 :: Int32 -- ^ 'id'
86− -> AccountsPatch
94+ -> AccountsPatch'
87−accountsPatch pApId_ =
95+accountsPatch' pApId_ =
88− AccountsPatch
96+ AccountsPatch'
89 { _apQuotaUser = Nothing
97 { _apQuotaUser = Nothing
90 , _apPrettyPrint = True
98 , _apPrettyPrint = True
91 , _apUserIp = Nothing
99 , _apUserIp = Nothing
@@ -93,7 +101,7 @@ accountsPatch pApId_ =
93 , _apId = pApId_
101 , _apId = pApId_
94 , _apOauthToken = Nothing
102 , _apOauthToken = Nothing
95 , _apFields = Nothing
103 , _apFields = Nothing
96− , _apAlt = "json"
104+ , _apAlt = JSON
99-- | 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
@@ -134,18 +142,21 @@ apFields :: Lens' AccountsPatch' (Maybe Text)
134apFields = lens _apFields (\ s a -> s{_apFields = a})
142apFields = lens _apFields (\ s a -> s{_apFields = a})
136-- | Data format for the response.
144-- | Data format for the response.
137−apAlt :: Lens' AccountsPatch' Text
145+apAlt :: Lens' AccountsPatch' Alt
138apAlt = lens _apAlt (\ s a -> s{_apAlt = a})
146apAlt = lens _apAlt (\ s a -> s{_apAlt = a})
140instance GoogleRequest AccountsPatch' where
148instance GoogleRequest AccountsPatch' where
141 type Rs AccountsPatch' = Account
149 type Rs AccountsPatch' = Account
142 request = requestWithRoute defReq adExchangeBuyerURL
150 request = requestWithRoute defReq adExchangeBuyerURL
143− requestWithRoute r u AccountsPatch{..}
151+ requestWithRoute r u AccountsPatch'{..}
144− = go _apQuotaUser _apPrettyPrint _apUserIp _apKey
152+ = go _apQuotaUser (Just _apPrettyPrint) _apUserIp
146 _apOauthToken
155 _apOauthToken
147 _apFields
156 _apFields
148− _apAlt
157+ (Just _apAlt)
150− = clientWithRoute (Proxy :: Proxy AccountsPatchAPI) r
159+ = clientWithRoute
160+ (Proxy :: Proxy AccountsPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Accounts/Update.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Updates an existing account.
20-- | Updates an existing account.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsUpdate@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerAccountsUpdate@.
22−module AdExchangeBuyer.Accounts.Update
23+module Network.Google.Resource.AdExchangeBuyer.Accounts.Update
24 -- * REST Resource
25 -- * REST Resource
25− AccountsUpdateAPI
26+ AccountsUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsUpdate
29+ , accountsUpdate'
29− , AccountsUpdate
30+ , AccountsUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , auQuotaUser
33 , auQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerAccountsUpdate@ which the
46-- | A resource alias for @AdexchangebuyerAccountsUpdate@ which the
46−-- 'AccountsUpdate' request conforms to.
47+-- 'AccountsUpdate'' request conforms to.
47−type AccountsUpdateAPI =
48+type AccountsUpdateResource =
48 "accounts" :>
49 "accounts" :>
49− Capture "id" Int32 :> Put '[JSON] Account
50+ Capture "id" Int32 :>
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 :> Put '[JSON] Account
51-- | Updates an existing account.
59-- | Updates an existing account.
53−-- /See:/ 'accountsUpdate' smart constructor.
61+-- /See:/ 'accountsUpdate'' smart constructor.
54−data AccountsUpdate = AccountsUpdate
62+data AccountsUpdate' = AccountsUpdate'
55 { _auQuotaUser :: !(Maybe Text)
63 { _auQuotaUser :: !(Maybe Text)
56 , _auPrettyPrint :: !Bool
64 , _auPrettyPrint :: !Bool
57 , _auUserIp :: !(Maybe Text)
65 , _auUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data AccountsUpdate = AccountsUpdate
59 , _auId :: !Int32
67 , _auId :: !Int32
60 , _auOauthToken :: !(Maybe Text)
68 , _auOauthToken :: !(Maybe Text)
61 , _auFields :: !(Maybe Text)
69 , _auFields :: !(Maybe Text)
62− , _auAlt :: !Text
70+ , _auAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.
73-- | Creates a value of 'AccountsUpdate'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data AccountsUpdate = AccountsUpdate
81-- * 'auFields'
89-- * 'auFields'
83-- * 'auAlt'
91-- * 'auAlt'
84−accountsUpdate
92+accountsUpdate'
85 :: Int32 -- ^ 'id'
93 :: Int32 -- ^ 'id'
86− -> AccountsUpdate
94+ -> AccountsUpdate'
87−accountsUpdate pAuId_ =
95+accountsUpdate' pAuId_ =
88− AccountsUpdate
96+ AccountsUpdate'
89 { _auQuotaUser = Nothing
97 { _auQuotaUser = Nothing
90 , _auPrettyPrint = True
98 , _auPrettyPrint = True
91 , _auUserIp = Nothing
99 , _auUserIp = Nothing
@@ -93,7 +101,7 @@ accountsUpdate pAuId_ =
93 , _auId = pAuId_
101 , _auId = pAuId_
94 , _auOauthToken = Nothing
102 , _auOauthToken = Nothing
95 , _auFields = Nothing
103 , _auFields = Nothing
96− , _auAlt = "json"
104+ , _auAlt = JSON
99-- | 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
@@ -134,19 +142,21 @@ auFields :: Lens' AccountsUpdate' (Maybe Text)
134auFields = lens _auFields (\ s a -> s{_auFields = a})
142auFields = lens _auFields (\ s a -> s{_auFields = a})
136-- | Data format for the response.
144-- | Data format for the response.
137−auAlt :: Lens' AccountsUpdate' Text
145+auAlt :: Lens' AccountsUpdate' Alt
138auAlt = lens _auAlt (\ s a -> s{_auAlt = a})
146auAlt = lens _auAlt (\ s a -> s{_auAlt = a})
140instance GoogleRequest AccountsUpdate' where
148instance GoogleRequest AccountsUpdate' where
141 type Rs AccountsUpdate' = Account
149 type Rs AccountsUpdate' = Account
142 request = requestWithRoute defReq adExchangeBuyerURL
150 request = requestWithRoute defReq adExchangeBuyerURL
143− requestWithRoute r u AccountsUpdate{..}
151+ requestWithRoute r u AccountsUpdate'{..}
144− = go _auQuotaUser _auPrettyPrint _auUserIp _auKey
152+ = go _auQuotaUser (Just _auPrettyPrint) _auUserIp
146 _auOauthToken
155 _auOauthToken
147 _auFields
156 _auFields
148− _auAlt
157+ (Just _auAlt)
150− = clientWithRoute (Proxy :: Proxy AccountsUpdateAPI)
159+ = clientWithRoute
160+ (Proxy :: Proxy AccountsUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/Get.hs+29−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Returns the billing information for one account specified by account ID.
20-- | Returns the billing information for one account specified by account ID.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBillingInfoGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBillingInfoGet@.
22−module AdExchangeBuyer.BillingInfo.Get
23+module Network.Google.Resource.AdExchangeBuyer.BillingInfo.Get
24 -- * REST Resource
25 -- * REST Resource
25− BillingInfoGetAPI
26+ BillingInfoGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , billingInfoGet
29+ , billingInfoGet'
29− , BillingInfoGet
30+ , BillingInfoGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , bigQuotaUser
33 , bigQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerBillingInfoGet@ which the
46-- | A resource alias for @AdexchangebuyerBillingInfoGet@ which the
46−-- 'BillingInfoGet' request conforms to.
47+-- 'BillingInfoGet'' request conforms to.
47−type BillingInfoGetAPI =
48+type BillingInfoGetResource =
48 "billinginfo" :>
49 "billinginfo" :>
49− Capture "accountId" Int32 :> Get '[JSON] BillingInfo
50+ Capture "accountId" Int32 :>
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] BillingInfo
51-- | Returns the billing information for one account specified by account ID.
59-- | Returns the billing information for one account specified by account ID.
53−-- /See:/ 'billingInfoGet' smart constructor.
61+-- /See:/ 'billingInfoGet'' smart constructor.
54−data BillingInfoGet = BillingInfoGet
62+data BillingInfoGet' = BillingInfoGet'
55 { _bigQuotaUser :: !(Maybe Text)
63 { _bigQuotaUser :: !(Maybe Text)
56 , _bigPrettyPrint :: !Bool
64 , _bigPrettyPrint :: !Bool
57 , _bigUserIp :: !(Maybe Text)
65 , _bigUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data BillingInfoGet = BillingInfoGet
59 , _bigKey :: !(Maybe Text)
67 , _bigKey :: !(Maybe Text)
60 , _bigOauthToken :: !(Maybe Text)
68 , _bigOauthToken :: !(Maybe Text)
61 , _bigFields :: !(Maybe Text)
69 , _bigFields :: !(Maybe Text)
62− , _bigAlt :: !Text
70+ , _bigAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'BillingInfoGet'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data BillingInfoGet = BillingInfoGet
81-- * 'bigFields'
89-- * 'bigFields'
83-- * 'bigAlt'
91-- * 'bigAlt'
84−billingInfoGet
92+billingInfoGet'
85 :: Int32 -- ^ 'accountId'
93 :: Int32 -- ^ 'accountId'
86− -> BillingInfoGet
94+ -> BillingInfoGet'
87−billingInfoGet pBigAccountId_ =
95+billingInfoGet' pBigAccountId_ =
88− BillingInfoGet
96+ BillingInfoGet'
89 { _bigQuotaUser = Nothing
97 { _bigQuotaUser = Nothing
90 , _bigPrettyPrint = True
98 , _bigPrettyPrint = True
91 , _bigUserIp = Nothing
99 , _bigUserIp = Nothing
@@ -93,7 +101,7 @@ billingInfoGet pBigAccountId_ =
93 , _bigKey = Nothing
101 , _bigKey = Nothing
94 , _bigOauthToken = Nothing
102 , _bigOauthToken = Nothing
95 , _bigFields = Nothing
103 , _bigFields = Nothing
96− , _bigAlt = "json"
104+ , _bigAlt = JSON
99-- | 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
@@ -138,20 +146,21 @@ bigFields
138 = lens _bigFields (\ s a -> s{_bigFields = a})
146 = lens _bigFields (\ s a -> s{_bigFields = a})
140-- | Data format for the response.
148-- | Data format for the response.
141−bigAlt :: Lens' BillingInfoGet' Text
149+bigAlt :: Lens' BillingInfoGet' Alt
142bigAlt = lens _bigAlt (\ s a -> s{_bigAlt = a})
150bigAlt = lens _bigAlt (\ s a -> s{_bigAlt = a})
144instance GoogleRequest BillingInfoGet' where
152instance GoogleRequest BillingInfoGet' where
145 type Rs BillingInfoGet' = BillingInfo
153 type Rs BillingInfoGet' = BillingInfo
146 request = requestWithRoute defReq adExchangeBuyerURL
154 request = requestWithRoute defReq adExchangeBuyerURL
147− requestWithRoute r u BillingInfoGet{..}
155+ requestWithRoute r u BillingInfoGet'{..}
148− = go _bigQuotaUser _bigPrettyPrint _bigUserIp
156+ = go _bigQuotaUser (Just _bigPrettyPrint) _bigUserIp
149 _bigAccountId
157 _bigAccountId
151 _bigOauthToken
159 _bigOauthToken
152 _bigFields
160 _bigFields
153− _bigAlt
161+ (Just _bigAlt)
155− = clientWithRoute (Proxy :: Proxy BillingInfoGetAPI)
163+ = clientWithRoute
164+ (Proxy :: Proxy BillingInfoGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/BillingInfo/List.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- authenticated user.
21-- authenticated user.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBillingInfoList@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBillingInfoList@.
23−module AdExchangeBuyer.BillingInfo.List
24+module Network.Google.Resource.AdExchangeBuyer.BillingInfo.List
25 -- * REST Resource
26 -- * REST Resource
26− BillingInfoListAPI
27+ BillingInfoListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , billingInfoList
30+ , billingInfoList'
30− , BillingInfoList
31+ , BillingInfoList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , bilQuotaUser
34 , bilQuotaUser
@@ -43,22 +44,29 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerBillingInfoList@ which the
46-- | A resource alias for @AdexchangebuyerBillingInfoList@ which the
46−-- 'BillingInfoList' request conforms to.
47+-- 'BillingInfoList'' request conforms to.
47−type BillingInfoListAPI =
48+type BillingInfoListResource =
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 :>
48− "billinginfo" :> Get '[JSON] BillingInfoList
56+ QueryParam "alt" Alt :> Get '[JSON] BillingInfoList
50-- | Retrieves a list of billing information for all accounts of the
58-- | Retrieves a list of billing information for all accounts of the
51-- authenticated user.
59-- authenticated user.
53−-- /See:/ 'billingInfoList' smart constructor.
61+-- /See:/ 'billingInfoList'' smart constructor.
54−data BillingInfoList = BillingInfoList
62+data BillingInfoList' = BillingInfoList'
55 { _bilQuotaUser :: !(Maybe Text)
63 { _bilQuotaUser :: !(Maybe Text)
56 , _bilPrettyPrint :: !Bool
64 , _bilPrettyPrint :: !Bool
57 , _bilUserIp :: !(Maybe Text)
65 , _bilUserIp :: !(Maybe Text)
58 , _bilKey :: !(Maybe Text)
66 , _bilKey :: !(Maybe Text)
59 , _bilOauthToken :: !(Maybe Text)
67 , _bilOauthToken :: !(Maybe Text)
60 , _bilFields :: !(Maybe Text)
68 , _bilFields :: !(Maybe Text)
61− , _bilAlt :: !Text
69+ , _bilAlt :: !Alt
62 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70 } deriving (Eq,Read,Show,Data,Typeable,Generic)
64-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.
72-- | Creates a value of 'BillingInfoList'' with the minimum fields required to make a request.
@@ -78,17 +86,17 @@ data BillingInfoList = BillingInfoList
78-- * 'bilFields'
86-- * 'bilFields'
80-- * 'bilAlt'
88-- * 'bilAlt'
81−billingInfoList
89+billingInfoList'
82− :: BillingInfoList
90+ :: BillingInfoList'
83−billingInfoList =
91+billingInfoList' =
84− BillingInfoList
92+ BillingInfoList'
85 { _bilQuotaUser = Nothing
93 { _bilQuotaUser = Nothing
86 , _bilPrettyPrint = True
94 , _bilPrettyPrint = True
87 , _bilUserIp = Nothing
95 , _bilUserIp = Nothing
88 , _bilKey = Nothing
96 , _bilKey = Nothing
89 , _bilOauthToken = Nothing
97 , _bilOauthToken = Nothing
90 , _bilFields = Nothing
98 , _bilFields = Nothing
91− , _bilAlt = "json"
99+ , _bilAlt = JSON
94-- | 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
@@ -128,18 +136,20 @@ bilFields
128 = lens _bilFields (\ s a -> s{_bilFields = a})
136 = lens _bilFields (\ s a -> s{_bilFields = a})
130-- | Data format for the response.
138-- | Data format for the response.
131−bilAlt :: Lens' BillingInfoList' Text
139+bilAlt :: Lens' BillingInfoList' Alt
132bilAlt = lens _bilAlt (\ s a -> s{_bilAlt = a})
140bilAlt = lens _bilAlt (\ s a -> s{_bilAlt = a})
134instance GoogleRequest BillingInfoList' where
142instance GoogleRequest BillingInfoList' where
135 type Rs BillingInfoList' = BillingInfoList
143 type Rs BillingInfoList' = BillingInfoList
136 request = requestWithRoute defReq adExchangeBuyerURL
144 request = requestWithRoute defReq adExchangeBuyerURL
137− requestWithRoute r u BillingInfoList{..}
145+ requestWithRoute r u BillingInfoList'{..}
138− = go _bilQuotaUser _bilPrettyPrint _bilUserIp _bilKey
146+ = go _bilQuotaUser (Just _bilPrettyPrint) _bilUserIp
139 _bilOauthToken
148 _bilOauthToken
140 _bilFields
149 _bilFields
141− _bilAlt
150+ (Just _bilAlt)
143− = clientWithRoute (Proxy :: Proxy BillingInfoListAPI)
152+ = clientWithRoute
153+ (Proxy :: Proxy BillingInfoListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Get.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- accountId and billingId.
21-- accountId and billingId.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBudgetGet@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBudgetGet@.
23−module AdExchangeBuyer.Budget.Get
24+module Network.Google.Resource.AdExchangeBuyer.Budget.Get
25 -- * REST Resource
26 -- * REST Resource
26− BudgetGetAPI
27+ BudgetGetResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , budgetGet
30+ , budgetGet'
30− , BudgetGet
31+ , BudgetGet'
32 -- * Request Lenses
33 -- * Request Lenses
33 , bgQuotaUser
34 , bgQuotaUser
@@ -45,17 +46,24 @@ import Network.Google.AdExchangeBuyer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangebuyerBudgetGet@ which the
48-- | A resource alias for @AdexchangebuyerBudgetGet@ which the
48−-- 'BudgetGet' request conforms to.
49+-- 'BudgetGet'' request conforms to.
49−type BudgetGetAPI =
50+type BudgetGetResource =
50 "billinginfo" :>
51 "billinginfo" :>
51 Capture "accountId" Int64 :>
52 Capture "accountId" Int64 :>
52− Capture "billingId" Int64 :> Get '[JSON] Budget
53+ Capture "billingId" Int64 :>
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] Budget
54-- | Returns the budget information for the adgroup specified by the
62-- | Returns the budget information for the adgroup specified by the
55-- accountId and billingId.
63-- accountId and billingId.
57−-- /See:/ 'budgetGet' smart constructor.
65+-- /See:/ 'budgetGet'' smart constructor.
58−data BudgetGet = BudgetGet
66+data BudgetGet' = BudgetGet'
59 { _bgQuotaUser :: !(Maybe Text)
67 { _bgQuotaUser :: !(Maybe Text)
60 , _bgPrettyPrint :: !Bool
68 , _bgPrettyPrint :: !Bool
61 , _bgUserIp :: !(Maybe Text)
69 , _bgUserIp :: !(Maybe Text)
@@ -64,7 +72,7 @@ data BudgetGet = BudgetGet
64 , _bgOauthToken :: !(Maybe Text)
72 , _bgOauthToken :: !(Maybe Text)
65 , _bgBillingId :: !Int64
73 , _bgBillingId :: !Int64
66 , _bgFields :: !(Maybe Text)
74 , _bgFields :: !(Maybe Text)
67− , _bgAlt :: !Text
75+ , _bgAlt :: !Alt
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
76 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.
78-- | Creates a value of 'BudgetGet'' with the minimum fields required to make a request.
@@ -88,12 +96,12 @@ data BudgetGet = BudgetGet
88-- * 'bgFields'
96-- * 'bgFields'
90-- * 'bgAlt'
98-- * 'bgAlt'
91−budgetGet
99+budgetGet'
92 :: Int64 -- ^ 'accountId'
100 :: Int64 -- ^ 'accountId'
93 -> Int64 -- ^ 'billingId'
101 -> Int64 -- ^ 'billingId'
94− -> BudgetGet
102+ -> BudgetGet'
95−budgetGet pBgAccountId_ pBgBillingId_ =
103+budgetGet' pBgAccountId_ pBgBillingId_ =
96− BudgetGet
104+ BudgetGet'
97 { _bgQuotaUser = Nothing
105 { _bgQuotaUser = Nothing
98 , _bgPrettyPrint = True
106 , _bgPrettyPrint = True
99 , _bgUserIp = Nothing
107 , _bgUserIp = Nothing
@@ -102,7 +110,7 @@ budgetGet pBgAccountId_ pBgBillingId_ =
102 , _bgOauthToken = Nothing
110 , _bgOauthToken = Nothing
103 , _bgBillingId = pBgBillingId_
111 , _bgBillingId = pBgBillingId_
104 , _bgFields = Nothing
112 , _bgFields = Nothing
105− , _bgAlt = "json"
113+ , _bgAlt = JSON
108-- | Available to use for quota purposes for server-side applications. Can be
116-- | Available to use for quota purposes for server-side applications. Can be
@@ -149,19 +157,21 @@ bgFields :: Lens' BudgetGet' (Maybe Text)
149bgFields = lens _bgFields (\ s a -> s{_bgFields = a})
157bgFields = lens _bgFields (\ s a -> s{_bgFields = a})
151-- | Data format for the response.
159-- | Data format for the response.
152−bgAlt :: Lens' BudgetGet' Text
160+bgAlt :: Lens' BudgetGet' Alt
153bgAlt = lens _bgAlt (\ s a -> s{_bgAlt = a})
161bgAlt = lens _bgAlt (\ s a -> s{_bgAlt = a})
155instance GoogleRequest BudgetGet' where
163instance GoogleRequest BudgetGet' where
156 type Rs BudgetGet' = Budget
164 type Rs BudgetGet' = Budget
157 request = requestWithRoute defReq adExchangeBuyerURL
165 request = requestWithRoute defReq adExchangeBuyerURL
158− requestWithRoute r u BudgetGet{..}
166+ requestWithRoute r u BudgetGet'{..}
159− = go _bgQuotaUser _bgPrettyPrint _bgUserIp
167+ = go _bgQuotaUser (Just _bgPrettyPrint) _bgUserIp
160 _bgAccountId
168 _bgAccountId
162 _bgOauthToken
170 _bgOauthToken
163 _bgBillingId
171 _bgBillingId
164 _bgFields
172 _bgFields
165− _bgAlt
173+ (Just _bgAlt)
167− = clientWithRoute (Proxy :: Proxy BudgetGetAPI) r u
175+ = clientWithRoute (Proxy :: Proxy BudgetGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Patch.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -21,14 +22,14 @@
21-- method supports patch semantics.
22-- method supports patch semantics.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBudgetPatch@.
24-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBudgetPatch@.
24−module AdExchangeBuyer.Budget.Patch
25+module Network.Google.Resource.AdExchangeBuyer.Budget.Patch
26 -- * REST Resource
27 -- * REST Resource
27− BudgetPatchAPI
28+ BudgetPatchResource
29 -- * Creating a Request
30 -- * Creating a Request
30− , budgetPatch
31+ , budgetPatch'
31− , BudgetPatch
32+ , BudgetPatch'
33 -- * Request Lenses
34 -- * Request Lenses
34 , bpQuotaUser
35 , bpQuotaUser
@@ -46,18 +47,25 @@ import Network.Google.AdExchangeBuyer.Types
46import Network.Google.Prelude
47import Network.Google.Prelude
48-- | A resource alias for @AdexchangebuyerBudgetPatch@ which the
49-- | A resource alias for @AdexchangebuyerBudgetPatch@ which the
49−-- 'BudgetPatch' request conforms to.
50+-- 'BudgetPatch'' request conforms to.
50−type BudgetPatchAPI =
51+type BudgetPatchResource =
51 "billinginfo" :>
52 "billinginfo" :>
52 Capture "accountId" Int64 :>
53 Capture "accountId" Int64 :>
53− Capture "billingId" Int64 :> Patch '[JSON] Budget
54+ Capture "billingId" Int64 :>
55+ QueryParam "quotaUser" Text :>
56+ QueryParam "prettyPrint" Bool :>
57+ QueryParam "userIp" Text :>
58+ QueryParam "key" Text :>
59+ QueryParam "oauth_token" Text :>
60+ QueryParam "fields" Text :>
61+ QueryParam "alt" Alt :> Patch '[JSON] Budget
55-- | 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
56-- accountId and billingId, with the budget amount in the request. This
64-- accountId and billingId, with the budget amount in the request. This
57-- method supports patch semantics.
65-- method supports patch semantics.
59−-- /See:/ 'budgetPatch' smart constructor.
67+-- /See:/ 'budgetPatch'' smart constructor.
60−data BudgetPatch = BudgetPatch
68+data BudgetPatch' = BudgetPatch'
61 { _bpQuotaUser :: !(Maybe Text)
69 { _bpQuotaUser :: !(Maybe Text)
62 , _bpPrettyPrint :: !Bool
70 , _bpPrettyPrint :: !Bool
63 , _bpUserIp :: !(Maybe Text)
71 , _bpUserIp :: !(Maybe Text)
@@ -66,7 +74,7 @@ data BudgetPatch = BudgetPatch
66 , _bpOauthToken :: !(Maybe Text)
74 , _bpOauthToken :: !(Maybe Text)
67 , _bpBillingId :: !Int64
75 , _bpBillingId :: !Int64
68 , _bpFields :: !(Maybe Text)
76 , _bpFields :: !(Maybe Text)
69− , _bpAlt :: !Text
77+ , _bpAlt :: !Alt
70 } deriving (Eq,Read,Show,Data,Typeable,Generic)
78 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.
80-- | Creates a value of 'BudgetPatch'' with the minimum fields required to make a request.
@@ -90,12 +98,12 @@ data BudgetPatch = BudgetPatch
90-- * 'bpFields'
98-- * 'bpFields'
92-- * 'bpAlt'
100-- * 'bpAlt'
93−budgetPatch
101+budgetPatch'
94 :: Int64 -- ^ 'accountId'
102 :: Int64 -- ^ 'accountId'
95 -> Int64 -- ^ 'billingId'
103 -> Int64 -- ^ 'billingId'
96− -> BudgetPatch
104+ -> BudgetPatch'
97−budgetPatch pBpAccountId_ pBpBillingId_ =
105+budgetPatch' pBpAccountId_ pBpBillingId_ =
98− BudgetPatch
106+ BudgetPatch'
99 { _bpQuotaUser = Nothing
107 { _bpQuotaUser = Nothing
100 , _bpPrettyPrint = True
108 , _bpPrettyPrint = True
101 , _bpUserIp = Nothing
109 , _bpUserIp = Nothing
@@ -104,7 +112,7 @@ budgetPatch pBpAccountId_ pBpBillingId_ =
104 , _bpOauthToken = Nothing
112 , _bpOauthToken = Nothing
105 , _bpBillingId = pBpBillingId_
113 , _bpBillingId = pBpBillingId_
106 , _bpFields = Nothing
114 , _bpFields = Nothing
107− , _bpAlt = "json"
115+ , _bpAlt = JSON
110-- | 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
@@ -151,19 +159,22 @@ bpFields :: Lens' BudgetPatch' (Maybe Text)
151bpFields = lens _bpFields (\ s a -> s{_bpFields = a})
159bpFields = lens _bpFields (\ s a -> s{_bpFields = a})
153-- | Data format for the response.
161-- | Data format for the response.
154−bpAlt :: Lens' BudgetPatch' Text
162+bpAlt :: Lens' BudgetPatch' Alt
155bpAlt = lens _bpAlt (\ s a -> s{_bpAlt = a})
163bpAlt = lens _bpAlt (\ s a -> s{_bpAlt = a})
157instance GoogleRequest BudgetPatch' where
165instance GoogleRequest BudgetPatch' where
158 type Rs BudgetPatch' = Budget
166 type Rs BudgetPatch' = Budget
159 request = requestWithRoute defReq adExchangeBuyerURL
167 request = requestWithRoute defReq adExchangeBuyerURL
160− requestWithRoute r u BudgetPatch{..}
168+ requestWithRoute r u BudgetPatch'{..}
161− = go _bpQuotaUser _bpPrettyPrint _bpUserIp
169+ = go _bpQuotaUser (Just _bpPrettyPrint) _bpUserIp
162 _bpAccountId
170 _bpAccountId
164 _bpOauthToken
172 _bpOauthToken
165 _bpBillingId
173 _bpBillingId
166 _bpFields
174 _bpFields
167− _bpAlt
175+ (Just _bpAlt)
169− = clientWithRoute (Proxy :: Proxy BudgetPatchAPI) r u
177+ = clientWithRoute
178+ (Proxy :: Proxy BudgetPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Budget/Update.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- accountId and billingId, with the budget amount in the request.
21-- accountId and billingId, with the budget amount in the request.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBudgetUpdate@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerBudgetUpdate@.
23−module AdExchangeBuyer.Budget.Update
24+module Network.Google.Resource.AdExchangeBuyer.Budget.Update
25 -- * REST Resource
26 -- * REST Resource
26− BudgetUpdateAPI
27+ BudgetUpdateResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , budgetUpdate
30+ , budgetUpdate'
30− , BudgetUpdate
31+ , BudgetUpdate'
32 -- * Request Lenses
33 -- * Request Lenses
33 , buQuotaUser
34 , buQuotaUser
@@ -45,17 +46,24 @@ import Network.Google.AdExchangeBuyer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangebuyerBudgetUpdate@ which the
48-- | A resource alias for @AdexchangebuyerBudgetUpdate@ which the
48−-- 'BudgetUpdate' request conforms to.
49+-- 'BudgetUpdate'' request conforms to.
49−type BudgetUpdateAPI =
50+type BudgetUpdateResource =
50 "billinginfo" :>
51 "billinginfo" :>
51 Capture "accountId" Int64 :>
52 Capture "accountId" Int64 :>
52− Capture "billingId" Int64 :> Put '[JSON] Budget
53+ Capture "billingId" Int64 :>
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 :> Put '[JSON] Budget
54-- | Updates the budget amount for the budget of the adgroup specified by the
62-- | Updates the budget amount for the budget of the adgroup specified by the
55-- accountId and billingId, with the budget amount in the request.
63-- accountId and billingId, with the budget amount in the request.
57−-- /See:/ 'budgetUpdate' smart constructor.
65+-- /See:/ 'budgetUpdate'' smart constructor.
58−data BudgetUpdate = BudgetUpdate
66+data BudgetUpdate' = BudgetUpdate'
59 { _buQuotaUser :: !(Maybe Text)
67 { _buQuotaUser :: !(Maybe Text)
60 , _buPrettyPrint :: !Bool
68 , _buPrettyPrint :: !Bool
61 , _buUserIp :: !(Maybe Text)
69 , _buUserIp :: !(Maybe Text)
@@ -64,7 +72,7 @@ data BudgetUpdate = BudgetUpdate
64 , _buOauthToken :: !(Maybe Text)
72 , _buOauthToken :: !(Maybe Text)
65 , _buBillingId :: !Int64
73 , _buBillingId :: !Int64
66 , _buFields :: !(Maybe Text)
74 , _buFields :: !(Maybe Text)
67− , _buAlt :: !Text
75+ , _buAlt :: !Alt
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
76 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.
78-- | Creates a value of 'BudgetUpdate'' with the minimum fields required to make a request.
@@ -88,12 +96,12 @@ data BudgetUpdate = BudgetUpdate
88-- * 'buFields'
96-- * 'buFields'
90-- * 'buAlt'
98-- * 'buAlt'
91−budgetUpdate
99+budgetUpdate'
92 :: Int64 -- ^ 'accountId'
100 :: Int64 -- ^ 'accountId'
93 -> Int64 -- ^ 'billingId'
101 -> Int64 -- ^ 'billingId'
94− -> BudgetUpdate
102+ -> BudgetUpdate'
95−budgetUpdate pBuAccountId_ pBuBillingId_ =
103+budgetUpdate' pBuAccountId_ pBuBillingId_ =
96− BudgetUpdate
104+ BudgetUpdate'
97 { _buQuotaUser = Nothing
105 { _buQuotaUser = Nothing
98 , _buPrettyPrint = True
106 , _buPrettyPrint = True
99 , _buUserIp = Nothing
107 , _buUserIp = Nothing
@@ -102,7 +110,7 @@ budgetUpdate pBuAccountId_ pBuBillingId_ =
102 , _buOauthToken = Nothing
110 , _buOauthToken = Nothing
103 , _buBillingId = pBuBillingId_
111 , _buBillingId = pBuBillingId_
104 , _buFields = Nothing
112 , _buFields = Nothing
105− , _buAlt = "json"
113+ , _buAlt = JSON
108-- | Available to use for quota purposes for server-side applications. Can be
116-- | Available to use for quota purposes for server-side applications. Can be
@@ -149,20 +157,22 @@ buFields :: Lens' BudgetUpdate' (Maybe Text)
149buFields = lens _buFields (\ s a -> s{_buFields = a})
157buFields = lens _buFields (\ s a -> s{_buFields = a})
151-- | Data format for the response.
159-- | Data format for the response.
152−buAlt :: Lens' BudgetUpdate' Text
160+buAlt :: Lens' BudgetUpdate' Alt
153buAlt = lens _buAlt (\ s a -> s{_buAlt = a})
161buAlt = lens _buAlt (\ s a -> s{_buAlt = a})
155instance GoogleRequest BudgetUpdate' where
163instance GoogleRequest BudgetUpdate' where
156 type Rs BudgetUpdate' = Budget
164 type Rs BudgetUpdate' = Budget
157 request = requestWithRoute defReq adExchangeBuyerURL
165 request = requestWithRoute defReq adExchangeBuyerURL
158− requestWithRoute r u BudgetUpdate{..}
166+ requestWithRoute r u BudgetUpdate'{..}
159− = go _buQuotaUser _buPrettyPrint _buUserIp
167+ = go _buQuotaUser (Just _buPrettyPrint) _buUserIp
160 _buAccountId
168 _buAccountId
162 _buOauthToken
170 _buOauthToken
163 _buBillingId
171 _buBillingId
164 _buFields
172 _buFields
165− _buAlt
173+ (Just _buAlt)
167− = clientWithRoute (Proxy :: Proxy BudgetUpdateAPI) r
175+ = clientWithRoute
176+ (Proxy :: Proxy BudgetUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Delete.hs+28−21
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessDelete@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessDelete@.
22−module AdExchangeBuyer.Clientaccess.Delete
23+module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Delete
24 -- * REST Resource
25 -- * REST Resource
25− ClientaccessDeleteAPI
26+ ClientaccessDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , clientaccessDelete
29+ , clientaccessDelete'
29− , ClientaccessDelete
30+ , ClientaccessDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , cdQuotaUser
33 , cdQuotaUser
@@ -44,16 +45,22 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerClientaccessDelete@ which the
47-- | A resource alias for @AdexchangebuyerClientaccessDelete@ which the
47−-- 'ClientaccessDelete' request conforms to.
48+-- 'ClientaccessDelete'' request conforms to.
48−type ClientaccessDeleteAPI =
49+type ClientaccessDeleteResource =
49 "clientAccess" :>
50 "clientAccess" :>
50 Capture "clientAccountId" Int64 :>
51 Capture "clientAccountId" Int64 :>
52+ QueryParam "quotaUser" Text :>
53+ QueryParam "prettyPrint" Bool :>
54+ QueryParam "userIp" Text :>
51− QueryParam "sponsorAccountId" Int32 :>
55+ QueryParam "sponsorAccountId" Int32 :>
56+ QueryParam "key" Text :>
57+ QueryParam "oauth_token" Text :>
58+ QueryParam "fields" Text :>
52− Delete '[JSON] ()
59+ QueryParam "alt" Alt :> Delete '[JSON] ()
55−-- /See:/ 'clientaccessDelete' smart constructor.
62+-- /See:/ 'clientaccessDelete'' smart constructor.
56−data ClientaccessDelete = ClientaccessDelete
63+data ClientaccessDelete' = ClientaccessDelete'
57 { _cdQuotaUser :: !(Maybe Text)
64 { _cdQuotaUser :: !(Maybe Text)
58 , _cdPrettyPrint :: !Bool
65 , _cdPrettyPrint :: !Bool
59 , _cdUserIp :: !(Maybe Text)
66 , _cdUserIp :: !(Maybe Text)
@@ -62,7 +69,7 @@ data ClientaccessDelete = ClientaccessDelete
62 , _cdClientAccountId :: !Int64
69 , _cdClientAccountId :: !Int64
63 , _cdOauthToken :: !(Maybe Text)
70 , _cdOauthToken :: !(Maybe Text)
64 , _cdFields :: !(Maybe Text)
71 , _cdFields :: !(Maybe Text)
65− , _cdAlt :: !Text
72+ , _cdAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
73 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'ClientaccessDelete'' with the minimum fields required to make a request.
75-- | Creates a value of 'ClientaccessDelete'' with the minimum fields required to make a request.
@@ -86,12 +93,12 @@ data ClientaccessDelete = ClientaccessDelete
86-- * 'cdFields'
93-- * 'cdFields'
88-- * 'cdAlt'
95-- * 'cdAlt'
89−clientaccessDelete
96+clientaccessDelete'
90 :: Int32 -- ^ 'sponsorAccountId'
97 :: Int32 -- ^ 'sponsorAccountId'
91 -> Int64 -- ^ 'clientAccountId'
98 -> Int64 -- ^ 'clientAccountId'
92− -> ClientaccessDelete
99+ -> ClientaccessDelete'
93−clientaccessDelete pCdSponsorAccountId_ pCdClientAccountId_ =
100+clientaccessDelete' pCdSponsorAccountId_ pCdClientAccountId_ =
94− ClientaccessDelete
101+ ClientaccessDelete'
95 { _cdQuotaUser = Nothing
102 { _cdQuotaUser = Nothing
96 , _cdPrettyPrint = True
103 , _cdPrettyPrint = True
97 , _cdUserIp = Nothing
104 , _cdUserIp = Nothing
@@ -100,7 +107,7 @@ clientaccessDelete pCdSponsorAccountId_ pCdClientAccountId_ =
100 , _cdClientAccountId = pCdClientAccountId_
107 , _cdClientAccountId = pCdClientAccountId_
101 , _cdOauthToken = Nothing
108 , _cdOauthToken = Nothing
102 , _cdFields = Nothing
109 , _cdFields = Nothing
103− , _cdAlt = "json"
110+ , _cdAlt = JSON
106-- | Available to use for quota purposes for server-side applications. Can be
113-- | Available to use for quota purposes for server-side applications. Can be
@@ -147,22 +154,22 @@ cdFields :: Lens' ClientaccessDelete' (Maybe Text)
147cdFields = lens _cdFields (\ s a -> s{_cdFields = a})
154cdFields = lens _cdFields (\ s a -> s{_cdFields = a})
149-- | Data format for the response.
156-- | Data format for the response.
150−cdAlt :: Lens' ClientaccessDelete' Text
157+cdAlt :: Lens' ClientaccessDelete' Alt
151cdAlt = lens _cdAlt (\ s a -> s{_cdAlt = a})
158cdAlt = lens _cdAlt (\ s a -> s{_cdAlt = a})
153instance GoogleRequest ClientaccessDelete' where
160instance GoogleRequest ClientaccessDelete' where
154 type Rs ClientaccessDelete' = ()
161 type Rs ClientaccessDelete' = ()
155 request = requestWithRoute defReq adExchangeBuyerURL
162 request = requestWithRoute defReq adExchangeBuyerURL
156− requestWithRoute r u ClientaccessDelete{..}
163+ requestWithRoute r u ClientaccessDelete'{..}
157− = go _cdQuotaUser _cdPrettyPrint _cdUserIp
164+ = go _cdQuotaUser (Just _cdPrettyPrint) _cdUserIp
158 (Just _cdSponsorAccountId)
165 (Just _cdSponsorAccountId)
160 _cdClientAccountId
167 _cdClientAccountId
161 _cdOauthToken
168 _cdOauthToken
162 _cdFields
169 _cdFields
163− _cdAlt
170+ (Just _cdAlt)
165 = clientWithRoute
172 = clientWithRoute
166− (Proxy :: Proxy ClientaccessDeleteAPI)
173+ (Proxy :: Proxy ClientaccessDeleteResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Get.hs+94−88
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,152 +20,157 @@
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessGet@.
22−module AdExchangeBuyer.Clientaccess.Get
23+module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Get
24 -- * REST Resource
25 -- * REST Resource
25− ClientaccessGetAPI
26+ ClientaccessGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , clientaccessGet
29+ , clientaccessGet'
29− , ClientaccessGet
30+ , ClientaccessGet'
31 -- * Request Lenses
32 -- * Request Lenses
32− , cggQuotaUser
33+ , cgQuotaUser
33− , cggPrettyPrint
34+ , cgPrettyPrint
34− , cggUserIp
35+ , cgUserIp
35− , cggSponsorAccountId
36+ , cgSponsorAccountId
37− , cggClientAccountId
38+ , cgClientAccountId
38− , cggOauthToken
39+ , cgOauthToken
39− , cggFields
40+ , cgFields
43import Network.Google.AdExchangeBuyer.Types
44import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerClientaccessGet@ which the
47-- | A resource alias for @AdexchangebuyerClientaccessGet@ which the
47−-- 'ClientaccessGet' request conforms to.
48+-- 'ClientaccessGet'' request conforms to.
48−type ClientaccessGetAPI =
49+type ClientaccessGetResource =
49 "clientAccess" :>
50 "clientAccess" :>
50 Capture "clientAccountId" Int64 :>
51 Capture "clientAccountId" Int64 :>
52+ QueryParam "quotaUser" Text :>
53+ QueryParam "prettyPrint" Bool :>
54+ QueryParam "userIp" Text :>
51− QueryParam "sponsorAccountId" Int32 :>
55+ QueryParam "sponsorAccountId" Int32 :>
56+ QueryParam "key" Text :>
57+ QueryParam "oauth_token" Text :>
58+ QueryParam "fields" Text :>
59+ QueryParam "alt" Alt :>
52− Get '[JSON] ClientAccessCapabilities
60+ Get '[JSON] ClientAccessCapabilities
55−-- /See:/ 'clientaccessGet' smart constructor.
63+-- /See:/ 'clientaccessGet'' smart constructor.
56−data ClientaccessGet = ClientaccessGet
64+data ClientaccessGet' = ClientaccessGet'
57− { _cggQuotaUser :: !(Maybe Text)
65+ { _cgQuotaUser :: !(Maybe Text)
58− , _cggPrettyPrint :: !Bool
66+ , _cgPrettyPrint :: !Bool
59− , _cggUserIp :: !(Maybe Text)
67+ , _cgUserIp :: !(Maybe Text)
60− , _cggSponsorAccountId :: !Int32
68+ , _cgSponsorAccountId :: !Int32
61− , _cggKey :: !(Maybe Text)
69+ , _cgKey :: !(Maybe Text)
62− , _cggClientAccountId :: !Int64
70+ , _cgClientAccountId :: !Int64
63− , _cggOauthToken :: !(Maybe Text)
71+ , _cgOauthToken :: !(Maybe Text)
64− , _cggFields :: !(Maybe Text)
72+ , _cgFields :: !(Maybe Text)
65− , _cggAlt :: !Text
73+ , _cgAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'ClientaccessGet'' with the minimum fields required to make a request.
76-- | Creates a value of 'ClientaccessGet'' with the minimum fields required to make a request.
70-- 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:
72−-- * 'cggQuotaUser'
80+-- * 'cgQuotaUser'
74−-- * 'cggPrettyPrint'
82+-- * 'cgPrettyPrint'
76−-- * 'cggUserIp'
84+-- * 'cgUserIp'
78−-- * 'cggSponsorAccountId'
86+-- * 'cgSponsorAccountId'
80−-- * 'cggKey'
88+-- * 'cgKey'
82−-- * 'cggClientAccountId'
90+-- * 'cgClientAccountId'
84−-- * 'cggOauthToken'
92+-- * 'cgOauthToken'
86−-- * 'cggFields'
94+-- * 'cgFields'
88−-- * 'cggAlt'
96+-- * 'cgAlt'
89−clientaccessGet
97+clientaccessGet'
90 :: Int32 -- ^ 'sponsorAccountId'
98 :: Int32 -- ^ 'sponsorAccountId'
91 -> Int64 -- ^ 'clientAccountId'
99 -> Int64 -- ^ 'clientAccountId'
92− -> ClientaccessGet
100+ -> ClientaccessGet'
93−clientaccessGet pCggSponsorAccountId_ pCggClientAccountId_ =
101+clientaccessGet' pCgSponsorAccountId_ pCgClientAccountId_ =
94− ClientaccessGet
102+ ClientaccessGet'
95− { _cggQuotaUser = Nothing
103+ { _cgQuotaUser = Nothing
96− , _cggPrettyPrint = True
104+ , _cgPrettyPrint = True
97− , _cggUserIp = Nothing
105+ , _cgUserIp = Nothing
98− , _cggSponsorAccountId = pCggSponsorAccountId_
106+ , _cgSponsorAccountId = pCgSponsorAccountId_
99− , _cggKey = Nothing
107+ , _cgKey = Nothing
100− , _cggClientAccountId = pCggClientAccountId_
108+ , _cgClientAccountId = pCgClientAccountId_
101− , _cggOauthToken = Nothing
109+ , _cgOauthToken = Nothing
102− , _cggFields = Nothing
110+ , _cgFields = Nothing
103− , _cggAlt = "json"
111+ , _cgAlt = JSON
106-- | 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
107-- any arbitrary string assigned to a user, but should not exceed 40
115-- any arbitrary string assigned to a user, but should not exceed 40
108-- characters. Overrides userIp if both are provided.
116-- characters. Overrides userIp if both are provided.
109−cggQuotaUser :: Lens' ClientaccessGet' (Maybe Text)
117+cgQuotaUser :: Lens' ClientaccessGet' (Maybe Text)
110−cggQuotaUser
118+cgQuotaUser
111− = lens _cggQuotaUser (\ s a -> s{_cggQuotaUser = a})
119+ = lens _cgQuotaUser (\ s a -> s{_cgQuotaUser = a})
113-- | Returns response with indentations and line breaks.
121-- | Returns response with indentations and line breaks.
114−cggPrettyPrint :: Lens' ClientaccessGet' Bool
122+cgPrettyPrint :: Lens' ClientaccessGet' Bool
115−cggPrettyPrint
123+cgPrettyPrint
116− = lens _cggPrettyPrint
124+ = lens _cgPrettyPrint
117− (\ s a -> s{_cggPrettyPrint = a})
125+ (\ s a -> s{_cgPrettyPrint = a})
119-- | 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
120-- want to enforce per-user limits.
128-- want to enforce per-user limits.
121−cggUserIp :: Lens' ClientaccessGet' (Maybe Text)
129+cgUserIp :: Lens' ClientaccessGet' (Maybe Text)
122−cggUserIp
130+cgUserIp = lens _cgUserIp (\ s a -> s{_cgUserIp = a})
123− = lens _cggUserIp (\ s a -> s{_cggUserIp = a})
125−cggSponsorAccountId :: Lens' ClientaccessGet' Int32
132+cgSponsorAccountId :: Lens' ClientaccessGet' Int32
126−cggSponsorAccountId
133+cgSponsorAccountId
127− = lens _cggSponsorAccountId
134+ = lens _cgSponsorAccountId
128− (\ s a -> s{_cggSponsorAccountId = a})
135+ (\ s a -> s{_cgSponsorAccountId = a})
130-- | 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
131-- 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
133−cggKey :: Lens' ClientaccessGet' (Maybe Text)
140+cgKey :: Lens' ClientaccessGet' (Maybe Text)
134−cggKey = lens _cggKey (\ s a -> s{_cggKey = a})
141+cgKey = lens _cgKey (\ s a -> s{_cgKey = a})
136−cggClientAccountId :: Lens' ClientaccessGet' Int64
143+cgClientAccountId :: Lens' ClientaccessGet' Int64
137−cggClientAccountId
144+cgClientAccountId
138− = lens _cggClientAccountId
145+ = lens _cgClientAccountId
139− (\ s a -> s{_cggClientAccountId = a})
146+ (\ s a -> s{_cgClientAccountId = a})
141-- | OAuth 2.0 token for the current user.
148-- | OAuth 2.0 token for the current user.
142−cggOauthToken :: Lens' ClientaccessGet' (Maybe Text)
149+cgOauthToken :: Lens' ClientaccessGet' (Maybe Text)
143−cggOauthToken
150+cgOauthToken
144− = lens _cggOauthToken
151+ = lens _cgOauthToken (\ s a -> s{_cgOauthToken = a})
145− (\ s a -> s{_cggOauthToken = a})
147-- | Selector specifying which fields to include in a partial response.
153-- | Selector specifying which fields to include in a partial response.
148−cggFields :: Lens' ClientaccessGet' (Maybe Text)
154+cgFields :: Lens' ClientaccessGet' (Maybe Text)
149−cggFields
155+cgFields = lens _cgFields (\ s a -> s{_cgFields = a})
150− = lens _cggFields (\ s a -> s{_cggFields = a})
152-- | Data format for the response.
157-- | Data format for the response.
153−cggAlt :: Lens' ClientaccessGet' Text
158+cgAlt :: Lens' ClientaccessGet' Alt
154−cggAlt = lens _cggAlt (\ s a -> s{_cggAlt = a})
159+cgAlt = lens _cgAlt (\ s a -> s{_cgAlt = a})
156instance GoogleRequest ClientaccessGet' where
161instance GoogleRequest ClientaccessGet' where
157 type Rs ClientaccessGet' = ClientAccessCapabilities
162 type Rs ClientaccessGet' = ClientAccessCapabilities
158 request = requestWithRoute defReq adExchangeBuyerURL
163 request = requestWithRoute defReq adExchangeBuyerURL
159− requestWithRoute r u ClientaccessGet{..}
164+ requestWithRoute r u ClientaccessGet'{..}
160− = go _cggQuotaUser _cggPrettyPrint _cggUserIp
165+ = go _cgQuotaUser (Just _cgPrettyPrint) _cgUserIp
161− (Just _cggSponsorAccountId)
166+ (Just _cgSponsorAccountId)
163− _cggClientAccountId
168+ _cgClientAccountId
164− _cggOauthToken
169+ _cgOauthToken
165− _cggFields
170+ _cgFields
166− _cggAlt
171+ (Just _cgAlt)
168− = clientWithRoute (Proxy :: Proxy ClientaccessGetAPI)
173+ = clientWithRoute
174+ (Proxy :: Proxy ClientaccessGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Insert.hs+94−85
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,148 +20,156 @@
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessInsert@.
22−module AdExchangeBuyer.Clientaccess.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Insert
24 -- * REST Resource
25 -- * REST Resource
25− ClientaccessInsertAPI
26+ ClientaccessInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , clientaccessInsert
29+ , clientaccessInsert'
29− , ClientaccessInsert
30+ , ClientaccessInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , cQuotaUser
33+ , ciQuotaUser
33− , cPrettyPrint
34+ , ciPrettyPrint
34− , cUserIp
35+ , ciUserIp
35− , cSponsorAccountId
36+ , ciSponsorAccountId
37− , cClientAccountId
38+ , ciClientAccountId
38− , cOauthToken
39+ , ciOauthToken
39− , cFields
40+ , ciFields
43import Network.Google.AdExchangeBuyer.Types
44import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerClientaccessInsert@ which the
47-- | A resource alias for @AdexchangebuyerClientaccessInsert@ which the
47−-- 'ClientaccessInsert' request conforms to.
48+-- 'ClientaccessInsert'' request conforms to.
48−type ClientaccessInsertAPI =
49+type ClientaccessInsertResource =
49 "clientAccess" :>
50 "clientAccess" :>
51+ QueryParam "quotaUser" Text :>
52+ QueryParam "prettyPrint" Bool :>
53+ QueryParam "userIp" Text :>
50− QueryParam "sponsorAccountId" Int32 :>
54+ QueryParam "sponsorAccountId" Int32 :>
55+ QueryParam "key" Text :>
51− QueryParam "clientAccountId" Int64 :>
56+ QueryParam "clientAccountId" Int64 :>
57+ QueryParam "oauth_token" Text :>
58+ QueryParam "fields" Text :>
59+ QueryParam "alt" Alt :>
52− Post '[JSON] ClientAccessCapabilities
60+ Post '[JSON] ClientAccessCapabilities
55−-- /See:/ 'clientaccessInsert' smart constructor.
63+-- /See:/ 'clientaccessInsert'' smart constructor.
56−data ClientaccessInsert = ClientaccessInsert
64+data ClientaccessInsert' = ClientaccessInsert'
57− { _cQuotaUser :: !(Maybe Text)
65+ { _ciQuotaUser :: !(Maybe Text)
58− , _cPrettyPrint :: !Bool
66+ , _ciPrettyPrint :: !Bool
59− , _cUserIp :: !(Maybe Text)
67+ , _ciUserIp :: !(Maybe Text)
60− , _cSponsorAccountId :: !(Maybe Int32)
68+ , _ciSponsorAccountId :: !(Maybe Int32)
61− , _cKey :: !(Maybe Text)
69+ , _ciKey :: !(Maybe Text)
62− , _cClientAccountId :: !(Maybe Int64)
70+ , _ciClientAccountId :: !(Maybe Int64)
63− , _cOauthToken :: !(Maybe Text)
71+ , _ciOauthToken :: !(Maybe Text)
64− , _cFields :: !(Maybe Text)
72+ , _ciFields :: !(Maybe Text)
65− , _cAlt :: !Text
73+ , _ciAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'ClientaccessInsert'' with the minimum fields required to make a request.
76-- | Creates a value of 'ClientaccessInsert'' with the minimum fields required to make a request.
70-- 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:
72−-- * 'cQuotaUser'
80+-- * 'ciQuotaUser'
74−-- * 'cPrettyPrint'
82+-- * 'ciPrettyPrint'
76−-- * 'cUserIp'
84+-- * 'ciUserIp'
78−-- * 'cSponsorAccountId'
86+-- * 'ciSponsorAccountId'
80−-- * 'cKey'
88+-- * 'ciKey'
82−-- * 'cClientAccountId'
90+-- * 'ciClientAccountId'
84−-- * 'cOauthToken'
92+-- * 'ciOauthToken'
86−-- * 'cFields'
94+-- * 'ciFields'
88−-- * 'cAlt'
96+-- * 'ciAlt'
89−clientaccessInsert
97+clientaccessInsert'
90− :: ClientaccessInsert
98+ :: ClientaccessInsert'
91−clientaccessInsert =
99+clientaccessInsert' =
92− ClientaccessInsert
100+ ClientaccessInsert'
93− { _cQuotaUser = Nothing
101+ { _ciQuotaUser = Nothing
94− , _cPrettyPrint = True
102+ , _ciPrettyPrint = True
95− , _cUserIp = Nothing
103+ , _ciUserIp = Nothing
96− , _cSponsorAccountId = Nothing
104+ , _ciSponsorAccountId = Nothing
97− , _cKey = Nothing
105+ , _ciKey = Nothing
98− , _cClientAccountId = Nothing
106+ , _ciClientAccountId = Nothing
99− , _cOauthToken = Nothing
107+ , _ciOauthToken = Nothing
100− , _cFields = Nothing
108+ , _ciFields = Nothing
101− , _cAlt = "json"
109+ , _ciAlt = JSON
104-- | Available to use for quota purposes for server-side applications. Can be
112-- | 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
113-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
114-- characters. Overrides userIp if both are provided.
107−cQuotaUser :: Lens' ClientaccessInsert' (Maybe Text)
115+ciQuotaUser :: Lens' ClientaccessInsert' (Maybe Text)
108−cQuotaUser
116+ciQuotaUser
109− = lens _cQuotaUser (\ s a -> s{_cQuotaUser = a})
117+ = lens _ciQuotaUser (\ s a -> s{_ciQuotaUser = a})
111-- | Returns response with indentations and line breaks.
119-- | Returns response with indentations and line breaks.
112−cPrettyPrint :: Lens' ClientaccessInsert' Bool
120+ciPrettyPrint :: Lens' ClientaccessInsert' Bool
113−cPrettyPrint
121+ciPrettyPrint
114− = lens _cPrettyPrint (\ s a -> s{_cPrettyPrint = a})
122+ = lens _ciPrettyPrint
123+ (\ s a -> s{_ciPrettyPrint = a})
116-- | IP address of the site where the request originates. Use this if you
125-- | IP address of the site where the request originates. Use this if you
117-- want to enforce per-user limits.
126-- want to enforce per-user limits.
118−cUserIp :: Lens' ClientaccessInsert' (Maybe Text)
127+ciUserIp :: Lens' ClientaccessInsert' (Maybe Text)
119−cUserIp = lens _cUserIp (\ s a -> s{_cUserIp = a})
128+ciUserIp = lens _ciUserIp (\ s a -> s{_ciUserIp = a})
121−cSponsorAccountId :: Lens' ClientaccessInsert' (Maybe Int32)
130+ciSponsorAccountId :: Lens' ClientaccessInsert' (Maybe Int32)
122−cSponsorAccountId
131+ciSponsorAccountId
123− = lens _cSponsorAccountId
132+ = lens _ciSponsorAccountId
124− (\ s a -> s{_cSponsorAccountId = a})
133+ (\ s a -> s{_ciSponsorAccountId = a})
126-- | API key. Your API key identifies your project and provides you with API
135-- | 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
136-- access, quota, and reports. Required unless you provide an OAuth 2.0
129−cKey :: Lens' ClientaccessInsert' (Maybe Text)
138+ciKey :: Lens' ClientaccessInsert' (Maybe Text)
130−cKey = lens _cKey (\ s a -> s{_cKey = a})
139+ciKey = lens _ciKey (\ s a -> s{_ciKey = a})
132−cClientAccountId :: Lens' ClientaccessInsert' (Maybe Int64)
141+ciClientAccountId :: Lens' ClientaccessInsert' (Maybe Int64)
133−cClientAccountId
142+ciClientAccountId
134− = lens _cClientAccountId
143+ = lens _ciClientAccountId
135− (\ s a -> s{_cClientAccountId = a})
144+ (\ s a -> s{_ciClientAccountId = a})
137-- | OAuth 2.0 token for the current user.
146-- | OAuth 2.0 token for the current user.
138−cOauthToken :: Lens' ClientaccessInsert' (Maybe Text)
147+ciOauthToken :: Lens' ClientaccessInsert' (Maybe Text)
139−cOauthToken
148+ciOauthToken
140− = lens _cOauthToken (\ s a -> s{_cOauthToken = a})
149+ = lens _ciOauthToken (\ s a -> s{_ciOauthToken = a})
142-- | Selector specifying which fields to include in a partial response.
151-- | Selector specifying which fields to include in a partial response.
143−cFields :: Lens' ClientaccessInsert' (Maybe Text)
152+ciFields :: Lens' ClientaccessInsert' (Maybe Text)
144−cFields = lens _cFields (\ s a -> s{_cFields = a})
153+ciFields = lens _ciFields (\ s a -> s{_ciFields = a})
146-- | Data format for the response.
155-- | Data format for the response.
147−cAlt :: Lens' ClientaccessInsert' Text
156+ciAlt :: Lens' ClientaccessInsert' Alt
148−cAlt = lens _cAlt (\ s a -> s{_cAlt = a})
157+ciAlt = lens _ciAlt (\ s a -> s{_ciAlt = a})
150instance GoogleRequest ClientaccessInsert' where
159instance GoogleRequest ClientaccessInsert' where
151 type Rs ClientaccessInsert' =
160 type Rs ClientaccessInsert' =
152 ClientAccessCapabilities
161 ClientAccessCapabilities
153 request = requestWithRoute defReq adExchangeBuyerURL
162 request = requestWithRoute defReq adExchangeBuyerURL
154− requestWithRoute r u ClientaccessInsert{..}
163+ requestWithRoute r u ClientaccessInsert'{..}
155− = go _cQuotaUser _cPrettyPrint _cUserIp
164+ = go _ciQuotaUser (Just _ciPrettyPrint) _ciUserIp
156− _cSponsorAccountId
165+ _ciSponsorAccountId
158− _cClientAccountId
167+ _ciClientAccountId
159− _cOauthToken
168+ _ciOauthToken
160− _cFields
169+ _ciFields
161− _cAlt
170+ (Just _ciAlt)
163 = clientWithRoute
172 = clientWithRoute
164− (Proxy :: Proxy ClientaccessInsertAPI)
173+ (Proxy :: Proxy ClientaccessInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/List.hs+72−68
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,127 +20,130 @@
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessList@.
22−module AdExchangeBuyer.Clientaccess.List
23+module Network.Google.Resource.AdExchangeBuyer.Clientaccess.List
24 -- * REST Resource
25 -- * REST Resource
25− ClientaccessListAPI
26+ ClientaccessListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , clientaccessList
29+ , clientaccessList'
29− , ClientaccessList
30+ , ClientaccessList'
31 -- * Request Lenses
32 -- * Request Lenses
32− , cliQuotaUser
33+ , cQuotaUser
33− , cliPrettyPrint
34+ , cPrettyPrint
34− , cliUserIp
35+ , cUserIp
36− , cliOauthToken
37+ , cOauthToken
37− , cliFields
38+ , cFields
41import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerClientaccessList@ which the
45-- | A resource alias for @AdexchangebuyerClientaccessList@ which the
45−-- 'ClientaccessList' request conforms to.
46+-- 'ClientaccessList'' request conforms to.
46−type ClientaccessListAPI =
47+type ClientaccessListResource =
47 "clientAccess" :>
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 :>
48− Get '[JSON] ListClientAccessCapabilitiesResponse
56+ Get '[JSON] ListClientAccessCapabilitiesResponse
51−-- /See:/ 'clientaccessList' smart constructor.
59+-- /See:/ 'clientaccessList'' smart constructor.
52−data ClientaccessList = ClientaccessList
60+data ClientaccessList' = ClientaccessList'
53− { _cliQuotaUser :: !(Maybe Text)
61+ { _cQuotaUser :: !(Maybe Text)
54− , _cliPrettyPrint :: !Bool
62+ , _cPrettyPrint :: !Bool
55− , _cliUserIp :: !(Maybe Text)
63+ , _cUserIp :: !(Maybe Text)
56− , _cliKey :: !(Maybe Text)
64+ , _cKey :: !(Maybe Text)
57− , _cliOauthToken :: !(Maybe Text)
65+ , _cOauthToken :: !(Maybe Text)
58− , _cliFields :: !(Maybe Text)
66+ , _cFields :: !(Maybe Text)
59− , _cliAlt :: !Text
67+ , _cAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'ClientaccessList'' with the minimum fields required to make a request.
70-- | Creates a value of 'ClientaccessList'' with the minimum fields required to make a request.
64-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
66−-- * 'cliQuotaUser'
74+-- * 'cQuotaUser'
68−-- * 'cliPrettyPrint'
76+-- * 'cPrettyPrint'
70−-- * 'cliUserIp'
78+-- * 'cUserIp'
72−-- * 'cliKey'
80+-- * 'cKey'
74−-- * 'cliOauthToken'
82+-- * 'cOauthToken'
76−-- * 'cliFields'
84+-- * 'cFields'
78−-- * 'cliAlt'
86+-- * 'cAlt'
79−clientaccessList
87+clientaccessList'
80− :: ClientaccessList
88+ :: ClientaccessList'
81−clientaccessList =
89+clientaccessList' =
82− ClientaccessList
90+ ClientaccessList'
83− { _cliQuotaUser = Nothing
91+ { _cQuotaUser = Nothing
84− , _cliPrettyPrint = True
92+ , _cPrettyPrint = True
85− , _cliUserIp = Nothing
93+ , _cUserIp = Nothing
86− , _cliKey = Nothing
94+ , _cKey = Nothing
87− , _cliOauthToken = Nothing
95+ , _cOauthToken = Nothing
88− , _cliFields = Nothing
96+ , _cFields = Nothing
89− , _cliAlt = "json"
97+ , _cAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
93-- any arbitrary string assigned to a user, but should not exceed 40
101-- any arbitrary string assigned to a user, but should not exceed 40
94-- characters. Overrides userIp if both are provided.
102-- characters. Overrides userIp if both are provided.
95−cliQuotaUser :: Lens' ClientaccessList' (Maybe Text)
103+cQuotaUser :: Lens' ClientaccessList' (Maybe Text)
96−cliQuotaUser
104+cQuotaUser
97− = lens _cliQuotaUser (\ s a -> s{_cliQuotaUser = a})
105+ = lens _cQuotaUser (\ s a -> s{_cQuotaUser = a})
99-- | Returns response with indentations and line breaks.
107-- | Returns response with indentations and line breaks.
100−cliPrettyPrint :: Lens' ClientaccessList' Bool
108+cPrettyPrint :: Lens' ClientaccessList' Bool
101−cliPrettyPrint
109+cPrettyPrint
102− = lens _cliPrettyPrint
110+ = lens _cPrettyPrint (\ s a -> s{_cPrettyPrint = a})
103− (\ s a -> s{_cliPrettyPrint = a})
105-- | IP address of the site where the request originates. Use this if you
112-- | IP address of the site where the request originates. Use this if you
106-- want to enforce per-user limits.
113-- want to enforce per-user limits.
107−cliUserIp :: Lens' ClientaccessList' (Maybe Text)
114+cUserIp :: Lens' ClientaccessList' (Maybe Text)
108−cliUserIp
115+cUserIp = lens _cUserIp (\ s a -> s{_cUserIp = a})
109− = lens _cliUserIp (\ s a -> s{_cliUserIp = a})
111-- | 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
112-- 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
114−cliKey :: Lens' ClientaccessList' (Maybe Text)
120+cKey :: Lens' ClientaccessList' (Maybe Text)
115−cliKey = lens _cliKey (\ s a -> s{_cliKey = a})
121+cKey = lens _cKey (\ s a -> s{_cKey = a})
117-- | OAuth 2.0 token for the current user.
123-- | OAuth 2.0 token for the current user.
118−cliOauthToken :: Lens' ClientaccessList' (Maybe Text)
124+cOauthToken :: Lens' ClientaccessList' (Maybe Text)
119−cliOauthToken
125+cOauthToken
120− = lens _cliOauthToken
126+ = lens _cOauthToken (\ s a -> s{_cOauthToken = a})
121− (\ s a -> s{_cliOauthToken = a})
123-- | Selector specifying which fields to include in a partial response.
128-- | Selector specifying which fields to include in a partial response.
124−cliFields :: Lens' ClientaccessList' (Maybe Text)
129+cFields :: Lens' ClientaccessList' (Maybe Text)
125−cliFields
130+cFields = lens _cFields (\ s a -> s{_cFields = a})
126− = lens _cliFields (\ s a -> s{_cliFields = a})
128-- | Data format for the response.
132-- | Data format for the response.
129−cliAlt :: Lens' ClientaccessList' Text
133+cAlt :: Lens' ClientaccessList' Alt
130−cliAlt = lens _cliAlt (\ s a -> s{_cliAlt = a})
134+cAlt = lens _cAlt (\ s a -> s{_cAlt = a})
132instance GoogleRequest ClientaccessList' where
136instance GoogleRequest ClientaccessList' where
133 type Rs ClientaccessList' =
137 type Rs ClientaccessList' =
134 ListClientAccessCapabilitiesResponse
138 ListClientAccessCapabilitiesResponse
135 request = requestWithRoute defReq adExchangeBuyerURL
139 request = requestWithRoute defReq adExchangeBuyerURL
136− requestWithRoute r u ClientaccessList{..}
140+ requestWithRoute r u ClientaccessList'{..}
137− = go _cliQuotaUser _cliPrettyPrint _cliUserIp _cliKey
141+ = go _cQuotaUser (Just _cPrettyPrint) _cUserIp _cKey
138− _cliOauthToken
142+ _cOauthToken
139− _cliFields
143+ _cFields
140− _cliAlt
144+ (Just _cAlt)
142 = clientWithRoute
146 = clientWithRoute
143− (Proxy :: Proxy ClientaccessListAPI)
147+ (Proxy :: Proxy ClientaccessListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Patch.hs+29−21
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessPatch@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessPatch@.
22−module AdExchangeBuyer.Clientaccess.Patch
23+module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Patch
24 -- * REST Resource
25 -- * REST Resource
25− ClientaccessPatchAPI
26+ ClientaccessPatchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , clientaccessPatch
29+ , clientaccessPatch'
29− , ClientaccessPatch
30+ , ClientaccessPatch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , cpQuotaUser
33 , cpQuotaUser
@@ -44,16 +45,23 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerClientaccessPatch@ which the
47-- | A resource alias for @AdexchangebuyerClientaccessPatch@ which the
47−-- 'ClientaccessPatch' request conforms to.
48+-- 'ClientaccessPatch'' request conforms to.
48−type ClientaccessPatchAPI =
49+type ClientaccessPatchResource =
49 "clientAccess" :>
50 "clientAccess" :>
50 Capture "clientAccountId" Int64 :>
51 Capture "clientAccountId" Int64 :>
52+ QueryParam "quotaUser" Text :>
53+ QueryParam "prettyPrint" Bool :>
54+ QueryParam "userIp" Text :>
51− QueryParam "sponsorAccountId" Int32 :>
55+ QueryParam "sponsorAccountId" Int32 :>
56+ QueryParam "key" Text :>
57+ QueryParam "oauth_token" Text :>
58+ QueryParam "fields" Text :>
59+ QueryParam "alt" Alt :>
52− Patch '[JSON] ClientAccessCapabilities
60+ Patch '[JSON] ClientAccessCapabilities
55−-- /See:/ 'clientaccessPatch' smart constructor.
63+-- /See:/ 'clientaccessPatch'' smart constructor.
56−data ClientaccessPatch = ClientaccessPatch
64+data ClientaccessPatch' = ClientaccessPatch'
57 { _cpQuotaUser :: !(Maybe Text)
65 { _cpQuotaUser :: !(Maybe Text)
58 , _cpPrettyPrint :: !Bool
66 , _cpPrettyPrint :: !Bool
59 , _cpUserIp :: !(Maybe Text)
67 , _cpUserIp :: !(Maybe Text)
@@ -62,7 +70,7 @@ data ClientaccessPatch = ClientaccessPatch
62 , _cpClientAccountId :: !Int64
70 , _cpClientAccountId :: !Int64
63 , _cpOauthToken :: !(Maybe Text)
71 , _cpOauthToken :: !(Maybe Text)
64 , _cpFields :: !(Maybe Text)
72 , _cpFields :: !(Maybe Text)
65− , _cpAlt :: !Text
73+ , _cpAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'ClientaccessPatch'' with the minimum fields required to make a request.
76-- | Creates a value of 'ClientaccessPatch'' with the minimum fields required to make a request.
@@ -86,12 +94,12 @@ data ClientaccessPatch = ClientaccessPatch
86-- * 'cpFields'
94-- * 'cpFields'
88-- * 'cpAlt'
96-- * 'cpAlt'
89−clientaccessPatch
97+clientaccessPatch'
90 :: Int32 -- ^ 'sponsorAccountId'
98 :: Int32 -- ^ 'sponsorAccountId'
91 -> Int64 -- ^ 'clientAccountId'
99 -> Int64 -- ^ 'clientAccountId'
92− -> ClientaccessPatch
100+ -> ClientaccessPatch'
93−clientaccessPatch pCpSponsorAccountId_ pCpClientAccountId_ =
101+clientaccessPatch' pCpSponsorAccountId_ pCpClientAccountId_ =
94− ClientaccessPatch
102+ ClientaccessPatch'
95 { _cpQuotaUser = Nothing
103 { _cpQuotaUser = Nothing
96 , _cpPrettyPrint = True
104 , _cpPrettyPrint = True
97 , _cpUserIp = Nothing
105 , _cpUserIp = Nothing
@@ -100,7 +108,7 @@ clientaccessPatch pCpSponsorAccountId_ pCpClientAccountId_ =
100 , _cpClientAccountId = pCpClientAccountId_
108 , _cpClientAccountId = pCpClientAccountId_
101 , _cpOauthToken = Nothing
109 , _cpOauthToken = Nothing
102 , _cpFields = Nothing
110 , _cpFields = Nothing
103− , _cpAlt = "json"
111+ , _cpAlt = JSON
106-- | 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
@@ -147,22 +155,22 @@ cpFields :: Lens' ClientaccessPatch' (Maybe Text)
147cpFields = lens _cpFields (\ s a -> s{_cpFields = a})
155cpFields = lens _cpFields (\ s a -> s{_cpFields = a})
149-- | Data format for the response.
157-- | Data format for the response.
150−cpAlt :: Lens' ClientaccessPatch' Text
158+cpAlt :: Lens' ClientaccessPatch' Alt
151cpAlt = lens _cpAlt (\ s a -> s{_cpAlt = a})
159cpAlt = lens _cpAlt (\ s a -> s{_cpAlt = a})
153instance GoogleRequest ClientaccessPatch' where
161instance GoogleRequest ClientaccessPatch' where
154 type Rs ClientaccessPatch' = ClientAccessCapabilities
162 type Rs ClientaccessPatch' = ClientAccessCapabilities
155 request = requestWithRoute defReq adExchangeBuyerURL
163 request = requestWithRoute defReq adExchangeBuyerURL
156− requestWithRoute r u ClientaccessPatch{..}
164+ requestWithRoute r u ClientaccessPatch'{..}
157− = go _cpQuotaUser _cpPrettyPrint _cpUserIp
165+ = go _cpQuotaUser (Just _cpPrettyPrint) _cpUserIp
158 (Just _cpSponsorAccountId)
166 (Just _cpSponsorAccountId)
160 _cpClientAccountId
168 _cpClientAccountId
161 _cpOauthToken
169 _cpOauthToken
162 _cpFields
170 _cpFields
163− _cpAlt
171+ (Just _cpAlt)
165 = clientWithRoute
173 = clientWithRoute
166− (Proxy :: Proxy ClientaccessPatchAPI)
174+ (Proxy :: Proxy ClientaccessPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Clientaccess/Update.hs+29−21
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessUpdate@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerClientaccessUpdate@.
22−module AdExchangeBuyer.Clientaccess.Update
23+module Network.Google.Resource.AdExchangeBuyer.Clientaccess.Update
24 -- * REST Resource
25 -- * REST Resource
25− ClientaccessUpdateAPI
26+ ClientaccessUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , clientaccessUpdate
29+ , clientaccessUpdate'
29− , ClientaccessUpdate
30+ , ClientaccessUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , cuQuotaUser
33 , cuQuotaUser
@@ -44,16 +45,23 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerClientaccessUpdate@ which the
47-- | A resource alias for @AdexchangebuyerClientaccessUpdate@ which the
47−-- 'ClientaccessUpdate' request conforms to.
48+-- 'ClientaccessUpdate'' request conforms to.
48−type ClientaccessUpdateAPI =
49+type ClientaccessUpdateResource =
49 "clientAccess" :>
50 "clientAccess" :>
50 Capture "clientAccountId" Int64 :>
51 Capture "clientAccountId" Int64 :>
52+ QueryParam "quotaUser" Text :>
53+ QueryParam "prettyPrint" Bool :>
54+ QueryParam "userIp" Text :>
51− QueryParam "sponsorAccountId" Int32 :>
55+ QueryParam "sponsorAccountId" Int32 :>
56+ QueryParam "key" Text :>
57+ QueryParam "oauth_token" Text :>
58+ QueryParam "fields" Text :>
59+ QueryParam "alt" Alt :>
52− Put '[JSON] ClientAccessCapabilities
60+ Put '[JSON] ClientAccessCapabilities
55−-- /See:/ 'clientaccessUpdate' smart constructor.
63+-- /See:/ 'clientaccessUpdate'' smart constructor.
56−data ClientaccessUpdate = ClientaccessUpdate
64+data ClientaccessUpdate' = ClientaccessUpdate'
57 { _cuQuotaUser :: !(Maybe Text)
65 { _cuQuotaUser :: !(Maybe Text)
58 , _cuPrettyPrint :: !Bool
66 , _cuPrettyPrint :: !Bool
59 , _cuUserIp :: !(Maybe Text)
67 , _cuUserIp :: !(Maybe Text)
@@ -62,7 +70,7 @@ data ClientaccessUpdate = ClientaccessUpdate
62 , _cuClientAccountId :: !Int64
70 , _cuClientAccountId :: !Int64
63 , _cuOauthToken :: !(Maybe Text)
71 , _cuOauthToken :: !(Maybe Text)
64 , _cuFields :: !(Maybe Text)
72 , _cuFields :: !(Maybe Text)
65− , _cuAlt :: !Text
73+ , _cuAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'ClientaccessUpdate'' with the minimum fields required to make a request.
76-- | Creates a value of 'ClientaccessUpdate'' with the minimum fields required to make a request.
@@ -86,12 +94,12 @@ data ClientaccessUpdate = ClientaccessUpdate
86-- * 'cuFields'
94-- * 'cuFields'
88-- * 'cuAlt'
96-- * 'cuAlt'
89−clientaccessUpdate
97+clientaccessUpdate'
90 :: Int32 -- ^ 'sponsorAccountId'
98 :: Int32 -- ^ 'sponsorAccountId'
91 -> Int64 -- ^ 'clientAccountId'
99 -> Int64 -- ^ 'clientAccountId'
92− -> ClientaccessUpdate
100+ -> ClientaccessUpdate'
93−clientaccessUpdate pCuSponsorAccountId_ pCuClientAccountId_ =
101+clientaccessUpdate' pCuSponsorAccountId_ pCuClientAccountId_ =
94− ClientaccessUpdate
102+ ClientaccessUpdate'
95 { _cuQuotaUser = Nothing
103 { _cuQuotaUser = Nothing
96 , _cuPrettyPrint = True
104 , _cuPrettyPrint = True
97 , _cuUserIp = Nothing
105 , _cuUserIp = Nothing
@@ -100,7 +108,7 @@ clientaccessUpdate pCuSponsorAccountId_ pCuClientAccountId_ =
100 , _cuClientAccountId = pCuClientAccountId_
108 , _cuClientAccountId = pCuClientAccountId_
101 , _cuOauthToken = Nothing
109 , _cuOauthToken = Nothing
102 , _cuFields = Nothing
110 , _cuFields = Nothing
103− , _cuAlt = "json"
111+ , _cuAlt = JSON
106-- | 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
@@ -147,23 +155,23 @@ cuFields :: Lens' ClientaccessUpdate' (Maybe Text)
147cuFields = lens _cuFields (\ s a -> s{_cuFields = a})
155cuFields = lens _cuFields (\ s a -> s{_cuFields = a})
149-- | Data format for the response.
157-- | Data format for the response.
150−cuAlt :: Lens' ClientaccessUpdate' Text
158+cuAlt :: Lens' ClientaccessUpdate' Alt
151cuAlt = lens _cuAlt (\ s a -> s{_cuAlt = a})
159cuAlt = lens _cuAlt (\ s a -> s{_cuAlt = a})
153instance GoogleRequest ClientaccessUpdate' where
161instance GoogleRequest ClientaccessUpdate' where
154 type Rs ClientaccessUpdate' =
162 type Rs ClientaccessUpdate' =
155 ClientAccessCapabilities
163 ClientAccessCapabilities
156 request = requestWithRoute defReq adExchangeBuyerURL
164 request = requestWithRoute defReq adExchangeBuyerURL
157− requestWithRoute r u ClientaccessUpdate{..}
165+ requestWithRoute r u ClientaccessUpdate'{..}
158− = go _cuQuotaUser _cuPrettyPrint _cuUserIp
166+ = go _cuQuotaUser (Just _cuPrettyPrint) _cuUserIp
159 (Just _cuSponsorAccountId)
167 (Just _cuSponsorAccountId)
161 _cuClientAccountId
169 _cuClientAccountId
162 _cuOauthToken
170 _cuOauthToken
163 _cuFields
171 _cuFields
164− _cuAlt
172+ (Just _cuAlt)
166 = clientWithRoute
174 = clientWithRoute
167− (Proxy :: Proxy ClientaccessUpdateAPI)
175+ (Proxy :: Proxy ClientaccessUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Get.hs+96−83
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,151 +21,163 @@
20-- 30-40 minutes after submission.
21-- 30-40 minutes after submission.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerCreativesGet@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerCreativesGet@.
23−module AdExchangeBuyer.Creatives.Get
24+module Network.Google.Resource.AdExchangeBuyer.Creatives.Get
25 -- * REST Resource
26 -- * REST Resource
26− CreativesGetAPI
27+ CreativesGetResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , creativesGet
30+ , creativesGet'
30− , CreativesGet
31+ , CreativesGet'
32 -- * Request Lenses
33 -- * Request Lenses
33− , cgQuotaUser
34+ , cggQuotaUser
34− , cgPrettyPrint
35+ , cggPrettyPrint
35− , cgBuyerCreativeId
36+ , cggBuyerCreativeId
36− , cgUserIp
37+ , cggUserIp
37− , cgAccountId
38+ , cggAccountId
39− , cgOauthToken
40+ , cggOauthToken
40− , cgFields
41+ , cggFields
44import Network.Google.AdExchangeBuyer.Types
45import Network.Google.AdExchangeBuyer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangebuyerCreativesGet@ which the
48-- | A resource alias for @AdexchangebuyerCreativesGet@ which the
48−-- 'CreativesGet' request conforms to.
49+-- 'CreativesGet'' request conforms to.
49−type CreativesGetAPI =
50+type CreativesGetResource =
50 "creatives" :>
51 "creatives" :>
51 Capture "accountId" Int32 :>
52 Capture "accountId" Int32 :>
52 Capture "buyerCreativeId" Text :>
53 Capture "buyerCreativeId" 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 :>
53− Get '[JSON] Creative
60+ QueryParam "alt" Alt :> Get '[JSON] Creative
55-- | Gets the status for a single creative. A creative will be available
62-- | Gets the status for a single creative. A creative will be available
56-- 30-40 minutes after submission.
63-- 30-40 minutes after submission.
58−-- /See:/ 'creativesGet' smart constructor.
65+-- /See:/ 'creativesGet'' smart constructor.
59−data CreativesGet = CreativesGet
66+data CreativesGet' = CreativesGet'
60− { _cgQuotaUser :: !(Maybe Text)
67+ { _cggQuotaUser :: !(Maybe Text)
61− , _cgPrettyPrint :: !Bool
68+ , _cggPrettyPrint :: !Bool
62− , _cgBuyerCreativeId :: !Text
69+ , _cggBuyerCreativeId :: !Text
63− , _cgUserIp :: !(Maybe Text)
70+ , _cggUserIp :: !(Maybe Text)
64− , _cgAccountId :: !Int32
71+ , _cggAccountId :: !Int32
65− , _cgKey :: !(Maybe Text)
72+ , _cggKey :: !(Maybe Text)
66− , _cgOauthToken :: !(Maybe Text)
73+ , _cggOauthToken :: !(Maybe Text)
67− , _cgFields :: !(Maybe Text)
74+ , _cggFields :: !(Maybe Text)
68− , _cgAlt :: !Text
75+ , _cggAlt :: !Alt
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
76 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.
78-- | Creates a value of 'CreativesGet'' with the minimum fields required to make a request.
73-- Use one of the following lenses to modify other fields as desired:
80-- Use one of the following lenses to modify other fields as desired:
75−-- * 'cgQuotaUser'
82+-- * 'cggQuotaUser'
77−-- * 'cgPrettyPrint'
84+-- * 'cggPrettyPrint'
79−-- * 'cgBuyerCreativeId'
86+-- * 'cggBuyerCreativeId'
81−-- * 'cgUserIp'
88+-- * 'cggUserIp'
83−-- * 'cgAccountId'
90+-- * 'cggAccountId'
85−-- * 'cgKey'
92+-- * 'cggKey'
87−-- * 'cgOauthToken'
94+-- * 'cggOauthToken'
89−-- * 'cgFields'
96+-- * 'cggFields'
91−-- * 'cgAlt'
98+-- * 'cggAlt'
92−creativesGet
99+creativesGet'
93 :: Text -- ^ 'buyerCreativeId'
100 :: Text -- ^ 'buyerCreativeId'
94 -> Int32 -- ^ 'accountId'
101 -> Int32 -- ^ 'accountId'
95− -> CreativesGet
102+ -> CreativesGet'
96−creativesGet pCgBuyerCreativeId_ pCgAccountId_ =
103+creativesGet' pCggBuyerCreativeId_ pCggAccountId_ =
97− CreativesGet
104+ CreativesGet'
98− { _cgQuotaUser = Nothing
105+ { _cggQuotaUser = Nothing
99− , _cgPrettyPrint = True
106+ , _cggPrettyPrint = True
100− , _cgBuyerCreativeId = pCgBuyerCreativeId_
107+ , _cggBuyerCreativeId = pCggBuyerCreativeId_
101− , _cgUserIp = Nothing
108+ , _cggUserIp = Nothing
102− , _cgAccountId = pCgAccountId_
109+ , _cggAccountId = pCggAccountId_
103− , _cgKey = Nothing
110+ , _cggKey = Nothing
104− , _cgOauthToken = Nothing
111+ , _cggOauthToken = Nothing
105− , _cgFields = Nothing
112+ , _cggFields = Nothing
106− , _cgAlt = "json"
113+ , _cggAlt = JSON
109-- | Available to use for quota purposes for server-side applications. Can be
116-- | 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
117-- any arbitrary string assigned to a user, but should not exceed 40
111-- characters. Overrides userIp if both are provided.
118-- characters. Overrides userIp if both are provided.
112−cgQuotaUser :: Lens' CreativesGet' (Maybe Text)
119+cggQuotaUser :: Lens' CreativesGet' (Maybe Text)
113−cgQuotaUser
120+cggQuotaUser
114− = lens _cgQuotaUser (\ s a -> s{_cgQuotaUser = a})
121+ = lens _cggQuotaUser (\ s a -> s{_cggQuotaUser = a})
116-- | Returns response with indentations and line breaks.
123-- | Returns response with indentations and line breaks.
117−cgPrettyPrint :: Lens' CreativesGet' Bool
124+cggPrettyPrint :: Lens' CreativesGet' Bool
118−cgPrettyPrint
125+cggPrettyPrint
119− = lens _cgPrettyPrint
126+ = lens _cggPrettyPrint
120− (\ s a -> s{_cgPrettyPrint = a})
127+ (\ s a -> s{_cggPrettyPrint = a})
122-- | The buyer-specific id for this creative.
129-- | The buyer-specific id for this creative.
123−cgBuyerCreativeId :: Lens' CreativesGet' Text
130+cggBuyerCreativeId :: Lens' CreativesGet' Text
124−cgBuyerCreativeId
131+cggBuyerCreativeId
125− = lens _cgBuyerCreativeId
132+ = lens _cggBuyerCreativeId
126− (\ s a -> s{_cgBuyerCreativeId = a})
133+ (\ s a -> s{_cggBuyerCreativeId = a})
128-- | 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
129-- want to enforce per-user limits.
136-- want to enforce per-user limits.
130−cgUserIp :: Lens' CreativesGet' (Maybe Text)
137+cggUserIp :: Lens' CreativesGet' (Maybe Text)
131−cgUserIp = lens _cgUserIp (\ s a -> s{_cgUserIp = a})
138+cggUserIp
139+ = lens _cggUserIp (\ s a -> s{_cggUserIp = a})
133-- | The id for the account that will serve this creative.
141-- | The id for the account that will serve this creative.
134−cgAccountId :: Lens' CreativesGet' Int32
142+cggAccountId :: Lens' CreativesGet' Int32
135−cgAccountId
143+cggAccountId
136− = lens _cgAccountId (\ s a -> s{_cgAccountId = a})
144+ = lens _cggAccountId (\ s a -> s{_cggAccountId = a})
138-- | API key. Your API key identifies your project and provides you with API
146-- | 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
147-- access, quota, and reports. Required unless you provide an OAuth 2.0
141−cgKey :: Lens' CreativesGet' (Maybe Text)
149+cggKey :: Lens' CreativesGet' (Maybe Text)
142−cgKey = lens _cgKey (\ s a -> s{_cgKey = a})
150+cggKey = lens _cggKey (\ s a -> s{_cggKey = a})
144-- | OAuth 2.0 token for the current user.
152-- | OAuth 2.0 token for the current user.
145−cgOauthToken :: Lens' CreativesGet' (Maybe Text)
153+cggOauthToken :: Lens' CreativesGet' (Maybe Text)
146−cgOauthToken
154+cggOauthToken
147− = lens _cgOauthToken (\ s a -> s{_cgOauthToken = a})
155+ = lens _cggOauthToken
156+ (\ s a -> s{_cggOauthToken = a})
149-- | Selector specifying which fields to include in a partial response.
158-- | Selector specifying which fields to include in a partial response.
150−cgFields :: Lens' CreativesGet' (Maybe Text)
159+cggFields :: Lens' CreativesGet' (Maybe Text)
151−cgFields = lens _cgFields (\ s a -> s{_cgFields = a})
160+cggFields
161+ = lens _cggFields (\ s a -> s{_cggFields = a})
153-- | Data format for the response.
163-- | Data format for the response.
154−cgAlt :: Lens' CreativesGet' Text
164+cggAlt :: Lens' CreativesGet' Alt
155−cgAlt = lens _cgAlt (\ s a -> s{_cgAlt = a})
165+cggAlt = lens _cggAlt (\ s a -> s{_cggAlt = a})
157instance GoogleRequest CreativesGet' where
167instance GoogleRequest CreativesGet' where
158 type Rs CreativesGet' = Creative
168 type Rs CreativesGet' = Creative
159 request = requestWithRoute defReq adExchangeBuyerURL
169 request = requestWithRoute defReq adExchangeBuyerURL
160− requestWithRoute r u CreativesGet{..}
170+ requestWithRoute r u CreativesGet'{..}
161− = go _cgQuotaUser _cgPrettyPrint _cgBuyerCreativeId
171+ = go _cggQuotaUser (Just _cggPrettyPrint)
162− _cgUserIp
172+ _cggBuyerCreativeId
163− _cgAccountId
173+ _cggUserIp
164− _cgKey
174+ _cggAccountId
165− _cgOauthToken
175+ _cggKey
166− _cgFields
176+ _cggOauthToken
167− _cgAlt
177+ _cggFields
169− = clientWithRoute (Proxy :: Proxy CreativesGetAPI) r
180+ = clientWithRoute
181+ (Proxy :: Proxy CreativesGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/Insert.hs+78−65
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,122 +20,134 @@
19-- | Submit a new creative.
20-- | Submit a new creative.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerCreativesInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerCreativesInsert@.
22−module AdExchangeBuyer.Creatives.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Creatives.Insert
24 -- * REST Resource
25 -- * REST Resource
25− CreativesInsertAPI
26+ CreativesInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , creativesInsert
29+ , creativesInsert'
29− , CreativesInsert
30+ , CreativesInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , ciQuotaUser
33+ , creQuotaUser
33− , ciPrettyPrint
34+ , crePrettyPrint
34− , ciUserIp
35+ , creUserIp
36− , ciOauthToken
37+ , creOauthToken
37− , ciFields
38+ , creFields
41import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerCreativesInsert@ which the
45-- | A resource alias for @AdexchangebuyerCreativesInsert@ which the
45−-- 'CreativesInsert' request conforms to.
46+-- 'CreativesInsert'' request conforms to.
46−type CreativesInsertAPI =
47+type CreativesInsertResource =
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 :>
47− "creatives" :> Post '[JSON] Creative
55+ QueryParam "alt" Alt :> Post '[JSON] Creative
49-- | Submit a new creative.
57-- | Submit a new creative.
51−-- /See:/ 'creativesInsert' smart constructor.
59+-- /See:/ 'creativesInsert'' smart constructor.
52−data CreativesInsert = CreativesInsert
60+data CreativesInsert' = CreativesInsert'
53− { _ciQuotaUser :: !(Maybe Text)
61+ { _creQuotaUser :: !(Maybe Text)
54− , _ciPrettyPrint :: !Bool
62+ , _crePrettyPrint :: !Bool
55− , _ciUserIp :: !(Maybe Text)
63+ , _creUserIp :: !(Maybe Text)
56− , _ciKey :: !(Maybe Text)
64+ , _creKey :: !(Maybe Text)
57− , _ciOauthToken :: !(Maybe Text)
65+ , _creOauthToken :: !(Maybe Text)
58− , _ciFields :: !(Maybe Text)
66+ , _creFields :: !(Maybe Text)
59− , _ciAlt :: !Text
67+ , _creAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.
70-- | Creates a value of 'CreativesInsert'' with the minimum fields required to make a request.
64-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
66−-- * 'ciQuotaUser'
74+-- * 'creQuotaUser'
68−-- * 'ciPrettyPrint'
76+-- * 'crePrettyPrint'
70−-- * 'ciUserIp'
78+-- * 'creUserIp'
72−-- * 'ciKey'
80+-- * 'creKey'
74−-- * 'ciOauthToken'
82+-- * 'creOauthToken'
76−-- * 'ciFields'
84+-- * 'creFields'
78−-- * 'ciAlt'
86+-- * 'creAlt'
79−creativesInsert
87+creativesInsert'
80− :: CreativesInsert
88+ :: CreativesInsert'
81−creativesInsert =
89+creativesInsert' =
82− CreativesInsert
90+ CreativesInsert'
83− { _ciQuotaUser = Nothing
91+ { _creQuotaUser = Nothing
84− , _ciPrettyPrint = True
92+ , _crePrettyPrint = True
85− , _ciUserIp = Nothing
93+ , _creUserIp = Nothing
86− , _ciKey = Nothing
94+ , _creKey = Nothing
87− , _ciOauthToken = Nothing
95+ , _creOauthToken = Nothing
88− , _ciFields = Nothing
96+ , _creFields = Nothing
89− , _ciAlt = "json"
97+ , _creAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
93-- any arbitrary string assigned to a user, but should not exceed 40
101-- any arbitrary string assigned to a user, but should not exceed 40
94-- characters. Overrides userIp if both are provided.
102-- characters. Overrides userIp if both are provided.
95−ciQuotaUser :: Lens' CreativesInsert' (Maybe Text)
103+creQuotaUser :: Lens' CreativesInsert' (Maybe Text)
96−ciQuotaUser
104+creQuotaUser
97− = lens _ciQuotaUser (\ s a -> s{_ciQuotaUser = a})
105+ = lens _creQuotaUser (\ s a -> s{_creQuotaUser = a})
99-- | Returns response with indentations and line breaks.
107-- | Returns response with indentations and line breaks.
100−ciPrettyPrint :: Lens' CreativesInsert' Bool
108+crePrettyPrint :: Lens' CreativesInsert' Bool
101−ciPrettyPrint
109+crePrettyPrint
102− = lens _ciPrettyPrint
110+ = lens _crePrettyPrint
103− (\ s a -> s{_ciPrettyPrint = a})
111+ (\ s a -> s{_crePrettyPrint = a})
105-- | IP address of the site where the request originates. Use this if you
113-- | IP address of the site where the request originates. Use this if you
106-- want to enforce per-user limits.
114-- want to enforce per-user limits.
107−ciUserIp :: Lens' CreativesInsert' (Maybe Text)
115+creUserIp :: Lens' CreativesInsert' (Maybe Text)
108−ciUserIp = lens _ciUserIp (\ s a -> s{_ciUserIp = a})
116+creUserIp
117+ = lens _creUserIp (\ s a -> s{_creUserIp = a})
110-- | API key. Your API key identifies your project and provides you with API
119-- | API key. Your API key identifies your project and provides you with API
111-- access, quota, and reports. Required unless you provide an OAuth 2.0
120-- access, quota, and reports. Required unless you provide an OAuth 2.0
113−ciKey :: Lens' CreativesInsert' (Maybe Text)
122+creKey :: Lens' CreativesInsert' (Maybe Text)
114−ciKey = lens _ciKey (\ s a -> s{_ciKey = a})
123+creKey = lens _creKey (\ s a -> s{_creKey = a})
116-- | OAuth 2.0 token for the current user.
125-- | OAuth 2.0 token for the current user.
117−ciOauthToken :: Lens' CreativesInsert' (Maybe Text)
126+creOauthToken :: Lens' CreativesInsert' (Maybe Text)
118−ciOauthToken
127+creOauthToken
119− = lens _ciOauthToken (\ s a -> s{_ciOauthToken = a})
128+ = lens _creOauthToken
129+ (\ s a -> s{_creOauthToken = a})
121-- | Selector specifying which fields to include in a partial response.
131-- | Selector specifying which fields to include in a partial response.
122−ciFields :: Lens' CreativesInsert' (Maybe Text)
132+creFields :: Lens' CreativesInsert' (Maybe Text)
123−ciFields = lens _ciFields (\ s a -> s{_ciFields = a})
133+creFields
134+ = lens _creFields (\ s a -> s{_creFields = a})
125-- | Data format for the response.
136-- | Data format for the response.
126−ciAlt :: Lens' CreativesInsert' Text
137+creAlt :: Lens' CreativesInsert' Alt
127−ciAlt = lens _ciAlt (\ s a -> s{_ciAlt = a})
138+creAlt = lens _creAlt (\ s a -> s{_creAlt = a})
129instance GoogleRequest CreativesInsert' where
140instance GoogleRequest CreativesInsert' where
130 type Rs CreativesInsert' = Creative
141 type Rs CreativesInsert' = Creative
131 request = requestWithRoute defReq adExchangeBuyerURL
142 request = requestWithRoute defReq adExchangeBuyerURL
132− requestWithRoute r u CreativesInsert{..}
143+ requestWithRoute r u CreativesInsert'{..}
133− = go _ciQuotaUser _ciPrettyPrint _ciUserIp _ciKey
144+ = go _creQuotaUser (Just _crePrettyPrint) _creUserIp
134− _ciOauthToken
145+ _creKey
135− _ciFields
146+ _creOauthToken
136− _ciAlt
147+ _creFields
138− = clientWithRoute (Proxy :: Proxy CreativesInsertAPI)
150+ = clientWithRoute
151+ (Proxy :: Proxy CreativesInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Creatives/List.hs+44−30
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- creative will be available 30-40 minutes after submission.
21-- creative will be available 30-40 minutes after submission.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerCreativesList@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerCreativesList@.
23−module AdExchangeBuyer.Creatives.List
24+module Network.Google.Resource.AdExchangeBuyer.Creatives.List
25 -- * REST Resource
26 -- * REST Resource
26− CreativesListAPI
27+ CreativesListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , creativesList
30+ , creativesList'
30− , CreativesList
31+ , CreativesList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , clQuotaUser
34 , clQuotaUser
@@ -49,35 +50,45 @@ import Network.Google.AdExchangeBuyer.Types
49import Network.Google.Prelude
50import Network.Google.Prelude
51-- | A resource alias for @AdexchangebuyerCreativesList@ which the
52-- | A resource alias for @AdexchangebuyerCreativesList@ which the
52−-- 'CreativesList' request conforms to.
53+-- 'CreativesList'' request conforms to.
53−type CreativesListAPI =
54+type CreativesListResource =
54 "creatives" :>
55 "creatives" :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
55− QueryParams "buyerCreativeId" Text :>
58+ QueryParams "buyerCreativeId" Text :>
59+ QueryParam "userIp" Text :>
56− QueryParam "openAuctionStatusFilter" Text :>
60+ QueryParam "openAuctionStatusFilter"
61+ AdexchangebuyerCreativesListOpenAuctionStatusFilter
57− QueryParams "accountId" Int32 :>
63+ QueryParams "accountId" Int32 :>
64+ QueryParam "key" Text :>
58− QueryParam "pageToken" Text :>
65+ QueryParam "pageToken" Text :>
59− QueryParam "dealsStatusFilter" Text :>
66+ QueryParam "dealsStatusFilter"
67+ AdexchangebuyerCreativesListDealsStatusFilter
69+ QueryParam "oauth_token" Text :>
60− QueryParam "maxResults" Word32 :>
70+ QueryParam "maxResults" Word32 :>
71+ QueryParam "fields" Text :>
61− Get '[JSON] CreativesList
72+ QueryParam "alt" Alt :> Get '[JSON] CreativesList
63-- | Retrieves a list of the authenticated user\'s active creatives. A
74-- | Retrieves a list of the authenticated user\'s active creatives. A
64-- creative will be available 30-40 minutes after submission.
75-- creative will be available 30-40 minutes after submission.
66−-- /See:/ 'creativesList' smart constructor.
77+-- /See:/ 'creativesList'' smart constructor.
67−data CreativesList = CreativesList
78+data CreativesList' = CreativesList'
68 { _clQuotaUser :: !(Maybe Text)
79 { _clQuotaUser :: !(Maybe Text)
69 , _clPrettyPrint :: !Bool
80 , _clPrettyPrint :: !Bool
70 , _clBuyerCreativeId :: !(Maybe Text)
81 , _clBuyerCreativeId :: !(Maybe Text)
71 , _clUserIp :: !(Maybe Text)
82 , _clUserIp :: !(Maybe Text)
72− , _clOpenAuctionStatusFilter :: !(Maybe Text)
83+ , _clOpenAuctionStatusFilter :: !(Maybe AdexchangebuyerCreativesListOpenAuctionStatusFilter)
73 , _clAccountId :: !(Maybe Int32)
84 , _clAccountId :: !(Maybe Int32)
74 , _clKey :: !(Maybe Text)
85 , _clKey :: !(Maybe Text)
75 , _clPageToken :: !(Maybe Text)
86 , _clPageToken :: !(Maybe Text)
76− , _clDealsStatusFilter :: !(Maybe Text)
87+ , _clDealsStatusFilter :: !(Maybe AdexchangebuyerCreativesListDealsStatusFilter)
77 , _clOauthToken :: !(Maybe Text)
88 , _clOauthToken :: !(Maybe Text)
78 , _clMaxResults :: !(Maybe Word32)
89 , _clMaxResults :: !(Maybe Word32)
79 , _clFields :: !(Maybe Text)
90 , _clFields :: !(Maybe Text)
80− , _clAlt :: !Text
91+ , _clAlt :: !Alt
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
92 } deriving (Eq,Read,Show,Data,Typeable,Generic)
83-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.
94-- | Creates a value of 'CreativesList'' with the minimum fields required to make a request.
@@ -109,10 +120,10 @@ data CreativesList = CreativesList
109-- * 'clFields'
120-- * 'clFields'
111-- * 'clAlt'
122-- * 'clAlt'
112−creativesList
123+creativesList'
113− :: CreativesList
124+ :: CreativesList'
114−creativesList =
125+creativesList' =
115− CreativesList
126+ CreativesList'
116 { _clQuotaUser = Nothing
127 { _clQuotaUser = Nothing
117 , _clPrettyPrint = True
128 , _clPrettyPrint = True
118 , _clBuyerCreativeId = Nothing
129 , _clBuyerCreativeId = Nothing
@@ -125,7 +136,7 @@ creativesList =
125 , _clOauthToken = Nothing
136 , _clOauthToken = Nothing
126 , _clMaxResults = Nothing
137 , _clMaxResults = Nothing
127 , _clFields = Nothing
138 , _clFields = Nothing
128− , _clAlt = "json"
139+ , _clAlt = JSON
131-- | Available to use for quota purposes for server-side applications. Can be
142-- | Available to use for quota purposes for server-side applications. Can be
@@ -155,7 +166,7 @@ clUserIp = lens _clUserIp (\ s a -> s{_clUserIp = a})
156-- | When specified, only creatives having the given open auction status are
167-- | When specified, only creatives having the given open auction status are
157-- returned.
168-- returned.
158−clOpenAuctionStatusFilter :: Lens' CreativesList' (Maybe Text)
169+clOpenAuctionStatusFilter :: Lens' CreativesList' (Maybe AdexchangebuyerCreativesListOpenAuctionStatusFilter)
159clOpenAuctionStatusFilter
170clOpenAuctionStatusFilter
160 = lens _clOpenAuctionStatusFilter
171 = lens _clOpenAuctionStatusFilter
161 (\ s a -> s{_clOpenAuctionStatusFilter = a})
172 (\ s a -> s{_clOpenAuctionStatusFilter = a})
@@ -180,7 +191,7 @@ clPageToken
181-- | When specified, only creatives having the given direct deals status are
192-- | When specified, only creatives having the given direct deals status are
182-- returned.
193-- returned.
183−clDealsStatusFilter :: Lens' CreativesList' (Maybe Text)
194+clDealsStatusFilter :: Lens' CreativesList' (Maybe AdexchangebuyerCreativesListDealsStatusFilter)
184clDealsStatusFilter
195clDealsStatusFilter
185 = lens _clDealsStatusFilter
196 = lens _clDealsStatusFilter
186 (\ s a -> s{_clDealsStatusFilter = a})
197 (\ s a -> s{_clDealsStatusFilter = a})
@@ -201,14 +212,15 @@ clFields :: Lens' CreativesList' (Maybe Text)
201clFields = lens _clFields (\ s a -> s{_clFields = a})
212clFields = lens _clFields (\ s a -> s{_clFields = a})
203-- | Data format for the response.
214-- | Data format for the response.
204−clAlt :: Lens' CreativesList' Text
215+clAlt :: Lens' CreativesList' Alt
205clAlt = lens _clAlt (\ s a -> s{_clAlt = a})
216clAlt = lens _clAlt (\ s a -> s{_clAlt = a})
207instance GoogleRequest CreativesList' where
218instance GoogleRequest CreativesList' where
208 type Rs CreativesList' = CreativesList
219 type Rs CreativesList' = CreativesList
209 request = requestWithRoute defReq adExchangeBuyerURL
220 request = requestWithRoute defReq adExchangeBuyerURL
210− requestWithRoute r u CreativesList{..}
221+ requestWithRoute r u CreativesList'{..}
211− = go _clQuotaUser _clPrettyPrint _clBuyerCreativeId
222+ = go _clQuotaUser (Just _clPrettyPrint)
212 _clUserIp
224 _clUserIp
213 _clOpenAuctionStatusFilter
225 _clOpenAuctionStatusFilter
214 _clAccountId
226 _clAccountId
@@ -218,7 +230,9 @@ instance GoogleRequest CreativesList' where
218 _clOauthToken
230 _clOauthToken
219 _clMaxResults
231 _clMaxResults
220 _clFields
232 _clFields
221− _clAlt
233+ (Just _clAlt)
223− = clientWithRoute (Proxy :: Proxy CreativesListAPI) r
235+ = clientWithRoute
236+ (Proxy :: Proxy CreativesListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets the requested deal.
20-- | Gets the requested deal.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerDealsGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerDealsGet@.
22−module AdExchangeBuyer.Deals.Get
23+module Network.Google.Resource.AdExchangeBuyer.Deals.Get
24 -- * REST Resource
25 -- * REST Resource
25− DealsGetAPI
26+ DealsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , dealsGet
29+ , dealsGet'
29− , DealsGet
30+ , DealsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , dgQuotaUser
33 , dgQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerDealsGet@ which the
46-- | A resource alias for @AdexchangebuyerDealsGet@ which the
46−-- 'DealsGet' request conforms to.
47+-- 'DealsGet'' request conforms to.
47−type DealsGetAPI =
48+type DealsGetResource =
48 "deals" :>
49 "deals" :>
49− Capture "dealId" Int64 :> Get '[JSON] NegotiationDto
50+ Capture "dealId" Int64 :>
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] NegotiationDto
51-- | Gets the requested deal.
59-- | Gets the requested deal.
53−-- /See:/ 'dealsGet' smart constructor.
61+-- /See:/ 'dealsGet'' smart constructor.
54−data DealsGet = DealsGet
62+data DealsGet' = DealsGet'
55 { _dgQuotaUser :: !(Maybe Text)
63 { _dgQuotaUser :: !(Maybe Text)
56 , _dgPrettyPrint :: !Bool
64 , _dgPrettyPrint :: !Bool
57 , _dgUserIp :: !(Maybe Text)
65 , _dgUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data DealsGet = DealsGet
59 , _dgKey :: !(Maybe Text)
67 , _dgKey :: !(Maybe Text)
60 , _dgOauthToken :: !(Maybe Text)
68 , _dgOauthToken :: !(Maybe Text)
61 , _dgFields :: !(Maybe Text)
69 , _dgFields :: !(Maybe Text)
62− , _dgAlt :: !Text
70+ , _dgAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'DealsGet'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data DealsGet = DealsGet
81-- * 'dgFields'
89-- * 'dgFields'
83-- * 'dgAlt'
91-- * 'dgAlt'
85 :: Int64 -- ^ 'dealId'
93 :: Int64 -- ^ 'dealId'
86− -> DealsGet
94+ -> DealsGet'
87−dealsGet pDgDealId_ =
95+dealsGet' pDgDealId_ =
88− DealsGet
96+ DealsGet'
89 { _dgQuotaUser = Nothing
97 { _dgQuotaUser = Nothing
90 , _dgPrettyPrint = True
98 , _dgPrettyPrint = True
91 , _dgUserIp = Nothing
99 , _dgUserIp = Nothing
@@ -93,7 +101,7 @@ dealsGet pDgDealId_ =
93 , _dgKey = Nothing
101 , _dgKey = Nothing
94 , _dgOauthToken = Nothing
102 , _dgOauthToken = Nothing
95 , _dgFields = Nothing
103 , _dgFields = Nothing
96− , _dgAlt = "json"
104+ , _dgAlt = JSON
99-- | 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
@@ -133,17 +141,19 @@ dgFields :: Lens' DealsGet' (Maybe Text)
133dgFields = lens _dgFields (\ s a -> s{_dgFields = a})
141dgFields = lens _dgFields (\ s a -> s{_dgFields = a})
135-- | Data format for the response.
143-- | Data format for the response.
136−dgAlt :: Lens' DealsGet' Text
144+dgAlt :: Lens' DealsGet' Alt
137dgAlt = lens _dgAlt (\ s a -> s{_dgAlt = a})
145dgAlt = lens _dgAlt (\ s a -> s{_dgAlt = a})
139instance GoogleRequest DealsGet' where
147instance GoogleRequest DealsGet' where
140 type Rs DealsGet' = NegotiationDto
148 type Rs DealsGet' = NegotiationDto
141 request = requestWithRoute defReq adExchangeBuyerURL
149 request = requestWithRoute defReq adExchangeBuyerURL
142− requestWithRoute r u DealsGet{..}
150+ requestWithRoute r u DealsGet'{..}
143− = go _dgQuotaUser _dgPrettyPrint _dgUserIp _dgDealId
151+ = go _dgQuotaUser (Just _dgPrettyPrint) _dgUserIp
145 _dgOauthToken
154 _dgOauthToken
146 _dgFields
155 _dgFields
147− _dgAlt
156+ (Just _dgAlt)
149− = clientWithRoute (Proxy :: Proxy DealsGetAPI) r u
158+ = clientWithRoute (Proxy :: Proxy DealsGetResource) r
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/Delete.hs+83−76
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,142 +20,148 @@
19-- | Delete the specified deals from the order
20-- | Delete the specified deals from the order
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsDelete@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsDelete@.
22−module AdExchangeBuyer.Marketplacedeals.Delete
23+module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Delete
24 -- * REST Resource
25 -- * REST Resource
25− MarketplacedealsDeleteAPI
26+ MarketplacedealsDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplacedealsDelete
29+ , marketplacedealsDelete'
29− , MarketplacedealsDelete
30+ , MarketplacedealsDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32− , mddQuotaUser
33+ , mdQuotaUser
33− , mddPrettyPrint
34+ , mdPrettyPrint
34− , mddUserIp
35+ , mdUserIp
36− , mddOauthToken
37+ , mdOauthToken
37− , mddOrderId
38+ , mdOrderId
38− , mddFields
39+ , mdFields
42import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplacedealsDelete@ which the
46-- | A resource alias for @AdexchangebuyerMarketplacedealsDelete@ which the
46−-- 'MarketplacedealsDelete' request conforms to.
47+-- 'MarketplacedealsDelete'' request conforms to.
47−type MarketplacedealsDeleteAPI =
48+type MarketplacedealsDeleteResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" Text :>
50 "deals" :>
51 "deals" :>
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 :>
51− "delete" :> Post '[JSON] DeleteOrderDealsResponse
60+ Post '[JSON] DeleteOrderDealsResponse
53-- | Delete the specified deals from the order
62-- | Delete the specified deals from the order
55−-- /See:/ 'marketplacedealsDelete' smart constructor.
64+-- /See:/ 'marketplacedealsDelete'' smart constructor.
56−data MarketplacedealsDelete = MarketplacedealsDelete
65+data MarketplacedealsDelete' = MarketplacedealsDelete'
57− { _mddQuotaUser :: !(Maybe Text)
66+ { _mdQuotaUser :: !(Maybe Text)
58− , _mddPrettyPrint :: !Bool
67+ , _mdPrettyPrint :: !Bool
59− , _mddUserIp :: !(Maybe Text)
68+ , _mdUserIp :: !(Maybe Text)
60− , _mddKey :: !(Maybe Text)
69+ , _mdKey :: !(Maybe Text)
61− , _mddOauthToken :: !(Maybe Text)
70+ , _mdOauthToken :: !(Maybe Text)
62− , _mddOrderId :: !Text
71+ , _mdOrderId :: !Text
63− , _mddFields :: !(Maybe Text)
72+ , _mdFields :: !(Maybe Text)
64− , _mddAlt :: !Text
73+ , _mdAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'MarketplacedealsDelete'' with the minimum fields required to make a request.
76-- | Creates a value of 'MarketplacedealsDelete'' with the minimum fields required to make a request.
69-- 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:
71−-- * 'mddQuotaUser'
80+-- * 'mdQuotaUser'
73−-- * 'mddPrettyPrint'
82+-- * 'mdPrettyPrint'
75−-- * 'mddUserIp'
84+-- * 'mdUserIp'
77−-- * 'mddKey'
86+-- * 'mdKey'
79−-- * 'mddOauthToken'
88+-- * 'mdOauthToken'
81−-- * 'mddOrderId'
90+-- * 'mdOrderId'
83−-- * 'mddFields'
92+-- * 'mdFields'
85−-- * 'mddAlt'
94+-- * 'mdAlt'
86−marketplacedealsDelete
95+marketplacedealsDelete'
87 :: Text -- ^ 'orderId'
96 :: Text -- ^ 'orderId'
88− -> MarketplacedealsDelete
97+ -> MarketplacedealsDelete'
89−marketplacedealsDelete pMddOrderId_ =
98+marketplacedealsDelete' pMdOrderId_ =
90− MarketplacedealsDelete
99+ MarketplacedealsDelete'
91− { _mddQuotaUser = Nothing
100+ { _mdQuotaUser = Nothing
92− , _mddPrettyPrint = True
101+ , _mdPrettyPrint = True
93− , _mddUserIp = Nothing
102+ , _mdUserIp = Nothing
94− , _mddKey = Nothing
103+ , _mdKey = Nothing
95− , _mddOauthToken = Nothing
104+ , _mdOauthToken = Nothing
96− , _mddOrderId = pMddOrderId_
105+ , _mdOrderId = pMdOrderId_
97− , _mddFields = Nothing
106+ , _mdFields = Nothing
98− , _mddAlt = "json"
107+ , _mdAlt = JSON
101-- | 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
102-- any arbitrary string assigned to a user, but should not exceed 40
111-- any arbitrary string assigned to a user, but should not exceed 40
103-- characters. Overrides userIp if both are provided.
112-- characters. Overrides userIp if both are provided.
104−mddQuotaUser :: Lens' MarketplacedealsDelete' (Maybe Text)
113+mdQuotaUser :: Lens' MarketplacedealsDelete' (Maybe Text)
105−mddQuotaUser
114+mdQuotaUser
106− = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})
115+ = lens _mdQuotaUser (\ s a -> s{_mdQuotaUser = a})
108-- | Returns response with indentations and line breaks.
117-- | Returns response with indentations and line breaks.
109−mddPrettyPrint :: Lens' MarketplacedealsDelete' Bool
118+mdPrettyPrint :: Lens' MarketplacedealsDelete' Bool
110−mddPrettyPrint
119+mdPrettyPrint
111− = lens _mddPrettyPrint
120+ = lens _mdPrettyPrint
112− (\ s a -> s{_mddPrettyPrint = a})
121+ (\ s a -> s{_mdPrettyPrint = a})
114-- | 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
115-- want to enforce per-user limits.
124-- want to enforce per-user limits.
116−mddUserIp :: Lens' MarketplacedealsDelete' (Maybe Text)
125+mdUserIp :: Lens' MarketplacedealsDelete' (Maybe Text)
117−mddUserIp
126+mdUserIp = lens _mdUserIp (\ s a -> s{_mdUserIp = a})
118− = lens _mddUserIp (\ s a -> s{_mddUserIp = a})
120-- | 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
121-- 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
123−mddKey :: Lens' MarketplacedealsDelete' (Maybe Text)
131+mdKey :: Lens' MarketplacedealsDelete' (Maybe Text)
124−mddKey = lens _mddKey (\ s a -> s{_mddKey = a})
132+mdKey = lens _mdKey (\ s a -> s{_mdKey = a})
126-- | OAuth 2.0 token for the current user.
134-- | OAuth 2.0 token for the current user.
127−mddOauthToken :: Lens' MarketplacedealsDelete' (Maybe Text)
135+mdOauthToken :: Lens' MarketplacedealsDelete' (Maybe Text)
128−mddOauthToken
136+mdOauthToken
129− = lens _mddOauthToken
137+ = lens _mdOauthToken (\ s a -> s{_mdOauthToken = a})
130− (\ s a -> s{_mddOauthToken = a})
132-- | The orderId to delete deals from.
139-- | The orderId to delete deals from.
133−mddOrderId :: Lens' MarketplacedealsDelete' Text
140+mdOrderId :: Lens' MarketplacedealsDelete' Text
134−mddOrderId
141+mdOrderId
135− = lens _mddOrderId (\ s a -> s{_mddOrderId = a})
142+ = lens _mdOrderId (\ s a -> s{_mdOrderId = a})
137-- | Selector specifying which fields to include in a partial response.
144-- | Selector specifying which fields to include in a partial response.
138−mddFields :: Lens' MarketplacedealsDelete' (Maybe Text)
145+mdFields :: Lens' MarketplacedealsDelete' (Maybe Text)
139−mddFields
146+mdFields = lens _mdFields (\ s a -> s{_mdFields = a})
140− = lens _mddFields (\ s a -> s{_mddFields = a})
142-- | Data format for the response.
148-- | Data format for the response.
143−mddAlt :: Lens' MarketplacedealsDelete' Text
149+mdAlt :: Lens' MarketplacedealsDelete' Alt
144−mddAlt = lens _mddAlt (\ s a -> s{_mddAlt = a})
150+mdAlt = lens _mdAlt (\ s a -> s{_mdAlt = a})
146instance GoogleRequest MarketplacedealsDelete' where
152instance GoogleRequest MarketplacedealsDelete' where
147 type Rs MarketplacedealsDelete' =
153 type Rs MarketplacedealsDelete' =
148 DeleteOrderDealsResponse
154 DeleteOrderDealsResponse
149 request = requestWithRoute defReq adExchangeBuyerURL
155 request = requestWithRoute defReq adExchangeBuyerURL
150− requestWithRoute r u MarketplacedealsDelete{..}
156+ requestWithRoute r u MarketplacedealsDelete'{..}
151− = go _mddQuotaUser _mddPrettyPrint _mddUserIp _mddKey
157+ = go _mdQuotaUser (Just _mdPrettyPrint) _mdUserIp
152− _mddOauthToken
158+ _mdKey
153− _mddOrderId
159+ _mdOauthToken
154− _mddFields
160+ _mdOrderId
155− _mddAlt
161+ _mdFields
157 = clientWithRoute
164 = clientWithRoute
158− (Proxy :: Proxy MarketplacedealsDeleteAPI)
165+ (Proxy :: Proxy MarketplacedealsDeleteResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/Insert.hs+80−76
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,142 +20,145 @@
19-- | Add new deals for the specified order
20-- | Add new deals for the specified order
21-- /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 @AdexchangebuyerMarketplacedealsInsert@.
22−module AdExchangeBuyer.Marketplacedeals.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Insert
24 -- * REST Resource
25 -- * REST Resource
25− MarketplacedealsInsertAPI
26+ MarketplacedealsInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplacedealsInsert
29+ , marketplacedealsInsert'
29− , MarketplacedealsInsert
30+ , MarketplacedealsInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , miiQuotaUser
33+ , mQuotaUser
33− , miiPrettyPrint
34+ , mPrettyPrint
34− , miiUserIp
35+ , mUserIp
36− , miiOauthToken
37+ , mOauthToken
37− , miiOrderId
38+ , mOrderId
38− , miiFields
39+ , mFields
42import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplacedealsInsert@ which the
46-- | A resource alias for @AdexchangebuyerMarketplacedealsInsert@ which the
46−-- 'MarketplacedealsInsert' request conforms to.
47+-- 'MarketplacedealsInsert'' request conforms to.
47−type MarketplacedealsInsertAPI =
48+type MarketplacedealsInsertResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" Text :>
50 "deals" :>
51 "deals" :>
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 :>
51− "insert" :> Post '[JSON] AddOrderDealsResponse
60+ Post '[JSON] AddOrderDealsResponse
53-- | Add new deals for the specified order
62-- | Add new deals for the specified order
55−-- /See:/ 'marketplacedealsInsert' smart constructor.
64+-- /See:/ 'marketplacedealsInsert'' smart constructor.
56−data MarketplacedealsInsert = MarketplacedealsInsert
65+data MarketplacedealsInsert' = MarketplacedealsInsert'
57− { _miiQuotaUser :: !(Maybe Text)
66+ { _mQuotaUser :: !(Maybe Text)
58− , _miiPrettyPrint :: !Bool
67+ , _mPrettyPrint :: !Bool
59− , _miiUserIp :: !(Maybe Text)
68+ , _mUserIp :: !(Maybe Text)
60− , _miiKey :: !(Maybe Text)
69+ , _mKey :: !(Maybe Text)
61− , _miiOauthToken :: !(Maybe Text)
70+ , _mOauthToken :: !(Maybe Text)
62− , _miiOrderId :: !Text
71+ , _mOrderId :: !Text
63− , _miiFields :: !(Maybe Text)
72+ , _mFields :: !(Maybe Text)
64− , _miiAlt :: !Text
73+ , _mAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'MarketplacedealsInsert'' with the minimum fields required to make a request.
76-- | Creates a value of 'MarketplacedealsInsert'' with the minimum fields required to make a request.
69-- 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:
71−-- * 'miiQuotaUser'
80+-- * 'mQuotaUser'
73−-- * 'miiPrettyPrint'
82+-- * 'mPrettyPrint'
75−-- * 'miiUserIp'
84+-- * 'mUserIp'
77−-- * 'miiKey'
86+-- * 'mKey'
79−-- * 'miiOauthToken'
88+-- * 'mOauthToken'
81−-- * 'miiOrderId'
90+-- * 'mOrderId'
83−-- * 'miiFields'
92+-- * 'mFields'
85−-- * 'miiAlt'
94+-- * 'mAlt'
86−marketplacedealsInsert
95+marketplacedealsInsert'
87 :: Text -- ^ 'orderId'
96 :: Text -- ^ 'orderId'
88− -> MarketplacedealsInsert
97+ -> MarketplacedealsInsert'
89−marketplacedealsInsert pMiiOrderId_ =
98+marketplacedealsInsert' pMOrderId_ =
90− MarketplacedealsInsert
99+ MarketplacedealsInsert'
91− { _miiQuotaUser = Nothing
100+ { _mQuotaUser = Nothing
92− , _miiPrettyPrint = True
101+ , _mPrettyPrint = True
93− , _miiUserIp = Nothing
102+ , _mUserIp = Nothing
94− , _miiKey = Nothing
103+ , _mKey = Nothing
95− , _miiOauthToken = Nothing
104+ , _mOauthToken = Nothing
96− , _miiOrderId = pMiiOrderId_
105+ , _mOrderId = pMOrderId_
97− , _miiFields = Nothing
106+ , _mFields = Nothing
98− , _miiAlt = "json"
107+ , _mAlt = JSON
101-- | 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
102-- any arbitrary string assigned to a user, but should not exceed 40
111-- any arbitrary string assigned to a user, but should not exceed 40
103-- characters. Overrides userIp if both are provided.
112-- characters. Overrides userIp if both are provided.
104−miiQuotaUser :: Lens' MarketplacedealsInsert' (Maybe Text)
113+mQuotaUser :: Lens' MarketplacedealsInsert' (Maybe Text)
105−miiQuotaUser
114+mQuotaUser
106− = lens _miiQuotaUser (\ s a -> s{_miiQuotaUser = a})
115+ = lens _mQuotaUser (\ s a -> s{_mQuotaUser = a})
108-- | Returns response with indentations and line breaks.
117-- | Returns response with indentations and line breaks.
109−miiPrettyPrint :: Lens' MarketplacedealsInsert' Bool
118+mPrettyPrint :: Lens' MarketplacedealsInsert' Bool
110−miiPrettyPrint
119+mPrettyPrint
111− = lens _miiPrettyPrint
120+ = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})
112− (\ s a -> s{_miiPrettyPrint = a})
114-- | 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
115-- want to enforce per-user limits.
123-- want to enforce per-user limits.
116−miiUserIp :: Lens' MarketplacedealsInsert' (Maybe Text)
124+mUserIp :: Lens' MarketplacedealsInsert' (Maybe Text)
117−miiUserIp
125+mUserIp = lens _mUserIp (\ s a -> s{_mUserIp = a})
118− = lens _miiUserIp (\ s a -> s{_miiUserIp = a})
120-- | 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
121-- 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
123−miiKey :: Lens' MarketplacedealsInsert' (Maybe Text)
130+mKey :: Lens' MarketplacedealsInsert' (Maybe Text)
124−miiKey = lens _miiKey (\ s a -> s{_miiKey = a})
131+mKey = lens _mKey (\ s a -> s{_mKey = a})
126-- | OAuth 2.0 token for the current user.
133-- | OAuth 2.0 token for the current user.
127−miiOauthToken :: Lens' MarketplacedealsInsert' (Maybe Text)
134+mOauthToken :: Lens' MarketplacedealsInsert' (Maybe Text)
128−miiOauthToken
135+mOauthToken
129− = lens _miiOauthToken
136+ = lens _mOauthToken (\ s a -> s{_mOauthToken = a})
130− (\ s a -> s{_miiOauthToken = a})
132-- | OrderId for which deals need to be added.
138-- | OrderId for which deals need to be added.
133−miiOrderId :: Lens' MarketplacedealsInsert' Text
139+mOrderId :: Lens' MarketplacedealsInsert' Text
134−miiOrderId
140+mOrderId = lens _mOrderId (\ s a -> s{_mOrderId = a})
135− = lens _miiOrderId (\ s a -> s{_miiOrderId = a})
137-- | Selector specifying which fields to include in a partial response.
142-- | Selector specifying which fields to include in a partial response.
138−miiFields :: Lens' MarketplacedealsInsert' (Maybe Text)
143+mFields :: Lens' MarketplacedealsInsert' (Maybe Text)
139−miiFields
144+mFields = lens _mFields (\ s a -> s{_mFields = a})
140− = lens _miiFields (\ s a -> s{_miiFields = a})
142-- | Data format for the response.
146-- | Data format for the response.
143−miiAlt :: Lens' MarketplacedealsInsert' Text
147+mAlt :: Lens' MarketplacedealsInsert' Alt
144−miiAlt = lens _miiAlt (\ s a -> s{_miiAlt = a})
148+mAlt = lens _mAlt (\ s a -> s{_mAlt = a})
146instance GoogleRequest MarketplacedealsInsert' where
150instance GoogleRequest MarketplacedealsInsert' where
147 type Rs MarketplacedealsInsert' =
151 type Rs MarketplacedealsInsert' =
148 AddOrderDealsResponse
152 AddOrderDealsResponse
149 request = requestWithRoute defReq adExchangeBuyerURL
153 request = requestWithRoute defReq adExchangeBuyerURL
150− requestWithRoute r u MarketplacedealsInsert{..}
154+ requestWithRoute r u MarketplacedealsInsert'{..}
151− = go _miiQuotaUser _miiPrettyPrint _miiUserIp _miiKey
155+ = go _mQuotaUser (Just _mPrettyPrint) _mUserIp _mKey
152− _miiOauthToken
156+ _mOauthToken
153− _miiOrderId
157+ _mOrderId
154− _miiFields
158+ _mFields
155− _miiAlt
159+ (Just _mAlt)
157 = clientWithRoute
161 = clientWithRoute
158− (Proxy :: Proxy MarketplacedealsInsertAPI)
162+ (Proxy :: Proxy MarketplacedealsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/List.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List all the deals for a given order
20-- | List all the deals for a given order
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsList@.
22−module AdExchangeBuyer.Marketplacedeals.List
23+module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.List
24 -- * REST Resource
25 -- * REST Resource
25− MarketplacedealsListAPI
26+ MarketplacedealsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplacedealsList
29+ , marketplacedealsList'
29− , MarketplacedealsList
30+ , MarketplacedealsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mllQuotaUser
33 , mllQuotaUser
@@ -43,16 +44,24 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplacedealsList@ which the
46-- | A resource alias for @AdexchangebuyerMarketplacedealsList@ which the
46−-- 'MarketplacedealsList' request conforms to.
47+-- 'MarketplacedealsList'' request conforms to.
47−type MarketplacedealsListAPI =
48+type MarketplacedealsListResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" Text :>
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 :>
50− "deals" :> Get '[JSON] GetOrderDealsResponse
59+ Get '[JSON] GetOrderDealsResponse
52-- | List all the deals for a given order
61-- | List all the deals for a given order
54−-- /See:/ 'marketplacedealsList' smart constructor.
63+-- /See:/ 'marketplacedealsList'' smart constructor.
55−data MarketplacedealsList = MarketplacedealsList
64+data MarketplacedealsList' = MarketplacedealsList'
56 { _mllQuotaUser :: !(Maybe Text)
65 { _mllQuotaUser :: !(Maybe Text)
57 , _mllPrettyPrint :: !Bool
66 , _mllPrettyPrint :: !Bool
58 , _mllUserIp :: !(Maybe Text)
67 , _mllUserIp :: !(Maybe Text)
@@ -60,7 +69,7 @@ data MarketplacedealsList = MarketplacedealsList
60 , _mllOauthToken :: !(Maybe Text)
69 , _mllOauthToken :: !(Maybe Text)
61 , _mllOrderId :: !Text
70 , _mllOrderId :: !Text
62 , _mllFields :: !(Maybe Text)
71 , _mllFields :: !(Maybe Text)
63− , _mllAlt :: !Text
72+ , _mllAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
73 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'MarketplacedealsList'' with the minimum fields required to make a request.
75-- | Creates a value of 'MarketplacedealsList'' with the minimum fields required to make a request.
@@ -82,11 +91,11 @@ data MarketplacedealsList = MarketplacedealsList
82-- * 'mllFields'
91-- * 'mllFields'
84-- * 'mllAlt'
93-- * 'mllAlt'
85−marketplacedealsList
94+marketplacedealsList'
86 :: Text -- ^ 'orderId'
95 :: Text -- ^ 'orderId'
87− -> MarketplacedealsList
96+ -> MarketplacedealsList'
88−marketplacedealsList pMllOrderId_ =
97+marketplacedealsList' pMllOrderId_ =
89− MarketplacedealsList
98+ MarketplacedealsList'
90 { _mllQuotaUser = Nothing
99 { _mllQuotaUser = Nothing
91 , _mllPrettyPrint = True
100 , _mllPrettyPrint = True
92 , _mllUserIp = Nothing
101 , _mllUserIp = Nothing
@@ -94,7 +103,7 @@ marketplacedealsList pMllOrderId_ =
94 , _mllOauthToken = Nothing
103 , _mllOauthToken = Nothing
95 , _mllOrderId = pMllOrderId_
104 , _mllOrderId = pMllOrderId_
96 , _mllFields = Nothing
105 , _mllFields = Nothing
97− , _mllAlt = "json"
106+ , _mllAlt = JSON
100-- | 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
@@ -139,20 +148,21 @@ mllFields
139 = lens _mllFields (\ s a -> s{_mllFields = a})
148 = lens _mllFields (\ s a -> s{_mllFields = a})
141-- | Data format for the response.
150-- | Data format for the response.
142−mllAlt :: Lens' MarketplacedealsList' Text
151+mllAlt :: Lens' MarketplacedealsList' Alt
143mllAlt = lens _mllAlt (\ s a -> s{_mllAlt = a})
152mllAlt = lens _mllAlt (\ s a -> s{_mllAlt = a})
145instance GoogleRequest MarketplacedealsList' where
154instance GoogleRequest MarketplacedealsList' where
146 type Rs MarketplacedealsList' = GetOrderDealsResponse
155 type Rs MarketplacedealsList' = GetOrderDealsResponse
147 request = requestWithRoute defReq adExchangeBuyerURL
156 request = requestWithRoute defReq adExchangeBuyerURL
148− requestWithRoute r u MarketplacedealsList{..}
157+ requestWithRoute r u MarketplacedealsList'{..}
149− = go _mllQuotaUser _mllPrettyPrint _mllUserIp _mllKey
158+ = go _mllQuotaUser (Just _mllPrettyPrint) _mllUserIp
150 _mllOauthToken
160 _mllOauthToken
151 _mllOrderId
161 _mllOrderId
152 _mllFields
162 _mllFields
153− _mllAlt
163+ (Just _mllAlt)
155 = clientWithRoute
165 = clientWithRoute
156− (Proxy :: Proxy MarketplacedealsListAPI)
166+ (Proxy :: Proxy MarketplacedealsListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacedeals/Update.hs+83−76
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,142 +20,148 @@
19-- | Replaces all the deals in the order with the passed in deals
20-- | Replaces all the deals in the order with the passed in deals
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsUpdate@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacedealsUpdate@.
22−module AdExchangeBuyer.Marketplacedeals.Update
23+module Network.Google.Resource.AdExchangeBuyer.Marketplacedeals.Update
24 -- * REST Resource
25 -- * REST Resource
25− MarketplacedealsUpdateAPI
26+ MarketplacedealsUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplacedealsUpdate
29+ , marketplacedealsUpdate'
29− , MarketplacedealsUpdate
30+ , MarketplacedealsUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32− , muuQuotaUser
33+ , muQuotaUser
33− , muuPrettyPrint
34+ , muPrettyPrint
34− , muuUserIp
35+ , muUserIp
36− , muuOauthToken
37+ , muOauthToken
37− , muuOrderId
38+ , muOrderId
38− , muuFields
39+ , muFields
42import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplacedealsUpdate@ which the
46-- | A resource alias for @AdexchangebuyerMarketplacedealsUpdate@ which the
46−-- 'MarketplacedealsUpdate' request conforms to.
47+-- 'MarketplacedealsUpdate'' request conforms to.
47−type MarketplacedealsUpdateAPI =
48+type MarketplacedealsUpdateResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" Text :>
50 "deals" :>
51 "deals" :>
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 :>
51− "update" :> Post '[JSON] EditAllOrderDealsResponse
60+ Post '[JSON] EditAllOrderDealsResponse
53-- | Replaces all the deals in the order with the passed in deals
62-- | Replaces all the deals in the order with the passed in deals
55−-- /See:/ 'marketplacedealsUpdate' smart constructor.
64+-- /See:/ 'marketplacedealsUpdate'' smart constructor.
56−data MarketplacedealsUpdate = MarketplacedealsUpdate
65+data MarketplacedealsUpdate' = MarketplacedealsUpdate'
57− { _muuQuotaUser :: !(Maybe Text)
66+ { _muQuotaUser :: !(Maybe Text)
58− , _muuPrettyPrint :: !Bool
67+ , _muPrettyPrint :: !Bool
59− , _muuUserIp :: !(Maybe Text)
68+ , _muUserIp :: !(Maybe Text)
60− , _muuKey :: !(Maybe Text)
69+ , _muKey :: !(Maybe Text)
61− , _muuOauthToken :: !(Maybe Text)
70+ , _muOauthToken :: !(Maybe Text)
62− , _muuOrderId :: !Text
71+ , _muOrderId :: !Text
63− , _muuFields :: !(Maybe Text)
72+ , _muFields :: !(Maybe Text)
64− , _muuAlt :: !Text
73+ , _muAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'MarketplacedealsUpdate'' with the minimum fields required to make a request.
76-- | Creates a value of 'MarketplacedealsUpdate'' with the minimum fields required to make a request.
69-- 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:
71−-- * 'muuQuotaUser'
80+-- * 'muQuotaUser'
73−-- * 'muuPrettyPrint'
82+-- * 'muPrettyPrint'
75−-- * 'muuUserIp'
84+-- * 'muUserIp'
77−-- * 'muuKey'
86+-- * 'muKey'
79−-- * 'muuOauthToken'
88+-- * 'muOauthToken'
81−-- * 'muuOrderId'
90+-- * 'muOrderId'
83−-- * 'muuFields'
92+-- * 'muFields'
85−-- * 'muuAlt'
94+-- * 'muAlt'
86−marketplacedealsUpdate
95+marketplacedealsUpdate'
87 :: Text -- ^ 'orderId'
96 :: Text -- ^ 'orderId'
88− -> MarketplacedealsUpdate
97+ -> MarketplacedealsUpdate'
89−marketplacedealsUpdate pMuuOrderId_ =
98+marketplacedealsUpdate' pMuOrderId_ =
90− MarketplacedealsUpdate
99+ MarketplacedealsUpdate'
91− { _muuQuotaUser = Nothing
100+ { _muQuotaUser = Nothing
92− , _muuPrettyPrint = True
101+ , _muPrettyPrint = True
93− , _muuUserIp = Nothing
102+ , _muUserIp = Nothing
94− , _muuKey = Nothing
103+ , _muKey = Nothing
95− , _muuOauthToken = Nothing
104+ , _muOauthToken = Nothing
96− , _muuOrderId = pMuuOrderId_
105+ , _muOrderId = pMuOrderId_
97− , _muuFields = Nothing
106+ , _muFields = Nothing
98− , _muuAlt = "json"
107+ , _muAlt = JSON
101-- | 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
102-- any arbitrary string assigned to a user, but should not exceed 40
111-- any arbitrary string assigned to a user, but should not exceed 40
103-- characters. Overrides userIp if both are provided.
112-- characters. Overrides userIp if both are provided.
104−muuQuotaUser :: Lens' MarketplacedealsUpdate' (Maybe Text)
113+muQuotaUser :: Lens' MarketplacedealsUpdate' (Maybe Text)
105−muuQuotaUser
114+muQuotaUser
106− = lens _muuQuotaUser (\ s a -> s{_muuQuotaUser = a})
115+ = lens _muQuotaUser (\ s a -> s{_muQuotaUser = a})
108-- | Returns response with indentations and line breaks.
117-- | Returns response with indentations and line breaks.
109−muuPrettyPrint :: Lens' MarketplacedealsUpdate' Bool
118+muPrettyPrint :: Lens' MarketplacedealsUpdate' Bool
110−muuPrettyPrint
119+muPrettyPrint
111− = lens _muuPrettyPrint
120+ = lens _muPrettyPrint
112− (\ s a -> s{_muuPrettyPrint = a})
121+ (\ s a -> s{_muPrettyPrint = a})
114-- | 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
115-- want to enforce per-user limits.
124-- want to enforce per-user limits.
116−muuUserIp :: Lens' MarketplacedealsUpdate' (Maybe Text)
125+muUserIp :: Lens' MarketplacedealsUpdate' (Maybe Text)
117−muuUserIp
126+muUserIp = lens _muUserIp (\ s a -> s{_muUserIp = a})
118− = lens _muuUserIp (\ s a -> s{_muuUserIp = a})
120-- | 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
121-- 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
123−muuKey :: Lens' MarketplacedealsUpdate' (Maybe Text)
131+muKey :: Lens' MarketplacedealsUpdate' (Maybe Text)
124−muuKey = lens _muuKey (\ s a -> s{_muuKey = a})
132+muKey = lens _muKey (\ s a -> s{_muKey = a})
126-- | OAuth 2.0 token for the current user.
134-- | OAuth 2.0 token for the current user.
127−muuOauthToken :: Lens' MarketplacedealsUpdate' (Maybe Text)
135+muOauthToken :: Lens' MarketplacedealsUpdate' (Maybe Text)
128−muuOauthToken
136+muOauthToken
129− = lens _muuOauthToken
137+ = lens _muOauthToken (\ s a -> s{_muOauthToken = a})
130− (\ s a -> s{_muuOauthToken = a})
132-- | The orderId to edit deals on.
139-- | The orderId to edit deals on.
133−muuOrderId :: Lens' MarketplacedealsUpdate' Text
140+muOrderId :: Lens' MarketplacedealsUpdate' Text
134−muuOrderId
141+muOrderId
135− = lens _muuOrderId (\ s a -> s{_muuOrderId = a})
142+ = lens _muOrderId (\ s a -> s{_muOrderId = a})
137-- | Selector specifying which fields to include in a partial response.
144-- | Selector specifying which fields to include in a partial response.
138−muuFields :: Lens' MarketplacedealsUpdate' (Maybe Text)
145+muFields :: Lens' MarketplacedealsUpdate' (Maybe Text)
139−muuFields
146+muFields = lens _muFields (\ s a -> s{_muFields = a})
140− = lens _muuFields (\ s a -> s{_muuFields = a})
142-- | Data format for the response.
148-- | Data format for the response.
143−muuAlt :: Lens' MarketplacedealsUpdate' Text
149+muAlt :: Lens' MarketplacedealsUpdate' Alt
144−muuAlt = lens _muuAlt (\ s a -> s{_muuAlt = a})
150+muAlt = lens _muAlt (\ s a -> s{_muAlt = a})
146instance GoogleRequest MarketplacedealsUpdate' where
152instance GoogleRequest MarketplacedealsUpdate' where
147 type Rs MarketplacedealsUpdate' =
153 type Rs MarketplacedealsUpdate' =
148 EditAllOrderDealsResponse
154 EditAllOrderDealsResponse
149 request = requestWithRoute defReq adExchangeBuyerURL
155 request = requestWithRoute defReq adExchangeBuyerURL
150− requestWithRoute r u MarketplacedealsUpdate{..}
156+ requestWithRoute r u MarketplacedealsUpdate'{..}
151− = go _muuQuotaUser _muuPrettyPrint _muuUserIp _muuKey
157+ = go _muQuotaUser (Just _muPrettyPrint) _muUserIp
152− _muuOauthToken
158+ _muKey
153− _muuOrderId
159+ _muOauthToken
154− _muuFields
160+ _muOrderId
155− _muuAlt
161+ _muFields
157 = clientWithRoute
164 = clientWithRoute
158− (Proxy :: Proxy MarketplacedealsUpdateAPI)
165+ (Proxy :: Proxy MarketplacedealsUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacenotes/Insert.hs+86−73
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,139 +20,151 @@
19-- | Add notes to the order
20-- | Add notes to the order
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacenotesInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacenotesInsert@.
22−module AdExchangeBuyer.Marketplacenotes.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.Insert
24 -- * REST Resource
25 -- * REST Resource
25− MarketplacenotesInsertAPI
26+ MarketplacenotesInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplacenotesInsert
29+ , marketplacenotesInsert'
29− , MarketplacenotesInsert
30+ , MarketplacenotesInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , miQuotaUser
33+ , miiQuotaUser
33− , miPrettyPrint
34+ , miiPrettyPrint
34− , miUserIp
35+ , miiUserIp
36− , miOauthToken
37+ , miiOauthToken
37− , miOrderId
38+ , miiOrderId
38− , miFields
39+ , miiFields
42import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplacenotesInsert@ which the
46-- | A resource alias for @AdexchangebuyerMarketplacenotesInsert@ which the
46−-- 'MarketplacenotesInsert' request conforms to.
47+-- 'MarketplacenotesInsert'' request conforms to.
47−type MarketplacenotesInsertAPI =
48+type MarketplacenotesInsertResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" Text :>
50 "notes" :>
51 "notes" :>
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 :>
51− "insert" :> Post '[JSON] AddOrderNotesResponse
60+ Post '[JSON] AddOrderNotesResponse
53-- | Add notes to the order
62-- | Add notes to the order
55−-- /See:/ 'marketplacenotesInsert' smart constructor.
64+-- /See:/ 'marketplacenotesInsert'' smart constructor.
56−data MarketplacenotesInsert = MarketplacenotesInsert
65+data MarketplacenotesInsert' = MarketplacenotesInsert'
57− { _miQuotaUser :: !(Maybe Text)
66+ { _miiQuotaUser :: !(Maybe Text)
58− , _miPrettyPrint :: !Bool
67+ , _miiPrettyPrint :: !Bool
59− , _miUserIp :: !(Maybe Text)
68+ , _miiUserIp :: !(Maybe Text)
60− , _miKey :: !(Maybe Text)
69+ , _miiKey :: !(Maybe Text)
61− , _miOauthToken :: !(Maybe Text)
70+ , _miiOauthToken :: !(Maybe Text)
62− , _miOrderId :: !Text
71+ , _miiOrderId :: !Text
63− , _miFields :: !(Maybe Text)
72+ , _miiFields :: !(Maybe Text)
64− , _miAlt :: !Text
73+ , _miiAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'MarketplacenotesInsert'' with the minimum fields required to make a request.
76-- | Creates a value of 'MarketplacenotesInsert'' with the minimum fields required to make a request.
69-- 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:
71−-- * 'miQuotaUser'
80+-- * 'miiQuotaUser'
73−-- * 'miPrettyPrint'
82+-- * 'miiPrettyPrint'
75−-- * 'miUserIp'
84+-- * 'miiUserIp'
77−-- * 'miKey'
86+-- * 'miiKey'
79−-- * 'miOauthToken'
88+-- * 'miiOauthToken'
81−-- * 'miOrderId'
90+-- * 'miiOrderId'
83−-- * 'miFields'
92+-- * 'miiFields'
85−-- * 'miAlt'
94+-- * 'miiAlt'
86−marketplacenotesInsert
95+marketplacenotesInsert'
87 :: Text -- ^ 'orderId'
96 :: Text -- ^ 'orderId'
88− -> MarketplacenotesInsert
97+ -> MarketplacenotesInsert'
89−marketplacenotesInsert pMiOrderId_ =
98+marketplacenotesInsert' pMiiOrderId_ =
90− MarketplacenotesInsert
99+ MarketplacenotesInsert'
91− { _miQuotaUser = Nothing
100+ { _miiQuotaUser = Nothing
92− , _miPrettyPrint = True
101+ , _miiPrettyPrint = True
93− , _miUserIp = Nothing
102+ , _miiUserIp = Nothing
94− , _miKey = Nothing
103+ , _miiKey = Nothing
95− , _miOauthToken = Nothing
104+ , _miiOauthToken = Nothing
96− , _miOrderId = pMiOrderId_
105+ , _miiOrderId = pMiiOrderId_
97− , _miFields = Nothing
106+ , _miiFields = Nothing
98− , _miAlt = "json"
107+ , _miiAlt = JSON
101-- | 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
102-- any arbitrary string assigned to a user, but should not exceed 40
111-- any arbitrary string assigned to a user, but should not exceed 40
103-- characters. Overrides userIp if both are provided.
112-- characters. Overrides userIp if both are provided.
104−miQuotaUser :: Lens' MarketplacenotesInsert' (Maybe Text)
113+miiQuotaUser :: Lens' MarketplacenotesInsert' (Maybe Text)
105−miQuotaUser
114+miiQuotaUser
106− = lens _miQuotaUser (\ s a -> s{_miQuotaUser = a})
115+ = lens _miiQuotaUser (\ s a -> s{_miiQuotaUser = a})
108-- | Returns response with indentations and line breaks.
117-- | Returns response with indentations and line breaks.
109−miPrettyPrint :: Lens' MarketplacenotesInsert' Bool
118+miiPrettyPrint :: Lens' MarketplacenotesInsert' Bool
110−miPrettyPrint
119+miiPrettyPrint
111− = lens _miPrettyPrint
120+ = lens _miiPrettyPrint
112− (\ s a -> s{_miPrettyPrint = a})
121+ (\ s a -> s{_miiPrettyPrint = a})
114-- | 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
115-- want to enforce per-user limits.
124-- want to enforce per-user limits.
116−miUserIp :: Lens' MarketplacenotesInsert' (Maybe Text)
125+miiUserIp :: Lens' MarketplacenotesInsert' (Maybe Text)
117−miUserIp = lens _miUserIp (\ s a -> s{_miUserIp = a})
126+miiUserIp
127+ = lens _miiUserIp (\ s a -> s{_miiUserIp = a})
119-- | 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
120-- 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
122−miKey :: Lens' MarketplacenotesInsert' (Maybe Text)
132+miiKey :: Lens' MarketplacenotesInsert' (Maybe Text)
123−miKey = lens _miKey (\ s a -> s{_miKey = a})
133+miiKey = lens _miiKey (\ s a -> s{_miiKey = a})
125-- | OAuth 2.0 token for the current user.
135-- | OAuth 2.0 token for the current user.
126−miOauthToken :: Lens' MarketplacenotesInsert' (Maybe Text)
136+miiOauthToken :: Lens' MarketplacenotesInsert' (Maybe Text)
127−miOauthToken
137+miiOauthToken
128− = lens _miOauthToken (\ s a -> s{_miOauthToken = a})
138+ = lens _miiOauthToken
139+ (\ s a -> s{_miiOauthToken = a})
130-- | The orderId to add notes for.
141-- | The orderId to add notes for.
131−miOrderId :: Lens' MarketplacenotesInsert' Text
142+miiOrderId :: Lens' MarketplacenotesInsert' Text
132−miOrderId
143+miiOrderId
133− = lens _miOrderId (\ s a -> s{_miOrderId = a})
144+ = lens _miiOrderId (\ s a -> s{_miiOrderId = a})
135-- | Selector specifying which fields to include in a partial response.
146-- | Selector specifying which fields to include in a partial response.
136−miFields :: Lens' MarketplacenotesInsert' (Maybe Text)
147+miiFields :: Lens' MarketplacenotesInsert' (Maybe Text)
137−miFields = lens _miFields (\ s a -> s{_miFields = a})
148+miiFields
149+ = lens _miiFields (\ s a -> s{_miiFields = a})
139-- | Data format for the response.
151-- | Data format for the response.
140−miAlt :: Lens' MarketplacenotesInsert' Text
152+miiAlt :: Lens' MarketplacenotesInsert' Alt
141−miAlt = lens _miAlt (\ s a -> s{_miAlt = a})
153+miiAlt = lens _miiAlt (\ s a -> s{_miiAlt = a})
143instance GoogleRequest MarketplacenotesInsert' where
155instance GoogleRequest MarketplacenotesInsert' where
144 type Rs MarketplacenotesInsert' =
156 type Rs MarketplacenotesInsert' =
145 AddOrderNotesResponse
157 AddOrderNotesResponse
146 request = requestWithRoute defReq adExchangeBuyerURL
158 request = requestWithRoute defReq adExchangeBuyerURL
147− requestWithRoute r u MarketplacenotesInsert{..}
159+ requestWithRoute r u MarketplacenotesInsert'{..}
148− = go _miQuotaUser _miPrettyPrint _miUserIp _miKey
160+ = go _miiQuotaUser (Just _miiPrettyPrint) _miiUserIp
149− _miOauthToken
161+ _miiKey
150− _miOrderId
162+ _miiOauthToken
151− _miFields
163+ _miiOrderId
152− _miAlt
164+ _miiFields
154 = clientWithRoute
167 = clientWithRoute
155− (Proxy :: Proxy MarketplacenotesInsertAPI)
168+ (Proxy :: Proxy MarketplacenotesInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplacenotes/List.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Get all the notes associated with an order
20-- | Get all the notes associated with an order
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacenotesList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplacenotesList@.
22−module AdExchangeBuyer.Marketplacenotes.List
23+module Network.Google.Resource.AdExchangeBuyer.Marketplacenotes.List
24 -- * REST Resource
25 -- * REST Resource
25− MarketplacenotesListAPI
26+ MarketplacenotesListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplacenotesList
29+ , marketplacenotesList'
29− , MarketplacenotesList
30+ , MarketplacenotesList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mlQuotaUser
33 , mlQuotaUser
@@ -43,16 +44,24 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplacenotesList@ which the
46-- | A resource alias for @AdexchangebuyerMarketplacenotesList@ which the
46−-- 'MarketplacenotesList' request conforms to.
47+-- 'MarketplacenotesList'' request conforms to.
47−type MarketplacenotesListAPI =
48+type MarketplacenotesListResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" Text :>
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 :>
50− "notes" :> Get '[JSON] GetOrderNotesResponse
59+ Get '[JSON] GetOrderNotesResponse
52-- | Get all the notes associated with an order
61-- | Get all the notes associated with an order
54−-- /See:/ 'marketplacenotesList' smart constructor.
63+-- /See:/ 'marketplacenotesList'' smart constructor.
55−data MarketplacenotesList = MarketplacenotesList
64+data MarketplacenotesList' = MarketplacenotesList'
56 { _mlQuotaUser :: !(Maybe Text)
65 { _mlQuotaUser :: !(Maybe Text)
57 , _mlPrettyPrint :: !Bool
66 , _mlPrettyPrint :: !Bool
58 , _mlUserIp :: !(Maybe Text)
67 , _mlUserIp :: !(Maybe Text)
@@ -60,7 +69,7 @@ data MarketplacenotesList = MarketplacenotesList
60 , _mlOauthToken :: !(Maybe Text)
69 , _mlOauthToken :: !(Maybe Text)
61 , _mlOrderId :: !Text
70 , _mlOrderId :: !Text
62 , _mlFields :: !(Maybe Text)
71 , _mlFields :: !(Maybe Text)
63− , _mlAlt :: !Text
72+ , _mlAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
73 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'MarketplacenotesList'' with the minimum fields required to make a request.
75-- | Creates a value of 'MarketplacenotesList'' with the minimum fields required to make a request.
@@ -82,11 +91,11 @@ data MarketplacenotesList = MarketplacenotesList
82-- * 'mlFields'
91-- * 'mlFields'
84-- * 'mlAlt'
93-- * 'mlAlt'
85−marketplacenotesList
94+marketplacenotesList'
86 :: Text -- ^ 'orderId'
95 :: Text -- ^ 'orderId'
87− -> MarketplacenotesList
96+ -> MarketplacenotesList'
88−marketplacenotesList pMlOrderId_ =
97+marketplacenotesList' pMlOrderId_ =
89− MarketplacenotesList
98+ MarketplacenotesList'
90 { _mlQuotaUser = Nothing
99 { _mlQuotaUser = Nothing
91 , _mlPrettyPrint = True
100 , _mlPrettyPrint = True
92 , _mlUserIp = Nothing
101 , _mlUserIp = Nothing
@@ -94,7 +103,7 @@ marketplacenotesList pMlOrderId_ =
94 , _mlOauthToken = Nothing
103 , _mlOauthToken = Nothing
95 , _mlOrderId = pMlOrderId_
104 , _mlOrderId = pMlOrderId_
96 , _mlFields = Nothing
105 , _mlFields = Nothing
97− , _mlAlt = "json"
106+ , _mlAlt = JSON
100-- | 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
@@ -136,20 +145,21 @@ mlFields :: Lens' MarketplacenotesList' (Maybe Text)
136mlFields = lens _mlFields (\ s a -> s{_mlFields = a})
145mlFields = lens _mlFields (\ s a -> s{_mlFields = a})
138-- | Data format for the response.
147-- | Data format for the response.
139−mlAlt :: Lens' MarketplacenotesList' Text
148+mlAlt :: Lens' MarketplacenotesList' Alt
140mlAlt = lens _mlAlt (\ s a -> s{_mlAlt = a})
149mlAlt = lens _mlAlt (\ s a -> s{_mlAlt = a})
142instance GoogleRequest MarketplacenotesList' where
151instance GoogleRequest MarketplacenotesList' where
143 type Rs MarketplacenotesList' = GetOrderNotesResponse
152 type Rs MarketplacenotesList' = GetOrderNotesResponse
144 request = requestWithRoute defReq adExchangeBuyerURL
153 request = requestWithRoute defReq adExchangeBuyerURL
145− requestWithRoute r u MarketplacenotesList{..}
154+ requestWithRoute r u MarketplacenotesList'{..}
146− = go _mlQuotaUser _mlPrettyPrint _mlUserIp _mlKey
155+ = go _mlQuotaUser (Just _mlPrettyPrint) _mlUserIp
147 _mlOauthToken
157 _mlOauthToken
148 _mlOrderId
158 _mlOrderId
149 _mlFields
159 _mlFields
150− _mlAlt
160+ (Just _mlAlt)
152 = clientWithRoute
162 = clientWithRoute
153− (Proxy :: Proxy MarketplacenotesListAPI)
163+ (Proxy :: Proxy MarketplacenotesListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceoffers/Get.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets the requested negotiation.
20-- | Gets the requested negotiation.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceoffersGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceoffersGet@.
22−module AdExchangeBuyer.Marketplaceoffers.Get
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Get
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceoffersGetAPI
26+ MarketplaceoffersGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceoffersGet
29+ , marketplaceoffersGet'
29− , MarketplaceoffersGet
30+ , MarketplaceoffersGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mgQuotaUser
33 , mgQuotaUser
@@ -43,16 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplaceoffersGet@ which the
46-- | A resource alias for @AdexchangebuyerMarketplaceoffersGet@ which the
46−-- 'MarketplaceoffersGet' request conforms to.
47+-- 'MarketplaceoffersGet'' request conforms to.
47−type MarketplaceoffersGetAPI =
48+type MarketplaceoffersGetResource =
48 "marketplaceOffers" :>
49 "marketplaceOffers" :>
49 Capture "offerId" Text :>
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 :>
50− Get '[JSON] MarketplaceOffer
57+ QueryParam "alt" Alt :> Get '[JSON] MarketplaceOffer
52-- | Gets the requested negotiation.
59-- | Gets the requested negotiation.
54−-- /See:/ 'marketplaceoffersGet' smart constructor.
61+-- /See:/ 'marketplaceoffersGet'' smart constructor.
55−data MarketplaceoffersGet = MarketplaceoffersGet
62+data MarketplaceoffersGet' = MarketplaceoffersGet'
56 { _mgQuotaUser :: !(Maybe Text)
63 { _mgQuotaUser :: !(Maybe Text)
57 , _mgPrettyPrint :: !Bool
64 , _mgPrettyPrint :: !Bool
58 , _mgUserIp :: !(Maybe Text)
65 , _mgUserIp :: !(Maybe Text)
@@ -60,7 +67,7 @@ data MarketplaceoffersGet = MarketplaceoffersGet
60 , _mgOfferId :: !Text
67 , _mgOfferId :: !Text
61 , _mgOauthToken :: !(Maybe Text)
68 , _mgOauthToken :: !(Maybe Text)
62 , _mgFields :: !(Maybe Text)
69 , _mgFields :: !(Maybe Text)
63− , _mgAlt :: !Text
70+ , _mgAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'MarketplaceoffersGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'MarketplaceoffersGet'' with the minimum fields required to make a request.
@@ -82,11 +89,11 @@ data MarketplaceoffersGet = MarketplaceoffersGet
82-- * 'mgFields'
89-- * 'mgFields'
84-- * 'mgAlt'
91-- * 'mgAlt'
85−marketplaceoffersGet
92+marketplaceoffersGet'
86 :: Text -- ^ 'offerId'
93 :: Text -- ^ 'offerId'
87− -> MarketplaceoffersGet
94+ -> MarketplaceoffersGet'
88−marketplaceoffersGet pMgOfferId_ =
95+marketplaceoffersGet' pMgOfferId_ =
89− MarketplaceoffersGet
96+ MarketplaceoffersGet'
90 { _mgQuotaUser = Nothing
97 { _mgQuotaUser = Nothing
91 , _mgPrettyPrint = True
98 , _mgPrettyPrint = True
92 , _mgUserIp = Nothing
99 , _mgUserIp = Nothing
@@ -94,7 +101,7 @@ marketplaceoffersGet pMgOfferId_ =
94 , _mgOfferId = pMgOfferId_
101 , _mgOfferId = pMgOfferId_
95 , _mgOauthToken = Nothing
102 , _mgOauthToken = Nothing
96 , _mgFields = Nothing
103 , _mgFields = Nothing
97− , _mgAlt = "json"
104+ , _mgAlt = JSON
100-- | 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
@@ -136,20 +143,21 @@ mgFields :: Lens' MarketplaceoffersGet' (Maybe Text)
136mgFields = lens _mgFields (\ s a -> s{_mgFields = a})
143mgFields = lens _mgFields (\ s a -> s{_mgFields = a})
138-- | Data format for the response.
145-- | Data format for the response.
139−mgAlt :: Lens' MarketplaceoffersGet' Text
146+mgAlt :: Lens' MarketplaceoffersGet' Alt
140mgAlt = lens _mgAlt (\ s a -> s{_mgAlt = a})
147mgAlt = lens _mgAlt (\ s a -> s{_mgAlt = a})
142instance GoogleRequest MarketplaceoffersGet' where
149instance GoogleRequest MarketplaceoffersGet' where
143 type Rs MarketplaceoffersGet' = MarketplaceOffer
150 type Rs MarketplaceoffersGet' = MarketplaceOffer
144 request = requestWithRoute defReq adExchangeBuyerURL
151 request = requestWithRoute defReq adExchangeBuyerURL
145− requestWithRoute r u MarketplaceoffersGet{..}
152+ requestWithRoute r u MarketplaceoffersGet'{..}
146− = go _mgQuotaUser _mgPrettyPrint _mgUserIp _mgKey
153+ = go _mgQuotaUser (Just _mgPrettyPrint) _mgUserIp
147 _mgOfferId
155 _mgOfferId
148 _mgOauthToken
156 _mgOauthToken
149 _mgFields
157 _mgFields
150− _mgAlt
158+ (Just _mgAlt)
152 = clientWithRoute
160 = clientWithRoute
153− (Proxy :: Proxy MarketplaceoffersGetAPI)
161+ (Proxy :: Proxy MarketplaceoffersGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceoffers/Search.hs+29−21
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets the requested negotiation.
20-- | Gets the requested negotiation.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceoffersSearch@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceoffersSearch@.
22−module AdExchangeBuyer.Marketplaceoffers.Search
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceoffers.Search
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceoffersSearchAPI
26+ MarketplaceoffersSearchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceoffersSearch
29+ , marketplaceoffersSearch'
29− , MarketplaceoffersSearch
30+ , MarketplaceoffersSearch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , msQuotaUser
33 , msQuotaUser
@@ -43,17 +44,23 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplaceoffersSearch@ which the
46-- | A resource alias for @AdexchangebuyerMarketplaceoffersSearch@ which the
46−-- 'MarketplaceoffersSearch' request conforms to.
47+-- 'MarketplaceoffersSearch'' request conforms to.
47−type MarketplaceoffersSearchAPI =
48+type MarketplaceoffersSearchResource =
48 "marketplaceOffers" :>
49 "marketplaceOffers" :>
49 "search" :>
50 "search" :>
50− QueryParam "pqlQuery" Text :>
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 :>
51− Get '[JSON] GetOffersResponse
58+ QueryParam "alt" Alt :> Get '[JSON] GetOffersResponse
53-- | Gets the requested negotiation.
60-- | Gets the requested negotiation.
55−-- /See:/ 'marketplaceoffersSearch' smart constructor.
62+-- /See:/ 'marketplaceoffersSearch'' smart constructor.
56−data MarketplaceoffersSearch = MarketplaceoffersSearch
63+data MarketplaceoffersSearch' = MarketplaceoffersSearch'
57 { _msQuotaUser :: !(Maybe Text)
64 { _msQuotaUser :: !(Maybe Text)
58 , _msPrettyPrint :: !Bool
65 , _msPrettyPrint :: !Bool
59 , _msUserIp :: !(Maybe Text)
66 , _msUserIp :: !(Maybe Text)
@@ -61,7 +68,7 @@ data MarketplaceoffersSearch = MarketplaceoffersSearch
61 , _msPqlQuery :: !(Maybe Text)
68 , _msPqlQuery :: !(Maybe Text)
62 , _msOauthToken :: !(Maybe Text)
69 , _msOauthToken :: !(Maybe Text)
63 , _msFields :: !(Maybe Text)
70 , _msFields :: !(Maybe Text)
64− , _msAlt :: !Text
71+ , _msAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'MarketplaceoffersSearch'' with the minimum fields required to make a request.
74-- | Creates a value of 'MarketplaceoffersSearch'' with the minimum fields required to make a request.
@@ -83,10 +90,10 @@ data MarketplaceoffersSearch = MarketplaceoffersSearch
83-- * 'msFields'
90-- * 'msFields'
85-- * 'msAlt'
92-- * 'msAlt'
86−marketplaceoffersSearch
93+marketplaceoffersSearch'
87− :: MarketplaceoffersSearch
94+ :: MarketplaceoffersSearch'
88−marketplaceoffersSearch =
95+marketplaceoffersSearch' =
89− MarketplaceoffersSearch
96+ MarketplaceoffersSearch'
90 { _msQuotaUser = Nothing
97 { _msQuotaUser = Nothing
91 , _msPrettyPrint = True
98 , _msPrettyPrint = True
92 , _msUserIp = Nothing
99 , _msUserIp = Nothing
@@ -94,7 +101,7 @@ marketplaceoffersSearch =
94 , _msPqlQuery = Nothing
101 , _msPqlQuery = Nothing
95 , _msOauthToken = Nothing
102 , _msOauthToken = Nothing
96 , _msFields = Nothing
103 , _msFields = Nothing
97− , _msAlt = "json"
104+ , _msAlt = JSON
100-- | 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
@@ -136,20 +143,21 @@ msFields :: Lens' MarketplaceoffersSearch' (Maybe Text)
136msFields = lens _msFields (\ s a -> s{_msFields = a})
143msFields = lens _msFields (\ s a -> s{_msFields = a})
138-- | Data format for the response.
145-- | Data format for the response.
139−msAlt :: Lens' MarketplaceoffersSearch' Text
146+msAlt :: Lens' MarketplaceoffersSearch' Alt
140msAlt = lens _msAlt (\ s a -> s{_msAlt = a})
147msAlt = lens _msAlt (\ s a -> s{_msAlt = a})
142instance GoogleRequest MarketplaceoffersSearch' where
149instance GoogleRequest MarketplaceoffersSearch' where
143 type Rs MarketplaceoffersSearch' = GetOffersResponse
150 type Rs MarketplaceoffersSearch' = GetOffersResponse
144 request = requestWithRoute defReq adExchangeBuyerURL
151 request = requestWithRoute defReq adExchangeBuyerURL
145− requestWithRoute r u MarketplaceoffersSearch{..}
152+ requestWithRoute r u MarketplaceoffersSearch'{..}
146− = go _msQuotaUser _msPrettyPrint _msUserIp _msKey
153+ = go _msQuotaUser (Just _msPrettyPrint) _msUserIp
147 _msPqlQuery
155 _msPqlQuery
148 _msOauthToken
156 _msOauthToken
149 _msFields
157 _msFields
150− _msAlt
158+ (Just _msAlt)
152 = clientWithRoute
160 = clientWithRoute
153− (Proxy :: Proxy MarketplaceoffersSearchAPI)
161+ (Proxy :: Proxy MarketplaceoffersSearchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Get.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Get an order given its id
20-- | Get an order given its id
21-- /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 @AdexchangebuyerMarketplaceordersGet@.
22−module AdExchangeBuyer.Marketplaceorders.Get
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Get
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceordersGetAPI
26+ MarketplaceordersGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceordersGet
29+ , marketplaceordersGet'
29− , MarketplaceordersGet
30+ , MarketplaceordersGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , marQuotaUser
33 , marQuotaUser
@@ -43,16 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplaceordersGet@ which the
46-- | A resource alias for @AdexchangebuyerMarketplaceordersGet@ which the
46−-- 'MarketplaceordersGet' request conforms to.
47+-- 'MarketplaceordersGet'' request conforms to.
47−type MarketplaceordersGetAPI =
48+type MarketplaceordersGetResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 Capture "orderId" Text :>
50 Capture "orderId" 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 :>
50− Get '[JSON] MarketplaceOrder
57+ QueryParam "alt" Alt :> Get '[JSON] MarketplaceOrder
52-- | Get an order given its id
59-- | Get an order given its id
54−-- /See:/ 'marketplaceordersGet' smart constructor.
61+-- /See:/ 'marketplaceordersGet'' smart constructor.
55−data MarketplaceordersGet = MarketplaceordersGet
62+data MarketplaceordersGet' = MarketplaceordersGet'
56 { _marQuotaUser :: !(Maybe Text)
63 { _marQuotaUser :: !(Maybe Text)
57 , _marPrettyPrint :: !Bool
64 , _marPrettyPrint :: !Bool
58 , _marUserIp :: !(Maybe Text)
65 , _marUserIp :: !(Maybe Text)
@@ -60,7 +67,7 @@ data MarketplaceordersGet = MarketplaceordersGet
60 , _marOauthToken :: !(Maybe Text)
67 , _marOauthToken :: !(Maybe Text)
61 , _marOrderId :: !Text
68 , _marOrderId :: !Text
62 , _marFields :: !(Maybe Text)
69 , _marFields :: !(Maybe Text)
63− , _marAlt :: !Text
70+ , _marAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'MarketplaceordersGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'MarketplaceordersGet'' with the minimum fields required to make a request.
@@ -82,11 +89,11 @@ data MarketplaceordersGet = MarketplaceordersGet
82-- * 'marFields'
89-- * 'marFields'
84-- * 'marAlt'
91-- * 'marAlt'
85−marketplaceordersGet
92+marketplaceordersGet'
86 :: Text -- ^ 'orderId'
93 :: Text -- ^ 'orderId'
87− -> MarketplaceordersGet
94+ -> MarketplaceordersGet'
88−marketplaceordersGet pMarOrderId_ =
95+marketplaceordersGet' pMarOrderId_ =
89− MarketplaceordersGet
96+ MarketplaceordersGet'
90 { _marQuotaUser = Nothing
97 { _marQuotaUser = Nothing
91 , _marPrettyPrint = True
98 , _marPrettyPrint = True
92 , _marUserIp = Nothing
99 , _marUserIp = Nothing
@@ -94,7 +101,7 @@ marketplaceordersGet pMarOrderId_ =
94 , _marOauthToken = Nothing
101 , _marOauthToken = Nothing
95 , _marOrderId = pMarOrderId_
102 , _marOrderId = pMarOrderId_
96 , _marFields = Nothing
103 , _marFields = Nothing
97− , _marAlt = "json"
104+ , _marAlt = JSON
100-- | 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
@@ -139,20 +146,21 @@ marFields
139 = lens _marFields (\ s a -> s{_marFields = a})
146 = lens _marFields (\ s a -> s{_marFields = a})
141-- | Data format for the response.
148-- | Data format for the response.
142−marAlt :: Lens' MarketplaceordersGet' Text
149+marAlt :: Lens' MarketplaceordersGet' Alt
143marAlt = lens _marAlt (\ s a -> s{_marAlt = a})
150marAlt = lens _marAlt (\ s a -> s{_marAlt = a})
145instance GoogleRequest MarketplaceordersGet' where
152instance GoogleRequest MarketplaceordersGet' where
146 type Rs MarketplaceordersGet' = MarketplaceOrder
153 type Rs MarketplaceordersGet' = MarketplaceOrder
147 request = requestWithRoute defReq adExchangeBuyerURL
154 request = requestWithRoute defReq adExchangeBuyerURL
148− requestWithRoute r u MarketplaceordersGet{..}
155+ requestWithRoute r u MarketplaceordersGet'{..}
149− = go _marQuotaUser _marPrettyPrint _marUserIp _marKey
156+ = go _marQuotaUser (Just _marPrettyPrint) _marUserIp
150 _marOauthToken
158 _marOauthToken
151 _marOrderId
159 _marOrderId
152 _marFields
160 _marFields
153− _marAlt
161+ (Just _marAlt)
155 = clientWithRoute
163 = clientWithRoute
156− (Proxy :: Proxy MarketplaceordersGetAPI)
164+ (Proxy :: Proxy MarketplaceordersGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Insert.hs+75−64
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,124 +20,134 @@
19-- | Create the given list of orders
20-- | Create the given list of orders
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersInsert@.
22−module AdExchangeBuyer.Marketplaceorders.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Insert
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceordersInsertAPI
26+ MarketplaceordersInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceordersInsert
29+ , marketplaceordersInsert'
29− , MarketplaceordersInsert
30+ , MarketplaceordersInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , mQuotaUser
33+ , miQuotaUser
33− , mPrettyPrint
34+ , miPrettyPrint
34− , mUserIp
35+ , miUserIp
36− , mOauthToken
37+ , miOauthToken
37− , mFields
38+ , miFields
41import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerMarketplaceordersInsert@ which the
45-- | A resource alias for @AdexchangebuyerMarketplaceordersInsert@ which the
45−-- 'MarketplaceordersInsert' request conforms to.
46+-- 'MarketplaceordersInsert'' request conforms to.
46−type MarketplaceordersInsertAPI =
47+type MarketplaceordersInsertResource =
47 "marketplaceOrders" :>
48 "marketplaceOrders" :>
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 :>
48− "insert" :> Post '[JSON] CreateOrdersResponse
57+ Post '[JSON] CreateOrdersResponse
50-- | Create the given list of orders
59-- | Create the given list of orders
52−-- /See:/ 'marketplaceordersInsert' smart constructor.
61+-- /See:/ 'marketplaceordersInsert'' smart constructor.
53−data MarketplaceordersInsert = MarketplaceordersInsert
62+data MarketplaceordersInsert' = MarketplaceordersInsert'
54− { _mQuotaUser :: !(Maybe Text)
63+ { _miQuotaUser :: !(Maybe Text)
55− , _mPrettyPrint :: !Bool
64+ , _miPrettyPrint :: !Bool
56− , _mUserIp :: !(Maybe Text)
65+ , _miUserIp :: !(Maybe Text)
57− , _mKey :: !(Maybe Text)
66+ , _miKey :: !(Maybe Text)
58− , _mOauthToken :: !(Maybe Text)
67+ , _miOauthToken :: !(Maybe Text)
59− , _mFields :: !(Maybe Text)
68+ , _miFields :: !(Maybe Text)
60− , _mAlt :: !Text
69+ , _miAlt :: !Alt
61 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70 } deriving (Eq,Read,Show,Data,Typeable,Generic)
63-- | Creates a value of 'MarketplaceordersInsert'' with the minimum fields required to make a request.
72-- | Creates a value of 'MarketplaceordersInsert'' with the minimum fields required to make a request.
65-- 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:
67−-- * 'mQuotaUser'
76+-- * 'miQuotaUser'
69−-- * 'mPrettyPrint'
78+-- * 'miPrettyPrint'
71−-- * 'mUserIp'
80+-- * 'miUserIp'
73−-- * 'mKey'
82+-- * 'miKey'
75−-- * 'mOauthToken'
84+-- * 'miOauthToken'
77−-- * 'mFields'
86+-- * 'miFields'
79−-- * 'mAlt'
88+-- * 'miAlt'
80−marketplaceordersInsert
89+marketplaceordersInsert'
81− :: MarketplaceordersInsert
90+ :: MarketplaceordersInsert'
82−marketplaceordersInsert =
91+marketplaceordersInsert' =
83− MarketplaceordersInsert
92+ MarketplaceordersInsert'
84− { _mQuotaUser = Nothing
93+ { _miQuotaUser = Nothing
85− , _mPrettyPrint = True
94+ , _miPrettyPrint = True
86− , _mUserIp = Nothing
95+ , _miUserIp = Nothing
87− , _mKey = Nothing
96+ , _miKey = Nothing
88− , _mOauthToken = Nothing
97+ , _miOauthToken = Nothing
89− , _mFields = Nothing
98+ , _miFields = Nothing
90− , _mAlt = "json"
99+ , _miAlt = JSON
93-- | 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
94-- 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
95-- characters. Overrides userIp if both are provided.
104-- characters. Overrides userIp if both are provided.
96−mQuotaUser :: Lens' MarketplaceordersInsert' (Maybe Text)
105+miQuotaUser :: Lens' MarketplaceordersInsert' (Maybe Text)
97−mQuotaUser
106+miQuotaUser
98− = lens _mQuotaUser (\ s a -> s{_mQuotaUser = a})
107+ = lens _miQuotaUser (\ s a -> s{_miQuotaUser = a})
100-- | Returns response with indentations and line breaks.
109-- | Returns response with indentations and line breaks.
101−mPrettyPrint :: Lens' MarketplaceordersInsert' Bool
110+miPrettyPrint :: Lens' MarketplaceordersInsert' Bool
102−mPrettyPrint
111+miPrettyPrint
103− = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})
112+ = lens _miPrettyPrint
113+ (\ s a -> s{_miPrettyPrint = a})
105-- | 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
106-- want to enforce per-user limits.
116-- want to enforce per-user limits.
107−mUserIp :: Lens' MarketplaceordersInsert' (Maybe Text)
117+miUserIp :: Lens' MarketplaceordersInsert' (Maybe Text)
108−mUserIp = lens _mUserIp (\ s a -> s{_mUserIp = a})
118+miUserIp = lens _miUserIp (\ s a -> s{_miUserIp = a})
110-- | 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
111-- 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
113−mKey :: Lens' MarketplaceordersInsert' (Maybe Text)
123+miKey :: Lens' MarketplaceordersInsert' (Maybe Text)
114−mKey = lens _mKey (\ s a -> s{_mKey = a})
124+miKey = lens _miKey (\ s a -> s{_miKey = a})
116-- | OAuth 2.0 token for the current user.
126-- | OAuth 2.0 token for the current user.
117−mOauthToken :: Lens' MarketplaceordersInsert' (Maybe Text)
127+miOauthToken :: Lens' MarketplaceordersInsert' (Maybe Text)
118−mOauthToken
128+miOauthToken
119− = lens _mOauthToken (\ s a -> s{_mOauthToken = a})
129+ = lens _miOauthToken (\ s a -> s{_miOauthToken = a})
121-- | Selector specifying which fields to include in a partial response.
131-- | Selector specifying which fields to include in a partial response.
122−mFields :: Lens' MarketplaceordersInsert' (Maybe Text)
132+miFields :: Lens' MarketplaceordersInsert' (Maybe Text)
123−mFields = lens _mFields (\ s a -> s{_mFields = a})
133+miFields = lens _miFields (\ s a -> s{_miFields = a})
125-- | Data format for the response.
135-- | Data format for the response.
126−mAlt :: Lens' MarketplaceordersInsert' Text
136+miAlt :: Lens' MarketplaceordersInsert' Alt
127−mAlt = lens _mAlt (\ s a -> s{_mAlt = a})
137+miAlt = lens _miAlt (\ s a -> s{_miAlt = a})
129instance GoogleRequest MarketplaceordersInsert' where
139instance GoogleRequest MarketplaceordersInsert' where
130 type Rs MarketplaceordersInsert' =
140 type Rs MarketplaceordersInsert' =
131 CreateOrdersResponse
141 CreateOrdersResponse
132 request = requestWithRoute defReq adExchangeBuyerURL
142 request = requestWithRoute defReq adExchangeBuyerURL
133− requestWithRoute r u MarketplaceordersInsert{..}
143+ requestWithRoute r u MarketplaceordersInsert'{..}
134− = go _mQuotaUser _mPrettyPrint _mUserIp _mKey
144+ = go _miQuotaUser (Just _miPrettyPrint) _miUserIp
135− _mOauthToken
145+ _miKey
136− _mFields
146+ _miOauthToken
139 = clientWithRoute
150 = clientWithRoute
140− (Proxy :: Proxy MarketplaceordersInsertAPI)
151+ (Proxy :: Proxy MarketplaceordersInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Patch.hs+35−24
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Update the given order. This method supports patch semantics.
20-- | Update the given order. This method supports patch semantics.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersPatch@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersPatch@.
22−module AdExchangeBuyer.Marketplaceorders.Patch
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Patch
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceordersPatchAPI
26+ MarketplaceordersPatchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceordersPatch
29+ , marketplaceordersPatch'
29− , MarketplaceordersPatch
30+ , MarketplaceordersPatch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mpQuotaUser
33 , mpQuotaUser
@@ -45,20 +46,29 @@ import Network.Google.AdExchangeBuyer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangebuyerMarketplaceordersPatch@ which the
48-- | A resource alias for @AdexchangebuyerMarketplaceordersPatch@ which the
48−-- 'MarketplaceordersPatch' request conforms to.
49+-- 'MarketplaceordersPatch'' request conforms to.
49−type MarketplaceordersPatchAPI =
50+type MarketplaceordersPatchResource =
50 "marketplaceOrders" :>
51 "marketplaceOrders" :>
51 Capture "orderId" Text :>
52 Capture "orderId" Text :>
52 Capture "revisionNumber" Int64 :>
53 Capture "revisionNumber" Int64 :>
53− Capture "updateAction" Text :>
54+ Capture "updateAction"
55+ AdexchangebuyerMarketplaceordersPatchUpdateAction
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 :>
54− Patch '[JSON] MarketplaceOrder
64+ Patch '[JSON] MarketplaceOrder
56-- | Update the given order. This method supports patch semantics.
66-- | Update the given order. This method supports patch semantics.
58−-- /See:/ 'marketplaceordersPatch' smart constructor.
68+-- /See:/ 'marketplaceordersPatch'' smart constructor.
59−data MarketplaceordersPatch = MarketplaceordersPatch
69+data MarketplaceordersPatch' = MarketplaceordersPatch'
60 { _mpQuotaUser :: !(Maybe Text)
70 { _mpQuotaUser :: !(Maybe Text)
61− , _mpUpdateAction :: !Text
71+ , _mpUpdateAction :: !AdexchangebuyerMarketplaceordersPatchUpdateAction
62 , _mpPrettyPrint :: !Bool
72 , _mpPrettyPrint :: !Bool
63 , _mpUserIp :: !(Maybe Text)
73 , _mpUserIp :: !(Maybe Text)
64 , _mpRevisionNumber :: !Int64
74 , _mpRevisionNumber :: !Int64
@@ -66,7 +76,7 @@ data MarketplaceordersPatch = MarketplaceordersPatch
66 , _mpOauthToken :: !(Maybe Text)
76 , _mpOauthToken :: !(Maybe Text)
67 , _mpOrderId :: !Text
77 , _mpOrderId :: !Text
68 , _mpFields :: !(Maybe Text)
78 , _mpFields :: !(Maybe Text)
69− , _mpAlt :: !Text
79+ , _mpAlt :: !Alt
70 } deriving (Eq,Read,Show,Data,Typeable,Generic)
80 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72-- | Creates a value of 'MarketplaceordersPatch'' with the minimum fields required to make a request.
82-- | Creates a value of 'MarketplaceordersPatch'' with the minimum fields required to make a request.
@@ -92,13 +102,13 @@ data MarketplaceordersPatch = MarketplaceordersPatch
92-- * 'mpFields'
102-- * 'mpFields'
94-- * 'mpAlt'
104-- * 'mpAlt'
95−marketplaceordersPatch
105+marketplaceordersPatch'
96− :: Text -- ^ 'updateAction'
106+ :: AdexchangebuyerMarketplaceordersPatchUpdateAction -- ^ 'updateAction'
97 -> Int64 -- ^ 'revisionNumber'
107 -> Int64 -- ^ 'revisionNumber'
98 -> Text -- ^ 'orderId'
108 -> Text -- ^ 'orderId'
99− -> MarketplaceordersPatch
109+ -> MarketplaceordersPatch'
100−marketplaceordersPatch pMpUpdateAction_ pMpRevisionNumber_ pMpOrderId_ =
110+marketplaceordersPatch' pMpUpdateAction_ pMpRevisionNumber_ pMpOrderId_ =
101− MarketplaceordersPatch
111+ MarketplaceordersPatch'
102 { _mpQuotaUser = Nothing
112 { _mpQuotaUser = Nothing
103 , _mpUpdateAction = pMpUpdateAction_
113 , _mpUpdateAction = pMpUpdateAction_
104 , _mpPrettyPrint = True
114 , _mpPrettyPrint = True
@@ -108,7 +118,7 @@ marketplaceordersPatch pMpUpdateAction_ pMpRevisionNumber_ pMpOrderId_ =
108 , _mpOauthToken = Nothing
118 , _mpOauthToken = Nothing
109 , _mpOrderId = pMpOrderId_
119 , _mpOrderId = pMpOrderId_
110 , _mpFields = Nothing
120 , _mpFields = Nothing
111− , _mpAlt = "json"
121+ , _mpAlt = JSON
114-- | Available to use for quota purposes for server-side applications. Can be
124-- | Available to use for quota purposes for server-side applications. Can be
@@ -119,7 +129,7 @@ mpQuotaUser
119 = lens _mpQuotaUser (\ s a -> s{_mpQuotaUser = a})
129 = lens _mpQuotaUser (\ s a -> s{_mpQuotaUser = a})
121-- | The proposed action to take on the order.
131-- | The proposed action to take on the order.
122−mpUpdateAction :: Lens' MarketplaceordersPatch' Text
132+mpUpdateAction :: Lens' MarketplaceordersPatch' AdexchangebuyerMarketplaceordersPatchUpdateAction
123mpUpdateAction
133mpUpdateAction
124 = lens _mpUpdateAction
134 = lens _mpUpdateAction
125 (\ s a -> s{_mpUpdateAction = a})
135 (\ s a -> s{_mpUpdateAction = a})
@@ -165,23 +175,24 @@ mpFields :: Lens' MarketplaceordersPatch' (Maybe Text)
165mpFields = lens _mpFields (\ s a -> s{_mpFields = a})
175mpFields = lens _mpFields (\ s a -> s{_mpFields = a})
167-- | Data format for the response.
177-- | Data format for the response.
168−mpAlt :: Lens' MarketplaceordersPatch' Text
178+mpAlt :: Lens' MarketplaceordersPatch' Alt
169mpAlt = lens _mpAlt (\ s a -> s{_mpAlt = a})
179mpAlt = lens _mpAlt (\ s a -> s{_mpAlt = a})
171instance GoogleRequest MarketplaceordersPatch' where
181instance GoogleRequest MarketplaceordersPatch' where
172 type Rs MarketplaceordersPatch' = MarketplaceOrder
182 type Rs MarketplaceordersPatch' = MarketplaceOrder
173 request = requestWithRoute defReq adExchangeBuyerURL
183 request = requestWithRoute defReq adExchangeBuyerURL
174− requestWithRoute r u MarketplaceordersPatch{..}
184+ requestWithRoute r u MarketplaceordersPatch'{..}
175− = go _mpQuotaUser _mpUpdateAction _mpPrettyPrint
185+ = go _mpQuotaUser _mpUpdateAction
186+ (Just _mpPrettyPrint)
176 _mpUserIp
187 _mpUserIp
177 _mpRevisionNumber
188 _mpRevisionNumber
179 _mpOauthToken
190 _mpOauthToken
180 _mpOrderId
191 _mpOrderId
181 _mpFields
192 _mpFields
182− _mpAlt
193+ (Just _mpAlt)
184 = clientWithRoute
195 = clientWithRoute
185− (Proxy :: Proxy MarketplaceordersPatchAPI)
196+ (Proxy :: Proxy MarketplaceordersPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Search.hs+29−21
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Search for orders using pql query
20-- | Search for orders using pql query
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersSearch@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersSearch@.
22−module AdExchangeBuyer.Marketplaceorders.Search
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Search
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceordersSearchAPI
26+ MarketplaceordersSearchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceordersSearch
29+ , marketplaceordersSearch'
29− , MarketplaceordersSearch
30+ , MarketplaceordersSearch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mssQuotaUser
33 , mssQuotaUser
@@ -43,17 +44,23 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerMarketplaceordersSearch@ which the
46-- | A resource alias for @AdexchangebuyerMarketplaceordersSearch@ which the
46−-- 'MarketplaceordersSearch' request conforms to.
47+-- 'MarketplaceordersSearch'' request conforms to.
47−type MarketplaceordersSearchAPI =
48+type MarketplaceordersSearchResource =
48 "marketplaceOrders" :>
49 "marketplaceOrders" :>
49 "search" :>
50 "search" :>
50− QueryParam "pqlQuery" Text :>
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 :>
51− Get '[JSON] GetOrdersResponse
58+ QueryParam "alt" Alt :> Get '[JSON] GetOrdersResponse
53-- | Search for orders using pql query
60-- | Search for orders using pql query
55−-- /See:/ 'marketplaceordersSearch' smart constructor.
62+-- /See:/ 'marketplaceordersSearch'' smart constructor.
56−data MarketplaceordersSearch = MarketplaceordersSearch
63+data MarketplaceordersSearch' = MarketplaceordersSearch'
57 { _mssQuotaUser :: !(Maybe Text)
64 { _mssQuotaUser :: !(Maybe Text)
58 , _mssPrettyPrint :: !Bool
65 , _mssPrettyPrint :: !Bool
59 , _mssUserIp :: !(Maybe Text)
66 , _mssUserIp :: !(Maybe Text)
@@ -61,7 +68,7 @@ data MarketplaceordersSearch = MarketplaceordersSearch
61 , _mssPqlQuery :: !(Maybe Text)
68 , _mssPqlQuery :: !(Maybe Text)
62 , _mssOauthToken :: !(Maybe Text)
69 , _mssOauthToken :: !(Maybe Text)
63 , _mssFields :: !(Maybe Text)
70 , _mssFields :: !(Maybe Text)
64− , _mssAlt :: !Text
71+ , _mssAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'MarketplaceordersSearch'' with the minimum fields required to make a request.
74-- | Creates a value of 'MarketplaceordersSearch'' with the minimum fields required to make a request.
@@ -83,10 +90,10 @@ data MarketplaceordersSearch = MarketplaceordersSearch
83-- * 'mssFields'
90-- * 'mssFields'
85-- * 'mssAlt'
92-- * 'mssAlt'
86−marketplaceordersSearch
93+marketplaceordersSearch'
87− :: MarketplaceordersSearch
94+ :: MarketplaceordersSearch'
88−marketplaceordersSearch =
95+marketplaceordersSearch' =
89− MarketplaceordersSearch
96+ MarketplaceordersSearch'
90 { _mssQuotaUser = Nothing
97 { _mssQuotaUser = Nothing
91 , _mssPrettyPrint = True
98 , _mssPrettyPrint = True
92 , _mssUserIp = Nothing
99 , _mssUserIp = Nothing
@@ -94,7 +101,7 @@ marketplaceordersSearch =
94 , _mssPqlQuery = Nothing
101 , _mssPqlQuery = Nothing
95 , _mssOauthToken = Nothing
102 , _mssOauthToken = Nothing
96 , _mssFields = Nothing
103 , _mssFields = Nothing
97− , _mssAlt = "json"
104+ , _mssAlt = JSON
100-- | 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
@@ -139,20 +146,21 @@ mssFields
139 = lens _mssFields (\ s a -> s{_mssFields = a})
146 = lens _mssFields (\ s a -> s{_mssFields = a})
141-- | Data format for the response.
148-- | Data format for the response.
142−mssAlt :: Lens' MarketplaceordersSearch' Text
149+mssAlt :: Lens' MarketplaceordersSearch' Alt
143mssAlt = lens _mssAlt (\ s a -> s{_mssAlt = a})
150mssAlt = lens _mssAlt (\ s a -> s{_mssAlt = a})
145instance GoogleRequest MarketplaceordersSearch' where
152instance GoogleRequest MarketplaceordersSearch' where
146 type Rs MarketplaceordersSearch' = GetOrdersResponse
153 type Rs MarketplaceordersSearch' = GetOrdersResponse
147 request = requestWithRoute defReq adExchangeBuyerURL
154 request = requestWithRoute defReq adExchangeBuyerURL
148− requestWithRoute r u MarketplaceordersSearch{..}
155+ requestWithRoute r u MarketplaceordersSearch'{..}
149− = go _mssQuotaUser _mssPrettyPrint _mssUserIp _mssKey
156+ = go _mssQuotaUser (Just _mssPrettyPrint) _mssUserIp
150 _mssPqlQuery
158 _mssPqlQuery
151 _mssOauthToken
159 _mssOauthToken
152 _mssFields
160 _mssFields
153− _mssAlt
161+ (Just _mssAlt)
155 = clientWithRoute
163 = clientWithRoute
156− (Proxy :: Proxy MarketplaceordersSearchAPI)
164+ (Proxy :: Proxy MarketplaceordersSearchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Marketplaceorders/Update.hs+107−94
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,169 +20,181 @@
19-- | Update the given order
20-- | Update the given order
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersUpdate@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerMarketplaceordersUpdate@.
22−module AdExchangeBuyer.Marketplaceorders.Update
23+module Network.Google.Resource.AdExchangeBuyer.Marketplaceorders.Update
24 -- * REST Resource
25 -- * REST Resource
25− MarketplaceordersUpdateAPI
26+ MarketplaceordersUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , marketplaceordersUpdate
29+ , marketplaceordersUpdate'
29− , MarketplaceordersUpdate
30+ , MarketplaceordersUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32− , muQuotaUser
33+ , muuQuotaUser
33− , muUpdateAction
34+ , muuUpdateAction
34− , muPrettyPrint
35+ , muuPrettyPrint
35− , muUserIp
36+ , muuUserIp
36− , muRevisionNumber
37+ , muuRevisionNumber
38− , muOauthToken
39+ , muuOauthToken
39− , muOrderId
40+ , muuOrderId
40− , muFields
41+ , muuFields
44import Network.Google.AdExchangeBuyer.Types
45import Network.Google.AdExchangeBuyer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangebuyerMarketplaceordersUpdate@ which the
48-- | A resource alias for @AdexchangebuyerMarketplaceordersUpdate@ which the
48−-- 'MarketplaceordersUpdate' request conforms to.
49+-- 'MarketplaceordersUpdate'' request conforms to.
49−type MarketplaceordersUpdateAPI =
50+type MarketplaceordersUpdateResource =
50 "marketplaceOrders" :>
51 "marketplaceOrders" :>
51 Capture "orderId" Text :>
52 Capture "orderId" Text :>
52 Capture "revisionNumber" Int64 :>
53 Capture "revisionNumber" Int64 :>
53− Capture "updateAction" Text :>
54+ Capture "updateAction"
55+ AdexchangebuyerMarketplaceordersUpdateUpdateAction
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 :>
54− Put '[JSON] MarketplaceOrder
63+ QueryParam "alt" Alt :> Put '[JSON] MarketplaceOrder
56-- | Update the given order
65-- | Update the given order
58−-- /See:/ 'marketplaceordersUpdate' smart constructor.
67+-- /See:/ 'marketplaceordersUpdate'' smart constructor.
59−data MarketplaceordersUpdate = MarketplaceordersUpdate
68+data MarketplaceordersUpdate' = MarketplaceordersUpdate'
60− { _muQuotaUser :: !(Maybe Text)
69+ { _muuQuotaUser :: !(Maybe Text)
61− , _muUpdateAction :: !Text
70+ , _muuUpdateAction :: !AdexchangebuyerMarketplaceordersUpdateUpdateAction
62− , _muPrettyPrint :: !Bool
71+ , _muuPrettyPrint :: !Bool
63− , _muUserIp :: !(Maybe Text)
72+ , _muuUserIp :: !(Maybe Text)
64− , _muRevisionNumber :: !Int64
73+ , _muuRevisionNumber :: !Int64
65− , _muKey :: !(Maybe Text)
74+ , _muuKey :: !(Maybe Text)
66− , _muOauthToken :: !(Maybe Text)
75+ , _muuOauthToken :: !(Maybe Text)
67− , _muOrderId :: !Text
76+ , _muuOrderId :: !Text
68− , _muFields :: !(Maybe Text)
77+ , _muuFields :: !(Maybe Text)
69− , _muAlt :: !Text
78+ , _muuAlt :: !Alt
70 } deriving (Eq,Read,Show,Data,Typeable,Generic)
79 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72-- | Creates a value of 'MarketplaceordersUpdate'' with the minimum fields required to make a request.
81-- | Creates a value of 'MarketplaceordersUpdate'' with the minimum fields required to make a request.
74-- Use one of the following lenses to modify other fields as desired:
83-- Use one of the following lenses to modify other fields as desired:
76−-- * 'muQuotaUser'
85+-- * 'muuQuotaUser'
78−-- * 'muUpdateAction'
87+-- * 'muuUpdateAction'
80−-- * 'muPrettyPrint'
89+-- * 'muuPrettyPrint'
82−-- * 'muUserIp'
91+-- * 'muuUserIp'
84−-- * 'muRevisionNumber'
93+-- * 'muuRevisionNumber'
86−-- * 'muKey'
95+-- * 'muuKey'
88−-- * 'muOauthToken'
97+-- * 'muuOauthToken'
90−-- * 'muOrderId'
99+-- * 'muuOrderId'
92−-- * 'muFields'
101+-- * 'muuFields'
94−-- * 'muAlt'
103+-- * 'muuAlt'
95−marketplaceordersUpdate
104+marketplaceordersUpdate'
96− :: Text -- ^ 'updateAction'
105+ :: AdexchangebuyerMarketplaceordersUpdateUpdateAction -- ^ 'updateAction'
97 -> Int64 -- ^ 'revisionNumber'
106 -> Int64 -- ^ 'revisionNumber'
98 -> Text -- ^ 'orderId'
107 -> Text -- ^ 'orderId'
99− -> MarketplaceordersUpdate
108+ -> MarketplaceordersUpdate'
100−marketplaceordersUpdate pMuUpdateAction_ pMuRevisionNumber_ pMuOrderId_ =
109+marketplaceordersUpdate' pMuuUpdateAction_ pMuuRevisionNumber_ pMuuOrderId_ =
101− MarketplaceordersUpdate
110+ MarketplaceordersUpdate'
102− { _muQuotaUser = Nothing
111+ { _muuQuotaUser = Nothing
103− , _muUpdateAction = pMuUpdateAction_
112+ , _muuUpdateAction = pMuuUpdateAction_
104− , _muPrettyPrint = True
113+ , _muuPrettyPrint = True
105− , _muUserIp = Nothing
114+ , _muuUserIp = Nothing
106− , _muRevisionNumber = pMuRevisionNumber_
115+ , _muuRevisionNumber = pMuuRevisionNumber_
107− , _muKey = Nothing
116+ , _muuKey = Nothing
108− , _muOauthToken = Nothing
117+ , _muuOauthToken = Nothing
109− , _muOrderId = pMuOrderId_
118+ , _muuOrderId = pMuuOrderId_
110− , _muFields = Nothing
119+ , _muuFields = Nothing
111− , _muAlt = "json"
120+ , _muuAlt = JSON
114-- | Available to use for quota purposes for server-side applications. Can be
123-- | 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
124-- any arbitrary string assigned to a user, but should not exceed 40
116-- characters. Overrides userIp if both are provided.
125-- characters. Overrides userIp if both are provided.
117−muQuotaUser :: Lens' MarketplaceordersUpdate' (Maybe Text)
126+muuQuotaUser :: Lens' MarketplaceordersUpdate' (Maybe Text)
118−muQuotaUser
127+muuQuotaUser
119− = lens _muQuotaUser (\ s a -> s{_muQuotaUser = a})
128+ = lens _muuQuotaUser (\ s a -> s{_muuQuotaUser = a})
121-- | The proposed action to take on the order.
130-- | The proposed action to take on the order.
122−muUpdateAction :: Lens' MarketplaceordersUpdate' Text
131+muuUpdateAction :: Lens' MarketplaceordersUpdate' AdexchangebuyerMarketplaceordersUpdateUpdateAction
123−muUpdateAction
132+muuUpdateAction
124− = lens _muUpdateAction
133+ = lens _muuUpdateAction
125− (\ s a -> s{_muUpdateAction = a})
134+ (\ s a -> s{_muuUpdateAction = a})
127-- | Returns response with indentations and line breaks.
136-- | Returns response with indentations and line breaks.
128−muPrettyPrint :: Lens' MarketplaceordersUpdate' Bool
137+muuPrettyPrint :: Lens' MarketplaceordersUpdate' Bool
129−muPrettyPrint
138+muuPrettyPrint
130− = lens _muPrettyPrint
139+ = lens _muuPrettyPrint
131− (\ s a -> s{_muPrettyPrint = a})
140+ (\ s a -> s{_muuPrettyPrint = a})
133-- | 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
134-- want to enforce per-user limits.
143-- want to enforce per-user limits.
135−muUserIp :: Lens' MarketplaceordersUpdate' (Maybe Text)
144+muuUserIp :: Lens' MarketplaceordersUpdate' (Maybe Text)
136−muUserIp = lens _muUserIp (\ s a -> s{_muUserIp = a})
145+muuUserIp
146+ = lens _muuUserIp (\ s a -> s{_muuUserIp = a})
138-- | The last known revision number to update. If the head revision in the
148-- | The last known revision number to update. If the head revision in the
139-- marketplace database has since changed, an error will be thrown. The
149-- marketplace database has since changed, an error will be thrown. The
140-- caller should then fetch the lastest order at head revision and retry
150-- caller should then fetch the lastest order at head revision and retry
141-- the update at that revision.
151-- the update at that revision.
142−muRevisionNumber :: Lens' MarketplaceordersUpdate' Int64
152+muuRevisionNumber :: Lens' MarketplaceordersUpdate' Int64
143−muRevisionNumber
153+muuRevisionNumber
144− = lens _muRevisionNumber
154+ = lens _muuRevisionNumber
145− (\ s a -> s{_muRevisionNumber = a})
155+ (\ s a -> s{_muuRevisionNumber = a})
147-- | API key. Your API key identifies your project and provides you with API
157-- | 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
158-- access, quota, and reports. Required unless you provide an OAuth 2.0
150−muKey :: Lens' MarketplaceordersUpdate' (Maybe Text)
160+muuKey :: Lens' MarketplaceordersUpdate' (Maybe Text)
151−muKey = lens _muKey (\ s a -> s{_muKey = a})
161+muuKey = lens _muuKey (\ s a -> s{_muuKey = a})
153-- | OAuth 2.0 token for the current user.
163-- | OAuth 2.0 token for the current user.
154−muOauthToken :: Lens' MarketplaceordersUpdate' (Maybe Text)
164+muuOauthToken :: Lens' MarketplaceordersUpdate' (Maybe Text)
155−muOauthToken
165+muuOauthToken
156− = lens _muOauthToken (\ s a -> s{_muOauthToken = a})
166+ = lens _muuOauthToken
167+ (\ s a -> s{_muuOauthToken = a})
158-- | The order id to update.
169-- | The order id to update.
159−muOrderId :: Lens' MarketplaceordersUpdate' Text
170+muuOrderId :: Lens' MarketplaceordersUpdate' Text
160−muOrderId
171+muuOrderId
161− = lens _muOrderId (\ s a -> s{_muOrderId = a})
172+ = lens _muuOrderId (\ s a -> s{_muuOrderId = a})
163-- | Selector specifying which fields to include in a partial response.
174-- | Selector specifying which fields to include in a partial response.
164−muFields :: Lens' MarketplaceordersUpdate' (Maybe Text)
175+muuFields :: Lens' MarketplaceordersUpdate' (Maybe Text)
165−muFields = lens _muFields (\ s a -> s{_muFields = a})
176+muuFields
177+ = lens _muuFields (\ s a -> s{_muuFields = a})
167-- | Data format for the response.
179-- | Data format for the response.
168−muAlt :: Lens' MarketplaceordersUpdate' Text
180+muuAlt :: Lens' MarketplaceordersUpdate' Alt
169−muAlt = lens _muAlt (\ s a -> s{_muAlt = a})
181+muuAlt = lens _muuAlt (\ s a -> s{_muuAlt = a})
171instance GoogleRequest MarketplaceordersUpdate' where
183instance GoogleRequest MarketplaceordersUpdate' where
172 type Rs MarketplaceordersUpdate' = MarketplaceOrder
184 type Rs MarketplaceordersUpdate' = MarketplaceOrder
173 request = requestWithRoute defReq adExchangeBuyerURL
185 request = requestWithRoute defReq adExchangeBuyerURL
174− requestWithRoute r u MarketplaceordersUpdate{..}
186+ requestWithRoute r u MarketplaceordersUpdate'{..}
175− = go _muQuotaUser _muUpdateAction _muPrettyPrint
187+ = go _muuQuotaUser _muuUpdateAction
176− _muUserIp
188+ (Just _muuPrettyPrint)
177− _muRevisionNumber
189+ _muuUserIp
178− _muKey
190+ _muuRevisionNumber
179− _muOauthToken
191+ _muuKey
180− _muOrderId
192+ _muuOauthToken
181− _muFields
193+ _muuOrderId
182− _muAlt
194+ _muuFields
184 = clientWithRoute
197 = clientWithRoute
185− (Proxy :: Proxy MarketplaceordersUpdateAPI)
198+ (Proxy :: Proxy MarketplaceordersUpdateResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiationrounds/Insert.hs+81−74
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,139 +20,145 @@
19-- | Adds the requested negotiationRound to the requested negotiation.
20-- | Adds the requested negotiationRound to the requested negotiation.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationroundsInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationroundsInsert@.
22−module AdExchangeBuyer.Negotiationrounds.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Negotiationrounds.Insert
24 -- * REST Resource
25 -- * REST Resource
25− NegotiationroundsInsertAPI
26+ NegotiationroundsInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , negotiationroundsInsert
29+ , negotiationroundsInsert'
29− , NegotiationroundsInsert
30+ , NegotiationroundsInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , niQuotaUser
33+ , nQuotaUser
33− , niPrettyPrint
34+ , nPrettyPrint
34− , niUserIp
35+ , nUserIp
36− , niOauthToken
37+ , nOauthToken
37− , niNegotiationId
38+ , nNegotiationId
38− , niFields
39+ , nFields
42import Network.Google.AdExchangeBuyer.Types
43import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerNegotiationroundsInsert@ which the
46-- | A resource alias for @AdexchangebuyerNegotiationroundsInsert@ which the
46−-- 'NegotiationroundsInsert' request conforms to.
47+-- 'NegotiationroundsInsert'' request conforms to.
47−type NegotiationroundsInsertAPI =
48+type NegotiationroundsInsertResource =
48 "negotiations" :>
49 "negotiations" :>
49 Capture "negotiationId" Int64 :>
50 Capture "negotiationId" Int64 :>
50 "negotiationrounds" :>
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 :>
51− Post '[JSON] NegotiationRoundDto
59+ Post '[JSON] NegotiationRoundDto
53-- | Adds the requested negotiationRound to the requested negotiation.
61-- | Adds the requested negotiationRound to the requested negotiation.
55−-- /See:/ 'negotiationroundsInsert' smart constructor.
63+-- /See:/ 'negotiationroundsInsert'' smart constructor.
56−data NegotiationroundsInsert = NegotiationroundsInsert
64+data NegotiationroundsInsert' = NegotiationroundsInsert'
57− { _niQuotaUser :: !(Maybe Text)
65+ { _nQuotaUser :: !(Maybe Text)
58− , _niPrettyPrint :: !Bool
66+ , _nPrettyPrint :: !Bool
59− , _niUserIp :: !(Maybe Text)
67+ , _nUserIp :: !(Maybe Text)
60− , _niKey :: !(Maybe Text)
68+ , _nKey :: !(Maybe Text)
61− , _niOauthToken :: !(Maybe Text)
69+ , _nOauthToken :: !(Maybe Text)
62− , _niNegotiationId :: !Int64
70+ , _nNegotiationId :: !Int64
63− , _niFields :: !(Maybe Text)
71+ , _nFields :: !(Maybe Text)
64− , _niAlt :: !Text
72+ , _nAlt :: !Alt
65 } deriving (Eq,Read,Show,Data,Typeable,Generic)
73 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67-- | Creates a value of 'NegotiationroundsInsert'' with the minimum fields required to make a request.
75-- | Creates a value of 'NegotiationroundsInsert'' with the minimum fields required to make a request.
69-- Use one of the following lenses to modify other fields as desired:
77-- Use one of the following lenses to modify other fields as desired:
71−-- * 'niQuotaUser'
79+-- * 'nQuotaUser'
73−-- * 'niPrettyPrint'
81+-- * 'nPrettyPrint'
75−-- * 'niUserIp'
83+-- * 'nUserIp'
77−-- * 'niKey'
85+-- * 'nKey'
79−-- * 'niOauthToken'
87+-- * 'nOauthToken'
81−-- * 'niNegotiationId'
89+-- * 'nNegotiationId'
83−-- * 'niFields'
91+-- * 'nFields'
85−-- * 'niAlt'
93+-- * 'nAlt'
86−negotiationroundsInsert
94+negotiationroundsInsert'
87 :: Int64 -- ^ 'negotiationId'
95 :: Int64 -- ^ 'negotiationId'
88− -> NegotiationroundsInsert
96+ -> NegotiationroundsInsert'
89−negotiationroundsInsert pNiNegotiationId_ =
97+negotiationroundsInsert' pNNegotiationId_ =
90− NegotiationroundsInsert
98+ NegotiationroundsInsert'
91− { _niQuotaUser = Nothing
99+ { _nQuotaUser = Nothing
92− , _niPrettyPrint = True
100+ , _nPrettyPrint = True
93− , _niUserIp = Nothing
101+ , _nUserIp = Nothing
94− , _niKey = Nothing
102+ , _nKey = Nothing
95− , _niOauthToken = Nothing
103+ , _nOauthToken = Nothing
96− , _niNegotiationId = pNiNegotiationId_
104+ , _nNegotiationId = pNNegotiationId_
97− , _niFields = Nothing
105+ , _nFields = Nothing
98− , _niAlt = "json"
106+ , _nAlt = JSON
101-- | 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
102-- any arbitrary string assigned to a user, but should not exceed 40
110-- any arbitrary string assigned to a user, but should not exceed 40
103-- characters. Overrides userIp if both are provided.
111-- characters. Overrides userIp if both are provided.
104−niQuotaUser :: Lens' NegotiationroundsInsert' (Maybe Text)
112+nQuotaUser :: Lens' NegotiationroundsInsert' (Maybe Text)
105−niQuotaUser
113+nQuotaUser
106− = lens _niQuotaUser (\ s a -> s{_niQuotaUser = a})
114+ = lens _nQuotaUser (\ s a -> s{_nQuotaUser = a})
108-- | Returns response with indentations and line breaks.
116-- | Returns response with indentations and line breaks.
109−niPrettyPrint :: Lens' NegotiationroundsInsert' Bool
117+nPrettyPrint :: Lens' NegotiationroundsInsert' Bool
110−niPrettyPrint
118+nPrettyPrint
111− = lens _niPrettyPrint
119+ = lens _nPrettyPrint (\ s a -> s{_nPrettyPrint = a})
112− (\ s a -> s{_niPrettyPrint = a})
114-- | IP address of the site where the request originates. Use this if you
121-- | IP address of the site where the request originates. Use this if you
115-- want to enforce per-user limits.
122-- want to enforce per-user limits.
116−niUserIp :: Lens' NegotiationroundsInsert' (Maybe Text)
123+nUserIp :: Lens' NegotiationroundsInsert' (Maybe Text)
117−niUserIp = lens _niUserIp (\ s a -> s{_niUserIp = a})
124+nUserIp = lens _nUserIp (\ s a -> s{_nUserIp = a})
119-- | 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
120-- 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
122−niKey :: Lens' NegotiationroundsInsert' (Maybe Text)
129+nKey :: Lens' NegotiationroundsInsert' (Maybe Text)
123−niKey = lens _niKey (\ s a -> s{_niKey = a})
130+nKey = lens _nKey (\ s a -> s{_nKey = a})
125-- | OAuth 2.0 token for the current user.
132-- | OAuth 2.0 token for the current user.
126−niOauthToken :: Lens' NegotiationroundsInsert' (Maybe Text)
133+nOauthToken :: Lens' NegotiationroundsInsert' (Maybe Text)
127−niOauthToken
134+nOauthToken
128− = lens _niOauthToken (\ s a -> s{_niOauthToken = a})
135+ = lens _nOauthToken (\ s a -> s{_nOauthToken = a})
130−niNegotiationId :: Lens' NegotiationroundsInsert' Int64
137+nNegotiationId :: Lens' NegotiationroundsInsert' Int64
131−niNegotiationId
138+nNegotiationId
132− = lens _niNegotiationId
139+ = lens _nNegotiationId
133− (\ s a -> s{_niNegotiationId = a})
140+ (\ s a -> s{_nNegotiationId = a})
135-- | Selector specifying which fields to include in a partial response.
142-- | Selector specifying which fields to include in a partial response.
136−niFields :: Lens' NegotiationroundsInsert' (Maybe Text)
143+nFields :: Lens' NegotiationroundsInsert' (Maybe Text)
137−niFields = lens _niFields (\ s a -> s{_niFields = a})
144+nFields = lens _nFields (\ s a -> s{_nFields = a})
139-- | Data format for the response.
146-- | Data format for the response.
140−niAlt :: Lens' NegotiationroundsInsert' Text
147+nAlt :: Lens' NegotiationroundsInsert' Alt
141−niAlt = lens _niAlt (\ s a -> s{_niAlt = a})
148+nAlt = lens _nAlt (\ s a -> s{_nAlt = a})
143instance GoogleRequest NegotiationroundsInsert' where
150instance GoogleRequest NegotiationroundsInsert' where
144 type Rs NegotiationroundsInsert' =
151 type Rs NegotiationroundsInsert' =
145 NegotiationRoundDto
152 NegotiationRoundDto
146 request = requestWithRoute defReq adExchangeBuyerURL
153 request = requestWithRoute defReq adExchangeBuyerURL
147− requestWithRoute r u NegotiationroundsInsert{..}
154+ requestWithRoute r u NegotiationroundsInsert'{..}
148− = go _niQuotaUser _niPrettyPrint _niUserIp _niKey
155+ = go _nQuotaUser (Just _nPrettyPrint) _nUserIp _nKey
149− _niOauthToken
156+ _nOauthToken
150− _niNegotiationId
157+ _nNegotiationId
151− _niFields
158+ _nFields
152− _niAlt
159+ (Just _nAlt)
154 = clientWithRoute
161 = clientWithRoute
155− (Proxy :: Proxy NegotiationroundsInsertAPI)
162+ (Proxy :: Proxy NegotiationroundsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs+29−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets the requested negotiation.
20-- | Gets the requested negotiation.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationsGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationsGet@.
22−module AdExchangeBuyer.Negotiations.Get
23+module Network.Google.Resource.AdExchangeBuyer.Negotiations.Get
24 -- * REST Resource
25 -- * REST Resource
25− NegotiationsGetAPI
26+ NegotiationsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , negotiationsGet
29+ , negotiationsGet'
29− , NegotiationsGet
30+ , NegotiationsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ngQuotaUser
33 , ngQuotaUser
@@ -43,16 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerNegotiationsGet@ which the
46-- | A resource alias for @AdexchangebuyerNegotiationsGet@ which the
46−-- 'NegotiationsGet' request conforms to.
47+-- 'NegotiationsGet'' request conforms to.
47−type NegotiationsGetAPI =
48+type NegotiationsGetResource =
48 "negotiations" :>
49 "negotiations" :>
49 Capture "negotiationId" Int64 :>
50 Capture "negotiationId" Int64 :>
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 :>
50− Get '[JSON] NegotiationDto
57+ QueryParam "alt" Alt :> Get '[JSON] NegotiationDto
52-- | Gets the requested negotiation.
59-- | Gets the requested negotiation.
54−-- /See:/ 'negotiationsGet' smart constructor.
61+-- /See:/ 'negotiationsGet'' smart constructor.
55−data NegotiationsGet = NegotiationsGet
62+data NegotiationsGet' = NegotiationsGet'
56 { _ngQuotaUser :: !(Maybe Text)
63 { _ngQuotaUser :: !(Maybe Text)
57 , _ngPrettyPrint :: !Bool
64 , _ngPrettyPrint :: !Bool
58 , _ngUserIp :: !(Maybe Text)
65 , _ngUserIp :: !(Maybe Text)
@@ -60,7 +67,7 @@ data NegotiationsGet = NegotiationsGet
60 , _ngOauthToken :: !(Maybe Text)
67 , _ngOauthToken :: !(Maybe Text)
61 , _ngNegotiationId :: !Int64
68 , _ngNegotiationId :: !Int64
62 , _ngFields :: !(Maybe Text)
69 , _ngFields :: !(Maybe Text)
63− , _ngAlt :: !Text
70+ , _ngAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'NegotiationsGet'' with the minimum fields required to make a request.
@@ -82,11 +89,11 @@ data NegotiationsGet = NegotiationsGet
82-- * 'ngFields'
89-- * 'ngFields'
84-- * 'ngAlt'
91-- * 'ngAlt'
85−negotiationsGet
92+negotiationsGet'
86 :: Int64 -- ^ 'negotiationId'
93 :: Int64 -- ^ 'negotiationId'
87− -> NegotiationsGet
94+ -> NegotiationsGet'
88−negotiationsGet pNgNegotiationId_ =
95+negotiationsGet' pNgNegotiationId_ =
89− NegotiationsGet
96+ NegotiationsGet'
90 { _ngQuotaUser = Nothing
97 { _ngQuotaUser = Nothing
91 , _ngPrettyPrint = True
98 , _ngPrettyPrint = True
92 , _ngUserIp = Nothing
99 , _ngUserIp = Nothing
@@ -94,7 +101,7 @@ negotiationsGet pNgNegotiationId_ =
94 , _ngOauthToken = Nothing
101 , _ngOauthToken = Nothing
95 , _ngNegotiationId = pNgNegotiationId_
102 , _ngNegotiationId = pNgNegotiationId_
96 , _ngFields = Nothing
103 , _ngFields = Nothing
97− , _ngAlt = "json"
104+ , _ngAlt = JSON
100-- | 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
@@ -136,19 +143,21 @@ ngFields :: Lens' NegotiationsGet' (Maybe Text)
136ngFields = lens _ngFields (\ s a -> s{_ngFields = a})
143ngFields = lens _ngFields (\ s a -> s{_ngFields = a})
138-- | Data format for the response.
145-- | Data format for the response.
139−ngAlt :: Lens' NegotiationsGet' Text
146+ngAlt :: Lens' NegotiationsGet' Alt
140ngAlt = lens _ngAlt (\ s a -> s{_ngAlt = a})
147ngAlt = lens _ngAlt (\ s a -> s{_ngAlt = a})
142instance GoogleRequest NegotiationsGet' where
149instance GoogleRequest NegotiationsGet' where
143 type Rs NegotiationsGet' = NegotiationDto
150 type Rs NegotiationsGet' = NegotiationDto
144 request = requestWithRoute defReq adExchangeBuyerURL
151 request = requestWithRoute defReq adExchangeBuyerURL
145− requestWithRoute r u NegotiationsGet{..}
152+ requestWithRoute r u NegotiationsGet'{..}
146− = go _ngQuotaUser _ngPrettyPrint _ngUserIp _ngKey
153+ = go _ngQuotaUser (Just _ngPrettyPrint) _ngUserIp
147 _ngOauthToken
155 _ngOauthToken
148 _ngNegotiationId
156 _ngNegotiationId
149 _ngFields
157 _ngFields
150− _ngAlt
158+ (Just _ngAlt)
152− = clientWithRoute (Proxy :: Proxy NegotiationsGetAPI)
160+ = clientWithRoute
161+ (Proxy :: Proxy NegotiationsGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs+74−64
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,122 +20,131 @@
19-- | Creates or updates the requested negotiation.
20-- | Creates or updates the requested negotiation.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationsInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationsInsert@.
22−module AdExchangeBuyer.Negotiations.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert
24 -- * REST Resource
25 -- * REST Resource
25− NegotiationsInsertAPI
26+ NegotiationsInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , negotiationsInsert
29+ , negotiationsInsert'
29− , NegotiationsInsert
30+ , NegotiationsInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32− , nQuotaUser
33+ , niQuotaUser
33− , nPrettyPrint
34+ , niPrettyPrint
34− , nUserIp
35+ , niUserIp
36− , nOauthToken
37+ , niOauthToken
37− , nFields
38+ , niFields
41import Network.Google.AdExchangeBuyer.Types
42import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerNegotiationsInsert@ which the
45-- | A resource alias for @AdexchangebuyerNegotiationsInsert@ which the
45−-- 'NegotiationsInsert' request conforms to.
46+-- 'NegotiationsInsert'' request conforms to.
46−type NegotiationsInsertAPI =
47+type NegotiationsInsertResource =
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 :>
47− "negotiations" :> Post '[JSON] NegotiationDto
55+ QueryParam "alt" Alt :> Post '[JSON] NegotiationDto
49-- | Creates or updates the requested negotiation.
57-- | Creates or updates the requested negotiation.
51−-- /See:/ 'negotiationsInsert' smart constructor.
59+-- /See:/ 'negotiationsInsert'' smart constructor.
52−data NegotiationsInsert = NegotiationsInsert
60+data NegotiationsInsert' = NegotiationsInsert'
53− { _nQuotaUser :: !(Maybe Text)
61+ { _niQuotaUser :: !(Maybe Text)
54− , _nPrettyPrint :: !Bool
62+ , _niPrettyPrint :: !Bool
55− , _nUserIp :: !(Maybe Text)
63+ , _niUserIp :: !(Maybe Text)
56− , _nKey :: !(Maybe Text)
64+ , _niKey :: !(Maybe Text)
57− , _nOauthToken :: !(Maybe Text)
65+ , _niOauthToken :: !(Maybe Text)
58− , _nFields :: !(Maybe Text)
66+ , _niFields :: !(Maybe Text)
59− , _nAlt :: !Text
67+ , _niAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.
70-- | Creates a value of 'NegotiationsInsert'' with the minimum fields required to make a request.
64-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
66−-- * 'nQuotaUser'
74+-- * 'niQuotaUser'
68−-- * 'nPrettyPrint'
76+-- * 'niPrettyPrint'
70−-- * 'nUserIp'
78+-- * 'niUserIp'
72−-- * 'nKey'
80+-- * 'niKey'
74−-- * 'nOauthToken'
82+-- * 'niOauthToken'
76−-- * 'nFields'
84+-- * 'niFields'
78−-- * 'nAlt'
86+-- * 'niAlt'
79−negotiationsInsert
87+negotiationsInsert'
80− :: NegotiationsInsert
88+ :: NegotiationsInsert'
81−negotiationsInsert =
89+negotiationsInsert' =
82− NegotiationsInsert
90+ NegotiationsInsert'
83− { _nQuotaUser = Nothing
91+ { _niQuotaUser = Nothing
84− , _nPrettyPrint = True
92+ , _niPrettyPrint = True
85− , _nUserIp = Nothing
93+ , _niUserIp = Nothing
86− , _nKey = Nothing
94+ , _niKey = Nothing
87− , _nOauthToken = Nothing
95+ , _niOauthToken = Nothing
88− , _nFields = Nothing
96+ , _niFields = Nothing
89− , _nAlt = "json"
97+ , _niAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
93-- any arbitrary string assigned to a user, but should not exceed 40
101-- any arbitrary string assigned to a user, but should not exceed 40
94-- characters. Overrides userIp if both are provided.
102-- characters. Overrides userIp if both are provided.
95−nQuotaUser :: Lens' NegotiationsInsert' (Maybe Text)
103+niQuotaUser :: Lens' NegotiationsInsert' (Maybe Text)
96−nQuotaUser
104+niQuotaUser
97− = lens _nQuotaUser (\ s a -> s{_nQuotaUser = a})
105+ = lens _niQuotaUser (\ s a -> s{_niQuotaUser = a})
99-- | Returns response with indentations and line breaks.
107-- | Returns response with indentations and line breaks.
100−nPrettyPrint :: Lens' NegotiationsInsert' Bool
108+niPrettyPrint :: Lens' NegotiationsInsert' Bool
101−nPrettyPrint
109+niPrettyPrint
102− = lens _nPrettyPrint (\ s a -> s{_nPrettyPrint = a})
110+ = lens _niPrettyPrint
111+ (\ s a -> s{_niPrettyPrint = a})
104-- | IP address of the site where the request originates. Use this if you
113-- | IP address of the site where the request originates. Use this if you
105-- want to enforce per-user limits.
114-- want to enforce per-user limits.
106−nUserIp :: Lens' NegotiationsInsert' (Maybe Text)
115+niUserIp :: Lens' NegotiationsInsert' (Maybe Text)
107−nUserIp = lens _nUserIp (\ s a -> s{_nUserIp = a})
116+niUserIp = lens _niUserIp (\ s a -> s{_niUserIp = a})
109-- | API key. Your API key identifies your project and provides you with API
118-- | API key. Your API key identifies your project and provides you with API
110-- access, quota, and reports. Required unless you provide an OAuth 2.0
119-- access, quota, and reports. Required unless you provide an OAuth 2.0
112−nKey :: Lens' NegotiationsInsert' (Maybe Text)
121+niKey :: Lens' NegotiationsInsert' (Maybe Text)
113−nKey = lens _nKey (\ s a -> s{_nKey = a})
122+niKey = lens _niKey (\ s a -> s{_niKey = a})
115-- | OAuth 2.0 token for the current user.
124-- | OAuth 2.0 token for the current user.
116−nOauthToken :: Lens' NegotiationsInsert' (Maybe Text)
125+niOauthToken :: Lens' NegotiationsInsert' (Maybe Text)
117−nOauthToken
126+niOauthToken
118− = lens _nOauthToken (\ s a -> s{_nOauthToken = a})
127+ = lens _niOauthToken (\ s a -> s{_niOauthToken = a})
120-- | Selector specifying which fields to include in a partial response.
129-- | Selector specifying which fields to include in a partial response.
121−nFields :: Lens' NegotiationsInsert' (Maybe Text)
130+niFields :: Lens' NegotiationsInsert' (Maybe Text)
122−nFields = lens _nFields (\ s a -> s{_nFields = a})
131+niFields = lens _niFields (\ s a -> s{_niFields = a})
124-- | Data format for the response.
133-- | Data format for the response.
125−nAlt :: Lens' NegotiationsInsert' Text
134+niAlt :: Lens' NegotiationsInsert' Alt
126−nAlt = lens _nAlt (\ s a -> s{_nAlt = a})
135+niAlt = lens _niAlt (\ s a -> s{_niAlt = a})
128instance GoogleRequest NegotiationsInsert' where
137instance GoogleRequest NegotiationsInsert' where
129 type Rs NegotiationsInsert' = NegotiationDto
138 type Rs NegotiationsInsert' = NegotiationDto
130 request = requestWithRoute defReq adExchangeBuyerURL
139 request = requestWithRoute defReq adExchangeBuyerURL
131− requestWithRoute r u NegotiationsInsert{..}
140+ requestWithRoute r u NegotiationsInsert'{..}
132− = go _nQuotaUser _nPrettyPrint _nUserIp _nKey
141+ = go _niQuotaUser (Just _niPrettyPrint) _niUserIp
133− _nOauthToken
142+ _niKey
134− _nFields
143+ _niOauthToken
137 = clientWithRoute
147 = clientWithRoute
138− (Proxy :: Proxy NegotiationsInsertAPI)
148+ (Proxy :: Proxy NegotiationsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/List.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Lists all negotiations the authenticated user has access to.
20-- | Lists all negotiations the authenticated user has access to.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerNegotiationsList@.
22−module AdExchangeBuyer.Negotiations.List
23+module Network.Google.Resource.AdExchangeBuyer.Negotiations.List
24 -- * REST Resource
25 -- * REST Resource
25− NegotiationsListAPI
26+ NegotiationsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , negotiationsList
29+ , negotiationsList'
29− , NegotiationsList
30+ , NegotiationsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , nlQuotaUser
33 , nlQuotaUser
@@ -42,21 +43,29 @@ import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerNegotiationsList@ which the
45-- | A resource alias for @AdexchangebuyerNegotiationsList@ which the
45−-- 'NegotiationsList' request conforms to.
46+-- 'NegotiationsList'' request conforms to.
46−type NegotiationsListAPI =
47+type NegotiationsListResource =
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 :>
47− "negotiations" :> Get '[JSON] GetNegotiationsResponse
56+ Get '[JSON] GetNegotiationsResponse
49-- | Lists all negotiations the authenticated user has access to.
58-- | Lists all negotiations the authenticated user has access to.
51−-- /See:/ 'negotiationsList' smart constructor.
60+-- /See:/ 'negotiationsList'' smart constructor.
52−data NegotiationsList = NegotiationsList
61+data NegotiationsList' = NegotiationsList'
53 { _nlQuotaUser :: !(Maybe Text)
62 { _nlQuotaUser :: !(Maybe Text)
54 , _nlPrettyPrint :: !Bool
63 , _nlPrettyPrint :: !Bool
55 , _nlUserIp :: !(Maybe Text)
64 , _nlUserIp :: !(Maybe Text)
56 , _nlKey :: !(Maybe Text)
65 , _nlKey :: !(Maybe Text)
57 , _nlOauthToken :: !(Maybe Text)
66 , _nlOauthToken :: !(Maybe Text)
58 , _nlFields :: !(Maybe Text)
67 , _nlFields :: !(Maybe Text)
59− , _nlAlt :: !Text
68+ , _nlAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.
71-- | Creates a value of 'NegotiationsList'' with the minimum fields required to make a request.
@@ -76,17 +85,17 @@ data NegotiationsList = NegotiationsList
76-- * 'nlFields'
85-- * 'nlFields'
78-- * 'nlAlt'
87-- * 'nlAlt'
79−negotiationsList
88+negotiationsList'
80− :: NegotiationsList
89+ :: NegotiationsList'
81−negotiationsList =
90+negotiationsList' =
82− NegotiationsList
91+ NegotiationsList'
83 { _nlQuotaUser = Nothing
92 { _nlQuotaUser = Nothing
84 , _nlPrettyPrint = True
93 , _nlPrettyPrint = True
85 , _nlUserIp = Nothing
94 , _nlUserIp = Nothing
86 , _nlKey = Nothing
95 , _nlKey = Nothing
87 , _nlOauthToken = Nothing
96 , _nlOauthToken = Nothing
88 , _nlFields = Nothing
97 , _nlFields = Nothing
89− , _nlAlt = "json"
98+ , _nlAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
101-- | Available to use for quota purposes for server-side applications. Can be
@@ -123,19 +132,20 @@ nlFields :: Lens' NegotiationsList' (Maybe Text)
123nlFields = lens _nlFields (\ s a -> s{_nlFields = a})
132nlFields = lens _nlFields (\ s a -> s{_nlFields = a})
125-- | Data format for the response.
134-- | Data format for the response.
126−nlAlt :: Lens' NegotiationsList' Text
135+nlAlt :: Lens' NegotiationsList' Alt
127nlAlt = lens _nlAlt (\ s a -> s{_nlAlt = a})
136nlAlt = lens _nlAlt (\ s a -> s{_nlAlt = a})
129instance GoogleRequest NegotiationsList' where
138instance GoogleRequest NegotiationsList' where
130 type Rs NegotiationsList' = GetNegotiationsResponse
139 type Rs NegotiationsList' = GetNegotiationsResponse
131 request = requestWithRoute defReq adExchangeBuyerURL
140 request = requestWithRoute defReq adExchangeBuyerURL
132− requestWithRoute r u NegotiationsList{..}
141+ requestWithRoute r u NegotiationsList'{..}
133− = go _nlQuotaUser _nlPrettyPrint _nlUserIp _nlKey
142+ = go _nlQuotaUser (Just _nlPrettyPrint) _nlUserIp
134 _nlOauthToken
144 _nlOauthToken
135 _nlFields
145 _nlFields
136− _nlAlt
146+ (Just _nlAlt)
138 = clientWithRoute
148 = clientWithRoute
139− (Proxy :: Proxy NegotiationsListAPI)
149+ (Proxy :: Proxy NegotiationsListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets the requested offer.
20-- | Gets the requested offer.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerOffersGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerOffersGet@.
22−module AdExchangeBuyer.Offers.Get
23+module Network.Google.Resource.AdExchangeBuyer.Offers.Get
24 -- * REST Resource
25 -- * REST Resource
25− OffersGetAPI
26+ OffersGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , offersGet
29+ , offersGet'
29− , OffersGet
30+ , OffersGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ogQuotaUser
33 , ogQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerOffersGet@ which the
46-- | A resource alias for @AdexchangebuyerOffersGet@ which the
46−-- 'OffersGet' request conforms to.
47+-- 'OffersGet'' request conforms to.
47−type OffersGetAPI =
48+type OffersGetResource =
48 "offers" :>
49 "offers" :>
49− Capture "offerId" Int64 :> Get '[JSON] OfferDto
50+ Capture "offerId" Int64 :>
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] OfferDto
51-- | Gets the requested offer.
59-- | Gets the requested offer.
53−-- /See:/ 'offersGet' smart constructor.
61+-- /See:/ 'offersGet'' smart constructor.
54−data OffersGet = OffersGet
62+data OffersGet' = OffersGet'
55 { _ogQuotaUser :: !(Maybe Text)
63 { _ogQuotaUser :: !(Maybe Text)
56 , _ogPrettyPrint :: !Bool
64 , _ogPrettyPrint :: !Bool
57 , _ogUserIp :: !(Maybe Text)
65 , _ogUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data OffersGet = OffersGet
59 , _ogOfferId :: !Int64
67 , _ogOfferId :: !Int64
60 , _ogOauthToken :: !(Maybe Text)
68 , _ogOauthToken :: !(Maybe Text)
61 , _ogFields :: !(Maybe Text)
69 , _ogFields :: !(Maybe Text)
62− , _ogAlt :: !Text
70+ , _ogAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'OffersGet'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data OffersGet = OffersGet
81-- * 'ogFields'
89-- * 'ogFields'
83-- * 'ogAlt'
91-- * 'ogAlt'
84−offersGet
92+offersGet'
85 :: Int64 -- ^ 'offerId'
93 :: Int64 -- ^ 'offerId'
86− -> OffersGet
94+ -> OffersGet'
87−offersGet pOgOfferId_ =
95+offersGet' pOgOfferId_ =
88− OffersGet
96+ OffersGet'
89 { _ogQuotaUser = Nothing
97 { _ogQuotaUser = Nothing
90 , _ogPrettyPrint = True
98 , _ogPrettyPrint = True
91 , _ogUserIp = Nothing
99 , _ogUserIp = Nothing
@@ -93,7 +101,7 @@ offersGet pOgOfferId_ =
93 , _ogOfferId = pOgOfferId_
101 , _ogOfferId = pOgOfferId_
94 , _ogOauthToken = Nothing
102 , _ogOauthToken = Nothing
95 , _ogFields = Nothing
103 , _ogFields = Nothing
96− , _ogAlt = "json"
104+ , _ogAlt = JSON
99-- | 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
@@ -134,17 +142,20 @@ ogFields :: Lens' OffersGet' (Maybe Text)
134ogFields = lens _ogFields (\ s a -> s{_ogFields = a})
142ogFields = lens _ogFields (\ s a -> s{_ogFields = a})
136-- | Data format for the response.
144-- | Data format for the response.
137−ogAlt :: Lens' OffersGet' Text
145+ogAlt :: Lens' OffersGet' Alt
138ogAlt = lens _ogAlt (\ s a -> s{_ogAlt = a})
146ogAlt = lens _ogAlt (\ s a -> s{_ogAlt = a})
140instance GoogleRequest OffersGet' where
148instance GoogleRequest OffersGet' where
141 type Rs OffersGet' = OfferDto
149 type Rs OffersGet' = OfferDto
142 request = requestWithRoute defReq adExchangeBuyerURL
150 request = requestWithRoute defReq adExchangeBuyerURL
143− requestWithRoute r u OffersGet{..}
151+ requestWithRoute r u OffersGet'{..}
144− = go _ogQuotaUser _ogPrettyPrint _ogUserIp _ogKey
152+ = go _ogQuotaUser (Just _ogPrettyPrint) _ogUserIp
145 _ogOfferId
154 _ogOfferId
146 _ogOauthToken
155 _ogOauthToken
147 _ogFields
156 _ogFields
148− _ogAlt
157+ (Just _ogAlt)
150− = clientWithRoute (Proxy :: Proxy OffersGetAPI) r u
159+ = clientWithRoute (Proxy :: Proxy OffersGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Creates or updates the requested offer.
20-- | Creates or updates the requested offer.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerOffersInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerOffersInsert@.
22−module AdExchangeBuyer.Offers.Insert
23+module Network.Google.Resource.AdExchangeBuyer.Offers.Insert
24 -- * REST Resource
25 -- * REST Resource
25− OffersInsertAPI
26+ OffersInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , offersInsert
29+ , offersInsert'
29− , OffersInsert
30+ , OffersInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , oiQuotaUser
33 , oiQuotaUser
@@ -42,21 +43,28 @@ import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerOffersInsert@ which the
45-- | A resource alias for @AdexchangebuyerOffersInsert@ which the
45−-- 'OffersInsert' request conforms to.
46+-- 'OffersInsert'' request conforms to.
46−type OffersInsertAPI =
47+type OffersInsertResource =
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 :>
47− "offers" :> Post '[JSON] OfferDto
55+ QueryParam "alt" Alt :> Post '[JSON] OfferDto
49-- | Creates or updates the requested offer.
57-- | Creates or updates the requested offer.
51−-- /See:/ 'offersInsert' smart constructor.
59+-- /See:/ 'offersInsert'' smart constructor.
52−data OffersInsert = OffersInsert
60+data OffersInsert' = OffersInsert'
53 { _oiQuotaUser :: !(Maybe Text)
61 { _oiQuotaUser :: !(Maybe Text)
54 , _oiPrettyPrint :: !Bool
62 , _oiPrettyPrint :: !Bool
55 , _oiUserIp :: !(Maybe Text)
63 , _oiUserIp :: !(Maybe Text)
56 , _oiKey :: !(Maybe Text)
64 , _oiKey :: !(Maybe Text)
57 , _oiOauthToken :: !(Maybe Text)
65 , _oiOauthToken :: !(Maybe Text)
58 , _oiFields :: !(Maybe Text)
66 , _oiFields :: !(Maybe Text)
59− , _oiAlt :: !Text
67+ , _oiAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.
70-- | Creates a value of 'OffersInsert'' with the minimum fields required to make a request.
@@ -76,17 +84,17 @@ data OffersInsert = OffersInsert
76-- * 'oiFields'
84-- * 'oiFields'
78-- * 'oiAlt'
86-- * 'oiAlt'
79−offersInsert
87+offersInsert'
80− :: OffersInsert
88+ :: OffersInsert'
81−offersInsert =
89+offersInsert' =
82− OffersInsert
90+ OffersInsert'
83 { _oiQuotaUser = Nothing
91 { _oiQuotaUser = Nothing
84 , _oiPrettyPrint = True
92 , _oiPrettyPrint = True
85 , _oiUserIp = Nothing
93 , _oiUserIp = Nothing
86 , _oiKey = Nothing
94 , _oiKey = Nothing
87 , _oiOauthToken = Nothing
95 , _oiOauthToken = Nothing
88 , _oiFields = Nothing
96 , _oiFields = Nothing
89− , _oiAlt = "json"
97+ , _oiAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
@@ -123,17 +131,20 @@ oiFields :: Lens' OffersInsert' (Maybe Text)
123oiFields = lens _oiFields (\ s a -> s{_oiFields = a})
131oiFields = lens _oiFields (\ s a -> s{_oiFields = a})
125-- | Data format for the response.
133-- | Data format for the response.
126−oiAlt :: Lens' OffersInsert' Text
134+oiAlt :: Lens' OffersInsert' Alt
127oiAlt = lens _oiAlt (\ s a -> s{_oiAlt = a})
135oiAlt = lens _oiAlt (\ s a -> s{_oiAlt = a})
129instance GoogleRequest OffersInsert' where
137instance GoogleRequest OffersInsert' where
130 type Rs OffersInsert' = OfferDto
138 type Rs OffersInsert' = OfferDto
131 request = requestWithRoute defReq adExchangeBuyerURL
139 request = requestWithRoute defReq adExchangeBuyerURL
132− requestWithRoute r u OffersInsert{..}
140+ requestWithRoute r u OffersInsert'{..}
133− = go _oiQuotaUser _oiPrettyPrint _oiUserIp _oiKey
141+ = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIp
134 _oiOauthToken
143 _oiOauthToken
135 _oiFields
144 _oiFields
136− _oiAlt
145+ (Just _oiAlt)
138− = clientWithRoute (Proxy :: Proxy OffersInsertAPI) r
147+ = clientWithRoute
148+ (Proxy :: Proxy OffersInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/List.hs+32−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Lists all offers the authenticated user has access to.
20-- | Lists all offers the authenticated user has access to.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerOffersList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerOffersList@.
22−module AdExchangeBuyer.Offers.List
23+module Network.Google.Resource.AdExchangeBuyer.Offers.List
24 -- * REST Resource
25 -- * REST Resource
25− OffersListAPI
26+ OffersListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , offersList
29+ , offersList'
29− , OffersList
30+ , OffersList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , olQuotaUser
33 , olQuotaUser
@@ -42,21 +43,29 @@ import Network.Google.AdExchangeBuyer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdexchangebuyerOffersList@ which the
45-- | A resource alias for @AdexchangebuyerOffersList@ which the
45−-- 'OffersList' request conforms to.
46+-- 'OffersList'' request conforms to.
46−type OffersListAPI =
47+type OffersListResource =
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 :>
47− "offers" :> Get '[JSON] ListOffersResponse
56+ Get '[JSON] ListOffersResponse
49-- | Lists all offers the authenticated user has access to.
58-- | Lists all offers the authenticated user has access to.
51−-- /See:/ 'offersList' smart constructor.
60+-- /See:/ 'offersList'' smart constructor.
52−data OffersList = OffersList
61+data OffersList' = OffersList'
53 { _olQuotaUser :: !(Maybe Text)
62 { _olQuotaUser :: !(Maybe Text)
54 , _olPrettyPrint :: !Bool
63 , _olPrettyPrint :: !Bool
55 , _olUserIp :: !(Maybe Text)
64 , _olUserIp :: !(Maybe Text)
56 , _olKey :: !(Maybe Text)
65 , _olKey :: !(Maybe Text)
57 , _olOauthToken :: !(Maybe Text)
66 , _olOauthToken :: !(Maybe Text)
58 , _olFields :: !(Maybe Text)
67 , _olFields :: !(Maybe Text)
59− , _olAlt :: !Text
68+ , _olAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.
71-- | Creates a value of 'OffersList'' with the minimum fields required to make a request.
@@ -76,17 +85,17 @@ data OffersList = OffersList
76-- * 'olFields'
85-- * 'olFields'
78-- * 'olAlt'
87-- * 'olAlt'
79−offersList
88+offersList'
80− :: OffersList
89+ :: OffersList'
81−offersList =
90+offersList' =
82− OffersList
91+ OffersList'
83 { _olQuotaUser = Nothing
92 { _olQuotaUser = Nothing
84 , _olPrettyPrint = True
93 , _olPrettyPrint = True
85 , _olUserIp = Nothing
94 , _olUserIp = Nothing
86 , _olKey = Nothing
95 , _olKey = Nothing
87 , _olOauthToken = Nothing
96 , _olOauthToken = Nothing
88 , _olFields = Nothing
97 , _olFields = Nothing
89− , _olAlt = "json"
98+ , _olAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
101-- | Available to use for quota purposes for server-side applications. Can be
@@ -123,16 +132,19 @@ olFields :: Lens' OffersList' (Maybe Text)
123olFields = lens _olFields (\ s a -> s{_olFields = a})
132olFields = lens _olFields (\ s a -> s{_olFields = a})
125-- | Data format for the response.
134-- | Data format for the response.
126−olAlt :: Lens' OffersList' Text
135+olAlt :: Lens' OffersList' Alt
127olAlt = lens _olAlt (\ s a -> s{_olAlt = a})
136olAlt = lens _olAlt (\ s a -> s{_olAlt = a})
129instance GoogleRequest OffersList' where
138instance GoogleRequest OffersList' where
130 type Rs OffersList' = ListOffersResponse
139 type Rs OffersList' = ListOffersResponse
131 request = requestWithRoute defReq adExchangeBuyerURL
140 request = requestWithRoute defReq adExchangeBuyerURL
132− requestWithRoute r u OffersList{..}
141+ requestWithRoute r u OffersList'{..}
133− = go _olQuotaUser _olPrettyPrint _olUserIp _olKey
142+ = go _olQuotaUser (Just _olPrettyPrint) _olUserIp
134 _olOauthToken
144 _olOauthToken
135 _olFields
145 _olFields
136− _olAlt
146+ (Just _olAlt)
138− = clientWithRoute (Proxy :: Proxy OffersListAPI) r u
148+ = clientWithRoute (Proxy :: Proxy OffersListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PerformanceReport/List.hs+33−25
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieves the authenticated user\'s list of performance metrics.
20-- | Retrieves the authenticated user\'s list of performance metrics.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPerformanceReportList@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPerformanceReportList@.
22−module AdExchangeBuyer.PerformanceReport.List
23+module Network.Google.Resource.AdExchangeBuyer.PerformanceReport.List
24 -- * REST Resource
25 -- * REST Resource
25− PerformanceReportListAPI
26+ PerformanceReportListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , performanceReportList
29+ , performanceReportList'
29− , PerformanceReportList
30+ , PerformanceReportList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , prlQuotaUser
33 , prlQuotaUser
@@ -47,20 +48,27 @@ import Network.Google.AdExchangeBuyer.Types
47import Network.Google.Prelude
48import Network.Google.Prelude
49-- | A resource alias for @AdexchangebuyerPerformanceReportList@ which the
50-- | A resource alias for @AdexchangebuyerPerformanceReportList@ which the
50−-- 'PerformanceReportList' request conforms to.
51+-- 'PerformanceReportList'' request conforms to.
51−type PerformanceReportListAPI =
52+type PerformanceReportListResource =
52 "performancereport" :>
53 "performancereport" :>
54+ QueryParam "quotaUser" Text :>
55+ QueryParam "prettyPrint" Bool :>
56+ QueryParam "userIp" Text :>
53− QueryParam "accountId" Int64 :>
57+ QueryParam "accountId" Int64 :>
58+ QueryParam "key" Text :>
54− QueryParam "pageToken" Text :>
59+ QueryParam "pageToken" Text :>
60+ QueryParam "oauth_token" Text :>
55− QueryParam "endDateTime" Text :>
61+ QueryParam "endDateTime" Text :>
56− QueryParam "maxResults" Word32 :>
62+ QueryParam "maxResults" Word32 :>
57− QueryParam "startDateTime" Text :>
63+ QueryParam "startDateTime" Text :>
64+ QueryParam "fields" Text :>
65+ QueryParam "alt" Alt :>
58− Get '[JSON] PerformanceReportList
66+ Get '[JSON] PerformanceReportList
60-- | Retrieves the authenticated user\'s list of performance metrics.
68-- | Retrieves the authenticated user\'s list of performance metrics.
62−-- /See:/ 'performanceReportList' smart constructor.
70+-- /See:/ 'performanceReportList'' smart constructor.
63−data PerformanceReportList = PerformanceReportList
71+data PerformanceReportList' = PerformanceReportList'
64 { _prlQuotaUser :: !(Maybe Text)
72 { _prlQuotaUser :: !(Maybe Text)
65 , _prlPrettyPrint :: !Bool
73 , _prlPrettyPrint :: !Bool
66 , _prlUserIp :: !(Maybe Text)
74 , _prlUserIp :: !(Maybe Text)
@@ -72,7 +80,7 @@ data PerformanceReportList = PerformanceReportList
72 , _prlMaxResults :: !(Maybe Word32)
80 , _prlMaxResults :: !(Maybe Word32)
73 , _prlStartDateTime :: !Text
81 , _prlStartDateTime :: !Text
74 , _prlFields :: !(Maybe Text)
82 , _prlFields :: !(Maybe Text)
75− , _prlAlt :: !Text
83+ , _prlAlt :: !Alt
76 } deriving (Eq,Read,Show,Data,Typeable,Generic)
84 } deriving (Eq,Read,Show,Data,Typeable,Generic)
78-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.
86-- | Creates a value of 'PerformanceReportList'' with the minimum fields required to make a request.
@@ -102,13 +110,13 @@ data PerformanceReportList = PerformanceReportList
102-- * 'prlFields'
110-- * 'prlFields'
104-- * 'prlAlt'
112-- * 'prlAlt'
105−performanceReportList
113+performanceReportList'
106 :: Int64 -- ^ 'accountId'
114 :: Int64 -- ^ 'accountId'
107 -> Text -- ^ 'endDateTime'
115 -> Text -- ^ 'endDateTime'
108 -> Text -- ^ 'startDateTime'
116 -> Text -- ^ 'startDateTime'
109− -> PerformanceReportList
117+ -> PerformanceReportList'
110−performanceReportList pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =
118+performanceReportList' pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =
111− PerformanceReportList
119+ PerformanceReportList'
112 { _prlQuotaUser = Nothing
120 { _prlQuotaUser = Nothing
113 , _prlPrettyPrint = True
121 , _prlPrettyPrint = True
114 , _prlUserIp = Nothing
122 , _prlUserIp = Nothing
@@ -120,7 +128,7 @@ performanceReportList pPrlAccountId_ pPrlEndDateTime_ pPrlStartDateTime_ =
120 , _prlMaxResults = Nothing
128 , _prlMaxResults = Nothing
121 , _prlStartDateTime = pPrlStartDateTime_
129 , _prlStartDateTime = pPrlStartDateTime_
122 , _prlFields = Nothing
130 , _prlFields = Nothing
123− , _prlAlt = "json"
131+ , _prlAlt = JSON
126-- | Available to use for quota purposes for server-side applications. Can be
134-- | Available to use for quota purposes for server-side applications. Can be
@@ -191,15 +199,15 @@ prlFields
191 = lens _prlFields (\ s a -> s{_prlFields = a})
199 = lens _prlFields (\ s a -> s{_prlFields = a})
193-- | Data format for the response.
201-- | Data format for the response.
194−prlAlt :: Lens' PerformanceReportList' Text
202+prlAlt :: Lens' PerformanceReportList' Alt
195prlAlt = lens _prlAlt (\ s a -> s{_prlAlt = a})
203prlAlt = lens _prlAlt (\ s a -> s{_prlAlt = a})
197instance GoogleRequest PerformanceReportList' where
205instance GoogleRequest PerformanceReportList' where
198 type Rs PerformanceReportList' =
206 type Rs PerformanceReportList' =
199 PerformanceReportList
207 PerformanceReportList
200 request = requestWithRoute defReq adExchangeBuyerURL
208 request = requestWithRoute defReq adExchangeBuyerURL
201− requestWithRoute r u PerformanceReportList{..}
209+ requestWithRoute r u PerformanceReportList'{..}
202− = go _prlQuotaUser _prlPrettyPrint _prlUserIp
210+ = go _prlQuotaUser (Just _prlPrettyPrint) _prlUserIp
203 (Just _prlAccountId)
211 (Just _prlAccountId)
205 _prlPageToken
213 _prlPageToken
@@ -208,9 +216,9 @@ instance GoogleRequest PerformanceReportList' where
208 _prlMaxResults
216 _prlMaxResults
209 (Just _prlStartDateTime)
217 (Just _prlStartDateTime)
210 _prlFields
218 _prlFields
211− _prlAlt
219+ (Just _prlAlt)
213 = clientWithRoute
221 = clientWithRoute
214− (Proxy :: Proxy PerformanceReportListAPI)
222+ (Proxy :: Proxy PerformanceReportListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Delete.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Deletes an existing pretargeting config.
20-- | Deletes an existing pretargeting config.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigDelete@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigDelete@.
22−module AdExchangeBuyer.PretargetingConfig.Delete
23+module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Delete
24 -- * REST Resource
25 -- * REST Resource
25− PretargetingConfigDeleteAPI
26+ PretargetingConfigDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , pretargetingConfigDelete
29+ , pretargetingConfigDelete'
29− , PretargetingConfigDelete
30+ , PretargetingConfigDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , pcdQuotaUser
33 , pcdQuotaUser
@@ -44,16 +45,23 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerPretargetingConfigDelete@ which the
47-- | A resource alias for @AdexchangebuyerPretargetingConfigDelete@ which the
47−-- 'PretargetingConfigDelete' request conforms to.
48+-- 'PretargetingConfigDelete'' request conforms to.
48−type PretargetingConfigDeleteAPI =
49+type PretargetingConfigDeleteResource =
49 "pretargetingconfigs" :>
50 "pretargetingconfigs" :>
50 Capture "accountId" Int64 :>
51 Capture "accountId" Int64 :>
51− Capture "configId" Int64 :> Delete '[JSON] ()
52+ Capture "configId" Int64 :>
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 :> Delete '[JSON] ()
53-- | Deletes an existing pretargeting config.
61-- | Deletes an existing pretargeting config.
55−-- /See:/ 'pretargetingConfigDelete' smart constructor.
63+-- /See:/ 'pretargetingConfigDelete'' smart constructor.
56−data PretargetingConfigDelete = PretargetingConfigDelete
64+data PretargetingConfigDelete' = PretargetingConfigDelete'
57 { _pcdQuotaUser :: !(Maybe Text)
65 { _pcdQuotaUser :: !(Maybe Text)
58 , _pcdPrettyPrint :: !Bool
66 , _pcdPrettyPrint :: !Bool
59 , _pcdUserIp :: !(Maybe Text)
67 , _pcdUserIp :: !(Maybe Text)
@@ -62,7 +70,7 @@ data PretargetingConfigDelete = PretargetingConfigDelete
62 , _pcdConfigId :: !Int64
70 , _pcdConfigId :: !Int64
63 , _pcdOauthToken :: !(Maybe Text)
71 , _pcdOauthToken :: !(Maybe Text)
64 , _pcdFields :: !(Maybe Text)
72 , _pcdFields :: !(Maybe Text)
65− , _pcdAlt :: !Text
73+ , _pcdAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.
76-- | Creates a value of 'PretargetingConfigDelete'' with the minimum fields required to make a request.
@@ -86,12 +94,12 @@ data PretargetingConfigDelete = PretargetingConfigDelete
86-- * 'pcdFields'
94-- * 'pcdFields'
88-- * 'pcdAlt'
96-- * 'pcdAlt'
89−pretargetingConfigDelete
97+pretargetingConfigDelete'
90 :: Int64 -- ^ 'accountId'
98 :: Int64 -- ^ 'accountId'
91 -> Int64 -- ^ 'configId'
99 -> Int64 -- ^ 'configId'
92− -> PretargetingConfigDelete
100+ -> PretargetingConfigDelete'
93−pretargetingConfigDelete pPcdAccountId_ pPcdConfigId_ =
101+pretargetingConfigDelete' pPcdAccountId_ pPcdConfigId_ =
94− PretargetingConfigDelete
102+ PretargetingConfigDelete'
95 { _pcdQuotaUser = Nothing
103 { _pcdQuotaUser = Nothing
96 , _pcdPrettyPrint = True
104 , _pcdPrettyPrint = True
97 , _pcdUserIp = Nothing
105 , _pcdUserIp = Nothing
@@ -100,7 +108,7 @@ pretargetingConfigDelete pPcdAccountId_ pPcdConfigId_ =
100 , _pcdConfigId = pPcdConfigId_
108 , _pcdConfigId = pPcdConfigId_
101 , _pcdOauthToken = Nothing
109 , _pcdOauthToken = Nothing
102 , _pcdFields = Nothing
110 , _pcdFields = Nothing
103− , _pcdAlt = "json"
111+ , _pcdAlt = JSON
106-- | 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
@@ -150,23 +158,23 @@ pcdFields
150 = lens _pcdFields (\ s a -> s{_pcdFields = a})
158 = lens _pcdFields (\ s a -> s{_pcdFields = a})
152-- | Data format for the response.
160-- | Data format for the response.
153−pcdAlt :: Lens' PretargetingConfigDelete' Text
161+pcdAlt :: Lens' PretargetingConfigDelete' Alt
154pcdAlt = lens _pcdAlt (\ s a -> s{_pcdAlt = a})
162pcdAlt = lens _pcdAlt (\ s a -> s{_pcdAlt = a})
156instance GoogleRequest PretargetingConfigDelete'
164instance GoogleRequest PretargetingConfigDelete'
158 type Rs PretargetingConfigDelete' = ()
166 type Rs PretargetingConfigDelete' = ()
159 request = requestWithRoute defReq adExchangeBuyerURL
167 request = requestWithRoute defReq adExchangeBuyerURL
160− requestWithRoute r u PretargetingConfigDelete{..}
168+ requestWithRoute r u PretargetingConfigDelete'{..}
161− = go _pcdQuotaUser _pcdPrettyPrint _pcdUserIp
169+ = go _pcdQuotaUser (Just _pcdPrettyPrint) _pcdUserIp
162 _pcdAccountId
170 _pcdAccountId
164 _pcdConfigId
172 _pcdConfigId
165 _pcdOauthToken
173 _pcdOauthToken
166 _pcdFields
174 _pcdFields
167− _pcdAlt
175+ (Just _pcdAlt)
169 = clientWithRoute
177 = clientWithRoute
170− (Proxy :: Proxy PretargetingConfigDeleteAPI)
178+ (Proxy :: Proxy PretargetingConfigDeleteResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Get.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Gets a specific pretargeting configuration
20-- | Gets a specific pretargeting configuration
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigGet@.
22−module AdExchangeBuyer.PretargetingConfig.Get
23+module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Get
24 -- * REST Resource
25 -- * REST Resource
25− PretargetingConfigGetAPI
26+ PretargetingConfigGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , pretargetingConfigGet
29+ , pretargetingConfigGet'
29− , PretargetingConfigGet
30+ , PretargetingConfigGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , pcgQuotaUser
33 , pcgQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerPretargetingConfigGet@ which the
47-- | A resource alias for @AdexchangebuyerPretargetingConfigGet@ which the
47−-- 'PretargetingConfigGet' request conforms to.
48+-- 'PretargetingConfigGet'' request conforms to.
48−type PretargetingConfigGetAPI =
49+type PretargetingConfigGetResource =
49 "pretargetingconfigs" :>
50 "pretargetingconfigs" :>
50 Capture "accountId" Int64 :>
51 Capture "accountId" Int64 :>
51 Capture "configId" Int64 :>
52 Capture "configId" Int64 :>
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 :>
52− Get '[JSON] PretargetingConfig
60+ Get '[JSON] PretargetingConfig
54-- | Gets a specific pretargeting configuration
62-- | Gets a specific pretargeting configuration
56−-- /See:/ 'pretargetingConfigGet' smart constructor.
64+-- /See:/ 'pretargetingConfigGet'' smart constructor.
57−data PretargetingConfigGet = PretargetingConfigGet
65+data PretargetingConfigGet' = PretargetingConfigGet'
58 { _pcgQuotaUser :: !(Maybe Text)
66 { _pcgQuotaUser :: !(Maybe Text)
59 , _pcgPrettyPrint :: !Bool
67 , _pcgPrettyPrint :: !Bool
60 , _pcgUserIp :: !(Maybe Text)
68 , _pcgUserIp :: !(Maybe Text)
@@ -63,7 +71,7 @@ data PretargetingConfigGet = PretargetingConfigGet
63 , _pcgConfigId :: !Int64
71 , _pcgConfigId :: !Int64
64 , _pcgOauthToken :: !(Maybe Text)
72 , _pcgOauthToken :: !(Maybe Text)
65 , _pcgFields :: !(Maybe Text)
73 , _pcgFields :: !(Maybe Text)
66− , _pcgAlt :: !Text
74+ , _pcgAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.
77-- | Creates a value of 'PretargetingConfigGet'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data PretargetingConfigGet = PretargetingConfigGet
87-- * 'pcgFields'
95-- * 'pcgFields'
89-- * 'pcgAlt'
97-- * 'pcgAlt'
90−pretargetingConfigGet
98+pretargetingConfigGet'
91 :: Int64 -- ^ 'accountId'
99 :: Int64 -- ^ 'accountId'
92 -> Int64 -- ^ 'configId'
100 -> Int64 -- ^ 'configId'
93− -> PretargetingConfigGet
101+ -> PretargetingConfigGet'
94−pretargetingConfigGet pPcgAccountId_ pPcgConfigId_ =
102+pretargetingConfigGet' pPcgAccountId_ pPcgConfigId_ =
95− PretargetingConfigGet
103+ PretargetingConfigGet'
96 { _pcgQuotaUser = Nothing
104 { _pcgQuotaUser = Nothing
97 , _pcgPrettyPrint = True
105 , _pcgPrettyPrint = True
98 , _pcgUserIp = Nothing
106 , _pcgUserIp = Nothing
@@ -101,7 +109,7 @@ pretargetingConfigGet pPcgAccountId_ pPcgConfigId_ =
101 , _pcgConfigId = pPcgConfigId_
109 , _pcgConfigId = pPcgConfigId_
102 , _pcgOauthToken = Nothing
110 , _pcgOauthToken = Nothing
103 , _pcgFields = Nothing
111 , _pcgFields = Nothing
104− , _pcgAlt = "json"
112+ , _pcgAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -151,22 +159,22 @@ pcgFields
151 = lens _pcgFields (\ s a -> s{_pcgFields = a})
159 = lens _pcgFields (\ s a -> s{_pcgFields = a})
153-- | Data format for the response.
161-- | Data format for the response.
154−pcgAlt :: Lens' PretargetingConfigGet' Text
162+pcgAlt :: Lens' PretargetingConfigGet' Alt
155pcgAlt = lens _pcgAlt (\ s a -> s{_pcgAlt = a})
163pcgAlt = lens _pcgAlt (\ s a -> s{_pcgAlt = a})
157instance GoogleRequest PretargetingConfigGet' where
165instance GoogleRequest PretargetingConfigGet' where
158 type Rs PretargetingConfigGet' = PretargetingConfig
166 type Rs PretargetingConfigGet' = PretargetingConfig
159 request = requestWithRoute defReq adExchangeBuyerURL
167 request = requestWithRoute defReq adExchangeBuyerURL
160− requestWithRoute r u PretargetingConfigGet{..}
168+ requestWithRoute r u PretargetingConfigGet'{..}
161− = go _pcgQuotaUser _pcgPrettyPrint _pcgUserIp
169+ = go _pcgQuotaUser (Just _pcgPrettyPrint) _pcgUserIp
162 _pcgAccountId
170 _pcgAccountId
164 _pcgConfigId
172 _pcgConfigId
165 _pcgOauthToken
173 _pcgOauthToken
166 _pcgFields
174 _pcgFields
167− _pcgAlt
175+ (Just _pcgAlt)
169 = clientWithRoute
177 = clientWithRoute
170− (Proxy :: Proxy PretargetingConfigGetAPI)
178+ (Proxy :: Proxy PretargetingConfigGetResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Insert.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Inserts a new pretargeting configuration.
20-- | Inserts a new pretargeting configuration.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigInsert@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigInsert@.
22−module AdExchangeBuyer.PretargetingConfig.Insert
23+module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Insert
24 -- * REST Resource
25 -- * REST Resource
25− PretargetingConfigInsertAPI
26+ PretargetingConfigInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , pretargetingConfigInsert
29+ , pretargetingConfigInsert'
29− , PretargetingConfigInsert
30+ , PretargetingConfigInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , pciQuotaUser
33 , pciQuotaUser
@@ -43,16 +44,23 @@ import Network.Google.AdExchangeBuyer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangebuyerPretargetingConfigInsert@ which the
46-- | A resource alias for @AdexchangebuyerPretargetingConfigInsert@ which the
46−-- 'PretargetingConfigInsert' request conforms to.
47+-- 'PretargetingConfigInsert'' request conforms to.
47−type PretargetingConfigInsertAPI =
48+type PretargetingConfigInsertResource =
48 "pretargetingconfigs" :>
49 "pretargetingconfigs" :>
49 Capture "accountId" Int64 :>
50 Capture "accountId" Int64 :>
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 :>
50− Post '[JSON] PretargetingConfig
58+ Post '[JSON] PretargetingConfig
52-- | Inserts a new pretargeting configuration.
60-- | Inserts a new pretargeting configuration.
54−-- /See:/ 'pretargetingConfigInsert' smart constructor.
62+-- /See:/ 'pretargetingConfigInsert'' smart constructor.
55−data PretargetingConfigInsert = PretargetingConfigInsert
63+data PretargetingConfigInsert' = PretargetingConfigInsert'
56 { _pciQuotaUser :: !(Maybe Text)
64 { _pciQuotaUser :: !(Maybe Text)
57 , _pciPrettyPrint :: !Bool
65 , _pciPrettyPrint :: !Bool
58 , _pciUserIp :: !(Maybe Text)
66 , _pciUserIp :: !(Maybe Text)
@@ -60,7 +68,7 @@ data PretargetingConfigInsert = PretargetingConfigInsert
60 , _pciKey :: !(Maybe Text)
68 , _pciKey :: !(Maybe Text)
61 , _pciOauthToken :: !(Maybe Text)
69 , _pciOauthToken :: !(Maybe Text)
62 , _pciFields :: !(Maybe Text)
70 , _pciFields :: !(Maybe Text)
63− , _pciAlt :: !Text
71+ , _pciAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.
74-- | Creates a value of 'PretargetingConfigInsert'' with the minimum fields required to make a request.
@@ -82,11 +90,11 @@ data PretargetingConfigInsert = PretargetingConfigInsert
82-- * 'pciFields'
90-- * 'pciFields'
84-- * 'pciAlt'
92-- * 'pciAlt'
85−pretargetingConfigInsert
93+pretargetingConfigInsert'
86 :: Int64 -- ^ 'accountId'
94 :: Int64 -- ^ 'accountId'
87− -> PretargetingConfigInsert
95+ -> PretargetingConfigInsert'
88−pretargetingConfigInsert pPciAccountId_ =
96+pretargetingConfigInsert' pPciAccountId_ =
89− PretargetingConfigInsert
97+ PretargetingConfigInsert'
90 { _pciQuotaUser = Nothing
98 { _pciQuotaUser = Nothing
91 , _pciPrettyPrint = True
99 , _pciPrettyPrint = True
92 , _pciUserIp = Nothing
100 , _pciUserIp = Nothing
@@ -94,7 +102,7 @@ pretargetingConfigInsert pPciAccountId_ =
94 , _pciKey = Nothing
102 , _pciKey = Nothing
95 , _pciOauthToken = Nothing
103 , _pciOauthToken = Nothing
96 , _pciFields = Nothing
104 , _pciFields = Nothing
97− , _pciAlt = "json"
105+ , _pciAlt = JSON
100-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -139,7 +147,7 @@ pciFields
139 = lens _pciFields (\ s a -> s{_pciFields = a})
147 = lens _pciFields (\ s a -> s{_pciFields = a})
141-- | Data format for the response.
149-- | Data format for the response.
142−pciAlt :: Lens' PretargetingConfigInsert' Text
150+pciAlt :: Lens' PretargetingConfigInsert' Alt
143pciAlt = lens _pciAlt (\ s a -> s{_pciAlt = a})
151pciAlt = lens _pciAlt (\ s a -> s{_pciAlt = a})
145instance GoogleRequest PretargetingConfigInsert'
153instance GoogleRequest PretargetingConfigInsert'
@@ -147,15 +155,15 @@ instance GoogleRequest PretargetingConfigInsert'
147 type Rs PretargetingConfigInsert' =
155 type Rs PretargetingConfigInsert' =
148 PretargetingConfig
156 PretargetingConfig
149 request = requestWithRoute defReq adExchangeBuyerURL
157 request = requestWithRoute defReq adExchangeBuyerURL
150− requestWithRoute r u PretargetingConfigInsert{..}
158+ requestWithRoute r u PretargetingConfigInsert'{..}
151− = go _pciQuotaUser _pciPrettyPrint _pciUserIp
159+ = go _pciQuotaUser (Just _pciPrettyPrint) _pciUserIp
152 _pciAccountId
160 _pciAccountId
154 _pciOauthToken
162 _pciOauthToken
155 _pciFields
163 _pciFields
156− _pciAlt
164+ (Just _pciAlt)
158 = clientWithRoute
166 = clientWithRoute
159− (Proxy :: Proxy PretargetingConfigInsertAPI)
167+ (Proxy :: Proxy PretargetingConfigInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/List.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- configurations.
21-- configurations.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigList@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigList@.
23−module AdExchangeBuyer.PretargetingConfig.List
24+module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.List
25 -- * REST Resource
26 -- * REST Resource
26− PretargetingConfigListAPI
27+ PretargetingConfigListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , pretargetingConfigList
30+ , pretargetingConfigList'
30− , PretargetingConfigList
31+ , PretargetingConfigList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , pclQuotaUser
34 , pclQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerPretargetingConfigList@ which the
47-- | A resource alias for @AdexchangebuyerPretargetingConfigList@ which the
47−-- 'PretargetingConfigList' request conforms to.
48+-- 'PretargetingConfigList'' request conforms to.
48−type PretargetingConfigListAPI =
49+type PretargetingConfigListResource =
49 "pretargetingconfigs" :>
50 "pretargetingconfigs" :>
50 Capture "accountId" Int64 :>
51 Capture "accountId" Int64 :>
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 :>
51− Get '[JSON] PretargetingConfigList
59+ Get '[JSON] PretargetingConfigList
53-- | Retrieves a list of the authenticated user\'s pretargeting
61-- | Retrieves a list of the authenticated user\'s pretargeting
54-- configurations.
62-- configurations.
56−-- /See:/ 'pretargetingConfigList' smart constructor.
64+-- /See:/ 'pretargetingConfigList'' smart constructor.
57−data PretargetingConfigList = PretargetingConfigList
65+data PretargetingConfigList' = PretargetingConfigList'
58 { _pclQuotaUser :: !(Maybe Text)
66 { _pclQuotaUser :: !(Maybe Text)
59 , _pclPrettyPrint :: !Bool
67 , _pclPrettyPrint :: !Bool
60 , _pclUserIp :: !(Maybe Text)
68 , _pclUserIp :: !(Maybe Text)
@@ -62,7 +70,7 @@ data PretargetingConfigList = PretargetingConfigList
62 , _pclKey :: !(Maybe Text)
70 , _pclKey :: !(Maybe Text)
63 , _pclOauthToken :: !(Maybe Text)
71 , _pclOauthToken :: !(Maybe Text)
64 , _pclFields :: !(Maybe Text)
72 , _pclFields :: !(Maybe Text)
65− , _pclAlt :: !Text
73+ , _pclAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.
76-- | Creates a value of 'PretargetingConfigList'' with the minimum fields required to make a request.
@@ -84,11 +92,11 @@ data PretargetingConfigList = PretargetingConfigList
84-- * 'pclFields'
92-- * 'pclFields'
86-- * 'pclAlt'
94-- * 'pclAlt'
87−pretargetingConfigList
95+pretargetingConfigList'
88 :: Int64 -- ^ 'accountId'
96 :: Int64 -- ^ 'accountId'
89− -> PretargetingConfigList
97+ -> PretargetingConfigList'
90−pretargetingConfigList pPclAccountId_ =
98+pretargetingConfigList' pPclAccountId_ =
91− PretargetingConfigList
99+ PretargetingConfigList'
92 { _pclQuotaUser = Nothing
100 { _pclQuotaUser = Nothing
93 , _pclPrettyPrint = True
101 , _pclPrettyPrint = True
94 , _pclUserIp = Nothing
102 , _pclUserIp = Nothing
@@ -96,7 +104,7 @@ pretargetingConfigList pPclAccountId_ =
96 , _pclKey = Nothing
104 , _pclKey = Nothing
97 , _pclOauthToken = Nothing
105 , _pclOauthToken = Nothing
98 , _pclFields = Nothing
106 , _pclFields = Nothing
99− , _pclAlt = "json"
107+ , _pclAlt = JSON
102-- | 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
@@ -141,22 +149,22 @@ pclFields
141 = lens _pclFields (\ s a -> s{_pclFields = a})
149 = lens _pclFields (\ s a -> s{_pclFields = a})
143-- | Data format for the response.
151-- | Data format for the response.
144−pclAlt :: Lens' PretargetingConfigList' Text
152+pclAlt :: Lens' PretargetingConfigList' Alt
145pclAlt = lens _pclAlt (\ s a -> s{_pclAlt = a})
153pclAlt = lens _pclAlt (\ s a -> s{_pclAlt = a})
147instance GoogleRequest PretargetingConfigList' where
155instance GoogleRequest PretargetingConfigList' where
148 type Rs PretargetingConfigList' =
156 type Rs PretargetingConfigList' =
149 PretargetingConfigList
157 PretargetingConfigList
150 request = requestWithRoute defReq adExchangeBuyerURL
158 request = requestWithRoute defReq adExchangeBuyerURL
151− requestWithRoute r u PretargetingConfigList{..}
159+ requestWithRoute r u PretargetingConfigList'{..}
152− = go _pclQuotaUser _pclPrettyPrint _pclUserIp
160+ = go _pclQuotaUser (Just _pclPrettyPrint) _pclUserIp
153 _pclAccountId
161 _pclAccountId
155 _pclOauthToken
163 _pclOauthToken
156 _pclFields
164 _pclFields
157− _pclAlt
165+ (Just _pclAlt)
159 = clientWithRoute
167 = clientWithRoute
160− (Proxy :: Proxy PretargetingConfigListAPI)
168+ (Proxy :: Proxy PretargetingConfigListResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Patch.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- semantics.
21-- semantics.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigPatch@.
23-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigPatch@.
23−module AdExchangeBuyer.PretargetingConfig.Patch
24+module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Patch
25 -- * REST Resource
26 -- * REST Resource
26− PretargetingConfigPatchAPI
27+ PretargetingConfigPatchResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , pretargetingConfigPatch
30+ , pretargetingConfigPatch'
30− , PretargetingConfigPatch
31+ , PretargetingConfigPatch'
32 -- * Request Lenses
33 -- * Request Lenses
33 , pcpQuotaUser
34 , pcpQuotaUser
@@ -45,18 +46,25 @@ import Network.Google.AdExchangeBuyer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangebuyerPretargetingConfigPatch@ which the
48-- | A resource alias for @AdexchangebuyerPretargetingConfigPatch@ which the
48−-- 'PretargetingConfigPatch' request conforms to.
49+-- 'PretargetingConfigPatch'' request conforms to.
49−type PretargetingConfigPatchAPI =
50+type PretargetingConfigPatchResource =
50 "pretargetingconfigs" :>
51 "pretargetingconfigs" :>
51 Capture "accountId" Int64 :>
52 Capture "accountId" Int64 :>
52 Capture "configId" Int64 :>
53 Capture "configId" Int64 :>
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 :>
53− Patch '[JSON] PretargetingConfig
61+ Patch '[JSON] PretargetingConfig
55-- | Updates an existing pretargeting config. This method supports patch
63-- | Updates an existing pretargeting config. This method supports patch
56-- semantics.
64-- semantics.
58−-- /See:/ 'pretargetingConfigPatch' smart constructor.
66+-- /See:/ 'pretargetingConfigPatch'' smart constructor.
59−data PretargetingConfigPatch = PretargetingConfigPatch
67+data PretargetingConfigPatch' = PretargetingConfigPatch'
60 { _pcpQuotaUser :: !(Maybe Text)
68 { _pcpQuotaUser :: !(Maybe Text)
61 , _pcpPrettyPrint :: !Bool
69 , _pcpPrettyPrint :: !Bool
62 , _pcpUserIp :: !(Maybe Text)
70 , _pcpUserIp :: !(Maybe Text)
@@ -65,7 +73,7 @@ data PretargetingConfigPatch = PretargetingConfigPatch
65 , _pcpConfigId :: !Int64
73 , _pcpConfigId :: !Int64
66 , _pcpOauthToken :: !(Maybe Text)
74 , _pcpOauthToken :: !(Maybe Text)
67 , _pcpFields :: !(Maybe Text)
75 , _pcpFields :: !(Maybe Text)
68− , _pcpAlt :: !Text
76+ , _pcpAlt :: !Alt
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
77 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.
79-- | Creates a value of 'PretargetingConfigPatch'' with the minimum fields required to make a request.
@@ -89,12 +97,12 @@ data PretargetingConfigPatch = PretargetingConfigPatch
89-- * 'pcpFields'
97-- * 'pcpFields'
91-- * 'pcpAlt'
99-- * 'pcpAlt'
92−pretargetingConfigPatch
100+pretargetingConfigPatch'
93 :: Int64 -- ^ 'accountId'
101 :: Int64 -- ^ 'accountId'
94 -> Int64 -- ^ 'configId'
102 -> Int64 -- ^ 'configId'
95− -> PretargetingConfigPatch
103+ -> PretargetingConfigPatch'
96−pretargetingConfigPatch pPcpAccountId_ pPcpConfigId_ =
104+pretargetingConfigPatch' pPcpAccountId_ pPcpConfigId_ =
97− PretargetingConfigPatch
105+ PretargetingConfigPatch'
98 { _pcpQuotaUser = Nothing
106 { _pcpQuotaUser = Nothing
99 , _pcpPrettyPrint = True
107 , _pcpPrettyPrint = True
100 , _pcpUserIp = Nothing
108 , _pcpUserIp = Nothing
@@ -103,7 +111,7 @@ pretargetingConfigPatch pPcpAccountId_ pPcpConfigId_ =
103 , _pcpConfigId = pPcpConfigId_
111 , _pcpConfigId = pPcpConfigId_
104 , _pcpOauthToken = Nothing
112 , _pcpOauthToken = Nothing
105 , _pcpFields = Nothing
113 , _pcpFields = Nothing
106− , _pcpAlt = "json"
114+ , _pcpAlt = JSON
109-- | 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
@@ -153,22 +161,22 @@ pcpFields
153 = lens _pcpFields (\ s a -> s{_pcpFields = a})
161 = lens _pcpFields (\ s a -> s{_pcpFields = a})
155-- | Data format for the response.
163-- | Data format for the response.
156−pcpAlt :: Lens' PretargetingConfigPatch' Text
164+pcpAlt :: Lens' PretargetingConfigPatch' Alt
157pcpAlt = lens _pcpAlt (\ s a -> s{_pcpAlt = a})
165pcpAlt = lens _pcpAlt (\ s a -> s{_pcpAlt = a})
159instance GoogleRequest PretargetingConfigPatch' where
167instance GoogleRequest PretargetingConfigPatch' where
160 type Rs PretargetingConfigPatch' = PretargetingConfig
168 type Rs PretargetingConfigPatch' = PretargetingConfig
161 request = requestWithRoute defReq adExchangeBuyerURL
169 request = requestWithRoute defReq adExchangeBuyerURL
162− requestWithRoute r u PretargetingConfigPatch{..}
170+ requestWithRoute r u PretargetingConfigPatch'{..}
163− = go _pcpQuotaUser _pcpPrettyPrint _pcpUserIp
171+ = go _pcpQuotaUser (Just _pcpPrettyPrint) _pcpUserIp
164 _pcpAccountId
172 _pcpAccountId
166 _pcpConfigId
174 _pcpConfigId
167 _pcpOauthToken
175 _pcpOauthToken
168 _pcpFields
176 _pcpFields
169− _pcpAlt
177+ (Just _pcpAlt)
171 = clientWithRoute
179 = clientWithRoute
172− (Proxy :: Proxy PretargetingConfigPatchAPI)
180+ (Proxy :: Proxy PretargetingConfigPatchResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/PretargetingConfig/Update.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Updates an existing pretargeting config.
20-- | Updates an existing pretargeting config.
21-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigUpdate@.
22-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference> for @AdexchangebuyerPretargetingConfigUpdate@.
22−module AdExchangeBuyer.PretargetingConfig.Update
23+module Network.Google.Resource.AdExchangeBuyer.PretargetingConfig.Update
24 -- * REST Resource
25 -- * REST Resource
25− PretargetingConfigUpdateAPI
26+ PretargetingConfigUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , pretargetingConfigUpdate
29+ , pretargetingConfigUpdate'
29− , PretargetingConfigUpdate
30+ , PretargetingConfigUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , pcuQuotaUser
33 , pcuQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdExchangeBuyer.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangebuyerPretargetingConfigUpdate@ which the
47-- | A resource alias for @AdexchangebuyerPretargetingConfigUpdate@ which the
47−-- 'PretargetingConfigUpdate' request conforms to.
48+-- 'PretargetingConfigUpdate'' request conforms to.
48−type PretargetingConfigUpdateAPI =
49+type PretargetingConfigUpdateResource =
49 "pretargetingconfigs" :>
50 "pretargetingconfigs" :>
50 Capture "accountId" Int64 :>
51 Capture "accountId" Int64 :>
51 Capture "configId" Int64 :>
52 Capture "configId" Int64 :>
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 :>
52− Put '[JSON] PretargetingConfig
60+ Put '[JSON] PretargetingConfig
54-- | Updates an existing pretargeting config.
62-- | Updates an existing pretargeting config.
56−-- /See:/ 'pretargetingConfigUpdate' smart constructor.
64+-- /See:/ 'pretargetingConfigUpdate'' smart constructor.
57−data PretargetingConfigUpdate = PretargetingConfigUpdate
65+data PretargetingConfigUpdate' = PretargetingConfigUpdate'
58 { _pcuQuotaUser :: !(Maybe Text)
66 { _pcuQuotaUser :: !(Maybe Text)
59 , _pcuPrettyPrint :: !Bool
67 , _pcuPrettyPrint :: !Bool
60 , _pcuUserIp :: !(Maybe Text)
68 , _pcuUserIp :: !(Maybe Text)
@@ -63,7 +71,7 @@ data PretargetingConfigUpdate = PretargetingConfigUpdate
63 , _pcuConfigId :: !Int64
71 , _pcuConfigId :: !Int64
64 , _pcuOauthToken :: !(Maybe Text)
72 , _pcuOauthToken :: !(Maybe Text)
65 , _pcuFields :: !(Maybe Text)
73 , _pcuFields :: !(Maybe Text)
66− , _pcuAlt :: !Text
74+ , _pcuAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.
77-- | Creates a value of 'PretargetingConfigUpdate'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data PretargetingConfigUpdate = PretargetingConfigUpdate
87-- * 'pcuFields'
95-- * 'pcuFields'
89-- * 'pcuAlt'
97-- * 'pcuAlt'
90−pretargetingConfigUpdate
98+pretargetingConfigUpdate'
91 :: Int64 -- ^ 'accountId'
99 :: Int64 -- ^ 'accountId'
92 -> Int64 -- ^ 'configId'
100 -> Int64 -- ^ 'configId'
93− -> PretargetingConfigUpdate
101+ -> PretargetingConfigUpdate'
94−pretargetingConfigUpdate pPcuAccountId_ pPcuConfigId_ =
102+pretargetingConfigUpdate' pPcuAccountId_ pPcuConfigId_ =
95− PretargetingConfigUpdate
103+ PretargetingConfigUpdate'
96 { _pcuQuotaUser = Nothing
104 { _pcuQuotaUser = Nothing
97 , _pcuPrettyPrint = True
105 , _pcuPrettyPrint = True
98 , _pcuUserIp = Nothing
106 , _pcuUserIp = Nothing
@@ -101,7 +109,7 @@ pretargetingConfigUpdate pPcuAccountId_ pPcuConfigId_ =
101 , _pcuConfigId = pPcuConfigId_
109 , _pcuConfigId = pPcuConfigId_
102 , _pcuOauthToken = Nothing
110 , _pcuOauthToken = Nothing
103 , _pcuFields = Nothing
111 , _pcuFields = Nothing
104− , _pcuAlt = "json"
112+ , _pcuAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -151,7 +159,7 @@ pcuFields
151 = lens _pcuFields (\ s a -> s{_pcuFields = a})
159 = lens _pcuFields (\ s a -> s{_pcuFields = a})
153-- | Data format for the response.
161-- | Data format for the response.
154−pcuAlt :: Lens' PretargetingConfigUpdate' Text
162+pcuAlt :: Lens' PretargetingConfigUpdate' Alt
155pcuAlt = lens _pcuAlt (\ s a -> s{_pcuAlt = a})
163pcuAlt = lens _pcuAlt (\ s a -> s{_pcuAlt = a})
157instance GoogleRequest PretargetingConfigUpdate'
165instance GoogleRequest PretargetingConfigUpdate'
@@ -159,16 +167,16 @@ instance GoogleRequest PretargetingConfigUpdate'
159 type Rs PretargetingConfigUpdate' =
167 type Rs PretargetingConfigUpdate' =
160 PretargetingConfig
168 PretargetingConfig
161 request = requestWithRoute defReq adExchangeBuyerURL
169 request = requestWithRoute defReq adExchangeBuyerURL
162− requestWithRoute r u PretargetingConfigUpdate{..}
170+ requestWithRoute r u PretargetingConfigUpdate'{..}
163− = go _pcuQuotaUser _pcuPrettyPrint _pcuUserIp
171+ = go _pcuQuotaUser (Just _pcuPrettyPrint) _pcuUserIp
164 _pcuAccountId
172 _pcuAccountId
166 _pcuConfigId
174 _pcuConfigId
167 _pcuOauthToken
175 _pcuOauthToken
168 _pcuFields
176 _pcuFields
169− _pcuAlt
177+ (Just _pcuAlt)
171 = clientWithRoute
179 = clientWithRoute
172− (Proxy :: Proxy PretargetingConfigUpdateAPI)
180+ (Proxy :: Proxy PretargetingConfigUpdateResource)
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller.hs+47−15
@@ -28,46 +28,46 @@ module Network.Google.AdExchangeSeller
28 -- * REST Resources
28 -- * REST Resources
30 -- ** AdexchangesellerAccountsAdclientsList
30 -- ** AdexchangesellerAccountsAdclientsList
31− , module AdExchangeSeller.Accounts.Adclients.List
31+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List
33 -- ** AdexchangesellerAccountsAlertsList
33 -- ** AdexchangesellerAccountsAlertsList
34− , module AdExchangeSeller.Accounts.Alerts.List
34+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List
36 -- ** AdexchangesellerAccountsCustomchannelsGet
36 -- ** AdexchangesellerAccountsCustomchannelsGet
37− , module AdExchangeSeller.Accounts.Customchannels.Get
37+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get
39 -- ** AdexchangesellerAccountsCustomchannelsList
39 -- ** AdexchangesellerAccountsCustomchannelsList
40− , module AdExchangeSeller.Accounts.Customchannels.List
40+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List
42 -- ** AdexchangesellerAccountsGet
42 -- ** AdexchangesellerAccountsGet
43− , module AdExchangeSeller.Accounts.Get
43+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Get
45 -- ** AdexchangesellerAccountsList
45 -- ** AdexchangesellerAccountsList
46− , module AdExchangeSeller.Accounts.List
46+ , module Network.Google.Resource.AdExchangeSeller.Accounts.List
48 -- ** AdexchangesellerAccountsMetadataDimensionsList
48 -- ** AdexchangesellerAccountsMetadataDimensionsList
49− , module AdExchangeSeller.Accounts.Metadata.Dimensions.List
49+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.List
51 -- ** AdexchangesellerAccountsMetadataMetricsList
51 -- ** AdexchangesellerAccountsMetadataMetricsList
52− , module AdExchangeSeller.Accounts.Metadata.Metrics.List
52+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List
54 -- ** AdexchangesellerAccountsPreferreddealsGet
54 -- ** AdexchangesellerAccountsPreferreddealsGet
55− , module AdExchangeSeller.Accounts.Preferreddeals.Get
55+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get
57 -- ** AdexchangesellerAccountsPreferreddealsList
57 -- ** AdexchangesellerAccountsPreferreddealsList
58− , module AdExchangeSeller.Accounts.Preferreddeals.List
58+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List
60 -- ** AdexchangesellerAccountsReportsGenerate
60 -- ** AdexchangesellerAccountsReportsGenerate
61− , module AdExchangeSeller.Accounts.Reports.Generate
61+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate
63 -- ** AdexchangesellerAccountsReportsSavedGenerate
63 -- ** AdexchangesellerAccountsReportsSavedGenerate
64− , module AdExchangeSeller.Accounts.Reports.Saved.Generate
64+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate
66 -- ** AdexchangesellerAccountsReportsSavedList
66 -- ** AdexchangesellerAccountsReportsSavedList
67− , module AdExchangeSeller.Accounts.Reports.Saved.List
67+ , module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List
69 -- ** AdexchangesellerAccountsURLchannelsList
69 -- ** AdexchangesellerAccountsURLchannelsList
70− , module AdExchangeSeller.Accounts.URLchannels.List
70+ , module Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List
72 -- * Types
72 -- * Types
@@ -98,6 +98,13 @@ module Network.Google.AdExchangeSeller
101 -- ** Alerts
108 -- ** Alerts
@@ -171,6 +178,14 @@ module Network.Google.AdExchangeSeller
172 , adProductCode
179 , adProductCode
181+ -- ** CustomChannelTargetingInfo
182+ , CustomChannelTargetingInfo
183+ , customChannelTargetingInfo
174 -- ** PreferredDeals
189 -- ** PreferredDeals
175 , PreferredDeals
190 , PreferredDeals
176 , preferredDeals
191 , preferredDeals
@@ -210,6 +225,9 @@ module Network.Google.AdExchangeSeller
210 , pEndTime
225 , pEndTime
212 , pFixedCpm
227 , pFixedCpm
215import Network.Google.AdExchangeSeller.Types
233import Network.Google.AdExchangeSeller.Types
@@ -233,7 +251,21 @@ import Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.L
236−type AdExchangeSellerAPI = Accounts
254+type AdExchangeSellerAPI =
255+ AccountsAdclientsListResource :<|>
256+ AccountsReportsSavedListResource
257+ :<|> AccountsReportsSavedGenerateResource
258+ :<|> AccountsReportsGenerateResource
259+ :<|> AccountsAlertsListResource
260+ :<|> AccountsUrlchannelsListResource
261+ :<|> AccountsCustomchannelsListResource
262+ :<|> AccountsCustomchannelsGetResource
263+ :<|> AccountsPreferreddealsListResource
264+ :<|> AccountsPreferreddealsGetResource
265+ :<|> AccountsMetadataMetricsListResource
266+ :<|> AccountsMetadataDimensionsListResource
267+ :<|> AccountsListResource
268+ :<|> AccountsGetResource
238adExchangeSellerAPI :: Proxy AdExchangeSellerAPI
270adExchangeSellerAPI :: Proxy AdExchangeSellerAPI
239adExchangeSellerAPI = Proxy
271adExchangeSellerAPI = Proxy
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types.hs+19−1
@@ -44,6 +44,13 @@ module Network.Google.AdExchangeSeller.Types
47 -- * Alerts
54 -- * Alerts
@@ -117,6 +124,14 @@ module Network.Google.AdExchangeSeller.Types
118 , adProductCode
125 , adProductCode
127+ -- * CustomChannelTargetingInfo
128+ , CustomChannelTargetingInfo
129+ , customChannelTargetingInfo
120 -- * PreferredDeals
135 -- * PreferredDeals
121 , PreferredDeals
136 , PreferredDeals
122 , preferredDeals
137 , preferredDeals
@@ -156,6 +171,9 @@ module Network.Google.AdExchangeSeller.Types
156 , pEndTime
171 , pEndTime
158 , pFixedCpm
173 , pFixedCpm
161import Network.Google.AdExchangeSeller.Types.Product
179import Network.Google.AdExchangeSeller.Types.Product
@@ -163,7 +181,7 @@ import Network.Google.AdExchangeSeller.Types.Sum
163import Network.Google.Prelude
181import Network.Google.Prelude
165-- | URL referring to version 'v2.0' of the Ad Exchange Seller API.
183-- | URL referring to version 'v2.0' of the Ad Exchange Seller API.
166−adExchangeSellerURL :: BaseURL
184+adExchangeSellerURL :: BaseUrl
167adExchangeSellerURL
185adExchangeSellerURL
168 = BaseUrl Https
186 = BaseUrl Https
169 "https://www.googleapis.com/adexchangeseller/v2.0/"
187 "https://www.googleapis.com/adexchangeseller/v2.0/"
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types/Product.hs+136−2
@@ -283,6 +283,63 @@ instance ToJSON Accounts where
283 ("nextPageToken" .=) <$> _aNextPageToken,
283 ("nextPageToken" .=) <$> _aNextPageToken,
284 Just ("kind" .= _aKind), ("items" .=) <$> _aItems])
284 Just ("kind" .= _aKind), ("items" .=) <$> _aItems])
287+-- /See:/ 'reportHeaders' smart constructor.
288+data ReportHeaders = ReportHeaders
289+ { _rhName :: !(Maybe Text)
290+ , _rhCurrency :: !(Maybe Text)
291+ , _rhType :: !(Maybe Text)
292+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
294+-- | Creates a value of 'ReportHeaders' with the minimum fields required to make a request.
296+-- Use one of the following lenses to modify other fields as desired:
308+ , _rhCurrency = Nothing
312+-- | The name of the header.
313+rhName :: Lens' ReportHeaders (Maybe Text)
314+rhName = lens _rhName (\ s a -> s{_rhName = a})
316+-- | The currency of this column. Only present if the header type is
318+rhCurrency :: Lens' ReportHeaders (Maybe Text)
320+ = lens _rhCurrency (\ s a -> s{_rhCurrency = a})
322+-- | The type of the header; one of DIMENSION, METRIC_TALLY, METRIC_RATIO, or
324+rhType :: Lens' ReportHeaders (Maybe Text)
325+rhType = lens _rhType (\ s a -> s{_rhType = a})
327+instance FromJSON ReportHeaders where
329+ = withObject "ReportHeaders"
332+ (o .:? "name") <*> (o .:? "currency") <*>
335+instance ToJSON ReportHeaders where
336+ toJSON ReportHeaders{..}
339+ [("name" .=) <$> _rhName,
340+ ("currency" .=) <$> _rhCurrency,
341+ ("type" .=) <$> _rhType])
287-- /See:/ 'alerts' smart constructor.
344-- /See:/ 'alerts' smart constructor.
288data Alerts = Alerts
345data Alerts = Alerts
@@ -679,7 +736,7 @@ data Report = Report
679 , _rWarnings :: !(Maybe [Text])
736 , _rWarnings :: !(Maybe [Text])
680 , _rRows :: !(Maybe [[Text]])
737 , _rRows :: !(Maybe [[Text]])
681 , _rTotals :: !(Maybe [Text])
738 , _rTotals :: !(Maybe [Text])
682− , _rHeaders :: !(Maybe [ReportHeadersItem])
739+ , _rHeaders :: !(Maybe [ReportHeaders])
683 , _rTotalMatchedRows :: !(Maybe Int64)
740 , _rTotalMatchedRows :: !(Maybe Int64)
684 } deriving (Eq,Read,Show,Data,Typeable,Generic)
741 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -751,7 +808,7 @@ rTotals
751-- | The header information of the columns requested in the report. This is a
808-- | The header information of the columns requested in the report. This is a
752-- list of headers; one for each dimension in the request, followed by one
809-- list of headers; one for each dimension in the request, followed by one
753-- for each metric in the request.
810-- for each metric in the request.
754−rHeaders :: Lens' Report [ReportHeadersItem]
811+rHeaders :: Lens' Report [ReportHeaders]
756 = lens _rHeaders (\ s a -> s{_rHeaders = a}) .
813 = lens _rHeaders (\ s a -> s{_rHeaders = a}) .
@@ -924,6 +981,83 @@ instance ToJSON AdClient where
924 ("id" .=) <$> _adId,
981 ("id" .=) <$> _adId,
925 ("productCode" .=) <$> _adProductCode])
982 ("productCode" .=) <$> _adProductCode])
984+-- | The targeting information of this custom channel, if activated.
986+-- /See:/ 'customChannelTargetingInfo' smart constructor.
987+data CustomChannelTargetingInfo = CustomChannelTargetingInfo
988+ { _cctiLocation :: !(Maybe Text)
989+ , _cctiSiteLanguage :: !(Maybe Text)
990+ , _cctiAdsAppearOn :: !(Maybe Text)
991+ , _cctiDescription :: !(Maybe Text)
992+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
994+-- | Creates a value of 'CustomChannelTargetingInfo' with the minimum fields required to make a request.
996+-- Use one of the following lenses to modify other fields as desired:
1000+-- * 'cctiSiteLanguage'
1002+-- * 'cctiAdsAppearOn'
1004+-- * 'cctiDescription'
1005+customChannelTargetingInfo
1006+ :: CustomChannelTargetingInfo
1007+customChannelTargetingInfo =
1008+ CustomChannelTargetingInfo
1009+ { _cctiLocation = Nothing
1010+ , _cctiSiteLanguage = Nothing
1011+ , _cctiAdsAppearOn = Nothing
1012+ , _cctiDescription = Nothing
1015+-- | The locations in which ads appear. (Only valid for content and mobile
1016+-- content ads). Acceptable values for content ads are: TOP_LEFT,
1017+-- TOP_CENTER, TOP_RIGHT, MIDDLE_LEFT, MIDDLE_CENTER, MIDDLE_RIGHT,
1018+-- BOTTOM_LEFT, BOTTOM_CENTER, BOTTOM_RIGHT, MULTIPLE_LOCATIONS. Acceptable
1019+-- values for mobile content ads are: TOP, MIDDLE, BOTTOM,
1020+-- MULTIPLE_LOCATIONS.
1021+cctiLocation :: Lens' CustomChannelTargetingInfo (Maybe Text)
1023+ = lens _cctiLocation (\ s a -> s{_cctiLocation = a})
1025+-- | The language of the sites ads will be displayed on.
1026+cctiSiteLanguage :: Lens' CustomChannelTargetingInfo (Maybe Text)
1028+ = lens _cctiSiteLanguage
1029+ (\ s a -> s{_cctiSiteLanguage = a})
1031+-- | The name used to describe this channel externally.
1032+cctiAdsAppearOn :: Lens' CustomChannelTargetingInfo (Maybe Text)
1034+ = lens _cctiAdsAppearOn
1035+ (\ s a -> s{_cctiAdsAppearOn = a})
1037+-- | The external description of the channel.
1038+cctiDescription :: Lens' CustomChannelTargetingInfo (Maybe Text)
1040+ = lens _cctiDescription
1041+ (\ s a -> s{_cctiDescription = a})
1043+instance FromJSON CustomChannelTargetingInfo where
1045+ = withObject "CustomChannelTargetingInfo"
1047+ CustomChannelTargetingInfo <$>
1048+ (o .:? "location") <*> (o .:? "siteLanguage") <*>
1049+ (o .:? "adsAppearOn")
1050+ <*> (o .:? "description"))
1052+instance ToJSON CustomChannelTargetingInfo where
1053+ toJSON CustomChannelTargetingInfo{..}
1056+ [("location" .=) <$> _cctiLocation,
1057+ ("siteLanguage" .=) <$> _cctiSiteLanguage,
1058+ ("adsAppearOn" .=) <$> _cctiAdsAppearOn,
1059+ ("description" .=) <$> _cctiDescription])
928-- /See:/ 'preferredDeals' smart constructor.
1062-- /See:/ 'preferredDeals' smart constructor.
929data PreferredDeals = PreferredDeals
1063data PreferredDeals = PreferredDeals
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller/Types/Sum.hs+29
@@ -16,3 +16,32 @@
16module Network.Google.AdExchangeSeller.Types.Sum where
16module Network.Google.AdExchangeSeller.Types.Sum where
18import Network.Google.Prelude
18import Network.Google.Prelude
20+-- | Data format for the response.
24+ -- Responses with Content-Type of text\/csv
27+ -- Responses with Content-Type of application\/json
28+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
32+instance FromText Alt where
38+instance ToText Alt where
43+instance FromJSON Alt where
44+ parseJSON = parseJSONText "Alt"
46+instance ToJSON Alt where
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Adclients/List.hs+98−96
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,170 +20,171 @@
19-- | List all ad clients in this Ad Exchange account.
20-- | List all ad clients in this Ad Exchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsAdclientsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsAdclientsList@.
22−module AdExchangeSeller.Accounts.Adclients.List
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Adclients.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsAdclientsListAPI
26+ AccountsAdclientsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsAdclientsList
29+ , accountsAdclientsList'
29− , AccountsAdclientsList
30+ , AccountsAdclientsList'
31 -- * Request Lenses
32 -- * Request Lenses
32− , aalQuotaUser
33+ , aQuotaUser
33− , aalPrettyPrint
34+ , aPrettyPrint
34− , aalUserIp
35+ , aUserIp
35− , aalAccountId
36+ , aAccountId
37− , aalPageToken
38+ , aPageToken
38− , aalOauthToken
39+ , aOauthToken
39− , aalMaxResults
40+ , aMaxResults
40− , aalFields
41+ , aFields
44import Network.Google.AdExchangeSeller.Types
45import Network.Google.AdExchangeSeller.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangesellerAccountsAdclientsList@ which the
48-- | A resource alias for @AdexchangesellerAccountsAdclientsList@ which the
48−-- 'AccountsAdclientsList' request conforms to.
49+-- 'AccountsAdclientsList'' request conforms to.
49−type AccountsAdclientsListAPI =
50+type AccountsAdclientsListResource =
50 "accounts" :>
51 "accounts" :>
51 Capture "accountId" Text :>
52 Capture "accountId" Text :>
52 "adclients" :>
53 "adclients" :>
54+ QueryParam "quotaUser" Text :>
55+ QueryParam "prettyPrint" Bool :>
56+ QueryParam "userIp" Text :>
57+ QueryParam "key" Text :>
53− QueryParam "pageToken" Text :>
58+ QueryParam "pageToken" Text :>
59+ QueryParam "oauth_token" Text :>
54− QueryParam "maxResults" Word32 :>
60+ QueryParam "maxResults" Word32 :>
61+ QueryParam "fields" Text :>
55− Get '[JSON] AdClients
62+ QueryParam "alt" Alt :> Get '[JSON] AdClients
57-- | List all ad clients in this Ad Exchange account.
64-- | List all ad clients in this Ad Exchange account.
59−-- /See:/ 'accountsAdclientsList' smart constructor.
66+-- /See:/ 'accountsAdclientsList'' smart constructor.
60−data AccountsAdclientsList = AccountsAdclientsList
67+data AccountsAdclientsList' = AccountsAdclientsList'
61− { _aalQuotaUser :: !(Maybe Text)
68+ { _aQuotaUser :: !(Maybe Text)
62− , _aalPrettyPrint :: !Bool
69+ , _aPrettyPrint :: !Bool
63− , _aalUserIp :: !(Maybe Text)
70+ , _aUserIp :: !(Maybe Text)
64− , _aalAccountId :: !Text
71+ , _aAccountId :: !Text
65− , _aalKey :: !(Maybe Text)
72+ , _aKey :: !(Maybe Text)
66− , _aalPageToken :: !(Maybe Text)
73+ , _aPageToken :: !(Maybe Text)
67− , _aalOauthToken :: !(Maybe Text)
74+ , _aOauthToken :: !(Maybe Text)
68− , _aalMaxResults :: !(Maybe Word32)
75+ , _aMaxResults :: !(Maybe Word32)
69− , _aalFields :: !(Maybe Text)
76+ , _aFields :: !(Maybe Text)
70− , _aalAlt :: !Text
77+ , _aAlt :: !Alt
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
78 } deriving (Eq,Read,Show,Data,Typeable,Generic)
73-- | Creates a value of 'AccountsAdclientsList'' with the minimum fields required to make a request.
80-- | Creates a value of 'AccountsAdclientsList'' with the minimum fields required to make a request.
75-- Use one of the following lenses to modify other fields as desired:
82-- Use one of the following lenses to modify other fields as desired:
77−-- * 'aalQuotaUser'
84+-- * 'aQuotaUser'
79−-- * 'aalPrettyPrint'
86+-- * 'aPrettyPrint'
81−-- * 'aalUserIp'
88+-- * 'aUserIp'
83−-- * 'aalAccountId'
90+-- * 'aAccountId'
85−-- * 'aalKey'
92+-- * 'aKey'
87−-- * 'aalPageToken'
94+-- * 'aPageToken'
89−-- * 'aalOauthToken'
96+-- * 'aOauthToken'
91−-- * 'aalMaxResults'
98+-- * 'aMaxResults'
93−-- * 'aalFields'
100+-- * 'aFields'
95−-- * 'aalAlt'
102+-- * 'aAlt'
96−accountsAdclientsList
103+accountsAdclientsList'
97 :: Text -- ^ 'accountId'
104 :: Text -- ^ 'accountId'
98− -> AccountsAdclientsList
105+ -> AccountsAdclientsList'
99−accountsAdclientsList pAalAccountId_ =
106+accountsAdclientsList' pAAccountId_ =
100− AccountsAdclientsList
107+ AccountsAdclientsList'
101− { _aalQuotaUser = Nothing
108+ { _aQuotaUser = Nothing
102− , _aalPrettyPrint = True
109+ , _aPrettyPrint = True
103− , _aalUserIp = Nothing
110+ , _aUserIp = Nothing
104− , _aalAccountId = pAalAccountId_
111+ , _aAccountId = pAAccountId_
105− , _aalKey = Nothing
112+ , _aKey = Nothing
106− , _aalPageToken = Nothing
113+ , _aPageToken = Nothing
107− , _aalOauthToken = Nothing
114+ , _aOauthToken = Nothing
108− , _aalMaxResults = Nothing
115+ , _aMaxResults = Nothing
109− , _aalFields = Nothing
116+ , _aFields = Nothing
110− , _aalAlt = "json"
117+ , _aAlt = JSON
113-- | 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
114-- any arbitrary string assigned to a user, but should not exceed 40
121-- any arbitrary string assigned to a user, but should not exceed 40
115-- characters. Overrides userIp if both are provided.
122-- characters. Overrides userIp if both are provided.
116−aalQuotaUser :: Lens' AccountsAdclientsList' (Maybe Text)
123+aQuotaUser :: Lens' AccountsAdclientsList' (Maybe Text)
117−aalQuotaUser
124+aQuotaUser
118− = lens _aalQuotaUser (\ s a -> s{_aalQuotaUser = a})
125+ = lens _aQuotaUser (\ s a -> s{_aQuotaUser = a})
120-- | Returns response with indentations and line breaks.
127-- | Returns response with indentations and line breaks.
121−aalPrettyPrint :: Lens' AccountsAdclientsList' Bool
128+aPrettyPrint :: Lens' AccountsAdclientsList' Bool
122−aalPrettyPrint
129+aPrettyPrint
123− = lens _aalPrettyPrint
130+ = lens _aPrettyPrint (\ s a -> s{_aPrettyPrint = a})
124− (\ s a -> s{_aalPrettyPrint = a})
126-- | 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
127-- want to enforce per-user limits.
133-- want to enforce per-user limits.
128−aalUserIp :: Lens' AccountsAdclientsList' (Maybe Text)
134+aUserIp :: Lens' AccountsAdclientsList' (Maybe Text)
129−aalUserIp
135+aUserIp = lens _aUserIp (\ s a -> s{_aUserIp = a})
130− = lens _aalUserIp (\ s a -> s{_aalUserIp = a})
132-- | Account to which the ad client belongs.
137-- | Account to which the ad client belongs.
133−aalAccountId :: Lens' AccountsAdclientsList' Text
138+aAccountId :: Lens' AccountsAdclientsList' Text
134−aalAccountId
139+aAccountId
135− = lens _aalAccountId (\ s a -> s{_aalAccountId = a})
140+ = lens _aAccountId (\ s a -> s{_aAccountId = a})
137-- | API key. Your API key identifies your project and provides you with API
142-- | 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
143-- access, quota, and reports. Required unless you provide an OAuth 2.0
140−aalKey :: Lens' AccountsAdclientsList' (Maybe Text)
145+aKey :: Lens' AccountsAdclientsList' (Maybe Text)
141−aalKey = lens _aalKey (\ s a -> s{_aalKey = a})
146+aKey = lens _aKey (\ s a -> s{_aKey = a})
143-- | A continuation token, used to page through ad clients. To retrieve the
148-- | A continuation token, used to page through ad clients. To retrieve the
144-- next page, set this parameter to the value of \"nextPageToken\" from the
149-- next page, set this parameter to the value of \"nextPageToken\" from the
145-- previous response.
150-- previous response.
146−aalPageToken :: Lens' AccountsAdclientsList' (Maybe Text)
151+aPageToken :: Lens' AccountsAdclientsList' (Maybe Text)
147−aalPageToken
152+aPageToken
148− = lens _aalPageToken (\ s a -> s{_aalPageToken = a})
153+ = lens _aPageToken (\ s a -> s{_aPageToken = a})
150-- | OAuth 2.0 token for the current user.
155-- | OAuth 2.0 token for the current user.
151−aalOauthToken :: Lens' AccountsAdclientsList' (Maybe Text)
156+aOauthToken :: Lens' AccountsAdclientsList' (Maybe Text)
152−aalOauthToken
157+aOauthToken
153− = lens _aalOauthToken
158+ = lens _aOauthToken (\ s a -> s{_aOauthToken = a})
154− (\ s a -> s{_aalOauthToken = a})
156-- | The maximum number of ad clients to include in the response, used for
160-- | The maximum number of ad clients to include in the response, used for
157-- paging.
161-- paging.
158−aalMaxResults :: Lens' AccountsAdclientsList' (Maybe Word32)
162+aMaxResults :: Lens' AccountsAdclientsList' (Maybe Word32)
159−aalMaxResults
163+aMaxResults
160− = lens _aalMaxResults
164+ = lens _aMaxResults (\ s a -> s{_aMaxResults = a})
161− (\ s a -> s{_aalMaxResults = a})
163-- | Selector specifying which fields to include in a partial response.
166-- | Selector specifying which fields to include in a partial response.
164−aalFields :: Lens' AccountsAdclientsList' (Maybe Text)
167+aFields :: Lens' AccountsAdclientsList' (Maybe Text)
165−aalFields
168+aFields = lens _aFields (\ s a -> s{_aFields = a})
166− = lens _aalFields (\ s a -> s{_aalFields = a})
168-- | Data format for the response.
170-- | Data format for the response.
169−aalAlt :: Lens' AccountsAdclientsList' Text
171+aAlt :: Lens' AccountsAdclientsList' Alt
170−aalAlt = lens _aalAlt (\ s a -> s{_aalAlt = a})
172+aAlt = lens _aAlt (\ s a -> s{_aAlt = a})
172instance GoogleRequest AccountsAdclientsList' where
174instance GoogleRequest AccountsAdclientsList' where
173 type Rs AccountsAdclientsList' = AdClients
175 type Rs AccountsAdclientsList' = AdClients
174 request = requestWithRoute defReq adExchangeSellerURL
176 request = requestWithRoute defReq adExchangeSellerURL
175− requestWithRoute r u AccountsAdclientsList{..}
177+ requestWithRoute r u AccountsAdclientsList'{..}
176− = go _aalQuotaUser _aalPrettyPrint _aalUserIp
178+ = go _aQuotaUser (Just _aPrettyPrint) _aUserIp
177− _aalAccountId
179+ _aAccountId
179− _aalPageToken
181+ _aPageToken
180− _aalOauthToken
182+ _aOauthToken
181− _aalMaxResults
183+ _aMaxResults
182− _aalFields
184+ _aFields
183− _aalAlt
185+ (Just _aAlt)
185 = clientWithRoute
187 = clientWithRoute
186− (Proxy :: Proxy AccountsAdclientsListAPI)
188+ (Proxy :: Proxy AccountsAdclientsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs+93−79
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,149 +20,162 @@
19-- | List the alerts for this Ad Exchange account.
20-- | List the alerts for this Ad Exchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsAlertsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsAlertsList@.
22−module AdExchangeSeller.Accounts.Alerts.List
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Alerts.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsAlertsListAPI
26+ AccountsAlertsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsAlertsList
29+ , accountsAlertsList'
29− , AccountsAlertsList
30+ , AccountsAlertsList'
31 -- * Request Lenses
32 -- * Request Lenses
32− , aQuotaUser
33+ , aalQuotaUser
33− , aPrettyPrint
34+ , aalPrettyPrint
34− , aUserIp
35+ , aalUserIp
35− , aLocale
36+ , aalLocale
36− , aAccountId
37+ , aalAccountId
38− , aOauthToken
39+ , aalOauthToken
39− , aFields
40+ , aalFields
43import Network.Google.AdExchangeSeller.Types
44import Network.Google.AdExchangeSeller.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangesellerAccountsAlertsList@ which the
47-- | A resource alias for @AdexchangesellerAccountsAlertsList@ which the
47−-- 'AccountsAlertsList' request conforms to.
48+-- 'AccountsAlertsList'' request conforms to.
48−type AccountsAlertsListAPI =
49+type AccountsAlertsListResource =
49 "accounts" :>
50 "accounts" :>
50 Capture "accountId" Text :>
51 Capture "accountId" Text :>
51 "alerts" :>
52 "alerts" :>
53+ QueryParam "quotaUser" Text :>
54+ QueryParam "prettyPrint" Bool :>
55+ QueryParam "userIp" Text :>
56+ QueryParam "locale" Text :>
57+ QueryParam "key" Text :>
58+ QueryParam "oauth_token" Text :>
59+ QueryParam "fields" Text :>
52− QueryParam "locale" Text :> Get '[JSON] Alerts
60+ QueryParam "alt" Alt :> Get '[JSON] Alerts
54-- | List the alerts for this Ad Exchange account.
62-- | List the alerts for this Ad Exchange account.
56−-- /See:/ 'accountsAlertsList' smart constructor.
64+-- /See:/ 'accountsAlertsList'' smart constructor.
57−data AccountsAlertsList = AccountsAlertsList
65+data AccountsAlertsList' = AccountsAlertsList'
58− { _aQuotaUser :: !(Maybe Text)
66+ { _aalQuotaUser :: !(Maybe Text)
59− , _aPrettyPrint :: !Bool
67+ , _aalPrettyPrint :: !Bool
60− , _aUserIp :: !(Maybe Text)
68+ , _aalUserIp :: !(Maybe Text)
61− , _aLocale :: !(Maybe Text)
69+ , _aalLocale :: !(Maybe Text)
62− , _aAccountId :: !Text
70+ , _aalAccountId :: !Text
63− , _aKey :: !(Maybe Text)
71+ , _aalKey :: !(Maybe Text)
64− , _aOauthToken :: !(Maybe Text)
72+ , _aalOauthToken :: !(Maybe Text)
65− , _aFields :: !(Maybe Text)
73+ , _aalFields :: !(Maybe Text)
66− , _aAlt :: !Text
74+ , _aalAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.
77-- | Creates a value of 'AccountsAlertsList'' with the minimum fields required to make a request.
71-- Use one of the following lenses to modify other fields as desired:
79-- Use one of the following lenses to modify other fields as desired:
73−-- * 'aQuotaUser'
81+-- * 'aalQuotaUser'
75−-- * 'aPrettyPrint'
83+-- * 'aalPrettyPrint'
77−-- * 'aUserIp'
85+-- * 'aalUserIp'
79−-- * 'aLocale'
87+-- * 'aalLocale'
81−-- * 'aAccountId'
89+-- * 'aalAccountId'
83−-- * 'aKey'
91+-- * 'aalKey'
85−-- * 'aOauthToken'
93+-- * 'aalOauthToken'
87−-- * 'aFields'
95+-- * 'aalFields'
89−-- * 'aAlt'
97+-- * 'aalAlt'
90−accountsAlertsList
98+accountsAlertsList'
91 :: Text -- ^ 'accountId'
99 :: Text -- ^ 'accountId'
92− -> AccountsAlertsList
100+ -> AccountsAlertsList'
93−accountsAlertsList pAAccountId_ =
101+accountsAlertsList' pAalAccountId_ =
94− AccountsAlertsList
102+ AccountsAlertsList'
95− { _aQuotaUser = Nothing
103+ { _aalQuotaUser = Nothing
96− , _aPrettyPrint = True
104+ , _aalPrettyPrint = True
97− , _aUserIp = Nothing
105+ , _aalUserIp = Nothing
98− , _aLocale = Nothing
106+ , _aalLocale = Nothing
99− , _aAccountId = pAAccountId_
107+ , _aalAccountId = pAalAccountId_
100− , _aKey = Nothing
108+ , _aalKey = Nothing
101− , _aOauthToken = Nothing
109+ , _aalOauthToken = Nothing
102− , _aFields = Nothing
110+ , _aalFields = Nothing
103− , _aAlt = "json"
111+ , _aalAlt = JSON
106-- | 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
107-- any arbitrary string assigned to a user, but should not exceed 40
115-- any arbitrary string assigned to a user, but should not exceed 40
108-- characters. Overrides userIp if both are provided.
116-- characters. Overrides userIp if both are provided.
109−aQuotaUser :: Lens' AccountsAlertsList' (Maybe Text)
117+aalQuotaUser :: Lens' AccountsAlertsList' (Maybe Text)
110−aQuotaUser
118+aalQuotaUser
111− = lens _aQuotaUser (\ s a -> s{_aQuotaUser = a})
119+ = lens _aalQuotaUser (\ s a -> s{_aalQuotaUser = a})
113-- | Returns response with indentations and line breaks.
121-- | Returns response with indentations and line breaks.
114−aPrettyPrint :: Lens' AccountsAlertsList' Bool
122+aalPrettyPrint :: Lens' AccountsAlertsList' Bool
115−aPrettyPrint
123+aalPrettyPrint
116− = lens _aPrettyPrint (\ s a -> s{_aPrettyPrint = a})
124+ = lens _aalPrettyPrint
125+ (\ s a -> s{_aalPrettyPrint = a})
118-- | 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
119-- want to enforce per-user limits.
128-- want to enforce per-user limits.
120−aUserIp :: Lens' AccountsAlertsList' (Maybe Text)
129+aalUserIp :: Lens' AccountsAlertsList' (Maybe Text)
121−aUserIp = lens _aUserIp (\ s a -> s{_aUserIp = a})
130+aalUserIp
131+ = lens _aalUserIp (\ s a -> s{_aalUserIp = a})
123-- | The locale to use for translating alert messages. The account locale
133-- | The locale to use for translating alert messages. The account locale
124-- will be used if this is not supplied. The AdSense default (English) will
134-- will be used if this is not supplied. The AdSense default (English) will
125-- be used if the supplied locale is invalid or unsupported.
135-- be used if the supplied locale is invalid or unsupported.
126−aLocale :: Lens' AccountsAlertsList' (Maybe Text)
136+aalLocale :: Lens' AccountsAlertsList' (Maybe Text)
127−aLocale = lens _aLocale (\ s a -> s{_aLocale = a})
137+aalLocale
138+ = lens _aalLocale (\ s a -> s{_aalLocale = a})
129-- | Account owning the alerts.
140-- | Account owning the alerts.
130−aAccountId :: Lens' AccountsAlertsList' Text
141+aalAccountId :: Lens' AccountsAlertsList' Text
131−aAccountId
142+aalAccountId
132− = lens _aAccountId (\ s a -> s{_aAccountId = a})
143+ = lens _aalAccountId (\ s a -> s{_aalAccountId = a})
134-- | 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
135-- 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
137−aKey :: Lens' AccountsAlertsList' (Maybe Text)
148+aalKey :: Lens' AccountsAlertsList' (Maybe Text)
138−aKey = lens _aKey (\ s a -> s{_aKey = a})
149+aalKey = lens _aalKey (\ s a -> s{_aalKey = a})
140-- | OAuth 2.0 token for the current user.
151-- | OAuth 2.0 token for the current user.
141−aOauthToken :: Lens' AccountsAlertsList' (Maybe Text)
152+aalOauthToken :: Lens' AccountsAlertsList' (Maybe Text)
142−aOauthToken
153+aalOauthToken
143− = lens _aOauthToken (\ s a -> s{_aOauthToken = a})
154+ = lens _aalOauthToken
155+ (\ s a -> s{_aalOauthToken = a})
145-- | Selector specifying which fields to include in a partial response.
157-- | Selector specifying which fields to include in a partial response.
146−aFields :: Lens' AccountsAlertsList' (Maybe Text)
158+aalFields :: Lens' AccountsAlertsList' (Maybe Text)
147−aFields = lens _aFields (\ s a -> s{_aFields = a})
159+aalFields
160+ = lens _aalFields (\ s a -> s{_aalFields = a})
149-- | Data format for the response.
162-- | Data format for the response.
150−aAlt :: Lens' AccountsAlertsList' Text
163+aalAlt :: Lens' AccountsAlertsList' Alt
151−aAlt = lens _aAlt (\ s a -> s{_aAlt = a})
164+aalAlt = lens _aalAlt (\ s a -> s{_aalAlt = a})
153instance GoogleRequest AccountsAlertsList' where
166instance GoogleRequest AccountsAlertsList' where
154 type Rs AccountsAlertsList' = Alerts
167 type Rs AccountsAlertsList' = Alerts
155 request = requestWithRoute defReq adExchangeSellerURL
168 request = requestWithRoute defReq adExchangeSellerURL
156− requestWithRoute r u AccountsAlertsList{..}
169+ requestWithRoute r u AccountsAlertsList'{..}
157− = go _aQuotaUser _aPrettyPrint _aUserIp _aLocale
170+ = go _aalQuotaUser (Just _aalPrettyPrint) _aalUserIp
158− _aAccountId
171+ _aalLocale
159− _aKey
172+ _aalAccountId
160− _aOauthToken
173+ _aalKey
161− _aFields
174+ _aalOauthToken
162− _aAlt
175+ _aalFields
164 = clientWithRoute
178 = clientWithRoute
165− (Proxy :: Proxy AccountsAlertsListAPI)
179+ (Proxy :: Proxy AccountsAlertsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Customchannels/Get.hs+27−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Get the specified custom channel from the specified ad client.
20-- | Get the specified custom channel from the specified ad client.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomchannelsGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomchannelsGet@.
22−module AdExchangeSeller.Accounts.Customchannels.Get
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.Get
24 -- * REST Resource
25 -- * REST Resource
25− AccountsCustomchannelsGetAPI
26+ AccountsCustomchannelsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsCustomchannelsGet
29+ , accountsCustomchannelsGet'
29− , AccountsCustomchannelsGet
30+ , AccountsCustomchannelsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , acgQuotaUser
33 , acgQuotaUser
@@ -45,20 +46,26 @@ import Network.Google.AdExchangeSeller.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangesellerAccountsCustomchannelsGet@ which the
48-- | A resource alias for @AdexchangesellerAccountsCustomchannelsGet@ which the
48−-- 'AccountsCustomchannelsGet' request conforms to.
49+-- 'AccountsCustomchannelsGet'' request conforms to.
49−type AccountsCustomchannelsGetAPI =
50+type AccountsCustomchannelsGetResource =
50 "accounts" :>
51 "accounts" :>
51 Capture "accountId" Text :>
52 Capture "accountId" Text :>
52 "adclients" :>
53 "adclients" :>
53 Capture "adClientId" Text :>
54 Capture "adClientId" Text :>
54 "customchannels" :>
55 "customchannels" :>
55 Capture "customChannelId" Text :>
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 :>
56− Get '[JSON] CustomChannel
63+ QueryParam "alt" Alt :> Get '[JSON] CustomChannel
58-- | Get the specified custom channel from the specified ad client.
65-- | Get the specified custom channel from the specified ad client.
60−-- /See:/ 'accountsCustomchannelsGet' smart constructor.
67+-- /See:/ 'accountsCustomchannelsGet'' smart constructor.
61−data AccountsCustomchannelsGet = AccountsCustomchannelsGet
68+data AccountsCustomchannelsGet' = AccountsCustomchannelsGet'
62 { _acgQuotaUser :: !(Maybe Text)
69 { _acgQuotaUser :: !(Maybe Text)
63 , _acgPrettyPrint :: !Bool
70 , _acgPrettyPrint :: !Bool
64 , _acgCustomChannelId :: !Text
71 , _acgCustomChannelId :: !Text
@@ -68,7 +75,7 @@ data AccountsCustomchannelsGet = AccountsCustomchannelsGet
68 , _acgKey :: !(Maybe Text)
75 , _acgKey :: !(Maybe Text)
69 , _acgOauthToken :: !(Maybe Text)
76 , _acgOauthToken :: !(Maybe Text)
70 , _acgFields :: !(Maybe Text)
77 , _acgFields :: !(Maybe Text)
71− , _acgAlt :: !Text
78+ , _acgAlt :: !Alt
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
79 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74-- | Creates a value of 'AccountsCustomchannelsGet'' with the minimum fields required to make a request.
81-- | Creates a value of 'AccountsCustomchannelsGet'' with the minimum fields required to make a request.
@@ -94,13 +101,13 @@ data AccountsCustomchannelsGet = AccountsCustomchannelsGet
94-- * 'acgFields'
101-- * 'acgFields'
96-- * 'acgAlt'
103-- * 'acgAlt'
97−accountsCustomchannelsGet
104+accountsCustomchannelsGet'
98 :: Text -- ^ 'customChannelId'
105 :: Text -- ^ 'customChannelId'
99 -> Text -- ^ 'adClientId'
106 -> Text -- ^ 'adClientId'
100 -> Text -- ^ 'accountId'
107 -> Text -- ^ 'accountId'
101− -> AccountsCustomchannelsGet
108+ -> AccountsCustomchannelsGet'
102−accountsCustomchannelsGet pAcgCustomChannelId_ pAcgAdClientId_ pAcgAccountId_ =
109+accountsCustomchannelsGet' pAcgCustomChannelId_ pAcgAdClientId_ pAcgAccountId_ =
103− AccountsCustomchannelsGet
110+ AccountsCustomchannelsGet'
104 { _acgQuotaUser = Nothing
111 { _acgQuotaUser = Nothing
105 , _acgPrettyPrint = True
112 , _acgPrettyPrint = True
106 , _acgCustomChannelId = pAcgCustomChannelId_
113 , _acgCustomChannelId = pAcgCustomChannelId_
@@ -110,7 +117,7 @@ accountsCustomchannelsGet pAcgCustomChannelId_ pAcgAdClientId_ pAcgAccountId_ =
110 , _acgKey = Nothing
117 , _acgKey = Nothing
111 , _acgOauthToken = Nothing
118 , _acgOauthToken = Nothing
112 , _acgFields = Nothing
119 , _acgFields = Nothing
113− , _acgAlt = "json"
120+ , _acgAlt = JSON
116-- | Available to use for quota purposes for server-side applications. Can be
123-- | Available to use for quota purposes for server-side applications. Can be
@@ -167,15 +174,15 @@ acgFields
167 = lens _acgFields (\ s a -> s{_acgFields = a})
174 = lens _acgFields (\ s a -> s{_acgFields = a})
169-- | Data format for the response.
176-- | Data format for the response.
170−acgAlt :: Lens' AccountsCustomchannelsGet' Text
177+acgAlt :: Lens' AccountsCustomchannelsGet' Alt
171acgAlt = lens _acgAlt (\ s a -> s{_acgAlt = a})
178acgAlt = lens _acgAlt (\ s a -> s{_acgAlt = a})
173instance GoogleRequest AccountsCustomchannelsGet'
180instance GoogleRequest AccountsCustomchannelsGet'
175 type Rs AccountsCustomchannelsGet' = CustomChannel
182 type Rs AccountsCustomchannelsGet' = CustomChannel
176 request = requestWithRoute defReq adExchangeSellerURL
183 request = requestWithRoute defReq adExchangeSellerURL
177− requestWithRoute r u AccountsCustomchannelsGet{..}
184+ requestWithRoute r u AccountsCustomchannelsGet'{..}
178− = go _acgQuotaUser _acgPrettyPrint
185+ = go _acgQuotaUser (Just _acgPrettyPrint)
179 _acgCustomChannelId
186 _acgCustomChannelId
180 _acgUserIp
187 _acgUserIp
181 _acgAdClientId
188 _acgAdClientId
@@ -183,9 +190,9 @@ instance GoogleRequest AccountsCustomchannelsGet'
184 _acgOauthToken
191 _acgOauthToken
185 _acgFields
192 _acgFields
186− _acgAlt
193+ (Just _acgAlt)
188 = clientWithRoute
195 = clientWithRoute
189− (Proxy :: Proxy AccountsCustomchannelsGetAPI)
196+ (Proxy :: Proxy AccountsCustomchannelsGetResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Customchannels/List.hs+30−22
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- account.
21-- account.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomchannelsList@.
23-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsCustomchannelsList@.
23−module AdExchangeSeller.Accounts.Customchannels.List
24+module Network.Google.Resource.AdExchangeSeller.Accounts.Customchannels.List
25 -- * REST Resource
26 -- * REST Resource
26− AccountsCustomchannelsListAPI
27+ AccountsCustomchannelsListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , accountsCustomchannelsList
30+ , accountsCustomchannelsList'
30− , AccountsCustomchannelsList
31+ , AccountsCustomchannelsList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , aclQuotaUser
34 , aclQuotaUser
@@ -47,22 +48,29 @@ import Network.Google.AdExchangeSeller.Types
47import Network.Google.Prelude
48import Network.Google.Prelude
49-- | A resource alias for @AdexchangesellerAccountsCustomchannelsList@ which the
50-- | A resource alias for @AdexchangesellerAccountsCustomchannelsList@ which the
50−-- 'AccountsCustomchannelsList' request conforms to.
51+-- 'AccountsCustomchannelsList'' request conforms to.
51−type AccountsCustomchannelsListAPI =
52+type AccountsCustomchannelsListResource =
52 "accounts" :>
53 "accounts" :>
53 Capture "accountId" Text :>
54 Capture "accountId" Text :>
54 "adclients" :>
55 "adclients" :>
55 Capture "adClientId" Text :>
56 Capture "adClientId" Text :>
56 "customchannels" :>
57 "customchannels" :>
57− QueryParam "pageToken" Text :>
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 :>
58− QueryParam "maxResults" Word32 :>
64+ QueryParam "maxResults" Word32 :>
65+ QueryParam "fields" Text :>
66+ QueryParam "alt" Alt :>
59− Get '[JSON] CustomChannels
67+ Get '[JSON] CustomChannels
61-- | List all custom channels in the specified ad client for this Ad Exchange
69-- | List all custom channels in the specified ad client for this Ad Exchange
62-- account.
70-- account.
64−-- /See:/ 'accountsCustomchannelsList' smart constructor.
72+-- /See:/ 'accountsCustomchannelsList'' smart constructor.
65−data AccountsCustomchannelsList = AccountsCustomchannelsList
73+data AccountsCustomchannelsList' = AccountsCustomchannelsList'
66 { _aclQuotaUser :: !(Maybe Text)
74 { _aclQuotaUser :: !(Maybe Text)
67 , _aclPrettyPrint :: !Bool
75 , _aclPrettyPrint :: !Bool
68 , _aclUserIp :: !(Maybe Text)
76 , _aclUserIp :: !(Maybe Text)
@@ -73,7 +81,7 @@ data AccountsCustomchannelsList = AccountsCustomchannelsList
73 , _aclOauthToken :: !(Maybe Text)
81 , _aclOauthToken :: !(Maybe Text)
74 , _aclMaxResults :: !(Maybe Word32)
82 , _aclMaxResults :: !(Maybe Word32)
75 , _aclFields :: !(Maybe Text)
83 , _aclFields :: !(Maybe Text)
76− , _aclAlt :: !Text
84+ , _aclAlt :: !Alt
77 } deriving (Eq,Read,Show,Data,Typeable,Generic)
85 } deriving (Eq,Read,Show,Data,Typeable,Generic)
79-- | Creates a value of 'AccountsCustomchannelsList'' with the minimum fields required to make a request.
87-- | Creates a value of 'AccountsCustomchannelsList'' with the minimum fields required to make a request.
@@ -101,12 +109,12 @@ data AccountsCustomchannelsList = AccountsCustomchannelsList
101-- * 'aclFields'
109-- * 'aclFields'
103-- * 'aclAlt'
111-- * 'aclAlt'
104−accountsCustomchannelsList
112+accountsCustomchannelsList'
105 :: Text -- ^ 'adClientId'
113 :: Text -- ^ 'adClientId'
106 -> Text -- ^ 'accountId'
114 -> Text -- ^ 'accountId'
107− -> AccountsCustomchannelsList
115+ -> AccountsCustomchannelsList'
108−accountsCustomchannelsList pAclAdClientId_ pAclAccountId_ =
116+accountsCustomchannelsList' pAclAdClientId_ pAclAccountId_ =
109− AccountsCustomchannelsList
117+ AccountsCustomchannelsList'
110 { _aclQuotaUser = Nothing
118 { _aclQuotaUser = Nothing
111 , _aclPrettyPrint = True
119 , _aclPrettyPrint = True
112 , _aclUserIp = Nothing
120 , _aclUserIp = Nothing
@@ -117,7 +125,7 @@ accountsCustomchannelsList pAclAdClientId_ pAclAccountId_ =
117 , _aclOauthToken = Nothing
125 , _aclOauthToken = Nothing
118 , _aclMaxResults = Nothing
126 , _aclMaxResults = Nothing
119 , _aclFields = Nothing
127 , _aclFields = Nothing
120− , _aclAlt = "json"
128+ , _aclAlt = JSON
123-- | Available to use for quota purposes for server-side applications. Can be
131-- | Available to use for quota purposes for server-side applications. Can be
@@ -182,15 +190,15 @@ aclFields
182 = lens _aclFields (\ s a -> s{_aclFields = a})
190 = lens _aclFields (\ s a -> s{_aclFields = a})
184-- | Data format for the response.
192-- | Data format for the response.
185−aclAlt :: Lens' AccountsCustomchannelsList' Text
193+aclAlt :: Lens' AccountsCustomchannelsList' Alt
186aclAlt = lens _aclAlt (\ s a -> s{_aclAlt = a})
194aclAlt = lens _aclAlt (\ s a -> s{_aclAlt = a})
188instance GoogleRequest AccountsCustomchannelsList'
196instance GoogleRequest AccountsCustomchannelsList'
190 type Rs AccountsCustomchannelsList' = CustomChannels
198 type Rs AccountsCustomchannelsList' = CustomChannels
191 request = requestWithRoute defReq adExchangeSellerURL
199 request = requestWithRoute defReq adExchangeSellerURL
192− requestWithRoute r u AccountsCustomchannelsList{..}
200+ requestWithRoute r u AccountsCustomchannelsList'{..}
193− = go _aclQuotaUser _aclPrettyPrint _aclUserIp
201+ = go _aclQuotaUser (Just _aclPrettyPrint) _aclUserIp
194 _aclAdClientId
202 _aclAdClientId
195 _aclAccountId
203 _aclAccountId
@@ -198,9 +206,9 @@ instance GoogleRequest AccountsCustomchannelsList'
198 _aclOauthToken
206 _aclOauthToken
199 _aclMaxResults
207 _aclMaxResults
200 _aclFields
208 _aclFields
201− _aclAlt
209+ (Just _aclAlt)
203 = clientWithRoute
211 = clientWithRoute
204− (Proxy :: Proxy AccountsCustomchannelsListAPI)
212+ (Proxy :: Proxy AccountsCustomchannelsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Get information about the selected Ad Exchange account.
20-- | Get information about the selected Ad Exchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsGet@.
22−module AdExchangeSeller.Accounts.Get
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Get
24 -- * REST Resource
25 -- * REST Resource
25− AccountsGetAPI
26+ AccountsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsGet
29+ , accountsGet'
29− , AccountsGet
30+ , AccountsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , agQuotaUser
33 , agQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdExchangeSeller.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangesellerAccountsGet@ which the
46-- | A resource alias for @AdexchangesellerAccountsGet@ which the
46−-- 'AccountsGet' request conforms to.
47+-- 'AccountsGet'' request conforms to.
47−type AccountsGetAPI =
48+type AccountsGetResource =
48 "accounts" :>
49 "accounts" :>
49− Capture "accountId" Text :> Get '[JSON] Account
50+ Capture "accountId" 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] Account
51-- | Get information about the selected Ad Exchange account.
59-- | Get information about the selected Ad Exchange account.
53−-- /See:/ 'accountsGet' smart constructor.
61+-- /See:/ 'accountsGet'' smart constructor.
54−data AccountsGet = AccountsGet
62+data AccountsGet' = AccountsGet'
55 { _agQuotaUser :: !(Maybe Text)
63 { _agQuotaUser :: !(Maybe Text)
56 , _agPrettyPrint :: !Bool
64 , _agPrettyPrint :: !Bool
57 , _agUserIp :: !(Maybe Text)
65 , _agUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data AccountsGet = AccountsGet
59 , _agKey :: !(Maybe Text)
67 , _agKey :: !(Maybe Text)
60 , _agOauthToken :: !(Maybe Text)
68 , _agOauthToken :: !(Maybe Text)
61 , _agFields :: !(Maybe Text)
69 , _agFields :: !(Maybe Text)
62− , _agAlt :: !Text
70+ , _agAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'AccountsGet'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data AccountsGet = AccountsGet
81-- * 'agFields'
89-- * 'agFields'
83-- * 'agAlt'
91-- * 'agAlt'
84−accountsGet
92+accountsGet'
85 :: Text -- ^ 'accountId'
93 :: Text -- ^ 'accountId'
86− -> AccountsGet
94+ -> AccountsGet'
87−accountsGet pAgAccountId_ =
95+accountsGet' pAgAccountId_ =
88− AccountsGet
96+ AccountsGet'
89 { _agQuotaUser = Nothing
97 { _agQuotaUser = Nothing
90 , _agPrettyPrint = True
98 , _agPrettyPrint = True
91 , _agUserIp = Nothing
99 , _agUserIp = Nothing
@@ -93,7 +101,7 @@ accountsGet pAgAccountId_ =
93 , _agKey = Nothing
101 , _agKey = Nothing
94 , _agOauthToken = Nothing
102 , _agOauthToken = Nothing
95 , _agFields = Nothing
103 , _agFields = Nothing
96− , _agAlt = "json"
104+ , _agAlt = JSON
99-- | 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
@@ -135,18 +143,21 @@ agFields :: Lens' AccountsGet' (Maybe Text)
135agFields = lens _agFields (\ s a -> s{_agFields = a})
143agFields = lens _agFields (\ s a -> s{_agFields = a})
137-- | Data format for the response.
145-- | Data format for the response.
138−agAlt :: Lens' AccountsGet' Text
146+agAlt :: Lens' AccountsGet' Alt
139agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
147agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
141instance GoogleRequest AccountsGet' where
149instance GoogleRequest AccountsGet' where
142 type Rs AccountsGet' = Account
150 type Rs AccountsGet' = Account
143 request = requestWithRoute defReq adExchangeSellerURL
151 request = requestWithRoute defReq adExchangeSellerURL
144− requestWithRoute r u AccountsGet{..}
152+ requestWithRoute r u AccountsGet'{..}
145− = go _agQuotaUser _agPrettyPrint _agUserIp
153+ = go _agQuotaUser (Just _agPrettyPrint) _agUserIp
146 _agAccountId
154 _agAccountId
148 _agOauthToken
156 _agOauthToken
149 _agFields
157 _agFields
150− _agAlt
158+ (Just _agAlt)
152− = clientWithRoute (Proxy :: Proxy AccountsGetAPI) r u
160+ = clientWithRoute
161+ (Proxy :: Proxy AccountsGetResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs+32−21
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List all accounts available to this Ad Exchange account.
20-- | List all accounts available to this Ad Exchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsList@.
22−module AdExchangeSeller.Accounts.List
23+module Network.Google.Resource.AdExchangeSeller.Accounts.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsListAPI
26+ AccountsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsList
29+ , accountsList'
29− , AccountsList
30+ , AccountsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , alQuotaUser
33 , alQuotaUser
@@ -44,16 +45,23 @@ import Network.Google.AdExchangeSeller.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangesellerAccountsList@ which the
47-- | A resource alias for @AdexchangesellerAccountsList@ which the
47−-- 'AccountsList' request conforms to.
48+-- 'AccountsList'' request conforms to.
48−type AccountsListAPI =
49+type AccountsListResource =
49 "accounts" :>
50 "accounts" :>
51+ QueryParam "quotaUser" Text :>
52+ QueryParam "prettyPrint" Bool :>
53+ QueryParam "userIp" Text :>
54+ QueryParam "key" Text :>
50− QueryParam "pageToken" Text :>
55+ QueryParam "pageToken" Text :>
56+ QueryParam "oauth_token" Text :>
51− QueryParam "maxResults" Int32 :> Get '[JSON] Accounts
57+ QueryParam "maxResults" Int32 :>
58+ QueryParam "fields" Text :>
59+ QueryParam "alt" Alt :> Get '[JSON] Accounts
53-- | List all accounts available to this Ad Exchange account.
61-- | List all accounts available to this Ad Exchange account.
55−-- /See:/ 'accountsList' smart constructor.
63+-- /See:/ 'accountsList'' smart constructor.
56−data AccountsList = AccountsList
64+data AccountsList' = AccountsList'
57 { _alQuotaUser :: !(Maybe Text)
65 { _alQuotaUser :: !(Maybe Text)
58 , _alPrettyPrint :: !Bool
66 , _alPrettyPrint :: !Bool
59 , _alUserIp :: !(Maybe Text)
67 , _alUserIp :: !(Maybe Text)
@@ -62,7 +70,7 @@ data AccountsList = AccountsList
62 , _alOauthToken :: !(Maybe Text)
70 , _alOauthToken :: !(Maybe Text)
63 , _alMaxResults :: !(Maybe Int32)
71 , _alMaxResults :: !(Maybe Int32)
64 , _alFields :: !(Maybe Text)
72 , _alFields :: !(Maybe Text)
65− , _alAlt :: !Text
73+ , _alAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
76-- | Creates a value of 'AccountsList'' with the minimum fields required to make a request.
@@ -86,10 +94,10 @@ data AccountsList = AccountsList
86-- * 'alFields'
94-- * 'alFields'
88-- * 'alAlt'
96-- * 'alAlt'
89−accountsList
97+accountsList'
90− :: AccountsList
98+ :: AccountsList'
91−accountsList =
99+accountsList' =
92− AccountsList
100+ AccountsList'
93 { _alQuotaUser = Nothing
101 { _alQuotaUser = Nothing
94 , _alPrettyPrint = True
102 , _alPrettyPrint = True
95 , _alUserIp = Nothing
103 , _alUserIp = Nothing
@@ -98,7 +106,7 @@ accountsList =
98 , _alOauthToken = Nothing
106 , _alOauthToken = Nothing
99 , _alMaxResults = Nothing
107 , _alMaxResults = Nothing
100 , _alFields = Nothing
108 , _alFields = Nothing
101− , _alAlt = "json"
109+ , _alAlt = JSON
104-- | Available to use for quota purposes for server-side applications. Can be
112-- | Available to use for quota purposes for server-side applications. Can be
@@ -148,19 +156,22 @@ alFields :: Lens' AccountsList' (Maybe Text)
148alFields = lens _alFields (\ s a -> s{_alFields = a})
156alFields = lens _alFields (\ s a -> s{_alFields = a})
150-- | Data format for the response.
158-- | Data format for the response.
151−alAlt :: Lens' AccountsList' Text
159+alAlt :: Lens' AccountsList' Alt
152alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
160alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
154instance GoogleRequest AccountsList' where
162instance GoogleRequest AccountsList' where
155 type Rs AccountsList' = Accounts
163 type Rs AccountsList' = Accounts
156 request = requestWithRoute defReq adExchangeSellerURL
164 request = requestWithRoute defReq adExchangeSellerURL
157− requestWithRoute r u AccountsList{..}
165+ requestWithRoute r u AccountsList'{..}
158− = go _alQuotaUser _alPrettyPrint _alUserIp _alKey
166+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIp
159 _alPageToken
168 _alPageToken
160 _alOauthToken
169 _alOauthToken
161 _alMaxResults
170 _alMaxResults
162 _alFields
171 _alFields
163− _alAlt
172+ (Just _alAlt)
165− = clientWithRoute (Proxy :: Proxy AccountsListAPI) r
174+ = clientWithRoute
175+ (Proxy :: Proxy AccountsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- account.
21-- account.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsMetadataDimensionsList@.
23-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsMetadataDimensionsList@.
23−module AdExchangeSeller.Accounts.Metadata.Dimensions.List
24+module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Dimensions.List
25 -- * REST Resource
26 -- * REST Resource
26− AccountsMetadataDimensionsListAPI
27+ AccountsMetadataDimensionsListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , accountsMetadataDimensionsList
30+ , accountsMetadataDimensionsList'
30− , AccountsMetadataDimensionsList
31+ , AccountsMetadataDimensionsList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , amdlQuotaUser
34 , amdlQuotaUser
@@ -44,17 +45,25 @@ import Network.Google.AdExchangeSeller.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangesellerAccountsMetadataDimensionsList@ which the
47-- | A resource alias for @AdexchangesellerAccountsMetadataDimensionsList@ which the
47−-- 'AccountsMetadataDimensionsList' request conforms to.
48+-- 'AccountsMetadataDimensionsList'' request conforms to.
48−type AccountsMetadataDimensionsListAPI =
49+type AccountsMetadataDimensionsListResource =
49 "accounts" :>
50 "accounts" :>
50 Capture "accountId" Text :>
51 Capture "accountId" Text :>
51− "metadata" :> "dimensions" :> Get '[JSON] Metadata
53+ "dimensions" :>
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] Metadata
53-- | List the metadata for the dimensions available to this AdExchange
62-- | List the metadata for the dimensions available to this AdExchange
54-- account.
63-- account.
56−-- /See:/ 'accountsMetadataDimensionsList' smart constructor.
65+-- /See:/ 'accountsMetadataDimensionsList'' smart constructor.
57−data AccountsMetadataDimensionsList = AccountsMetadataDimensionsList
66+data AccountsMetadataDimensionsList' = AccountsMetadataDimensionsList'
58 { _amdlQuotaUser :: !(Maybe Text)
67 { _amdlQuotaUser :: !(Maybe Text)
59 , _amdlPrettyPrint :: !Bool
68 , _amdlPrettyPrint :: !Bool
60 , _amdlUserIp :: !(Maybe Text)
69 , _amdlUserIp :: !(Maybe Text)
@@ -62,7 +71,7 @@ data AccountsMetadataDimensionsList = AccountsMetadataDimensionsList
62 , _amdlKey :: !(Maybe Text)
71 , _amdlKey :: !(Maybe Text)
63 , _amdlOauthToken :: !(Maybe Text)
72 , _amdlOauthToken :: !(Maybe Text)
64 , _amdlFields :: !(Maybe Text)
73 , _amdlFields :: !(Maybe Text)
65− , _amdlAlt :: !Text
74+ , _amdlAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.
77-- | Creates a value of 'AccountsMetadataDimensionsList'' with the minimum fields required to make a request.
@@ -84,11 +93,11 @@ data AccountsMetadataDimensionsList = AccountsMetadataDimensionsList
84-- * 'amdlFields'
93-- * 'amdlFields'
86-- * 'amdlAlt'
95-- * 'amdlAlt'
87−accountsMetadataDimensionsList
96+accountsMetadataDimensionsList'
88 :: Text -- ^ 'accountId'
97 :: Text -- ^ 'accountId'
89− -> AccountsMetadataDimensionsList
98+ -> AccountsMetadataDimensionsList'
90−accountsMetadataDimensionsList pAmdlAccountId_ =
99+accountsMetadataDimensionsList' pAmdlAccountId_ =
91− AccountsMetadataDimensionsList
100+ AccountsMetadataDimensionsList'
92 { _amdlQuotaUser = Nothing
101 { _amdlQuotaUser = Nothing
93 , _amdlPrettyPrint = True
102 , _amdlPrettyPrint = True
94 , _amdlUserIp = Nothing
103 , _amdlUserIp = Nothing
@@ -96,7 +105,7 @@ accountsMetadataDimensionsList pAmdlAccountId_ =
96 , _amdlKey = Nothing
105 , _amdlKey = Nothing
97 , _amdlOauthToken = Nothing
106 , _amdlOauthToken = Nothing
98 , _amdlFields = Nothing
107 , _amdlFields = Nothing
99− , _amdlAlt = "json"
108+ , _amdlAlt = JSON
102-- | 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
@@ -143,7 +152,7 @@ amdlFields
143 = lens _amdlFields (\ s a -> s{_amdlFields = a})
152 = lens _amdlFields (\ s a -> s{_amdlFields = a})
145-- | Data format for the response.
154-- | Data format for the response.
146−amdlAlt :: Lens' AccountsMetadataDimensionsList' Text
155+amdlAlt :: Lens' AccountsMetadataDimensionsList' Alt
147amdlAlt = lens _amdlAlt (\ s a -> s{_amdlAlt = a})
156amdlAlt = lens _amdlAlt (\ s a -> s{_amdlAlt = a})
149instance GoogleRequest
158instance GoogleRequest
@@ -151,15 +160,17 @@ instance GoogleRequest
151 type Rs AccountsMetadataDimensionsList' = Metadata
160 type Rs AccountsMetadataDimensionsList' = Metadata
152 request = requestWithRoute defReq adExchangeSellerURL
161 request = requestWithRoute defReq adExchangeSellerURL
153 requestWithRoute r u
162 requestWithRoute r u
154− AccountsMetadataDimensionsList{..}
163+ AccountsMetadataDimensionsList'{..}
155− = go _amdlQuotaUser _amdlPrettyPrint _amdlUserIp
164+ = go _amdlQuotaUser (Just _amdlPrettyPrint)
156 _amdlAccountId
166 _amdlAccountId
158 _amdlOauthToken
168 _amdlOauthToken
159 _amdlFields
169 _amdlFields
160− _amdlAlt
170+ (Just _amdlAlt)
162 = clientWithRoute
172 = clientWithRoute
163− (Proxy :: Proxy AccountsMetadataDimensionsListAPI)
173+ (Proxy ::
174+ Proxy AccountsMetadataDimensionsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List the metadata for the metrics available to this AdExchange account.
20-- | List the metadata for the metrics available to this AdExchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsMetadataMetricsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsMetadataMetricsList@.
22−module AdExchangeSeller.Accounts.Metadata.Metrics.List
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Metadata.Metrics.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsMetadataMetricsListAPI
26+ AccountsMetadataMetricsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsMetadataMetricsList
29+ , accountsMetadataMetricsList'
29− , AccountsMetadataMetricsList
30+ , AccountsMetadataMetricsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ammlQuotaUser
33 , ammlQuotaUser
@@ -43,16 +44,24 @@ import Network.Google.AdExchangeSeller.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangesellerAccountsMetadataMetricsList@ which the
46-- | A resource alias for @AdexchangesellerAccountsMetadataMetricsList@ which the
46−-- 'AccountsMetadataMetricsList' request conforms to.
47+-- 'AccountsMetadataMetricsList'' request conforms to.
47−type AccountsMetadataMetricsListAPI =
48+type AccountsMetadataMetricsListResource =
48 "accounts" :>
49 "accounts" :>
49 Capture "accountId" Text :>
50 Capture "accountId" Text :>
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 :>
50− "metadata" :> "metrics" :> Get '[JSON] Metadata
59+ QueryParam "alt" Alt :> Get '[JSON] Metadata
52-- | List the metadata for the metrics available to this AdExchange account.
61-- | List the metadata for the metrics available to this AdExchange account.
54−-- /See:/ 'accountsMetadataMetricsList' smart constructor.
63+-- /See:/ 'accountsMetadataMetricsList'' smart constructor.
55−data AccountsMetadataMetricsList = AccountsMetadataMetricsList
64+data AccountsMetadataMetricsList' = AccountsMetadataMetricsList'
56 { _ammlQuotaUser :: !(Maybe Text)
65 { _ammlQuotaUser :: !(Maybe Text)
57 , _ammlPrettyPrint :: !Bool
66 , _ammlPrettyPrint :: !Bool
58 , _ammlUserIp :: !(Maybe Text)
67 , _ammlUserIp :: !(Maybe Text)
@@ -60,7 +69,7 @@ data AccountsMetadataMetricsList = AccountsMetadataMetricsList
60 , _ammlKey :: !(Maybe Text)
69 , _ammlKey :: !(Maybe Text)
61 , _ammlOauthToken :: !(Maybe Text)
70 , _ammlOauthToken :: !(Maybe Text)
62 , _ammlFields :: !(Maybe Text)
71 , _ammlFields :: !(Maybe Text)
63− , _ammlAlt :: !Text
72+ , _ammlAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
73 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.
75-- | Creates a value of 'AccountsMetadataMetricsList'' with the minimum fields required to make a request.
@@ -82,11 +91,11 @@ data AccountsMetadataMetricsList = AccountsMetadataMetricsList
82-- * 'ammlFields'
91-- * 'ammlFields'
84-- * 'ammlAlt'
93-- * 'ammlAlt'
85−accountsMetadataMetricsList
94+accountsMetadataMetricsList'
86 :: Text -- ^ 'accountId'
95 :: Text -- ^ 'accountId'
87− -> AccountsMetadataMetricsList
96+ -> AccountsMetadataMetricsList'
88−accountsMetadataMetricsList pAmmlAccountId_ =
97+accountsMetadataMetricsList' pAmmlAccountId_ =
89− AccountsMetadataMetricsList
98+ AccountsMetadataMetricsList'
90 { _ammlQuotaUser = Nothing
99 { _ammlQuotaUser = Nothing
91 , _ammlPrettyPrint = True
100 , _ammlPrettyPrint = True
92 , _ammlUserIp = Nothing
101 , _ammlUserIp = Nothing
@@ -94,7 +103,7 @@ accountsMetadataMetricsList pAmmlAccountId_ =
94 , _ammlKey = Nothing
103 , _ammlKey = Nothing
95 , _ammlOauthToken = Nothing
104 , _ammlOauthToken = Nothing
96 , _ammlFields = Nothing
105 , _ammlFields = Nothing
97− , _ammlAlt = "json"
106+ , _ammlAlt = JSON
100-- | 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
@@ -141,22 +150,23 @@ ammlFields
141 = lens _ammlFields (\ s a -> s{_ammlFields = a})
150 = lens _ammlFields (\ s a -> s{_ammlFields = a})
143-- | Data format for the response.
152-- | Data format for the response.
144−ammlAlt :: Lens' AccountsMetadataMetricsList' Text
153+ammlAlt :: Lens' AccountsMetadataMetricsList' Alt
145ammlAlt = lens _ammlAlt (\ s a -> s{_ammlAlt = a})
154ammlAlt = lens _ammlAlt (\ s a -> s{_ammlAlt = a})
147instance GoogleRequest AccountsMetadataMetricsList'
156instance GoogleRequest AccountsMetadataMetricsList'
149 type Rs AccountsMetadataMetricsList' = Metadata
158 type Rs AccountsMetadataMetricsList' = Metadata
150 request = requestWithRoute defReq adExchangeSellerURL
159 request = requestWithRoute defReq adExchangeSellerURL
151− requestWithRoute r u AccountsMetadataMetricsList{..}
160+ requestWithRoute r u AccountsMetadataMetricsList'{..}
152− = go _ammlQuotaUser _ammlPrettyPrint _ammlUserIp
161+ = go _ammlQuotaUser (Just _ammlPrettyPrint)
153 _ammlAccountId
163 _ammlAccountId
155 _ammlOauthToken
165 _ammlOauthToken
156 _ammlFields
166 _ammlFields
157− _ammlAlt
167+ (Just _ammlAlt)
159 = clientWithRoute
169 = clientWithRoute
160− (Proxy :: Proxy AccountsMetadataMetricsListAPI)
170+ (Proxy :: Proxy AccountsMetadataMetricsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Preferreddeals/Get.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Get information about the selected Ad Exchange Preferred Deal.
20-- | Get information about the selected Ad Exchange Preferred Deal.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferreddealsGet@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferreddealsGet@.
22−module AdExchangeSeller.Accounts.Preferreddeals.Get
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.Get
24 -- * REST Resource
25 -- * REST Resource
25− AccountsPreferreddealsGetAPI
26+ AccountsPreferreddealsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsPreferreddealsGet
29+ , accountsPreferreddealsGet'
29− , AccountsPreferreddealsGet
30+ , AccountsPreferreddealsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , apgQuotaUser
33 , apgQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdExchangeSeller.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @AdexchangesellerAccountsPreferreddealsGet@ which the
47-- | A resource alias for @AdexchangesellerAccountsPreferreddealsGet@ which the
47−-- 'AccountsPreferreddealsGet' request conforms to.
48+-- 'AccountsPreferreddealsGet'' request conforms to.
48−type AccountsPreferreddealsGetAPI =
49+type AccountsPreferreddealsGetResource =
49 "accounts" :>
50 "accounts" :>
50 Capture "accountId" Text :>
51 Capture "accountId" Text :>
51 "preferreddeals" :>
52 "preferreddeals" :>
52− Capture "dealId" Text :> Get '[JSON] PreferredDeal
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
54-- | Get information about the selected Ad Exchange Preferred Deal.
62-- | Get information about the selected Ad Exchange Preferred Deal.
56−-- /See:/ 'accountsPreferreddealsGet' smart constructor.
64+-- /See:/ 'accountsPreferreddealsGet'' smart constructor.
57−data AccountsPreferreddealsGet = AccountsPreferreddealsGet
65+data AccountsPreferreddealsGet' = AccountsPreferreddealsGet'
58 { _apgQuotaUser :: !(Maybe Text)
66 { _apgQuotaUser :: !(Maybe Text)
59 , _apgPrettyPrint :: !Bool
67 , _apgPrettyPrint :: !Bool
60 , _apgUserIp :: !(Maybe Text)
68 , _apgUserIp :: !(Maybe Text)
@@ -63,7 +71,7 @@ data AccountsPreferreddealsGet = AccountsPreferreddealsGet
63 , _apgKey :: !(Maybe Text)
71 , _apgKey :: !(Maybe Text)
64 , _apgOauthToken :: !(Maybe Text)
72 , _apgOauthToken :: !(Maybe Text)
65 , _apgFields :: !(Maybe Text)
73 , _apgFields :: !(Maybe Text)
66− , _apgAlt :: !Text
74+ , _apgAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'AccountsPreferreddealsGet'' with the minimum fields required to make a request.
77-- | Creates a value of 'AccountsPreferreddealsGet'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data AccountsPreferreddealsGet = AccountsPreferreddealsGet
87-- * 'apgFields'
95-- * 'apgFields'
89-- * 'apgAlt'
97-- * 'apgAlt'
90−accountsPreferreddealsGet
98+accountsPreferreddealsGet'
91 :: Text -- ^ 'dealId'
99 :: Text -- ^ 'dealId'
92 -> Text -- ^ 'accountId'
100 -> Text -- ^ 'accountId'
93− -> AccountsPreferreddealsGet
101+ -> AccountsPreferreddealsGet'
94−accountsPreferreddealsGet pApgDealId_ pApgAccountId_ =
102+accountsPreferreddealsGet' pApgDealId_ pApgAccountId_ =
95− AccountsPreferreddealsGet
103+ AccountsPreferreddealsGet'
96 { _apgQuotaUser = Nothing
104 { _apgQuotaUser = Nothing
97 , _apgPrettyPrint = True
105 , _apgPrettyPrint = True
98 , _apgUserIp = Nothing
106 , _apgUserIp = Nothing
@@ -101,7 +109,7 @@ accountsPreferreddealsGet pApgDealId_ pApgAccountId_ =
101 , _apgKey = Nothing
109 , _apgKey = Nothing
102 , _apgOauthToken = Nothing
110 , _apgOauthToken = Nothing
103 , _apgFields = Nothing
111 , _apgFields = Nothing
104− , _apgAlt = "json"
112+ , _apgAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -151,23 +159,23 @@ apgFields
151 = lens _apgFields (\ s a -> s{_apgFields = a})
159 = lens _apgFields (\ s a -> s{_apgFields = a})
153-- | Data format for the response.
161-- | Data format for the response.
154−apgAlt :: Lens' AccountsPreferreddealsGet' Text
162+apgAlt :: Lens' AccountsPreferreddealsGet' Alt
155apgAlt = lens _apgAlt (\ s a -> s{_apgAlt = a})
163apgAlt = lens _apgAlt (\ s a -> s{_apgAlt = a})
157instance GoogleRequest AccountsPreferreddealsGet'
165instance GoogleRequest AccountsPreferreddealsGet'
159 type Rs AccountsPreferreddealsGet' = PreferredDeal
167 type Rs AccountsPreferreddealsGet' = PreferredDeal
160 request = requestWithRoute defReq adExchangeSellerURL
168 request = requestWithRoute defReq adExchangeSellerURL
161− requestWithRoute r u AccountsPreferreddealsGet{..}
169+ requestWithRoute r u AccountsPreferreddealsGet'{..}
162− = go _apgQuotaUser _apgPrettyPrint _apgUserIp
170+ = go _apgQuotaUser (Just _apgPrettyPrint) _apgUserIp
163 _apgDealId
171 _apgDealId
164 _apgAccountId
172 _apgAccountId
166 _apgOauthToken
174 _apgOauthToken
167 _apgFields
175 _apgFields
168− _apgAlt
176+ (Just _apgAlt)
170 = clientWithRoute
178 = clientWithRoute
171− (Proxy :: Proxy AccountsPreferreddealsGetAPI)
179+ (Proxy :: Proxy AccountsPreferreddealsGetResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Preferreddeals/List.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List the preferred deals for this Ad Exchange account.
20-- | List the preferred deals for this Ad Exchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferreddealsList@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsPreferreddealsList@.
22−module AdExchangeSeller.Accounts.Preferreddeals.List
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Preferreddeals.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsPreferreddealsListAPI
26+ AccountsPreferreddealsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsPreferreddealsList
29+ , accountsPreferreddealsList'
29− , AccountsPreferreddealsList
30+ , AccountsPreferreddealsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , aplQuotaUser
33 , aplQuotaUser
@@ -43,16 +44,23 @@ import Network.Google.AdExchangeSeller.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @AdexchangesellerAccountsPreferreddealsList@ which the
46-- | A resource alias for @AdexchangesellerAccountsPreferreddealsList@ which the
46−-- 'AccountsPreferreddealsList' request conforms to.
47+-- 'AccountsPreferreddealsList'' request conforms to.
47−type AccountsPreferreddealsListAPI =
48+type AccountsPreferreddealsListResource =
48 "accounts" :>
49 "accounts" :>
49 Capture "accountId" Text :>
50 Capture "accountId" Text :>
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 :>
50− "preferreddeals" :> Get '[JSON] PreferredDeals
58+ QueryParam "alt" Alt :> Get '[JSON] PreferredDeals
52-- | List the preferred deals for this Ad Exchange account.
60-- | List the preferred deals for this Ad Exchange account.
54−-- /See:/ 'accountsPreferreddealsList' smart constructor.
62+-- /See:/ 'accountsPreferreddealsList'' smart constructor.
55−data AccountsPreferreddealsList = AccountsPreferreddealsList
63+data AccountsPreferreddealsList' = AccountsPreferreddealsList'
56 { _aplQuotaUser :: !(Maybe Text)
64 { _aplQuotaUser :: !(Maybe Text)
57 , _aplPrettyPrint :: !Bool
65 , _aplPrettyPrint :: !Bool
58 , _aplUserIp :: !(Maybe Text)
66 , _aplUserIp :: !(Maybe Text)
@@ -60,7 +68,7 @@ data AccountsPreferreddealsList = AccountsPreferreddealsList
60 , _aplKey :: !(Maybe Text)
68 , _aplKey :: !(Maybe Text)
61 , _aplOauthToken :: !(Maybe Text)
69 , _aplOauthToken :: !(Maybe Text)
62 , _aplFields :: !(Maybe Text)
70 , _aplFields :: !(Maybe Text)
63− , _aplAlt :: !Text
71+ , _aplAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'AccountsPreferreddealsList'' with the minimum fields required to make a request.
74-- | Creates a value of 'AccountsPreferreddealsList'' with the minimum fields required to make a request.
@@ -82,11 +90,11 @@ data AccountsPreferreddealsList = AccountsPreferreddealsList
82-- * 'aplFields'
90-- * 'aplFields'
84-- * 'aplAlt'
92-- * 'aplAlt'
85−accountsPreferreddealsList
93+accountsPreferreddealsList'
86 :: Text -- ^ 'accountId'
94 :: Text -- ^ 'accountId'
87− -> AccountsPreferreddealsList
95+ -> AccountsPreferreddealsList'
88−accountsPreferreddealsList pAplAccountId_ =
96+accountsPreferreddealsList' pAplAccountId_ =
89− AccountsPreferreddealsList
97+ AccountsPreferreddealsList'
90 { _aplQuotaUser = Nothing
98 { _aplQuotaUser = Nothing
91 , _aplPrettyPrint = True
99 , _aplPrettyPrint = True
92 , _aplUserIp = Nothing
100 , _aplUserIp = Nothing
@@ -94,7 +102,7 @@ accountsPreferreddealsList pAplAccountId_ =
94 , _aplKey = Nothing
102 , _aplKey = Nothing
95 , _aplOauthToken = Nothing
103 , _aplOauthToken = Nothing
96 , _aplFields = Nothing
104 , _aplFields = Nothing
97− , _aplAlt = "json"
105+ , _aplAlt = JSON
100-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -139,22 +147,22 @@ aplFields
139 = lens _aplFields (\ s a -> s{_aplFields = a})
147 = lens _aplFields (\ s a -> s{_aplFields = a})
141-- | Data format for the response.
149-- | Data format for the response.
142−aplAlt :: Lens' AccountsPreferreddealsList' Text
150+aplAlt :: Lens' AccountsPreferreddealsList' Alt
143aplAlt = lens _aplAlt (\ s a -> s{_aplAlt = a})
151aplAlt = lens _aplAlt (\ s a -> s{_aplAlt = a})
145instance GoogleRequest AccountsPreferreddealsList'
153instance GoogleRequest AccountsPreferreddealsList'
147 type Rs AccountsPreferreddealsList' = PreferredDeals
155 type Rs AccountsPreferreddealsList' = PreferredDeals
148 request = requestWithRoute defReq adExchangeSellerURL
156 request = requestWithRoute defReq adExchangeSellerURL
149− requestWithRoute r u AccountsPreferreddealsList{..}
157+ requestWithRoute r u AccountsPreferreddealsList'{..}
150− = go _aplQuotaUser _aplPrettyPrint _aplUserIp
158+ = go _aplQuotaUser (Just _aplPrettyPrint) _aplUserIp
151 _aplAccountId
159 _aplAccountId
153 _aplOauthToken
161 _aplOauthToken
154 _aplFields
162 _aplFields
155− _aplAlt
163+ (Just _aplAlt)
157 = clientWithRoute
165 = clientWithRoute
158− (Proxy :: Proxy AccountsPreferreddealsListAPI)
166+ (Proxy :: Proxy AccountsPreferreddealsListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs+37−28
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -21,14 +22,14 @@
21-- format specify \"alt=csv\" as a query parameter.
22-- format specify \"alt=csv\" as a query parameter.
23-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsReportsGenerate@.
24-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsReportsGenerate@.
24−module AdExchangeSeller.Accounts.Reports.Generate
25+module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Generate
26 -- * REST Resource
27 -- * REST Resource
27− AccountsReportsGenerateAPI
28+ AccountsReportsGenerateResource
29 -- * Creating a Request
30 -- * Creating a Request
30− , accountsReportsGenerate
31+ , accountsReportsGenerate'
31− , AccountsReportsGenerate
32+ , AccountsReportsGenerate'
33 -- * Request Lenses
34 -- * Request Lenses
34 , argQuotaUser
35 , argQuotaUser
@@ -54,27 +55,35 @@ import Network.Google.AdExchangeSeller.Types
54import Network.Google.Prelude
55import Network.Google.Prelude
56-- | A resource alias for @AdexchangesellerAccountsReportsGenerate@ which the
57-- | A resource alias for @AdexchangesellerAccountsReportsGenerate@ which the
57−-- 'AccountsReportsGenerate' request conforms to.
58+-- 'AccountsReportsGenerate'' request conforms to.
58−type AccountsReportsGenerateAPI =
59+type AccountsReportsGenerateResource =
59 "accounts" :>
60 "accounts" :>
60 Capture "accountId" Text :>
61 Capture "accountId" Text :>
61 "reports" :>
62 "reports" :>
62− QueryParams "dimension" Text :>
63+ QueryParam "quotaUser" Text :>
63− QueryParam "locale" Text :>
64+ QueryParam "prettyPrint" Bool :>
64− QueryParam "endDate" Text :>
65+ QueryParam "userIp" Text :>
65− QueryParam "startDate" Text :>
66+ QueryParams "dimension" Text :>
66− QueryParams "metric" Text :>
67+ QueryParam "locale" Text :>
67− QueryParams "sort" Text :>
68+ QueryParam "endDate" Text :>
68− QueryParams "filter" Text :>
69+ QueryParam "startDate" Text :>
69− QueryParam "startIndex" Word32 :>
70+ QueryParams "metric" Text :>
71+ QueryParam "key" Text :>
72+ QueryParams "sort" Text :>
73+ QueryParams "filter" Text :>
74+ QueryParam "oauth_token" Text :>
75+ QueryParam "startIndex" Word32 :>
76+ QueryParam "maxResults" Word32 :>
77+ QueryParam "fields" Text :>
78+ QueryParam "alt" Alt :>
70− QueryParam "maxResults" Word32 :> Get '[JSON] Report
79+ Get '[JSON] Report
72-- | Generate an Ad Exchange report based on the report request sent in the
81-- | Generate an Ad Exchange report based on the report request sent in the
73-- query parameters. Returns the result as JSON; to retrieve output in CSV
82-- query parameters. Returns the result as JSON; to retrieve output in CSV
74-- format specify \"alt=csv\" as a query parameter.
83-- format specify \"alt=csv\" as a query parameter.
76−-- /See:/ 'accountsReportsGenerate' smart constructor.
85+-- /See:/ 'accountsReportsGenerate'' smart constructor.
77−data AccountsReportsGenerate = AccountsReportsGenerate
86+data AccountsReportsGenerate' = AccountsReportsGenerate'
78 { _argQuotaUser :: !(Maybe Text)
87 { _argQuotaUser :: !(Maybe Text)
79 , _argPrettyPrint :: !Bool
88 , _argPrettyPrint :: !Bool
80 , _argUserIp :: !(Maybe Text)
89 , _argUserIp :: !(Maybe Text)
@@ -91,7 +100,7 @@ data AccountsReportsGenerate = AccountsReportsGenerate
91 , _argStartIndex :: !(Maybe Word32)
100 , _argStartIndex :: !(Maybe Word32)
92 , _argMaxResults :: !(Maybe Word32)
101 , _argMaxResults :: !(Maybe Word32)
93 , _argFields :: !(Maybe Text)
102 , _argFields :: !(Maybe Text)
94− , _argAlt :: !Text
103+ , _argAlt :: !Alt
95 } deriving (Eq,Read,Show,Data,Typeable,Generic)
104 } deriving (Eq,Read,Show,Data,Typeable,Generic)
97-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.
106-- | Creates a value of 'AccountsReportsGenerate'' with the minimum fields required to make a request.
@@ -131,13 +140,13 @@ data AccountsReportsGenerate = AccountsReportsGenerate
131-- * 'argFields'
140-- * 'argFields'
133-- * 'argAlt'
142-- * 'argAlt'
134−accountsReportsGenerate
143+accountsReportsGenerate'
135 :: Text -- ^ 'endDate'
144 :: Text -- ^ 'endDate'
136 -> Text -- ^ 'startDate'
145 -> Text -- ^ 'startDate'
137 -> Text -- ^ 'accountId'
146 -> Text -- ^ 'accountId'
138− -> AccountsReportsGenerate
147+ -> AccountsReportsGenerate'
139−accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ =
148+accountsReportsGenerate' pArgEndDate_ pArgStartDate_ pArgAccountId_ =
140− AccountsReportsGenerate
149+ AccountsReportsGenerate'
141 { _argQuotaUser = Nothing
150 { _argQuotaUser = Nothing
142 , _argPrettyPrint = True
151 , _argPrettyPrint = True
143 , _argUserIp = Nothing
152 , _argUserIp = Nothing
@@ -154,7 +163,7 @@ accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ =
154 , _argStartIndex = Nothing
163 , _argStartIndex = Nothing
155 , _argMaxResults = Nothing
164 , _argMaxResults = Nothing
156 , _argFields = Nothing
165 , _argFields = Nothing
157− , _argAlt = "json"
166+ , _argAlt = JSON
160-- | Available to use for quota purposes for server-side applications. Can be
169-- | Available to use for quota purposes for server-side applications. Can be
@@ -249,14 +258,14 @@ argFields
249 = lens _argFields (\ s a -> s{_argFields = a})
258 = lens _argFields (\ s a -> s{_argFields = a})
251-- | Data format for the response.
260-- | Data format for the response.
252−argAlt :: Lens' AccountsReportsGenerate' Text
261+argAlt :: Lens' AccountsReportsGenerate' Alt
253argAlt = lens _argAlt (\ s a -> s{_argAlt = a})
262argAlt = lens _argAlt (\ s a -> s{_argAlt = a})
255instance GoogleRequest AccountsReportsGenerate' where
264instance GoogleRequest AccountsReportsGenerate' where
256 type Rs AccountsReportsGenerate' = Report
265 type Rs AccountsReportsGenerate' = Report
257 request = requestWithRoute defReq adExchangeSellerURL
266 request = requestWithRoute defReq adExchangeSellerURL
258− requestWithRoute r u AccountsReportsGenerate{..}
267+ requestWithRoute r u AccountsReportsGenerate'{..}
259− = go _argQuotaUser _argPrettyPrint _argUserIp
268+ = go _argQuotaUser (Just _argPrettyPrint) _argUserIp
260 _argDimension
269 _argDimension
261 _argLocale
270 _argLocale
262 (Just _argEndDate)
271 (Just _argEndDate)
@@ -270,9 +279,9 @@ instance GoogleRequest AccountsReportsGenerate' where
270 _argStartIndex
279 _argStartIndex
271 _argMaxResults
280 _argMaxResults
272 _argFields
281 _argFields
273− _argAlt
282+ (Just _argAlt)
275 = clientWithRoute
284 = clientWithRoute
276− (Proxy :: Proxy AccountsReportsGenerateAPI)
285+ (Proxy :: Proxy AccountsReportsGenerateResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs+32−22
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- query parameters.
21-- query parameters.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsReportsSavedGenerate@.
23-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsReportsSavedGenerate@.
23−module AdExchangeSeller.Accounts.Reports.Saved.Generate
24+module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.Generate
25 -- * REST Resource
26 -- * REST Resource
26− AccountsReportsSavedGenerateAPI
27+ AccountsReportsSavedGenerateResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , accountsReportsSavedGenerate
30+ , accountsReportsSavedGenerate'
30− , AccountsReportsSavedGenerate
31+ , AccountsReportsSavedGenerate'
32 -- * Request Lenses
33 -- * Request Lenses
33 , arsgQuotaUser
34 , arsgQuotaUser
@@ -48,21 +49,28 @@ import Network.Google.AdExchangeSeller.Types
48import Network.Google.Prelude
49import Network.Google.Prelude
50-- | A resource alias for @AdexchangesellerAccountsReportsSavedGenerate@ which the
51-- | A resource alias for @AdexchangesellerAccountsReportsSavedGenerate@ which the
51−-- 'AccountsReportsSavedGenerate' request conforms to.
52+-- 'AccountsReportsSavedGenerate'' request conforms to.
52−type AccountsReportsSavedGenerateAPI =
53+type AccountsReportsSavedGenerateResource =
53 "accounts" :>
54 "accounts" :>
54 Capture "accountId" Text :>
55 Capture "accountId" Text :>
55 "reports" :>
56 "reports" :>
56 Capture "savedReportId" Text :>
57 Capture "savedReportId" Text :>
57− QueryParam "locale" Text :>
58+ QueryParam "quotaUser" Text :>
58− QueryParam "startIndex" Int32 :>
59+ QueryParam "prettyPrint" Bool :>
60+ QueryParam "userIp" Text :>
61+ QueryParam "locale" Text :>
62+ QueryParam "key" Text :>
63+ QueryParam "oauth_token" Text :>
64+ QueryParam "startIndex" Int32 :>
59− QueryParam "maxResults" Int32 :> Get '[JSON] Report
65+ QueryParam "maxResults" Int32 :>
66+ QueryParam "fields" Text :>
67+ QueryParam "alt" Alt :> Get '[JSON] Report
61-- | Generate an Ad Exchange report based on the saved report ID sent in the
69-- | Generate an Ad Exchange report based on the saved report ID sent in the
62-- query parameters.
70-- query parameters.
64−-- /See:/ 'accountsReportsSavedGenerate' smart constructor.
72+-- /See:/ 'accountsReportsSavedGenerate'' smart constructor.
65−data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate
73+data AccountsReportsSavedGenerate' = AccountsReportsSavedGenerate'
66 { _arsgQuotaUser :: !(Maybe Text)
74 { _arsgQuotaUser :: !(Maybe Text)
67 , _arsgPrettyPrint :: !Bool
75 , _arsgPrettyPrint :: !Bool
68 , _arsgUserIp :: !(Maybe Text)
76 , _arsgUserIp :: !(Maybe Text)
@@ -74,7 +82,7 @@ data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate
74 , _arsgStartIndex :: !(Maybe Int32)
82 , _arsgStartIndex :: !(Maybe Int32)
75 , _arsgMaxResults :: !(Maybe Int32)
83 , _arsgMaxResults :: !(Maybe Int32)
76 , _arsgFields :: !(Maybe Text)
84 , _arsgFields :: !(Maybe Text)
77− , _arsgAlt :: !Text
85+ , _arsgAlt :: !Alt
78 } deriving (Eq,Read,Show,Data,Typeable,Generic)
86 } deriving (Eq,Read,Show,Data,Typeable,Generic)
80-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.
88-- | Creates a value of 'AccountsReportsSavedGenerate'' with the minimum fields required to make a request.
@@ -104,12 +112,12 @@ data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate
104-- * 'arsgFields'
112-- * 'arsgFields'
106-- * 'arsgAlt'
114-- * 'arsgAlt'
107−accountsReportsSavedGenerate
115+accountsReportsSavedGenerate'
108 :: Text -- ^ 'savedReportId'
116 :: Text -- ^ 'savedReportId'
109 -> Text -- ^ 'accountId'
117 -> Text -- ^ 'accountId'
110− -> AccountsReportsSavedGenerate
118+ -> AccountsReportsSavedGenerate'
111−accountsReportsSavedGenerate pArsgSavedReportId_ pArsgAccountId_ =
119+accountsReportsSavedGenerate' pArsgSavedReportId_ pArsgAccountId_ =
112− AccountsReportsSavedGenerate
120+ AccountsReportsSavedGenerate'
113 { _arsgQuotaUser = Nothing
121 { _arsgQuotaUser = Nothing
114 , _arsgPrettyPrint = True
122 , _arsgPrettyPrint = True
115 , _arsgUserIp = Nothing
123 , _arsgUserIp = Nothing
@@ -121,7 +129,7 @@ accountsReportsSavedGenerate pArsgSavedReportId_ pArsgAccountId_ =
121 , _arsgStartIndex = Nothing
129 , _arsgStartIndex = Nothing
122 , _arsgMaxResults = Nothing
130 , _arsgMaxResults = Nothing
123 , _arsgFields = Nothing
131 , _arsgFields = Nothing
124− , _arsgAlt = "json"
132+ , _arsgAlt = JSON
127-- | Available to use for quota purposes for server-side applications. Can be
135-- | Available to use for quota purposes for server-side applications. Can be
@@ -192,15 +200,17 @@ arsgFields
192 = lens _arsgFields (\ s a -> s{_arsgFields = a})
200 = lens _arsgFields (\ s a -> s{_arsgFields = a})
194-- | Data format for the response.
202-- | Data format for the response.
195−arsgAlt :: Lens' AccountsReportsSavedGenerate' Text
203+arsgAlt :: Lens' AccountsReportsSavedGenerate' Alt
196arsgAlt = lens _arsgAlt (\ s a -> s{_arsgAlt = a})
204arsgAlt = lens _arsgAlt (\ s a -> s{_arsgAlt = a})
198instance GoogleRequest AccountsReportsSavedGenerate'
206instance GoogleRequest AccountsReportsSavedGenerate'
200 type Rs AccountsReportsSavedGenerate' = Report
208 type Rs AccountsReportsSavedGenerate' = Report
201 request = requestWithRoute defReq adExchangeSellerURL
209 request = requestWithRoute defReq adExchangeSellerURL
210+ requestWithRoute r u
202− requestWithRoute r u AccountsReportsSavedGenerate{..}
211+ AccountsReportsSavedGenerate'{..}
203− = go _arsgQuotaUser _arsgPrettyPrint _arsgUserIp
212+ = go _arsgQuotaUser (Just _arsgPrettyPrint)
204 _arsgLocale
214 _arsgLocale
205 _arsgSavedReportId
215 _arsgSavedReportId
206 _arsgAccountId
216 _arsgAccountId
@@ -209,9 +219,9 @@ instance GoogleRequest AccountsReportsSavedGenerate'
209 _arsgStartIndex
219 _arsgStartIndex
210 _arsgMaxResults
220 _arsgMaxResults
211 _arsgFields
221 _arsgFields
212− _arsgAlt
222+ (Just _arsgAlt)
214 = clientWithRoute
224 = clientWithRoute
215− (Proxy :: Proxy AccountsReportsSavedGenerateAPI)
225+ (Proxy :: Proxy AccountsReportsSavedGenerateResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs+30−22
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List all saved reports in this Ad Exchange account.
20-- | List all saved reports in this Ad Exchange account.
21-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsReportsSavedList@.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsReportsSavedList@.
22−module AdExchangeSeller.Accounts.Reports.Saved.List
23+module Network.Google.Resource.AdExchangeSeller.Accounts.Reports.Saved.List
24 -- * REST Resource
25 -- * REST Resource
25− AccountsReportsSavedListAPI
26+ AccountsReportsSavedListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , accountsReportsSavedList
29+ , accountsReportsSavedList'
29− , AccountsReportsSavedList
30+ , AccountsReportsSavedList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , arslQuotaUser
33 , arslQuotaUser
@@ -45,20 +46,26 @@ import Network.Google.AdExchangeSeller.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @AdexchangesellerAccountsReportsSavedList@ which the
48-- | A resource alias for @AdexchangesellerAccountsReportsSavedList@ which the
48−-- 'AccountsReportsSavedList' request conforms to.
49+-- 'AccountsReportsSavedList'' request conforms to.
49−type AccountsReportsSavedListAPI =
50+type AccountsReportsSavedListResource =
50 "accounts" :>
51 "accounts" :>
51 Capture "accountId" Text :>
52 Capture "accountId" Text :>
52 "reports" :>
53 "reports" :>
53 "saved" :>
54 "saved" :>
55+ QueryParam "quotaUser" Text :>
56+ QueryParam "prettyPrint" Bool :>
57+ QueryParam "userIp" Text :>
58+ QueryParam "key" Text :>
54− QueryParam "pageToken" Text :>
59+ QueryParam "pageToken" Text :>
60+ QueryParam "oauth_token" Text :>
55− QueryParam "maxResults" Int32 :>
61+ QueryParam "maxResults" Int32 :>
62+ QueryParam "fields" Text :>
56− Get '[JSON] SavedReports
63+ QueryParam "alt" Alt :> Get '[JSON] SavedReports
58-- | List all saved reports in this Ad Exchange account.
65-- | List all saved reports in this Ad Exchange account.
60−-- /See:/ 'accountsReportsSavedList' smart constructor.
67+-- /See:/ 'accountsReportsSavedList'' smart constructor.
61−data AccountsReportsSavedList = AccountsReportsSavedList
68+data AccountsReportsSavedList' = AccountsReportsSavedList'
62 { _arslQuotaUser :: !(Maybe Text)
69 { _arslQuotaUser :: !(Maybe Text)
63 , _arslPrettyPrint :: !Bool
70 , _arslPrettyPrint :: !Bool
64 , _arslUserIp :: !(Maybe Text)
71 , _arslUserIp :: !(Maybe Text)
@@ -68,7 +75,7 @@ data AccountsReportsSavedList = AccountsReportsSavedList
68 , _arslOauthToken :: !(Maybe Text)
75 , _arslOauthToken :: !(Maybe Text)
69 , _arslMaxResults :: !(Maybe Int32)
76 , _arslMaxResults :: !(Maybe Int32)
70 , _arslFields :: !(Maybe Text)
77 , _arslFields :: !(Maybe Text)
71− , _arslAlt :: !Text
78+ , _arslAlt :: !Alt
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
79 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.
81-- | Creates a value of 'AccountsReportsSavedList'' with the minimum fields required to make a request.
@@ -94,11 +101,11 @@ data AccountsReportsSavedList = AccountsReportsSavedList
94-- * 'arslFields'
101-- * 'arslFields'
96-- * 'arslAlt'
103-- * 'arslAlt'
97−accountsReportsSavedList
104+accountsReportsSavedList'
98 :: Text -- ^ 'accountId'
105 :: Text -- ^ 'accountId'
99− -> AccountsReportsSavedList
106+ -> AccountsReportsSavedList'
100−accountsReportsSavedList pArslAccountId_ =
107+accountsReportsSavedList' pArslAccountId_ =
101− AccountsReportsSavedList
108+ AccountsReportsSavedList'
102 { _arslQuotaUser = Nothing
109 { _arslQuotaUser = Nothing
103 , _arslPrettyPrint = True
110 , _arslPrettyPrint = True
104 , _arslUserIp = Nothing
111 , _arslUserIp = Nothing
@@ -108,7 +115,7 @@ accountsReportsSavedList pArslAccountId_ =
108 , _arslOauthToken = Nothing
115 , _arslOauthToken = Nothing
109 , _arslMaxResults = Nothing
116 , _arslMaxResults = Nothing
110 , _arslFields = Nothing
117 , _arslFields = Nothing
111− , _arslAlt = "json"
118+ , _arslAlt = JSON
114-- | Available to use for quota purposes for server-side applications. Can be
121-- | Available to use for quota purposes for server-side applications. Can be
@@ -170,24 +177,25 @@ arslFields
170 = lens _arslFields (\ s a -> s{_arslFields = a})
177 = lens _arslFields (\ s a -> s{_arslFields = a})
172-- | Data format for the response.
179-- | Data format for the response.
173−arslAlt :: Lens' AccountsReportsSavedList' Text
180+arslAlt :: Lens' AccountsReportsSavedList' Alt
174arslAlt = lens _arslAlt (\ s a -> s{_arslAlt = a})
181arslAlt = lens _arslAlt (\ s a -> s{_arslAlt = a})
176instance GoogleRequest AccountsReportsSavedList'
183instance GoogleRequest AccountsReportsSavedList'
178 type Rs AccountsReportsSavedList' = SavedReports
185 type Rs AccountsReportsSavedList' = SavedReports
179 request = requestWithRoute defReq adExchangeSellerURL
186 request = requestWithRoute defReq adExchangeSellerURL
180− requestWithRoute r u AccountsReportsSavedList{..}
187+ requestWithRoute r u AccountsReportsSavedList'{..}
181− = go _arslQuotaUser _arslPrettyPrint _arslUserIp
188+ = go _arslQuotaUser (Just _arslPrettyPrint)
182 _arslAccountId
190 _arslAccountId
184 _arslPageToken
192 _arslPageToken
185 _arslOauthToken
193 _arslOauthToken
186 _arslMaxResults
194 _arslMaxResults
187 _arslFields
195 _arslFields
188− _arslAlt
196+ (Just _arslAlt)
190 = clientWithRoute
198 = clientWithRoute
191− (Proxy :: Proxy AccountsReportsSavedListAPI)
199+ (Proxy :: Proxy AccountsReportsSavedListResource)
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLchannels/List.hs+29−22
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- account.
21-- account.
22-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsURLchannelsList@.
23-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference> for @AdexchangesellerAccountsURLchannelsList@.
23−module AdExchangeSeller.Accounts.URLchannels.List
24+module Network.Google.Resource.AdExchangeSeller.Accounts.URLchannels.List
25 -- * REST Resource
26 -- * REST Resource
26− AccountsUrlchannelsListAPI
27+ AccountsUrlchannelsListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , accountsURLchannelsList
30+ , accountsURLchannelsList'
30− , AccountsURLchannelsList
31+ , AccountsURLchannelsList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , aulQuotaUser
34 , aulQuotaUser
@@ -47,22 +48,28 @@ import Network.Google.AdExchangeSeller.Types
47import Network.Google.Prelude
48import Network.Google.Prelude
49-- | A resource alias for @AdexchangesellerAccountsURLchannelsList@ which the
50-- | A resource alias for @AdexchangesellerAccountsURLchannelsList@ which the
50−-- 'AccountsURLchannelsList' request conforms to.
51+-- 'AccountsURLchannelsList'' request conforms to.
51−type AccountsUrlchannelsListAPI =
52+type AccountsUrlchannelsListResource =
52 "accounts" :>
53 "accounts" :>
53 Capture "accountId" Text :>
54 Capture "accountId" Text :>
54 "adclients" :>
55 "adclients" :>
55 Capture "adClientId" Text :>
56 Capture "adClientId" Text :>
56 "urlchannels" :>
57 "urlchannels" :>
58+ QueryParam "quotaUser" Text :>
59+ QueryParam "prettyPrint" Bool :>
60+ QueryParam "userIp" Text :>
61+ QueryParam "key" Text :>
57− QueryParam "pageToken" Text :>
62+ QueryParam "pageToken" Text :>
63+ QueryParam "oauth_token" Text :>
58− QueryParam "maxResults" Word32 :>
64+ QueryParam "maxResults" Word32 :>
65+ QueryParam "fields" Text :>
59− Get '[JSON] URLChannels
66+ QueryParam "alt" Alt :> Get '[JSON] URLChannels
61-- | List all URL channels in the specified ad client for this Ad Exchange
68-- | List all URL channels in the specified ad client for this Ad Exchange
62-- account.
69-- account.
64−-- /See:/ 'accountsURLchannelsList' smart constructor.
71+-- /See:/ 'accountsURLchannelsList'' smart constructor.
65−data AccountsURLchannelsList = AccountsURLchannelsList
72+data AccountsURLchannelsList' = AccountsURLchannelsList'
66 { _aulQuotaUser :: !(Maybe Text)
73 { _aulQuotaUser :: !(Maybe Text)
67 , _aulPrettyPrint :: !Bool
74 , _aulPrettyPrint :: !Bool
68 , _aulUserIp :: !(Maybe Text)
75 , _aulUserIp :: !(Maybe Text)
@@ -73,7 +80,7 @@ data AccountsURLchannelsList = AccountsURLchannelsList
73 , _aulOauthToken :: !(Maybe Text)
80 , _aulOauthToken :: !(Maybe Text)
74 , _aulMaxResults :: !(Maybe Word32)
81 , _aulMaxResults :: !(Maybe Word32)
75 , _aulFields :: !(Maybe Text)
82 , _aulFields :: !(Maybe Text)
76− , _aulAlt :: !Text
83+ , _aulAlt :: !Alt
77 } deriving (Eq,Read,Show,Data,Typeable,Generic)
84 } deriving (Eq,Read,Show,Data,Typeable,Generic)
79-- | Creates a value of 'AccountsURLchannelsList'' with the minimum fields required to make a request.
86-- | Creates a value of 'AccountsURLchannelsList'' with the minimum fields required to make a request.
@@ -101,12 +108,12 @@ data AccountsURLchannelsList = AccountsURLchannelsList
101-- * 'aulFields'
108-- * 'aulFields'
103-- * 'aulAlt'
110-- * 'aulAlt'
104−accountsURLchannelsList
111+accountsURLchannelsList'
105 :: Text -- ^ 'adClientId'
112 :: Text -- ^ 'adClientId'
106 -> Text -- ^ 'accountId'
113 -> Text -- ^ 'accountId'
107− -> AccountsURLchannelsList
114+ -> AccountsURLchannelsList'
108−accountsURLchannelsList pAulAdClientId_ pAulAccountId_ =
115+accountsURLchannelsList' pAulAdClientId_ pAulAccountId_ =
109− AccountsURLchannelsList
116+ AccountsURLchannelsList'
110 { _aulQuotaUser = Nothing
117 { _aulQuotaUser = Nothing
111 , _aulPrettyPrint = True
118 , _aulPrettyPrint = True
112 , _aulUserIp = Nothing
119 , _aulUserIp = Nothing
@@ -117,7 +124,7 @@ accountsURLchannelsList pAulAdClientId_ pAulAccountId_ =
117 , _aulOauthToken = Nothing
124 , _aulOauthToken = Nothing
118 , _aulMaxResults = Nothing
125 , _aulMaxResults = Nothing
119 , _aulFields = Nothing
126 , _aulFields = Nothing
120− , _aulAlt = "json"
127+ , _aulAlt = JSON
123-- | 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
@@ -182,14 +189,14 @@ aulFields
182 = lens _aulFields (\ s a -> s{_aulFields = a})
189 = lens _aulFields (\ s a -> s{_aulFields = a})
184-- | Data format for the response.
191-- | Data format for the response.
185−aulAlt :: Lens' AccountsURLchannelsList' Text
192+aulAlt :: Lens' AccountsURLchannelsList' Alt
186aulAlt = lens _aulAlt (\ s a -> s{_aulAlt = a})
193aulAlt = lens _aulAlt (\ s a -> s{_aulAlt = a})
188instance GoogleRequest AccountsURLchannelsList' where
195instance GoogleRequest AccountsURLchannelsList' where
189 type Rs AccountsURLchannelsList' = URLChannels
196 type Rs AccountsURLchannelsList' = URLChannels
190 request = requestWithRoute defReq adExchangeSellerURL
197 request = requestWithRoute defReq adExchangeSellerURL
191− requestWithRoute r u AccountsURLchannelsList{..}
198+ requestWithRoute r u AccountsURLchannelsList'{..}
192− = go _aulQuotaUser _aulPrettyPrint _aulUserIp
199+ = go _aulQuotaUser (Just _aulPrettyPrint) _aulUserIp
193 _aulAdClientId
200 _aulAdClientId
194 _aulAccountId
201 _aulAccountId
@@ -197,9 +204,9 @@ instance GoogleRequest AccountsURLchannelsList' where
197 _aulOauthToken
204 _aulOauthToken
198 _aulMaxResults
205 _aulMaxResults
199 _aulFields
206 _aulFields
200− _aulAlt
207+ (Just _aulAlt)
202 = clientWithRoute
209 = clientWithRoute
203− (Proxy :: Proxy AccountsUrlchannelsListAPI)
210+ (Proxy :: Proxy AccountsUrlchannelsListResource)
gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer.hs+12−6
@@ -28,19 +28,19 @@ module Network.Google.AdminDataTransfer
28 -- * REST Resources
28 -- * REST Resources
30 -- ** DatatransferApplicationsGet
30 -- ** DatatransferApplicationsGet
31− , module Datatransfer.Applications.Get
31+ , module Network.Google.Resource.Datatransfer.Applications.Get
33 -- ** DatatransferApplicationsList
33 -- ** DatatransferApplicationsList
34− , module Datatransfer.Applications.List
34+ , module Network.Google.Resource.Datatransfer.Applications.List
36 -- ** DatatransferTransfersGet
36 -- ** DatatransferTransfersGet
37− , module Datatransfer.Transfers.Get
37+ , module Network.Google.Resource.Datatransfer.Transfers.Get
39 -- ** DatatransferTransfersInsert
39 -- ** DatatransferTransfersInsert
40− , module Datatransfer.Transfers.Insert
40+ , module Network.Google.Resource.Datatransfer.Transfers.Insert
42 -- ** DatatransferTransfersList
42 -- ** DatatransferTransfersList
43− , module Datatransfer.Transfers.List
43+ , module Network.Google.Resource.Datatransfer.Transfers.List
45 -- * Types
45 -- * Types
@@ -87,6 +87,9 @@ module Network.Google.AdminDataTransfer
87 , dtlrKind
87 , dtlrKind
88 , dtlrDataTransfers
88 , dtlrDataTransfers
90 -- ** ApplicationDataTransfer
93 -- ** ApplicationDataTransfer
91 , ApplicationDataTransfer
94 , ApplicationDataTransfer
92 , applicationDataTransfer
95 , applicationDataTransfer
@@ -108,7 +111,10 @@ TODO
110type AdminDataTransferAPI =
113type AdminDataTransferAPI =
111− Transfers :<|> Applications
114+ TransfersInsertResource :<|> TransfersListResource
115+ :<|> TransfersGetResource
116+ :<|> ApplicationsListResource
117+ :<|> ApplicationsGetResource
113adminDataTransferAPI :: Proxy AdminDataTransferAPI
119adminDataTransferAPI :: Proxy AdminDataTransferAPI
114adminDataTransferAPI = Proxy
120adminDataTransferAPI = Proxy
gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer/Types.hs+4−1
@@ -60,6 +60,9 @@ module Network.Google.AdminDataTransfer.Types
60 , dtlrKind
60 , dtlrKind
61 , dtlrDataTransfers
61 , dtlrDataTransfers
63 -- * ApplicationDataTransfer
66 -- * ApplicationDataTransfer
64 , ApplicationDataTransfer
67 , ApplicationDataTransfer
65 , applicationDataTransfer
68 , applicationDataTransfer
@@ -73,7 +76,7 @@ import Network.Google.AdminDataTransfer.Types.Sum
73import Network.Google.Prelude
76import Network.Google.Prelude
75-- | URL referring to version 'datatransfer_v1' of the Admin Data Transfer API.
78-- | URL referring to version 'datatransfer_v1' of the Admin Data Transfer API.
76−adminDataTransferURL :: BaseURL
79+adminDataTransferURL :: BaseUrl
77adminDataTransferURL
80adminDataTransferURL
78 = BaseUrl Https
81 = BaseUrl Https
79 "https://www.googleapis.com/admin/datatransfer/v1/"
82 "https://www.googleapis.com/admin/datatransfer/v1/"
gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer/Types/Sum.hs+24
@@ -16,3 +16,27 @@
16module Network.Google.AdminDataTransfer.Types.Sum where
16module Network.Google.AdminDataTransfer.Types.Sum where
18import Network.Google.Prelude
18import Network.Google.Prelude
20+-- | Data format for the response.
24+ -- Responses with Content-Type of application\/json
25+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
29+instance FromText Alt where
34+instance ToText Alt where
38+instance FromJSON Alt where
39+ parseJSON = parseJSONText "Alt"
41+instance ToJSON Alt where
gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Applications/Get.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieves information about an application for the given application ID.
20-- | Retrieves information about an application for the given application ID.
21-- /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@.
22−module Datatransfer.Applications.Get
23+module Network.Google.Resource.Datatransfer.Applications.Get
24 -- * REST Resource
25 -- * REST Resource
25− ApplicationsGetAPI
26+ ApplicationsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , applicationsGet
29+ , applicationsGet'
29− , ApplicationsGet
30+ , ApplicationsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , agQuotaUser
33 , agQuotaUser
@@ -43,16 +44,22 @@ import Network.Google.AdminDataTransfer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DatatransferApplicationsGet@ which the
46-- | A resource alias for @DatatransferApplicationsGet@ which the
46−-- 'ApplicationsGet' request conforms to.
47+-- 'ApplicationsGet'' request conforms to.
47−type ApplicationsGetAPI =
48+type ApplicationsGetResource =
48 "applications" :>
49 "applications" :>
49 Capture "applicationId" Int64 :>
50 Capture "applicationId" Int64 :>
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 :>
50− Get '[JSON] Application
57+ QueryParam "alt" Alt :> Get '[JSON] Application
52-- | Retrieves information about an application for the given application ID.
59-- | Retrieves information about an application for the given application ID.
54−-- /See:/ 'applicationsGet' smart constructor.
61+-- /See:/ 'applicationsGet'' smart constructor.
55−data ApplicationsGet = ApplicationsGet
62+data ApplicationsGet' = ApplicationsGet'
56 { _agQuotaUser :: !(Maybe Text)
63 { _agQuotaUser :: !(Maybe Text)
57 , _agPrettyPrint :: !Bool
64 , _agPrettyPrint :: !Bool
58 , _agUserIp :: !(Maybe Text)
65 , _agUserIp :: !(Maybe Text)
@@ -60,7 +67,7 @@ data ApplicationsGet = ApplicationsGet
60 , _agKey :: !(Maybe Text)
67 , _agKey :: !(Maybe Text)
61 , _agOauthToken :: !(Maybe Text)
68 , _agOauthToken :: !(Maybe Text)
62 , _agFields :: !(Maybe Text)
69 , _agFields :: !(Maybe Text)
63− , _agAlt :: !Text
70+ , _agAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'ApplicationsGet'' with the minimum fields required to make a request.
@@ -82,11 +89,11 @@ data ApplicationsGet = ApplicationsGet
82-- * 'agFields'
89-- * 'agFields'
84-- * 'agAlt'
91-- * 'agAlt'
85−applicationsGet
92+applicationsGet'
86 :: Int64 -- ^ 'applicationId'
93 :: Int64 -- ^ 'applicationId'
87− -> ApplicationsGet
94+ -> ApplicationsGet'
88−applicationsGet pAgApplicationId_ =
95+applicationsGet' pAgApplicationId_ =
89− ApplicationsGet
96+ ApplicationsGet'
90 { _agQuotaUser = Nothing
97 { _agQuotaUser = Nothing
91 , _agPrettyPrint = True
98 , _agPrettyPrint = True
92 , _agUserIp = Nothing
99 , _agUserIp = Nothing
@@ -94,7 +101,7 @@ applicationsGet pAgApplicationId_ =
94 , _agKey = Nothing
101 , _agKey = Nothing
95 , _agOauthToken = Nothing
102 , _agOauthToken = Nothing
96 , _agFields = Nothing
103 , _agFields = Nothing
97− , _agAlt = "json"
104+ , _agAlt = JSON
100-- | 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
@@ -137,21 +144,22 @@ agFields :: Lens' ApplicationsGet' (Maybe Text)
137agFields = lens _agFields (\ s a -> s{_agFields = a})
144agFields = lens _agFields (\ s a -> s{_agFields = a})
139-- | Data format for the response.
146-- | Data format for the response.
140−agAlt :: Lens' ApplicationsGet' Text
147+agAlt :: Lens' ApplicationsGet' Alt
141agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
148agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
143instance GoogleRequest ApplicationsGet' where
150instance GoogleRequest ApplicationsGet' where
144 type Rs ApplicationsGet' = Application
151 type Rs ApplicationsGet' = Application
146 = requestWithRoute defReq adminDataTransferURL
153 = requestWithRoute defReq adminDataTransferURL
147− requestWithRoute r u ApplicationsGet{..}
154+ requestWithRoute r u ApplicationsGet'{..}
148− = go _agQuotaUser _agPrettyPrint _agUserIp
155+ = go _agQuotaUser (Just _agPrettyPrint) _agUserIp
149 _agApplicationId
156 _agApplicationId
151 _agOauthToken
158 _agOauthToken
152 _agFields
159 _agFields
153− _agAlt
160+ (Just _agAlt)
155− = clientWithRoute (Proxy :: Proxy ApplicationsGetAPI)
162+ = clientWithRoute
163+ (Proxy :: Proxy ApplicationsGetResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Applications/List.hs+31−23
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Lists the applications available for data transfer for a customer.
20-- | Lists the applications available for data transfer for a customer.
21-- /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@.
22−module Datatransfer.Applications.List
23+module Network.Google.Resource.Datatransfer.Applications.List
24 -- * REST Resource
25 -- * REST Resource
25− ApplicationsListAPI
26+ ApplicationsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , applicationsList
29+ , applicationsList'
29− , ApplicationsList
30+ , ApplicationsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , alQuotaUser
33 , alQuotaUser
@@ -45,18 +46,25 @@ import Network.Google.AdminDataTransfer.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @DatatransferApplicationsList@ which the
48-- | A resource alias for @DatatransferApplicationsList@ which the
48−-- 'ApplicationsList' request conforms to.
49+-- 'ApplicationsList'' request conforms to.
49−type ApplicationsListAPI =
50+type ApplicationsListResource =
50 "applications" :>
51 "applications" :>
51− QueryParam "customerId" Text :>
52+ QueryParam "quotaUser" Text :>
53+ QueryParam "prettyPrint" Bool :>
54+ QueryParam "userIp" Text :>
55+ QueryParam "customerId" Text :>
56+ QueryParam "key" Text :>
52− QueryParam "pageToken" Text :>
57+ QueryParam "pageToken" Text :>
58+ QueryParam "oauth_token" Text :>
53− QueryParam "maxResults" Word32 :>
59+ QueryParam "maxResults" Word32 :>
60+ QueryParam "fields" Text :>
61+ QueryParam "alt" Alt :>
54− Get '[JSON] ApplicationsListResponse
62+ Get '[JSON] ApplicationsListResponse
56-- | Lists the applications available for data transfer for a customer.
64-- | Lists the applications available for data transfer for a customer.
58−-- /See:/ 'applicationsList' smart constructor.
66+-- /See:/ 'applicationsList'' smart constructor.
59−data ApplicationsList = ApplicationsList
67+data ApplicationsList' = ApplicationsList'
60 { _alQuotaUser :: !(Maybe Text)
68 { _alQuotaUser :: !(Maybe Text)
61 , _alPrettyPrint :: !Bool
69 , _alPrettyPrint :: !Bool
62 , _alUserIp :: !(Maybe Text)
70 , _alUserIp :: !(Maybe Text)
@@ -66,7 +74,7 @@ data ApplicationsList = ApplicationsList
66 , _alOauthToken :: !(Maybe Text)
74 , _alOauthToken :: !(Maybe Text)
67 , _alMaxResults :: !(Maybe Word32)
75 , _alMaxResults :: !(Maybe Word32)
68 , _alFields :: !(Maybe Text)
76 , _alFields :: !(Maybe Text)
69− , _alAlt :: !Text
77+ , _alAlt :: !Alt
70 } deriving (Eq,Read,Show,Data,Typeable,Generic)
78 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.
80-- | Creates a value of 'ApplicationsList'' with the minimum fields required to make a request.
@@ -92,10 +100,10 @@ data ApplicationsList = ApplicationsList
92-- * 'alFields'
100-- * 'alFields'
94-- * 'alAlt'
102-- * 'alAlt'
95−applicationsList
103+applicationsList'
96− :: ApplicationsList
104+ :: ApplicationsList'
97−applicationsList =
105+applicationsList' =
98− ApplicationsList
106+ ApplicationsList'
99 { _alQuotaUser = Nothing
107 { _alQuotaUser = Nothing
100 , _alPrettyPrint = True
108 , _alPrettyPrint = True
101 , _alUserIp = Nothing
109 , _alUserIp = Nothing
@@ -105,7 +113,7 @@ applicationsList =
105 , _alOauthToken = Nothing
113 , _alOauthToken = Nothing
106 , _alMaxResults = Nothing
114 , _alMaxResults = Nothing
107 , _alFields = Nothing
115 , _alFields = Nothing
108− , _alAlt = "json"
116+ , _alAlt = JSON
111-- | 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
@@ -157,24 +165,24 @@ alFields :: Lens' ApplicationsList' (Maybe Text)
157alFields = lens _alFields (\ s a -> s{_alFields = a})
165alFields = lens _alFields (\ s a -> s{_alFields = a})
159-- | Data format for the response.
167-- | Data format for the response.
160−alAlt :: Lens' ApplicationsList' Text
168+alAlt :: Lens' ApplicationsList' Alt
161alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
169alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
163instance GoogleRequest ApplicationsList' where
171instance GoogleRequest ApplicationsList' where
164 type Rs ApplicationsList' = ApplicationsListResponse
172 type Rs ApplicationsList' = ApplicationsListResponse
166 = requestWithRoute defReq adminDataTransferURL
174 = requestWithRoute defReq adminDataTransferURL
167− requestWithRoute r u ApplicationsList{..}
175+ requestWithRoute r u ApplicationsList'{..}
168− = go _alQuotaUser _alPrettyPrint _alUserIp
176+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIp
169 _alCustomerId
177 _alCustomerId
171 _alPageToken
179 _alPageToken
172 _alOauthToken
180 _alOauthToken
173 _alMaxResults
181 _alMaxResults
174 _alFields
182 _alFields
175− _alAlt
183+ (Just _alAlt)
177 = clientWithRoute
185 = clientWithRoute
178− (Proxy :: Proxy ApplicationsListAPI)
186+ (Proxy :: Proxy ApplicationsListResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Transfers/Get.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieves a data transfer request by its resource ID.
20-- | Retrieves a data transfer request by its resource ID.
21-- /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@.
22−module Datatransfer.Transfers.Get
23+module Network.Google.Resource.Datatransfer.Transfers.Get
24 -- * REST Resource
25 -- * REST Resource
25− TransfersGetAPI
26+ TransfersGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , transfersGet
29+ , transfersGet'
29− , TransfersGet
30+ , TransfersGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , tgQuotaUser
33 , tgQuotaUser
@@ -43,16 +44,22 @@ import Network.Google.AdminDataTransfer.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DatatransferTransfersGet@ which the
46-- | A resource alias for @DatatransferTransfersGet@ which the
46−-- 'TransfersGet' request conforms to.
47+-- 'TransfersGet'' request conforms to.
47−type TransfersGetAPI =
48+type TransfersGetResource =
48 "transfers" :>
49 "transfers" :>
49 Capture "dataTransferId" Text :>
50 Capture "dataTransferId" 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 :>
50− Get '[JSON] DataTransfer
57+ QueryParam "alt" Alt :> Get '[JSON] DataTransfer
52-- | Retrieves a data transfer request by its resource ID.
59-- | Retrieves a data transfer request by its resource ID.
54−-- /See:/ 'transfersGet' smart constructor.
61+-- /See:/ 'transfersGet'' smart constructor.
55−data TransfersGet = TransfersGet
62+data TransfersGet' = TransfersGet'
56 { _tgQuotaUser :: !(Maybe Text)
63 { _tgQuotaUser :: !(Maybe Text)
57 , _tgPrettyPrint :: !Bool
64 , _tgPrettyPrint :: !Bool
58 , _tgUserIp :: !(Maybe Text)
65 , _tgUserIp :: !(Maybe Text)
@@ -60,7 +67,7 @@ data TransfersGet = TransfersGet
60 , _tgOauthToken :: !(Maybe Text)
67 , _tgOauthToken :: !(Maybe Text)
61 , _tgDataTransferId :: !Text
68 , _tgDataTransferId :: !Text
62 , _tgFields :: !(Maybe Text)
69 , _tgFields :: !(Maybe Text)
63− , _tgAlt :: !Text
70+ , _tgAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'TransfersGet'' with the minimum fields required to make a request.
@@ -82,11 +89,11 @@ data TransfersGet = TransfersGet
82-- * 'tgFields'
89-- * 'tgFields'
84-- * 'tgAlt'
91-- * 'tgAlt'
85−transfersGet
92+transfersGet'
86 :: Text -- ^ 'dataTransferId'
93 :: Text -- ^ 'dataTransferId'
87− -> TransfersGet
94+ -> TransfersGet'
88−transfersGet pTgDataTransferId_ =
95+transfersGet' pTgDataTransferId_ =
89− TransfersGet
96+ TransfersGet'
90 { _tgQuotaUser = Nothing
97 { _tgQuotaUser = Nothing
91 , _tgPrettyPrint = True
98 , _tgPrettyPrint = True
92 , _tgUserIp = Nothing
99 , _tgUserIp = Nothing
@@ -94,7 +101,7 @@ transfersGet pTgDataTransferId_ =
94 , _tgOauthToken = Nothing
101 , _tgOauthToken = Nothing
95 , _tgDataTransferId = pTgDataTransferId_
102 , _tgDataTransferId = pTgDataTransferId_
96 , _tgFields = Nothing
103 , _tgFields = Nothing
97− , _tgAlt = "json"
104+ , _tgAlt = JSON
100-- | 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
@@ -138,19 +145,22 @@ tgFields :: Lens' TransfersGet' (Maybe Text)
138tgFields = lens _tgFields (\ s a -> s{_tgFields = a})
145tgFields = lens _tgFields (\ s a -> s{_tgFields = a})
140-- | Data format for the response.
147-- | Data format for the response.
141−tgAlt :: Lens' TransfersGet' Text
148+tgAlt :: Lens' TransfersGet' Alt
142tgAlt = lens _tgAlt (\ s a -> s{_tgAlt = a})
149tgAlt = lens _tgAlt (\ s a -> s{_tgAlt = a})
144instance GoogleRequest TransfersGet' where
151instance GoogleRequest TransfersGet' where
145 type Rs TransfersGet' = DataTransfer
152 type Rs TransfersGet' = DataTransfer
147 = requestWithRoute defReq adminDataTransferURL
154 = requestWithRoute defReq adminDataTransferURL
148− requestWithRoute r u TransfersGet{..}
155+ requestWithRoute r u TransfersGet'{..}
149− = go _tgQuotaUser _tgPrettyPrint _tgUserIp _tgKey
156+ = go _tgQuotaUser (Just _tgPrettyPrint) _tgUserIp
150 _tgOauthToken
158 _tgOauthToken
151 _tgDataTransferId
159 _tgDataTransferId
152 _tgFields
160 _tgFields
153− _tgAlt
161+ (Just _tgAlt)
155− = clientWithRoute (Proxy :: Proxy TransfersGetAPI) r
163+ = clientWithRoute
164+ (Proxy :: Proxy TransfersGetResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Transfers/Insert.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Inserts a data transfer request.
20-- | Inserts a data transfer request.
21-- /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@.
22−module Datatransfer.Transfers.Insert
23+module Network.Google.Resource.Datatransfer.Transfers.Insert
24 -- * REST Resource
25 -- * REST Resource
25− TransfersInsertAPI
26+ TransfersInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , transfersInsert
29+ , transfersInsert'
29− , TransfersInsert
30+ , TransfersInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , tiQuotaUser
33 , tiQuotaUser
@@ -42,21 +43,28 @@ import Network.Google.AdminDataTransfer.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @DatatransferTransfersInsert@ which the
45-- | A resource alias for @DatatransferTransfersInsert@ which the
45−-- 'TransfersInsert' request conforms to.
46+-- 'TransfersInsert'' request conforms to.
46−type TransfersInsertAPI =
47+type TransfersInsertResource =
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 :>
47− "transfers" :> Post '[JSON] DataTransfer
55+ QueryParam "alt" Alt :> Post '[JSON] DataTransfer
49-- | Inserts a data transfer request.
57-- | Inserts a data transfer request.
51−-- /See:/ 'transfersInsert' smart constructor.
59+-- /See:/ 'transfersInsert'' smart constructor.
52−data TransfersInsert = TransfersInsert
60+data TransfersInsert' = TransfersInsert'
53 { _tiQuotaUser :: !(Maybe Text)
61 { _tiQuotaUser :: !(Maybe Text)
54 , _tiPrettyPrint :: !Bool
62 , _tiPrettyPrint :: !Bool
55 , _tiUserIp :: !(Maybe Text)
63 , _tiUserIp :: !(Maybe Text)
56 , _tiKey :: !(Maybe Text)
64 , _tiKey :: !(Maybe Text)
57 , _tiOauthToken :: !(Maybe Text)
65 , _tiOauthToken :: !(Maybe Text)
58 , _tiFields :: !(Maybe Text)
66 , _tiFields :: !(Maybe Text)
59− , _tiAlt :: !Text
67+ , _tiAlt :: !Alt
60 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
62-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.
70-- | Creates a value of 'TransfersInsert'' with the minimum fields required to make a request.
@@ -76,17 +84,17 @@ data TransfersInsert = TransfersInsert
76-- * 'tiFields'
84-- * 'tiFields'
78-- * 'tiAlt'
86-- * 'tiAlt'
79−transfersInsert
87+transfersInsert'
80− :: TransfersInsert
88+ :: TransfersInsert'
81−transfersInsert =
89+transfersInsert' =
82− TransfersInsert
90+ TransfersInsert'
83 { _tiQuotaUser = Nothing
91 { _tiQuotaUser = Nothing
84 , _tiPrettyPrint = True
92 , _tiPrettyPrint = True
85 , _tiUserIp = Nothing
93 , _tiUserIp = Nothing
86 , _tiKey = Nothing
94 , _tiKey = Nothing
87 , _tiOauthToken = Nothing
95 , _tiOauthToken = Nothing
88 , _tiFields = Nothing
96 , _tiFields = Nothing
89− , _tiAlt = "json"
97+ , _tiAlt = JSON
92-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
@@ -123,19 +131,21 @@ tiFields :: Lens' TransfersInsert' (Maybe Text)
123tiFields = lens _tiFields (\ s a -> s{_tiFields = a})
131tiFields = lens _tiFields (\ s a -> s{_tiFields = a})
125-- | Data format for the response.
133-- | Data format for the response.
126−tiAlt :: Lens' TransfersInsert' Text
134+tiAlt :: Lens' TransfersInsert' Alt
127tiAlt = lens _tiAlt (\ s a -> s{_tiAlt = a})
135tiAlt = lens _tiAlt (\ s a -> s{_tiAlt = a})
129instance GoogleRequest TransfersInsert' where
137instance GoogleRequest TransfersInsert' where
130 type Rs TransfersInsert' = DataTransfer
138 type Rs TransfersInsert' = DataTransfer
132 = requestWithRoute defReq adminDataTransferURL
140 = requestWithRoute defReq adminDataTransferURL
133− requestWithRoute r u TransfersInsert{..}
141+ requestWithRoute r u TransfersInsert'{..}
134− = go _tiQuotaUser _tiPrettyPrint _tiUserIp _tiKey
142+ = go _tiQuotaUser (Just _tiPrettyPrint) _tiUserIp
135 _tiOauthToken
144 _tiOauthToken
136 _tiFields
145 _tiFields
137− _tiAlt
146+ (Just _tiAlt)
139− = clientWithRoute (Proxy :: Proxy TransfersInsertAPI)
148+ = clientWithRoute
149+ (Proxy :: Proxy TransfersInsertResource)
gogol-admin-datatransfer/gen/Network/Google/Resource/Datatransfer/Transfers/List.hs+35−25
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
22-- /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@.
23−module Datatransfer.Transfers.List
24+module Network.Google.Resource.Datatransfer.Transfers.List
25 -- * REST Resource
26 -- * REST Resource
26− TransfersListAPI
27+ TransfersListResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , transfersList
30+ , transfersList'
30− , TransfersList
31+ , TransfersList'
32 -- * Request Lenses
33 -- * Request Lenses
33 , tlStatus
34 , tlStatus
@@ -49,22 +50,29 @@ import Network.Google.AdminDataTransfer.Types
49import Network.Google.Prelude
50import Network.Google.Prelude
51-- | A resource alias for @DatatransferTransfersList@ which the
52-- | A resource alias for @DatatransferTransfersList@ which the
52−-- 'TransfersList' request conforms to.
53+-- 'TransfersList'' request conforms to.
53−type TransfersListAPI =
54+type TransfersListResource =
54 "transfers" :>
55 "transfers" :>
55 QueryParam "status" Text :>
56 QueryParam "status" Text :>
56− QueryParam "oldOwnerUserId" Text :>
57+ QueryParam "quotaUser" Text :>
57− QueryParam "newOwnerUserId" Text :>
58+ QueryParam "prettyPrint" Bool :>
59+ QueryParam "oldOwnerUserId" Text :>
60+ QueryParam "userIp" Text :>
61+ QueryParam "newOwnerUserId" Text :>
58− QueryParam "customerId" Text :>
62+ QueryParam "customerId" Text :>
63+ QueryParam "key" Text :>
59− QueryParam "pageToken" Text :>
64+ QueryParam "pageToken" Text :>
65+ QueryParam "oauth_token" Text :>
60− QueryParam "maxResults" Int32 :>
66+ QueryParam "maxResults" Int32 :>
67+ QueryParam "fields" Text :>
68+ QueryParam "alt" Alt :>
61− Get '[JSON] DataTransfersListResponse
69+ Get '[JSON] DataTransfersListResponse
63-- | Lists the transfers for a customer by source user, destination user, or
71-- | Lists the transfers for a customer by source user, destination user, or
66−-- /See:/ 'transfersList' smart constructor.
74+-- /See:/ 'transfersList'' smart constructor.
67−data TransfersList = TransfersList
75+data TransfersList' = TransfersList'
68 { _tlStatus :: !(Maybe Text)
76 { _tlStatus :: !(Maybe Text)
69 , _tlQuotaUser :: !(Maybe Text)
77 , _tlQuotaUser :: !(Maybe Text)
70 , _tlPrettyPrint :: !Bool
78 , _tlPrettyPrint :: !Bool
@@ -77,7 +85,7 @@ data TransfersList = TransfersList
77 , _tlOauthToken :: !(Maybe Text)
85 , _tlOauthToken :: !(Maybe Text)
78 , _tlMaxResults :: !(Maybe Int32)
86 , _tlMaxResults :: !(Maybe Int32)
79 , _tlFields :: !(Maybe Text)
87 , _tlFields :: !(Maybe Text)
80− , _tlAlt :: !Text
88+ , _tlAlt :: !Alt
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
89 } deriving (Eq,Read,Show,Data,Typeable,Generic)
83-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.
91-- | Creates a value of 'TransfersList'' with the minimum fields required to make a request.
@@ -109,10 +117,10 @@ data TransfersList = TransfersList
109-- * 'tlFields'
117-- * 'tlFields'
111-- * 'tlAlt'
119-- * 'tlAlt'
112−transfersList
120+transfersList'
113− :: TransfersList
121+ :: TransfersList'
114−transfersList =
122+transfersList' =
115− TransfersList
123+ TransfersList'
116 { _tlStatus = Nothing
124 { _tlStatus = Nothing
117 , _tlQuotaUser = Nothing
125 , _tlQuotaUser = Nothing
118 , _tlPrettyPrint = True
126 , _tlPrettyPrint = True
@@ -125,7 +133,7 @@ transfersList =
125 , _tlOauthToken = Nothing
133 , _tlOauthToken = Nothing
126 , _tlMaxResults = Nothing
134 , _tlMaxResults = Nothing
127 , _tlFields = Nothing
135 , _tlFields = Nothing
128− , _tlAlt = "json"
136+ , _tlAlt = JSON
131-- | Status of the transfer.
139-- | Status of the transfer.
@@ -193,15 +201,15 @@ tlFields :: Lens' TransfersList' (Maybe Text)
193tlFields = lens _tlFields (\ s a -> s{_tlFields = a})
201tlFields = lens _tlFields (\ s a -> s{_tlFields = a})
195-- | Data format for the response.
203-- | Data format for the response.
196−tlAlt :: Lens' TransfersList' Text
204+tlAlt :: Lens' TransfersList' Alt
197tlAlt = lens _tlAlt (\ s a -> s{_tlAlt = a})
205tlAlt = lens _tlAlt (\ s a -> s{_tlAlt = a})
199instance GoogleRequest TransfersList' where
207instance GoogleRequest TransfersList' where
200 type Rs TransfersList' = DataTransfersListResponse
208 type Rs TransfersList' = DataTransfersListResponse
202 = requestWithRoute defReq adminDataTransferURL
210 = requestWithRoute defReq adminDataTransferURL
203− requestWithRoute r u TransfersList{..}
211+ requestWithRoute r u TransfersList'{..}
204− = go _tlStatus _tlQuotaUser _tlPrettyPrint
212+ = go _tlStatus _tlQuotaUser (Just _tlPrettyPrint)
205 _tlOldOwnerUserId
213 _tlOldOwnerUserId
206 _tlUserIp
214 _tlUserIp
207 _tlNewOwnerUserId
215 _tlNewOwnerUserId
@@ -211,7 +219,9 @@ instance GoogleRequest TransfersList' where
211 _tlOauthToken
219 _tlOauthToken
212 _tlMaxResults
220 _tlMaxResults
213 _tlFields
221 _tlFields
214− _tlAlt
222+ (Just _tlAlt)
216− = clientWithRoute (Proxy :: Proxy TransfersListAPI) r
224+ = clientWithRoute
225+ (Proxy :: Proxy TransfersListResource)
gogol-admin-directory/gen/Network/Google/AdminDirectory.hs+278−107
@@ -29,205 +29,205 @@ module Network.Google.AdminDirectory
29 -- * REST Resources
29 -- * REST Resources
31 -- ** AdminChannelsStop
31 -- ** AdminChannelsStop
32− , module Admin.Channels.Stop
32+ , module Network.Google.Resource.Admin.Channels.Stop
34 -- ** DirectoryAspsDelete
34 -- ** DirectoryAspsDelete
35− , module Directory.Asps.Delete
35+ , module Network.Google.Resource.Directory.Asps.Delete
37 -- ** DirectoryAspsGet
37 -- ** DirectoryAspsGet
38− , module Directory.Asps.Get
38+ , module Network.Google.Resource.Directory.Asps.Get
40 -- ** DirectoryAspsList
40 -- ** DirectoryAspsList
41− , module Directory.Asps.List
41+ , module Network.Google.Resource.Directory.Asps.List
43 -- ** DirectoryChromeosdevicesGet
43 -- ** DirectoryChromeosdevicesGet
44− , module Directory.Chromeosdevices.Get
44+ , module Network.Google.Resource.Directory.Chromeosdevices.Get
46 -- ** DirectoryChromeosdevicesList
46 -- ** DirectoryChromeosdevicesList
47− , module Directory.Chromeosdevices.List
47+ , module Network.Google.Resource.Directory.Chromeosdevices.List
49 -- ** DirectoryChromeosdevicesPatch
49 -- ** DirectoryChromeosdevicesPatch
50− , module Directory.Chromeosdevices.Patch
50+ , module Network.Google.Resource.Directory.Chromeosdevices.Patch
52 -- ** DirectoryChromeosdevicesUpdate
52 -- ** DirectoryChromeosdevicesUpdate
53− , module Directory.Chromeosdevices.Update
53+ , module Network.Google.Resource.Directory.Chromeosdevices.Update
55 -- ** DirectoryGroupsAliasesDelete
55 -- ** DirectoryGroupsAliasesDelete
56− , module Directory.Groups.Aliases.Delete
56+ , module Network.Google.Resource.Directory.Groups.Aliases.Delete
58 -- ** DirectoryGroupsAliasesInsert
58 -- ** DirectoryGroupsAliasesInsert
59− , module Directory.Groups.Aliases.Insert
59+ , module Network.Google.Resource.Directory.Groups.Aliases.Insert
61 -- ** DirectoryGroupsAliasesList
61 -- ** DirectoryGroupsAliasesList
62− , module Directory.Groups.Aliases.List
62+ , module Network.Google.Resource.Directory.Groups.Aliases.List
64 -- ** DirectoryGroupsDelete
64 -- ** DirectoryGroupsDelete
65− , module Directory.Groups.Delete
65+ , module Network.Google.Resource.Directory.Groups.Delete
67 -- ** DirectoryGroupsGet
67 -- ** DirectoryGroupsGet
68− , module Directory.Groups.Get
68+ , module Network.Google.Resource.Directory.Groups.Get
70 -- ** DirectoryGroupsInsert
70 -- ** DirectoryGroupsInsert
71− , module Directory.Groups.Insert
71+ , module Network.Google.Resource.Directory.Groups.Insert
73 -- ** DirectoryGroupsList
73 -- ** DirectoryGroupsList
74− , module Directory.Groups.List
74+ , module Network.Google.Resource.Directory.Groups.List
76 -- ** DirectoryGroupsPatch
76 -- ** DirectoryGroupsPatch
77− , module Directory.Groups.Patch
77+ , module Network.Google.Resource.Directory.Groups.Patch
79 -- ** DirectoryGroupsUpdate
79 -- ** DirectoryGroupsUpdate
80− , module Directory.Groups.Update
80+ , module Network.Google.Resource.Directory.Groups.Update
82 -- ** DirectoryMembersDelete
82 -- ** DirectoryMembersDelete
83− , module Directory.Members.Delete
83+ , module Network.Google.Resource.Directory.Members.Delete
85 -- ** DirectoryMembersGet
85 -- ** DirectoryMembersGet
86− , module Directory.Members.Get
86+ , module Network.Google.Resource.Directory.Members.Get
88 -- ** DirectoryMembersInsert
88 -- ** DirectoryMembersInsert
89− , module Directory.Members.Insert
89+ , module Network.Google.Resource.Directory.Members.Insert
91 -- ** DirectoryMembersList
91 -- ** DirectoryMembersList
92− , module Directory.Members.List
92+ , module Network.Google.Resource.Directory.Members.List
94 -- ** DirectoryMembersPatch
94 -- ** DirectoryMembersPatch
95− , module Directory.Members.Patch
95+ , module Network.Google.Resource.Directory.Members.Patch
97 -- ** DirectoryMembersUpdate
97 -- ** DirectoryMembersUpdate
98− , module Directory.Members.Update
98+ , module Network.Google.Resource.Directory.Members.Update
100 -- ** DirectoryMobiledevicesAction
100 -- ** DirectoryMobiledevicesAction
101− , module Directory.Mobiledevices.Action
101+ , module Network.Google.Resource.Directory.Mobiledevices.Action
103 -- ** DirectoryMobiledevicesDelete
103 -- ** DirectoryMobiledevicesDelete
104− , module Directory.Mobiledevices.Delete
104+ , module Network.Google.Resource.Directory.Mobiledevices.Delete
106 -- ** DirectoryMobiledevicesGet
106 -- ** DirectoryMobiledevicesGet
107− , module Directory.Mobiledevices.Get
107+ , module Network.Google.Resource.Directory.Mobiledevices.Get
109 -- ** DirectoryMobiledevicesList
109 -- ** DirectoryMobiledevicesList
110− , module Directory.Mobiledevices.List
110+ , module Network.Google.Resource.Directory.Mobiledevices.List
112 -- ** DirectoryNotificationsDelete
112 -- ** DirectoryNotificationsDelete
113− , module Directory.Notifications.Delete
113+ , module Network.Google.Resource.Directory.Notifications.Delete
115 -- ** DirectoryNotificationsGet
115 -- ** DirectoryNotificationsGet
116− , module Directory.Notifications.Get
116+ , module Network.Google.Resource.Directory.Notifications.Get
118 -- ** DirectoryNotificationsList
118 -- ** DirectoryNotificationsList
119− , module Directory.Notifications.List
119+ , module Network.Google.Resource.Directory.Notifications.List
121 -- ** DirectoryNotificationsPatch
121 -- ** DirectoryNotificationsPatch
122− , module Directory.Notifications.Patch
122+ , module Network.Google.Resource.Directory.Notifications.Patch
124 -- ** DirectoryNotificationsUpdate
124 -- ** DirectoryNotificationsUpdate
125− , module Directory.Notifications.Update
125+ , module Network.Google.Resource.Directory.Notifications.Update
127 -- ** DirectoryOrgunitsDelete
127 -- ** DirectoryOrgunitsDelete
128− , module Directory.Orgunits.Delete
128+ , module Network.Google.Resource.Directory.Orgunits.Delete
130 -- ** DirectoryOrgunitsGet
130 -- ** DirectoryOrgunitsGet
131− , module Directory.Orgunits.Get
131+ , module Network.Google.Resource.Directory.Orgunits.Get
133 -- ** DirectoryOrgunitsInsert
133 -- ** DirectoryOrgunitsInsert
134− , module Directory.Orgunits.Insert
134+ , module Network.Google.Resource.Directory.Orgunits.Insert
136 -- ** DirectoryOrgunitsList
136 -- ** DirectoryOrgunitsList
137− , module Directory.Orgunits.List
137+ , module Network.Google.Resource.Directory.Orgunits.List
139 -- ** DirectoryOrgunitsPatch
139 -- ** DirectoryOrgunitsPatch
140− , module Directory.Orgunits.Patch
140+ , module Network.Google.Resource.Directory.Orgunits.Patch
142 -- ** DirectoryOrgunitsUpdate
142 -- ** DirectoryOrgunitsUpdate
143− , module Directory.Orgunits.Update
143+ , module Network.Google.Resource.Directory.Orgunits.Update
145 -- ** DirectorySchemasDelete
145 -- ** DirectorySchemasDelete
146− , module Directory.Schemas.Delete
146+ , module Network.Google.Resource.Directory.Schemas.Delete
148 -- ** DirectorySchemasGet
148 -- ** DirectorySchemasGet
149− , module Directory.Schemas.Get
149+ , module Network.Google.Resource.Directory.Schemas.Get
151 -- ** DirectorySchemasInsert
151 -- ** DirectorySchemasInsert
152− , module Directory.Schemas.Insert
152+ , module Network.Google.Resource.Directory.Schemas.Insert
154 -- ** DirectorySchemasList
154 -- ** DirectorySchemasList
155− , module Directory.Schemas.List
155+ , module Network.Google.Resource.Directory.Schemas.List
157 -- ** DirectorySchemasPatch
157 -- ** DirectorySchemasPatch
158− , module Directory.Schemas.Patch
158+ , module Network.Google.Resource.Directory.Schemas.Patch
160 -- ** DirectorySchemasUpdate
160 -- ** DirectorySchemasUpdate
161− , module Directory.Schemas.Update
161+ , module Network.Google.Resource.Directory.Schemas.Update
163 -- ** DirectoryTokensDelete
163 -- ** DirectoryTokensDelete
164− , module Directory.Tokens.Delete
164+ , module Network.Google.Resource.Directory.Tokens.Delete
166 -- ** DirectoryTokensGet
166 -- ** DirectoryTokensGet
167− , module Directory.Tokens.Get
167+ , module Network.Google.Resource.Directory.Tokens.Get
169 -- ** DirectoryTokensList
169 -- ** DirectoryTokensList
170− , module Directory.Tokens.List
170+ , module Network.Google.Resource.Directory.Tokens.List
172 -- ** DirectoryUsersAliasesDelete
172 -- ** DirectoryUsersAliasesDelete
173− , module Directory.Users.Aliases.Delete
173+ , module Network.Google.Resource.Directory.Users.Aliases.Delete
175 -- ** DirectoryUsersAliasesInsert
175 -- ** DirectoryUsersAliasesInsert
176− , module Directory.Users.Aliases.Insert
176+ , module Network.Google.Resource.Directory.Users.Aliases.Insert
178 -- ** DirectoryUsersAliasesList
178 -- ** DirectoryUsersAliasesList
179− , module Directory.Users.Aliases.List
179+ , module Network.Google.Resource.Directory.Users.Aliases.List
181 -- ** DirectoryUsersAliasesWatch
181 -- ** DirectoryUsersAliasesWatch
182− , module Directory.Users.Aliases.Watch
182+ , module Network.Google.Resource.Directory.Users.Aliases.Watch
184 -- ** DirectoryUsersDelete
184 -- ** DirectoryUsersDelete
185− , module Directory.Users.Delete
185+ , module Network.Google.Resource.Directory.Users.Delete
187 -- ** DirectoryUsersGet
187 -- ** DirectoryUsersGet
188− , module Directory.Users.Get
188+ , module Network.Google.Resource.Directory.Users.Get
190 -- ** DirectoryUsersInsert
190 -- ** DirectoryUsersInsert
191− , module Directory.Users.Insert
191+ , module Network.Google.Resource.Directory.Users.Insert
193 -- ** DirectoryUsersList
193 -- ** DirectoryUsersList
194− , module Directory.Users.List
194+ , module Network.Google.Resource.Directory.Users.List
196 -- ** DirectoryUsersMakeAdmin
196 -- ** DirectoryUsersMakeAdmin
197− , module Directory.Users.MakeAdmin
197+ , module Network.Google.Resource.Directory.Users.MakeAdmin
199 -- ** DirectoryUsersPatch
199 -- ** DirectoryUsersPatch
200− , module Directory.Users.Patch
200+ , module Network.Google.Resource.Directory.Users.Patch
202 -- ** DirectoryUsersPhotosDelete
202 -- ** DirectoryUsersPhotosDelete
203− , module Directory.Users.Photos.Delete
203+ , module Network.Google.Resource.Directory.Users.Photos.Delete
205 -- ** DirectoryUsersPhotosGet
205 -- ** DirectoryUsersPhotosGet
206− , module Directory.Users.Photos.Get
206+ , module Network.Google.Resource.Directory.Users.Photos.Get
208 -- ** DirectoryUsersPhotosPatch
208 -- ** DirectoryUsersPhotosPatch
209− , module Directory.Users.Photos.Patch
209+ , module Network.Google.Resource.Directory.Users.Photos.Patch
211 -- ** DirectoryUsersPhotosUpdate
211 -- ** DirectoryUsersPhotosUpdate
212− , module Directory.Users.Photos.Update
212+ , module Network.Google.Resource.Directory.Users.Photos.Update
214 -- ** DirectoryUsersUndelete
214 -- ** DirectoryUsersUndelete
215− , module Directory.Users.Undelete
215+ , module Network.Google.Resource.Directory.Users.Undelete
217 -- ** DirectoryUsersUpdate
217 -- ** DirectoryUsersUpdate
218− , module Directory.Users.Update
218+ , module Network.Google.Resource.Directory.Users.Update
220 -- ** DirectoryUsersWatch
220 -- ** DirectoryUsersWatch
221− , module Directory.Users.Watch
221+ , module Network.Google.Resource.Directory.Users.Watch
223 -- ** DirectoryVerificationCodesGenerate
223 -- ** DirectoryVerificationCodesGenerate
224− , module Directory.VerificationCodes.Generate
224+ , module Network.Google.Resource.Directory.VerificationCodes.Generate
226 -- ** DirectoryVerificationCodesInvalidate
226 -- ** DirectoryVerificationCodesInvalidate
227− , module Directory.VerificationCodes.Invalidate
227+ , module Network.Google.Resource.Directory.VerificationCodes.Invalidate
229 -- ** DirectoryVerificationCodesList
229 -- ** DirectoryVerificationCodesList
230− , module Directory.VerificationCodes.List
230+ , module Network.Google.Resource.Directory.VerificationCodes.List
232 -- * Types
232 -- * Types
@@ -271,6 +271,12 @@ module Network.Google.AdminDirectory
271 , userMakeAdmin
271 , userMakeAdmin
272 , umaStatus
272 , umaStatus
274+ -- ** DirectoryUsersListViewType
275+ , DirectoryUsersListViewType (..)
277+ -- ** DirectoryChromeosdevicesListProjection
278+ , DirectoryChromeosdevicesListProjection (..)
274 -- ** UserAddress
280 -- ** UserAddress
275 , UserAddress
281 , UserAddress
276 , userAddress
282 , userAddress
@@ -288,6 +294,9 @@ module Network.Google.AdminDirectory
288 , uaCustomType
294 , uaCustomType
289 , uaSourceIsStructured
295 , uaSourceIsStructured
297+ -- ** DirectoryUsersWatchOrderBy
298+ , DirectoryUsersWatchOrderBy (..)
291 -- ** Group
300 -- ** Group
@@ -302,6 +311,15 @@ module Network.Google.AdminDirectory
303 , groDescription
312 , groDescription
314+ -- ** ChromeOsDeviceActiveTimeRanges
315+ , ChromeOsDeviceActiveTimeRanges
316+ , chromeOsDeviceActiveTimeRanges
320+ -- ** DirectoryUsersWatchViewType
321+ , DirectoryUsersWatchViewType (..)
305 -- ** Asp
323 -- ** Asp
@@ -368,6 +386,9 @@ module Network.Google.AdminDirectory
369 , uiCustomType
387 , uiCustomType
389+ -- ** DirectoryMobiledevicesListOrderBy
390+ , DirectoryMobiledevicesListOrderBy (..)
371 -- ** Notification
392 -- ** Notification
372 , Notification
393 , Notification
373 , notification
394 , notification
@@ -380,6 +401,19 @@ module Network.Google.AdminDirectory
380 , nNotificationId
401 , nNotificationId
381 , nSendTime
402 , nSendTime
404+ -- ** DirectoryUsersListSortOrder
405+ , DirectoryUsersListSortOrder (..)
407+ -- ** DirectoryUsersAliasesListEvent
408+ , DirectoryUsersAliasesListEvent (..)
410+ -- ** UserCustomSchemas
414+ -- ** DirectoryUsersGetViewType
415+ , DirectoryUsersGetViewType (..)
383 -- ** Aliases
417 -- ** Aliases
384 , Aliases
418 , Aliases
385 , aliases
419 , aliases
@@ -406,6 +440,12 @@ module Network.Google.AdminDirectory
406 , tokAnonymous
440 , tokAnonymous
407 , tokUserKey
441 , tokUserKey
443+ -- ** ChromeOsDeviceRecentUsers
444+ , ChromeOsDeviceRecentUsers
445+ , chromeOsDeviceRecentUsers
409 -- ** UserUndelete
449 -- ** UserUndelete
410 , UserUndelete
450 , UserUndelete
411 , userUndelete
451 , userUndelete
@@ -450,6 +490,9 @@ module Network.Google.AdminDirectory
451 , aliPrimaryEmail
491 , aliPrimaryEmail
493+ -- ** DirectoryUsersAliasesWatchEvent
494+ , DirectoryUsersAliasesWatchEvent (..)
453 -- ** UserName
496 -- ** UserName
454 , UserName
497 , UserName
455 , userName
498 , userName
@@ -457,6 +500,21 @@ module Network.Google.AdminDirectory
457 , unFullName
500 , unFullName
458 , unFamilyName
501 , unFamilyName
503+ -- ** DirectoryUsersWatchSortOrder
504+ , DirectoryUsersWatchSortOrder (..)
506+ -- ** DirectoryMobiledevicesGetProjection
507+ , DirectoryMobiledevicesGetProjection (..)
509+ -- ** MobileDeviceApplications
510+ , MobileDeviceApplications
511+ , mobileDeviceApplications
460 -- ** User
518 -- ** User
@@ -505,6 +563,24 @@ module Network.Google.AdminDirectory
505 , schSchemaId
563 , schSchemaId
506 , schFields
564 , schFields
566+ -- ** DirectoryMobiledevicesListSortOrder
567+ , DirectoryMobiledevicesListSortOrder (..)
569+ -- ** DirectoryUsersListOrderBy
570+ , DirectoryUsersListOrderBy (..)
572+ -- ** DirectoryOrgunitsListType
573+ , DirectoryOrgunitsListType (..)
575+ -- ** DirectoryUsersListProjection
576+ , DirectoryUsersListProjection (..)
578+ -- ** DirectoryChromeosdevicesUpdateProjection
579+ , DirectoryChromeosdevicesUpdateProjection (..)
581+ -- ** DirectoryUsersWatchProjection
582+ , DirectoryUsersWatchProjection (..)
508 -- ** OrgUnits
584 -- ** OrgUnits
509 , OrgUnits
585 , OrgUnits
510 , orgUnits
586 , orgUnits
@@ -512,6 +588,10 @@ module Network.Google.AdminDirectory
513 , oOrganizationUnits
589 , oOrganizationUnits
515 -- ** VerificationCodes
595 -- ** VerificationCodes
516 , VerificationCodes
596 , VerificationCodes
517 , verificationCodes
597 , verificationCodes
@@ -526,6 +606,9 @@ module Network.Google.AdminDirectory
527 , urCustomType
607 , urCustomType
609+ -- ** DirectoryChromeosdevicesListOrderBy
610+ , DirectoryChromeosdevicesListOrderBy (..)
529 -- ** UserWebsite
612 -- ** UserWebsite
530 , UserWebsite
613 , UserWebsite
531 , userWebsite
614 , userWebsite
@@ -569,6 +652,12 @@ module Network.Google.AdminDirectory
570 , upPrimaryEmail
653 , upPrimaryEmail
655+ -- ** DirectoryUsersListEvent
656+ , DirectoryUsersListEvent (..)
658+ -- ** DirectoryMobiledevicesListProjection
659+ , DirectoryMobiledevicesListProjection (..)
572 -- ** UserEmail
661 -- ** UserEmail
573 , UserEmail
662 , UserEmail
574 , userEmail
663 , userEmail
@@ -587,45 +676,60 @@ module Network.Google.AdminDirectory
588 , memType
677 , memType
679+ -- ** DirectoryUsersGetProjection
680+ , DirectoryUsersGetProjection (..)
590 -- ** MobileDevice
682 -- ** MobileDevice
591 , MobileDevice
683 , MobileDevice
592 , mobileDevice
684 , mobileDevice
593− , mobEmail
685+ , mddEmail
594− , mobStatus
686+ , mddStatus
595− , mobEtag
687+ , mddEtag
596− , mobResourceId
688+ , mddResourceId
597− , mobBuildNumber
689+ , mddBuildNumber
598− , mobManagedAccountIsOnOwnerProfile
690+ , mddManagedAccountIsOnOwnerProfile
599− , mobLastSync
691+ , mddLastSync
600− , mobOtherAccountsInfo
692+ , mddOtherAccountsInfo
601− , mobKind
693+ , mddKind
602− , mobAdbStatus
694+ , mddAdbStatus
603− , mobNetworkOperator
695+ , mddNetworkOperator
604− , mobKernelVersion
696+ , mddKernelVersion
606− , mobName
698+ , mddName
607− , mobModel
699+ , mddModel
608− , mobDeveloperOptionsStatus
700+ , mddDeveloperOptionsStatus
609− , mobUnknownSourcesStatus
701+ , mddUnknownSourcesStatus
610− , mobMeid
702+ , mddMeid
611− , mobDeviceId
703+ , mddDeviceId
612− , mobFirstSync
704+ , mddFirstSync
613− , mobUserAgent
705+ , mddUserAgent
614− , mobImei
706+ , mddImei
615− , mobType
707+ , mddType
616− , mobWifiMacAddress
708+ , mddWifiMacAddress
617− , mobSerialNumber
709+ , mddSerialNumber
618− , mobHardwareId
710+ , mddHardwareId
619− , mobBasebandVersion
711+ , mddBasebandVersion
620− , mobSupportsWorkProfile
712+ , mddSupportsWorkProfile
621− , mobDeviceCompromisedStatus
713+ , mddDeviceCompromisedStatus
622− , mobApplications
714+ , mddApplications
623− , mobDefaultLanguage
715+ , mddDefaultLanguage
717+ -- ** DirectoryChromeosdevicesGetProjection
718+ , DirectoryChromeosdevicesGetProjection (..)
720+ -- ** DirectoryChromeosdevicesPatchProjection
721+ , DirectoryChromeosdevicesPatchProjection (..)
625 -- ** UserCustomProperties
723 -- ** UserCustomProperties
626 , UserCustomProperties
724 , UserCustomProperties
627 , userCustomProperties
725 , userCustomProperties
727+ -- ** SchemaFieldSpecNumericIndexingSpec
728+ , SchemaFieldSpecNumericIndexingSpec
729+ , schemaFieldSpecNumericIndexingSpec
629 -- ** MobileDeviceAction
733 -- ** MobileDeviceAction
630 , MobileDeviceAction
734 , MobileDeviceAction
631 , mobileDeviceAction
735 , mobileDeviceAction
@@ -644,6 +748,9 @@ module Network.Google.AdminDirectory
644 , sfsFieldName
748 , sfsFieldName
645 , sfsMultiValued
749 , sfsMultiValued
751+ -- ** DirectoryUsersWatchEvent
752+ , DirectoryUsersWatchEvent (..)
647 -- ** Notifications
754 -- ** Notifications
648 , Notifications
755 , Notifications
649 , notifications
756 , notifications
@@ -653,6 +760,9 @@ module Network.Google.AdminDirectory
653 , notItems
760 , notItems
654 , notUnreadNotificationsCount
761 , notUnreadNotificationsCount
763+ -- ** DirectoryChromeosdevicesListSortOrder
764+ , DirectoryChromeosdevicesListSortOrder (..)
656 -- ** UserExternalId
766 -- ** UserExternalId
657 , UserExternalId
767 , UserExternalId
658 , userExternalId
768 , userExternalId
@@ -667,6 +777,9 @@ module Network.Google.AdminDirectory
668 , aaItems
778 , aaItems
670 -- ** ChromeOsDevices
783 -- ** ChromeOsDevices
671 , ChromeOsDevices
784 , ChromeOsDevices
672 , chromeOsDevices
785 , chromeOsDevices
@@ -751,15 +864,73 @@ TODO
753type AdminDirectoryAPI =
866type AdminDirectoryAPI =
754− Groups :<|> Users :<|> Schemas :<|> Tokens :<|>
867+ GroupsAliasesInsertResource :<|>
755− Channels
868+ GroupsAliasesListResource
756− :<|> Members
869+ :<|> GroupsAliasesDeleteResource
757− :<|> Mobiledevices
870+ :<|> GroupsInsertResource
758− :<|> Orgunits
871+ :<|> GroupsListResource
759− :<|> VerificationCodes
872+ :<|> GroupsPatchResource
760− :<|> Notifications
873+ :<|> GroupsGetResource
761− :<|> Chromeosdevices
874+ :<|> GroupsDeleteResource
762− :<|> Asps
875+ :<|> GroupsUpdateResource
876+ :<|> UsersAliasesInsertResource
877+ :<|> UsersAliasesListResource
878+ :<|> UsersAliasesDeleteResource
879+ :<|> UsersAliasesWatchResource
880+ :<|> UsersPhotosPatchResource
881+ :<|> UsersPhotosGetResource
882+ :<|> UsersPhotosDeleteResource
883+ :<|> UsersPhotosUpdateResource
884+ :<|> UsersInsertResource
885+ :<|> UsersListResource
886+ :<|> UsersUndeleteResource
887+ :<|> UsersPatchResource
888+ :<|> UsersGetResource
889+ :<|> UsersMakeAdminResource
890+ :<|> UsersDeleteResource
891+ :<|> UsersUpdateResource
892+ :<|> UsersWatchResource
893+ :<|> SchemasInsertResource
894+ :<|> SchemasListResource
895+ :<|> SchemasPatchResource
896+ :<|> SchemasGetResource
897+ :<|> SchemasDeleteResource
898+ :<|> SchemasUpdateResource
899+ :<|> TokensListResource
900+ :<|> TokensGetResource
901+ :<|> TokensDeleteResource
902+ :<|> ChannelsStopResource
903+ :<|> MembersInsertResource
904+ :<|> MembersListResource
905+ :<|> MembersPatchResource
906+ :<|> MembersGetResource
907+ :<|> MembersDeleteResource
908+ :<|> MembersUpdateResource
909+ :<|> MobiledevicesListResource
910+ :<|> MobiledevicesGetResource
911+ :<|> MobiledevicesActionResource
912+ :<|> MobiledevicesDeleteResource
913+ :<|> OrgunitsInsertResource
914+ :<|> OrgunitsListResource
915+ :<|> OrgunitsPatchResource
916+ :<|> OrgunitsGetResource
917+ :<|> OrgunitsDeleteResource
918+ :<|> OrgunitsUpdateResource
919+ :<|> VerificationCodesListResource
920+ :<|> VerificationCodesGenerateResource
921+ :<|> VerificationCodesInvalidateResource
922+ :<|> NotificationsListResource
923+ :<|> NotificationsPatchResource
924+ :<|> NotificationsGetResource
925+ :<|> NotificationsDeleteResource
926+ :<|> NotificationsUpdateResource
927+ :<|> ChromeosdevicesListResource
928+ :<|> ChromeosdevicesPatchResource
929+ :<|> ChromeosdevicesGetResource
930+ :<|> ChromeosdevicesUpdateResource
931+ :<|> AspsListResource
932+ :<|> AspsGetResource
933+ :<|> AspsDeleteResource
764adminDirectoryAPI :: Proxy AdminDirectoryAPI
935adminDirectoryAPI :: Proxy AdminDirectoryAPI
765adminDirectoryAPI = Proxy
936adminDirectoryAPI = Proxy
gogol-admin-directory/gen/Network/Google/AdminDirectory/Types.hs+145−32
@@ -57,6 +57,12 @@ module Network.Google.AdminDirectory.Types
57 , userMakeAdmin
57 , userMakeAdmin
58 , umaStatus
58 , umaStatus
60+ -- * DirectoryUsersListViewType
61+ , DirectoryUsersListViewType (..)
63+ -- * DirectoryChromeosdevicesListProjection
64+ , DirectoryChromeosdevicesListProjection (..)
60 -- * UserAddress
66 -- * UserAddress
61 , UserAddress
67 , UserAddress
62 , userAddress
68 , userAddress
@@ -74,6 +80,9 @@ module Network.Google.AdminDirectory.Types
74 , uaCustomType
80 , uaCustomType
75 , uaSourceIsStructured
81 , uaSourceIsStructured
83+ -- * DirectoryUsersWatchOrderBy
84+ , DirectoryUsersWatchOrderBy (..)
77 -- * Group
86 -- * Group
@@ -88,6 +97,15 @@ module Network.Google.AdminDirectory.Types
89 , groDescription
98 , groDescription
100+ -- * ChromeOsDeviceActiveTimeRanges
101+ , ChromeOsDeviceActiveTimeRanges
102+ , chromeOsDeviceActiveTimeRanges
106+ -- * DirectoryUsersWatchViewType
107+ , DirectoryUsersWatchViewType (..)
@@ -154,6 +172,9 @@ module Network.Google.AdminDirectory.Types
155 , uiCustomType
173 , uiCustomType
175+ -- * DirectoryMobiledevicesListOrderBy
176+ , DirectoryMobiledevicesListOrderBy (..)
157 -- * Notification
178 -- * Notification
158 , Notification
179 , Notification
159 , notification
180 , notification
@@ -166,6 +187,19 @@ module Network.Google.AdminDirectory.Types
166 , nNotificationId
187 , nNotificationId
167 , nSendTime
188 , nSendTime
190+ -- * DirectoryUsersListSortOrder
191+ , DirectoryUsersListSortOrder (..)
193+ -- * DirectoryUsersAliasesListEvent
194+ , DirectoryUsersAliasesListEvent (..)
196+ -- * UserCustomSchemas
200+ -- * DirectoryUsersGetViewType
201+ , DirectoryUsersGetViewType (..)
169 -- * Aliases
203 -- * Aliases
170 , Aliases
204 , Aliases
171 , aliases
205 , aliases
@@ -192,6 +226,12 @@ module Network.Google.AdminDirectory.Types
192 , tokAnonymous
226 , tokAnonymous
193 , tokUserKey
227 , tokUserKey
229+ -- * ChromeOsDeviceRecentUsers
230+ , ChromeOsDeviceRecentUsers
231+ , chromeOsDeviceRecentUsers
195 -- * UserUndelete
235 -- * UserUndelete
196 , UserUndelete
236 , UserUndelete
197 , userUndelete
237 , userUndelete
@@ -236,6 +276,9 @@ module Network.Google.AdminDirectory.Types
237 , aliPrimaryEmail
277 , aliPrimaryEmail
279+ -- * DirectoryUsersAliasesWatchEvent
280+ , DirectoryUsersAliasesWatchEvent (..)
239 -- * UserName
282 -- * UserName
240 , UserName
283 , UserName
241 , userName
284 , userName
@@ -243,6 +286,21 @@ module Network.Google.AdminDirectory.Types
243 , unFullName
286 , unFullName
244 , unFamilyName
287 , unFamilyName
289+ -- * DirectoryUsersWatchSortOrder
290+ , DirectoryUsersWatchSortOrder (..)
292+ -- * DirectoryMobiledevicesGetProjection
293+ , DirectoryMobiledevicesGetProjection (..)
295+ -- * MobileDeviceApplications
296+ , MobileDeviceApplications
297+ , mobileDeviceApplications
246 -- * User
304 -- * User
@@ -291,6 +349,24 @@ module Network.Google.AdminDirectory.Types
291 , schSchemaId
349 , schSchemaId
292 , schFields
350 , schFields
352+ -- * DirectoryMobiledevicesListSortOrder
353+ , DirectoryMobiledevicesListSortOrder (..)
355+ -- * DirectoryUsersListOrderBy
356+ , DirectoryUsersListOrderBy (..)
358+ -- * DirectoryOrgunitsListType
359+ , DirectoryOrgunitsListType (..)
361+ -- * DirectoryUsersListProjection
362+ , DirectoryUsersListProjection (..)
364+ -- * DirectoryChromeosdevicesUpdateProjection
365+ , DirectoryChromeosdevicesUpdateProjection (..)
367+ -- * DirectoryUsersWatchProjection
368+ , DirectoryUsersWatchProjection (..)
294 -- * OrgUnits
370 -- * OrgUnits
295 , OrgUnits
371 , OrgUnits
296 , orgUnits
372 , orgUnits
@@ -298,6 +374,10 @@ module Network.Google.AdminDirectory.Types
299 , oOrganizationUnits
375 , oOrganizationUnits
301 -- * VerificationCodes
381 -- * VerificationCodes
302 , VerificationCodes
382 , VerificationCodes
303 , verificationCodes
383 , verificationCodes
@@ -312,6 +392,9 @@ module Network.Google.AdminDirectory.Types
313 , urCustomType
393 , urCustomType
395+ -- * DirectoryChromeosdevicesListOrderBy
396+ , DirectoryChromeosdevicesListOrderBy (..)
315 -- * UserWebsite
398 -- * UserWebsite
316 , UserWebsite
399 , UserWebsite
317 , userWebsite
400 , userWebsite
@@ -355,6 +438,12 @@ module Network.Google.AdminDirectory.Types
356 , upPrimaryEmail
439 , upPrimaryEmail
441+ -- * DirectoryUsersListEvent
442+ , DirectoryUsersListEvent (..)
444+ -- * DirectoryMobiledevicesListProjection
445+ , DirectoryMobiledevicesListProjection (..)
358 -- * UserEmail
447 -- * UserEmail
359 , UserEmail
448 , UserEmail
360 , userEmail
449 , userEmail
@@ -373,45 +462,60 @@ module Network.Google.AdminDirectory.Types
374 , memType
463 , memType
465+ -- * DirectoryUsersGetProjection
466+ , DirectoryUsersGetProjection (..)
376 -- * MobileDevice
468 -- * MobileDevice
377 , MobileDevice
469 , MobileDevice
378 , mobileDevice
470 , mobileDevice
379− , mobEmail
471+ , mddEmail
380− , mobStatus
472+ , mddStatus
381− , mobEtag
473+ , mddEtag
382− , mobResourceId
474+ , mddResourceId
383− , mobBuildNumber
475+ , mddBuildNumber
384− , mobManagedAccountIsOnOwnerProfile
476+ , mddManagedAccountIsOnOwnerProfile
385− , mobLastSync
477+ , mddLastSync
386− , mobOtherAccountsInfo
478+ , mddOtherAccountsInfo
387− , mobKind
479+ , mddKind
388− , mobAdbStatus
480+ , mddAdbStatus
389− , mobNetworkOperator
481+ , mddNetworkOperator
390− , mobKernelVersion
482+ , mddKernelVersion
392− , mobName
484+ , mddName
393− , mobModel
485+ , mddModel
394− , mobDeveloperOptionsStatus
486+ , mddDeveloperOptionsStatus
395− , mobUnknownSourcesStatus
487+ , mddUnknownSourcesStatus
396− , mobMeid
488+ , mddMeid
397− , mobDeviceId
489+ , mddDeviceId
398− , mobFirstSync
490+ , mddFirstSync
399− , mobUserAgent
491+ , mddUserAgent
400− , mobImei
492+ , mddImei
401− , mobType
493+ , mddType
402− , mobWifiMacAddress
494+ , mddWifiMacAddress
403− , mobSerialNumber
495+ , mddSerialNumber
404− , mobHardwareId
496+ , mddHardwareId
405− , mobBasebandVersion
497+ , mddBasebandVersion
406− , mobSupportsWorkProfile
498+ , mddSupportsWorkProfile
407− , mobDeviceCompromisedStatus
499+ , mddDeviceCompromisedStatus
408− , mobApplications
500+ , mddApplications
409− , mobDefaultLanguage
501+ , mddDefaultLanguage
503+ -- * DirectoryChromeosdevicesGetProjection
504+ , DirectoryChromeosdevicesGetProjection (..)
506+ -- * DirectoryChromeosdevicesPatchProjection
507+ , DirectoryChromeosdevicesPatchProjection (..)
411 -- * UserCustomProperties
509 -- * UserCustomProperties
412 , UserCustomProperties
510 , UserCustomProperties
413 , userCustomProperties
511 , userCustomProperties
513+ -- * SchemaFieldSpecNumericIndexingSpec
514+ , SchemaFieldSpecNumericIndexingSpec
515+ , schemaFieldSpecNumericIndexingSpec
415 -- * MobileDeviceAction
519 -- * MobileDeviceAction
416 , MobileDeviceAction
520 , MobileDeviceAction
417 , mobileDeviceAction
521 , mobileDeviceAction
@@ -430,6 +534,9 @@ module Network.Google.AdminDirectory.Types
430 , sfsFieldName
534 , sfsFieldName
431 , sfsMultiValued
535 , sfsMultiValued
537+ -- * DirectoryUsersWatchEvent
538+ , DirectoryUsersWatchEvent (..)
433 -- * Notifications
540 -- * Notifications
434 , Notifications
541 , Notifications
435 , notifications
542 , notifications
@@ -439,6 +546,9 @@ module Network.Google.AdminDirectory.Types
439 , notItems
546 , notItems
440 , notUnreadNotificationsCount
547 , notUnreadNotificationsCount
549+ -- * DirectoryChromeosdevicesListSortOrder
550+ , DirectoryChromeosdevicesListSortOrder (..)
442 -- * UserExternalId
552 -- * UserExternalId
443 , UserExternalId
553 , UserExternalId
444 , userExternalId
554 , userExternalId
@@ -453,6 +563,9 @@ module Network.Google.AdminDirectory.Types
454 , aaItems
564 , aaItems
456 -- * ChromeOsDevices
569 -- * ChromeOsDevices
457 , ChromeOsDevices
570 , ChromeOsDevices
458 , chromeOsDevices
571 , chromeOsDevices
@@ -467,7 +580,7 @@ import Network.Google.AdminDirectory.Types.Sum
467import Network.Google.Prelude
580import Network.Google.Prelude
469-- | URL referring to version 'directory_v1' of the Admin Directory API.
582-- | URL referring to version 'directory_v1' of the Admin Directory API.
470−adminDirectoryURL :: BaseURL
583+adminDirectoryURL :: BaseUrl
471adminDirectoryURL
584adminDirectoryURL
472 = BaseUrl Https
585 = BaseUrl Https
473 "https://www.googleapis.com/admin/directory/v1/"
586 "https://www.googleapis.com/admin/directory/v1/"
gogol-admin-directory/gen/Network/Google/AdminDirectory/Types/Product.hs+525−246
@@ -676,6 +676,54 @@ instance ToJSON Group where
676 ("id" .=) <$> _groId,
676 ("id" .=) <$> _groId,
677 ("description" .=) <$> _groDescription])
677 ("description" .=) <$> _groDescription])
680+-- /See:/ 'chromeOsDeviceActiveTimeRanges' smart constructor.
681+data ChromeOsDeviceActiveTimeRanges = ChromeOsDeviceActiveTimeRanges
682+ { _codatrDate :: !(Maybe UTCTime)
683+ , _codatrActiveTime :: !(Maybe Int32)
684+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
686+-- | Creates a value of 'ChromeOsDeviceActiveTimeRanges' with the minimum fields required to make a request.
688+-- Use one of the following lenses to modify other fields as desired:
692+-- * 'codatrActiveTime'
693+chromeOsDeviceActiveTimeRanges
694+ :: ChromeOsDeviceActiveTimeRanges
695+chromeOsDeviceActiveTimeRanges =
696+ ChromeOsDeviceActiveTimeRanges
697+ { _codatrDate = Nothing
698+ , _codatrActiveTime = Nothing
702+codatrDate :: Lens' ChromeOsDeviceActiveTimeRanges (Maybe UTCTime)
704+ = lens _codatrDate (\ s a -> s{_codatrDate = a})
706+-- | Duration in milliseconds
707+codatrActiveTime :: Lens' ChromeOsDeviceActiveTimeRanges (Maybe Int32)
709+ = lens _codatrActiveTime
710+ (\ s a -> s{_codatrActiveTime = a})
712+instance FromJSON ChromeOsDeviceActiveTimeRanges
715+ = withObject "ChromeOsDeviceActiveTimeRanges"
717+ ChromeOsDeviceActiveTimeRanges <$>
718+ (o .:? "date") <*> (o .:? "activeTime"))
720+instance ToJSON ChromeOsDeviceActiveTimeRanges where
721+ toJSON ChromeOsDeviceActiveTimeRanges{..}
724+ [("date" .=) <$> _codatrDate,
725+ ("activeTime" .=) <$> _codatrActiveTime])
679-- | The template that returns individual ASP (Access Code) data.
727-- | The template that returns individual ASP (Access Code) data.
681-- /See:/ 'asp' smart constructor.
729-- /See:/ 'asp' smart constructor.
@@ -844,14 +892,14 @@ data ChromeOsDevice = ChromeOsDevice
844 , _codAnnotatedUser :: !(Maybe Text)
892 , _codAnnotatedUser :: !(Maybe Text)
845 , _codPlatformVersion :: !(Maybe Text)
893 , _codPlatformVersion :: !(Maybe Text)
846 , _codLastSync :: !(Maybe UTCTime)
894 , _codLastSync :: !(Maybe UTCTime)
847− , _codActiveTimeRanges :: !(Maybe [ChromeOsDeviceActiveTimeRangesItem])
895+ , _codActiveTimeRanges :: !(Maybe [ChromeOsDeviceActiveTimeRanges])
848 , _codKind :: !Text
896 , _codKind :: !Text
849 , _codEthernetMacAddress :: !(Maybe Text)
897 , _codEthernetMacAddress :: !(Maybe Text)
850 , _codLastEnrollmentTime :: !(Maybe UTCTime)
898 , _codLastEnrollmentTime :: !(Maybe UTCTime)
851 , _codAnnotatedLocation :: !(Maybe Text)
899 , _codAnnotatedLocation :: !(Maybe Text)
852 , _codMacAddress :: !(Maybe Text)
900 , _codMacAddress :: !(Maybe Text)
853 , _codOrgUnitPath :: !(Maybe Text)
901 , _codOrgUnitPath :: !(Maybe Text)
854− , _codRecentUsers :: !(Maybe [ChromeOsDeviceRecentUsersItem])
902+ , _codRecentUsers :: !(Maybe [ChromeOsDeviceRecentUsers])
855 , _codSupportEndDate :: !(Maybe UTCTime)
903 , _codSupportEndDate :: !(Maybe UTCTime)
856 , _codModel :: !(Maybe Text)
904 , _codModel :: !(Maybe Text)
857 , _codWillAutoRenew :: !(Maybe Bool)
905 , _codWillAutoRenew :: !(Maybe Bool)
@@ -978,7 +1026,7 @@ codLastSync
978 = lens _codLastSync (\ s a -> s{_codLastSync = a})
1026 = lens _codLastSync (\ s a -> s{_codLastSync = a})
980-- | List of active time ranges (Read-only)
1028-- | List of active time ranges (Read-only)
981−codActiveTimeRanges :: Lens' ChromeOsDevice [ChromeOsDeviceActiveTimeRangesItem]
1029+codActiveTimeRanges :: Lens' ChromeOsDevice [ChromeOsDeviceActiveTimeRanges]
982codActiveTimeRanges
1030codActiveTimeRanges
983 = lens _codActiveTimeRanges
1031 = lens _codActiveTimeRanges
984 (\ s a -> s{_codActiveTimeRanges = a})
1032 (\ s a -> s{_codActiveTimeRanges = a})
@@ -1021,7 +1069,7 @@ codOrgUnitPath
1022-- | List of recent device users, in descending order by last login time
1070-- | List of recent device users, in descending order by last login time
1023-- (Read-only)
1071-- (Read-only)
1024−codRecentUsers :: Lens' ChromeOsDevice [ChromeOsDeviceRecentUsersItem]
1072+codRecentUsers :: Lens' ChromeOsDevice [ChromeOsDeviceRecentUsers]
1025codRecentUsers
1073codRecentUsers
1026 = lens _codRecentUsers
1074 = lens _codRecentUsers
1027 (\ s a -> s{_codRecentUsers = a})
1075 (\ s a -> s{_codRecentUsers = a})
@@ -1438,6 +1486,27 @@ instance ToJSON Notification where
1438 ("notificationId" .=) <$> _nNotificationId,
1486 ("notificationId" .=) <$> _nNotificationId,
1439 ("sendTime" .=) <$> _nSendTime])
1487 ("sendTime" .=) <$> _nSendTime])
1489+-- | Custom fields of the user.
1491+-- /See:/ 'userCustomSchemas' smart constructor.
1492+data UserCustomSchemas =
1494+ deriving (Eq,Read,Show,Data,Typeable,Generic)
1496+-- | Creates a value of 'UserCustomSchemas' with the minimum fields required to make a request.
1499+ :: UserCustomSchemas
1500+userCustomSchemas = UserCustomSchemas
1502+instance FromJSON UserCustomSchemas where
1504+ = withObject "UserCustomSchemas"
1505+ (\ o -> pure UserCustomSchemas)
1507+instance ToJSON UserCustomSchemas where
1508+ toJSON = const (Object mempty)
1441-- | JSON response template to list aliases in Directory API.
1510-- | JSON response template to list aliases in Directory API.
1443-- /See:/ 'aliases' smart constructor.
1512-- /See:/ 'aliases' smart constructor.
@@ -1669,6 +1738,52 @@ instance ToJSON Token where
1669 ("anonymous" .=) <$> _tokAnonymous,
1738 ("anonymous" .=) <$> _tokAnonymous,
1670 ("userKey" .=) <$> _tokUserKey])
1739 ("userKey" .=) <$> _tokUserKey])
1742+-- /See:/ 'chromeOsDeviceRecentUsers' smart constructor.
1743+data ChromeOsDeviceRecentUsers = ChromeOsDeviceRecentUsers
1744+ { _codruEmail :: !(Maybe Text)
1745+ , _codruType :: !(Maybe Text)
1746+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
1748+-- | Creates a value of 'ChromeOsDeviceRecentUsers' with the minimum fields required to make a request.
1750+-- Use one of the following lenses to modify other fields as desired:
1755+chromeOsDeviceRecentUsers
1756+ :: ChromeOsDeviceRecentUsers
1757+chromeOsDeviceRecentUsers =
1758+ ChromeOsDeviceRecentUsers
1759+ { _codruEmail = Nothing
1760+ , _codruType = Nothing
1763+-- | Email address of the user. Present only if the user type is managed
1764+codruEmail :: Lens' ChromeOsDeviceRecentUsers (Maybe Text)
1766+ = lens _codruEmail (\ s a -> s{_codruEmail = a})
1768+-- | The type of the user
1769+codruType :: Lens' ChromeOsDeviceRecentUsers (Maybe Text)
1771+ = lens _codruType (\ s a -> s{_codruType = a})
1773+instance FromJSON ChromeOsDeviceRecentUsers where
1775+ = withObject "ChromeOsDeviceRecentUsers"
1777+ ChromeOsDeviceRecentUsers <$>
1778+ (o .:? "email") <*> (o .:? "type"))
1780+instance ToJSON ChromeOsDeviceRecentUsers where
1781+ toJSON ChromeOsDeviceRecentUsers{..}
1784+ [("email" .=) <$> _codruEmail,
1785+ ("type" .=) <$> _codruType])
1672-- | JSON request template to undelete a user in Directory API.
1787-- | JSON request template to undelete a user in Directory API.
1674-- /See:/ 'userUndelete' smart constructor.
1789-- /See:/ 'userUndelete' smart constructor.
@@ -2111,6 +2226,92 @@ instance ToJSON UserName where
2111 ("fullName" .=) <$> _unFullName,
2226 ("fullName" .=) <$> _unFullName,
2112 ("familyName" .=) <$> _unFamilyName])
2227 ("familyName" .=) <$> _unFamilyName])
2230+-- /See:/ 'mobileDeviceApplications' smart constructor.
2231+data MobileDeviceApplications = MobileDeviceApplications
2232+ { _mdaVersionCode :: !(Maybe Int32)
2233+ , _mdaVersionName :: !(Maybe Text)
2234+ , _mdaPackageName :: !(Maybe Text)
2235+ , _mdaDisplayName :: !(Maybe Text)
2236+ , _mdaPermission :: !(Maybe [Text])
2237+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
2239+-- | Creates a value of 'MobileDeviceApplications' with the minimum fields required to make a request.
2241+-- Use one of the following lenses to modify other fields as desired:
2243+-- * 'mdaVersionCode'
2245+-- * 'mdaVersionName'
2247+-- * 'mdaPackageName'
2249+-- * 'mdaDisplayName'
2251+-- * 'mdaPermission'
2252+mobileDeviceApplications
2253+ :: MobileDeviceApplications
2254+mobileDeviceApplications =
2255+ MobileDeviceApplications
2256+ { _mdaVersionCode = Nothing
2257+ , _mdaVersionName = Nothing
2258+ , _mdaPackageName = Nothing
2259+ , _mdaDisplayName = Nothing
2260+ , _mdaPermission = Nothing
2263+-- | Version code of application
2264+mdaVersionCode :: Lens' MobileDeviceApplications (Maybe Int32)
2266+ = lens _mdaVersionCode
2267+ (\ s a -> s{_mdaVersionCode = a})
2269+-- | Version name of application
2270+mdaVersionName :: Lens' MobileDeviceApplications (Maybe Text)
2272+ = lens _mdaVersionName
2273+ (\ s a -> s{_mdaVersionName = a})
2275+-- | Package name of application
2276+mdaPackageName :: Lens' MobileDeviceApplications (Maybe Text)
2278+ = lens _mdaPackageName
2279+ (\ s a -> s{_mdaPackageName = a})
2281+-- | Display name of application
2282+mdaDisplayName :: Lens' MobileDeviceApplications (Maybe Text)
2284+ = lens _mdaDisplayName
2285+ (\ s a -> s{_mdaDisplayName = a})
2287+-- | List of Permissions for application
2288+mdaPermission :: Lens' MobileDeviceApplications [Text]
2290+ = lens _mdaPermission
2291+ (\ s a -> s{_mdaPermission = a})
2295+instance FromJSON MobileDeviceApplications where
2297+ = withObject "MobileDeviceApplications"
2299+ MobileDeviceApplications <$>
2300+ (o .:? "versionCode") <*> (o .:? "versionName") <*>
2301+ (o .:? "packageName")
2302+ <*> (o .:? "displayName")
2303+ <*> (o .:? "permission" .!= mempty))
2305+instance ToJSON MobileDeviceApplications where
2306+ toJSON MobileDeviceApplications{..}
2309+ [("versionCode" .=) <$> _mdaVersionCode,
2310+ ("versionName" .=) <$> _mdaVersionName,
2311+ ("packageName" .=) <$> _mdaPackageName,
2312+ ("displayName" .=) <$> _mdaDisplayName,
2313+ ("permission" .=) <$> _mdaPermission])
2114-- | JSON template for User object in Directory API.
2315-- | JSON template for User object in Directory API.
2116-- /See:/ 'user' smart constructor.
2317-- /See:/ 'user' smart constructor.
@@ -2120,15 +2321,15 @@ data User = User
2120 , _useThumbnailPhotoEtag :: !(Maybe Text)
2321 , _useThumbnailPhotoEtag :: !(Maybe Text)
2121 , _useEtag :: !(Maybe Text)
2322 , _useEtag :: !(Maybe Text)
2122 , _useIpWhitelisted :: !(Maybe Bool)
2323 , _useIpWhitelisted :: !(Maybe Bool)
2123− , _useRelations :: !(Maybe JSON)
2324+ , _useRelations :: !(Maybe JSONValue)
2124 , _useHashFunction :: !(Maybe Text)
2325 , _useHashFunction :: !(Maybe Text)
2125 , _useKind :: !Text
2326 , _useKind :: !Text
2126 , _useChangePasswordAtNextLogin :: !(Maybe Bool)
2327 , _useChangePasswordAtNextLogin :: !(Maybe Bool)
2127− , _useWebsites :: !(Maybe JSON)
2328+ , _useWebsites :: !(Maybe JSONValue)
2128− , _useAddresses :: !(Maybe JSON)
2329+ , _useAddresses :: !(Maybe JSONValue)
2129 , _useAliases :: !(Maybe [Text])
2330 , _useAliases :: !(Maybe [Text])
2130 , _useThumbnailPhotoUrl :: !(Maybe Text)
2331 , _useThumbnailPhotoUrl :: !(Maybe Text)
2131− , _useExternalIds :: !(Maybe JSON)
2332+ , _useExternalIds :: !(Maybe JSONValue)
2132 , _useSuspended :: !(Maybe Bool)
2333 , _useSuspended :: !(Maybe Bool)
2133 , _useAgreedToTerms :: !(Maybe Bool)
2334 , _useAgreedToTerms :: !(Maybe Bool)
2134 , _useDeletionTime :: !(Maybe UTCTime)
2335 , _useDeletionTime :: !(Maybe UTCTime)
@@ -2136,16 +2337,16 @@ data User = User
2136 , _useOrgUnitPath :: !(Maybe Text)
2337 , _useOrgUnitPath :: !(Maybe Text)
2137 , _useCustomerId :: !(Maybe Text)
2338 , _useCustomerId :: !(Maybe Text)
2138 , _useIncludeInGlobalAddressList :: !(Maybe Bool)
2339 , _useIncludeInGlobalAddressList :: !(Maybe Bool)
2139− , _usePhones :: !(Maybe JSON)
2340+ , _usePhones :: !(Maybe JSONValue)
2140 , _useName :: !(Maybe (Maybe UserName))
2341 , _useName :: !(Maybe (Maybe UserName))
2141 , _usePassword :: !(Maybe Text)
2342 , _usePassword :: !(Maybe Text)
2142− , _useEmails :: !(Maybe JSON)
2343+ , _useEmails :: !(Maybe JSONValue)
2143− , _useIms :: !(Maybe JSON)
2344+ , _useIms :: !(Maybe JSONValue)
2144 , _useIsAdmin :: !(Maybe Bool)
2345 , _useIsAdmin :: !(Maybe Bool)
2145 , _useId :: !(Maybe Text)
2346 , _useId :: !(Maybe Text)
2146− , _useOrganizations :: !(Maybe JSON)
2347+ , _useOrganizations :: !(Maybe JSONValue)
2147 , _usePrimaryEmail :: !(Maybe Text)
2348 , _usePrimaryEmail :: !(Maybe Text)
2148− , _useNotes :: !(Maybe JSON)
2349+ , _useNotes :: !(Maybe JSONValue)
2149 , _useIsDelegatedAdmin :: !(Maybe Bool)
2350 , _useIsDelegatedAdmin :: !(Maybe Bool)
2150 , _useIsMailboxSetup :: !(Maybe Bool)
2351 , _useIsMailboxSetup :: !(Maybe Bool)
2151 , _useCustomSchemas :: !(Maybe UserCustomSchemas)
2352 , _useCustomSchemas :: !(Maybe UserCustomSchemas)
@@ -2294,7 +2495,7 @@ useIpWhitelisted
2294 = lens _useIpWhitelisted
2495 = lens _useIpWhitelisted
2295 (\ s a -> s{_useIpWhitelisted = a})
2496 (\ s a -> s{_useIpWhitelisted = a})
2297−useRelations :: Lens' User (Maybe JSON)
2498+useRelations :: Lens' User (Maybe JSONValue)
2298useRelations
2499useRelations
2299 = lens _useRelations (\ s a -> s{_useRelations = a})
2500 = lens _useRelations (\ s a -> s{_useRelations = a})
@@ -2314,11 +2515,11 @@ useChangePasswordAtNextLogin
2314 = lens _useChangePasswordAtNextLogin
2515 = lens _useChangePasswordAtNextLogin
2315 (\ s a -> s{_useChangePasswordAtNextLogin = a})
2516 (\ s a -> s{_useChangePasswordAtNextLogin = a})
2317−useWebsites :: Lens' User (Maybe JSON)
2518+useWebsites :: Lens' User (Maybe JSONValue)
2318useWebsites
2519useWebsites
2319 = lens _useWebsites (\ s a -> s{_useWebsites = a})
2520 = lens _useWebsites (\ s a -> s{_useWebsites = a})
2321−useAddresses :: Lens' User (Maybe JSON)
2522+useAddresses :: Lens' User (Maybe JSONValue)
2322useAddresses
2523useAddresses
2323 = lens _useAddresses (\ s a -> s{_useAddresses = a})
2524 = lens _useAddresses (\ s a -> s{_useAddresses = a})
@@ -2335,7 +2536,7 @@ useThumbnailPhotoUrl
2335 = lens _useThumbnailPhotoUrl
2536 = lens _useThumbnailPhotoUrl
2336 (\ s a -> s{_useThumbnailPhotoUrl = a})
2537 (\ s a -> s{_useThumbnailPhotoUrl = a})
2338−useExternalIds :: Lens' User (Maybe JSON)
2539+useExternalIds :: Lens' User (Maybe JSONValue)
2339useExternalIds
2540useExternalIds
2340 = lens _useExternalIds
2541 = lens _useExternalIds
2341 (\ s a -> s{_useExternalIds = a})
2542 (\ s a -> s{_useExternalIds = a})
@@ -2382,7 +2583,7 @@ useIncludeInGlobalAddressList
2382 = lens _useIncludeInGlobalAddressList
2583 = lens _useIncludeInGlobalAddressList
2383 (\ s a -> s{_useIncludeInGlobalAddressList = a})
2584 (\ s a -> s{_useIncludeInGlobalAddressList = a})
2385−usePhones :: Lens' User (Maybe JSON)
2586+usePhones :: Lens' User (Maybe JSONValue)
2386usePhones
2587usePhones
2387 = lens _usePhones (\ s a -> s{_usePhones = a})
2588 = lens _usePhones (\ s a -> s{_usePhones = a})
@@ -2395,11 +2596,11 @@ usePassword :: Lens' User (Maybe Text)
2395usePassword
2596usePassword
2396 = lens _usePassword (\ s a -> s{_usePassword = a})
2597 = lens _usePassword (\ s a -> s{_usePassword = a})
2398−useEmails :: Lens' User (Maybe JSON)
2599+useEmails :: Lens' User (Maybe JSONValue)
2399useEmails
2600useEmails
2400 = lens _useEmails (\ s a -> s{_useEmails = a})
2601 = lens _useEmails (\ s a -> s{_useEmails = a})
2402−useIms :: Lens' User (Maybe JSON)
2603+useIms :: Lens' User (Maybe JSONValue)
2403useIms = lens _useIms (\ s a -> s{_useIms = a})
2604useIms = lens _useIms (\ s a -> s{_useIms = a})
2405-- | Boolean indicating if the user is admin (Read-only)
2606-- | Boolean indicating if the user is admin (Read-only)
@@ -2411,7 +2612,7 @@ useIsAdmin
2411useId :: Lens' User (Maybe Text)
2612useId :: Lens' User (Maybe Text)
2412useId = lens _useId (\ s a -> s{_useId = a})
2613useId = lens _useId (\ s a -> s{_useId = a})
2414−useOrganizations :: Lens' User (Maybe JSON)
2615+useOrganizations :: Lens' User (Maybe JSONValue)
2415useOrganizations
2616useOrganizations
2416 = lens _useOrganizations
2617 = lens _useOrganizations
2417 (\ s a -> s{_useOrganizations = a})
2618 (\ s a -> s{_useOrganizations = a})
@@ -2422,7 +2623,7 @@ usePrimaryEmail
2422 = lens _usePrimaryEmail
2623 = lens _usePrimaryEmail
2423 (\ s a -> s{_usePrimaryEmail = a})
2624 (\ s a -> s{_usePrimaryEmail = a})
2425−useNotes :: Lens' User (Maybe JSON)
2626+useNotes :: Lens' User (Maybe JSONValue)
2426useNotes = lens _useNotes (\ s a -> s{_useNotes = a})
2627useNotes = lens _useNotes (\ s a -> s{_useNotes = a})
2428-- | Boolean indicating if the user is delegated admin (Read-only)
2629-- | Boolean indicating if the user is delegated admin (Read-only)
@@ -2670,6 +2871,27 @@ instance ToJSON OrgUnits where
2670 [("etag" .=) <$> _oEtag, Just ("kind" .= _oKind),
2871 [("etag" .=) <$> _oEtag, Just ("kind" .= _oKind),
2671 ("organizationUnits" .=) <$> _oOrganizationUnits])
2872 ("organizationUnits" .=) <$> _oOrganizationUnits])
2874+-- | Additional parameters controlling delivery channel behavior. Optional.
2876+-- /See:/ 'channelParams' smart constructor.
2877+data ChannelParams =
2879+ deriving (Eq,Read,Show,Data,Typeable,Generic)
2881+-- | Creates a value of 'ChannelParams' with the minimum fields required to make a request.
2885+channelParams = ChannelParams
2887+instance FromJSON ChannelParams where
2889+ = withObject "ChannelParams"
2890+ (\ o -> pure ChannelParams)
2892+instance ToJSON ChannelParams where
2893+ toJSON = const (Object mempty)
2673-- | JSON response template for List verification codes operation in
2895-- | JSON response template for List verification codes operation in
2674-- Directory API.
2896-- Directory API.
@@ -3340,314 +3562,314 @@ instance ToJSON Member where
3341-- /See:/ 'mobileDevice' smart constructor.
3563-- /See:/ 'mobileDevice' smart constructor.
3342data MobileDevice = MobileDevice
3564data MobileDevice = MobileDevice
3343− { _mobEmail :: !(Maybe [Text])
3565+ { _mddEmail :: !(Maybe [Text])
3344− , _mobStatus :: !(Maybe Text)
3566+ , _mddStatus :: !(Maybe Text)
3345− , _mobEtag :: !(Maybe Text)
3567+ , _mddEtag :: !(Maybe Text)
3346− , _mobResourceId :: !(Maybe Text)
3568+ , _mddResourceId :: !(Maybe Text)
3347− , _mobBuildNumber :: !(Maybe Text)
3569+ , _mddBuildNumber :: !(Maybe Text)
3348− , _mobManagedAccountIsOnOwnerProfile :: !(Maybe Bool)
3570+ , _mddManagedAccountIsOnOwnerProfile :: !(Maybe Bool)
3349− , _mobLastSync :: !(Maybe UTCTime)
3571+ , _mddLastSync :: !(Maybe UTCTime)
3350− , _mobOtherAccountsInfo :: !(Maybe [Text])
3572+ , _mddOtherAccountsInfo :: !(Maybe [Text])
3351− , _mobKind :: !Text
3573+ , _mddKind :: !Text
3352− , _mobAdbStatus :: !(Maybe Bool)
3574+ , _mddAdbStatus :: !(Maybe Bool)
3353− , _mobNetworkOperator :: !(Maybe Text)
3575+ , _mddNetworkOperator :: !(Maybe Text)
3354− , _mobKernelVersion :: !(Maybe Text)
3576+ , _mddKernelVersion :: !(Maybe Text)
3355− , _mobOs :: !(Maybe Text)
3577+ , _mddOs :: !(Maybe Text)
3356− , _mobName :: !(Maybe [Text])
3578+ , _mddName :: !(Maybe [Text])
3357− , _mobModel :: !(Maybe Text)
3579+ , _mddModel :: !(Maybe Text)
3358− , _mobDeveloperOptionsStatus :: !(Maybe Bool)
3580+ , _mddDeveloperOptionsStatus :: !(Maybe Bool)
3359− , _mobUnknownSourcesStatus :: !(Maybe Bool)
3581+ , _mddUnknownSourcesStatus :: !(Maybe Bool)
3360− , _mobMeid :: !(Maybe Text)
3582+ , _mddMeid :: !(Maybe Text)
3361− , _mobDeviceId :: !(Maybe Text)
3583+ , _mddDeviceId :: !(Maybe Text)
3362− , _mobFirstSync :: !(Maybe UTCTime)
3584+ , _mddFirstSync :: !(Maybe UTCTime)
3363− , _mobUserAgent :: !(Maybe Text)
3585+ , _mddUserAgent :: !(Maybe Text)
3364− , _mobImei :: !(Maybe Text)
3586+ , _mddImei :: !(Maybe Text)
3365− , _mobType :: !(Maybe Text)
3587+ , _mddType :: !(Maybe Text)
3366− , _mobWifiMacAddress :: !(Maybe Text)
3588+ , _mddWifiMacAddress :: !(Maybe Text)
3367− , _mobSerialNumber :: !(Maybe Text)
3589+ , _mddSerialNumber :: !(Maybe Text)
3368− , _mobHardwareId :: !(Maybe Text)
3590+ , _mddHardwareId :: !(Maybe Text)
3369− , _mobBasebandVersion :: !(Maybe Text)
3591+ , _mddBasebandVersion :: !(Maybe Text)
3370− , _mobSupportsWorkProfile :: !(Maybe Bool)
3592+ , _mddSupportsWorkProfile :: !(Maybe Bool)
3371− , _mobDeviceCompromisedStatus :: !(Maybe Text)
3593+ , _mddDeviceCompromisedStatus :: !(Maybe Text)
3372− , _mobApplications :: !(Maybe [MobileDeviceApplicationsItem])
3594+ , _mddApplications :: !(Maybe [MobileDeviceApplications])
3373− , _mobDefaultLanguage :: !(Maybe Text)
3595+ , _mddDefaultLanguage :: !(Maybe Text)
3374 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3596 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3376-- | Creates a value of 'MobileDevice' with the minimum fields required to make a request.
3598-- | Creates a value of 'MobileDevice' with the minimum fields required to make a request.
3378-- Use one of the following lenses to modify other fields as desired:
3600-- Use one of the following lenses to modify other fields as desired:
3380−-- * 'mobEmail'
3602+-- * 'mddEmail'
3382−-- * 'mobStatus'
3604+-- * 'mddStatus'
3384−-- * 'mobEtag'
3606+-- * 'mddEtag'
3386−-- * 'mobResourceId'
3608+-- * 'mddResourceId'
3388−-- * 'mobBuildNumber'
3610+-- * 'mddBuildNumber'
3390−-- * 'mobManagedAccountIsOnOwnerProfile'
3612+-- * 'mddManagedAccountIsOnOwnerProfile'
3392−-- * 'mobLastSync'
3614+-- * 'mddLastSync'
3394−-- * 'mobOtherAccountsInfo'
3616+-- * 'mddOtherAccountsInfo'
3396−-- * 'mobKind'
3618+-- * 'mddKind'
3398−-- * 'mobAdbStatus'
3620+-- * 'mddAdbStatus'
3400−-- * 'mobNetworkOperator'
3622+-- * 'mddNetworkOperator'
3402−-- * 'mobKernelVersion'
3624+-- * 'mddKernelVersion'
3404−-- * 'mobOs'
3626+-- * 'mddOs'
3406−-- * 'mobName'
3628+-- * 'mddName'
3408−-- * 'mobModel'
3630+-- * 'mddModel'
3410−-- * 'mobDeveloperOptionsStatus'
3632+-- * 'mddDeveloperOptionsStatus'
3412−-- * 'mobUnknownSourcesStatus'
3634+-- * 'mddUnknownSourcesStatus'
3414−-- * 'mobMeid'
3636+-- * 'mddMeid'
3416−-- * 'mobDeviceId'
3638+-- * 'mddDeviceId'
3418−-- * 'mobFirstSync'
3640+-- * 'mddFirstSync'
3420−-- * 'mobUserAgent'
3642+-- * 'mddUserAgent'
3422−-- * 'mobImei'
3644+-- * 'mddImei'
3424−-- * 'mobType'
3646+-- * 'mddType'
3426−-- * 'mobWifiMacAddress'
3648+-- * 'mddWifiMacAddress'
3428−-- * 'mobSerialNumber'
3650+-- * 'mddSerialNumber'
3430−-- * 'mobHardwareId'
3652+-- * 'mddHardwareId'
3432−-- * 'mobBasebandVersion'
3654+-- * 'mddBasebandVersion'
3434−-- * 'mobSupportsWorkProfile'
3656+-- * 'mddSupportsWorkProfile'
3436−-- * 'mobDeviceCompromisedStatus'
3658+-- * 'mddDeviceCompromisedStatus'
3438−-- * 'mobApplications'
3660+-- * 'mddApplications'
3440−-- * 'mobDefaultLanguage'
3662+-- * 'mddDefaultLanguage'
3441mobileDevice
3663mobileDevice
3442 :: MobileDevice
3664 :: MobileDevice
3443mobileDevice =
3665mobileDevice =
3444 MobileDevice
3666 MobileDevice
3445− { _mobEmail = Nothing
3667+ { _mddEmail = Nothing
3446− , _mobStatus = Nothing
3668+ , _mddStatus = Nothing
3447− , _mobEtag = Nothing
3669+ , _mddEtag = Nothing
3448− , _mobResourceId = Nothing
3670+ , _mddResourceId = Nothing
3449− , _mobBuildNumber = Nothing
3671+ , _mddBuildNumber = Nothing
3450− , _mobManagedAccountIsOnOwnerProfile = Nothing
3672+ , _mddManagedAccountIsOnOwnerProfile = Nothing
3451− , _mobLastSync = Nothing
3673+ , _mddLastSync = Nothing
3452− , _mobOtherAccountsInfo = Nothing
3674+ , _mddOtherAccountsInfo = Nothing
3453− , _mobKind = "admin#directory#mobiledevice"
3675+ , _mddKind = "admin#directory#mobiledevice"
3454− , _mobAdbStatus = Nothing
3676+ , _mddAdbStatus = Nothing
3455− , _mobNetworkOperator = Nothing
3677+ , _mddNetworkOperator = Nothing
3456− , _mobKernelVersion = Nothing
3678+ , _mddKernelVersion = Nothing
3457− , _mobOs = Nothing
3679+ , _mddOs = Nothing
3458− , _mobName = Nothing
3680+ , _mddName = Nothing
3459− , _mobModel = Nothing
3681+ , _mddModel = Nothing
3460− , _mobDeveloperOptionsStatus = Nothing
3682+ , _mddDeveloperOptionsStatus = Nothing
3461− , _mobUnknownSourcesStatus = Nothing
3683+ , _mddUnknownSourcesStatus = Nothing
3462− , _mobMeid = Nothing
3684+ , _mddMeid = Nothing
3463− , _mobDeviceId = Nothing
3685+ , _mddDeviceId = Nothing
3464− , _mobFirstSync = Nothing
3686+ , _mddFirstSync = Nothing
3465− , _mobUserAgent = Nothing
3687+ , _mddUserAgent = Nothing
3466− , _mobImei = Nothing
3688+ , _mddImei = Nothing
3467− , _mobType = Nothing
3689+ , _mddType = Nothing
3468− , _mobWifiMacAddress = Nothing
3690+ , _mddWifiMacAddress = Nothing
3469− , _mobSerialNumber = Nothing
3691+ , _mddSerialNumber = Nothing
3470− , _mobHardwareId = Nothing
3692+ , _mddHardwareId = Nothing
3471− , _mobBasebandVersion = Nothing
3693+ , _mddBasebandVersion = Nothing
3472− , _mobSupportsWorkProfile = Nothing
3694+ , _mddSupportsWorkProfile = Nothing
3473− , _mobDeviceCompromisedStatus = Nothing
3695+ , _mddDeviceCompromisedStatus = Nothing
3474− , _mobApplications = Nothing
3696+ , _mddApplications = Nothing
3475− , _mobDefaultLanguage = Nothing
3697+ , _mddDefaultLanguage = Nothing
3478-- | List of owner user\'s email addresses (Read-only)
3700-- | List of owner user\'s email addresses (Read-only)
3479−mobEmail :: Lens' MobileDevice [Text]
3701+mddEmail :: Lens' MobileDevice [Text]
3480−mobEmail
3702+mddEmail
3481− = lens _mobEmail (\ s a -> s{_mobEmail = a}) .
3703+ = lens _mddEmail (\ s a -> s{_mddEmail = a}) .
3482 _Default
3704 _Default
3483 . _Coerce
3705 . _Coerce
3485-- | Status of the device (Read-only)
3707-- | Status of the device (Read-only)
3486−mobStatus :: Lens' MobileDevice (Maybe Text)
3708+mddStatus :: Lens' MobileDevice (Maybe Text)
3487−mobStatus
3709+mddStatus
3488− = lens _mobStatus (\ s a -> s{_mobStatus = a})
3710+ = lens _mddStatus (\ s a -> s{_mddStatus = a})
3490-- | ETag of the resource.
3712-- | ETag of the resource.
3491−mobEtag :: Lens' MobileDevice (Maybe Text)
3713+mddEtag :: Lens' MobileDevice (Maybe Text)
3492−mobEtag = lens _mobEtag (\ s a -> s{_mobEtag = a})
3714+mddEtag = lens _mddEtag (\ s a -> s{_mddEtag = a})
3494-- | Unique identifier of Mobile Device (Read-only)
3716-- | Unique identifier of Mobile Device (Read-only)
3495−mobResourceId :: Lens' MobileDevice (Maybe Text)
3717+mddResourceId :: Lens' MobileDevice (Maybe Text)
3496−mobResourceId
3718+mddResourceId
3497− = lens _mobResourceId
3719+ = lens _mddResourceId
3498− (\ s a -> s{_mobResourceId = a})
3720+ (\ s a -> s{_mddResourceId = a})
3500-- | Mobile Device Build number (Read-only)
3722-- | Mobile Device Build number (Read-only)
3501−mobBuildNumber :: Lens' MobileDevice (Maybe Text)
3723+mddBuildNumber :: Lens' MobileDevice (Maybe Text)
3502−mobBuildNumber
3724+mddBuildNumber
3503− = lens _mobBuildNumber
3725+ = lens _mddBuildNumber
3504− (\ s a -> s{_mobBuildNumber = a})
3726+ (\ s a -> s{_mddBuildNumber = a})
3506-- | Boolean indicating if this account is on owner\/primary profile or not
3728-- | Boolean indicating if this account is on owner\/primary profile or not
3507-- (Read-only)
3729-- (Read-only)
3508−mobManagedAccountIsOnOwnerProfile :: Lens' MobileDevice (Maybe Bool)
3730+mddManagedAccountIsOnOwnerProfile :: Lens' MobileDevice (Maybe Bool)
3509−mobManagedAccountIsOnOwnerProfile
3731+mddManagedAccountIsOnOwnerProfile
3510− = lens _mobManagedAccountIsOnOwnerProfile
3732+ = lens _mddManagedAccountIsOnOwnerProfile
3511− (\ s a -> s{_mobManagedAccountIsOnOwnerProfile = a})
3733+ (\ s a -> s{_mddManagedAccountIsOnOwnerProfile = a})
3513-- | Date and time the device was last synchronized with the policy settings
3735-- | Date and time the device was last synchronized with the policy settings
3514-- in the Google Apps administrator control panel (Read-only)
3736-- in the Google Apps administrator control panel (Read-only)
3515−mobLastSync :: Lens' MobileDevice (Maybe UTCTime)
3737+mddLastSync :: Lens' MobileDevice (Maybe UTCTime)
3516−mobLastSync
3738+mddLastSync
3517− = lens _mobLastSync (\ s a -> s{_mobLastSync = a})
3739+ = lens _mddLastSync (\ s a -> s{_mddLastSync = a})
3519-- | List of accounts added on device (Read-only)
3741-- | List of accounts added on device (Read-only)
3520−mobOtherAccountsInfo :: Lens' MobileDevice [Text]
3742+mddOtherAccountsInfo :: Lens' MobileDevice [Text]
3521−mobOtherAccountsInfo
3743+mddOtherAccountsInfo
3522− = lens _mobOtherAccountsInfo
3744+ = lens _mddOtherAccountsInfo
3523− (\ s a -> s{_mobOtherAccountsInfo = a})
3745+ (\ s a -> s{_mddOtherAccountsInfo = a})
3524 . _Default
3746 . _Default
3525 . _Coerce
3747 . _Coerce
3527-- | Kind of resource this is.
3749-- | Kind of resource this is.
3528−mobKind :: Lens' MobileDevice Text
3750+mddKind :: Lens' MobileDevice Text
3529−mobKind = lens _mobKind (\ s a -> s{_mobKind = a})
3751+mddKind = lens _mddKind (\ s a -> s{_mddKind = a})
3531-- | Adb (USB debugging) enabled or disabled on device (Read-only)
3753-- | Adb (USB debugging) enabled or disabled on device (Read-only)
3532−mobAdbStatus :: Lens' MobileDevice (Maybe Bool)
3754+mddAdbStatus :: Lens' MobileDevice (Maybe Bool)
3533−mobAdbStatus
3755+mddAdbStatus
3534− = lens _mobAdbStatus (\ s a -> s{_mobAdbStatus = a})
3756+ = lens _mddAdbStatus (\ s a -> s{_mddAdbStatus = a})
3536-- | Mobile Device mobile or network operator (if available) (Read-only)
3758-- | Mobile Device mobile or network operator (if available) (Read-only)
3537−mobNetworkOperator :: Lens' MobileDevice (Maybe Text)
3759+mddNetworkOperator :: Lens' MobileDevice (Maybe Text)
3538−mobNetworkOperator
3760+mddNetworkOperator
3539− = lens _mobNetworkOperator
3761+ = lens _mddNetworkOperator
3540− (\ s a -> s{_mobNetworkOperator = a})
3762+ (\ s a -> s{_mddNetworkOperator = a})
3542-- | Mobile Device Kernel version (Read-only)
3764-- | Mobile Device Kernel version (Read-only)
3543−mobKernelVersion :: Lens' MobileDevice (Maybe Text)
3765+mddKernelVersion :: Lens' MobileDevice (Maybe Text)
3544−mobKernelVersion
3766+mddKernelVersion
3545− = lens _mobKernelVersion
3767+ = lens _mddKernelVersion
3546− (\ s a -> s{_mobKernelVersion = a})
3768+ (\ s a -> s{_mddKernelVersion = a})
3548-- | Name of the mobile operating system
3770-- | Name of the mobile operating system
3549−mobOs :: Lens' MobileDevice (Maybe Text)
3771+mddOs :: Lens' MobileDevice (Maybe Text)
3550−mobOs = lens _mobOs (\ s a -> s{_mobOs = a})
3772+mddOs = lens _mddOs (\ s a -> s{_mddOs = a})
3552-- | List of owner user\'s names (Read-only)
3774-- | List of owner user\'s names (Read-only)
3553−mobName :: Lens' MobileDevice [Text]
3775+mddName :: Lens' MobileDevice [Text]
3555− = lens _mobName (\ s a -> s{_mobName = a}) . _Default
3777+ = lens _mddName (\ s a -> s{_mddName = a}) . _Default
3556 . _Coerce
3778 . _Coerce
3558-- | Name of the model of the device
3780-- | Name of the model of the device
3559−mobModel :: Lens' MobileDevice (Maybe Text)
3781+mddModel :: Lens' MobileDevice (Maybe Text)
3560−mobModel = lens _mobModel (\ s a -> s{_mobModel = a})
3782+mddModel = lens _mddModel (\ s a -> s{_mddModel = a})
3562-- | Developer options enabled or disabled on device (Read-only)
3784-- | Developer options enabled or disabled on device (Read-only)
3563−mobDeveloperOptionsStatus :: Lens' MobileDevice (Maybe Bool)
3785+mddDeveloperOptionsStatus :: Lens' MobileDevice (Maybe Bool)
3564−mobDeveloperOptionsStatus
3786+mddDeveloperOptionsStatus
3565− = lens _mobDeveloperOptionsStatus
3787+ = lens _mddDeveloperOptionsStatus
3566− (\ s a -> s{_mobDeveloperOptionsStatus = a})
3788+ (\ s a -> s{_mddDeveloperOptionsStatus = a})
3568-- | Unknown sources enabled or disabled on device (Read-only)
3790-- | Unknown sources enabled or disabled on device (Read-only)
3569−mobUnknownSourcesStatus :: Lens' MobileDevice (Maybe Bool)
3791+mddUnknownSourcesStatus :: Lens' MobileDevice (Maybe Bool)
3570−mobUnknownSourcesStatus
3792+mddUnknownSourcesStatus
3571− = lens _mobUnknownSourcesStatus
3793+ = lens _mddUnknownSourcesStatus
3572− (\ s a -> s{_mobUnknownSourcesStatus = a})
3794+ (\ s a -> s{_mddUnknownSourcesStatus = a})
3574-- | Mobile Device MEID number (Read-only)
3796-- | Mobile Device MEID number (Read-only)
3575−mobMeid :: Lens' MobileDevice (Maybe Text)
3797+mddMeid :: Lens' MobileDevice (Maybe Text)
3576−mobMeid = lens _mobMeid (\ s a -> s{_mobMeid = a})
3798+mddMeid = lens _mddMeid (\ s a -> s{_mddMeid = a})
3578-- | Mobile Device serial number (Read-only)
3800-- | Mobile Device serial number (Read-only)
3579−mobDeviceId :: Lens' MobileDevice (Maybe Text)
3801+mddDeviceId :: Lens' MobileDevice (Maybe Text)
3580−mobDeviceId
3802+mddDeviceId
3581− = lens _mobDeviceId (\ s a -> s{_mobDeviceId = a})
3803+ = lens _mddDeviceId (\ s a -> s{_mddDeviceId = a})
3583-- | Date and time the device was first synchronized with the policy settings
3805-- | Date and time the device was first synchronized with the policy settings
3584-- in the Google Apps administrator control panel (Read-only)
3806-- in the Google Apps administrator control panel (Read-only)
3585−mobFirstSync :: Lens' MobileDevice (Maybe UTCTime)
3807+mddFirstSync :: Lens' MobileDevice (Maybe UTCTime)
3586−mobFirstSync
3808+mddFirstSync
3587− = lens _mobFirstSync (\ s a -> s{_mobFirstSync = a})
3809+ = lens _mddFirstSync (\ s a -> s{_mddFirstSync = a})
3589-- | Mobile Device user agent
3811-- | Mobile Device user agent
3590−mobUserAgent :: Lens' MobileDevice (Maybe Text)
3812+mddUserAgent :: Lens' MobileDevice (Maybe Text)
3591−mobUserAgent
3813+mddUserAgent
3592− = lens _mobUserAgent (\ s a -> s{_mobUserAgent = a})
3814+ = lens _mddUserAgent (\ s a -> s{_mddUserAgent = a})
3594-- | Mobile Device IMEI number (Read-only)
3816-- | Mobile Device IMEI number (Read-only)
3595−mobImei :: Lens' MobileDevice (Maybe Text)
3817+mddImei :: Lens' MobileDevice (Maybe Text)
3596−mobImei = lens _mobImei (\ s a -> s{_mobImei = a})
3818+mddImei = lens _mddImei (\ s a -> s{_mddImei = a})
3598-- | The type of device (Read-only)
3820-- | The type of device (Read-only)
3599−mobType :: Lens' MobileDevice (Maybe Text)
3821+mddType :: Lens' MobileDevice (Maybe Text)
3600−mobType = lens _mobType (\ s a -> s{_mobType = a})
3822+mddType = lens _mddType (\ s a -> s{_mddType = a})
3602-- | Mobile Device WiFi MAC address (Read-only)
3824-- | Mobile Device WiFi MAC address (Read-only)
3603−mobWifiMacAddress :: Lens' MobileDevice (Maybe Text)
3825+mddWifiMacAddress :: Lens' MobileDevice (Maybe Text)
3604−mobWifiMacAddress
3826+mddWifiMacAddress
3605− = lens _mobWifiMacAddress
3827+ = lens _mddWifiMacAddress
3606− (\ s a -> s{_mobWifiMacAddress = a})
3828+ (\ s a -> s{_mddWifiMacAddress = a})
3608-- | Mobile Device SSN or Serial Number (Read-only)
3830-- | Mobile Device SSN or Serial Number (Read-only)
3609−mobSerialNumber :: Lens' MobileDevice (Maybe Text)
3831+mddSerialNumber :: Lens' MobileDevice (Maybe Text)
3610−mobSerialNumber
3832+mddSerialNumber
3611− = lens _mobSerialNumber
3833+ = lens _mddSerialNumber
3612− (\ s a -> s{_mobSerialNumber = a})
3834+ (\ s a -> s{_mddSerialNumber = a})
3614-- | Mobile Device Hardware Id (Read-only)
3836-- | Mobile Device Hardware Id (Read-only)
3615−mobHardwareId :: Lens' MobileDevice (Maybe Text)
3837+mddHardwareId :: Lens' MobileDevice (Maybe Text)
3616−mobHardwareId
3838+mddHardwareId
3617− = lens _mobHardwareId
3839+ = lens _mddHardwareId
3618− (\ s a -> s{_mobHardwareId = a})
3840+ (\ s a -> s{_mddHardwareId = a})
3620-- | Mobile Device Baseband version (Read-only)
3842-- | Mobile Device Baseband version (Read-only)
3621−mobBasebandVersion :: Lens' MobileDevice (Maybe Text)
3843+mddBasebandVersion :: Lens' MobileDevice (Maybe Text)
3622−mobBasebandVersion
3844+mddBasebandVersion
3623− = lens _mobBasebandVersion
3845+ = lens _mddBasebandVersion
3624− (\ s a -> s{_mobBasebandVersion = a})
3846+ (\ s a -> s{_mddBasebandVersion = a})
3626-- | Work profile supported on device (Read-only)
3848-- | Work profile supported on device (Read-only)
3627−mobSupportsWorkProfile :: Lens' MobileDevice (Maybe Bool)
3849+mddSupportsWorkProfile :: Lens' MobileDevice (Maybe Bool)
3628−mobSupportsWorkProfile
3850+mddSupportsWorkProfile
3629− = lens _mobSupportsWorkProfile
3851+ = lens _mddSupportsWorkProfile
3630− (\ s a -> s{_mobSupportsWorkProfile = a})
3852+ (\ s a -> s{_mddSupportsWorkProfile = a})
3632-- | Mobile Device compromised status (Read-only)
3854-- | Mobile Device compromised status (Read-only)
3633−mobDeviceCompromisedStatus :: Lens' MobileDevice (Maybe Text)
3855+mddDeviceCompromisedStatus :: Lens' MobileDevice (Maybe Text)
3634−mobDeviceCompromisedStatus
3856+mddDeviceCompromisedStatus
3635− = lens _mobDeviceCompromisedStatus
3857+ = lens _mddDeviceCompromisedStatus
3636− (\ s a -> s{_mobDeviceCompromisedStatus = a})
3858+ (\ s a -> s{_mddDeviceCompromisedStatus = a})
3638-- | List of applications installed on Mobile Device
3860-- | List of applications installed on Mobile Device
3639−mobApplications :: Lens' MobileDevice [MobileDeviceApplicationsItem]
3861+mddApplications :: Lens' MobileDevice [MobileDeviceApplications]
3640−mobApplications
3862+mddApplications
3641− = lens _mobApplications
3863+ = lens _mddApplications
3642− (\ s a -> s{_mobApplications = a})
3864+ (\ s a -> s{_mddApplications = a})
3643 . _Default
3865 . _Default
3644 . _Coerce
3866 . _Coerce
3646-- | The default locale used on the Mobile Device (Read-only)
3868-- | The default locale used on the Mobile Device (Read-only)
3647−mobDefaultLanguage :: Lens' MobileDevice (Maybe Text)
3869+mddDefaultLanguage :: Lens' MobileDevice (Maybe Text)
3648−mobDefaultLanguage
3870+mddDefaultLanguage
3649− = lens _mobDefaultLanguage
3871+ = lens _mddDefaultLanguage
3650− (\ s a -> s{_mobDefaultLanguage = a})
3872+ (\ s a -> s{_mddDefaultLanguage = a})
3652instance FromJSON MobileDevice where
3874instance FromJSON MobileDevice where
3653 parseJSON
3875 parseJSON
@@ -3689,40 +3911,40 @@ instance ToJSON MobileDevice where
3689 toJSON MobileDevice{..}
3911 toJSON MobileDevice{..}
3690 = object
3912 = object
3691 (catMaybes
3913 (catMaybes
3692− [("email" .=) <$> _mobEmail,
3914+ [("email" .=) <$> _mddEmail,
3693− ("status" .=) <$> _mobStatus,
3915+ ("status" .=) <$> _mddStatus,
3694− ("etag" .=) <$> _mobEtag,
3916+ ("etag" .=) <$> _mddEtag,
3695− ("resourceId" .=) <$> _mobResourceId,
3917+ ("resourceId" .=) <$> _mddResourceId,
3696− ("buildNumber" .=) <$> _mobBuildNumber,
3918+ ("buildNumber" .=) <$> _mddBuildNumber,
3697 ("managedAccountIsOnOwnerProfile" .=) <$>
3919 ("managedAccountIsOnOwnerProfile" .=) <$>
3698− _mobManagedAccountIsOnOwnerProfile,
3920+ _mddManagedAccountIsOnOwnerProfile,
3699− ("lastSync" .=) <$> _mobLastSync,
3921+ ("lastSync" .=) <$> _mddLastSync,
3700− ("otherAccountsInfo" .=) <$> _mobOtherAccountsInfo,
3922+ ("otherAccountsInfo" .=) <$> _mddOtherAccountsInfo,
3701− Just ("kind" .= _mobKind),
3923+ Just ("kind" .= _mddKind),
3702− ("adbStatus" .=) <$> _mobAdbStatus,
3924+ ("adbStatus" .=) <$> _mddAdbStatus,
3703− ("networkOperator" .=) <$> _mobNetworkOperator,
3925+ ("networkOperator" .=) <$> _mddNetworkOperator,
3704− ("kernelVersion" .=) <$> _mobKernelVersion,
3926+ ("kernelVersion" .=) <$> _mddKernelVersion,
3705− ("os" .=) <$> _mobOs, ("name" .=) <$> _mobName,
3927+ ("os" .=) <$> _mddOs, ("name" .=) <$> _mddName,
3706− ("model" .=) <$> _mobModel,
3928+ ("model" .=) <$> _mddModel,
3707 ("developerOptionsStatus" .=) <$>
3929 ("developerOptionsStatus" .=) <$>
3708− _mobDeveloperOptionsStatus,
3930+ _mddDeveloperOptionsStatus,
3709 ("unknownSourcesStatus" .=) <$>
3931 ("unknownSourcesStatus" .=) <$>
3710− _mobUnknownSourcesStatus,
3932+ _mddUnknownSourcesStatus,
3711− ("meid" .=) <$> _mobMeid,
3933+ ("meid" .=) <$> _mddMeid,
3712− ("deviceId" .=) <$> _mobDeviceId,
3934+ ("deviceId" .=) <$> _mddDeviceId,
3713− ("firstSync" .=) <$> _mobFirstSync,
3935+ ("firstSync" .=) <$> _mddFirstSync,
3714− ("userAgent" .=) <$> _mobUserAgent,
3936+ ("userAgent" .=) <$> _mddUserAgent,
3715− ("imei" .=) <$> _mobImei, ("type" .=) <$> _mobType,
3937+ ("imei" .=) <$> _mddImei, ("type" .=) <$> _mddType,
3716− ("wifiMacAddress" .=) <$> _mobWifiMacAddress,
3938+ ("wifiMacAddress" .=) <$> _mddWifiMacAddress,
3717− ("serialNumber" .=) <$> _mobSerialNumber,
3939+ ("serialNumber" .=) <$> _mddSerialNumber,
3718− ("hardwareId" .=) <$> _mobHardwareId,
3940+ ("hardwareId" .=) <$> _mddHardwareId,
3719− ("basebandVersion" .=) <$> _mobBasebandVersion,
3941+ ("basebandVersion" .=) <$> _mddBasebandVersion,
3720 ("supportsWorkProfile" .=) <$>
3942 ("supportsWorkProfile" .=) <$>
3721− _mobSupportsWorkProfile,
3943+ _mddSupportsWorkProfile,
3722 ("deviceCompromisedStatus" .=) <$>
3944 ("deviceCompromisedStatus" .=) <$>
3723− _mobDeviceCompromisedStatus,
3945+ _mddDeviceCompromisedStatus,
3724− ("applications" .=) <$> _mobApplications,
3946+ ("applications" .=) <$> _mddApplications,
3725− ("defaultLanguage" .=) <$> _mobDefaultLanguage])
3947+ ("defaultLanguage" .=) <$> _mddDefaultLanguage])
3727-- | JSON template for a set of custom properties (i.e. all fields in a
3949-- | JSON template for a set of custom properties (i.e. all fields in a
3728-- particular schema)
3950-- particular schema)
@@ -3746,6 +3968,63 @@ instance FromJSON UserCustomProperties where
3746instance ToJSON UserCustomProperties where
3968instance ToJSON UserCustomProperties where
3747 toJSON = const (Object mempty)
3969 toJSON = const (Object mempty)
3971+-- | Indexing spec for a numeric field. By default, only exact match queries
3972+-- will be supported for numeric fields. Setting the numericIndexingSpec
3973+-- allows range queries to be supported.
3975+-- /See:/ 'schemaFieldSpecNumericIndexingSpec' smart constructor.
3976+data SchemaFieldSpecNumericIndexingSpec = SchemaFieldSpecNumericIndexingSpec
3977+ { _sfsnisMaxValue :: !(Maybe Double)
3978+ , _sfsnisMinValue :: !(Maybe Double)
3979+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
3981+-- | Creates a value of 'SchemaFieldSpecNumericIndexingSpec' with the minimum fields required to make a request.
3983+-- Use one of the following lenses to modify other fields as desired:
3985+-- * 'sfsnisMaxValue'
3987+-- * 'sfsnisMinValue'
3988+schemaFieldSpecNumericIndexingSpec
3989+ :: SchemaFieldSpecNumericIndexingSpec
3990+schemaFieldSpecNumericIndexingSpec =
3991+ SchemaFieldSpecNumericIndexingSpec
3992+ { _sfsnisMaxValue = Nothing
3993+ , _sfsnisMinValue = Nothing
3996+-- | Maximum value of this field. This is meant to be indicative rather than
3997+-- enforced. Values outside this range will still be indexed, but search
3998+-- may not be as performant.
3999+sfsnisMaxValue :: Lens' SchemaFieldSpecNumericIndexingSpec (Maybe Double)
4001+ = lens _sfsnisMaxValue
4002+ (\ s a -> s{_sfsnisMaxValue = a})
4004+-- | Minimum value of this field. This is meant to be indicative rather than
4005+-- enforced. Values outside this range will still be indexed, but search
4006+-- may not be as performant.
4007+sfsnisMinValue :: Lens' SchemaFieldSpecNumericIndexingSpec (Maybe Double)
4009+ = lens _sfsnisMinValue
4010+ (\ s a -> s{_sfsnisMinValue = a})
4012+instance FromJSON SchemaFieldSpecNumericIndexingSpec
4015+ = withObject "SchemaFieldSpecNumericIndexingSpec"
4017+ SchemaFieldSpecNumericIndexingSpec <$>
4018+ (o .:? "maxValue") <*> (o .:? "minValue"))
4020+instance ToJSON SchemaFieldSpecNumericIndexingSpec
4022+ toJSON SchemaFieldSpecNumericIndexingSpec{..}
4025+ [("maxValue" .=) <$> _sfsnisMaxValue,
4026+ ("minValue" .=) <$> _sfsnisMinValue])
3749-- | JSON request template for firing commands on Mobile Device in Directory
4028-- | JSON request template for firing commands on Mobile Device in Directory
3750-- Devices API.
4029-- Devices API.
gogol-admin-directory/gen/Network/Google/AdminDirectory/Types/Sum.hs+867
@@ -16,3 +16,870 @@
16module Network.Google.AdminDirectory.Types.Sum where
16module Network.Google.AdminDirectory.Types.Sum where
18import Network.Google.Prelude
18import Network.Google.Prelude
20+-- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.
21+data DirectoryUsersListViewType
24+ -- Fetches the ADMIN_VIEW of the user.
27+ -- Fetches the DOMAIN_PUBLIC view of the user.
28+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
30+instance Hashable DirectoryUsersListViewType
32+instance FromText DirectoryUsersListViewType where
34+ "admin_view" -> Just AdminView
35+ "domain_public" -> Just DomainPublic
38+instance ToText DirectoryUsersListViewType where
40+ AdminView -> "admin_view"
41+ DomainPublic -> "domain_public"
43+instance FromJSON DirectoryUsersListViewType where
44+ parseJSON = parseJSONText "DirectoryUsersListViewType"
46+instance ToJSON DirectoryUsersListViewType where
49+-- | Restrict information returned to a set of selected fields.
50+data DirectoryChromeosdevicesListProjection
53+ -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,
57+ -- Includes all metadata fields
58+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
60+instance Hashable DirectoryChromeosdevicesListProjection
62+instance FromText DirectoryChromeosdevicesListProjection where
64+ "BASIC" -> Just Basic
68+instance ToText DirectoryChromeosdevicesListProjection where
73+instance FromJSON DirectoryChromeosdevicesListProjection where
74+ parseJSON = parseJSONText "DirectoryChromeosdevicesListProjection"
76+instance ToJSON DirectoryChromeosdevicesListProjection where
79+-- | Column to use for sorting results
80+data DirectoryUsersWatchOrderBy
83+ -- Primary email of the user.
86+ -- User\'s family name.
89+ -- User\'s given name.
90+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
92+instance Hashable DirectoryUsersWatchOrderBy
94+instance FromText DirectoryUsersWatchOrderBy where
96+ "email" -> Just Email
97+ "familyName" -> Just FamilyName
98+ "givenName" -> Just GivenName
101+instance ToText DirectoryUsersWatchOrderBy where
104+ FamilyName -> "familyName"
105+ GivenName -> "givenName"
107+instance FromJSON DirectoryUsersWatchOrderBy where
108+ parseJSON = parseJSONText "DirectoryUsersWatchOrderBy"
110+instance ToJSON DirectoryUsersWatchOrderBy where
113+-- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.
114+data DirectoryUsersWatchViewType
117+ -- Fetches the ADMIN_VIEW of the user.
119+ -- ^ @domain_public@
120+ -- Fetches the DOMAIN_PUBLIC view of the user.
121+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
123+instance Hashable DirectoryUsersWatchViewType
125+instance FromText DirectoryUsersWatchViewType where
127+ "admin_view" -> Just DUWVTAdminView
128+ "domain_public" -> Just DUWVTDomainPublic
131+instance ToText DirectoryUsersWatchViewType where
133+ DUWVTAdminView -> "admin_view"
134+ DUWVTDomainPublic -> "domain_public"
136+instance FromJSON DirectoryUsersWatchViewType where
137+ parseJSON = parseJSONText "DirectoryUsersWatchViewType"
139+instance ToJSON DirectoryUsersWatchViewType where
142+-- | Column to use for sorting results
143+data DirectoryMobiledevicesListOrderBy
146+ -- Mobile Device serial number.
149+ -- Owner user email.
152+ -- Last policy settings sync date time of the device.
155+ -- Mobile Device model.
161+ -- Mobile operating system.
164+ -- Status of the device.
167+ -- Type of the device.
168+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
170+instance Hashable DirectoryMobiledevicesListOrderBy
172+instance FromText DirectoryMobiledevicesListOrderBy where
174+ "deviceId" -> Just DMLOBDeviceId
175+ "email" -> Just DMLOBEmail
176+ "lastSync" -> Just DMLOBLastSync
177+ "model" -> Just DMLOBModel
178+ "name" -> Just DMLOBName
179+ "os" -> Just DMLOBOS
180+ "status" -> Just DMLOBStatus
181+ "type" -> Just DMLOBType
184+instance ToText DirectoryMobiledevicesListOrderBy where
186+ DMLOBDeviceId -> "deviceId"
187+ DMLOBEmail -> "email"
188+ DMLOBLastSync -> "lastSync"
189+ DMLOBModel -> "model"
192+ DMLOBStatus -> "status"
195+instance FromJSON DirectoryMobiledevicesListOrderBy where
196+ parseJSON = parseJSONText "DirectoryMobiledevicesListOrderBy"
198+instance ToJSON DirectoryMobiledevicesListOrderBy where
201+-- | Whether to return results in ascending or descending order.
202+data DirectoryUsersListSortOrder
208+ -- Descending order.
209+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
211+instance Hashable DirectoryUsersListSortOrder
213+instance FromText DirectoryUsersListSortOrder where
215+ "ASCENDING" -> Just Ascending
216+ "DESCENDING" -> Just Descending
219+instance ToText DirectoryUsersListSortOrder where
221+ Ascending -> "ASCENDING"
222+ Descending -> "DESCENDING"
224+instance FromJSON DirectoryUsersListSortOrder where
225+ parseJSON = parseJSONText "DirectoryUsersListSortOrder"
227+instance ToJSON DirectoryUsersListSortOrder where
230+-- | Event on which subscription is intended (if subscribing)
231+data DirectoryUsersAliasesListEvent
234+ -- Alias Created Event
237+ -- Alias Deleted Event
238+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
240+instance Hashable DirectoryUsersAliasesListEvent
242+instance FromText DirectoryUsersAliasesListEvent where
245+ "delete" -> Just Delete
248+instance ToText DirectoryUsersAliasesListEvent where
253+instance FromJSON DirectoryUsersAliasesListEvent where
254+ parseJSON = parseJSONText "DirectoryUsersAliasesListEvent"
256+instance ToJSON DirectoryUsersAliasesListEvent where
259+-- | Whether to fetch the ADMIN_VIEW or DOMAIN_PUBLIC view of the user.
260+data DirectoryUsersGetViewType
263+ -- Fetches the ADMIN_VIEW of the user.
265+ -- ^ @domain_public@
266+ -- Fetches the DOMAIN_PUBLIC view of the user.
267+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
269+instance Hashable DirectoryUsersGetViewType
271+instance FromText DirectoryUsersGetViewType where
273+ "admin_view" -> Just DUGVTAdminView
274+ "domain_public" -> Just DUGVTDomainPublic
277+instance ToText DirectoryUsersGetViewType where
279+ DUGVTAdminView -> "admin_view"
280+ DUGVTDomainPublic -> "domain_public"
282+instance FromJSON DirectoryUsersGetViewType where
283+ parseJSON = parseJSONText "DirectoryUsersGetViewType"
285+instance ToJSON DirectoryUsersGetViewType where
288+-- | Event on which subscription is intended (if subscribing)
289+data DirectoryUsersAliasesWatchEvent
292+ -- Alias Created Event
295+ -- Alias Deleted Event
296+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
298+instance Hashable DirectoryUsersAliasesWatchEvent
300+instance FromText DirectoryUsersAliasesWatchEvent where
302+ "add" -> Just DUAWEAdd
303+ "delete" -> Just DUAWEDelete
306+instance ToText DirectoryUsersAliasesWatchEvent where
309+ DUAWEDelete -> "delete"
311+instance FromJSON DirectoryUsersAliasesWatchEvent where
312+ parseJSON = parseJSONText "DirectoryUsersAliasesWatchEvent"
314+instance ToJSON DirectoryUsersAliasesWatchEvent where
317+-- | Whether to return results in ascending or descending order.
318+data DirectoryUsersWatchSortOrder
324+ -- Descending order.
325+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
327+instance Hashable DirectoryUsersWatchSortOrder
329+instance FromText DirectoryUsersWatchSortOrder where
331+ "ASCENDING" -> Just DUWSOAscending
332+ "DESCENDING" -> Just DUWSODescending
335+instance ToText DirectoryUsersWatchSortOrder where
337+ DUWSOAscending -> "ASCENDING"
338+ DUWSODescending -> "DESCENDING"
340+instance FromJSON DirectoryUsersWatchSortOrder where
341+ parseJSON = parseJSONText "DirectoryUsersWatchSortOrder"
343+instance ToJSON DirectoryUsersWatchSortOrder where
346+-- | Restrict information returned to a set of selected fields.
347+data DirectoryMobiledevicesGetProjection
350+ -- Includes only the basic metadata fields (e.g., deviceId, model, status,
351+ -- type, and status)
354+ -- Includes all metadata fields
355+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
357+instance Hashable DirectoryMobiledevicesGetProjection
359+instance FromText DirectoryMobiledevicesGetProjection where
361+ "BASIC" -> Just DMGPBasic
362+ "FULL" -> Just DMGPFull
365+instance ToText DirectoryMobiledevicesGetProjection where
367+ DMGPBasic -> "BASIC"
370+instance FromJSON DirectoryMobiledevicesGetProjection where
371+ parseJSON = parseJSONText "DirectoryMobiledevicesGetProjection"
373+instance ToJSON DirectoryMobiledevicesGetProjection where
376+-- | Whether to return results in ascending or descending order. Only of use
377+-- when orderBy is also used
378+data DirectoryMobiledevicesListSortOrder
384+ -- Descending order.
385+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
387+instance Hashable DirectoryMobiledevicesListSortOrder
389+instance FromText DirectoryMobiledevicesListSortOrder where
391+ "ASCENDING" -> Just DMLSOAscending
392+ "DESCENDING" -> Just DMLSODescending
395+instance ToText DirectoryMobiledevicesListSortOrder where
397+ DMLSOAscending -> "ASCENDING"
398+ DMLSODescending -> "DESCENDING"
400+instance FromJSON DirectoryMobiledevicesListSortOrder where
401+ parseJSON = parseJSONText "DirectoryMobiledevicesListSortOrder"
403+instance ToJSON DirectoryMobiledevicesListSortOrder where
406+-- | Column to use for sorting results
407+data DirectoryUsersListOrderBy
410+ -- Primary email of the user.
413+ -- User\'s family name.
416+ -- User\'s given name.
417+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
419+instance Hashable DirectoryUsersListOrderBy
421+instance FromText DirectoryUsersListOrderBy where
423+ "email" -> Just DULOBEmail
424+ "familyName" -> Just DULOBFamilyName
425+ "givenName" -> Just DULOBGivenName
428+instance ToText DirectoryUsersListOrderBy where
430+ DULOBEmail -> "email"
431+ DULOBFamilyName -> "familyName"
432+ DULOBGivenName -> "givenName"
434+instance FromJSON DirectoryUsersListOrderBy where
435+ parseJSON = parseJSONText "DirectoryUsersListOrderBy"
437+instance ToJSON DirectoryUsersListOrderBy where
440+-- | Whether to return all sub-organizations or just immediate children
441+data DirectoryOrgunitsListType
444+ -- All sub-organization units.
447+ -- Immediate children only (default).
448+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
450+instance Hashable DirectoryOrgunitsListType
452+instance FromText DirectoryOrgunitsListType where
455+ "children" -> Just Children
458+instance ToText DirectoryOrgunitsListType where
461+ Children -> "children"
463+instance FromJSON DirectoryOrgunitsListType where
464+ parseJSON = parseJSONText "DirectoryOrgunitsListType"
466+instance ToJSON DirectoryOrgunitsListType where
469+-- | What subset of fields to fetch for this user.
470+data DirectoryUsersListProjection
473+ -- Do not include any custom fields for the user.
476+ -- Include custom fields from schemas mentioned in customFieldMask.
479+ -- Include all fields associated with this user.
480+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
482+instance Hashable DirectoryUsersListProjection
484+instance FromText DirectoryUsersListProjection where
486+ "basic" -> Just DULPBasic
487+ "custom" -> Just DULPCustom
488+ "full" -> Just DULPFull
491+instance ToText DirectoryUsersListProjection where
493+ DULPBasic -> "basic"
494+ DULPCustom -> "custom"
497+instance FromJSON DirectoryUsersListProjection where
498+ parseJSON = parseJSONText "DirectoryUsersListProjection"
500+instance ToJSON DirectoryUsersListProjection where
503+-- | Restrict information returned to a set of selected fields.
504+data DirectoryChromeosdevicesUpdateProjection
507+ -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,
508+ -- status, and user)
511+ -- Includes all metadata fields
512+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
514+instance Hashable DirectoryChromeosdevicesUpdateProjection
516+instance FromText DirectoryChromeosdevicesUpdateProjection where
518+ "BASIC" -> Just DCUPBasic
519+ "FULL" -> Just DCUPFull
522+instance ToText DirectoryChromeosdevicesUpdateProjection where
524+ DCUPBasic -> "BASIC"
527+instance FromJSON DirectoryChromeosdevicesUpdateProjection where
528+ parseJSON = parseJSONText "DirectoryChromeosdevicesUpdateProjection"
530+instance ToJSON DirectoryChromeosdevicesUpdateProjection where
533+-- | What subset of fields to fetch for this user.
534+data DirectoryUsersWatchProjection
537+ -- Do not include any custom fields for the user.
540+ -- Include custom fields from schemas mentioned in customFieldMask.
543+ -- Include all fields associated with this user.
544+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
546+instance Hashable DirectoryUsersWatchProjection
548+instance FromText DirectoryUsersWatchProjection where
550+ "basic" -> Just DUWPBasic
551+ "custom" -> Just DUWPCustom
552+ "full" -> Just DUWPFull
555+instance ToText DirectoryUsersWatchProjection where
557+ DUWPBasic -> "basic"
558+ DUWPCustom -> "custom"
561+instance FromJSON DirectoryUsersWatchProjection where
562+ parseJSON = parseJSONText "DirectoryUsersWatchProjection"
564+instance ToJSON DirectoryUsersWatchProjection where
567+-- | Column to use for sorting results
568+data DirectoryChromeosdevicesListOrderBy
570+ -- ^ @annotatedLocation@
571+ -- Chromebook location as annotated by the administrator.
573+ -- ^ @annotatedUser@
574+ -- Chromebook user as annotated by administrator.
577+ -- Chromebook last sync.
580+ -- Chromebook notes as annotated by the administrator.
583+ -- Chromebook Serial Number.
586+ -- Chromebook status.
588+ -- ^ @supportEndDate@
589+ -- Chromebook support end date.
590+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
592+instance Hashable DirectoryChromeosdevicesListOrderBy
594+instance FromText DirectoryChromeosdevicesListOrderBy where
596+ "annotatedLocation" -> Just AnnotatedLocation
597+ "annotatedUser" -> Just AnnotatedUser
598+ "lastSync" -> Just LastSync
599+ "notes" -> Just Notes
600+ "serialNumber" -> Just SerialNumber
601+ "status" -> Just Status
602+ "supportEndDate" -> Just SupportEndDate
605+instance ToText DirectoryChromeosdevicesListOrderBy where
607+ AnnotatedLocation -> "annotatedLocation"
608+ AnnotatedUser -> "annotatedUser"
609+ LastSync -> "lastSync"
611+ SerialNumber -> "serialNumber"
613+ SupportEndDate -> "supportEndDate"
615+instance FromJSON DirectoryChromeosdevicesListOrderBy where
616+ parseJSON = parseJSONText "DirectoryChromeosdevicesListOrderBy"
618+instance ToJSON DirectoryChromeosdevicesListOrderBy where
621+-- | Event on which subscription is intended (if subscribing)
622+data DirectoryUsersListEvent
625+ -- User Created Event
628+ -- User Deleted Event
631+ -- User Admin Status Change Event
634+ -- User Undeleted Event
637+ -- User Updated Event
638+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
640+instance Hashable DirectoryUsersListEvent
642+instance FromText DirectoryUsersListEvent where
644+ "add" -> Just DULEAdd
645+ "delete" -> Just DULEDelete
646+ "makeAdmin" -> Just DULEMakeAdmin
647+ "undelete" -> Just DULEUndelete
648+ "update" -> Just DULEUpdate
651+instance ToText DirectoryUsersListEvent where
654+ DULEDelete -> "delete"
655+ DULEMakeAdmin -> "makeAdmin"
656+ DULEUndelete -> "undelete"
657+ DULEUpdate -> "update"
659+instance FromJSON DirectoryUsersListEvent where
660+ parseJSON = parseJSONText "DirectoryUsersListEvent"
662+instance ToJSON DirectoryUsersListEvent where
665+-- | Restrict information returned to a set of selected fields.
666+data DirectoryMobiledevicesListProjection
669+ -- Includes only the basic metadata fields (e.g., deviceId, model, status,
670+ -- type, and status)
673+ -- Includes all metadata fields
674+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
676+instance Hashable DirectoryMobiledevicesListProjection
678+instance FromText DirectoryMobiledevicesListProjection where
680+ "BASIC" -> Just DMLPBasic
681+ "FULL" -> Just DMLPFull
684+instance ToText DirectoryMobiledevicesListProjection where
686+ DMLPBasic -> "BASIC"
689+instance FromJSON DirectoryMobiledevicesListProjection where
690+ parseJSON = parseJSONText "DirectoryMobiledevicesListProjection"
692+instance ToJSON DirectoryMobiledevicesListProjection where
695+-- | What subset of fields to fetch for this user.
696+data DirectoryUsersGetProjection
699+ -- Do not include any custom fields for the user.
702+ -- Include custom fields from schemas mentioned in customFieldMask.
705+ -- Include all fields associated with this user.
706+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
708+instance Hashable DirectoryUsersGetProjection
710+instance FromText DirectoryUsersGetProjection where
712+ "basic" -> Just DUGPBasic
713+ "custom" -> Just DUGPCustom
714+ "full" -> Just DUGPFull
717+instance ToText DirectoryUsersGetProjection where
719+ DUGPBasic -> "basic"
720+ DUGPCustom -> "custom"
723+instance FromJSON DirectoryUsersGetProjection where
724+ parseJSON = parseJSONText "DirectoryUsersGetProjection"
726+instance ToJSON DirectoryUsersGetProjection where
729+-- | Restrict information returned to a set of selected fields.
730+data DirectoryChromeosdevicesGetProjection
733+ -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,
734+ -- status, and user)
737+ -- Includes all metadata fields
738+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
740+instance Hashable DirectoryChromeosdevicesGetProjection
742+instance FromText DirectoryChromeosdevicesGetProjection where
744+ "BASIC" -> Just DCGPBasic
745+ "FULL" -> Just DCGPFull
748+instance ToText DirectoryChromeosdevicesGetProjection where
750+ DCGPBasic -> "BASIC"
753+instance FromJSON DirectoryChromeosdevicesGetProjection where
754+ parseJSON = parseJSONText "DirectoryChromeosdevicesGetProjection"
756+instance ToJSON DirectoryChromeosdevicesGetProjection where
759+-- | Restrict information returned to a set of selected fields.
760+data DirectoryChromeosdevicesPatchProjection
763+ -- Includes only the basic metadata fields (e.g., deviceId, serialNumber,
764+ -- status, and user)
767+ -- Includes all metadata fields
768+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
770+instance Hashable DirectoryChromeosdevicesPatchProjection
772+instance FromText DirectoryChromeosdevicesPatchProjection where
774+ "BASIC" -> Just DCPPBasic
775+ "FULL" -> Just DCPPFull
778+instance ToText DirectoryChromeosdevicesPatchProjection where
780+ DCPPBasic -> "BASIC"
783+instance FromJSON DirectoryChromeosdevicesPatchProjection where
784+ parseJSON = parseJSONText "DirectoryChromeosdevicesPatchProjection"
786+instance ToJSON DirectoryChromeosdevicesPatchProjection where
789+-- | Event on which subscription is intended (if subscribing)
790+data DirectoryUsersWatchEvent
793+ -- User Created Event
796+ -- User Deleted Event
799+ -- User Admin Status Change Event
802+ -- User Undeleted Event
805+ -- User Updated Event
806+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
808+instance Hashable DirectoryUsersWatchEvent
810+instance FromText DirectoryUsersWatchEvent where
812+ "add" -> Just DUWEAdd
813+ "delete" -> Just DUWEDelete
814+ "makeAdmin" -> Just DUWEMakeAdmin
815+ "undelete" -> Just DUWEUndelete
816+ "update" -> Just DUWEUpdate
819+instance ToText DirectoryUsersWatchEvent where
822+ DUWEDelete -> "delete"
823+ DUWEMakeAdmin -> "makeAdmin"
824+ DUWEUndelete -> "undelete"
825+ DUWEUpdate -> "update"
827+instance FromJSON DirectoryUsersWatchEvent where
828+ parseJSON = parseJSONText "DirectoryUsersWatchEvent"
830+instance ToJSON DirectoryUsersWatchEvent where
833+-- | Whether to return results in ascending or descending order. Only of use
834+-- when orderBy is also used
835+data DirectoryChromeosdevicesListSortOrder
841+ -- Descending order.
842+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
844+instance Hashable DirectoryChromeosdevicesListSortOrder
846+instance FromText DirectoryChromeosdevicesListSortOrder where
848+ "ASCENDING" -> Just DCLSOAscending
849+ "DESCENDING" -> Just DCLSODescending
852+instance ToText DirectoryChromeosdevicesListSortOrder where
854+ DCLSOAscending -> "ASCENDING"
855+ DCLSODescending -> "DESCENDING"
857+instance FromJSON DirectoryChromeosdevicesListSortOrder where
858+ parseJSON = parseJSONText "DirectoryChromeosdevicesListSortOrder"
860+instance ToJSON DirectoryChromeosdevicesListSortOrder where
863+-- | Data format for the response.
867+ -- Responses with Content-Type of application\/json
868+ deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
870+instance Hashable Alt
872+instance FromText Alt where
877+instance ToText Alt where
881+instance FromJSON Alt where
882+ parseJSON = parseJSONText "Alt"
884+instance ToJSON Alt where
gogol-admin-directory/gen/Network/Google/Resource/Admin/Channels/Stop.hs+32−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Stop watching resources through this channel
20-- | Stop watching resources through this channel
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @AdminChannelsStop@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @AdminChannelsStop@.
22−module Admin.Channels.Stop
23+module Network.Google.Resource.Admin.Channels.Stop
24 -- * REST Resource
25 -- * REST Resource
25− ChannelsStopAPI
26+ ChannelsStopResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , channelsStop
29+ , channelsStop'
29− , ChannelsStop
30+ , ChannelsStop'
31 -- * Request Lenses
32 -- * Request Lenses
32 , csQuotaUser
33 , csQuotaUser
@@ -42,23 +43,31 @@ import Network.Google.AdminDirectory.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @AdminChannelsStop@ which the
45-- | A resource alias for @AdminChannelsStop@ which the
45−-- 'ChannelsStop' request conforms to.
46+-- 'ChannelsStop'' request conforms to.
46−type ChannelsStopAPI =
47+type ChannelsStopResource =
47 "admin" :>
48 "admin" :>
48 "directory_v1" :>
49 "directory_v1" :>
49− "channels" :> "stop" :> Post '[JSON] ()
50+ "channels" :>
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 :> Post '[JSON] ()
51-- | Stop watching resources through this channel
60-- | Stop watching resources through this channel
53−-- /See:/ 'channelsStop' smart constructor.
62+-- /See:/ 'channelsStop'' smart constructor.
54−data ChannelsStop = ChannelsStop
63+data ChannelsStop' = ChannelsStop'
55 { _csQuotaUser :: !(Maybe Text)
64 { _csQuotaUser :: !(Maybe Text)
56 , _csPrettyPrint :: !Bool
65 , _csPrettyPrint :: !Bool
57 , _csUserIp :: !(Maybe Text)
66 , _csUserIp :: !(Maybe Text)
58 , _csKey :: !(Maybe Text)
67 , _csKey :: !(Maybe Text)
59 , _csOauthToken :: !(Maybe Text)
68 , _csOauthToken :: !(Maybe Text)
60 , _csFields :: !(Maybe Text)
69 , _csFields :: !(Maybe Text)
61− , _csAlt :: !Text
70+ , _csAlt :: !Alt
62 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
64-- | Creates a value of 'ChannelsStop'' with the minimum fields required to make a request.
73-- | Creates a value of 'ChannelsStop'' with the minimum fields required to make a request.
@@ -78,17 +87,17 @@ data ChannelsStop = ChannelsStop
78-- * 'csFields'
87-- * 'csFields'
80-- * 'csAlt'
89-- * 'csAlt'
81−channelsStop
90+channelsStop'
82− :: ChannelsStop
91+ :: ChannelsStop'
83−channelsStop =
92+channelsStop' =
84− ChannelsStop
93+ ChannelsStop'
85 { _csQuotaUser = Nothing
94 { _csQuotaUser = Nothing
86 , _csPrettyPrint = True
95 , _csPrettyPrint = True
87 , _csUserIp = Nothing
96 , _csUserIp = Nothing
88 , _csKey = Nothing
97 , _csKey = Nothing
89 , _csOauthToken = Nothing
98 , _csOauthToken = Nothing
90 , _csFields = Nothing
99 , _csFields = Nothing
91− , _csAlt = "json"
100+ , _csAlt = JSON
94-- | 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
@@ -125,17 +134,20 @@ csFields :: Lens' ChannelsStop' (Maybe Text)
125csFields = lens _csFields (\ s a -> s{_csFields = a})
134csFields = lens _csFields (\ s a -> s{_csFields = a})
127-- | Data format for the response.
136-- | Data format for the response.
128−csAlt :: Lens' ChannelsStop' Text
137+csAlt :: Lens' ChannelsStop' Alt
129csAlt = lens _csAlt (\ s a -> s{_csAlt = a})
138csAlt = lens _csAlt (\ s a -> s{_csAlt = a})
131instance GoogleRequest ChannelsStop' where
140instance GoogleRequest ChannelsStop' where
132 type Rs ChannelsStop' = ()
141 type Rs ChannelsStop' = ()
133 request = requestWithRoute defReq adminDirectoryURL
142 request = requestWithRoute defReq adminDirectoryURL
134− requestWithRoute r u ChannelsStop{..}
143+ requestWithRoute r u ChannelsStop'{..}
135− = go _csQuotaUser _csPrettyPrint _csUserIp _csKey
144+ = go _csQuotaUser (Just _csPrettyPrint) _csUserIp
136 _csOauthToken
146 _csOauthToken
137 _csFields
147 _csFields
138− _csAlt
148+ (Just _csAlt)
140− = clientWithRoute (Proxy :: Proxy ChannelsStopAPI) r
150+ = clientWithRoute
151+ (Proxy :: Proxy ChannelsStopResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/Delete.hs+32−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Delete an ASP issued by a user.
20-- | Delete an ASP issued by a user.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryAspsDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryAspsDelete@.
22−module Directory.Asps.Delete
23+module Network.Google.Resource.Directory.Asps.Delete
24 -- * REST Resource
25 -- * REST Resource
25− AspsDeleteAPI
26+ AspsDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , aspsDelete
29+ , aspsDelete'
29− , AspsDelete
30+ , AspsDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , adQuotaUser
33 , adQuotaUser
@@ -44,16 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryAspsDelete@ which the
47-- | A resource alias for @DirectoryAspsDelete@ which the
47−-- 'AspsDelete' request conforms to.
48+-- 'AspsDelete'' request conforms to.
48−type AspsDeleteAPI =
49+type AspsDeleteResource =
49 "users" :>
50 "users" :>
50 Capture "userKey" Text :>
51 Capture "userKey" Text :>
51− "asps" :> Capture "codeId" Int32 :> Delete '[JSON] ()
53+ Capture "codeId" Int32 :>
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 :> Delete '[JSON] ()
53-- | Delete an ASP issued by a user.
62-- | Delete an ASP issued by a user.
55−-- /See:/ 'aspsDelete' smart constructor.
64+-- /See:/ 'aspsDelete'' smart constructor.
56−data AspsDelete = AspsDelete
65+data AspsDelete' = AspsDelete'
57 { _adQuotaUser :: !(Maybe Text)
66 { _adQuotaUser :: !(Maybe Text)
58 , _adPrettyPrint :: !Bool
67 , _adPrettyPrint :: !Bool
59 , _adCodeId :: !Int32
68 , _adCodeId :: !Int32
@@ -62,7 +71,7 @@ data AspsDelete = AspsDelete
62 , _adOauthToken :: !(Maybe Text)
71 , _adOauthToken :: !(Maybe Text)
63 , _adUserKey :: !Text
72 , _adUserKey :: !Text
64 , _adFields :: !(Maybe Text)
73 , _adFields :: !(Maybe Text)
65− , _adAlt :: !Text
74+ , _adAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'AspsDelete'' with the minimum fields required to make a request.
77-- | Creates a value of 'AspsDelete'' with the minimum fields required to make a request.
@@ -86,12 +95,12 @@ data AspsDelete = AspsDelete
86-- * 'adFields'
95-- * 'adFields'
88-- * 'adAlt'
97-- * 'adAlt'
89−aspsDelete
98+aspsDelete'
90 :: Int32 -- ^ 'codeId'
99 :: Int32 -- ^ 'codeId'
91 -> Text -- ^ 'userKey'
100 -> Text -- ^ 'userKey'
92− -> AspsDelete
101+ -> AspsDelete'
93−aspsDelete pAdCodeId_ pAdUserKey_ =
102+aspsDelete' pAdCodeId_ pAdUserKey_ =
94− AspsDelete
103+ AspsDelete'
95 { _adQuotaUser = Nothing
104 { _adQuotaUser = Nothing
96 , _adPrettyPrint = True
105 , _adPrettyPrint = True
97 , _adCodeId = pAdCodeId_
106 , _adCodeId = pAdCodeId_
@@ -100,7 +109,7 @@ aspsDelete pAdCodeId_ pAdUserKey_ =
100 , _adOauthToken = Nothing
109 , _adOauthToken = Nothing
101 , _adUserKey = pAdUserKey_
110 , _adUserKey = pAdUserKey_
102 , _adFields = Nothing
111 , _adFields = Nothing
103− , _adAlt = "json"
112+ , _adAlt = JSON
106-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -147,18 +156,21 @@ adFields :: Lens' AspsDelete' (Maybe Text)
147adFields = lens _adFields (\ s a -> s{_adFields = a})
156adFields = lens _adFields (\ s a -> s{_adFields = a})
149-- | Data format for the response.
158-- | Data format for the response.
150−adAlt :: Lens' AspsDelete' Text
159+adAlt :: Lens' AspsDelete' Alt
151adAlt = lens _adAlt (\ s a -> s{_adAlt = a})
160adAlt = lens _adAlt (\ s a -> s{_adAlt = a})
153instance GoogleRequest AspsDelete' where
162instance GoogleRequest AspsDelete' where
154 type Rs AspsDelete' = ()
163 type Rs AspsDelete' = ()
155 request = requestWithRoute defReq adminDirectoryURL
164 request = requestWithRoute defReq adminDirectoryURL
156− requestWithRoute r u AspsDelete{..}
165+ requestWithRoute r u AspsDelete'{..}
157− = go _adQuotaUser _adPrettyPrint _adCodeId _adUserIp
166+ = go _adQuotaUser (Just _adPrettyPrint) _adCodeId
159 _adOauthToken
169 _adOauthToken
160 _adUserKey
170 _adUserKey
161 _adFields
171 _adFields
162− _adAlt
172+ (Just _adAlt)
164− = clientWithRoute (Proxy :: Proxy AspsDeleteAPI) r u
174+ = clientWithRoute (Proxy :: Proxy AspsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/Get.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Get information about an ASP issued by a user.
20-- | Get information about an ASP issued by a user.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryAspsGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryAspsGet@.
22−module Directory.Asps.Get
23+module Network.Google.Resource.Directory.Asps.Get
24 -- * REST Resource
25 -- * REST Resource
25− AspsGetAPI
26+ AspsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , aspsGet
29+ , aspsGet'
29− , AspsGet
30+ , AspsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , agQuotaUser
33 , agQuotaUser
@@ -44,16 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryAspsGet@ which the
47-- | A resource alias for @DirectoryAspsGet@ which the
47−-- 'AspsGet' request conforms to.
48+-- 'AspsGet'' request conforms to.
48−type AspsGetAPI =
49+type AspsGetResource =
49 "users" :>
50 "users" :>
50 Capture "userKey" Text :>
51 Capture "userKey" Text :>
51− "asps" :> Capture "codeId" Int32 :> Get '[JSON] Asp
53+ Capture "codeId" Int32 :>
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] Asp
53-- | Get information about an ASP issued by a user.
62-- | Get information about an ASP issued by a user.
55−-- /See:/ 'aspsGet' smart constructor.
64+-- /See:/ 'aspsGet'' smart constructor.
56−data AspsGet = AspsGet
65+data AspsGet' = AspsGet'
57 { _agQuotaUser :: !(Maybe Text)
66 { _agQuotaUser :: !(Maybe Text)
58 , _agPrettyPrint :: !Bool
67 , _agPrettyPrint :: !Bool
59 , _agCodeId :: !Int32
68 , _agCodeId :: !Int32
@@ -62,7 +71,7 @@ data AspsGet = AspsGet
62 , _agOauthToken :: !(Maybe Text)
71 , _agOauthToken :: !(Maybe Text)
63 , _agUserKey :: !Text
72 , _agUserKey :: !Text
64 , _agFields :: !(Maybe Text)
73 , _agFields :: !(Maybe Text)
65− , _agAlt :: !Text
74+ , _agAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'AspsGet'' with the minimum fields required to make a request.
77-- | Creates a value of 'AspsGet'' with the minimum fields required to make a request.
@@ -86,12 +95,12 @@ data AspsGet = AspsGet
86-- * 'agFields'
95-- * 'agFields'
88-- * 'agAlt'
97-- * 'agAlt'
90 :: Int32 -- ^ 'codeId'
99 :: Int32 -- ^ 'codeId'
91 -> Text -- ^ 'userKey'
100 -> Text -- ^ 'userKey'
92− -> AspsGet
101+ -> AspsGet'
93−aspsGet pAgCodeId_ pAgUserKey_ =
102+aspsGet' pAgCodeId_ pAgUserKey_ =
95 { _agQuotaUser = Nothing
104 { _agQuotaUser = Nothing
96 , _agPrettyPrint = True
105 , _agPrettyPrint = True
97 , _agCodeId = pAgCodeId_
106 , _agCodeId = pAgCodeId_
@@ -100,7 +109,7 @@ aspsGet pAgCodeId_ pAgUserKey_ =
100 , _agOauthToken = Nothing
109 , _agOauthToken = Nothing
101 , _agUserKey = pAgUserKey_
110 , _agUserKey = pAgUserKey_
102 , _agFields = Nothing
111 , _agFields = Nothing
103− , _agAlt = "json"
112+ , _agAlt = JSON
106-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -147,18 +156,20 @@ agFields :: Lens' AspsGet' (Maybe Text)
147agFields = lens _agFields (\ s a -> s{_agFields = a})
156agFields = lens _agFields (\ s a -> s{_agFields = a})
149-- | Data format for the response.
158-- | Data format for the response.
150−agAlt :: Lens' AspsGet' Text
159+agAlt :: Lens' AspsGet' Alt
151agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
160agAlt = lens _agAlt (\ s a -> s{_agAlt = a})
153instance GoogleRequest AspsGet' where
162instance GoogleRequest AspsGet' where
154 type Rs AspsGet' = Asp
163 type Rs AspsGet' = Asp
155 request = requestWithRoute defReq adminDirectoryURL
164 request = requestWithRoute defReq adminDirectoryURL
156− requestWithRoute r u AspsGet{..}
165+ requestWithRoute r u AspsGet'{..}
157− = go _agQuotaUser _agPrettyPrint _agCodeId _agUserIp
166+ = go _agQuotaUser (Just _agPrettyPrint) _agCodeId
159 _agOauthToken
169 _agOauthToken
160 _agUserKey
170 _agUserKey
161 _agFields
171 _agFields
162− _agAlt
172+ (Just _agAlt)
164− = clientWithRoute (Proxy :: Proxy AspsGetAPI) r u
174+ = clientWithRoute (Proxy :: Proxy AspsGetResource) r
gogol-admin-directory/gen/Network/Google/Resource/Directory/Asps/List.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List the ASPs issued by a user.
20-- | List the ASPs issued by a user.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryAspsList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryAspsList@.
22−module Directory.Asps.List
23+module Network.Google.Resource.Directory.Asps.List
24 -- * REST Resource
25 -- * REST Resource
25− AspsListAPI
26+ AspsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , aspsList
29+ , aspsList'
29− , AspsList
30+ , AspsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , alQuotaUser
33 , alQuotaUser
@@ -43,15 +44,23 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryAspsList@ which the
46-- | A resource alias for @DirectoryAspsList@ which the
46−-- 'AspsList' request conforms to.
47+-- 'AspsList'' request conforms to.
47−type AspsListAPI =
48+type AspsListResource =
48 "users" :>
49 "users" :>
49− Capture "userKey" Text :> "asps" :> Get '[JSON] Asps
50+ Capture "userKey" Text :>
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] Asps
51-- | List the ASPs issued by a user.
60-- | List the ASPs issued by a user.
53−-- /See:/ 'aspsList' smart constructor.
62+-- /See:/ 'aspsList'' smart constructor.
54−data AspsList = AspsList
63+data AspsList' = AspsList'
55 { _alQuotaUser :: !(Maybe Text)
64 { _alQuotaUser :: !(Maybe Text)
56 , _alPrettyPrint :: !Bool
65 , _alPrettyPrint :: !Bool
57 , _alUserIp :: !(Maybe Text)
66 , _alUserIp :: !(Maybe Text)
@@ -59,7 +68,7 @@ data AspsList = AspsList
59 , _alOauthToken :: !(Maybe Text)
68 , _alOauthToken :: !(Maybe Text)
60 , _alUserKey :: !Text
69 , _alUserKey :: !Text
61 , _alFields :: !(Maybe Text)
70 , _alFields :: !(Maybe Text)
62− , _alAlt :: !Text
71+ , _alAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'AspsList'' with the minimum fields required to make a request.
74-- | Creates a value of 'AspsList'' with the minimum fields required to make a request.
@@ -81,11 +90,11 @@ data AspsList = AspsList
81-- * 'alFields'
90-- * 'alFields'
83-- * 'alAlt'
92-- * 'alAlt'
85 :: Text -- ^ 'userKey'
94 :: Text -- ^ 'userKey'
86− -> AspsList
95+ -> AspsList'
87−aspsList pAlUserKey_ =
96+aspsList' pAlUserKey_ =
88− AspsList
97+ AspsList'
89 { _alQuotaUser = Nothing
98 { _alQuotaUser = Nothing
90 , _alPrettyPrint = True
99 , _alPrettyPrint = True
91 , _alUserIp = Nothing
100 , _alUserIp = Nothing
@@ -93,7 +102,7 @@ aspsList pAlUserKey_ =
93 , _alOauthToken = Nothing
102 , _alOauthToken = Nothing
94 , _alUserKey = pAlUserKey_
103 , _alUserKey = pAlUserKey_
95 , _alFields = Nothing
104 , _alFields = Nothing
96− , _alAlt = "json"
105+ , _alAlt = JSON
99-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -136,17 +145,19 @@ alFields :: Lens' AspsList' (Maybe Text)
136alFields = lens _alFields (\ s a -> s{_alFields = a})
145alFields = lens _alFields (\ s a -> s{_alFields = a})
138-- | Data format for the response.
147-- | Data format for the response.
139−alAlt :: Lens' AspsList' Text
148+alAlt :: Lens' AspsList' Alt
140alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
149alAlt = lens _alAlt (\ s a -> s{_alAlt = a})
142instance GoogleRequest AspsList' where
151instance GoogleRequest AspsList' where
143 type Rs AspsList' = Asps
152 type Rs AspsList' = Asps
144 request = requestWithRoute defReq adminDirectoryURL
153 request = requestWithRoute defReq adminDirectoryURL
145− requestWithRoute r u AspsList{..}
154+ requestWithRoute r u AspsList'{..}
146− = go _alQuotaUser _alPrettyPrint _alUserIp _alKey
155+ = go _alQuotaUser (Just _alPrettyPrint) _alUserIp
147 _alOauthToken
157 _alOauthToken
148 _alUserKey
158 _alUserKey
149 _alFields
159 _alFields
150− _alAlt
160+ (Just _alAlt)
152− = clientWithRoute (Proxy :: Proxy AspsListAPI) r u
162+ = clientWithRoute (Proxy :: Proxy AspsListResource) r
gogol-admin-directory/gen/Network/Google/Resource/Directory/Chromeosdevices/Get.hs+32−23
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve Chrome OS Device
20-- | Retrieve Chrome OS Device
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesGet@.
22−module Directory.Chromeosdevices.Get
23+module Network.Google.Resource.Directory.Chromeosdevices.Get
24 -- * REST Resource
25 -- * REST Resource
25− ChromeosdevicesGetAPI
26+ ChromeosdevicesGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , chromeosdevicesGet
29+ , chromeosdevicesGet'
29− , ChromeosdevicesGet
30+ , ChromeosdevicesGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , cgQuotaUser
33 , cgQuotaUser
@@ -45,30 +46,38 @@ import Network.Google.AdminDirectory.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @DirectoryChromeosdevicesGet@ which the
48-- | A resource alias for @DirectoryChromeosdevicesGet@ which the
48−-- 'ChromeosdevicesGet' request conforms to.
49+-- 'ChromeosdevicesGet'' request conforms to.
49−type ChromeosdevicesGetAPI =
50+type ChromeosdevicesGetResource =
50 "customer" :>
51 "customer" :>
51 Capture "customerId" Text :>
52 Capture "customerId" Text :>
52 "devices" :>
53 "devices" :>
53 "chromeos" :>
54 "chromeos" :>
54 Capture "deviceId" Text :>
55 Capture "deviceId" Text :>
55− QueryParam "projection" Text :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "userIp" Text :>
59+ QueryParam "key" Text :>
60+ QueryParam "projection"
61+ DirectoryChromeosdevicesGetProjection
63+ QueryParam "oauth_token" Text :>
64+ QueryParam "fields" Text :>
56− Get '[JSON] ChromeOsDevice
65+ QueryParam "alt" Alt :> Get '[JSON] ChromeOsDevice
58-- | Retrieve Chrome OS Device
67-- | Retrieve Chrome OS Device
60−-- /See:/ 'chromeosdevicesGet' smart constructor.
69+-- /See:/ 'chromeosdevicesGet'' smart constructor.
61−data ChromeosdevicesGet = ChromeosdevicesGet
70+data ChromeosdevicesGet' = ChromeosdevicesGet'
62 { _cgQuotaUser :: !(Maybe Text)
71 { _cgQuotaUser :: !(Maybe Text)
63 , _cgPrettyPrint :: !Bool
72 , _cgPrettyPrint :: !Bool
64 , _cgUserIp :: !(Maybe Text)
73 , _cgUserIp :: !(Maybe Text)
65 , _cgCustomerId :: !Text
74 , _cgCustomerId :: !Text
66 , _cgKey :: !(Maybe Text)
75 , _cgKey :: !(Maybe Text)
67 , _cgDeviceId :: !Text
76 , _cgDeviceId :: !Text
68− , _cgProjection :: !(Maybe Text)
77+ , _cgProjection :: !(Maybe DirectoryChromeosdevicesGetProjection)
69 , _cgOauthToken :: !(Maybe Text)
78 , _cgOauthToken :: !(Maybe Text)
70 , _cgFields :: !(Maybe Text)
79 , _cgFields :: !(Maybe Text)
71− , _cgAlt :: !Text
80+ , _cgAlt :: !Alt
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74-- | Creates a value of 'ChromeosdevicesGet'' with the minimum fields required to make a request.
83-- | Creates a value of 'ChromeosdevicesGet'' with the minimum fields required to make a request.
@@ -94,12 +103,12 @@ data ChromeosdevicesGet = ChromeosdevicesGet
94-- * 'cgFields'
103-- * 'cgFields'
96-- * 'cgAlt'
105-- * 'cgAlt'
97−chromeosdevicesGet
106+chromeosdevicesGet'
98 :: Text -- ^ 'customerId'
107 :: Text -- ^ 'customerId'
99 -> Text -- ^ 'deviceId'
108 -> Text -- ^ 'deviceId'
100− -> ChromeosdevicesGet
109+ -> ChromeosdevicesGet'
101−chromeosdevicesGet pCgCustomerId_ pCgDeviceId_ =
110+chromeosdevicesGet' pCgCustomerId_ pCgDeviceId_ =
102− ChromeosdevicesGet
111+ ChromeosdevicesGet'
103 { _cgQuotaUser = Nothing
112 { _cgQuotaUser = Nothing
104 , _cgPrettyPrint = True
113 , _cgPrettyPrint = True
105 , _cgUserIp = Nothing
114 , _cgUserIp = Nothing
@@ -109,7 +118,7 @@ chromeosdevicesGet pCgCustomerId_ pCgDeviceId_ =
109 , _cgProjection = Nothing
118 , _cgProjection = Nothing
110 , _cgOauthToken = Nothing
119 , _cgOauthToken = Nothing
111 , _cgFields = Nothing
120 , _cgFields = Nothing
112− , _cgAlt = "json"
121+ , _cgAlt = JSON
115-- | Available to use for quota purposes for server-side applications. Can be
124-- | Available to use for quota purposes for server-side applications. Can be
@@ -147,7 +156,7 @@ cgDeviceId
147 = lens _cgDeviceId (\ s a -> s{_cgDeviceId = a})
156 = lens _cgDeviceId (\ s a -> s{_cgDeviceId = a})
149-- | Restrict information returned to a set of selected fields.
158-- | Restrict information returned to a set of selected fields.
150−cgProjection :: Lens' ChromeosdevicesGet' (Maybe Text)
159+cgProjection :: Lens' ChromeosdevicesGet' (Maybe DirectoryChromeosdevicesGetProjection)
151cgProjection
160cgProjection
152 = lens _cgProjection (\ s a -> s{_cgProjection = a})
161 = lens _cgProjection (\ s a -> s{_cgProjection = a})
@@ -161,23 +170,23 @@ cgFields :: Lens' ChromeosdevicesGet' (Maybe Text)
161cgFields = lens _cgFields (\ s a -> s{_cgFields = a})
170cgFields = lens _cgFields (\ s a -> s{_cgFields = a})
163-- | Data format for the response.
172-- | Data format for the response.
164−cgAlt :: Lens' ChromeosdevicesGet' Text
173+cgAlt :: Lens' ChromeosdevicesGet' Alt
165cgAlt = lens _cgAlt (\ s a -> s{_cgAlt = a})
174cgAlt = lens _cgAlt (\ s a -> s{_cgAlt = a})
167instance GoogleRequest ChromeosdevicesGet' where
176instance GoogleRequest ChromeosdevicesGet' where
168 type Rs ChromeosdevicesGet' = ChromeOsDevice
177 type Rs ChromeosdevicesGet' = ChromeOsDevice
169 request = requestWithRoute defReq adminDirectoryURL
178 request = requestWithRoute defReq adminDirectoryURL
170− requestWithRoute r u ChromeosdevicesGet{..}
179+ requestWithRoute r u ChromeosdevicesGet'{..}
171− = go _cgQuotaUser _cgPrettyPrint _cgUserIp
180+ = go _cgQuotaUser (Just _cgPrettyPrint) _cgUserIp
172 _cgCustomerId
181 _cgCustomerId
174 _cgDeviceId
183 _cgDeviceId
175 _cgProjection
184 _cgProjection
176 _cgOauthToken
185 _cgOauthToken
177 _cgFields
186 _cgFields
178− _cgAlt
187+ (Just _cgAlt)
180 = clientWithRoute
189 = clientWithRoute
181− (Proxy :: Proxy ChromeosdevicesGetAPI)
190+ (Proxy :: Proxy ChromeosdevicesGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Chromeosdevices/List.hs+47−32
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve all Chrome OS Devices of a customer (paginated)
20-- | Retrieve all Chrome OS Devices of a customer (paginated)
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesList@.
22−module Directory.Chromeosdevices.List
23+module Network.Google.Resource.Directory.Chromeosdevices.List
24 -- * REST Resource
25 -- * REST Resource
25− ChromeosdevicesListAPI
26+ ChromeosdevicesListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , chromeosdevicesList
29+ , chromeosdevicesList'
29− , ChromeosdevicesList
30+ , ChromeosdevicesList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , clQuotaUser
33 , clQuotaUser
@@ -49,38 +50,51 @@ import Network.Google.AdminDirectory.Types
49import Network.Google.Prelude
50import Network.Google.Prelude
51-- | A resource alias for @DirectoryChromeosdevicesList@ which the
52-- | A resource alias for @DirectoryChromeosdevicesList@ which the
52−-- 'ChromeosdevicesList' request conforms to.
53+-- 'ChromeosdevicesList'' request conforms to.
53−type ChromeosdevicesListAPI =
54+type ChromeosdevicesListResource =
54 "customer" :>
55 "customer" :>
55 Capture "customerId" Text :>
56 Capture "customerId" Text :>
56 "devices" :>
57 "devices" :>
57 "chromeos" :>
58 "chromeos" :>
58− QueryParam "orderBy" Text :>
59+ QueryParam "quotaUser" Text :>
60+ QueryParam "prettyPrint" Bool :>
62+ DirectoryChromeosdevicesListOrderBy
64+ QueryParam "userIp" Text :>
59− QueryParam "sortOrder" Text :>
65+ QueryParam "sortOrder"
66+ DirectoryChromeosdevicesListSortOrder
68+ QueryParam "key" Text :>
60− QueryParam "query" Text :>
69+ QueryParam "query" Text :>
61− QueryParam "projection" Text :>
70+ QueryParam "projection"
71+ DirectoryChromeosdevicesListProjection
62− QueryParam "pageToken" Text :>
73+ QueryParam "pageToken" Text :>
74+ QueryParam "oauth_token" Text :>
63− QueryParam "maxResults" Int32 :>
75+ QueryParam "maxResults" Int32 :>
76+ QueryParam "fields" Text :>
77+ QueryParam "alt" Alt :>
64− Get '[JSON] ChromeOsDevices
78+ Get '[JSON] ChromeOsDevices
66-- | Retrieve all Chrome OS Devices of a customer (paginated)
80-- | Retrieve all Chrome OS Devices of a customer (paginated)
68−-- /See:/ 'chromeosdevicesList' smart constructor.
82+-- /See:/ 'chromeosdevicesList'' smart constructor.
69−data ChromeosdevicesList = ChromeosdevicesList
83+data ChromeosdevicesList' = ChromeosdevicesList'
70 { _clQuotaUser :: !(Maybe Text)
84 { _clQuotaUser :: !(Maybe Text)
71 , _clPrettyPrint :: !Bool
85 , _clPrettyPrint :: !Bool
72− , _clOrderBy :: !(Maybe Text)
86+ , _clOrderBy :: !(Maybe DirectoryChromeosdevicesListOrderBy)
73 , _clUserIp :: !(Maybe Text)
87 , _clUserIp :: !(Maybe Text)
74 , _clCustomerId :: !Text
88 , _clCustomerId :: !Text
75− , _clSortOrder :: !(Maybe Text)
89+ , _clSortOrder :: !(Maybe DirectoryChromeosdevicesListSortOrder)
76 , _clKey :: !(Maybe Text)
90 , _clKey :: !(Maybe Text)
77 , _clQuery :: !(Maybe Text)
91 , _clQuery :: !(Maybe Text)
78− , _clProjection :: !(Maybe Text)
92+ , _clProjection :: !(Maybe DirectoryChromeosdevicesListProjection)
79 , _clPageToken :: !(Maybe Text)
93 , _clPageToken :: !(Maybe Text)
80 , _clOauthToken :: !(Maybe Text)
94 , _clOauthToken :: !(Maybe Text)
81 , _clMaxResults :: !(Maybe Int32)
95 , _clMaxResults :: !(Maybe Int32)
82 , _clFields :: !(Maybe Text)
96 , _clFields :: !(Maybe Text)
83− , _clAlt :: !Text
97+ , _clAlt :: !Alt
84 } deriving (Eq,Read,Show,Data,Typeable,Generic)
98 } deriving (Eq,Read,Show,Data,Typeable,Generic)
86-- | Creates a value of 'ChromeosdevicesList'' with the minimum fields required to make a request.
100-- | Creates a value of 'ChromeosdevicesList'' with the minimum fields required to make a request.
@@ -114,11 +128,11 @@ data ChromeosdevicesList = ChromeosdevicesList
114-- * 'clFields'
128-- * 'clFields'
116-- * 'clAlt'
130-- * 'clAlt'
117−chromeosdevicesList
131+chromeosdevicesList'
118 :: Text -- ^ 'customerId'
132 :: Text -- ^ 'customerId'
119− -> ChromeosdevicesList
133+ -> ChromeosdevicesList'
120−chromeosdevicesList pClCustomerId_ =
134+chromeosdevicesList' pClCustomerId_ =
121− ChromeosdevicesList
135+ ChromeosdevicesList'
122 { _clQuotaUser = Nothing
136 { _clQuotaUser = Nothing
123 , _clPrettyPrint = True
137 , _clPrettyPrint = True
124 , _clOrderBy = Nothing
138 , _clOrderBy = Nothing
@@ -132,7 +146,7 @@ chromeosdevicesList pClCustomerId_ =
132 , _clOauthToken = Nothing
146 , _clOauthToken = Nothing
133 , _clMaxResults = Nothing
147 , _clMaxResults = Nothing
134 , _clFields = Nothing
148 , _clFields = Nothing
135− , _clAlt = "json"
149+ , _clAlt = JSON
138-- | Available to use for quota purposes for server-side applications. Can be
152-- | Available to use for quota purposes for server-side applications. Can be
@@ -149,7 +163,7 @@ clPrettyPrint
149 (\ s a -> s{_clPrettyPrint = a})
163 (\ s a -> s{_clPrettyPrint = a})
151-- | Column to use for sorting results
165-- | Column to use for sorting results
152−clOrderBy :: Lens' ChromeosdevicesList' (Maybe Text)
166+clOrderBy :: Lens' ChromeosdevicesList' (Maybe DirectoryChromeosdevicesListOrderBy)
154 = lens _clOrderBy (\ s a -> s{_clOrderBy = a})
168 = lens _clOrderBy (\ s a -> s{_clOrderBy = a})
@@ -165,7 +179,7 @@ clCustomerId
166-- | Whether to return results in ascending or descending order. Only of use
180-- | Whether to return results in ascending or descending order. Only of use
167-- when orderBy is also used
181-- when orderBy is also used
168−clSortOrder :: Lens' ChromeosdevicesList' (Maybe Text)
182+clSortOrder :: Lens' ChromeosdevicesList' (Maybe DirectoryChromeosdevicesListSortOrder)
169clSortOrder
183clSortOrder
170 = lens _clSortOrder (\ s a -> s{_clSortOrder = a})
184 = lens _clSortOrder (\ s a -> s{_clSortOrder = a})
@@ -181,7 +195,7 @@ clQuery :: Lens' ChromeosdevicesList' (Maybe Text)
181clQuery = lens _clQuery (\ s a -> s{_clQuery = a})
195clQuery = lens _clQuery (\ s a -> s{_clQuery = a})
183-- | Restrict information returned to a set of selected fields.
197-- | Restrict information returned to a set of selected fields.
184−clProjection :: Lens' ChromeosdevicesList' (Maybe Text)
198+clProjection :: Lens' ChromeosdevicesList' (Maybe DirectoryChromeosdevicesListProjection)
185clProjection
199clProjection
186 = lens _clProjection (\ s a -> s{_clProjection = a})
200 = lens _clProjection (\ s a -> s{_clProjection = a})
@@ -205,14 +219,15 @@ clFields :: Lens' ChromeosdevicesList' (Maybe Text)
205clFields = lens _clFields (\ s a -> s{_clFields = a})
219clFields = lens _clFields (\ s a -> s{_clFields = a})
207-- | Data format for the response.
221-- | Data format for the response.
208−clAlt :: Lens' ChromeosdevicesList' Text
222+clAlt :: Lens' ChromeosdevicesList' Alt
209clAlt = lens _clAlt (\ s a -> s{_clAlt = a})
223clAlt = lens _clAlt (\ s a -> s{_clAlt = a})
211instance GoogleRequest ChromeosdevicesList' where
225instance GoogleRequest ChromeosdevicesList' where
212 type Rs ChromeosdevicesList' = ChromeOsDevices
226 type Rs ChromeosdevicesList' = ChromeOsDevices
213 request = requestWithRoute defReq adminDirectoryURL
227 request = requestWithRoute defReq adminDirectoryURL
214− requestWithRoute r u ChromeosdevicesList{..}
228+ requestWithRoute r u ChromeosdevicesList'{..}
215− = go _clQuotaUser _clPrettyPrint _clOrderBy _clUserIp
229+ = go _clQuotaUser (Just _clPrettyPrint) _clOrderBy
216 _clCustomerId
231 _clCustomerId
217 _clSortOrder
232 _clSortOrder
@@ -222,9 +237,9 @@ instance GoogleRequest ChromeosdevicesList' where
222 _clOauthToken
237 _clOauthToken
223 _clMaxResults
238 _clMaxResults
224 _clFields
239 _clFields
225− _clAlt
240+ (Just _clAlt)
227 = clientWithRoute
242 = clientWithRoute
228− (Proxy :: Proxy ChromeosdevicesListAPI)
243+ (Proxy :: Proxy ChromeosdevicesListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Chromeosdevices/Patch.hs+33−23
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Update Chrome OS Device. This method supports patch semantics.
20-- | Update Chrome OS Device. This method supports patch semantics.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesPatch@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesPatch@.
22−module Directory.Chromeosdevices.Patch
23+module Network.Google.Resource.Directory.Chromeosdevices.Patch
24 -- * REST Resource
25 -- * REST Resource
25− ChromeosdevicesPatchAPI
26+ ChromeosdevicesPatchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , chromeosdevicesPatch
29+ , chromeosdevicesPatch'
29− , ChromeosdevicesPatch
30+ , ChromeosdevicesPatch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , cpQuotaUser
33 , cpQuotaUser
@@ -45,30 +46,39 @@ import Network.Google.AdminDirectory.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @DirectoryChromeosdevicesPatch@ which the
48-- | A resource alias for @DirectoryChromeosdevicesPatch@ which the
48−-- 'ChromeosdevicesPatch' request conforms to.
49+-- 'ChromeosdevicesPatch'' request conforms to.
49−type ChromeosdevicesPatchAPI =
50+type ChromeosdevicesPatchResource =
50 "customer" :>
51 "customer" :>
51 Capture "customerId" Text :>
52 Capture "customerId" Text :>
52 "devices" :>
53 "devices" :>
53 "chromeos" :>
54 "chromeos" :>
54 Capture "deviceId" Text :>
55 Capture "deviceId" Text :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "userIp" Text :>
59+ QueryParam "key" Text :>
55− QueryParam "projection" Text :>
60+ QueryParam "projection"
61+ DirectoryChromeosdevicesPatchProjection
63+ QueryParam "oauth_token" Text :>
64+ QueryParam "fields" Text :>
65+ QueryParam "alt" Alt :>
56− Patch '[JSON] ChromeOsDevice
66+ Patch '[JSON] ChromeOsDevice
58-- | Update Chrome OS Device. This method supports patch semantics.
68-- | Update Chrome OS Device. This method supports patch semantics.
60−-- /See:/ 'chromeosdevicesPatch' smart constructor.
70+-- /See:/ 'chromeosdevicesPatch'' smart constructor.
61−data ChromeosdevicesPatch = ChromeosdevicesPatch
71+data ChromeosdevicesPatch' = ChromeosdevicesPatch'
62 { _cpQuotaUser :: !(Maybe Text)
72 { _cpQuotaUser :: !(Maybe Text)
63 , _cpPrettyPrint :: !Bool
73 , _cpPrettyPrint :: !Bool
64 , _cpUserIp :: !(Maybe Text)
74 , _cpUserIp :: !(Maybe Text)
65 , _cpCustomerId :: !Text
75 , _cpCustomerId :: !Text
66 , _cpKey :: !(Maybe Text)
76 , _cpKey :: !(Maybe Text)
67 , _cpDeviceId :: !Text
77 , _cpDeviceId :: !Text
68− , _cpProjection :: !(Maybe Text)
78+ , _cpProjection :: !(Maybe DirectoryChromeosdevicesPatchProjection)
69 , _cpOauthToken :: !(Maybe Text)
79 , _cpOauthToken :: !(Maybe Text)
70 , _cpFields :: !(Maybe Text)
80 , _cpFields :: !(Maybe Text)
71− , _cpAlt :: !Text
81+ , _cpAlt :: !Alt
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
82 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74-- | Creates a value of 'ChromeosdevicesPatch'' with the minimum fields required to make a request.
84-- | Creates a value of 'ChromeosdevicesPatch'' with the minimum fields required to make a request.
@@ -94,12 +104,12 @@ data ChromeosdevicesPatch = ChromeosdevicesPatch
94-- * 'cpFields'
104-- * 'cpFields'
96-- * 'cpAlt'
106-- * 'cpAlt'
97−chromeosdevicesPatch
107+chromeosdevicesPatch'
98 :: Text -- ^ 'customerId'
108 :: Text -- ^ 'customerId'
99 -> Text -- ^ 'deviceId'
109 -> Text -- ^ 'deviceId'
100− -> ChromeosdevicesPatch
110+ -> ChromeosdevicesPatch'
101−chromeosdevicesPatch pCpCustomerId_ pCpDeviceId_ =
111+chromeosdevicesPatch' pCpCustomerId_ pCpDeviceId_ =
102− ChromeosdevicesPatch
112+ ChromeosdevicesPatch'
103 { _cpQuotaUser = Nothing
113 { _cpQuotaUser = Nothing
104 , _cpPrettyPrint = True
114 , _cpPrettyPrint = True
105 , _cpUserIp = Nothing
115 , _cpUserIp = Nothing
@@ -109,7 +119,7 @@ chromeosdevicesPatch pCpCustomerId_ pCpDeviceId_ =
109 , _cpProjection = Nothing
119 , _cpProjection = Nothing
110 , _cpOauthToken = Nothing
120 , _cpOauthToken = Nothing
111 , _cpFields = Nothing
121 , _cpFields = Nothing
112− , _cpAlt = "json"
122+ , _cpAlt = JSON
115-- | Available to use for quota purposes for server-side applications. Can be
125-- | Available to use for quota purposes for server-side applications. Can be
@@ -147,7 +157,7 @@ cpDeviceId
147 = lens _cpDeviceId (\ s a -> s{_cpDeviceId = a})
157 = lens _cpDeviceId (\ s a -> s{_cpDeviceId = a})
149-- | Restrict information returned to a set of selected fields.
159-- | Restrict information returned to a set of selected fields.
150−cpProjection :: Lens' ChromeosdevicesPatch' (Maybe Text)
160+cpProjection :: Lens' ChromeosdevicesPatch' (Maybe DirectoryChromeosdevicesPatchProjection)
151cpProjection
161cpProjection
152 = lens _cpProjection (\ s a -> s{_cpProjection = a})
162 = lens _cpProjection (\ s a -> s{_cpProjection = a})
@@ -161,23 +171,23 @@ cpFields :: Lens' ChromeosdevicesPatch' (Maybe Text)
161cpFields = lens _cpFields (\ s a -> s{_cpFields = a})
171cpFields = lens _cpFields (\ s a -> s{_cpFields = a})
163-- | Data format for the response.
173-- | Data format for the response.
164−cpAlt :: Lens' ChromeosdevicesPatch' Text
174+cpAlt :: Lens' ChromeosdevicesPatch' Alt
165cpAlt = lens _cpAlt (\ s a -> s{_cpAlt = a})
175cpAlt = lens _cpAlt (\ s a -> s{_cpAlt = a})
167instance GoogleRequest ChromeosdevicesPatch' where
177instance GoogleRequest ChromeosdevicesPatch' where
168 type Rs ChromeosdevicesPatch' = ChromeOsDevice
178 type Rs ChromeosdevicesPatch' = ChromeOsDevice
169 request = requestWithRoute defReq adminDirectoryURL
179 request = requestWithRoute defReq adminDirectoryURL
170− requestWithRoute r u ChromeosdevicesPatch{..}
180+ requestWithRoute r u ChromeosdevicesPatch'{..}
171− = go _cpQuotaUser _cpPrettyPrint _cpUserIp
181+ = go _cpQuotaUser (Just _cpPrettyPrint) _cpUserIp
172 _cpCustomerId
182 _cpCustomerId
174 _cpDeviceId
184 _cpDeviceId
175 _cpProjection
185 _cpProjection
176 _cpOauthToken
186 _cpOauthToken
177 _cpFields
187 _cpFields
178− _cpAlt
188+ (Just _cpAlt)
180 = clientWithRoute
190 = clientWithRoute
181− (Proxy :: Proxy ChromeosdevicesPatchAPI)
191+ (Proxy :: Proxy ChromeosdevicesPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Chromeosdevices/Update.hs+32−23
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Update Chrome OS Device
20-- | Update Chrome OS Device
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesUpdate@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryChromeosdevicesUpdate@.
22−module Directory.Chromeosdevices.Update
23+module Network.Google.Resource.Directory.Chromeosdevices.Update
24 -- * REST Resource
25 -- * REST Resource
25− ChromeosdevicesUpdateAPI
26+ ChromeosdevicesUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , chromeosdevicesUpdate
29+ , chromeosdevicesUpdate'
29− , ChromeosdevicesUpdate
30+ , ChromeosdevicesUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , cuQuotaUser
33 , cuQuotaUser
@@ -45,30 +46,38 @@ import Network.Google.AdminDirectory.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @DirectoryChromeosdevicesUpdate@ which the
48-- | A resource alias for @DirectoryChromeosdevicesUpdate@ which the
48−-- 'ChromeosdevicesUpdate' request conforms to.
49+-- 'ChromeosdevicesUpdate'' request conforms to.
49−type ChromeosdevicesUpdateAPI =
50+type ChromeosdevicesUpdateResource =
50 "customer" :>
51 "customer" :>
51 Capture "customerId" Text :>
52 Capture "customerId" Text :>
52 "devices" :>
53 "devices" :>
53 "chromeos" :>
54 "chromeos" :>
54 Capture "deviceId" Text :>
55 Capture "deviceId" Text :>
55− QueryParam "projection" Text :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "userIp" Text :>
59+ QueryParam "key" Text :>
60+ QueryParam "projection"
61+ DirectoryChromeosdevicesUpdateProjection
63+ QueryParam "oauth_token" Text :>
64+ QueryParam "fields" Text :>
56− Put '[JSON] ChromeOsDevice
65+ QueryParam "alt" Alt :> Put '[JSON] ChromeOsDevice
58-- | Update Chrome OS Device
67-- | Update Chrome OS Device
60−-- /See:/ 'chromeosdevicesUpdate' smart constructor.
69+-- /See:/ 'chromeosdevicesUpdate'' smart constructor.
61−data ChromeosdevicesUpdate = ChromeosdevicesUpdate
70+data ChromeosdevicesUpdate' = ChromeosdevicesUpdate'
62 { _cuQuotaUser :: !(Maybe Text)
71 { _cuQuotaUser :: !(Maybe Text)
63 , _cuPrettyPrint :: !Bool
72 , _cuPrettyPrint :: !Bool
64 , _cuUserIp :: !(Maybe Text)
73 , _cuUserIp :: !(Maybe Text)
65 , _cuCustomerId :: !Text
74 , _cuCustomerId :: !Text
66 , _cuKey :: !(Maybe Text)
75 , _cuKey :: !(Maybe Text)
67 , _cuDeviceId :: !Text
76 , _cuDeviceId :: !Text
68− , _cuProjection :: !(Maybe Text)
77+ , _cuProjection :: !(Maybe DirectoryChromeosdevicesUpdateProjection)
69 , _cuOauthToken :: !(Maybe Text)
78 , _cuOauthToken :: !(Maybe Text)
70 , _cuFields :: !(Maybe Text)
79 , _cuFields :: !(Maybe Text)
71− , _cuAlt :: !Text
80+ , _cuAlt :: !Alt
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74-- | Creates a value of 'ChromeosdevicesUpdate'' with the minimum fields required to make a request.
83-- | Creates a value of 'ChromeosdevicesUpdate'' with the minimum fields required to make a request.
@@ -94,12 +103,12 @@ data ChromeosdevicesUpdate = ChromeosdevicesUpdate
94-- * 'cuFields'
103-- * 'cuFields'
96-- * 'cuAlt'
105-- * 'cuAlt'
97−chromeosdevicesUpdate
106+chromeosdevicesUpdate'
98 :: Text -- ^ 'customerId'
107 :: Text -- ^ 'customerId'
99 -> Text -- ^ 'deviceId'
108 -> Text -- ^ 'deviceId'
100− -> ChromeosdevicesUpdate
109+ -> ChromeosdevicesUpdate'
101−chromeosdevicesUpdate pCuCustomerId_ pCuDeviceId_ =
110+chromeosdevicesUpdate' pCuCustomerId_ pCuDeviceId_ =
102− ChromeosdevicesUpdate
111+ ChromeosdevicesUpdate'
103 { _cuQuotaUser = Nothing
112 { _cuQuotaUser = Nothing
104 , _cuPrettyPrint = True
113 , _cuPrettyPrint = True
105 , _cuUserIp = Nothing
114 , _cuUserIp = Nothing
@@ -109,7 +118,7 @@ chromeosdevicesUpdate pCuCustomerId_ pCuDeviceId_ =
109 , _cuProjection = Nothing
118 , _cuProjection = Nothing
110 , _cuOauthToken = Nothing
119 , _cuOauthToken = Nothing
111 , _cuFields = Nothing
120 , _cuFields = Nothing
112− , _cuAlt = "json"
121+ , _cuAlt = JSON
115-- | Available to use for quota purposes for server-side applications. Can be
124-- | Available to use for quota purposes for server-side applications. Can be
@@ -147,7 +156,7 @@ cuDeviceId
147 = lens _cuDeviceId (\ s a -> s{_cuDeviceId = a})
156 = lens _cuDeviceId (\ s a -> s{_cuDeviceId = a})
149-- | Restrict information returned to a set of selected fields.
158-- | Restrict information returned to a set of selected fields.
150−cuProjection :: Lens' ChromeosdevicesUpdate' (Maybe Text)
159+cuProjection :: Lens' ChromeosdevicesUpdate' (Maybe DirectoryChromeosdevicesUpdateProjection)
151cuProjection
160cuProjection
152 = lens _cuProjection (\ s a -> s{_cuProjection = a})
161 = lens _cuProjection (\ s a -> s{_cuProjection = a})
@@ -161,23 +170,23 @@ cuFields :: Lens' ChromeosdevicesUpdate' (Maybe Text)
161cuFields = lens _cuFields (\ s a -> s{_cuFields = a})
170cuFields = lens _cuFields (\ s a -> s{_cuFields = a})
163-- | Data format for the response.
172-- | Data format for the response.
164−cuAlt :: Lens' ChromeosdevicesUpdate' Text
173+cuAlt :: Lens' ChromeosdevicesUpdate' Alt
165cuAlt = lens _cuAlt (\ s a -> s{_cuAlt = a})
174cuAlt = lens _cuAlt (\ s a -> s{_cuAlt = a})
167instance GoogleRequest ChromeosdevicesUpdate' where
176instance GoogleRequest ChromeosdevicesUpdate' where
168 type Rs ChromeosdevicesUpdate' = ChromeOsDevice
177 type Rs ChromeosdevicesUpdate' = ChromeOsDevice
169 request = requestWithRoute defReq adminDirectoryURL
178 request = requestWithRoute defReq adminDirectoryURL
170− requestWithRoute r u ChromeosdevicesUpdate{..}
179+ requestWithRoute r u ChromeosdevicesUpdate'{..}
171− = go _cuQuotaUser _cuPrettyPrint _cuUserIp
180+ = go _cuQuotaUser (Just _cuPrettyPrint) _cuUserIp
172 _cuCustomerId
181 _cuCustomerId
174 _cuDeviceId
183 _cuDeviceId
175 _cuProjection
184 _cuProjection
176 _cuOauthToken
185 _cuOauthToken
177 _cuFields
186 _cuFields
178− _cuAlt
187+ (Just _cuAlt)
180 = clientWithRoute
189 = clientWithRoute
181− (Proxy :: Proxy ChromeosdevicesUpdateAPI)
190+ (Proxy :: Proxy ChromeosdevicesUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Aliases/Delete.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Remove a alias for the group
20-- | Remove a alias for the group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsAliasesDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsAliasesDelete@.
22−module Directory.Groups.Aliases.Delete
23+module Network.Google.Resource.Directory.Groups.Aliases.Delete
24 -- * REST Resource
25 -- * REST Resource
25− GroupsAliasesDeleteAPI
26+ GroupsAliasesDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsAliasesDelete
29+ , groupsAliasesDelete'
29− , GroupsAliasesDelete
30+ , GroupsAliasesDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , gadQuotaUser
33 , gadQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryGroupsAliasesDelete@ which the
47-- | A resource alias for @DirectoryGroupsAliasesDelete@ which the
47−-- 'GroupsAliasesDelete' request conforms to.
48+-- 'GroupsAliasesDelete'' request conforms to.
48−type GroupsAliasesDeleteAPI =
49+type GroupsAliasesDeleteResource =
49 "groups" :>
50 "groups" :>
50 Capture "groupKey" Text :>
51 Capture "groupKey" Text :>
51 "aliases" :>
52 "aliases" :>
52− Capture "alias" Text :> Delete '[JSON] ()
53+ Capture "alias" 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 :> Delete '[JSON] ()
54-- | Remove a alias for the group
62-- | Remove a alias for the group
56−-- /See:/ 'groupsAliasesDelete' smart constructor.
64+-- /See:/ 'groupsAliasesDelete'' smart constructor.
57−data GroupsAliasesDelete = GroupsAliasesDelete
65+data GroupsAliasesDelete' = GroupsAliasesDelete'
58 { _gadQuotaUser :: !(Maybe Text)
66 { _gadQuotaUser :: !(Maybe Text)
59 , _gadPrettyPrint :: !Bool
67 , _gadPrettyPrint :: !Bool
60 , _gadUserIp :: !(Maybe Text)
68 , _gadUserIp :: !(Maybe Text)
@@ -63,7 +71,7 @@ data GroupsAliasesDelete = GroupsAliasesDelete
63 , _gadKey :: !(Maybe Text)
71 , _gadKey :: !(Maybe Text)
64 , _gadOauthToken :: !(Maybe Text)
72 , _gadOauthToken :: !(Maybe Text)
65 , _gadFields :: !(Maybe Text)
73 , _gadFields :: !(Maybe Text)
66− , _gadAlt :: !Text
74+ , _gadAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'GroupsAliasesDelete'' with the minimum fields required to make a request.
77-- | Creates a value of 'GroupsAliasesDelete'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data GroupsAliasesDelete = GroupsAliasesDelete
87-- * 'gadFields'
95-- * 'gadFields'
89-- * 'gadAlt'
97-- * 'gadAlt'
90−groupsAliasesDelete
98+groupsAliasesDelete'
91 :: Text -- ^ 'groupKey'
99 :: Text -- ^ 'groupKey'
92 -> Text -- ^ 'alias'
100 -> Text -- ^ 'alias'
93− -> GroupsAliasesDelete
101+ -> GroupsAliasesDelete'
94−groupsAliasesDelete pGadGroupKey_ pGadAlias_ =
102+groupsAliasesDelete' pGadGroupKey_ pGadAlias_ =
95− GroupsAliasesDelete
103+ GroupsAliasesDelete'
96 { _gadQuotaUser = Nothing
104 { _gadQuotaUser = Nothing
97 , _gadPrettyPrint = True
105 , _gadPrettyPrint = True
98 , _gadUserIp = Nothing
106 , _gadUserIp = Nothing
@@ -101,7 +109,7 @@ groupsAliasesDelete pGadGroupKey_ pGadAlias_ =
101 , _gadKey = Nothing
109 , _gadKey = Nothing
102 , _gadOauthToken = Nothing
110 , _gadOauthToken = Nothing
103 , _gadFields = Nothing
111 , _gadFields = Nothing
104− , _gadAlt = "json"
112+ , _gadAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -150,22 +158,22 @@ gadFields
150 = lens _gadFields (\ s a -> s{_gadFields = a})
158 = lens _gadFields (\ s a -> s{_gadFields = a})
152-- | Data format for the response.
160-- | Data format for the response.
153−gadAlt :: Lens' GroupsAliasesDelete' Text
161+gadAlt :: Lens' GroupsAliasesDelete' Alt
154gadAlt = lens _gadAlt (\ s a -> s{_gadAlt = a})
162gadAlt = lens _gadAlt (\ s a -> s{_gadAlt = a})
156instance GoogleRequest GroupsAliasesDelete' where
164instance GoogleRequest GroupsAliasesDelete' where
157 type Rs GroupsAliasesDelete' = ()
165 type Rs GroupsAliasesDelete' = ()
158 request = requestWithRoute defReq adminDirectoryURL
166 request = requestWithRoute defReq adminDirectoryURL
159− requestWithRoute r u GroupsAliasesDelete{..}
167+ requestWithRoute r u GroupsAliasesDelete'{..}
160− = go _gadQuotaUser _gadPrettyPrint _gadUserIp
168+ = go _gadQuotaUser (Just _gadPrettyPrint) _gadUserIp
161 _gadGroupKey
169 _gadGroupKey
162 _gadAlias
170 _gadAlias
164 _gadOauthToken
172 _gadOauthToken
165 _gadFields
173 _gadFields
166− _gadAlt
174+ (Just _gadAlt)
168 = clientWithRoute
176 = clientWithRoute
169− (Proxy :: Proxy GroupsAliasesDeleteAPI)
177+ (Proxy :: Proxy GroupsAliasesDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Aliases/Insert.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Add a alias for the group
20-- | Add a alias for the group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsAliasesInsert@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsAliasesInsert@.
22−module Directory.Groups.Aliases.Insert
23+module Network.Google.Resource.Directory.Groups.Aliases.Insert
24 -- * REST Resource
25 -- * REST Resource
25− GroupsAliasesInsertAPI
26+ GroupsAliasesInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsAliasesInsert
29+ , groupsAliasesInsert'
29− , GroupsAliasesInsert
30+ , GroupsAliasesInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , gaiQuotaUser
33 , gaiQuotaUser
@@ -43,16 +44,23 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryGroupsAliasesInsert@ which the
46-- | A resource alias for @DirectoryGroupsAliasesInsert@ which the
46−-- 'GroupsAliasesInsert' request conforms to.
47+-- 'GroupsAliasesInsert'' request conforms to.
47−type GroupsAliasesInsertAPI =
48+type GroupsAliasesInsertResource =
48 "groups" :>
49 "groups" :>
49 Capture "groupKey" Text :>
50 Capture "groupKey" Text :>
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 :>
50− "aliases" :> Post '[JSON] Alias
58+ QueryParam "alt" Alt :> Post '[JSON] Alias
52-- | Add a alias for the group
60-- | Add a alias for the group
54−-- /See:/ 'groupsAliasesInsert' smart constructor.
62+-- /See:/ 'groupsAliasesInsert'' smart constructor.
55−data GroupsAliasesInsert = GroupsAliasesInsert
63+data GroupsAliasesInsert' = GroupsAliasesInsert'
56 { _gaiQuotaUser :: !(Maybe Text)
64 { _gaiQuotaUser :: !(Maybe Text)
57 , _gaiPrettyPrint :: !Bool
65 , _gaiPrettyPrint :: !Bool
58 , _gaiUserIp :: !(Maybe Text)
66 , _gaiUserIp :: !(Maybe Text)
@@ -60,7 +68,7 @@ data GroupsAliasesInsert = GroupsAliasesInsert
60 , _gaiKey :: !(Maybe Text)
68 , _gaiKey :: !(Maybe Text)
61 , _gaiOauthToken :: !(Maybe Text)
69 , _gaiOauthToken :: !(Maybe Text)
62 , _gaiFields :: !(Maybe Text)
70 , _gaiFields :: !(Maybe Text)
63− , _gaiAlt :: !Text
71+ , _gaiAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'GroupsAliasesInsert'' with the minimum fields required to make a request.
74-- | Creates a value of 'GroupsAliasesInsert'' with the minimum fields required to make a request.
@@ -82,11 +90,11 @@ data GroupsAliasesInsert = GroupsAliasesInsert
82-- * 'gaiFields'
90-- * 'gaiFields'
84-- * 'gaiAlt'
92-- * 'gaiAlt'
85−groupsAliasesInsert
93+groupsAliasesInsert'
86 :: Text -- ^ 'groupKey'
94 :: Text -- ^ 'groupKey'
87− -> GroupsAliasesInsert
95+ -> GroupsAliasesInsert'
88−groupsAliasesInsert pGaiGroupKey_ =
96+groupsAliasesInsert' pGaiGroupKey_ =
89− GroupsAliasesInsert
97+ GroupsAliasesInsert'
90 { _gaiQuotaUser = Nothing
98 { _gaiQuotaUser = Nothing
91 , _gaiPrettyPrint = True
99 , _gaiPrettyPrint = True
92 , _gaiUserIp = Nothing
100 , _gaiUserIp = Nothing
@@ -94,7 +102,7 @@ groupsAliasesInsert pGaiGroupKey_ =
94 , _gaiKey = Nothing
102 , _gaiKey = Nothing
95 , _gaiOauthToken = Nothing
103 , _gaiOauthToken = Nothing
96 , _gaiFields = Nothing
104 , _gaiFields = Nothing
97− , _gaiAlt = "json"
105+ , _gaiAlt = JSON
100-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -139,21 +147,21 @@ gaiFields
139 = lens _gaiFields (\ s a -> s{_gaiFields = a})
147 = lens _gaiFields (\ s a -> s{_gaiFields = a})
141-- | Data format for the response.
149-- | Data format for the response.
142−gaiAlt :: Lens' GroupsAliasesInsert' Text
150+gaiAlt :: Lens' GroupsAliasesInsert' Alt
143gaiAlt = lens _gaiAlt (\ s a -> s{_gaiAlt = a})
151gaiAlt = lens _gaiAlt (\ s a -> s{_gaiAlt = a})
145instance GoogleRequest GroupsAliasesInsert' where
153instance GoogleRequest GroupsAliasesInsert' where
146 type Rs GroupsAliasesInsert' = Alias
154 type Rs GroupsAliasesInsert' = Alias
147 request = requestWithRoute defReq adminDirectoryURL
155 request = requestWithRoute defReq adminDirectoryURL
148− requestWithRoute r u GroupsAliasesInsert{..}
156+ requestWithRoute r u GroupsAliasesInsert'{..}
149− = go _gaiQuotaUser _gaiPrettyPrint _gaiUserIp
157+ = go _gaiQuotaUser (Just _gaiPrettyPrint) _gaiUserIp
150 _gaiGroupKey
158 _gaiGroupKey
152 _gaiOauthToken
160 _gaiOauthToken
153 _gaiFields
161 _gaiFields
154− _gaiAlt
162+ (Just _gaiAlt)
156 = clientWithRoute
164 = clientWithRoute
157− (Proxy :: Proxy GroupsAliasesInsertAPI)
165+ (Proxy :: Proxy GroupsAliasesInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Aliases/List.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | List all aliases for a group
20-- | List all aliases for a group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsAliasesList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsAliasesList@.
22−module Directory.Groups.Aliases.List
23+module Network.Google.Resource.Directory.Groups.Aliases.List
24 -- * REST Resource
25 -- * REST Resource
25− GroupsAliasesListAPI
26+ GroupsAliasesListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsAliasesList
29+ , groupsAliasesList'
29− , GroupsAliasesList
30+ , GroupsAliasesList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , galQuotaUser
33 , galQuotaUser
@@ -43,16 +44,23 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryGroupsAliasesList@ which the
46-- | A resource alias for @DirectoryGroupsAliasesList@ which the
46−-- 'GroupsAliasesList' request conforms to.
47+-- 'GroupsAliasesList'' request conforms to.
47−type GroupsAliasesListAPI =
48+type GroupsAliasesListResource =
48 "groups" :>
49 "groups" :>
49 Capture "groupKey" Text :>
50 Capture "groupKey" Text :>
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 :>
50− "aliases" :> Get '[JSON] Aliases
58+ QueryParam "alt" Alt :> Get '[JSON] Aliases
52-- | List all aliases for a group
60-- | List all aliases for a group
54−-- /See:/ 'groupsAliasesList' smart constructor.
62+-- /See:/ 'groupsAliasesList'' smart constructor.
55−data GroupsAliasesList = GroupsAliasesList
63+data GroupsAliasesList' = GroupsAliasesList'
56 { _galQuotaUser :: !(Maybe Text)
64 { _galQuotaUser :: !(Maybe Text)
57 , _galPrettyPrint :: !Bool
65 , _galPrettyPrint :: !Bool
58 , _galUserIp :: !(Maybe Text)
66 , _galUserIp :: !(Maybe Text)
@@ -60,7 +68,7 @@ data GroupsAliasesList = GroupsAliasesList
60 , _galKey :: !(Maybe Text)
68 , _galKey :: !(Maybe Text)
61 , _galOauthToken :: !(Maybe Text)
69 , _galOauthToken :: !(Maybe Text)
62 , _galFields :: !(Maybe Text)
70 , _galFields :: !(Maybe Text)
63− , _galAlt :: !Text
71+ , _galAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'GroupsAliasesList'' with the minimum fields required to make a request.
74-- | Creates a value of 'GroupsAliasesList'' with the minimum fields required to make a request.
@@ -82,11 +90,11 @@ data GroupsAliasesList = GroupsAliasesList
82-- * 'galFields'
90-- * 'galFields'
84-- * 'galAlt'
92-- * 'galAlt'
85−groupsAliasesList
93+groupsAliasesList'
86 :: Text -- ^ 'groupKey'
94 :: Text -- ^ 'groupKey'
87− -> GroupsAliasesList
95+ -> GroupsAliasesList'
88−groupsAliasesList pGalGroupKey_ =
96+groupsAliasesList' pGalGroupKey_ =
89− GroupsAliasesList
97+ GroupsAliasesList'
90 { _galQuotaUser = Nothing
98 { _galQuotaUser = Nothing
91 , _galPrettyPrint = True
99 , _galPrettyPrint = True
92 , _galUserIp = Nothing
100 , _galUserIp = Nothing
@@ -94,7 +102,7 @@ groupsAliasesList pGalGroupKey_ =
94 , _galKey = Nothing
102 , _galKey = Nothing
95 , _galOauthToken = Nothing
103 , _galOauthToken = Nothing
96 , _galFields = Nothing
104 , _galFields = Nothing
97− , _galAlt = "json"
105+ , _galAlt = JSON
100-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -139,21 +147,21 @@ galFields
139 = lens _galFields (\ s a -> s{_galFields = a})
147 = lens _galFields (\ s a -> s{_galFields = a})
141-- | Data format for the response.
149-- | Data format for the response.
142−galAlt :: Lens' GroupsAliasesList' Text
150+galAlt :: Lens' GroupsAliasesList' Alt
143galAlt = lens _galAlt (\ s a -> s{_galAlt = a})
151galAlt = lens _galAlt (\ s a -> s{_galAlt = a})
145instance GoogleRequest GroupsAliasesList' where
153instance GoogleRequest GroupsAliasesList' where
146 type Rs GroupsAliasesList' = Aliases
154 type Rs GroupsAliasesList' = Aliases
147 request = requestWithRoute defReq adminDirectoryURL
155 request = requestWithRoute defReq adminDirectoryURL
148− requestWithRoute r u GroupsAliasesList{..}
156+ requestWithRoute r u GroupsAliasesList'{..}
149− = go _galQuotaUser _galPrettyPrint _galUserIp
157+ = go _galQuotaUser (Just _galPrettyPrint) _galUserIp
150 _galGroupKey
158 _galGroupKey
152 _galOauthToken
160 _galOauthToken
153 _galFields
161 _galFields
154− _galAlt
162+ (Just _galAlt)
156 = clientWithRoute
164 = clientWithRoute
157− (Proxy :: Proxy GroupsAliasesListAPI)
165+ (Proxy :: Proxy GroupsAliasesListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Delete.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Delete Group
20-- | Delete Group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsDelete@.
22−module Directory.Groups.Delete
23+module Network.Google.Resource.Directory.Groups.Delete
24 -- * REST Resource
25 -- * REST Resource
25− GroupsDeleteAPI
26+ GroupsDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsDelete
29+ , groupsDelete'
29− , GroupsDelete
30+ , GroupsDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , gdQuotaUser
33 , gdQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryGroupsDelete@ which the
46-- | A resource alias for @DirectoryGroupsDelete@ which the
46−-- 'GroupsDelete' request conforms to.
47+-- 'GroupsDelete'' request conforms to.
47−type GroupsDeleteAPI =
48+type GroupsDeleteResource =
48 "groups" :>
49 "groups" :>
49− Capture "groupKey" Text :> Delete '[JSON] ()
50+ Capture "groupKey" 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 :> Delete '[JSON] ()
51-- | Delete Group
59-- | Delete Group
53−-- /See:/ 'groupsDelete' smart constructor.
61+-- /See:/ 'groupsDelete'' smart constructor.
54−data GroupsDelete = GroupsDelete
62+data GroupsDelete' = GroupsDelete'
55 { _gdQuotaUser :: !(Maybe Text)
63 { _gdQuotaUser :: !(Maybe Text)
56 , _gdPrettyPrint :: !Bool
64 , _gdPrettyPrint :: !Bool
57 , _gdUserIp :: !(Maybe Text)
65 , _gdUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data GroupsDelete = GroupsDelete
59 , _gdKey :: !(Maybe Text)
67 , _gdKey :: !(Maybe Text)
60 , _gdOauthToken :: !(Maybe Text)
68 , _gdOauthToken :: !(Maybe Text)
61 , _gdFields :: !(Maybe Text)
69 , _gdFields :: !(Maybe Text)
62− , _gdAlt :: !Text
70+ , _gdAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'GroupsDelete'' with the minimum fields required to make a request.
73-- | Creates a value of 'GroupsDelete'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data GroupsDelete = GroupsDelete
81-- * 'gdFields'
89-- * 'gdFields'
83-- * 'gdAlt'
91-- * 'gdAlt'
84−groupsDelete
92+groupsDelete'
85 :: Text -- ^ 'groupKey'
93 :: Text -- ^ 'groupKey'
86− -> GroupsDelete
94+ -> GroupsDelete'
87−groupsDelete pGdGroupKey_ =
95+groupsDelete' pGdGroupKey_ =
88− GroupsDelete
96+ GroupsDelete'
89 { _gdQuotaUser = Nothing
97 { _gdQuotaUser = Nothing
90 , _gdPrettyPrint = True
98 , _gdPrettyPrint = True
91 , _gdUserIp = Nothing
99 , _gdUserIp = Nothing
@@ -93,7 +101,7 @@ groupsDelete pGdGroupKey_ =
93 , _gdKey = Nothing
101 , _gdKey = Nothing
94 , _gdOauthToken = Nothing
102 , _gdOauthToken = Nothing
95 , _gdFields = Nothing
103 , _gdFields = Nothing
96− , _gdAlt = "json"
104+ , _gdAlt = JSON
99-- | 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
@@ -135,19 +143,21 @@ gdFields :: Lens' GroupsDelete' (Maybe Text)
135gdFields = lens _gdFields (\ s a -> s{_gdFields = a})
143gdFields = lens _gdFields (\ s a -> s{_gdFields = a})
137-- | Data format for the response.
145-- | Data format for the response.
138−gdAlt :: Lens' GroupsDelete' Text
146+gdAlt :: Lens' GroupsDelete' Alt
139gdAlt = lens _gdAlt (\ s a -> s{_gdAlt = a})
147gdAlt = lens _gdAlt (\ s a -> s{_gdAlt = a})
141instance GoogleRequest GroupsDelete' where
149instance GoogleRequest GroupsDelete' where
142 type Rs GroupsDelete' = ()
150 type Rs GroupsDelete' = ()
143 request = requestWithRoute defReq adminDirectoryURL
151 request = requestWithRoute defReq adminDirectoryURL
144− requestWithRoute r u GroupsDelete{..}
152+ requestWithRoute r u GroupsDelete'{..}
145− = go _gdQuotaUser _gdPrettyPrint _gdUserIp
153+ = go _gdQuotaUser (Just _gdPrettyPrint) _gdUserIp
146 _gdGroupKey
154 _gdGroupKey
148 _gdOauthToken
156 _gdOauthToken
149 _gdFields
157 _gdFields
150− _gdAlt
158+ (Just _gdAlt)
152− = clientWithRoute (Proxy :: Proxy GroupsDeleteAPI) r
160+ = clientWithRoute
161+ (Proxy :: Proxy GroupsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Get.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve Group
20-- | Retrieve Group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsGet@.
22−module Directory.Groups.Get
23+module Network.Google.Resource.Directory.Groups.Get
24 -- * REST Resource
25 -- * REST Resource
25− GroupsGetAPI
26+ GroupsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsGet
29+ , groupsGet'
29− , GroupsGet
30+ , GroupsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ggQuotaUser
33 , ggQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryGroupsGet@ which the
46-- | A resource alias for @DirectoryGroupsGet@ which the
46−-- 'GroupsGet' request conforms to.
47+-- 'GroupsGet'' request conforms to.
47−type GroupsGetAPI =
48+type GroupsGetResource =
48 "groups" :>
49 "groups" :>
49− Capture "groupKey" Text :> Get '[JSON] Group
50+ Capture "groupKey" 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] Group
51-- | Retrieve Group
59-- | Retrieve Group
53−-- /See:/ 'groupsGet' smart constructor.
61+-- /See:/ 'groupsGet'' smart constructor.
54−data GroupsGet = GroupsGet
62+data GroupsGet' = GroupsGet'
55 { _ggQuotaUser :: !(Maybe Text)
63 { _ggQuotaUser :: !(Maybe Text)
56 , _ggPrettyPrint :: !Bool
64 , _ggPrettyPrint :: !Bool
57 , _ggUserIp :: !(Maybe Text)
65 , _ggUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data GroupsGet = GroupsGet
59 , _ggKey :: !(Maybe Text)
67 , _ggKey :: !(Maybe Text)
60 , _ggOauthToken :: !(Maybe Text)
68 , _ggOauthToken :: !(Maybe Text)
61 , _ggFields :: !(Maybe Text)
69 , _ggFields :: !(Maybe Text)
62− , _ggAlt :: !Text
70+ , _ggAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'GroupsGet'' with the minimum fields required to make a request.
73-- | Creates a value of 'GroupsGet'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data GroupsGet = GroupsGet
81-- * 'ggFields'
89-- * 'ggFields'
83-- * 'ggAlt'
91-- * 'ggAlt'
84−groupsGet
92+groupsGet'
85 :: Text -- ^ 'groupKey'
93 :: Text -- ^ 'groupKey'
86− -> GroupsGet
94+ -> GroupsGet'
87−groupsGet pGgGroupKey_ =
95+groupsGet' pGgGroupKey_ =
88− GroupsGet
96+ GroupsGet'
89 { _ggQuotaUser = Nothing
97 { _ggQuotaUser = Nothing
90 , _ggPrettyPrint = True
98 , _ggPrettyPrint = True
91 , _ggUserIp = Nothing
99 , _ggUserIp = Nothing
@@ -93,7 +101,7 @@ groupsGet pGgGroupKey_ =
93 , _ggKey = Nothing
101 , _ggKey = Nothing
94 , _ggOauthToken = Nothing
102 , _ggOauthToken = Nothing
95 , _ggFields = Nothing
103 , _ggFields = Nothing
96− , _ggAlt = "json"
104+ , _ggAlt = JSON
99-- | 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
@@ -135,18 +143,20 @@ ggFields :: Lens' GroupsGet' (Maybe Text)
135ggFields = lens _ggFields (\ s a -> s{_ggFields = a})
143ggFields = lens _ggFields (\ s a -> s{_ggFields = a})
137-- | Data format for the response.
145-- | Data format for the response.
138−ggAlt :: Lens' GroupsGet' Text
146+ggAlt :: Lens' GroupsGet' Alt
139ggAlt = lens _ggAlt (\ s a -> s{_ggAlt = a})
147ggAlt = lens _ggAlt (\ s a -> s{_ggAlt = a})
141instance GoogleRequest GroupsGet' where
149instance GoogleRequest GroupsGet' where
142 type Rs GroupsGet' = Group
150 type Rs GroupsGet' = Group
143 request = requestWithRoute defReq adminDirectoryURL
151 request = requestWithRoute defReq adminDirectoryURL
144− requestWithRoute r u GroupsGet{..}
152+ requestWithRoute r u GroupsGet'{..}
145− = go _ggQuotaUser _ggPrettyPrint _ggUserIp
153+ = go _ggQuotaUser (Just _ggPrettyPrint) _ggUserIp
146 _ggGroupKey
154 _ggGroupKey
148 _ggOauthToken
156 _ggOauthToken
149 _ggFields
157 _ggFields
150− _ggAlt
158+ (Just _ggAlt)
152− = clientWithRoute (Proxy :: Proxy GroupsGetAPI) r u
160+ = clientWithRoute (Proxy :: Proxy GroupsGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Insert.hs+31−19
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Create Group
20-- | Create Group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsInsert@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsInsert@.
22−module Directory.Groups.Insert
23+module Network.Google.Resource.Directory.Groups.Insert
24 -- * REST Resource
25 -- * REST Resource
25− GroupsInsertAPI
26+ GroupsInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsInsert
29+ , groupsInsert'
29− , GroupsInsert
30+ , GroupsInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , giQuotaUser
33 , giQuotaUser
@@ -42,20 +43,28 @@ import Network.Google.AdminDirectory.Types
42import Network.Google.Prelude
43import Network.Google.Prelude
44-- | A resource alias for @DirectoryGroupsInsert@ which the
45-- | A resource alias for @DirectoryGroupsInsert@ which the
45−-- 'GroupsInsert' request conforms to.
46+-- 'GroupsInsert'' request conforms to.
46−type GroupsInsertAPI = "groups" :> Post '[JSON] Group
47+type GroupsInsertResource =
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 :> Post '[JSON] Group
48-- | Create Group
57-- | Create Group
50−-- /See:/ 'groupsInsert' smart constructor.
59+-- /See:/ 'groupsInsert'' smart constructor.
51−data GroupsInsert = GroupsInsert
60+data GroupsInsert' = GroupsInsert'
52 { _giQuotaUser :: !(Maybe Text)
61 { _giQuotaUser :: !(Maybe Text)
53 , _giPrettyPrint :: !Bool
62 , _giPrettyPrint :: !Bool
54 , _giUserIp :: !(Maybe Text)
63 , _giUserIp :: !(Maybe Text)
55 , _giKey :: !(Maybe Text)
64 , _giKey :: !(Maybe Text)
56 , _giOauthToken :: !(Maybe Text)
65 , _giOauthToken :: !(Maybe Text)
57 , _giFields :: !(Maybe Text)
66 , _giFields :: !(Maybe Text)
58− , _giAlt :: !Text
67+ , _giAlt :: !Alt
59 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
61-- | Creates a value of 'GroupsInsert'' with the minimum fields required to make a request.
70-- | Creates a value of 'GroupsInsert'' with the minimum fields required to make a request.
@@ -75,17 +84,17 @@ data GroupsInsert = GroupsInsert
75-- * 'giFields'
84-- * 'giFields'
77-- * 'giAlt'
86-- * 'giAlt'
78−groupsInsert
87+groupsInsert'
79− :: GroupsInsert
88+ :: GroupsInsert'
80−groupsInsert =
89+groupsInsert' =
81− GroupsInsert
90+ GroupsInsert'
82 { _giQuotaUser = Nothing
91 { _giQuotaUser = Nothing
83 , _giPrettyPrint = True
92 , _giPrettyPrint = True
84 , _giUserIp = Nothing
93 , _giUserIp = Nothing
85 , _giKey = Nothing
94 , _giKey = Nothing
86 , _giOauthToken = Nothing
95 , _giOauthToken = Nothing
87 , _giFields = Nothing
96 , _giFields = Nothing
88− , _giAlt = "json"
97+ , _giAlt = JSON
91-- | Available to use for quota purposes for server-side applications. Can be
100-- | Available to use for quota purposes for server-side applications. Can be
@@ -122,17 +131,20 @@ giFields :: Lens' GroupsInsert' (Maybe Text)
122giFields = lens _giFields (\ s a -> s{_giFields = a})
131giFields = lens _giFields (\ s a -> s{_giFields = a})
124-- | Data format for the response.
133-- | Data format for the response.
125−giAlt :: Lens' GroupsInsert' Text
134+giAlt :: Lens' GroupsInsert' Alt
126giAlt = lens _giAlt (\ s a -> s{_giAlt = a})
135giAlt = lens _giAlt (\ s a -> s{_giAlt = a})
128instance GoogleRequest GroupsInsert' where
137instance GoogleRequest GroupsInsert' where
129 type Rs GroupsInsert' = Group
138 type Rs GroupsInsert' = Group
130 request = requestWithRoute defReq adminDirectoryURL
139 request = requestWithRoute defReq adminDirectoryURL
131− requestWithRoute r u GroupsInsert{..}
140+ requestWithRoute r u GroupsInsert'{..}
132− = go _giQuotaUser _giPrettyPrint _giUserIp _giKey
141+ = go _giQuotaUser (Just _giPrettyPrint) _giUserIp
133 _giOauthToken
143 _giOauthToken
134 _giFields
144 _giFields
135− _giAlt
145+ (Just _giAlt)
137− = clientWithRoute (Proxy :: Proxy GroupsInsertAPI) r
147+ = clientWithRoute
148+ (Proxy :: Proxy GroupsInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/List.hs+35−24
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve all groups in a domain (paginated)
20-- | Retrieve all groups in a domain (paginated)
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsList@.
22−module Directory.Groups.List
23+module Network.Google.Resource.Directory.Groups.List
24 -- * REST Resource
25 -- * REST Resource
25− GroupsListAPI
26+ GroupsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsList
29+ , groupsList'
29− , GroupsList
30+ , GroupsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , glQuotaUser
33 , glQuotaUser
@@ -47,19 +48,26 @@ import Network.Google.AdminDirectory.Types
47import Network.Google.Prelude
48import Network.Google.Prelude
49-- | A resource alias for @DirectoryGroupsList@ which the
50-- | A resource alias for @DirectoryGroupsList@ which the
50−-- 'GroupsList' request conforms to.
51+-- 'GroupsList'' request conforms to.
51−type GroupsListAPI =
52+type GroupsListResource =
52 "groups" :>
53 "groups" :>
54+ QueryParam "quotaUser" Text :>
55+ QueryParam "prettyPrint" Bool :>
56+ QueryParam "userIp" Text :>
53− QueryParam "domain" Text :>
57+ QueryParam "domain" Text :>
54− QueryParam "customer" Text :>
58+ QueryParam "customer" Text :>
59+ QueryParam "key" Text :>
55− QueryParam "pageToken" Text :>
60+ QueryParam "pageToken" Text :>
61+ QueryParam "oauth_token" Text :>
56− QueryParam "userKey" Text :>
62+ QueryParam "userKey" Text :>
57− QueryParam "maxResults" Int32 :> Get '[JSON] Groups
63+ QueryParam "maxResults" Int32 :>
64+ QueryParam "fields" Text :>
65+ QueryParam "alt" Alt :> Get '[JSON] Groups
59-- | Retrieve all groups in a domain (paginated)
67-- | Retrieve all groups in a domain (paginated)
61−-- /See:/ 'groupsList' smart constructor.
69+-- /See:/ 'groupsList'' smart constructor.
62−data GroupsList = GroupsList
70+data GroupsList' = GroupsList'
63 { _glQuotaUser :: !(Maybe Text)
71 { _glQuotaUser :: !(Maybe Text)
64 , _glPrettyPrint :: !Bool
72 , _glPrettyPrint :: !Bool
65 , _glUserIp :: !(Maybe Text)
73 , _glUserIp :: !(Maybe Text)
@@ -71,7 +79,7 @@ data GroupsList = GroupsList
71 , _glUserKey :: !(Maybe Text)
79 , _glUserKey :: !(Maybe Text)
72 , _glMaxResults :: !(Maybe Int32)
80 , _glMaxResults :: !(Maybe Int32)
73 , _glFields :: !(Maybe Text)
81 , _glFields :: !(Maybe Text)
74− , _glAlt :: !Text
82+ , _glAlt :: !Alt
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
83 } deriving (Eq,Read,Show,Data,Typeable,Generic)
77-- | Creates a value of 'GroupsList'' with the minimum fields required to make a request.
85-- | Creates a value of 'GroupsList'' with the minimum fields required to make a request.
@@ -101,10 +109,10 @@ data GroupsList = GroupsList
101-- * 'glFields'
109-- * 'glFields'
103-- * 'glAlt'
111-- * 'glAlt'
104−groupsList
112+groupsList'
105− :: GroupsList
113+ :: GroupsList'
106−groupsList =
114+groupsList' =
107− GroupsList
115+ GroupsList'
108 { _glQuotaUser = Nothing
116 { _glQuotaUser = Nothing
109 , _glPrettyPrint = True
117 , _glPrettyPrint = True
110 , _glUserIp = Nothing
118 , _glUserIp = Nothing
@@ -116,7 +124,7 @@ groupsList =
116 , _glUserKey = Nothing
124 , _glUserKey = Nothing
117 , _glMaxResults = Nothing
125 , _glMaxResults = Nothing
118 , _glFields = Nothing
126 , _glFields = Nothing
119− , _glAlt = "json"
127+ , _glAlt = JSON
122-- | 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
@@ -181,14 +189,15 @@ glFields :: Lens' GroupsList' (Maybe Text)
181glFields = lens _glFields (\ s a -> s{_glFields = a})
189glFields = lens _glFields (\ s a -> s{_glFields = a})
183-- | Data format for the response.
191-- | Data format for the response.
184−glAlt :: Lens' GroupsList' Text
192+glAlt :: Lens' GroupsList' Alt
185glAlt = lens _glAlt (\ s a -> s{_glAlt = a})
193glAlt = lens _glAlt (\ s a -> s{_glAlt = a})
187instance GoogleRequest GroupsList' where
195instance GoogleRequest GroupsList' where
188 type Rs GroupsList' = Groups
196 type Rs GroupsList' = Groups
189 request = requestWithRoute defReq adminDirectoryURL
197 request = requestWithRoute defReq adminDirectoryURL
190− requestWithRoute r u GroupsList{..}
198+ requestWithRoute r u GroupsList'{..}
191− = go _glQuotaUser _glPrettyPrint _glUserIp _glDomain
199+ = go _glQuotaUser (Just _glPrettyPrint) _glUserIp
192 _glCustomer
201 _glCustomer
194 _glPageToken
203 _glPageToken
@@ -196,6 +205,8 @@ instance GoogleRequest GroupsList' where
196 _glUserKey
205 _glUserKey
197 _glMaxResults
206 _glMaxResults
198 _glFields
207 _glFields
199− _glAlt
208+ (Just _glAlt)
201− = clientWithRoute (Proxy :: Proxy GroupsListAPI) r u
210+ = clientWithRoute (Proxy :: Proxy GroupsListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Patch.hs+31−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Update Group. This method supports patch semantics.
20-- | Update Group. This method supports patch semantics.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsPatch@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsPatch@.
22−module Directory.Groups.Patch
23+module Network.Google.Resource.Directory.Groups.Patch
24 -- * REST Resource
25 -- * REST Resource
25− GroupsPatchAPI
26+ GroupsPatchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsPatch
29+ , groupsPatch'
29− , GroupsPatch
30+ , GroupsPatch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , gpQuotaUser
33 , gpQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryGroupsPatch@ which the
46-- | A resource alias for @DirectoryGroupsPatch@ which the
46−-- 'GroupsPatch' request conforms to.
47+-- 'GroupsPatch'' request conforms to.
47−type GroupsPatchAPI =
48+type GroupsPatchResource =
48 "groups" :>
49 "groups" :>
49− Capture "groupKey" Text :> Patch '[JSON] Group
50+ Capture "groupKey" 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 :> Patch '[JSON] Group
51-- | Update Group. This method supports patch semantics.
59-- | Update Group. This method supports patch semantics.
53−-- /See:/ 'groupsPatch' smart constructor.
61+-- /See:/ 'groupsPatch'' smart constructor.
54−data GroupsPatch = GroupsPatch
62+data GroupsPatch' = GroupsPatch'
55 { _gpQuotaUser :: !(Maybe Text)
63 { _gpQuotaUser :: !(Maybe Text)
56 , _gpPrettyPrint :: !Bool
64 , _gpPrettyPrint :: !Bool
57 , _gpUserIp :: !(Maybe Text)
65 , _gpUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data GroupsPatch = GroupsPatch
59 , _gpKey :: !(Maybe Text)
67 , _gpKey :: !(Maybe Text)
60 , _gpOauthToken :: !(Maybe Text)
68 , _gpOauthToken :: !(Maybe Text)
61 , _gpFields :: !(Maybe Text)
69 , _gpFields :: !(Maybe Text)
62− , _gpAlt :: !Text
70+ , _gpAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'GroupsPatch'' with the minimum fields required to make a request.
73-- | Creates a value of 'GroupsPatch'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data GroupsPatch = GroupsPatch
81-- * 'gpFields'
89-- * 'gpFields'
83-- * 'gpAlt'
91-- * 'gpAlt'
84−groupsPatch
92+groupsPatch'
85 :: Text -- ^ 'groupKey'
93 :: Text -- ^ 'groupKey'
86− -> GroupsPatch
94+ -> GroupsPatch'
87−groupsPatch pGpGroupKey_ =
95+groupsPatch' pGpGroupKey_ =
88− GroupsPatch
96+ GroupsPatch'
89 { _gpQuotaUser = Nothing
97 { _gpQuotaUser = Nothing
90 , _gpPrettyPrint = True
98 , _gpPrettyPrint = True
91 , _gpUserIp = Nothing
99 , _gpUserIp = Nothing
@@ -93,7 +101,7 @@ groupsPatch pGpGroupKey_ =
93 , _gpKey = Nothing
101 , _gpKey = Nothing
94 , _gpOauthToken = Nothing
102 , _gpOauthToken = Nothing
95 , _gpFields = Nothing
103 , _gpFields = Nothing
96− , _gpAlt = "json"
104+ , _gpAlt = JSON
99-- | 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
@@ -136,18 +144,21 @@ gpFields :: Lens' GroupsPatch' (Maybe Text)
136gpFields = lens _gpFields (\ s a -> s{_gpFields = a})
144gpFields = lens _gpFields (\ s a -> s{_gpFields = a})
138-- | Data format for the response.
146-- | Data format for the response.
139−gpAlt :: Lens' GroupsPatch' Text
147+gpAlt :: Lens' GroupsPatch' Alt
140gpAlt = lens _gpAlt (\ s a -> s{_gpAlt = a})
148gpAlt = lens _gpAlt (\ s a -> s{_gpAlt = a})
142instance GoogleRequest GroupsPatch' where
150instance GoogleRequest GroupsPatch' where
143 type Rs GroupsPatch' = Group
151 type Rs GroupsPatch' = Group
144 request = requestWithRoute defReq adminDirectoryURL
152 request = requestWithRoute defReq adminDirectoryURL
145− requestWithRoute r u GroupsPatch{..}
153+ requestWithRoute r u GroupsPatch'{..}
146− = go _gpQuotaUser _gpPrettyPrint _gpUserIp
154+ = go _gpQuotaUser (Just _gpPrettyPrint) _gpUserIp
147 _gpGroupKey
155 _gpGroupKey
149 _gpOauthToken
157 _gpOauthToken
150 _gpFields
158 _gpFields
151− _gpAlt
159+ (Just _gpAlt)
153− = clientWithRoute (Proxy :: Proxy GroupsPatchAPI) r u
161+ = clientWithRoute
162+ (Proxy :: Proxy GroupsPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Groups/Update.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Update Group
20-- | Update Group
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsUpdate@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryGroupsUpdate@.
22−module Directory.Groups.Update
23+module Network.Google.Resource.Directory.Groups.Update
24 -- * REST Resource
25 -- * REST Resource
25− GroupsUpdateAPI
26+ GroupsUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , groupsUpdate
29+ , groupsUpdate'
29− , GroupsUpdate
30+ , GroupsUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , guQuotaUser
33 , guQuotaUser
@@ -43,15 +44,22 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryGroupsUpdate@ which the
46-- | A resource alias for @DirectoryGroupsUpdate@ which the
46−-- 'GroupsUpdate' request conforms to.
47+-- 'GroupsUpdate'' request conforms to.
47−type GroupsUpdateAPI =
48+type GroupsUpdateResource =
48 "groups" :>
49 "groups" :>
49− Capture "groupKey" Text :> Put '[JSON] Group
50+ Capture "groupKey" 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 :> Put '[JSON] Group
51-- | Update Group
59-- | Update Group
53−-- /See:/ 'groupsUpdate' smart constructor.
61+-- /See:/ 'groupsUpdate'' smart constructor.
54−data GroupsUpdate = GroupsUpdate
62+data GroupsUpdate' = GroupsUpdate'
55 { _guQuotaUser :: !(Maybe Text)
63 { _guQuotaUser :: !(Maybe Text)
56 , _guPrettyPrint :: !Bool
64 , _guPrettyPrint :: !Bool
57 , _guUserIp :: !(Maybe Text)
65 , _guUserIp :: !(Maybe Text)
@@ -59,7 +67,7 @@ data GroupsUpdate = GroupsUpdate
59 , _guKey :: !(Maybe Text)
67 , _guKey :: !(Maybe Text)
60 , _guOauthToken :: !(Maybe Text)
68 , _guOauthToken :: !(Maybe Text)
61 , _guFields :: !(Maybe Text)
69 , _guFields :: !(Maybe Text)
62− , _guAlt :: !Text
70+ , _guAlt :: !Alt
63 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
65-- | Creates a value of 'GroupsUpdate'' with the minimum fields required to make a request.
73-- | Creates a value of 'GroupsUpdate'' with the minimum fields required to make a request.
@@ -81,11 +89,11 @@ data GroupsUpdate = GroupsUpdate
81-- * 'guFields'
89-- * 'guFields'
83-- * 'guAlt'
91-- * 'guAlt'
84−groupsUpdate
92+groupsUpdate'
85 :: Text -- ^ 'groupKey'
93 :: Text -- ^ 'groupKey'
86− -> GroupsUpdate
94+ -> GroupsUpdate'
87−groupsUpdate pGuGroupKey_ =
95+groupsUpdate' pGuGroupKey_ =
88− GroupsUpdate
96+ GroupsUpdate'
89 { _guQuotaUser = Nothing
97 { _guQuotaUser = Nothing
90 , _guPrettyPrint = True
98 , _guPrettyPrint = True
91 , _guUserIp = Nothing
99 , _guUserIp = Nothing
@@ -93,7 +101,7 @@ groupsUpdate pGuGroupKey_ =
93 , _guKey = Nothing
101 , _guKey = Nothing
94 , _guOauthToken = Nothing
102 , _guOauthToken = Nothing
95 , _guFields = Nothing
103 , _guFields = Nothing
96− , _guAlt = "json"
104+ , _guAlt = JSON
99-- | 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
@@ -136,19 +144,21 @@ guFields :: Lens' GroupsUpdate' (Maybe Text)
136guFields = lens _guFields (\ s a -> s{_guFields = a})
144guFields = lens _guFields (\ s a -> s{_guFields = a})
138-- | Data format for the response.
146-- | Data format for the response.
139−guAlt :: Lens' GroupsUpdate' Text
147+guAlt :: Lens' GroupsUpdate' Alt
140guAlt = lens _guAlt (\ s a -> s{_guAlt = a})
148guAlt = lens _guAlt (\ s a -> s{_guAlt = a})
142instance GoogleRequest GroupsUpdate' where
150instance GoogleRequest GroupsUpdate' where
143 type Rs GroupsUpdate' = Group
151 type Rs GroupsUpdate' = Group
144 request = requestWithRoute defReq adminDirectoryURL
152 request = requestWithRoute defReq adminDirectoryURL
145− requestWithRoute r u GroupsUpdate{..}
153+ requestWithRoute r u GroupsUpdate'{..}
146− = go _guQuotaUser _guPrettyPrint _guUserIp
154+ = go _guQuotaUser (Just _guPrettyPrint) _guUserIp
147 _guGroupKey
155 _guGroupKey
149 _guOauthToken
157 _guOauthToken
150 _guFields
158 _guFields
151− _guAlt
159+ (Just _guAlt)
153− = clientWithRoute (Proxy :: Proxy GroupsUpdateAPI) r
161+ = clientWithRoute
162+ (Proxy :: Proxy GroupsUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Delete.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Remove membership.
20-- | Remove membership.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersDelete@.
22−module Directory.Members.Delete
23+module Network.Google.Resource.Directory.Members.Delete
24 -- * REST Resource
25 -- * REST Resource
25− MembersDeleteAPI
26+ MembersDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , membersDelete
29+ , membersDelete'
29− , MembersDelete
30+ , MembersDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mdQuotaUser
33 , mdQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryMembersDelete@ which the
47-- | A resource alias for @DirectoryMembersDelete@ which the
47−-- 'MembersDelete' request conforms to.
48+-- 'MembersDelete'' request conforms to.
48−type MembersDeleteAPI =
49+type MembersDeleteResource =
49 "groups" :>
50 "groups" :>
50 Capture "groupKey" Text :>
51 Capture "groupKey" Text :>
51 "members" :>
52 "members" :>
52− Capture "memberKey" Text :> Delete '[JSON] ()
53+ Capture "memberKey" 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 :> Delete '[JSON] ()
54-- | Remove membership.
62-- | Remove membership.
56−-- /See:/ 'membersDelete' smart constructor.
64+-- /See:/ 'membersDelete'' smart constructor.
57−data MembersDelete = MembersDelete
65+data MembersDelete' = MembersDelete'
58 { _mdQuotaUser :: !(Maybe Text)
66 { _mdQuotaUser :: !(Maybe Text)
59 , _mdMemberKey :: !Text
67 , _mdMemberKey :: !Text
60 , _mdPrettyPrint :: !Bool
68 , _mdPrettyPrint :: !Bool
@@ -63,7 +71,7 @@ data MembersDelete = MembersDelete
63 , _mdKey :: !(Maybe Text)
71 , _mdKey :: !(Maybe Text)
64 , _mdOauthToken :: !(Maybe Text)
72 , _mdOauthToken :: !(Maybe Text)
65 , _mdFields :: !(Maybe Text)
73 , _mdFields :: !(Maybe Text)
66− , _mdAlt :: !Text
74+ , _mdAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'MembersDelete'' with the minimum fields required to make a request.
77-- | Creates a value of 'MembersDelete'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data MembersDelete = MembersDelete
87-- * 'mdFields'
95-- * 'mdFields'
89-- * 'mdAlt'
97-- * 'mdAlt'
90−membersDelete
98+membersDelete'
91 :: Text -- ^ 'memberKey'
99 :: Text -- ^ 'memberKey'
92 -> Text -- ^ 'groupKey'
100 -> Text -- ^ 'groupKey'
93− -> MembersDelete
101+ -> MembersDelete'
94−membersDelete pMdMemberKey_ pMdGroupKey_ =
102+membersDelete' pMdMemberKey_ pMdGroupKey_ =
95− MembersDelete
103+ MembersDelete'
96 { _mdQuotaUser = Nothing
104 { _mdQuotaUser = Nothing
97 , _mdMemberKey = pMdMemberKey_
105 , _mdMemberKey = pMdMemberKey_
98 , _mdPrettyPrint = True
106 , _mdPrettyPrint = True
@@ -101,7 +109,7 @@ membersDelete pMdMemberKey_ pMdGroupKey_ =
101 , _mdKey = Nothing
109 , _mdKey = Nothing
102 , _mdOauthToken = Nothing
110 , _mdOauthToken = Nothing
103 , _mdFields = Nothing
111 , _mdFields = Nothing
104− , _mdAlt = "json"
112+ , _mdAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -148,20 +156,22 @@ mdFields :: Lens' MembersDelete' (Maybe Text)
148mdFields = lens _mdFields (\ s a -> s{_mdFields = a})
156mdFields = lens _mdFields (\ s a -> s{_mdFields = a})
150-- | Data format for the response.
158-- | Data format for the response.
151−mdAlt :: Lens' MembersDelete' Text
159+mdAlt :: Lens' MembersDelete' Alt
152mdAlt = lens _mdAlt (\ s a -> s{_mdAlt = a})
160mdAlt = lens _mdAlt (\ s a -> s{_mdAlt = a})
154instance GoogleRequest MembersDelete' where
162instance GoogleRequest MembersDelete' where
155 type Rs MembersDelete' = ()
163 type Rs MembersDelete' = ()
156 request = requestWithRoute defReq adminDirectoryURL
164 request = requestWithRoute defReq adminDirectoryURL
157− requestWithRoute r u MembersDelete{..}
165+ requestWithRoute r u MembersDelete'{..}
158− = go _mdQuotaUser _mdMemberKey _mdPrettyPrint
166+ = go _mdQuotaUser _mdMemberKey (Just _mdPrettyPrint)
159 _mdUserIp
167 _mdUserIp
160 _mdGroupKey
168 _mdGroupKey
162 _mdOauthToken
170 _mdOauthToken
163 _mdFields
171 _mdFields
164− _mdAlt
172+ (Just _mdAlt)
166− = clientWithRoute (Proxy :: Proxy MembersDeleteAPI) r
174+ = clientWithRoute
175+ (Proxy :: Proxy MembersDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Get.hs+96−82
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,148 +20,161 @@
19-- | Retrieve Group Member
20-- | Retrieve Group Member
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersGet@.
22−module Directory.Members.Get
23+module Network.Google.Resource.Directory.Members.Get
24 -- * REST Resource
25 -- * REST Resource
25− MembersGetAPI
26+ MembersGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , membersGet
29+ , membersGet'
29− , MembersGet
30+ , MembersGet'
31 -- * Request Lenses
32 -- * Request Lenses
32− , mgQuotaUser
33+ , memQuotaUser
33− , mgMemberKey
34+ , memMemberKey
34− , mgPrettyPrint
35+ , memPrettyPrint
35− , mgUserIp
36+ , memUserIp
36− , mgGroupKey
37+ , memGroupKey
38− , mgOauthToken
39+ , memOauthToken
39− , mgFields
40+ , memFields
43import Network.Google.AdminDirectory.Types
44import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryMembersGet@ which the
47-- | A resource alias for @DirectoryMembersGet@ which the
47−-- 'MembersGet' request conforms to.
48+-- 'MembersGet'' request conforms to.
48−type MembersGetAPI =
49+type MembersGetResource =
49 "groups" :>
50 "groups" :>
50 Capture "groupKey" Text :>
51 Capture "groupKey" Text :>
51 "members" :>
52 "members" :>
52− Capture "memberKey" Text :> Get '[JSON] Member
53+ Capture "memberKey" 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] Member
54-- | Retrieve Group Member
62-- | Retrieve Group Member
56−-- /See:/ 'membersGet' smart constructor.
64+-- /See:/ 'membersGet'' smart constructor.
57−data MembersGet = MembersGet
65+data MembersGet' = MembersGet'
58− { _mgQuotaUser :: !(Maybe Text)
66+ { _memQuotaUser :: !(Maybe Text)
59− , _mgMemberKey :: !Text
67+ , _memMemberKey :: !Text
60− , _mgPrettyPrint :: !Bool
68+ , _memPrettyPrint :: !Bool
61− , _mgUserIp :: !(Maybe Text)
69+ , _memUserIp :: !(Maybe Text)
62− , _mgGroupKey :: !Text
70+ , _memGroupKey :: !Text
63− , _mgKey :: !(Maybe Text)
71+ , _memKey :: !(Maybe Text)
64− , _mgOauthToken :: !(Maybe Text)
72+ , _memOauthToken :: !(Maybe Text)
65− , _mgFields :: !(Maybe Text)
73+ , _memFields :: !(Maybe Text)
66− , _mgAlt :: !Text
74+ , _memAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'MembersGet'' with the minimum fields required to make a request.
77-- | Creates a value of 'MembersGet'' with the minimum fields required to make a request.
71-- Use one of the following lenses to modify other fields as desired:
79-- Use one of the following lenses to modify other fields as desired:
73−-- * 'mgQuotaUser'
81+-- * 'memQuotaUser'
75−-- * 'mgMemberKey'
83+-- * 'memMemberKey'
77−-- * 'mgPrettyPrint'
85+-- * 'memPrettyPrint'
79−-- * 'mgUserIp'
87+-- * 'memUserIp'
81−-- * 'mgGroupKey'
89+-- * 'memGroupKey'
83−-- * 'mgKey'
91+-- * 'memKey'
85−-- * 'mgOauthToken'
93+-- * 'memOauthToken'
87−-- * 'mgFields'
95+-- * 'memFields'
89−-- * 'mgAlt'
97+-- * 'memAlt'
90−membersGet
98+membersGet'
91 :: Text -- ^ 'memberKey'
99 :: Text -- ^ 'memberKey'
92 -> Text -- ^ 'groupKey'
100 -> Text -- ^ 'groupKey'
93− -> MembersGet
101+ -> MembersGet'
94−membersGet pMgMemberKey_ pMgGroupKey_ =
102+membersGet' pMemMemberKey_ pMemGroupKey_ =
95− MembersGet
103+ MembersGet'
96− { _mgQuotaUser = Nothing
104+ { _memQuotaUser = Nothing
97− , _mgMemberKey = pMgMemberKey_
105+ , _memMemberKey = pMemMemberKey_
98− , _mgPrettyPrint = True
106+ , _memPrettyPrint = True
99− , _mgUserIp = Nothing
107+ , _memUserIp = Nothing
100− , _mgGroupKey = pMgGroupKey_
108+ , _memGroupKey = pMemGroupKey_
101− , _mgKey = Nothing
109+ , _memKey = Nothing
102− , _mgOauthToken = Nothing
110+ , _memOauthToken = Nothing
103− , _mgFields = Nothing
111+ , _memFields = Nothing
104− , _mgAlt = "json"
112+ , _memAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | 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
116-- any arbitrary string assigned to a user, but should not exceed 40
109-- characters. Overrides userIp if both are provided.
117-- characters. Overrides userIp if both are provided.
110−mgQuotaUser :: Lens' MembersGet' (Maybe Text)
118+memQuotaUser :: Lens' MembersGet' (Maybe Text)
111−mgQuotaUser
119+memQuotaUser
112− = lens _mgQuotaUser (\ s a -> s{_mgQuotaUser = a})
120+ = lens _memQuotaUser (\ s a -> s{_memQuotaUser = a})
114-- | Email or immutable Id of the member
122-- | Email or immutable Id of the member
115−mgMemberKey :: Lens' MembersGet' Text
123+memMemberKey :: Lens' MembersGet' Text
116−mgMemberKey
124+memMemberKey
117− = lens _mgMemberKey (\ s a -> s{_mgMemberKey = a})
125+ = lens _memMemberKey (\ s a -> s{_memMemberKey = a})
119-- | Returns response with indentations and line breaks.
127-- | Returns response with indentations and line breaks.
120−mgPrettyPrint :: Lens' MembersGet' Bool
128+memPrettyPrint :: Lens' MembersGet' Bool
121−mgPrettyPrint
129+memPrettyPrint
122− = lens _mgPrettyPrint
130+ = lens _memPrettyPrint
123− (\ s a -> s{_mgPrettyPrint = a})
131+ (\ s a -> s{_memPrettyPrint = a})
125-- | 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
126-- want to enforce per-user limits.
134-- want to enforce per-user limits.
127−mgUserIp :: Lens' MembersGet' (Maybe Text)
135+memUserIp :: Lens' MembersGet' (Maybe Text)
128−mgUserIp = lens _mgUserIp (\ s a -> s{_mgUserIp = a})
136+memUserIp
137+ = lens _memUserIp (\ s a -> s{_memUserIp = a})
130-- | Email or immutable Id of the group
139-- | Email or immutable Id of the group
131−mgGroupKey :: Lens' MembersGet' Text
140+memGroupKey :: Lens' MembersGet' Text
132−mgGroupKey
141+memGroupKey
133− = lens _mgGroupKey (\ s a -> s{_mgGroupKey = a})
142+ = lens _memGroupKey (\ s a -> s{_memGroupKey = a})
135-- | API key. Your API key identifies your project and provides you with API
144-- | 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
145-- access, quota, and reports. Required unless you provide an OAuth 2.0
138−mgKey :: Lens' MembersGet' (Maybe Text)
147+memKey :: Lens' MembersGet' (Maybe Text)
139−mgKey = lens _mgKey (\ s a -> s{_mgKey = a})
148+memKey = lens _memKey (\ s a -> s{_memKey = a})
141-- | OAuth 2.0 token for the current user.
150-- | OAuth 2.0 token for the current user.
142−mgOauthToken :: Lens' MembersGet' (Maybe Text)
151+memOauthToken :: Lens' MembersGet' (Maybe Text)
143−mgOauthToken
152+memOauthToken
144− = lens _mgOauthToken (\ s a -> s{_mgOauthToken = a})
153+ = lens _memOauthToken
154+ (\ s a -> s{_memOauthToken = a})
146-- | Selector specifying which fields to include in a partial response.
156-- | Selector specifying which fields to include in a partial response.
147−mgFields :: Lens' MembersGet' (Maybe Text)
157+memFields :: Lens' MembersGet' (Maybe Text)
148−mgFields = lens _mgFields (\ s a -> s{_mgFields = a})
158+memFields
159+ = lens _memFields (\ s a -> s{_memFields = a})
150-- | Data format for the response.
161-- | Data format for the response.
151−mgAlt :: Lens' MembersGet' Text
162+memAlt :: Lens' MembersGet' Alt
152−mgAlt = lens _mgAlt (\ s a -> s{_mgAlt = a})
163+memAlt = lens _memAlt (\ s a -> s{_memAlt = a})
154instance GoogleRequest MembersGet' where
165instance GoogleRequest MembersGet' where
155 type Rs MembersGet' = Member
166 type Rs MembersGet' = Member
156 request = requestWithRoute defReq adminDirectoryURL
167 request = requestWithRoute defReq adminDirectoryURL
157− requestWithRoute r u MembersGet{..}
168+ requestWithRoute r u MembersGet'{..}
158− = go _mgQuotaUser _mgMemberKey _mgPrettyPrint
169+ = go _memQuotaUser _memMemberKey
159− _mgUserIp
170+ (Just _memPrettyPrint)
160− _mgGroupKey
171+ _memUserIp
161− _mgKey
172+ _memGroupKey
162− _mgOauthToken
173+ _memKey
163− _mgFields
174+ _memOauthToken
164− _mgAlt
175+ _memFields
166− = clientWithRoute (Proxy :: Proxy MembersGetAPI) r u
178+ = clientWithRoute (Proxy :: Proxy MembersGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Insert.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Add user to the specified group.
20-- | Add user to the specified group.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersInsert@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersInsert@.
22−module Directory.Members.Insert
23+module Network.Google.Resource.Directory.Members.Insert
24 -- * REST Resource
25 -- * REST Resource
25− MembersInsertAPI
26+ MembersInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , membersInsert
29+ , membersInsert'
29− , MembersInsert
30+ , MembersInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , miQuotaUser
33 , miQuotaUser
@@ -43,16 +44,23 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryMembersInsert@ which the
46-- | A resource alias for @DirectoryMembersInsert@ which the
46−-- 'MembersInsert' request conforms to.
47+-- 'MembersInsert'' request conforms to.
47−type MembersInsertAPI =
48+type MembersInsertResource =
48 "groups" :>
49 "groups" :>
49 Capture "groupKey" Text :>
50 Capture "groupKey" Text :>
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 :>
50− "members" :> Post '[JSON] Member
58+ QueryParam "alt" Alt :> Post '[JSON] Member
52-- | Add user to the specified group.
60-- | Add user to the specified group.
54−-- /See:/ 'membersInsert' smart constructor.
62+-- /See:/ 'membersInsert'' smart constructor.
55−data MembersInsert = MembersInsert
63+data MembersInsert' = MembersInsert'
56 { _miQuotaUser :: !(Maybe Text)
64 { _miQuotaUser :: !(Maybe Text)
57 , _miPrettyPrint :: !Bool
65 , _miPrettyPrint :: !Bool
58 , _miUserIp :: !(Maybe Text)
66 , _miUserIp :: !(Maybe Text)
@@ -60,7 +68,7 @@ data MembersInsert = MembersInsert
60 , _miKey :: !(Maybe Text)
68 , _miKey :: !(Maybe Text)
61 , _miOauthToken :: !(Maybe Text)
69 , _miOauthToken :: !(Maybe Text)
62 , _miFields :: !(Maybe Text)
70 , _miFields :: !(Maybe Text)
63− , _miAlt :: !Text
71+ , _miAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'MembersInsert'' with the minimum fields required to make a request.
74-- | Creates a value of 'MembersInsert'' with the minimum fields required to make a request.
@@ -82,11 +90,11 @@ data MembersInsert = MembersInsert
82-- * 'miFields'
90-- * 'miFields'
84-- * 'miAlt'
92-- * 'miAlt'
85−membersInsert
93+membersInsert'
86 :: Text -- ^ 'groupKey'
94 :: Text -- ^ 'groupKey'
87− -> MembersInsert
95+ -> MembersInsert'
88−membersInsert pMiGroupKey_ =
96+membersInsert' pMiGroupKey_ =
89− MembersInsert
97+ MembersInsert'
90 { _miQuotaUser = Nothing
98 { _miQuotaUser = Nothing
91 , _miPrettyPrint = True
99 , _miPrettyPrint = True
92 , _miUserIp = Nothing
100 , _miUserIp = Nothing
@@ -94,7 +102,7 @@ membersInsert pMiGroupKey_ =
94 , _miKey = Nothing
102 , _miKey = Nothing
95 , _miOauthToken = Nothing
103 , _miOauthToken = Nothing
96 , _miFields = Nothing
104 , _miFields = Nothing
97− , _miAlt = "json"
105+ , _miAlt = JSON
100-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -136,19 +144,21 @@ miFields :: Lens' MembersInsert' (Maybe Text)
136miFields = lens _miFields (\ s a -> s{_miFields = a})
144miFields = lens _miFields (\ s a -> s{_miFields = a})
138-- | Data format for the response.
146-- | Data format for the response.
139−miAlt :: Lens' MembersInsert' Text
147+miAlt :: Lens' MembersInsert' Alt
140miAlt = lens _miAlt (\ s a -> s{_miAlt = a})
148miAlt = lens _miAlt (\ s a -> s{_miAlt = a})
142instance GoogleRequest MembersInsert' where
150instance GoogleRequest MembersInsert' where
143 type Rs MembersInsert' = Member
151 type Rs MembersInsert' = Member
144 request = requestWithRoute defReq adminDirectoryURL
152 request = requestWithRoute defReq adminDirectoryURL
145− requestWithRoute r u MembersInsert{..}
153+ requestWithRoute r u MembersInsert'{..}
146− = go _miQuotaUser _miPrettyPrint _miUserIp
154+ = go _miQuotaUser (Just _miPrettyPrint) _miUserIp
147 _miGroupKey
155 _miGroupKey
149 _miOauthToken
157 _miOauthToken
150 _miFields
158 _miFields
151− _miAlt
159+ (Just _miAlt)
153− = clientWithRoute (Proxy :: Proxy MembersInsertAPI) r
161+ = clientWithRoute
162+ (Proxy :: Proxy MembersInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/List.hs+34−22
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve all members in a group (paginated)
20-- | Retrieve all members in a group (paginated)
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersList@.
22−module Directory.Members.List
23+module Network.Google.Resource.Directory.Members.List
24 -- * REST Resource
25 -- * REST Resource
25− MembersListAPI
26+ MembersListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , membersList
29+ , membersList'
29− , MembersList
30+ , MembersList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mlQuotaUser
33 , mlQuotaUser
@@ -46,19 +47,26 @@ import Network.Google.AdminDirectory.Types
46import Network.Google.Prelude
47import Network.Google.Prelude
48-- | A resource alias for @DirectoryMembersList@ which the
49-- | A resource alias for @DirectoryMembersList@ which the
49−-- 'MembersList' request conforms to.
50+-- 'MembersList'' request conforms to.
50−type MembersListAPI =
51+type MembersListResource =
51 "groups" :>
52 "groups" :>
52 Capture "groupKey" Text :>
53 Capture "groupKey" Text :>
53 "members" :>
54 "members" :>
54− QueryParam "roles" Text :>
55+ QueryParam "quotaUser" Text :>
56+ QueryParam "roles" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "userIp" Text :>
59+ QueryParam "key" Text :>
55− QueryParam "pageToken" Text :>
60+ QueryParam "pageToken" Text :>
61+ QueryParam "oauth_token" Text :>
56− QueryParam "maxResults" Int32 :> Get '[JSON] Members
62+ QueryParam "maxResults" Int32 :>
63+ QueryParam "fields" Text :>
64+ QueryParam "alt" Alt :> Get '[JSON] Members
58-- | Retrieve all members in a group (paginated)
66-- | Retrieve all members in a group (paginated)
60−-- /See:/ 'membersList' smart constructor.
68+-- /See:/ 'membersList'' smart constructor.
61−data MembersList = MembersList
69+data MembersList' = MembersList'
62 { _mlQuotaUser :: !(Maybe Text)
70 { _mlQuotaUser :: !(Maybe Text)
63 , _mlRoles :: !(Maybe Text)
71 , _mlRoles :: !(Maybe Text)
64 , _mlPrettyPrint :: !Bool
72 , _mlPrettyPrint :: !Bool
@@ -69,7 +77,7 @@ data MembersList = MembersList
69 , _mlOauthToken :: !(Maybe Text)
77 , _mlOauthToken :: !(Maybe Text)
70 , _mlMaxResults :: !(Maybe Int32)
78 , _mlMaxResults :: !(Maybe Int32)
71 , _mlFields :: !(Maybe Text)
79 , _mlFields :: !(Maybe Text)
72− , _mlAlt :: !Text
80+ , _mlAlt :: !Alt
73 } deriving (Eq,Read,Show,Data,Typeable,Generic)
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75-- | Creates a value of 'MembersList'' with the minimum fields required to make a request.
83-- | Creates a value of 'MembersList'' with the minimum fields required to make a request.
@@ -97,11 +105,11 @@ data MembersList = MembersList
97-- * 'mlFields'
105-- * 'mlFields'
99-- * 'mlAlt'
107-- * 'mlAlt'
100−membersList
108+membersList'
101 :: Text -- ^ 'groupKey'
109 :: Text -- ^ 'groupKey'
102− -> MembersList
110+ -> MembersList'
103−membersList pMlGroupKey_ =
111+membersList' pMlGroupKey_ =
104− MembersList
112+ MembersList'
105 { _mlQuotaUser = Nothing
113 { _mlQuotaUser = Nothing
106 , _mlRoles = Nothing
114 , _mlRoles = Nothing
107 , _mlPrettyPrint = True
115 , _mlPrettyPrint = True
@@ -112,7 +120,7 @@ membersList pMlGroupKey_ =
112 , _mlOauthToken = Nothing
120 , _mlOauthToken = Nothing
113 , _mlMaxResults = Nothing
121 , _mlMaxResults = Nothing
114 , _mlFields = Nothing
122 , _mlFields = Nothing
115− , _mlAlt = "json"
123+ , _mlAlt = JSON
118-- | Available to use for quota purposes for server-side applications. Can be
126-- | Available to use for quota purposes for server-side applications. Can be
@@ -168,20 +176,24 @@ mlFields :: Lens' MembersList' (Maybe Text)
168mlFields = lens _mlFields (\ s a -> s{_mlFields = a})
176mlFields = lens _mlFields (\ s a -> s{_mlFields = a})
170-- | Data format for the response.
178-- | Data format for the response.
171−mlAlt :: Lens' MembersList' Text
179+mlAlt :: Lens' MembersList' Alt
172mlAlt = lens _mlAlt (\ s a -> s{_mlAlt = a})
180mlAlt = lens _mlAlt (\ s a -> s{_mlAlt = a})
174instance GoogleRequest MembersList' where
182instance GoogleRequest MembersList' where
175 type Rs MembersList' = Members
183 type Rs MembersList' = Members
176 request = requestWithRoute defReq adminDirectoryURL
184 request = requestWithRoute defReq adminDirectoryURL
177− requestWithRoute r u MembersList{..}
185+ requestWithRoute r u MembersList'{..}
178− = go _mlQuotaUser _mlRoles _mlPrettyPrint _mlUserIp
186+ = go _mlQuotaUser _mlRoles (Just _mlPrettyPrint)
179 _mlGroupKey
188 _mlGroupKey
181 _mlPageToken
190 _mlPageToken
182 _mlOauthToken
191 _mlOauthToken
183 _mlMaxResults
192 _mlMaxResults
184 _mlFields
193 _mlFields
185− _mlAlt
194+ (Just _mlAlt)
187− = clientWithRoute (Proxy :: Proxy MembersListAPI) r u
196+ = clientWithRoute
197+ (Proxy :: Proxy MembersListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Patch.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -20,14 +21,14 @@
20-- patch semantics.
21-- patch semantics.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersPatch@.
23-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersPatch@.
23−module Directory.Members.Patch
24+module Network.Google.Resource.Directory.Members.Patch
25 -- * REST Resource
26 -- * REST Resource
26− MembersPatchAPI
27+ MembersPatchResource
28 -- * Creating a Request
29 -- * Creating a Request
29− , membersPatch
30+ , membersPatch'
30− , MembersPatch
31+ , MembersPatch'
32 -- * Request Lenses
33 -- * Request Lenses
33 , mpQuotaUser
34 , mpQuotaUser
@@ -45,18 +46,25 @@ import Network.Google.AdminDirectory.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @DirectoryMembersPatch@ which the
48-- | A resource alias for @DirectoryMembersPatch@ which the
48−-- 'MembersPatch' request conforms to.
49+-- 'MembersPatch'' request conforms to.
49−type MembersPatchAPI =
50+type MembersPatchResource =
50 "groups" :>
51 "groups" :>
51 Capture "groupKey" Text :>
52 Capture "groupKey" Text :>
52 "members" :>
53 "members" :>
53− Capture "memberKey" Text :> Patch '[JSON] Member
54+ Capture "memberKey" Text :>
55+ QueryParam "quotaUser" Text :>
56+ QueryParam "prettyPrint" Bool :>
57+ QueryParam "userIp" Text :>
58+ QueryParam "key" Text :>
59+ QueryParam "oauth_token" Text :>
60+ QueryParam "fields" Text :>
61+ QueryParam "alt" Alt :> Patch '[JSON] Member
55-- | Update membership of a user in the specified group. This method supports
63-- | Update membership of a user in the specified group. This method supports
56-- patch semantics.
64-- patch semantics.
58−-- /See:/ 'membersPatch' smart constructor.
66+-- /See:/ 'membersPatch'' smart constructor.
59−data MembersPatch = MembersPatch
67+data MembersPatch' = MembersPatch'
60 { _mpQuotaUser :: !(Maybe Text)
68 { _mpQuotaUser :: !(Maybe Text)
61 , _mpMemberKey :: !Text
69 , _mpMemberKey :: !Text
62 , _mpPrettyPrint :: !Bool
70 , _mpPrettyPrint :: !Bool
@@ -65,7 +73,7 @@ data MembersPatch = MembersPatch
65 , _mpKey :: !(Maybe Text)
73 , _mpKey :: !(Maybe Text)
66 , _mpOauthToken :: !(Maybe Text)
74 , _mpOauthToken :: !(Maybe Text)
67 , _mpFields :: !(Maybe Text)
75 , _mpFields :: !(Maybe Text)
68− , _mpAlt :: !Text
76+ , _mpAlt :: !Alt
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
77 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71-- | Creates a value of 'MembersPatch'' with the minimum fields required to make a request.
79-- | Creates a value of 'MembersPatch'' with the minimum fields required to make a request.
@@ -89,12 +97,12 @@ data MembersPatch = MembersPatch
89-- * 'mpFields'
97-- * 'mpFields'
91-- * 'mpAlt'
99-- * 'mpAlt'
92−membersPatch
100+membersPatch'
93 :: Text -- ^ 'memberKey'
101 :: Text -- ^ 'memberKey'
94 -> Text -- ^ 'groupKey'
102 -> Text -- ^ 'groupKey'
95− -> MembersPatch
103+ -> MembersPatch'
96−membersPatch pMpMemberKey_ pMpGroupKey_ =
104+membersPatch' pMpMemberKey_ pMpGroupKey_ =
97− MembersPatch
105+ MembersPatch'
98 { _mpQuotaUser = Nothing
106 { _mpQuotaUser = Nothing
99 , _mpMemberKey = pMpMemberKey_
107 , _mpMemberKey = pMpMemberKey_
100 , _mpPrettyPrint = True
108 , _mpPrettyPrint = True
@@ -103,7 +111,7 @@ membersPatch pMpMemberKey_ pMpGroupKey_ =
103 , _mpKey = Nothing
111 , _mpKey = Nothing
104 , _mpOauthToken = Nothing
112 , _mpOauthToken = Nothing
105 , _mpFields = Nothing
113 , _mpFields = Nothing
106− , _mpAlt = "json"
114+ , _mpAlt = JSON
109-- | 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
@@ -152,20 +160,22 @@ mpFields :: Lens' MembersPatch' (Maybe Text)
152mpFields = lens _mpFields (\ s a -> s{_mpFields = a})
160mpFields = lens _mpFields (\ s a -> s{_mpFields = a})
154-- | Data format for the response.
162-- | Data format for the response.
155−mpAlt :: Lens' MembersPatch' Text
163+mpAlt :: Lens' MembersPatch' Alt
156mpAlt = lens _mpAlt (\ s a -> s{_mpAlt = a})
164mpAlt = lens _mpAlt (\ s a -> s{_mpAlt = a})
158instance GoogleRequest MembersPatch' where
166instance GoogleRequest MembersPatch' where
159 type Rs MembersPatch' = Member
167 type Rs MembersPatch' = Member
160 request = requestWithRoute defReq adminDirectoryURL
168 request = requestWithRoute defReq adminDirectoryURL
161− requestWithRoute r u MembersPatch{..}
169+ requestWithRoute r u MembersPatch'{..}
162− = go _mpQuotaUser _mpMemberKey _mpPrettyPrint
170+ = go _mpQuotaUser _mpMemberKey (Just _mpPrettyPrint)
163 _mpUserIp
171 _mpUserIp
164 _mpGroupKey
172 _mpGroupKey
166 _mpOauthToken
174 _mpOauthToken
167 _mpFields
175 _mpFields
168− _mpAlt
176+ (Just _mpAlt)
170− = clientWithRoute (Proxy :: Proxy MembersPatchAPI) r
178+ = clientWithRoute
179+ (Proxy :: Proxy MembersPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Members/Update.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Update membership of a user in the specified group.
20-- | Update membership of a user in the specified group.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersUpdate@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMembersUpdate@.
22−module Directory.Members.Update
23+module Network.Google.Resource.Directory.Members.Update
24 -- * REST Resource
25 -- * REST Resource
25− MembersUpdateAPI
26+ MembersUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , membersUpdate
29+ , membersUpdate'
29− , MembersUpdate
30+ , MembersUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , muQuotaUser
33 , muQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryMembersUpdate@ which the
47-- | A resource alias for @DirectoryMembersUpdate@ which the
47−-- 'MembersUpdate' request conforms to.
48+-- 'MembersUpdate'' request conforms to.
48−type MembersUpdateAPI =
49+type MembersUpdateResource =
49 "groups" :>
50 "groups" :>
50 Capture "groupKey" Text :>
51 Capture "groupKey" Text :>
51 "members" :>
52 "members" :>
52− Capture "memberKey" Text :> Put '[JSON] Member
53+ Capture "memberKey" 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 :> Put '[JSON] Member
54-- | Update membership of a user in the specified group.
62-- | Update membership of a user in the specified group.
56−-- /See:/ 'membersUpdate' smart constructor.
64+-- /See:/ 'membersUpdate'' smart constructor.
57−data MembersUpdate = MembersUpdate
65+data MembersUpdate' = MembersUpdate'
58 { _muQuotaUser :: !(Maybe Text)
66 { _muQuotaUser :: !(Maybe Text)
59 , _muMemberKey :: !Text
67 , _muMemberKey :: !Text
60 , _muPrettyPrint :: !Bool
68 , _muPrettyPrint :: !Bool
@@ -63,7 +71,7 @@ data MembersUpdate = MembersUpdate
63 , _muKey :: !(Maybe Text)
71 , _muKey :: !(Maybe Text)
64 , _muOauthToken :: !(Maybe Text)
72 , _muOauthToken :: !(Maybe Text)
65 , _muFields :: !(Maybe Text)
73 , _muFields :: !(Maybe Text)
66− , _muAlt :: !Text
74+ , _muAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'MembersUpdate'' with the minimum fields required to make a request.
77-- | Creates a value of 'MembersUpdate'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data MembersUpdate = MembersUpdate
87-- * 'muFields'
95-- * 'muFields'
89-- * 'muAlt'
97-- * 'muAlt'
90−membersUpdate
98+membersUpdate'
91 :: Text -- ^ 'memberKey'
99 :: Text -- ^ 'memberKey'
92 -> Text -- ^ 'groupKey'
100 -> Text -- ^ 'groupKey'
93− -> MembersUpdate
101+ -> MembersUpdate'
94−membersUpdate pMuMemberKey_ pMuGroupKey_ =
102+membersUpdate' pMuMemberKey_ pMuGroupKey_ =
95− MembersUpdate
103+ MembersUpdate'
96 { _muQuotaUser = Nothing
104 { _muQuotaUser = Nothing
97 , _muMemberKey = pMuMemberKey_
105 , _muMemberKey = pMuMemberKey_
98 , _muPrettyPrint = True
106 , _muPrettyPrint = True
@@ -101,7 +109,7 @@ membersUpdate pMuMemberKey_ pMuGroupKey_ =
101 , _muKey = Nothing
109 , _muKey = Nothing
102 , _muOauthToken = Nothing
110 , _muOauthToken = Nothing
103 , _muFields = Nothing
111 , _muFields = Nothing
104− , _muAlt = "json"
112+ , _muAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -150,20 +158,22 @@ muFields :: Lens' MembersUpdate' (Maybe Text)
150muFields = lens _muFields (\ s a -> s{_muFields = a})
158muFields = lens _muFields (\ s a -> s{_muFields = a})
152-- | Data format for the response.
160-- | Data format for the response.
153−muAlt :: Lens' MembersUpdate' Text
161+muAlt :: Lens' MembersUpdate' Alt
154muAlt = lens _muAlt (\ s a -> s{_muAlt = a})
162muAlt = lens _muAlt (\ s a -> s{_muAlt = a})
156instance GoogleRequest MembersUpdate' where
164instance GoogleRequest MembersUpdate' where
157 type Rs MembersUpdate' = Member
165 type Rs MembersUpdate' = Member
158 request = requestWithRoute defReq adminDirectoryURL
166 request = requestWithRoute defReq adminDirectoryURL
159− requestWithRoute r u MembersUpdate{..}
167+ requestWithRoute r u MembersUpdate'{..}
160− = go _muQuotaUser _muMemberKey _muPrettyPrint
168+ = go _muQuotaUser _muMemberKey (Just _muPrettyPrint)
161 _muUserIp
169 _muUserIp
162 _muGroupKey
170 _muGroupKey
164 _muOauthToken
172 _muOauthToken
165 _muFields
173 _muFields
166− _muAlt
174+ (Just _muAlt)
168− = clientWithRoute (Proxy :: Proxy MembersUpdateAPI) r
176+ = clientWithRoute
177+ (Proxy :: Proxy MembersUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Mobiledevices/Action.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Take action on Mobile Device
20-- | Take action on Mobile Device
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesAction@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesAction@.
22−module Directory.Mobiledevices.Action
23+module Network.Google.Resource.Directory.Mobiledevices.Action
24 -- * REST Resource
25 -- * REST Resource
25− MobiledevicesActionAPI
26+ MobiledevicesActionResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , mobiledevicesAction
29+ , mobiledevicesAction'
29− , MobiledevicesAction
30+ , MobiledevicesAction'
31 -- * Request Lenses
32 -- * Request Lenses
32 , maQuotaUser
33 , maQuotaUser
@@ -44,19 +45,26 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryMobiledevicesAction@ which the
47-- | A resource alias for @DirectoryMobiledevicesAction@ which the
47−-- 'MobiledevicesAction' request conforms to.
48+-- 'MobiledevicesAction'' request conforms to.
48−type MobiledevicesActionAPI =
49+type MobiledevicesActionResource =
49 "customer" :>
50 "customer" :>
50 Capture "customerId" Text :>
51 Capture "customerId" Text :>
51 "devices" :>
52 "devices" :>
52 "mobile" :>
53 "mobile" :>
53 Capture "resourceId" Text :>
54 Capture "resourceId" Text :>
54− "action" :> Post '[JSON] ()
55+ "action" :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "userIp" Text :>
59+ QueryParam "key" Text :>
60+ QueryParam "oauth_token" Text :>
61+ QueryParam "fields" Text :>
62+ QueryParam "alt" Alt :> Post '[JSON] ()
56-- | Take action on Mobile Device
64-- | Take action on Mobile Device
58−-- /See:/ 'mobiledevicesAction' smart constructor.
66+-- /See:/ 'mobiledevicesAction'' smart constructor.
59−data MobiledevicesAction = MobiledevicesAction
67+data MobiledevicesAction' = MobiledevicesAction'
60 { _maQuotaUser :: !(Maybe Text)
68 { _maQuotaUser :: !(Maybe Text)
61 , _maResourceId :: !Text
69 , _maResourceId :: !Text
62 , _maPrettyPrint :: !Bool
70 , _maPrettyPrint :: !Bool
@@ -65,7 +73,7 @@ data MobiledevicesAction = MobiledevicesAction
65 , _maKey :: !(Maybe Text)
73 , _maKey :: !(Maybe Text)
66 , _maOauthToken :: !(Maybe Text)
74 , _maOauthToken :: !(Maybe Text)
67 , _maFields :: !(Maybe Text)
75 , _maFields :: !(Maybe Text)
68− , _maAlt :: !Text
76+ , _maAlt :: !Alt
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
77 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71-- | Creates a value of 'MobiledevicesAction'' with the minimum fields required to make a request.
79-- | Creates a value of 'MobiledevicesAction'' with the minimum fields required to make a request.
@@ -89,12 +97,12 @@ data MobiledevicesAction = MobiledevicesAction
89-- * 'maFields'
97-- * 'maFields'
91-- * 'maAlt'
99-- * 'maAlt'
92−mobiledevicesAction
100+mobiledevicesAction'
93 :: Text -- ^ 'resourceId'
101 :: Text -- ^ 'resourceId'
94 -> Text -- ^ 'customerId'
102 -> Text -- ^ 'customerId'
95− -> MobiledevicesAction
103+ -> MobiledevicesAction'
96−mobiledevicesAction pMaResourceId_ pMaCustomerId_ =
104+mobiledevicesAction' pMaResourceId_ pMaCustomerId_ =
97− MobiledevicesAction
105+ MobiledevicesAction'
98 { _maQuotaUser = Nothing
106 { _maQuotaUser = Nothing
99 , _maResourceId = pMaResourceId_
107 , _maResourceId = pMaResourceId_
100 , _maPrettyPrint = True
108 , _maPrettyPrint = True
@@ -103,7 +111,7 @@ mobiledevicesAction pMaResourceId_ pMaCustomerId_ =
103 , _maKey = Nothing
111 , _maKey = Nothing
104 , _maOauthToken = Nothing
112 , _maOauthToken = Nothing
105 , _maFields = Nothing
113 , _maFields = Nothing
106− , _maAlt = "json"
114+ , _maAlt = JSON
109-- | 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
@@ -150,22 +158,22 @@ maFields :: Lens' MobiledevicesAction' (Maybe Text)
150maFields = lens _maFields (\ s a -> s{_maFields = a})
158maFields = lens _maFields (\ s a -> s{_maFields = a})
152-- | Data format for the response.
160-- | Data format for the response.
153−maAlt :: Lens' MobiledevicesAction' Text
161+maAlt :: Lens' MobiledevicesAction' Alt
154maAlt = lens _maAlt (\ s a -> s{_maAlt = a})
162maAlt = lens _maAlt (\ s a -> s{_maAlt = a})
156instance GoogleRequest MobiledevicesAction' where
164instance GoogleRequest MobiledevicesAction' where
157 type Rs MobiledevicesAction' = ()
165 type Rs MobiledevicesAction' = ()
158 request = requestWithRoute defReq adminDirectoryURL
166 request = requestWithRoute defReq adminDirectoryURL
159− requestWithRoute r u MobiledevicesAction{..}
167+ requestWithRoute r u MobiledevicesAction'{..}
160− = go _maQuotaUser _maResourceId _maPrettyPrint
168+ = go _maQuotaUser _maResourceId (Just _maPrettyPrint)
161 _maUserIp
169 _maUserIp
162 _maCustomerId
170 _maCustomerId
164 _maOauthToken
172 _maOauthToken
165 _maFields
173 _maFields
166− _maAlt
174+ (Just _maAlt)
168 = clientWithRoute
176 = clientWithRoute
169− (Proxy :: Proxy MobiledevicesActionAPI)
177+ (Proxy :: Proxy MobiledevicesActionResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Mobiledevices/Delete.hs+96−87
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,157 +20,165 @@
19-- | Delete Mobile Device
20-- | Delete Mobile Device
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesDelete@.
22−module Directory.Mobiledevices.Delete
23+module Network.Google.Resource.Directory.Mobiledevices.Delete
24 -- * REST Resource
25 -- * REST Resource
25− MobiledevicesDeleteAPI
26+ MobiledevicesDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , mobiledevicesDelete
29+ , mobiledevicesDelete'
29− , MobiledevicesDelete
30+ , MobiledevicesDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32− , mddQuotaUser
33+ , mobQuotaUser
33− , mddResourceId
34+ , mobResourceId
34− , mddPrettyPrint
35+ , mobPrettyPrint
35− , mddUserIp
36+ , mobUserIp
36− , mddCustomerId
37+ , mobCustomerId
38− , mddOauthToken
39+ , mobOauthToken
39− , mddFields
40+ , mobFields
43import Network.Google.AdminDirectory.Types
44import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryMobiledevicesDelete@ which the
47-- | A resource alias for @DirectoryMobiledevicesDelete@ which the
47−-- 'MobiledevicesDelete' request conforms to.
48+-- 'MobiledevicesDelete'' request conforms to.
48−type MobiledevicesDeleteAPI =
49+type MobiledevicesDeleteResource =
49 "customer" :>
50 "customer" :>
50 Capture "customerId" Text :>
51 Capture "customerId" Text :>
51 "devices" :>
52 "devices" :>
52 "mobile" :>
53 "mobile" :>
53− Capture "resourceId" Text :> Delete '[JSON] ()
54+ Capture "resourceId" Text :>
55+ QueryParam "quotaUser" Text :>
56+ QueryParam "prettyPrint" Bool :>
57+ QueryParam "userIp" Text :>
58+ QueryParam "key" Text :>
59+ QueryParam "oauth_token" Text :>
60+ QueryParam "fields" Text :>
61+ QueryParam "alt" Alt :> Delete '[JSON] ()
55-- | Delete Mobile Device
63-- | Delete Mobile Device
57−-- /See:/ 'mobiledevicesDelete' smart constructor.
65+-- /See:/ 'mobiledevicesDelete'' smart constructor.
58−data MobiledevicesDelete = MobiledevicesDelete
66+data MobiledevicesDelete' = MobiledevicesDelete'
59− { _mddQuotaUser :: !(Maybe Text)
67+ { _mobQuotaUser :: !(Maybe Text)
60− , _mddResourceId :: !Text
68+ , _mobResourceId :: !Text
61− , _mddPrettyPrint :: !Bool
69+ , _mobPrettyPrint :: !Bool
62− , _mddUserIp :: !(Maybe Text)
70+ , _mobUserIp :: !(Maybe Text)
63− , _mddCustomerId :: !Text
71+ , _mobCustomerId :: !Text
64− , _mddKey :: !(Maybe Text)
72+ , _mobKey :: !(Maybe Text)
65− , _mddOauthToken :: !(Maybe Text)
73+ , _mobOauthToken :: !(Maybe Text)
66− , _mddFields :: !(Maybe Text)
74+ , _mobFields :: !(Maybe Text)
67− , _mddAlt :: !Text
75+ , _mobAlt :: !Alt
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
76 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70-- | Creates a value of 'MobiledevicesDelete'' with the minimum fields required to make a request.
78-- | Creates a value of 'MobiledevicesDelete'' with the minimum fields required to make a request.
72-- Use one of the following lenses to modify other fields as desired:
80-- Use one of the following lenses to modify other fields as desired:
74−-- * 'mddQuotaUser'
82+-- * 'mobQuotaUser'
76−-- * 'mddResourceId'
84+-- * 'mobResourceId'
78−-- * 'mddPrettyPrint'
86+-- * 'mobPrettyPrint'
80−-- * 'mddUserIp'
88+-- * 'mobUserIp'
82−-- * 'mddCustomerId'
90+-- * 'mobCustomerId'
84−-- * 'mddKey'
92+-- * 'mobKey'
86−-- * 'mddOauthToken'
94+-- * 'mobOauthToken'
88−-- * 'mddFields'
96+-- * 'mobFields'
90−-- * 'mddAlt'
98+-- * 'mobAlt'
91−mobiledevicesDelete
99+mobiledevicesDelete'
92 :: Text -- ^ 'resourceId'
100 :: Text -- ^ 'resourceId'
93 -> Text -- ^ 'customerId'
101 -> Text -- ^ 'customerId'
94− -> MobiledevicesDelete
102+ -> MobiledevicesDelete'
95−mobiledevicesDelete pMddResourceId_ pMddCustomerId_ =
103+mobiledevicesDelete' pMobResourceId_ pMobCustomerId_ =
96− MobiledevicesDelete
104+ MobiledevicesDelete'
97− { _mddQuotaUser = Nothing
105+ { _mobQuotaUser = Nothing
98− , _mddResourceId = pMddResourceId_
106+ , _mobResourceId = pMobResourceId_
99− , _mddPrettyPrint = True
107+ , _mobPrettyPrint = True
100− , _mddUserIp = Nothing
108+ , _mobUserIp = Nothing
101− , _mddCustomerId = pMddCustomerId_
109+ , _mobCustomerId = pMobCustomerId_
102− , _mddKey = Nothing
110+ , _mobKey = Nothing
103− , _mddOauthToken = Nothing
111+ , _mobOauthToken = Nothing
104− , _mddFields = Nothing
112+ , _mobFields = Nothing
105− , _mddAlt = "json"
113+ , _mobAlt = JSON
108-- | Available to use for quota purposes for server-side applications. Can be
116-- | 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
117-- any arbitrary string assigned to a user, but should not exceed 40
110-- characters. Overrides userIp if both are provided.
118-- characters. Overrides userIp if both are provided.
111−mddQuotaUser :: Lens' MobiledevicesDelete' (Maybe Text)
119+mobQuotaUser :: Lens' MobiledevicesDelete' (Maybe Text)
112−mddQuotaUser
120+mobQuotaUser
113− = lens _mddQuotaUser (\ s a -> s{_mddQuotaUser = a})
121+ = lens _mobQuotaUser (\ s a -> s{_mobQuotaUser = a})
115-- | Immutable id of Mobile Device
123-- | Immutable id of Mobile Device
116−mddResourceId :: Lens' MobiledevicesDelete' Text
124+mobResourceId :: Lens' MobiledevicesDelete' Text
117−mddResourceId
125+mobResourceId
118− = lens _mddResourceId
126+ = lens _mobResourceId
119− (\ s a -> s{_mddResourceId = a})
127+ (\ s a -> s{_mobResourceId = a})
121-- | Returns response with indentations and line breaks.
129-- | Returns response with indentations and line breaks.
122−mddPrettyPrint :: Lens' MobiledevicesDelete' Bool
130+mobPrettyPrint :: Lens' MobiledevicesDelete' Bool
123−mddPrettyPrint
131+mobPrettyPrint
124− = lens _mddPrettyPrint
132+ = lens _mobPrettyPrint
125− (\ s a -> s{_mddPrettyPrint = a})
133+ (\ s a -> s{_mobPrettyPrint = a})
127-- | 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
128-- want to enforce per-user limits.
136-- want to enforce per-user limits.
129−mddUserIp :: Lens' MobiledevicesDelete' (Maybe Text)
137+mobUserIp :: Lens' MobiledevicesDelete' (Maybe Text)
130−mddUserIp
138+mobUserIp
131− = lens _mddUserIp (\ s a -> s{_mddUserIp = a})
139+ = lens _mobUserIp (\ s a -> s{_mobUserIp = a})
133-- | Immutable id of the Google Apps account
141-- | Immutable id of the Google Apps account
134−mddCustomerId :: Lens' MobiledevicesDelete' Text
142+mobCustomerId :: Lens' MobiledevicesDelete' Text
135−mddCustomerId
143+mobCustomerId
136− = lens _mddCustomerId
144+ = lens _mobCustomerId
137− (\ s a -> s{_mddCustomerId = a})
145+ (\ s a -> s{_mobCustomerId = a})
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
142−mddKey :: Lens' MobiledevicesDelete' (Maybe Text)
150+mobKey :: Lens' MobiledevicesDelete' (Maybe Text)
143−mddKey = lens _mddKey (\ s a -> s{_mddKey = a})
151+mobKey = lens _mobKey (\ s a -> s{_mobKey = a})
145-- | OAuth 2.0 token for the current user.
153-- | OAuth 2.0 token for the current user.
146−mddOauthToken :: Lens' MobiledevicesDelete' (Maybe Text)
154+mobOauthToken :: Lens' MobiledevicesDelete' (Maybe Text)
147−mddOauthToken
155+mobOauthToken
148− = lens _mddOauthToken
156+ = lens _mobOauthToken
149− (\ s a -> s{_mddOauthToken = a})
157+ (\ s a -> s{_mobOauthToken = a})
151-- | Selector specifying which fields to include in a partial response.
159-- | Selector specifying which fields to include in a partial response.
152−mddFields :: Lens' MobiledevicesDelete' (Maybe Text)
160+mobFields :: Lens' MobiledevicesDelete' (Maybe Text)
153−mddFields
161+mobFields
154− = lens _mddFields (\ s a -> s{_mddFields = a})
162+ = lens _mobFields (\ s a -> s{_mobFields = a})
156-- | Data format for the response.
164-- | Data format for the response.
157−mddAlt :: Lens' MobiledevicesDelete' Text
165+mobAlt :: Lens' MobiledevicesDelete' Alt
158−mddAlt = lens _mddAlt (\ s a -> s{_mddAlt = a})
166+mobAlt = lens _mobAlt (\ s a -> s{_mobAlt = a})
160instance GoogleRequest MobiledevicesDelete' where
168instance GoogleRequest MobiledevicesDelete' where
161 type Rs MobiledevicesDelete' = ()
169 type Rs MobiledevicesDelete' = ()
162 request = requestWithRoute defReq adminDirectoryURL
170 request = requestWithRoute defReq adminDirectoryURL
163− requestWithRoute r u MobiledevicesDelete{..}
171+ requestWithRoute r u MobiledevicesDelete'{..}
164− = go _mddQuotaUser _mddResourceId _mddPrettyPrint
172+ = go _mobQuotaUser _mobResourceId
165− _mddUserIp
173+ (Just _mobPrettyPrint)
166− _mddCustomerId
174+ _mobUserIp
167− _mddKey
175+ _mobCustomerId
168− _mddOauthToken
176+ _mobKey
169− _mddFields
177+ _mobOauthToken
170− _mddAlt
178+ _mobFields
172 = clientWithRoute
181 = clientWithRoute
173− (Proxy :: Proxy MobiledevicesDeleteAPI)
182+ (Proxy :: Proxy MobiledevicesDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Mobiledevices/Get.hs+100−97
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,171 +20,173 @@
19-- | Retrieve Mobile Device
20-- | Retrieve Mobile Device
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesGet@.
22−module Directory.Mobiledevices.Get
23+module Network.Google.Resource.Directory.Mobiledevices.Get
24 -- * REST Resource
25 -- * REST Resource
25− MobiledevicesGetAPI
26+ MobiledevicesGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , mobiledevicesGet
29+ , mobiledevicesGet'
29− , MobiledevicesGet
30+ , MobiledevicesGet'
31 -- * Request Lenses
32 -- * Request Lenses
32− , mggQuotaUser
33+ , mgQuotaUser
33− , mggResourceId
34+ , mgResourceId
34− , mggPrettyPrint
35+ , mgPrettyPrint
35− , mggUserIp
36+ , mgUserIp
36− , mggCustomerId
37+ , mgCustomerId
38− , mggProjection
39+ , mgProjection
39− , mggOauthToken
40+ , mgOauthToken
40− , mggFields
41+ , mgFields
44import Network.Google.AdminDirectory.Types
45import Network.Google.AdminDirectory.Types
45import Network.Google.Prelude
46import Network.Google.Prelude
47-- | A resource alias for @DirectoryMobiledevicesGet@ which the
48-- | A resource alias for @DirectoryMobiledevicesGet@ which the
48−-- 'MobiledevicesGet' request conforms to.
49+-- 'MobiledevicesGet'' request conforms to.
49−type MobiledevicesGetAPI =
50+type MobiledevicesGetResource =
50 "customer" :>
51 "customer" :>
51 Capture "customerId" Text :>
52 Capture "customerId" Text :>
52 "devices" :>
53 "devices" :>
53 "mobile" :>
54 "mobile" :>
54 Capture "resourceId" Text :>
55 Capture "resourceId" Text :>
55− QueryParam "projection" Text :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "userIp" Text :>
59+ QueryParam "key" Text :>
60+ QueryParam "projection"
61+ DirectoryMobiledevicesGetProjection
63+ QueryParam "oauth_token" Text :>
64+ QueryParam "fields" Text :>
56− Get '[JSON] MobileDevice
65+ QueryParam "alt" Alt :> Get '[JSON] MobileDevice
58-- | Retrieve Mobile Device
67-- | Retrieve Mobile Device
60−-- /See:/ 'mobiledevicesGet' smart constructor.
69+-- /See:/ 'mobiledevicesGet'' smart constructor.
61−data MobiledevicesGet = MobiledevicesGet
70+data MobiledevicesGet' = MobiledevicesGet'
62− { _mggQuotaUser :: !(Maybe Text)
71+ { _mgQuotaUser :: !(Maybe Text)
63− , _mggResourceId :: !Text
72+ , _mgResourceId :: !Text
64− , _mggPrettyPrint :: !Bool
73+ , _mgPrettyPrint :: !Bool
65− , _mggUserIp :: !(Maybe Text)
74+ , _mgUserIp :: !(Maybe Text)
66− , _mggCustomerId :: !Text
75+ , _mgCustomerId :: !Text
67− , _mggKey :: !(Maybe Text)
76+ , _mgKey :: !(Maybe Text)
68− , _mggProjection :: !(Maybe Text)
77+ , _mgProjection :: !(Maybe DirectoryMobiledevicesGetProjection)
69− , _mggOauthToken :: !(Maybe Text)
78+ , _mgOauthToken :: !(Maybe Text)
70− , _mggFields :: !(Maybe Text)
79+ , _mgFields :: !(Maybe Text)
71− , _mggAlt :: !Text
80+ , _mgAlt :: !Alt
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74-- | Creates a value of 'MobiledevicesGet'' with the minimum fields required to make a request.
83-- | Creates a value of 'MobiledevicesGet'' with the minimum fields required to make a request.
76-- Use one of the following lenses to modify other fields as desired:
85-- Use one of the following lenses to modify other fields as desired:
78−-- * 'mggQuotaUser'
87+-- * 'mgQuotaUser'
80−-- * 'mggResourceId'
89+-- * 'mgResourceId'
82−-- * 'mggPrettyPrint'
91+-- * 'mgPrettyPrint'
84−-- * 'mggUserIp'
93+-- * 'mgUserIp'
86−-- * 'mggCustomerId'
95+-- * 'mgCustomerId'
88−-- * 'mggKey'
97+-- * 'mgKey'
90−-- * 'mggProjection'
99+-- * 'mgProjection'
92−-- * 'mggOauthToken'
101+-- * 'mgOauthToken'
94−-- * 'mggFields'
103+-- * 'mgFields'
96−-- * 'mggAlt'
105+-- * 'mgAlt'
97−mobiledevicesGet
106+mobiledevicesGet'
98 :: Text -- ^ 'resourceId'
107 :: Text -- ^ 'resourceId'
99 -> Text -- ^ 'customerId'
108 -> Text -- ^ 'customerId'
100− -> MobiledevicesGet
109+ -> MobiledevicesGet'
101−mobiledevicesGet pMggResourceId_ pMggCustomerId_ =
110+mobiledevicesGet' pMgResourceId_ pMgCustomerId_ =
102− MobiledevicesGet
111+ MobiledevicesGet'
103− { _mggQuotaUser = Nothing
112+ { _mgQuotaUser = Nothing
104− , _mggResourceId = pMggResourceId_
113+ , _mgResourceId = pMgResourceId_
105− , _mggPrettyPrint = True
114+ , _mgPrettyPrint = True
106− , _mggUserIp = Nothing
115+ , _mgUserIp = Nothing
107− , _mggCustomerId = pMggCustomerId_
116+ , _mgCustomerId = pMgCustomerId_
108− , _mggKey = Nothing
117+ , _mgKey = Nothing
109− , _mggProjection = Nothing
118+ , _mgProjection = Nothing
110− , _mggOauthToken = Nothing
119+ , _mgOauthToken = Nothing
111− , _mggFields = Nothing
120+ , _mgFields = Nothing
112− , _mggAlt = "json"
121+ , _mgAlt = JSON
115-- | Available to use for quota purposes for server-side applications. Can be
124-- | 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
125-- any arbitrary string assigned to a user, but should not exceed 40
117-- characters. Overrides userIp if both are provided.
126-- characters. Overrides userIp if both are provided.
118−mggQuotaUser :: Lens' MobiledevicesGet' (Maybe Text)
127+mgQuotaUser :: Lens' MobiledevicesGet' (Maybe Text)
119−mggQuotaUser
128+mgQuotaUser
120− = lens _mggQuotaUser (\ s a -> s{_mggQuotaUser = a})
129+ = lens _mgQuotaUser (\ s a -> s{_mgQuotaUser = a})
122-- | Immutable id of Mobile Device
131-- | Immutable id of Mobile Device
123−mggResourceId :: Lens' MobiledevicesGet' Text
132+mgResourceId :: Lens' MobiledevicesGet' Text
124−mggResourceId
133+mgResourceId
125− = lens _mggResourceId
134+ = lens _mgResourceId (\ s a -> s{_mgResourceId = a})
126− (\ s a -> s{_mggResourceId = a})
128-- | Returns response with indentations and line breaks.
136-- | Returns response with indentations and line breaks.
129−mggPrettyPrint :: Lens' MobiledevicesGet' Bool
137+mgPrettyPrint :: Lens' MobiledevicesGet' Bool
130−mggPrettyPrint
138+mgPrettyPrint
131− = lens _mggPrettyPrint
139+ = lens _mgPrettyPrint
132− (\ s a -> s{_mggPrettyPrint = a})
140+ (\ s a -> s{_mgPrettyPrint = a})
134-- | 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
135-- want to enforce per-user limits.
143-- want to enforce per-user limits.
136−mggUserIp :: Lens' MobiledevicesGet' (Maybe Text)
144+mgUserIp :: Lens' MobiledevicesGet' (Maybe Text)
137−mggUserIp
145+mgUserIp = lens _mgUserIp (\ s a -> s{_mgUserIp = a})
138− = lens _mggUserIp (\ s a -> s{_mggUserIp = a})
140-- | Immutable id of the Google Apps account
147-- | Immutable id of the Google Apps account
141−mggCustomerId :: Lens' MobiledevicesGet' Text
148+mgCustomerId :: Lens' MobiledevicesGet' Text
142−mggCustomerId
149+mgCustomerId
143− = lens _mggCustomerId
150+ = lens _mgCustomerId (\ s a -> s{_mgCustomerId = a})
144− (\ s a -> s{_mggCustomerId = a})
146-- | API key. Your API key identifies your project and provides you with API
152-- | 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
153-- access, quota, and reports. Required unless you provide an OAuth 2.0
149−mggKey :: Lens' MobiledevicesGet' (Maybe Text)
155+mgKey :: Lens' MobiledevicesGet' (Maybe Text)
150−mggKey = lens _mggKey (\ s a -> s{_mggKey = a})
156+mgKey = lens _mgKey (\ s a -> s{_mgKey = a})
152-- | Restrict information returned to a set of selected fields.
158-- | Restrict information returned to a set of selected fields.
153−mggProjection :: Lens' MobiledevicesGet' (Maybe Text)
159+mgProjection :: Lens' MobiledevicesGet' (Maybe DirectoryMobiledevicesGetProjection)
154−mggProjection
160+mgProjection
155− = lens _mggProjection
161+ = lens _mgProjection (\ s a -> s{_mgProjection = a})
156− (\ s a -> s{_mggProjection = a})
158-- | OAuth 2.0 token for the current user.
163-- | OAuth 2.0 token for the current user.
159−mggOauthToken :: Lens' MobiledevicesGet' (Maybe Text)
164+mgOauthToken :: Lens' MobiledevicesGet' (Maybe Text)
160−mggOauthToken
165+mgOauthToken
161− = lens _mggOauthToken
166+ = lens _mgOauthToken (\ s a -> s{_mgOauthToken = a})
162− (\ s a -> s{_mggOauthToken = a})
164-- | Selector specifying which fields to include in a partial response.
168-- | Selector specifying which fields to include in a partial response.
165−mggFields :: Lens' MobiledevicesGet' (Maybe Text)
169+mgFields :: Lens' MobiledevicesGet' (Maybe Text)
166−mggFields
170+mgFields = lens _mgFields (\ s a -> s{_mgFields = a})
167− = lens _mggFields (\ s a -> s{_mggFields = a})
169-- | Data format for the response.
172-- | Data format for the response.
170−mggAlt :: Lens' MobiledevicesGet' Text
173+mgAlt :: Lens' MobiledevicesGet' Alt
171−mggAlt = lens _mggAlt (\ s a -> s{_mggAlt = a})
174+mgAlt = lens _mgAlt (\ s a -> s{_mgAlt = a})
173instance GoogleRequest MobiledevicesGet' where
176instance GoogleRequest MobiledevicesGet' where
174 type Rs MobiledevicesGet' = MobileDevice
177 type Rs MobiledevicesGet' = MobileDevice
175 request = requestWithRoute defReq adminDirectoryURL
178 request = requestWithRoute defReq adminDirectoryURL
176− requestWithRoute r u MobiledevicesGet{..}
179+ requestWithRoute r u MobiledevicesGet'{..}
177− = go _mggQuotaUser _mggResourceId _mggPrettyPrint
180+ = go _mgQuotaUser _mgResourceId (Just _mgPrettyPrint)
178− _mggUserIp
181+ _mgUserIp
179− _mggCustomerId
182+ _mgCustomerId
181− _mggProjection
184+ _mgProjection
182− _mggOauthToken
185+ _mgOauthToken
183− _mggFields
186+ _mgFields
184− _mggAlt
187+ (Just _mgAlt)
186 = clientWithRoute
189 = clientWithRoute
187− (Proxy :: Proxy MobiledevicesGetAPI)
190+ (Proxy :: Proxy MobiledevicesGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Mobiledevices/List.hs+47−32
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve all Mobile Devices of a customer (paginated)
20-- | Retrieve all Mobile Devices of a customer (paginated)
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryMobiledevicesList@.
22−module Directory.Mobiledevices.List
23+module Network.Google.Resource.Directory.Mobiledevices.List
24 -- * REST Resource
25 -- * REST Resource
25− MobiledevicesListAPI
26+ MobiledevicesListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , mobiledevicesList
29+ , mobiledevicesList'
29− , MobiledevicesList
30+ , MobiledevicesList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , mQuotaUser
33 , mQuotaUser
@@ -49,38 +50,51 @@ import Network.Google.AdminDirectory.Types
49import Network.Google.Prelude
50import Network.Google.Prelude
51-- | A resource alias for @DirectoryMobiledevicesList@ which the
52-- | A resource alias for @DirectoryMobiledevicesList@ which the
52−-- 'MobiledevicesList' request conforms to.
53+-- 'MobiledevicesList'' request conforms to.
53−type MobiledevicesListAPI =
54+type MobiledevicesListResource =
54 "customer" :>
55 "customer" :>
55 Capture "customerId" Text :>
56 Capture "customerId" Text :>
56 "devices" :>
57 "devices" :>
57 "mobile" :>
58 "mobile" :>
58− QueryParam "orderBy" Text :>
59+ QueryParam "quotaUser" Text :>
60+ QueryParam "prettyPrint" Bool :>
62+ DirectoryMobiledevicesListOrderBy
64+ QueryParam "userIp" Text :>
59− QueryParam "sortOrder" Text :>
65+ QueryParam "sortOrder"
66+ DirectoryMobiledevicesListSortOrder
68+ QueryParam "key" Text :>
60− QueryParam "query" Text :>
69+ QueryParam "query" Text :>
61− QueryParam "projection" Text :>
70+ QueryParam "projection"
71+ DirectoryMobiledevicesListProjection
62− QueryParam "pageToken" Text :>
73+ QueryParam "pageToken" Text :>
74+ QueryParam "oauth_token" Text :>
63− QueryParam "maxResults" Int32 :>
75+ QueryParam "maxResults" Int32 :>
76+ QueryParam "fields" Text :>
77+ QueryParam "alt" Alt :>
64− Get '[JSON] MobileDevices
78+ Get '[JSON] MobileDevices
66-- | Retrieve all Mobile Devices of a customer (paginated)
80-- | Retrieve all Mobile Devices of a customer (paginated)
68−-- /See:/ 'mobiledevicesList' smart constructor.
82+-- /See:/ 'mobiledevicesList'' smart constructor.
69−data MobiledevicesList = MobiledevicesList
83+data MobiledevicesList' = MobiledevicesList'
70 { _mQuotaUser :: !(Maybe Text)
84 { _mQuotaUser :: !(Maybe Text)
71 , _mPrettyPrint :: !Bool
85 , _mPrettyPrint :: !Bool
72− , _mOrderBy :: !(Maybe Text)
86+ , _mOrderBy :: !(Maybe DirectoryMobiledevicesListOrderBy)
73 , _mUserIp :: !(Maybe Text)
87 , _mUserIp :: !(Maybe Text)
74 , _mCustomerId :: !Text
88 , _mCustomerId :: !Text
75− , _mSortOrder :: !(Maybe Text)
89+ , _mSortOrder :: !(Maybe DirectoryMobiledevicesListSortOrder)
76 , _mKey :: !(Maybe Text)
90 , _mKey :: !(Maybe Text)
77 , _mQuery :: !(Maybe Text)
91 , _mQuery :: !(Maybe Text)
78− , _mProjection :: !(Maybe Text)
92+ , _mProjection :: !(Maybe DirectoryMobiledevicesListProjection)
79 , _mPageToken :: !(Maybe Text)
93 , _mPageToken :: !(Maybe Text)
80 , _mOauthToken :: !(Maybe Text)
94 , _mOauthToken :: !(Maybe Text)
81 , _mMaxResults :: !(Maybe Int32)
95 , _mMaxResults :: !(Maybe Int32)
82 , _mFields :: !(Maybe Text)
96 , _mFields :: !(Maybe Text)
83− , _mAlt :: !Text
97+ , _mAlt :: !Alt
84 } deriving (Eq,Read,Show,Data,Typeable,Generic)
98 } deriving (Eq,Read,Show,Data,Typeable,Generic)
86-- | Creates a value of 'MobiledevicesList'' with the minimum fields required to make a request.
100-- | Creates a value of 'MobiledevicesList'' with the minimum fields required to make a request.
@@ -114,11 +128,11 @@ data MobiledevicesList = MobiledevicesList
114-- * 'mFields'
128-- * 'mFields'
116-- * 'mAlt'
130-- * 'mAlt'
117−mobiledevicesList
131+mobiledevicesList'
118 :: Text -- ^ 'customerId'
132 :: Text -- ^ 'customerId'
119− -> MobiledevicesList
133+ -> MobiledevicesList'
120−mobiledevicesList pMCustomerId_ =
134+mobiledevicesList' pMCustomerId_ =
121− MobiledevicesList
135+ MobiledevicesList'
122 { _mQuotaUser = Nothing
136 { _mQuotaUser = Nothing
123 , _mPrettyPrint = True
137 , _mPrettyPrint = True
124 , _mOrderBy = Nothing
138 , _mOrderBy = Nothing
@@ -132,7 +146,7 @@ mobiledevicesList pMCustomerId_ =
132 , _mOauthToken = Nothing
146 , _mOauthToken = Nothing
133 , _mMaxResults = Nothing
147 , _mMaxResults = Nothing
134 , _mFields = Nothing
148 , _mFields = Nothing
135− , _mAlt = "json"
149+ , _mAlt = JSON
138-- | Available to use for quota purposes for server-side applications. Can be
152-- | Available to use for quota purposes for server-side applications. Can be
@@ -148,7 +162,7 @@ mPrettyPrint
148 = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})
162 = lens _mPrettyPrint (\ s a -> s{_mPrettyPrint = a})
150-- | Column to use for sorting results
164-- | Column to use for sorting results
151−mOrderBy :: Lens' MobiledevicesList' (Maybe Text)
165+mOrderBy :: Lens' MobiledevicesList' (Maybe DirectoryMobiledevicesListOrderBy)
152mOrderBy = lens _mOrderBy (\ s a -> s{_mOrderBy = a})
166mOrderBy = lens _mOrderBy (\ s a -> s{_mOrderBy = a})
154-- | IP address of the site where the request originates. Use this if you
168-- | IP address of the site where the request originates. Use this if you
@@ -163,7 +177,7 @@ mCustomerId
164-- | Whether to return results in ascending or descending order. Only of use
178-- | Whether to return results in ascending or descending order. Only of use
165-- when orderBy is also used
179-- when orderBy is also used
166−mSortOrder :: Lens' MobiledevicesList' (Maybe Text)
180+mSortOrder :: Lens' MobiledevicesList' (Maybe DirectoryMobiledevicesListSortOrder)
167mSortOrder
181mSortOrder
168 = lens _mSortOrder (\ s a -> s{_mSortOrder = a})
182 = lens _mSortOrder (\ s a -> s{_mSortOrder = a})
@@ -179,7 +193,7 @@ mQuery :: Lens' MobiledevicesList' (Maybe Text)
179mQuery = lens _mQuery (\ s a -> s{_mQuery = a})
193mQuery = lens _mQuery (\ s a -> s{_mQuery = a})
181-- | Restrict information returned to a set of selected fields.
195-- | Restrict information returned to a set of selected fields.
182−mProjection :: Lens' MobiledevicesList' (Maybe Text)
196+mProjection :: Lens' MobiledevicesList' (Maybe DirectoryMobiledevicesListProjection)
183mProjection
197mProjection
184 = lens _mProjection (\ s a -> s{_mProjection = a})
198 = lens _mProjection (\ s a -> s{_mProjection = a})
@@ -203,14 +217,15 @@ mFields :: Lens' MobiledevicesList' (Maybe Text)
203mFields = lens _mFields (\ s a -> s{_mFields = a})
217mFields = lens _mFields (\ s a -> s{_mFields = a})
205-- | Data format for the response.
219-- | Data format for the response.
206−mAlt :: Lens' MobiledevicesList' Text
220+mAlt :: Lens' MobiledevicesList' Alt
207mAlt = lens _mAlt (\ s a -> s{_mAlt = a})
221mAlt = lens _mAlt (\ s a -> s{_mAlt = a})
209instance GoogleRequest MobiledevicesList' where
223instance GoogleRequest MobiledevicesList' where
210 type Rs MobiledevicesList' = MobileDevices
224 type Rs MobiledevicesList' = MobileDevices
211 request = requestWithRoute defReq adminDirectoryURL
225 request = requestWithRoute defReq adminDirectoryURL
212− requestWithRoute r u MobiledevicesList{..}
226+ requestWithRoute r u MobiledevicesList'{..}
213− = go _mQuotaUser _mPrettyPrint _mOrderBy _mUserIp
227+ = go _mQuotaUser (Just _mPrettyPrint) _mOrderBy
214 _mCustomerId
229 _mCustomerId
215 _mSortOrder
230 _mSortOrder
@@ -220,9 +235,9 @@ instance GoogleRequest MobiledevicesList' where
220 _mOauthToken
235 _mOauthToken
221 _mMaxResults
236 _mMaxResults
223− _mAlt
238+ (Just _mAlt)
225 = clientWithRoute
240 = clientWithRoute
226− (Proxy :: Proxy MobiledevicesListAPI)
241+ (Proxy :: Proxy MobiledevicesListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Delete.hs+28−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Deletes a notification
20-- | Deletes a notification
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsDelete@.
22−module Directory.Notifications.Delete
23+module Network.Google.Resource.Directory.Notifications.Delete
24 -- * REST Resource
25 -- * REST Resource
25− NotificationsDeleteAPI
26+ NotificationsDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , notificationsDelete
29+ , notificationsDelete'
29− , NotificationsDelete
30+ , NotificationsDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ndQuotaUser
33 , ndQuotaUser
@@ -44,17 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryNotificationsDelete@ which the
47-- | A resource alias for @DirectoryNotificationsDelete@ which the
47−-- 'NotificationsDelete' request conforms to.
48+-- 'NotificationsDelete'' request conforms to.
48−type NotificationsDeleteAPI =
49+type NotificationsDeleteResource =
49 "customer" :>
50 "customer" :>
50 Capture "customer" Text :>
51 Capture "customer" Text :>
51 "notifications" :>
52 "notifications" :>
52− Capture "notificationId" Text :> Delete '[JSON] ()
53+ Capture "notificationId" 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 :> Delete '[JSON] ()
54-- | Deletes a notification
62-- | Deletes a notification
56−-- /See:/ 'notificationsDelete' smart constructor.
64+-- /See:/ 'notificationsDelete'' smart constructor.
57−data NotificationsDelete = NotificationsDelete
65+data NotificationsDelete' = NotificationsDelete'
58 { _ndQuotaUser :: !(Maybe Text)
66 { _ndQuotaUser :: !(Maybe Text)
59 , _ndPrettyPrint :: !Bool
67 , _ndPrettyPrint :: !Bool
60 , _ndUserIp :: !(Maybe Text)
68 , _ndUserIp :: !(Maybe Text)
@@ -63,7 +71,7 @@ data NotificationsDelete = NotificationsDelete
63 , _ndNotificationId :: !Text
71 , _ndNotificationId :: !Text
64 , _ndOauthToken :: !(Maybe Text)
72 , _ndOauthToken :: !(Maybe Text)
65 , _ndFields :: !(Maybe Text)
73 , _ndFields :: !(Maybe Text)
66− , _ndAlt :: !Text
74+ , _ndAlt :: !Alt
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69-- | Creates a value of 'NotificationsDelete'' with the minimum fields required to make a request.
77-- | Creates a value of 'NotificationsDelete'' with the minimum fields required to make a request.
@@ -87,12 +95,12 @@ data NotificationsDelete = NotificationsDelete
87-- * 'ndFields'
95-- * 'ndFields'
89-- * 'ndAlt'
97-- * 'ndAlt'
90−notificationsDelete
98+notificationsDelete'
91 :: Text -- ^ 'customer'
99 :: Text -- ^ 'customer'
92 -> Text -- ^ 'notificationId'
100 -> Text -- ^ 'notificationId'
93− -> NotificationsDelete
101+ -> NotificationsDelete'
94−notificationsDelete pNdCustomer_ pNdNotificationId_ =
102+notificationsDelete' pNdCustomer_ pNdNotificationId_ =
95− NotificationsDelete
103+ NotificationsDelete'
96 { _ndQuotaUser = Nothing
104 { _ndQuotaUser = Nothing
97 , _ndPrettyPrint = True
105 , _ndPrettyPrint = True
98 , _ndUserIp = Nothing
106 , _ndUserIp = Nothing
@@ -101,7 +109,7 @@ notificationsDelete pNdCustomer_ pNdNotificationId_ =
101 , _ndNotificationId = pNdNotificationId_
109 , _ndNotificationId = pNdNotificationId_
102 , _ndOauthToken = Nothing
110 , _ndOauthToken = Nothing
103 , _ndFields = Nothing
111 , _ndFields = Nothing
104− , _ndAlt = "json"
112+ , _ndAlt = JSON
107-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -150,22 +158,22 @@ ndFields :: Lens' NotificationsDelete' (Maybe Text)
150ndFields = lens _ndFields (\ s a -> s{_ndFields = a})
158ndFields = lens _ndFields (\ s a -> s{_ndFields = a})
152-- | Data format for the response.
160-- | Data format for the response.
153−ndAlt :: Lens' NotificationsDelete' Text
161+ndAlt :: Lens' NotificationsDelete' Alt
154ndAlt = lens _ndAlt (\ s a -> s{_ndAlt = a})
162ndAlt = lens _ndAlt (\ s a -> s{_ndAlt = a})
156instance GoogleRequest NotificationsDelete' where
164instance GoogleRequest NotificationsDelete' where
157 type Rs NotificationsDelete' = ()
165 type Rs NotificationsDelete' = ()
158 request = requestWithRoute defReq adminDirectoryURL
166 request = requestWithRoute defReq adminDirectoryURL
159− requestWithRoute r u NotificationsDelete{..}
167+ requestWithRoute r u NotificationsDelete'{..}
160− = go _ndQuotaUser _ndPrettyPrint _ndUserIp
168+ = go _ndQuotaUser (Just _ndPrettyPrint) _ndUserIp
161 _ndCustomer
169 _ndCustomer
163 _ndNotificationId
171 _ndNotificationId
164 _ndOauthToken
172 _ndOauthToken
165 _ndFields
173 _ndFields
166− _ndAlt
174+ (Just _ndAlt)
168 = clientWithRoute
176 = clientWithRoute
169− (Proxy :: Proxy NotificationsDeleteAPI)
177+ (Proxy :: Proxy NotificationsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Get.hs+27−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieves a notification.
20-- | Retrieves a notification.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsGet@.
22−module Directory.Notifications.Get
23+module Network.Google.Resource.Directory.Notifications.Get
24 -- * REST Resource
25 -- * REST Resource
25− NotificationsGetAPI
26+ NotificationsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , notificationsGet
29+ , notificationsGet'
29− , NotificationsGet
30+ , NotificationsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ngQuotaUser
33 , ngQuotaUser
@@ -44,18 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryNotificationsGet@ which the
47-- | A resource alias for @DirectoryNotificationsGet@ which the
47−-- 'NotificationsGet' request conforms to.
48+-- 'NotificationsGet'' request conforms to.
48−type NotificationsGetAPI =
49+type NotificationsGetResource =
49 "customer" :>
50 "customer" :>
50 Capture "customer" Text :>
51 Capture "customer" Text :>
51 "notifications" :>
52 "notifications" :>
52 Capture "notificationId" Text :>
53 Capture "notificationId" 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 :>
53− Get '[JSON] Notification
60+ QueryParam "alt" Alt :> Get '[JSON] Notification
55-- | Retrieves a notification.
62-- | Retrieves a notification.
57−-- /See:/ 'notificationsGet' smart constructor.
64+-- /See:/ 'notificationsGet'' smart constructor.
58−data NotificationsGet = NotificationsGet
65+data NotificationsGet' = NotificationsGet'
59 { _ngQuotaUser :: !(Maybe Text)
66 { _ngQuotaUser :: !(Maybe Text)
60 , _ngPrettyPrint :: !Bool
67 , _ngPrettyPrint :: !Bool
61 , _ngUserIp :: !(Maybe Text)
68 , _ngUserIp :: !(Maybe Text)
@@ -64,7 +71,7 @@ data NotificationsGet = NotificationsGet
64 , _ngNotificationId :: !Text
71 , _ngNotificationId :: !Text
65 , _ngOauthToken :: !(Maybe Text)
72 , _ngOauthToken :: !(Maybe Text)
66 , _ngFields :: !(Maybe Text)
73 , _ngFields :: !(Maybe Text)
67− , _ngAlt :: !Text
74+ , _ngAlt :: !Alt
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70-- | Creates a value of 'NotificationsGet'' with the minimum fields required to make a request.
77-- | Creates a value of 'NotificationsGet'' with the minimum fields required to make a request.
@@ -88,12 +95,12 @@ data NotificationsGet = NotificationsGet
88-- * 'ngFields'
95-- * 'ngFields'
90-- * 'ngAlt'
97-- * 'ngAlt'
91−notificationsGet
98+notificationsGet'
92 :: Text -- ^ 'customer'
99 :: Text -- ^ 'customer'
93 -> Text -- ^ 'notificationId'
100 -> Text -- ^ 'notificationId'
94− -> NotificationsGet
101+ -> NotificationsGet'
95−notificationsGet pNgCustomer_ pNgNotificationId_ =
102+notificationsGet' pNgCustomer_ pNgNotificationId_ =
96− NotificationsGet
103+ NotificationsGet'
97 { _ngQuotaUser = Nothing
104 { _ngQuotaUser = Nothing
98 , _ngPrettyPrint = True
105 , _ngPrettyPrint = True
99 , _ngUserIp = Nothing
106 , _ngUserIp = Nothing
@@ -102,7 +109,7 @@ notificationsGet pNgCustomer_ pNgNotificationId_ =
102 , _ngNotificationId = pNgNotificationId_
109 , _ngNotificationId = pNgNotificationId_
103 , _ngOauthToken = Nothing
110 , _ngOauthToken = Nothing
104 , _ngFields = Nothing
111 , _ngFields = Nothing
105− , _ngAlt = "json"
112+ , _ngAlt = JSON
108-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -151,22 +158,22 @@ ngFields :: Lens' NotificationsGet' (Maybe Text)
151ngFields = lens _ngFields (\ s a -> s{_ngFields = a})
158ngFields = lens _ngFields (\ s a -> s{_ngFields = a})
153-- | Data format for the response.
160-- | Data format for the response.
154−ngAlt :: Lens' NotificationsGet' Text
161+ngAlt :: Lens' NotificationsGet' Alt
155ngAlt = lens _ngAlt (\ s a -> s{_ngAlt = a})
162ngAlt = lens _ngAlt (\ s a -> s{_ngAlt = a})
157instance GoogleRequest NotificationsGet' where
164instance GoogleRequest NotificationsGet' where
158 type Rs NotificationsGet' = Notification
165 type Rs NotificationsGet' = Notification
159 request = requestWithRoute defReq adminDirectoryURL
166 request = requestWithRoute defReq adminDirectoryURL
160− requestWithRoute r u NotificationsGet{..}
167+ requestWithRoute r u NotificationsGet'{..}
161− = go _ngQuotaUser _ngPrettyPrint _ngUserIp
168+ = go _ngQuotaUser (Just _ngPrettyPrint) _ngUserIp
162 _ngCustomer
169 _ngCustomer
164 _ngNotificationId
171 _ngNotificationId
165 _ngOauthToken
172 _ngOauthToken
166 _ngFields
173 _ngFields
167− _ngAlt
174+ (Just _ngAlt)
169 = clientWithRoute
176 = clientWithRoute
170− (Proxy :: Proxy NotificationsGetAPI)
177+ (Proxy :: Proxy NotificationsGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/List.hs+30−23
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieves a list of notifications.
20-- | Retrieves a list of notifications.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsList@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsList@.
22−module Directory.Notifications.List
23+module Network.Google.Resource.Directory.Notifications.List
24 -- * REST Resource
25 -- * REST Resource
25− NotificationsListAPI
26+ NotificationsListResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , notificationsList
29+ , notificationsList'
29− , NotificationsList
30+ , NotificationsList'
31 -- * Request Lenses
32 -- * Request Lenses
32 , nlQuotaUser
33 , nlQuotaUser
@@ -46,20 +47,26 @@ import Network.Google.AdminDirectory.Types
46import Network.Google.Prelude
47import Network.Google.Prelude
48-- | A resource alias for @DirectoryNotificationsList@ which the
49-- | A resource alias for @DirectoryNotificationsList@ which the
49−-- 'NotificationsList' request conforms to.
50+-- 'NotificationsList'' request conforms to.
50−type NotificationsListAPI =
51+type NotificationsListResource =
51 "customer" :>
52 "customer" :>
52 Capture "customer" Text :>
53 Capture "customer" Text :>
53 "notifications" :>
54 "notifications" :>
54− QueryParam "language" Text :>
55+ QueryParam "quotaUser" Text :>
55− QueryParam "pageToken" Text :>
56+ QueryParam "prettyPrint" Bool :>
57+ QueryParam "userIp" Text :>
58+ QueryParam "key" Text :>
59+ QueryParam "language" Text :>
60+ QueryParam "pageToken" Text :>
61+ QueryParam "oauth_token" Text :>
56− QueryParam "maxResults" Word32 :>
62+ QueryParam "maxResults" Word32 :>
63+ QueryParam "fields" Text :>
57− Get '[JSON] Notifications
64+ QueryParam "alt" Alt :> Get '[JSON] Notifications
59-- | Retrieves a list of notifications.
66-- | Retrieves a list of notifications.
61−-- /See:/ 'notificationsList' smart constructor.
68+-- /See:/ 'notificationsList'' smart constructor.
62−data NotificationsList = NotificationsList
69+data NotificationsList' = NotificationsList'
63 { _nlQuotaUser :: !(Maybe Text)
70 { _nlQuotaUser :: !(Maybe Text)
64 , _nlPrettyPrint :: !Bool
71 , _nlPrettyPrint :: !Bool
65 , _nlUserIp :: !(Maybe Text)
72 , _nlUserIp :: !(Maybe Text)
@@ -70,7 +77,7 @@ data NotificationsList = NotificationsList
70 , _nlOauthToken :: !(Maybe Text)
77 , _nlOauthToken :: !(Maybe Text)
71 , _nlMaxResults :: !(Maybe Word32)
78 , _nlMaxResults :: !(Maybe Word32)
72 , _nlFields :: !(Maybe Text)
79 , _nlFields :: !(Maybe Text)
73− , _nlAlt :: !Text
80+ , _nlAlt :: !Alt
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
81 } deriving (Eq,Read,Show,Data,Typeable,Generic)
76-- | Creates a value of 'NotificationsList'' with the minimum fields required to make a request.
83-- | Creates a value of 'NotificationsList'' with the minimum fields required to make a request.
@@ -98,11 +105,11 @@ data NotificationsList = NotificationsList
98-- * 'nlFields'
105-- * 'nlFields'
100-- * 'nlAlt'
107-- * 'nlAlt'
101−notificationsList
108+notificationsList'
102 :: Text -- ^ 'customer'
109 :: Text -- ^ 'customer'
103− -> NotificationsList
110+ -> NotificationsList'
104−notificationsList pNlCustomer_ =
111+notificationsList' pNlCustomer_ =
105− NotificationsList
112+ NotificationsList'
106 { _nlQuotaUser = Nothing
113 { _nlQuotaUser = Nothing
107 , _nlPrettyPrint = True
114 , _nlPrettyPrint = True
108 , _nlUserIp = Nothing
115 , _nlUserIp = Nothing
@@ -113,7 +120,7 @@ notificationsList pNlCustomer_ =
113 , _nlOauthToken = Nothing
120 , _nlOauthToken = Nothing
114 , _nlMaxResults = Nothing
121 , _nlMaxResults = Nothing
115 , _nlFields = Nothing
122 , _nlFields = Nothing
116− , _nlAlt = "json"
123+ , _nlAlt = JSON
119-- | Available to use for quota purposes for server-side applications. Can be
126-- | Available to use for quota purposes for server-side applications. Can be
@@ -171,14 +178,14 @@ nlFields :: Lens' NotificationsList' (Maybe Text)
171nlFields = lens _nlFields (\ s a -> s{_nlFields = a})
178nlFields = lens _nlFields (\ s a -> s{_nlFields = a})
173-- | Data format for the response.
180-- | Data format for the response.
174−nlAlt :: Lens' NotificationsList' Text
181+nlAlt :: Lens' NotificationsList' Alt
175nlAlt = lens _nlAlt (\ s a -> s{_nlAlt = a})
182nlAlt = lens _nlAlt (\ s a -> s{_nlAlt = a})
177instance GoogleRequest NotificationsList' where
184instance GoogleRequest NotificationsList' where
178 type Rs NotificationsList' = Notifications
185 type Rs NotificationsList' = Notifications
179 request = requestWithRoute defReq adminDirectoryURL
186 request = requestWithRoute defReq adminDirectoryURL
180− requestWithRoute r u NotificationsList{..}
187+ requestWithRoute r u NotificationsList'{..}
181− = go _nlQuotaUser _nlPrettyPrint _nlUserIp
188+ = go _nlQuotaUser (Just _nlPrettyPrint) _nlUserIp
182 _nlCustomer
189 _nlCustomer
184 _nlLanguage
191 _nlLanguage
@@ -186,9 +193,9 @@ instance GoogleRequest NotificationsList' where
186 _nlOauthToken
193 _nlOauthToken
187 _nlMaxResults
194 _nlMaxResults
188 _nlFields
195 _nlFields
189− _nlAlt
196+ (Just _nlAlt)
191 = clientWithRoute
198 = clientWithRoute
192− (Proxy :: Proxy NotificationsListAPI)
199+ (Proxy :: Proxy NotificationsListResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Patch.hs+27−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Updates a notification. This method supports patch semantics.
20-- | Updates a notification. This method supports patch semantics.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsPatch@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsPatch@.
22−module Directory.Notifications.Patch
23+module Network.Google.Resource.Directory.Notifications.Patch
24 -- * REST Resource
25 -- * REST Resource
25− NotificationsPatchAPI
26+ NotificationsPatchResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , notificationsPatch
29+ , notificationsPatch'
29− , NotificationsPatch
30+ , NotificationsPatch'
31 -- * Request Lenses
32 -- * Request Lenses
32 , npQuotaUser
33 , npQuotaUser
@@ -44,18 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryNotificationsPatch@ which the
47-- | A resource alias for @DirectoryNotificationsPatch@ which the
47−-- 'NotificationsPatch' request conforms to.
48+-- 'NotificationsPatch'' request conforms to.
48−type NotificationsPatchAPI =
49+type NotificationsPatchResource =
49 "customer" :>
50 "customer" :>
50 Capture "customer" Text :>
51 Capture "customer" Text :>
51 "notifications" :>
52 "notifications" :>
52 Capture "notificationId" Text :>
53 Capture "notificationId" 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 :>
53− Patch '[JSON] Notification
60+ QueryParam "alt" Alt :> Patch '[JSON] Notification
55-- | Updates a notification. This method supports patch semantics.
62-- | Updates a notification. This method supports patch semantics.
57−-- /See:/ 'notificationsPatch' smart constructor.
64+-- /See:/ 'notificationsPatch'' smart constructor.
58−data NotificationsPatch = NotificationsPatch
65+data NotificationsPatch' = NotificationsPatch'
59 { _npQuotaUser :: !(Maybe Text)
66 { _npQuotaUser :: !(Maybe Text)
60 , _npPrettyPrint :: !Bool
67 , _npPrettyPrint :: !Bool
61 , _npUserIp :: !(Maybe Text)
68 , _npUserIp :: !(Maybe Text)
@@ -64,7 +71,7 @@ data NotificationsPatch = NotificationsPatch
64 , _npNotificationId :: !Text
71 , _npNotificationId :: !Text
65 , _npOauthToken :: !(Maybe Text)
72 , _npOauthToken :: !(Maybe Text)
66 , _npFields :: !(Maybe Text)
73 , _npFields :: !(Maybe Text)
67− , _npAlt :: !Text
74+ , _npAlt :: !Alt
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70-- | Creates a value of 'NotificationsPatch'' with the minimum fields required to make a request.
77-- | Creates a value of 'NotificationsPatch'' with the minimum fields required to make a request.
@@ -88,12 +95,12 @@ data NotificationsPatch = NotificationsPatch
88-- * 'npFields'
95-- * 'npFields'
90-- * 'npAlt'
97-- * 'npAlt'
91−notificationsPatch
98+notificationsPatch'
92 :: Text -- ^ 'customer'
99 :: Text -- ^ 'customer'
93 -> Text -- ^ 'notificationId'
100 -> Text -- ^ 'notificationId'
94− -> NotificationsPatch
101+ -> NotificationsPatch'
95−notificationsPatch pNpCustomer_ pNpNotificationId_ =
102+notificationsPatch' pNpCustomer_ pNpNotificationId_ =
96− NotificationsPatch
103+ NotificationsPatch'
97 { _npQuotaUser = Nothing
104 { _npQuotaUser = Nothing
98 , _npPrettyPrint = True
105 , _npPrettyPrint = True
99 , _npUserIp = Nothing
106 , _npUserIp = Nothing
@@ -102,7 +109,7 @@ notificationsPatch pNpCustomer_ pNpNotificationId_ =
102 , _npNotificationId = pNpNotificationId_
109 , _npNotificationId = pNpNotificationId_
103 , _npOauthToken = Nothing
110 , _npOauthToken = Nothing
104 , _npFields = Nothing
111 , _npFields = Nothing
105− , _npAlt = "json"
112+ , _npAlt = JSON
108-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -150,22 +157,22 @@ npFields :: Lens' NotificationsPatch' (Maybe Text)
150npFields = lens _npFields (\ s a -> s{_npFields = a})
157npFields = lens _npFields (\ s a -> s{_npFields = a})
152-- | Data format for the response.
159-- | Data format for the response.
153−npAlt :: Lens' NotificationsPatch' Text
160+npAlt :: Lens' NotificationsPatch' Alt
154npAlt = lens _npAlt (\ s a -> s{_npAlt = a})
161npAlt = lens _npAlt (\ s a -> s{_npAlt = a})
156instance GoogleRequest NotificationsPatch' where
163instance GoogleRequest NotificationsPatch' where
157 type Rs NotificationsPatch' = Notification
164 type Rs NotificationsPatch' = Notification
158 request = requestWithRoute defReq adminDirectoryURL
165 request = requestWithRoute defReq adminDirectoryURL
159− requestWithRoute r u NotificationsPatch{..}
166+ requestWithRoute r u NotificationsPatch'{..}
160− = go _npQuotaUser _npPrettyPrint _npUserIp
167+ = go _npQuotaUser (Just _npPrettyPrint) _npUserIp
161 _npCustomer
168 _npCustomer
163 _npNotificationId
170 _npNotificationId
164 _npOauthToken
171 _npOauthToken
165 _npFields
172 _npFields
166− _npAlt
173+ (Just _npAlt)
168 = clientWithRoute
175 = clientWithRoute
169− (Proxy :: Proxy NotificationsPatchAPI)
176+ (Proxy :: Proxy NotificationsPatchResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Notifications/Update.hs+27−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Updates a notification.
20-- | Updates a notification.
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsUpdate@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryNotificationsUpdate@.
22−module Directory.Notifications.Update
23+module Network.Google.Resource.Directory.Notifications.Update
24 -- * REST Resource
25 -- * REST Resource
25− NotificationsUpdateAPI
26+ NotificationsUpdateResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , notificationsUpdate
29+ , notificationsUpdate'
29− , NotificationsUpdate
30+ , NotificationsUpdate'
31 -- * Request Lenses
32 -- * Request Lenses
32 , nuQuotaUser
33 , nuQuotaUser
@@ -44,18 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryNotificationsUpdate@ which the
47-- | A resource alias for @DirectoryNotificationsUpdate@ which the
47−-- 'NotificationsUpdate' request conforms to.
48+-- 'NotificationsUpdate'' request conforms to.
48−type NotificationsUpdateAPI =
49+type NotificationsUpdateResource =
49 "customer" :>
50 "customer" :>
50 Capture "customer" Text :>
51 Capture "customer" Text :>
51 "notifications" :>
52 "notifications" :>
52 Capture "notificationId" Text :>
53 Capture "notificationId" 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 :>
53− Put '[JSON] Notification
60+ QueryParam "alt" Alt :> Put '[JSON] Notification
55-- | Updates a notification.
62-- | Updates a notification.
57−-- /See:/ 'notificationsUpdate' smart constructor.
64+-- /See:/ 'notificationsUpdate'' smart constructor.
58−data NotificationsUpdate = NotificationsUpdate
65+data NotificationsUpdate' = NotificationsUpdate'
59 { _nuQuotaUser :: !(Maybe Text)
66 { _nuQuotaUser :: !(Maybe Text)
60 , _nuPrettyPrint :: !Bool
67 , _nuPrettyPrint :: !Bool
61 , _nuUserIp :: !(Maybe Text)
68 , _nuUserIp :: !(Maybe Text)
@@ -64,7 +71,7 @@ data NotificationsUpdate = NotificationsUpdate
64 , _nuNotificationId :: !Text
71 , _nuNotificationId :: !Text
65 , _nuOauthToken :: !(Maybe Text)
72 , _nuOauthToken :: !(Maybe Text)
66 , _nuFields :: !(Maybe Text)
73 , _nuFields :: !(Maybe Text)
67− , _nuAlt :: !Text
74+ , _nuAlt :: !Alt
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
70-- | Creates a value of 'NotificationsUpdate'' with the minimum fields required to make a request.
77-- | Creates a value of 'NotificationsUpdate'' with the minimum fields required to make a request.
@@ -88,12 +95,12 @@ data NotificationsUpdate = NotificationsUpdate
88-- * 'nuFields'
95-- * 'nuFields'
90-- * 'nuAlt'
97-- * 'nuAlt'
91−notificationsUpdate
98+notificationsUpdate'
92 :: Text -- ^ 'customer'
99 :: Text -- ^ 'customer'
93 -> Text -- ^ 'notificationId'
100 -> Text -- ^ 'notificationId'
94− -> NotificationsUpdate
101+ -> NotificationsUpdate'
95−notificationsUpdate pNuCustomer_ pNuNotificationId_ =
102+notificationsUpdate' pNuCustomer_ pNuNotificationId_ =
96− NotificationsUpdate
103+ NotificationsUpdate'
97 { _nuQuotaUser = Nothing
104 { _nuQuotaUser = Nothing
98 , _nuPrettyPrint = True
105 , _nuPrettyPrint = True
99 , _nuUserIp = Nothing
106 , _nuUserIp = Nothing
@@ -102,7 +109,7 @@ notificationsUpdate pNuCustomer_ pNuNotificationId_ =
102 , _nuNotificationId = pNuNotificationId_
109 , _nuNotificationId = pNuNotificationId_
103 , _nuOauthToken = Nothing
110 , _nuOauthToken = Nothing
104 , _nuFields = Nothing
111 , _nuFields = Nothing
105− , _nuAlt = "json"
112+ , _nuAlt = JSON
108-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -150,22 +157,22 @@ nuFields :: Lens' NotificationsUpdate' (Maybe Text)
150nuFields = lens _nuFields (\ s a -> s{_nuFields = a})
157nuFields = lens _nuFields (\ s a -> s{_nuFields = a})
152-- | Data format for the response.
159-- | Data format for the response.
153−nuAlt :: Lens' NotificationsUpdate' Text
160+nuAlt :: Lens' NotificationsUpdate' Alt
154nuAlt = lens _nuAlt (\ s a -> s{_nuAlt = a})
161nuAlt = lens _nuAlt (\ s a -> s{_nuAlt = a})
156instance GoogleRequest NotificationsUpdate' where
163instance GoogleRequest NotificationsUpdate' where
157 type Rs NotificationsUpdate' = Notification
164 type Rs NotificationsUpdate' = Notification
158 request = requestWithRoute defReq adminDirectoryURL
165 request = requestWithRoute defReq adminDirectoryURL
159− requestWithRoute r u NotificationsUpdate{..}
166+ requestWithRoute r u NotificationsUpdate'{..}
160− = go _nuQuotaUser _nuPrettyPrint _nuUserIp
167+ = go _nuQuotaUser (Just _nuPrettyPrint) _nuUserIp
161 _nuCustomer
168 _nuCustomer
163 _nuNotificationId
170 _nuNotificationId
164 _nuOauthToken
171 _nuOauthToken
165 _nuFields
172 _nuFields
166− _nuAlt
173+ (Just _nuAlt)
168 = clientWithRoute
175 = clientWithRoute
169− (Proxy :: Proxy NotificationsUpdateAPI)
176+ (Proxy :: Proxy NotificationsUpdateResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Orgunits/Delete.hs+30−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Remove Organization Unit
20-- | Remove Organization Unit
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryOrgunitsDelete@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryOrgunitsDelete@.
22−module Directory.Orgunits.Delete
23+module Network.Google.Resource.Directory.Orgunits.Delete
24 -- * REST Resource
25 -- * REST Resource
25− OrgunitsDeleteAPI
26+ OrgunitsDeleteResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , orgunitsDelete
29+ , orgunitsDelete'
29− , OrgunitsDelete
30+ , OrgunitsDelete'
31 -- * Request Lenses
32 -- * Request Lenses
32 , odQuotaUser
33 , odQuotaUser
@@ -44,16 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryOrgunitsDelete@ which the
47-- | A resource alias for @DirectoryOrgunitsDelete@ which the
47−-- 'OrgunitsDelete' request conforms to.
48+-- 'OrgunitsDelete'' request conforms to.
48−type OrgunitsDeleteAPI =
49+type OrgunitsDeleteResource =
49 "customer" :>
50 "customer" :>
50 Capture "customerId" Text :>
51 Capture "customerId" Text :>
51− "orgunits{" :> "orgUnitPath*}" :> Delete '[JSON] ()
53+ "orgUnitPath*}" :>
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 :> Delete '[JSON] ()
53-- | Remove Organization Unit
62-- | Remove Organization Unit
55−-- /See:/ 'orgunitsDelete' smart constructor.
64+-- /See:/ 'orgunitsDelete'' smart constructor.
56−data OrgunitsDelete = OrgunitsDelete
65+data OrgunitsDelete' = OrgunitsDelete'
57 { _odQuotaUser :: !(Maybe Text)
66 { _odQuotaUser :: !(Maybe Text)
58 , _odPrettyPrint :: !Bool
67 , _odPrettyPrint :: !Bool
59 , _odUserIp :: !(Maybe Text)
68 , _odUserIp :: !(Maybe Text)
@@ -62,7 +71,7 @@ data OrgunitsDelete = OrgunitsDelete
62 , _odKey :: !(Maybe Text)
71 , _odKey :: !(Maybe Text)
63 , _odOauthToken :: !(Maybe Text)
72 , _odOauthToken :: !(Maybe Text)
64 , _odFields :: !(Maybe Text)
73 , _odFields :: !(Maybe Text)
65− , _odAlt :: !Text
74+ , _odAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'OrgunitsDelete'' with the minimum fields required to make a request.
77-- | Creates a value of 'OrgunitsDelete'' with the minimum fields required to make a request.
@@ -86,12 +95,12 @@ data OrgunitsDelete = OrgunitsDelete
86-- * 'odFields'
95-- * 'odFields'
88-- * 'odAlt'
97-- * 'odAlt'
89−orgunitsDelete
98+orgunitsDelete'
90 :: Text -- ^ 'orgUnitPath'
99 :: Text -- ^ 'orgUnitPath'
91 -> Text -- ^ 'customerId'
100 -> Text -- ^ 'customerId'
92− -> OrgunitsDelete
101+ -> OrgunitsDelete'
93−orgunitsDelete pOdOrgUnitPath_ pOdCustomerId_ =
102+orgunitsDelete' pOdOrgUnitPath_ pOdCustomerId_ =
94− OrgunitsDelete
103+ OrgunitsDelete'
95 { _odQuotaUser = Nothing
104 { _odQuotaUser = Nothing
96 , _odPrettyPrint = True
105 , _odPrettyPrint = True
97 , _odUserIp = Nothing
106 , _odUserIp = Nothing
@@ -100,7 +109,7 @@ orgunitsDelete pOdOrgUnitPath_ pOdCustomerId_ =
100 , _odKey = Nothing
109 , _odKey = Nothing
101 , _odOauthToken = Nothing
110 , _odOauthToken = Nothing
102 , _odFields = Nothing
111 , _odFields = Nothing
103− , _odAlt = "json"
112+ , _odAlt = JSON
106-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -148,21 +157,22 @@ odFields :: Lens' OrgunitsDelete' (Maybe Text)
148odFields = lens _odFields (\ s a -> s{_odFields = a})
157odFields = lens _odFields (\ s a -> s{_odFields = a})
150-- | Data format for the response.
159-- | Data format for the response.
151−odAlt :: Lens' OrgunitsDelete' Text
160+odAlt :: Lens' OrgunitsDelete' Alt
152odAlt = lens _odAlt (\ s a -> s{_odAlt = a})
161odAlt = lens _odAlt (\ s a -> s{_odAlt = a})
154instance GoogleRequest OrgunitsDelete' where
163instance GoogleRequest OrgunitsDelete' where
155 type Rs OrgunitsDelete' = ()
164 type Rs OrgunitsDelete' = ()
156 request = requestWithRoute defReq adminDirectoryURL
165 request = requestWithRoute defReq adminDirectoryURL
157− requestWithRoute r u OrgunitsDelete{..}
166+ requestWithRoute r u OrgunitsDelete'{..}
158− = go _odQuotaUser _odPrettyPrint _odUserIp
167+ = go _odQuotaUser (Just _odPrettyPrint) _odUserIp
159 _odOrgUnitPath
168 _odOrgUnitPath
160 _odCustomerId
169 _odCustomerId
162 _odOauthToken
171 _odOauthToken
163 _odFields
172 _odFields
164− _odAlt
173+ (Just _odAlt)
166− = clientWithRoute (Proxy :: Proxy OrgunitsDeleteAPI)
175+ = clientWithRoute
176+ (Proxy :: Proxy OrgunitsDeleteResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Orgunits/Get.hs+32−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Retrieve Organization Unit
20-- | Retrieve Organization Unit
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryOrgunitsGet@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryOrgunitsGet@.
22−module Directory.Orgunits.Get
23+module Network.Google.Resource.Directory.Orgunits.Get
24 -- * REST Resource
25 -- * REST Resource
25− OrgunitsGetAPI
26+ OrgunitsGetResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , orgunitsGet
29+ , orgunitsGet'
29− , OrgunitsGet
30+ , OrgunitsGet'
31 -- * Request Lenses
32 -- * Request Lenses
32 , ogQuotaUser
33 , ogQuotaUser
@@ -44,16 +45,24 @@ import Network.Google.AdminDirectory.Types
44import Network.Google.Prelude
45import Network.Google.Prelude
46-- | A resource alias for @DirectoryOrgunitsGet@ which the
47-- | A resource alias for @DirectoryOrgunitsGet@ which the
47−-- 'OrgunitsGet' request conforms to.
48+-- 'OrgunitsGet'' request conforms to.
48−type OrgunitsGetAPI =
49+type OrgunitsGetResource =
49 "customer" :>
50 "customer" :>
50 Capture "customerId" Text :>
51 Capture "customerId" Text :>
51− "orgunits{" :> "orgUnitPath*}" :> Get '[JSON] OrgUnit
53+ "orgUnitPath*}" :>
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] OrgUnit
53-- | Retrieve Organization Unit
62-- | Retrieve Organization Unit
55−-- /See:/ 'orgunitsGet' smart constructor.
64+-- /See:/ 'orgunitsGet'' smart constructor.
56−data OrgunitsGet = OrgunitsGet
65+data OrgunitsGet' = OrgunitsGet'
57 { _ogQuotaUser :: !(Maybe Text)
66 { _ogQuotaUser :: !(Maybe Text)
58 , _ogPrettyPrint :: !Bool
67 , _ogPrettyPrint :: !Bool
59 , _ogUserIp :: !(Maybe Text)
68 , _ogUserIp :: !(Maybe Text)
@@ -62,7 +71,7 @@ data OrgunitsGet = OrgunitsGet
62 , _ogKey :: !(Maybe Text)
71 , _ogKey :: !(Maybe Text)
63 , _ogOauthToken :: !(Maybe Text)
72 , _ogOauthToken :: !(Maybe Text)
64 , _ogFields :: !(Maybe Text)
73 , _ogFields :: !(Maybe Text)
65− , _ogAlt :: !Text
74+ , _ogAlt :: !Alt
66 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68-- | Creates a value of 'OrgunitsGet'' with the minimum fields required to make a request.
77-- | Creates a value of 'OrgunitsGet'' with the minimum fields required to make a request.
@@ -86,12 +95,12 @@ data OrgunitsGet = OrgunitsGet
86-- * 'ogFields'
95-- * 'ogFields'
88-- * 'ogAlt'
97-- * 'ogAlt'
89−orgunitsGet
98+orgunitsGet'
90 :: Text -- ^ 'orgUnitPath'
99 :: Text -- ^ 'orgUnitPath'
91 -> Text -- ^ 'customerId'
100 -> Text -- ^ 'customerId'
92− -> OrgunitsGet
101+ -> OrgunitsGet'
93−orgunitsGet pOgOrgUnitPath_ pOgCustomerId_ =
102+orgunitsGet' pOgOrgUnitPath_ pOgCustomerId_ =
94− OrgunitsGet
103+ OrgunitsGet'
95 { _ogQuotaUser = Nothing
104 { _ogQuotaUser = Nothing
96 , _ogPrettyPrint = True
105 , _ogPrettyPrint = True
97 , _ogUserIp = Nothing
106 , _ogUserIp = Nothing
@@ -100,7 +109,7 @@ orgunitsGet pOgOrgUnitPath_ pOgCustomerId_ =
100 , _ogKey = Nothing
109 , _ogKey = Nothing
101 , _ogOauthToken = Nothing
110 , _ogOauthToken = Nothing
102 , _ogFields = Nothing
111 , _ogFields = Nothing
103− , _ogAlt = "json"
112+ , _ogAlt = JSON
106-- | Available to use for quota purposes for server-side applications. Can be
115-- | Available to use for quota purposes for server-side applications. Can be
@@ -148,19 +157,22 @@ ogFields :: Lens' OrgunitsGet' (Maybe Text)
148ogFields = lens _ogFields (\ s a -> s{_ogFields = a})
157ogFields = lens _ogFields (\ s a -> s{_ogFields = a})
150-- | Data format for the response.
159-- | Data format for the response.
151−ogAlt :: Lens' OrgunitsGet' Text
160+ogAlt :: Lens' OrgunitsGet' Alt
152ogAlt = lens _ogAlt (\ s a -> s{_ogAlt = a})
161ogAlt = lens _ogAlt (\ s a -> s{_ogAlt = a})
154instance GoogleRequest OrgunitsGet' where
163instance GoogleRequest OrgunitsGet' where
155 type Rs OrgunitsGet' = OrgUnit
164 type Rs OrgunitsGet' = OrgUnit
156 request = requestWithRoute defReq adminDirectoryURL
165 request = requestWithRoute defReq adminDirectoryURL
157− requestWithRoute r u OrgunitsGet{..}
166+ requestWithRoute r u OrgunitsGet'{..}
158− = go _ogQuotaUser _ogPrettyPrint _ogUserIp
167+ = go _ogQuotaUser (Just _ogPrettyPrint) _ogUserIp
159 _ogOrgUnitPath
168 _ogOrgUnitPath
160 _ogCustomerId
169 _ogCustomerId
162 _ogOauthToken
171 _ogOauthToken
163 _ogFields
172 _ogFields
164− _ogAlt
173+ (Just _ogAlt)
166− = clientWithRoute (Proxy :: Proxy OrgunitsGetAPI) r u
175+ = clientWithRoute
176+ (Proxy :: Proxy OrgunitsGetResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Orgunits/Insert.hs+29−20
@@ -1,6 +1,7 @@
1{-# LANGUAGE DataKinds #-}
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
4{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE RecordWildCards #-}
5{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeFamilies #-}
6{-# LANGUAGE TypeOperators #-}
7{-# LANGUAGE TypeOperators #-}
@@ -19,14 +20,14 @@
19-- | Add Organization Unit
20-- | Add Organization Unit
21-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryOrgunitsInsert@.
22-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference> for @DirectoryOrgunitsInsert@.
22−module Directory.Orgunits.Insert
23+module Network.Google.Resource.Directory.Orgunits.Insert
24 -- * REST Resource
25 -- * REST Resource
25− OrgunitsInsertAPI
26+ OrgunitsInsertResource
27 -- * Creating a Request
28 -- * Creating a Request
28− , orgunitsInsert
29+ , orgunitsInsert'
29− , OrgunitsInsert
30+ , OrgunitsInsert'
31 -- * Request Lenses
32 -- * Request Lenses
32 , oiQuotaUser
33 , oiQuotaUser
@@ -43,16 +44,23 @@ import Network.Google.AdminDirectory.Types
43import Network.Google.Prelude
44import Network.Google.Prelude
45-- | A resource alias for @DirectoryOrgunitsInsert@ which the
46-- | A resource alias for @DirectoryOrgunitsInsert@ which the
46−-- 'OrgunitsInsert' request conforms to.
47+-- 'OrgunitsInsert'' request conforms to.
47−type OrgunitsInsertAPI =
48+type OrgunitsInsertResource =
48 "customer" :>
49 "customer" :>
49 Capture "customerId" Text :>
50 Capture "customerId" Text :>
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 :>
50− "orgunits" :> Post '[JSON] OrgUnit
58+ QueryParam "alt" Alt :> Post '[JSON] OrgUnit
52-- | Add Organization Unit
60-- | Add Organization Unit
54−-- /See:/ 'orgunitsInsert' smart constructor.
62+-- /See:/ 'orgunitsInsert'' smart constructor.
55−data OrgunitsInsert = OrgunitsInsert
63+data OrgunitsInsert' = OrgunitsInsert'
56 { _oiQuotaUser :: !(Maybe Text)
64 { _oiQuotaUser :: !(Maybe Text)
57 , _oiPrettyPrint :: !Bool
65 , _oiPrettyPrint :: !Bool
58 , _oiUserIp :: !(Maybe Text)
66 , _oiUserIp :: !(Maybe Text)
@@ -60,7 +68,7 @@ data OrgunitsInsert = OrgunitsInsert
60 , _oiKey :: !(Maybe Text)
68 , _oiKey :: !(Maybe Text)
61 , _oiOauthToken :: !(Maybe Text)
69 , _oiOauthToken :: !(Maybe Text)
62 , _oiFields :: !(Maybe Text)
70 , _oiFields :: !(Maybe Text)
63− , _oiAlt :: !Text
71+ , _oiAlt :: !Alt
64 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66-- | Creates a value of 'OrgunitsInsert'' with the minimum fields required to make a request.
74-- | Creates a value of 'OrgunitsInsert'' with the minimum fields required to make a request.
@@ -82,11 +90,11 @@ data OrgunitsInsert = OrgunitsInsert
82-- * 'oiFields'
90-- * 'oiFields'
84-- * 'oiAlt'
92-- * 'oiAlt'
85−orgunitsInsert
93+orgunitsInsert'
86 :: Text -- ^ 'customerId'
94 :: Text -- ^ 'customerId'
87− -> OrgunitsInsert
95+ -> OrgunitsInsert'
88−orgunitsInsert pOiCustomerId_ =
96+orgunitsInsert' pOiCustomerId_ =
89− OrgunitsInsert
97+ OrgunitsInsert'
90 { _oiQuotaUser = Nothing
98 { _oiQuotaUser = Nothing
91 , _oiPrettyPrint = True
99 , _oiPrettyPrint = True
92 , _oiUserIp = Nothing
100 , _oiUserIp = Nothing
@@ -94,7 +102,7 @@ orgunitsInsert pOiCustomerId_ =
94 , _oiKey = Nothing
102 , _oiKey = Nothing
95 , _oiOauthToken = Nothing
103 , _oiOauthToken = Nothing
96 , _oiFields = Nothing
104 , _oiFields = Nothing
97− , _oiAlt = "json"
105+ , _oiAlt = JSON
100-- | Available to use for quota purposes for server-side applications. Can be
108-- | Available to use for quota purposes for server-side applications. Can be
@@ -136,20 +144,21 @@ oiFields :: Lens' OrgunitsInsert' (Maybe Text)
136oiFields = lens _oiFields (\ s a -> s{_oiFields = a})
144oiFields = lens _oiFields (\ s a -> s{_oiFields = a})
138-- | Data format for the response.
146-- | Data format for the response.
139−oiAlt :: Lens' OrgunitsInsert' Text
147+oiAlt :: Lens' OrgunitsInsert' Alt
140oiAlt = lens _oiAlt (\ s a -> s{_oiAlt = a})
148oiAlt = lens _oiAlt (\ s a -> s{_oiAlt = a})
142instance GoogleRequest OrgunitsInsert' where
150instance GoogleRequest OrgunitsInsert' where
143 type Rs OrgunitsInsert' = OrgUnit
151 type Rs OrgunitsInsert' = OrgUnit
144 request = requestWithRoute defReq adminDirectoryURL
152 request = requestWithRoute defReq adminDirectoryURL
145− requestWithRoute r u OrgunitsInsert{..}
153+ requestWithRoute r u OrgunitsInsert'{..}
146− = go _oiQuotaUser _oiPrettyPrint _oiUserIp
154+ = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIp
147 _oiCustomerId
155 _oiCustomerId
149 _oiOauthToken
157 _oiOauthToken
150 _oiFields
158 _oiFields
151− _oiAlt
159+ (Just _oiAlt)
153− = clientWithRoute (Proxy :: Proxy OrgunitsInsertAPI)
161+ = clientWithRoute
162+ (Proxy :: Proxy OrgunitsInsertResource)
gogol-admin-directory/gen/Network/Google/Resource/Directory/Orgunits/List.hs+33−23
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Orgunits/Patch.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Orgunits/Update.hs+31−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Delete.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Get.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Insert.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/List.hs+31−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Patch.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Schemas/Update.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/Delete.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/Get.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Tokens/List.hs+31−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/Delete.hs+28−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/Insert.hs+29−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/List.hs+30−22
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Aliases/Watch.hs+30−22
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Delete.hs+32−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Get.hs+39−28
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Insert.hs+32−19
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/List.hs+57−43
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/MakeAdmin.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Patch.hs+31−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Delete.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Get.hs+31−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Patch.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Photos/Update.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Undelete.hs+81−73
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Update.hs+86−71
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/Users/Watch.hs+58−44
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/VerificationCodes/Generate.hs+30−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/VerificationCodes/Invalidate.hs+29−20
This diff is too big to show here.
gogol-admin-directory/gen/Network/Google/Resource/Directory/VerificationCodes/List.hs+29−20
This diff is too big to show here.
gogol-admin-emailmigration/gen/Network/Google/AdminEmailMigration.hs+5−2
This diff is too big to show here.
gogol-admin-emailmigration/gen/Network/Google/AdminEmailMigration/Types.hs+4−1
This diff is too big to show here.
gogol-admin-emailmigration/gen/Network/Google/AdminEmailMigration/Types/Sum.hs+24
This diff is too big to show here.
gogol-admin-emailmigration/gen/Network/Google/Resource/EmailMigration/Mail/Insert.hs+32−20
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/AdminReports.hs+84−7
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/AdminReports/Types.hs+76−1
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/AdminReports/Types/Product.hs+600−6
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/AdminReports/Types/Sum.hs+24
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/Resource/Admin/Channels/Stop.hs+32−20
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/Resource/Reports/Activities/List.hs+37−28
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/Resource/Reports/Activities/Watch.hs+37−28
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/Resource/Reports/CustomerUsageReports/Get.hs+31−23
This diff is too big to show here.
gogol-admin-reports/gen/Network/Google/Resource/Reports/UserUsageReport/Get.hs+34−25
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/AdSenseHost.hs+102−30
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/AdSenseHost/Types.hs+51−1
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/AdSenseHost/Types/Product.hs+379−2
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/AdSenseHost/Types/Sum.hs+73
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adclients/Get.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adclients/List.hs+103−96
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/Delete.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/Get.hs+29−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/GetAdCode.hs+29−21
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/Insert.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/List.hs+123−115
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/Patch.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Adunits/Update.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Get.hs+31−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs+85−78
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/Reports/Generate.hs+37−28
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Adclients/Get.hs+30−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Adclients/List.hs+97−83
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Associationsessions/Start.hs+37−27
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Associationsessions/Verify.hs+29−21
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Customchannels/Delete.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Customchannels/Get.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Customchannels/Insert.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Customchannels/List.hs+29−22
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Customchannels/Patch.hs+28−21
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Customchannels/Update.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Reports/Generate.hs+37−28
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLchannels/Delete.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLchannels/Insert.hs+28−20
This diff is too big to show here.
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLchannels/List.hs+30−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/AdSense.hs+139−45
This diff is too big to show here.
gogol-adsense/gen/Network/Google/AdSense/Types.hs+64−1
This diff is too big to show here.
gogol-adsense/gen/Network/Google/AdSense/Types/Product.hs+529−2
This diff is too big to show here.
gogol-adsense/gen/Network/Google/AdSense/Types/Sum.hs+29
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Adclients/List.hs+99−96
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Adunits/Customchannels/List.hs+32−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Adunits/Get.hs+28−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Adunits/GetAdCode.hs+29−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Adunits/List.hs+123−115
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Alerts/Delete.hs+28−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Alerts/List.hs+96−79
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Customchannels/Adunits/List.hs+31−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Customchannels/Get.hs+27−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Customchannels/List.hs+113−105
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Get.hs+32−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/List.hs+93−86
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Payments/List.hs+28−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Reports/Generate.hs+40−31
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/Generate.hs+33−23
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/List.hs+30−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/Get.hs+28−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/List.hs+29−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/URLchannels/List.hs+29−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Adclients/List.hs+97−83
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Adunits/Customchannels/List.hs+113−105
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Adunits/Get.hs+96−86
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Adunits/GetAdCode.hs+29−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Adunits/List.hs+112−101
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Alerts/Delete.hs+31−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Alerts/List.hs+30−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Customchannels/Adunits/List.hs+30−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Customchannels/Get.hs+28−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Customchannels/List.hs+29−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs+30−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs+30−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Payments/List.hs+31−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Reports/Generate.hs+42−32
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Reports/Saved/Generate.hs+31−23
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Reports/Saved/List.hs+30−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Savedadstyles/Get.hs+28−20
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/Savedadstyles/List.hs+30−22
This diff is too big to show here.
gogol-adsense/gen/Network/Google/Resource/AdSense/URLchannels/List.hs+30−22
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Affiliates.hs+137−13
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Affiliates/Types.hs+119−1
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Affiliates/Types/Product.hs+472−12
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Affiliates/Types/Sum.hs+758
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Advertisers/Get.hs+33−25
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Advertisers/List.hs+44−33
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/CcOffers/List.hs+34−23
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Events/List.hs+60−46
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Links/Get.hs+35−24
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Links/Insert.hs+37−24
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Links/List.hs+58−44
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Publishers/Get.hs+35−25
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Publishers/List.hs+44−33
This diff is too big to show here.
gogol-affiliates/gen/Network/Google/Resource/Gan/Reports/Get.hs+54−43
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Analytics.hs+515−79
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Analytics/Types.hs+361−1
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Analytics/Types/Product.hs+3076−87
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Analytics/Types/Sum.hs+124
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Data/Ga/Get.hs+49−36
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Data/Mcf/Get.hs+45−31
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Data/Realtime/Get.hs+36−26
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountSummaries/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Delete.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Insert.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/AccountUserLinks/Update.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Accounts/List.hs+30−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDataSources/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Get.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Insert.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Patch.hs+30−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomDimensions/Update.hs+30−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Get.hs+27−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Insert.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/List.hs+30−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Patch.hs+30−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/CustomMetrics/Update.hs+30−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Delete.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Get.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Insert.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Patch.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Experiments/Update.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Delete.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Get.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Insert.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/List.hs+29−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Patch.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Filters/Update.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Get.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Insert.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/List.hs+30−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Patch.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Goals/Update.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileFilterLinks/Delete.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileFilterLinks/Get.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileFilterLinks/Insert.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileFilterLinks/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileFilterLinks/Patch.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileFilterLinks/Update.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileUserLinks/Delete.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileUserLinks/Insert.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileUserLinks/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/ProfileUserLinks/Update.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Profiles/Delete.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Profiles/Get.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Profiles/Insert.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Profiles/List.hs+30−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Profiles/Patch.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Profiles/Update.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Segments/List.hs+30−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnsampledReports/Get.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnsampledReports/Insert.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnsampledReports/List.hs+31−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/DeleteUploadData.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/Get.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/List.hs+30−21
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Uploads/UploadData.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Delete.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Get.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Insert.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/List.hs+30−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Patch.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebPropertyAdWordsLinks/Update.hs+30−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Webproperties/Get.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Webproperties/Insert.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Webproperties/List.hs+29−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Webproperties/Patch.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/Webproperties/Update.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebpropertyUserLinks/Delete.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebpropertyUserLinks/Insert.hs+28−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebpropertyUserLinks/List.hs+30−22
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/WebpropertyUserLinks/Update.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Metadata/Columns/List.hs+29−20
This diff is too big to show here.
gogol-analytics/gen/Network/Google/Resource/Analytics/Provisioning/CreateAccountTicket.hs+30−20
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/AppEngineTaskQueue.hs+34−9
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/AppEngineTaskQueue/Types.hs+19−1
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/AppEngineTaskQueue/Types/Product.hs+145
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/AppEngineTaskQueue/Types/Sum.hs+24
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Taskqueues/Get.hs+31−20
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/Delete.hs+32−20
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/Get.hs+30−20
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/Insert.hs+31−20
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/Lease.hs+126−113
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/List.hs+90−82
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/Patch.hs+30−21
This diff is too big to show here.
gogol-appengine-taskqueue/gen/Network/Google/Resource/Taskqueue/Tasks/Update.hs+31−21
This diff is too big to show here.
gogol-appengine/gen/Network/Google/AppEngine.hs+59−12
This diff is too big to show here.
gogol-appengine/gen/Network/Google/AppEngine/Types.hs+37−1
This diff is too big to show here.
gogol-appengine/gen/Network/Google/AppEngine/Types/Product.hs+213−2
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Get.hs+34−19
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Delete.hs+33−18
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Get.hs+34−18
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/List.hs+35−20
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Patch.hs+34−19
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/Create.hs+34−18
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/Delete.hs+34−18
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/Get.hs+34−18
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Modules/Versions/List.hs+37−21
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Operations/Get.hs+33−18
This diff is too big to show here.
gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Operations/List.hs+35−21
This diff is too big to show here.
gogol-apps-activity/gen/Network/Google/AppsActivity.hs+20−2
This diff is too big to show here.
gogol-apps-activity/gen/Network/Google/AppsActivity/Types.hs+19−1
This diff is too big to show here.
gogol-apps-activity/gen/Network/Google/AppsActivity/Types/Product.hs+8−8
This diff is too big to show here.
gogol-apps-activity/gen/Network/Google/AppsActivity/Types/Sum.hs+248
This diff is too big to show here.
gogol-apps-activity/gen/Network/Google/Resource/AppsActivity/Activities/List.hs+41−30
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/AppsCalendar.hs+177−42
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/AppsCalendar/Types.hs+105−1
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/AppsCalendar/Types/Product.hs+667
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/AppsCalendar/Types/Sum.hs+166
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Delete.hs+31−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Get.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Insert.hs+30−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/List.hs+31−22
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Patch.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Update.hs+31−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Watch.hs+31−22
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Delete.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Get.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Insert.hs+29−21
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/List.hs+38−27
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Patch.hs+30−21
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Update.hs+29−21
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/CalendarList/Watch.hs+38−26
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Clear.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Delete.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Get.hs+83−74
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Insert.hs+30−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Patch.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Calendars/Update.hs+29−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Channels/Stop.hs+32−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Colors/Get.hs+76−63
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Delete.hs+30−21
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Get.hs+32−23
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Import.hs+92−88
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Insert.hs+118−104
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Instances.hs+176−161
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/List.hs+58−38
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Move.hs+30−21
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Patch.hs+34−24
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/QuickAdd.hs+31−22
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Update.hs+33−24
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Watch.hs+62−40
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Freebusy/Query.hs+31−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Settings/Get.hs+32−20
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Settings/List.hs+31−21
This diff is too big to show here.
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Settings/Watch.hs+31−21
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/AppsLicensing.hs+18−8
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/AppsLicensing/Types.hs+4−1
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/AppsLicensing/Types/Sum.hs+24
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Delete.hs+29−20
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Get.hs+27−20
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Insert.hs+29−20
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProduct.hs+33−23
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/ListForProductAndSku.hs+31−23
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Patch.hs+28−20
This diff is too big to show here.
gogol-apps-licensing/gen/Network/Google/Resource/Licensing/LicenseAssignments/Update.hs+27−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/AppsReseller.hs+74−30
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/AppsReseller/Types.hs+47−16
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/AppsReseller/Types/Product.hs+323−108
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/AppsReseller/Types/Sum.hs+63
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Get.hs+30−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Insert.hs+30−21
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Patch.hs+29−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Customers/Update.hs+29−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Activate.hs+28−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/ChangePlan.hs+28−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeRenewalSettings.hs+29−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/ChangeSeats.hs+28−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs+33−23
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Get.hs+27−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Insert.hs+28−21
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/List.hs+32−25
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/StartPaidService.hs+30−20
This diff is too big to show here.
gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Suspend.hs+91−81
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/AppsTasks.hs+38−15
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/AppsTasks/Types.hs+11−1
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/AppsTasks/Types/Product.hs+57−2
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/AppsTasks/Types/Sum.hs+24
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasklists/Delete.hs+83−76
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasklists/Get.hs+82−76
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasklists/Insert.hs+77−64
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasklists/List.hs+97−87
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasklists/Patch.hs+86−76
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasklists/Update.hs+83−76
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Clear.hs+32−20
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Delete.hs+96−80
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Get.hs+31−20
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Insert.hs+104−88
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/List.hs+41−29
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Move.hs+31−20
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Patch.hs+32−20
This diff is too big to show here.
gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/Update.hs+96−80
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/BigQuery.hs+115−23
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/BigQuery/Types.hs+75−1
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/BigQuery/Types/Product.hs+597−16
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/BigQuery/Types/Sum.hs+92
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Delete.hs+30−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Get.hs+32−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Insert.hs+30−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/List.hs+33−23
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Patch.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Datasets/Update.hs+30−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Cancel.hs+32−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Get.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/GetQueryResults.hs+33−24
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Insert.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/List.hs+39−28
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/Query.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Projects/List.hs+32−22
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tabledata/InsertAll.hs+29−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tabledata/List.hs+33−23
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Delete.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Get.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Insert.hs+31−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/List.hs+32−22
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Patch.hs+32−20
This diff is too big to show here.
gogol-bigquery/gen/Network/Google/Resource/BigQuery/Tables/Update.hs+31−20
This diff is too big to show here.
gogol-billing/gen/Network/Google/Billing.hs+11−6
This diff is too big to show here.
gogol-billing/gen/Network/Google/Billing/Types.hs+1−1
This diff is too big to show here.
gogol-billing/gen/Network/Google/Resource/Cloudbilling/BillingAccounts/Get.hs+34−18
This diff is too big to show here.
gogol-billing/gen/Network/Google/Resource/Cloudbilling/BillingAccounts/List.hs+34−20
This diff is too big to show here.
gogol-billing/gen/Network/Google/Resource/Cloudbilling/BillingAccounts/Projects/List.hs+36−20
This diff is too big to show here.
gogol-billing/gen/Network/Google/Resource/Cloudbilling/Projects/GetBillingInfo.hs+34−18
This diff is too big to show here.
gogol-billing/gen/Network/Google/Resource/Cloudbilling/Projects/UpdateBillingInfo.hs+34−18
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Blogger.hs+257−38
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Blogger/Types.hs+192−1
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Blogger/Types/Product.hs+910−4
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Blogger/Types/Sum.hs+769−2
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs+29−21
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/Get.hs+33−23
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs+34−23
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs+39−30
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/Approve.hs+30−20
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/Delete.hs+30−20
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/Get.hs+34−22
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/List.hs+42−31
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs+38−28
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs+29−20
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs+28−20
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/PageViews/Get.hs+32−22
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Delete.hs+97−79
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Get.hs+101−86
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Insert.hs+32−20
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/List.hs+39−29
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Patch.hs+114−95
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Publish.hs+95−85
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Revert.hs+96−79
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/Update.hs+113−95
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs+29−21
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs+48−36
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Delete.hs+92−85
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Get.hs+125−121
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs+34−24
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Insert.hs+115−104
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/List.hs+47−37
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Patch.hs+135−131
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Publish.hs+105−95
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Revert.hs+91−85
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Search.hs+37−25
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Update.hs+136−131
This diff is too big to show here.
gogol-blogger/gen/Network/Google/Resource/Blogger/Users/Get.hs+31−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Books.hs+591−51
This diff is too big to show here.
gogol-books/gen/Network/Google/Books/Types.hs+504−1
This diff is too big to show here.
gogol-books/gen/Network/Google/Books/Types/Product.hs+3912−68
This diff is too big to show here.
gogol-books/gen/Network/Google/Books/Types/Sum.hs+713
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Bookshelves/Get.hs+30−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Bookshelves/List.hs+30−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Bookshelves/Volumes/List.hs+31−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Cloudloading/AddBook.hs+32−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Cloudloading/DeleteBook.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Cloudloading/UpdateBook.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Dictionary/ListOfflineMetadata.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Layers/AnnotationData/Get.hs+35−26
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Layers/AnnotationData/List.hs+39−31
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Layers/Get.hs+31−21
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Layers/List.hs+34−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/Get.hs+31−22
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Layers/VolumeAnnotations/List.hs+44−33
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Myconfig/GetUserSettings.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Myconfig/ReleaseDownloadAccess.hs+33−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Myconfig/RequestAccess.hs+39−27
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Myconfig/SyncVolumeLicenses.hs+38−28
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Myconfig/UpdateUserSettings.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Annotations/Delete.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Annotations/Insert.hs+30−22
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Annotations/List.hs+38−30
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Annotations/Summary.hs+31−22
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Annotations/Update.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/AddVolume.hs+36−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/ClearVolumes.hs+30−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/Get.hs+28−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/List.hs+29−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/MoveVolume.hs+32−22
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/RemoveVolume.hs+36−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Bookshelves/Volumes/List.hs+41−29
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Readingpositions/Get.hs+30−22
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Mylibrary/Readingpositions/SetPosition.hs+37−26
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Onboarding/ListCategories.hs+28−20
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Onboarding/ListCategoryVolumes.hs+38−26
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Promooffer/Accept.hs+36−27
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Promooffer/Dismiss.hs+35−26
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Promooffer/Get.hs+36−25
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/Associated/List.hs+39−27
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/Get.hs+37−27
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/List.hs+61−45
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/Mybooks/List.hs+41−29
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/Recommended/List.hs+34−24
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/Recommended/Rate.hs+38−27
This diff is too big to show here.
gogol-books/gen/Network/Google/Resource/Books/Volumes/Useruploaded/List.hs+37−27
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/CivicInfo.hs+35−6
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/CivicInfo/Types.hs+24−1
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/CivicInfo/Types/Product.hs+45
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/CivicInfo/Types/Sum.hs+268
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Divisions/Search.hs+31−21
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Elections/ElectionQuery.hs+30−20
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Elections/VoterInfoQuery.hs+31−23
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs+43−28
This diff is too big to show here.
gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs+42−27
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Classroom.hs+46−24
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Classroom/Types.hs+1−1
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Aliases/Create.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Aliases/Delete.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Aliases/List.hs+34−20
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Create.hs+35−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Delete.hs+34−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Get.hs+35−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/List.hs+38−21
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Patch.hs+35−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/Create.hs+33−19
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/Delete.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/Get.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Students/List.hs+34−20
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Create.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Delete.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Get.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/List.hs+34−20
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Update.hs+35−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Accept.hs+33−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Create.hs+34−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Delete.hs+32−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/Get.hs+34−18
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/Invitations/List.hs+37−22
This diff is too big to show here.
gogol-classroom/gen/Network/Google/Resource/Classroom/UserProfiles/Get.hs+34−18
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/ComputeAutoscaler.hs+55−11
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/ComputeAutoscaler/Types.hs+37−1
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/ComputeAutoscaler/Types/Product.hs+249−4
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/ComputeAutoscaler/Types/Sum.hs+24
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Delete.hs+29−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Get.hs+30−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Insert.hs+29−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/List.hs+33−23
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Patch.hs+29−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Autoscalers/Update.hs+29−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Delete.hs+28−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/ZoneOperations/Get.hs+28−20
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/ZoneOperations/List.hs+30−23
This diff is too big to show here.
gogol-compute-autoscaler/gen/Network/Google/Resource/Autoscaler/Zones/List.hs+33−23
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/ComputeUserAccounts.hs+67−19
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/ComputeUserAccounts/Types.hs+35−1
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/ComputeUserAccounts/Types/Product.hs+198−4
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/ComputeUserAccounts/Types/Sum.hs+131
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/GlobalAccountsOperations/Delete.hs+30−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/GlobalAccountsOperations/Get.hs+29−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/GlobalAccountsOperations/List.hs+33−24
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Groups/AddMember.hs+29−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Groups/Delete.hs+31−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Groups/Get.hs+31−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Groups/Insert.hs+32−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Groups/List.hs+33−24
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Groups/RemoveMember.hs+28−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Linux/GetAuthorizedKeysView.hs+31−22
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Linux/GetLinuxAccountViews.hs+35−25
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Users/AddPublicKey.hs+29−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Users/Delete.hs+32−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Users/Get.hs+31−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Users/Insert.hs+33−20
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Users/List.hs+33−24
This diff is too big to show here.
gogol-compute-useraccounts/gen/Network/Google/Resource/Clouduseraccounts/Users/RemovePublicKey.hs+29−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Compute.hs+841−233
This diff is too big to show here.
gogol-compute/gen/Network/Google/Compute/Types.hs+494−30
This diff is too big to show here.
gogol-compute/gen/Network/Google/Compute/Types/Product.hs+2844−355
This diff is too big to show here.
gogol-compute/gen/Network/Google/Compute/Types/Sum.hs+2351
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Addresses/AggregatedList.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Addresses/Delete.hs+102−88
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Addresses/Get.hs+103−88
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Addresses/Insert.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Addresses/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/AggregatedList.hs+116−97
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Delete.hs+97−93
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Get.hs+98−93
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Insert.hs+92−84
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/List.hs+121−112
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Patch.hs+29−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Autoscalers/Update.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Get.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/GetHealth.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Patch.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/BackendServices/Update.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/DiskTypes/AggregatedList.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/DiskTypes/Get.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/DiskTypes/List.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Disks/AggregatedList.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Disks/CreateSnapshot.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Disks/Delete.hs+32−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Disks/Get.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Disks/Insert.hs+32−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Disks/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Delete.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Get.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Insert.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Patch.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Firewalls/Update.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/AggregatedList.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/Get.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ForwardingRules/SetTarget.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/Get.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/Insert.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalAddresses/List.hs+30−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/Get.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/Insert.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/List.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalForwardingRules/SetTarget.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/AggregatedList.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/Get.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/GlobalOperations/List.hs+30−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Get.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Patch.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Update.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Images/Delete.hs+91−78
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Images/Deprecate.hs+93−80
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Images/Get.hs+98−80
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Images/Insert.hs+88−73
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Images/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/AbandonInstances.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/AggregatedList.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/DeleteInstances.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Get.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Insert.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/List.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/ListManagedInstances.hs+31−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/RecreateInstances.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/Resize.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/SetInstanceTemplate.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroupManagers/SetTargetPools.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/AddInstances.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/AggregatedList.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/Get.hs+100−94
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/ListInstances.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/RemoveInstances.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceGroups/SetNamedPorts.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/Get.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/InstanceTemplates/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/AddAccessConfig.hs+29−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/AggregatedList.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/AttachDisk.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/Delete.hs+96−92
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/DeleteAccessConfig.hs+30−22
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/DetachDisk.hs+28−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/Get.hs+99−92
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/GetSerialPortOutput.hs+31−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/Insert.hs+90−84
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/List.hs+121−112
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/Reset.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetDiskAutoDelete.hs+30−22
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetMetadata.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetScheduling.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/SetTags.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/Start.hs+103−88
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Instances/Stop.hs+99−93
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Licenses/Get.hs+32−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/MachineTypes/AggregatedList.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/MachineTypes/Get.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/MachineTypes/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Networks/Delete.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Networks/Get.hs+32−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Networks/Insert.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Networks/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Projects/Get.hs+32−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Projects/MoveDisk.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Projects/MoveInstance.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Projects/SetCommonInstanceMetadata.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Projects/SetUsageExportBucket.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/RegionOperations/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/RegionOperations/Get.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/RegionOperations/List.hs+30−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Regions/Get.hs+91−85
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Regions/List.hs+34−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Routes/Delete.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Routes/Get.hs+95−80
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Routes/Insert.hs+32−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Routes/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Snapshots/Delete.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Snapshots/Get.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Snapshots/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/Get.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetHTTPProxies/SetURLMap.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/AggregatedList.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/Delete.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/Get.hs+27−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetInstances/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/AddHealthCheck.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/AddInstance.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/AggregatedList.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/Get.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/GetHealth.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/List.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/RemoveHealthCheck.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/RemoveInstance.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetPools/SetBackup.hs+29−21
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/AggregatedList.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/Get.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/Insert.hs+29−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/TargetVPNGateways/List.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Delete.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Get.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Insert.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/List.hs+33−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Patch.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Update.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Validate.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/AggregatedList.hs+32−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Get.hs+30−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Insert.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/List.hs+31−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ZoneOperations/Delete.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ZoneOperations/Get.hs+28−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/ZoneOperations/List.hs+30−23
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Zones/Get.hs+31−20
This diff is too big to show here.
gogol-compute/gen/Network/Google/Resource/Compute/Zones/List.hs+33−23
This diff is too big to show here.
gogol-container/gen/Network/Google/Container.hs+29−9
This diff is too big to show here.
gogol-container/gen/Network/Google/Container/Types.hs+13−1
This diff is too big to show here.
gogol-container/gen/Network/Google/Container/Types/Product.hs+6−6
This diff is too big to show here.
gogol-container/gen/Network/Google/Container/Types/Sum.hs+117
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Clusters/List.hs+29−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Operations/List.hs+29−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Create.hs+29−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Delete.hs+29−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/Get.hs+29−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Clusters/List.hs+30−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Operations/Get.hs+29−20
This diff is too big to show here.
gogol-container/gen/Network/Google/Resource/Container/Projects/Zones/Operations/List.hs+30−20
This diff is too big to show here.
gogol-customsearch/gen/Network/Google/CustomSearch.hs+100−2
This diff is too big to show here.
gogol-customsearch/gen/Network/Google/CustomSearch/Types.hs+99−1
This diff is too big to show here.
gogol-customsearch/gen/Network/Google/CustomSearch/Types/Product.hs+524−6
This diff is too big to show here.
gogol-customsearch/gen/Network/Google/CustomSearch/Types/Sum.hs+547−2
This diff is too big to show here.
gogol-customsearch/gen/Network/Google/Resource/Search/Cse/List.hs+118−77
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Dataflow.hs+113−9
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Dataflow/Types.hs+97−1
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Dataflow/Types/Product.hs+540−14
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Create.hs+34−19
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Get.hs+34−18
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/GetMetrics.hs+34−18
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/List.hs+35−21
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Messages/List.hs+39−23
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/Update.hs+33−18
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/Lease.hs+33−18
This diff is too big to show here.
gogol-dataflow/gen/Network/Google/Resource/Dataflow/Projects/Jobs/WorkItems/ReportStatus.hs+35−18
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Datastore.hs+47−7
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Datastore/Types.hs+35−1
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Datastore/Types/Product.hs+39−18
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Datastore/Types/Sum.hs+311
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/AllocateIds.hs+30−20
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/BeginTransaction.hs+29−20
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Commit.hs+30−20
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Lookup.hs+30−20
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/Rollback.hs+29−20
This diff is too big to show here.
gogol-datastore/gen/Network/Google/Resource/Datastore/Datasets/RunQuery.hs+29−20
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Debugger.hs+21−9
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Debugger/Types.hs+5−1
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Debugger/Types/Product.hs+22
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Controller/Debuggees/Breakpoints/List.hs+35−19
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Controller/Debuggees/Breakpoints/Update.hs+34−18
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Controller/Debuggees/Register.hs+33−18
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Debugger/Debuggees/Breakpoints/Delete.hs+34−18
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Debugger/Debuggees/Breakpoints/Get.hs+34−18
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Debugger/Debuggees/Breakpoints/List.hs+40−23
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Debugger/Debuggees/Breakpoints/Set.hs+35−18
This diff is too big to show here.
gogol-debugger/gen/Network/Google/Resource/Clouddebugger/Debugger/Debuggees/List.hs+34−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/DeploymentManager.hs+71−15
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types.hs+47−1
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types/Product.hs+196−2
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types/Sum.hs+186
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs+29−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Get.hs+30−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Insert.hs+30−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs+33−23
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Patch.hs+45−32
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs+45−32
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Manifests/Get.hs+31−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs+34−23
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Operations/Get.hs+30−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs+33−23
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Resources/Get.hs+31−20
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs+34−23
This diff is too big to show here.
gogol-deploymentmanager/gen/Network/Google/Resource/DeploymentManager/Types/List.hs+34−23
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/DFAReporting.hs+1129−348
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/DFAReporting/Types.hs+744−102
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Product.hs+2006−871
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Sum.hs+7381
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountActiveAdSummaries/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/List.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissions/Get.hs+92−86
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountPermissions/List.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProfiles/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProfiles/Insert.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProfiles/List.hs+47−33
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProfiles/Patch.hs+30−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AccountUserProfiles/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/Get.hs+95−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/List.hs+45−31
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/Patch.hs+94−79
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Accounts/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Get.hs+96−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Insert.hs+85−77
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/List.hs+351−319
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Patch.hs+94−86
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/Update.hs+84−74
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Get.hs+92−86
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/List.hs+42−30
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Patch.hs+28−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Get.hs+90−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Insert.hs+85−74
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/List.hs+210−192
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Patch.hs+89−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Advertisers/Update.hs+85−77
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Browsers/List.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/Insert.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/List.hs+38−25
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Get.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Insert.hs+30−22
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/List.hs+212−193
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Patch.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Campaigns/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ChangeLogs/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ChangeLogs/List.hs+46−33
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Cities/List.hs+120−116
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/List.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/List.hs+42−30
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Patch.hs+28−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/ContentCategories/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Countries/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Countries/List.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/List.hs+43−30
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Patch.hs+29−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/List.hs+43−31
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Patch.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeFields/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/List.hs+44−32
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Patch.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Get.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Insert.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs+61−41
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Patch.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DimensionValues/Query.hs+30−22
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/List.hs+45−31
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySites/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySites/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/DirectorySites/List.hs+53−37
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Delete.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Insert.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs+52−36
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Patch.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Files/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Files/List.hs+45−33
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Generatetag.hs+31−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Get.hs+89−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/List.hs+57−40
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Patch.hs+29−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Delete.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Insert.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/List.hs+51−35
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Patch.hs+31−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Update.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/List.hs+31−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Patch.hs+30−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/InventoryItems/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/InventoryItems/List.hs+46−32
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/List.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Patch.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/LandingPages/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Metros/List.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/MobileCarriers/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/MobileCarriers/List.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/List.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystems/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OperatingSystems/List.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OrderDocuments/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/OrderDocuments/List.hs+46−33
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Orders/Get.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Orders/List.hs+45−31
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Get.hs+92−86
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs+76−47
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Patch.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Delete.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/List.hs+42−30
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Patch.hs+29−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Update.hs+27−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs+36−25
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Get.hs+91−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/List.hs+329−284
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Patch.hs+90−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlatformTypes/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlatformTypes/List.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PostalCodes/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PostalCodes/List.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Projects/Get.hs+95−86
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Projects/List.hs+152−142
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Regions/List.hs+86−72
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Patch.hs+30−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Update.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Get.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/List.hs+45−32
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Patch.hs+28−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Update.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/CompatibleFields/Query.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Delete.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Files/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Files/List.hs+41−29
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Insert.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/List.hs+131−118
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Patch.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Run.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Reports/Update.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Insert.hs+31−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/List.hs+241−219
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Patch.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sites/Update.hs+88−74
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sizes/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sizes/Insert.hs+88−72
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Sizes/List.hs+118−112
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Subaccounts/Get.hs+90−86
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Subaccounts/Insert.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Subaccounts/List.hs+140−128
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Subaccounts/Patch.hs+28−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Subaccounts/Update.hs+82−77
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/List.hs+46−31
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserProfiles/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserProfiles/List.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/Get.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/List.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/Get.hs+96−84
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/List.hs+30−21
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Delete.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Get.hs+30−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Insert.hs+29−20
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/List.hs+46−32
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Patch.hs+93−79
This diff is too big to show here.
gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/UserRoles/Update.hs+29−20
This diff is too big to show here.
gogol-discovery/gen/Network/Google/Discovery.hs+134−3
This diff is too big to show here.
gogol-discovery/gen/Network/Google/Discovery/Types.hs+131−1
This diff is too big to show here.
gogol-discovery/gen/Network/Google/Discovery/Types/Product.hs+928−2
This diff is too big to show here.
gogol-discovery/gen/Network/Google/Discovery/Types/Sum.hs+24
This diff is too big to show here.
gogol-discovery/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs+32−20
This diff is too big to show here.
gogol-discovery/gen/Network/Google/Resource/Discovery/APIs/List.hs+31−21
This diff is too big to show here.
gogol-dns/gen/Network/Google/DNS.hs+23−11
This diff is too big to show here.
gogol-dns/gen/Network/Google/DNS/Types.hs+7−1
This diff is too big to show here.
gogol-dns/gen/Network/Google/DNS/Types/Sum.hs+47
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/Changes/Create.hs+31−20
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/Changes/Get.hs+31−20
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/Changes/List.hs+39−27
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/Create.hs+28−20
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/Delete.hs+28−20
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/Get.hs+29−20
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/ManagedZones/List.hs+31−23
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/Projects/Get.hs+32−20
This diff is too big to show here.
gogol-dns/gen/Network/Google/Resource/DNS/ResourceRecordSets/List.hs+33−24
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids.hs+60−9
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids/Types.hs+46−1
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids/Types/Product.hs+28−28
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids/Types/Sum.hs+2272
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Lineitems/Downloadlineitems.hs+29−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Lineitems/Uploadlineitems.hs+29−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Queries/Createquery.hs+29−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Queries/Deletequery.hs+29−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Queries/Getquery.hs+30−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Queries/Listqueries.hs+30−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Queries/Runquery.hs+31−20
This diff is too big to show here.
gogol-doubleclick-bids/gen/Network/Google/Resource/Doubleclickbidmanager/Reports/Listreports.hs+30−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch.hs+60−11
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch/Types.hs+42−1
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch/Types/Product.hs+347−6
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch/Types/Sum.hs+24
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Get.hs+38−28
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Insert.hs+29−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Patch.hs+36−27
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/Update.hs+29−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Conversion/UpdateAvailability.hs+30−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/Generate.hs+30−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/Get.hs+30−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/GetFile.hs+29−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/Reports/Request.hs+30−20
This diff is too big to show here.
gogol-doubleclick-search/gen/Network/Google/Resource/DoubleClickSearch/SavedColumns/List.hs+29−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Drive.hs+281−70
This diff is too big to show here.
gogol-drive/gen/Network/Google/Drive/Types.hs+163−1
This diff is too big to show here.
gogol-drive/gen/Network/Google/Drive/Types/Product.hs+1122−14
This diff is too big to show here.
gogol-drive/gen/Network/Google/Drive/Types/Sum.hs+310
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/About/Get.hs+104−95
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Apps/Get.hs+82−72
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Apps/List.hs+32−23
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Changes/Get.hs+87−74
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Changes/List.hs+137−122
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Changes/Watch.hs+35−26
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Channels/Stop.hs+32−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Children/Delete.hs+94−82
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Children/Get.hs+31−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Children/Insert.hs+82−74
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Children/List.hs+118−106
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Comments/Delete.hs+90−84
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Comments/Get.hs+101−94
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Comments/Insert.hs+82−76
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Comments/List.hs+125−115
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Comments/Patch.hs+31−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Comments/Update.hs+30−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Copy.hs+39−29
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Delete.hs+33−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/EmptyTrash.hs+31−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/GenerateIds.hs+29−21
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Get.hs+34−25
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Insert.hs+41−30
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/List.hs+41−30
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Patch.hs+47−34
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Touch.hs+84−71
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Trash.hs+88−72
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Untrash.hs+81−72
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Update.hs+211−203
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Files/Watch.hs+35−25
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Parents/Delete.hs+95−80
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Parents/Get.hs+96−80
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Parents/Insert.hs+87−72
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Parents/List.hs+88−72
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Delete.hs+94−85
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Get.hs+30−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/GetIdForEmail.hs+29−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Insert.hs+100−96
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/List.hs+30−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Patch.hs+103−91
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Permissions/Update.hs+103−91
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Properties/Delete.hs+99−95
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Properties/Get.hs+101−95
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Properties/Insert.hs+29−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Properties/List.hs+82−78
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Properties/Patch.hs+100−96
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Properties/Update.hs+99−95
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Realtime/Get.hs+96−79
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Realtime/Update.hs+90−86
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Replies/Delete.hs+103−88
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Replies/Get.hs+31−21
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Replies/Insert.hs+31−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Replies/List.hs+125−108
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Replies/Patch.hs+31−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Replies/Update.hs+103−88
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Delete.hs+90−85
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Get.hs+96−85
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Revisions/List.hs+83−76
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Patch.hs+30−20
This diff is too big to show here.
gogol-drive/gen/Network/Google/Resource/Drive/Revisions/Update.hs+90−85
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Fitness.hs+42−14
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Fitness/Types.hs+16−1
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Fitness/Types/Product.hs+8−8
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Fitness/Types/Sum.hs+178
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Create.hs+29−20
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Delete.hs+31−22
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Get.hs+30−21
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Datasets/Patch.hs+30−21
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Delete.hs+28−20
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Get.hs+29−20
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/List.hs+29−21
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Patch.hs+28−20
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/DataSources/Update.hs+29−20
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Dataset/Aggregate.hs+29−20
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Sessions/Delete.hs+28−21
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Sessions/List.hs+33−24
This diff is too big to show here.
gogol-fitness/gen/Network/Google/Resource/Fitness/Users/Sessions/Update.hs+28−21
This diff is too big to show here.
gogol-fonts/gen/Network/Google/Fonts.hs+12−2
This diff is too big to show here.
gogol-fonts/gen/Network/Google/Fonts/Types.hs+11−1
This diff is too big to show here.
gogol-fonts/gen/Network/Google/Fonts/Types/Product.hs+22
This diff is too big to show here.
gogol-fonts/gen/Network/Google/Fonts/Types/Sum.hs+68
This diff is too big to show here.
gogol-fonts/gen/Network/Google/Resource/Webfonts/Webfonts/List.hs+33−22
This diff is too big to show here.
gogol-freebasesearch/gen/Network/Google/FreebaseSearch.hs+40−3
This diff is too big to show here.
gogol-freebasesearch/gen/Network/Google/FreebaseSearch/Types.hs+38−1
This diff is too big to show here.
gogol-freebasesearch/gen/Network/Google/FreebaseSearch/Types/Product.hs+147−2
This diff is too big to show here.
gogol-freebasesearch/gen/Network/Google/FreebaseSearch/Types/Sum.hs+210
This diff is too big to show here.
gogol-freebasesearch/gen/Network/Google/Method/Freebase/Reconcile.hs+35−25
This diff is too big to show here.
gogol-freebasesearch/gen/Network/Google/Method/Freebase/Search.hs+83−56
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/FusionTables.hs+93−41
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/FusionTables/Types.hs+29−7
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/FusionTables/Types/Product.hs+202−45
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/FusionTables/Types/Sum.hs+29
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Delete.hs+31−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Get.hs+31−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Insert.hs+31−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/List.hs+32−22
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Patch.hs+32−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Column/Update.hs+31−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Query/Sql.hs+31−21
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Query/SqlGet.hs+33−21
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Delete.hs+32−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Get.hs+30−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Insert.hs+32−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/List.hs+32−22
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Patch.hs+31−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Style/Update.hs+32−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Copy.hs+31−21
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Delete.hs+85−78
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Get.hs+83−76
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs+33−24
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs+31−22
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Insert.hs+80−67
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/List.hs+97−87
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Patch.hs+30−21
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs+32−24
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Table/Update.hs+94−87
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Task/Delete.hs+90−80
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Task/Get.hs+31−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Task/List.hs+32−23
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Delete.hs+30−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Get.hs+98−86
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Insert.hs+30−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/List.hs+105−89
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Patch.hs+30−20
This diff is too big to show here.
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Template/Update.hs+96−82
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/GamesAppState.hs+13−6
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/GamesAppState/Types.hs+4−1
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/GamesAppState/Types/Sum.hs+24
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/Resource/Appstate/States/Clear.hs+31−21
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/Resource/Appstate/States/Delete.hs+30−20
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/Resource/Appstate/States/Get.hs+30−20
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/Resource/Appstate/States/List.hs+29−20
This diff is too big to show here.
gogol-games-appstate/gen/Network/Google/Resource/Appstate/States/Update.hs+29−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/GamesConfiguration.hs+32−15
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/GamesConfiguration/Types.hs+7−1
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/GamesConfiguration/Types/Sum.hs+53
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Delete.hs+30−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Get.hs+30−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Insert.hs+29−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/List.hs+31−22
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Patch.hs+30−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/AchievementConfigurations/Update.hs+30−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/ImageConfigurations/Upload.hs+35−24
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Delete.hs+29−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Get.hs+29−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Insert.hs+29−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/List.hs+31−22
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Patch.hs+29−20
This diff is too big to show here.
gogol-games-configuration/gen/Network/Google/Resource/GamesConfiguration/LeaderboardConfigurations/Update.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/GamesManagement.hs+63−32
This diff is too big to show here.
gogol-games-management/gen/Network/Google/GamesManagement/Types.hs+10−1
This diff is too big to show here.
gogol-games-management/gen/Network/Google/GamesManagement/Types/Product.hs+50
This diff is too big to show here.
gogol-games-management/gen/Network/Google/GamesManagement/Types/Sum.hs+24
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/Reset.hs+30−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetAll.hs+30−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetAllForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Achievements/ResetMultipleForAllPlayers.hs+28−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Applications/ListHidden.hs+30−22
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/Reset.hs+33−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetAll.hs+31−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetAllForAllPlayers.hs+28−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Events/ResetMultipleForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Players/Hide.hs+31−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Players/Unhide.hs+30−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/Reset.hs+33−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetAll.hs+31−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetAllForAllPlayers.hs+28−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Quests/ResetMultipleForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Rooms/Reset.hs+32−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Rooms/ResetForAllPlayers.hs+30−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/Reset.hs+32−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetAll.hs+31−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetAllForAllPlayers.hs+28−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetForAllPlayers.hs+30−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/Scores/ResetMultipleForAllPlayers.hs+29−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/TurnBasedMatches/Reset.hs+30−20
This diff is too big to show here.
gogol-games-management/gen/Network/Google/Resource/GamesManagement/TurnBasedMatches/ResetForAllPlayers.hs+28−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Games.hs+148−65
This diff is too big to show here.
gogol-games/gen/Network/Google/Games/Types.hs+46−1
This diff is too big to show here.
gogol-games/gen/Network/Google/Games/Types/Product.hs+102
This diff is too big to show here.
gogol-games/gen/Network/Google/Games/Types/Sum.hs+355
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/AchievementDefinitions/List.hs+32−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Achievements/Increment.hs+29−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Achievements/List.hs+35−26
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Achievements/Reveal.hs+30−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Achievements/SetStepsAtLeast.hs+29−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Achievements/Unlock.hs+30−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Achievements/UpdateMultiple.hs+29−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Applications/Get.hs+34−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Applications/Played.hs+30−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Events/ListByPlayer.hs+32−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Events/ListDefinitions.hs+32−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Events/Record.hs+32−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Leaderboards/Get.hs+29−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Leaderboards/List.hs+32−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Metagame/GetMetagameConfig.hs+29−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Metagame/ListCategoriesByPlayer.hs+39−27
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Players/Get.hs+31−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Players/List.hs+38−27
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Pushtokens/Remove.hs+30−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Pushtokens/Update.hs+29−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/QuestMilestones/Claim.hs+28−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Quests/Accept.hs+31−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Quests/List.hs+34−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Revisions/Check.hs+86−76
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/Create.hs+88−73
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/Decline.hs+31−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/Dismiss.hs+88−76
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/Get.hs+30−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/Join.hs+31−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/Leave.hs+91−84
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/List.hs+100−91
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Rooms/ReportStatus.hs+29−20
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Scores/Get.hs+143−134
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Scores/List.hs+137−120
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Scores/ListWindow.hs+43−33
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Scores/Submit.hs+110−104
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Scores/SubmitMultiple.hs+30−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Snapshots/Get.hs+96−81
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/Snapshots/List.hs+34−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Cancel.hs+88−78
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Create.hs+85−79
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Decline.hs+87−87
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Dismiss.hs+88−71
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Finish.hs+29−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Get.hs+30−22
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Join.hs+29−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Leave.hs+96−85
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/LeaveTurn.hs+31−23
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/List.hs+32−24
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Rematch.hs+30−21
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/Sync.hs+32−24
This diff is too big to show here.
gogol-games/gen/Network/Google/Resource/Games/TurnBasedMatches/TakeTurn.hs+29−21
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Genomics.hs+200−70
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Genomics/Types.hs+82−1
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Genomics/Types/Product.hs+213−28
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Genomics/Types/Sum.hs+637
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/AnnotationSets/Create.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/AnnotationSets/Delete.hs+28−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/AnnotationSets/Get.hs+27−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/AnnotationSets/Patch.hs+27−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/AnnotationSets/Search.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/AnnotationSets/Update.hs+27−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/BatchCreate.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/Create.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/Delete.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/Get.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/Patch.hs+28−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/Search.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Annotations/Update.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Create.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Delete.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Get.hs+32−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Patch.hs+31−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Search.hs+31−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Callsets/Update.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Create.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Delete.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Get.hs+32−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/List.hs+33−23
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Patch.hs+31−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Undelete.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Datasets/Update.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Experimental/Jobs/Create.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Jobs/Cancel.hs+32−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Jobs/Get.hs+31−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Jobs/Search.hs+33−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Align.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Call.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Coveragebuckets/List.hs+36−26
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Delete.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Export.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Get.hs+83−78
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Import.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Patch.hs+28−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Search.hs+78−64
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Readgroupsets/Update.hs+28−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Reads/Search.hs+78−65
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/References/Bases/List.hs+32−24
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/References/Get.hs+88−75
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/References/Search.hs+78−65
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Referencesets/Get.hs+82−78
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Referencesets/Search.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Create.hs+78−65
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Delete.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Get.hs+88−73
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Search.hs+31−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variants/Update.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Create.hs+74−64
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Delete.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Export.hs+30−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Get.hs+85−78
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/ImportVariants.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/MergeVariants.hs+29−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Patch.hs+28−20
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Search.hs+73−68
This diff is too big to show here.
gogol-genomics/gen/Network/Google/Resource/Genomics/Variantsets/Update.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Gmail.hs+94−33
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Gmail/Types.hs+31−1
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Gmail/Types/Product.hs+8−8
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Gmail/Types/Sum.hs+300
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs+28−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs+32−23
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs+31−22
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs+30−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/GetProfile.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/History/List.hs+32−24
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs+28−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs+30−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs+30−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs+32−25
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs+37−27
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs+34−25
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs+34−25
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs+28−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Stop.hs+32−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs+33−25
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs+34−25
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs+29−20
This diff is too big to show here.
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Watch.hs+31−20
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/GroupsMigration.hs+5−2
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/GroupsMigration/Types.hs+4−1
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/GroupsMigration/Types/Sum.hs+24
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/GroupsSettings.hs+9−4
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/GroupsSettings/Types.hs+4−1
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/GroupsSettings/Types/Sum.hs+29
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/Resource/GroupsMigration/Archive/Insert.hs+31−20
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/Resource/GroupsSettings/Groups/Get.hs+31−20
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/Resource/GroupsSettings/Groups/Patch.hs+32−20
This diff is too big to show here.
gogol-groups-migration/gen/Network/Google/Resource/GroupsSettings/Groups/Update.hs+31−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit.hs+49−13
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types.hs+25−1
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types/Product.hs+190−6
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types/Sum.hs+24
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/CreateAuthURI.hs+30−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/DeleteAccount.hs+78−68
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/DownloadAccount.hs+77−68
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/GetAccountInfo.hs+29−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/GetOobConfirmationCode.hs+29−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/GetPublicKeys.hs+30−21
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/GetRecaptchaParam.hs+30−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/ResetPassword.hs+30−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/SetAccountInfo.hs+29−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/UploadAccount.hs+30−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/VerifyAssertion.hs+29−20
This diff is too big to show here.
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/Relyingparty/VerifyPassword.hs+29−20
This diff is too big to show here.
gogol-latencytest/gen/Network/Google/LatencyTest.hs+8−3
This diff is too big to show here.
gogol-latencytest/gen/Network/Google/LatencyTest/Types.hs+4−1
This diff is too big to show here.
gogol-latencytest/gen/Network/Google/LatencyTest/Types/Sum.hs+24
This diff is too big to show here.
gogol-latencytest/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updateaggregatedstats.hs+74−64
This diff is too big to show here.
gogol-latencytest/gen/Network/Google/Resource/Cloudlatencytest/Statscollection/Updatestats.hs+72−65
This diff is too big to show here.
gogol-logging/gen/Network/Google/Logging.hs+61−21
This diff is too big to show here.
gogol-logging/gen/Network/Google/Logging/Types.hs+21−1
This diff is too big to show here.
gogol-logging/gen/Network/Google/Logging/Types/Product.hs+125−2
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Indexes/List.hs+38−22
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/List.hs+34−20
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Create.hs+35−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Delete.hs+35−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Get.hs+34−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/List.hs+36−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/LogServices/Sinks/Update.hs+35−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Delete.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Entries/Write.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/List.hs+36−22
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Create.hs+34−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Delete.hs+34−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Get.hs+34−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/List.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Logs/Sinks/Update.hs+34−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Create.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Delete.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Get.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/List.hs+33−18
This diff is too big to show here.
gogol-logging/gen/Network/Google/Resource/Logging/Projects/Sinks/Update.hs+33−18
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/MapsCoordinate.hs+32−15
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/MapsCoordinate/Types.hs+10−1
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/MapsCoordinate/Types/Sum.hs+112
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs+29−20
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Get.hs+31−20
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs+40−28
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/List.hs+34−24
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs+43−32
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Jobs/Update.hs+43−31
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Location/List.hs+34−23
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Schedule/Get.hs+32−20
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs+35−24
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Schedule/Update.hs+33−23
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Team/List.hs+31−23
This diff is too big to show here.
gogol-maps-coordinate/gen/Network/Google/Resource/Coordinate/Worker/List.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/MapEngine.hs+374−137
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/MapEngine/Types.hs+221−58
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/MapEngine/Types/Product.hs+537−467
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/MapEngine/Types/Sum.hs+1660
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Assets/Get.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Assets/List.hs+45−34
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Assets/Parents/List.hs+103−94
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Assets/Permissions/List.hs+85−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/CancelProcessing.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Create.hs+31−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Delete.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Get.hs+33−22
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/GetPublished.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/List.hs+49−36
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/ListPublished.hs+32−23
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Parents/List.hs+106−94
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Patch.hs+88−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Permissions/BatchDelete.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Permissions/BatchUpdate.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Permissions/List.hs+85−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Process.hs+31−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Publish.hs+89−86
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Layers/Unpublish.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Create.hs+31−19
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Delete.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Get.hs+32−22
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/GetPublished.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/List.hs+201−183
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/ListPublished.hs+32−23
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Patch.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Permissions/BatchDelete.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Permissions/BatchUpdate.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Permissions/List.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Publish.hs+90−84
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Maps/Unpublish.hs+31−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Projects/Icons/Create.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Projects/Icons/Get.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Projects/Icons/List.hs+30−22
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Projects/List.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/CancelProcessing.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Create.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Delete.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Get.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/List.hs+49−36
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Parents/List.hs+32−22
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Patch.hs+84−77
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Permissions/BatchDelete.hs+31−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Permissions/BatchUpdate.hs+31−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Permissions/List.hs+31−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Process.hs+86−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Rasters/BatchDelete.hs+30−21
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Rasters/BatchInsert.hs+30−21
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/RasterCollections/Rasters/List.hs+44−33
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Delete.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Files/Insert.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Get.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/List.hs+50−36
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Parents/List.hs+103−94
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Patch.hs+82−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Permissions/BatchDelete.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Permissions/BatchUpdate.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Permissions/List.hs+85−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Process.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Rasters/Upload.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Create.hs+31−19
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Delete.hs+32−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Features/BatchDelete.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Features/BatchInsert.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Features/BatchPatch.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Features/Get.hs+34−23
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Features/List.hs+40−30
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Files/Insert.hs+29−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Get.hs+33−22
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/List.hs+49−36
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Parents/List.hs+103−94
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Patch.hs+85−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Permissions/BatchDelete.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Permissions/BatchUpdate.hs+30−20
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Permissions/List.hs+85−75
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Process.hs+81−72
This diff is too big to show here.
gogol-maps-engine/gen/Network/Google/Resource/Mapsengine/Tables/Upload.hs+32−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Mirror.hs+53−28
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Mirror/Types.hs+7−1
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Mirror/Types/Sum.hs+55
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Accounts/Insert.hs+29−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Delete.hs+31−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Get.hs+32−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Insert.hs+30−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/List.hs+32−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Patch.hs+31−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Contacts/Update.hs+30−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Locations/Get.hs+31−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Locations/List.hs+32−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Settings/Get.hs+32−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/Delete.hs+29−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/Insert.hs+29−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/List.hs+29−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Subscriptions/Update.hs+29−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Delete.hs+28−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Get.hs+28−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/Insert.hs+28−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Attachments/List.hs+29−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Delete.hs+31−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Get.hs+32−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Insert.hs+30−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/List.hs+38−28
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Patch.hs+31−20
This diff is too big to show here.
gogol-mirror/gen/Network/Google/Resource/Mirror/Timeline/Update.hs+30−20
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Monitoring.hs+29−8
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Monitoring/Types.hs+18−1
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Monitoring/Types/Product.hs+44
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Monitoring/Types/Sum.hs+98
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Resource/Cloudmonitoring/MetricDescriptors/Create.hs+28−20
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Resource/Cloudmonitoring/MetricDescriptors/Delete.hs+28−20
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Resource/Cloudmonitoring/MetricDescriptors/List.hs+31−23
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Resource/Cloudmonitoring/Timeseries/List.hs+41−29
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Resource/Cloudmonitoring/Timeseries/Write.hs+30−20
This diff is too big to show here.
gogol-monitoring/gen/Network/Google/Resource/Cloudmonitoring/TimeseriesDescriptors/List.hs+41−29
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/Method/OAuth2/GetCertForOpenIdConnect.hs+30−20
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/Method/OAuth2/Tokeninfo.hs+32−22
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/OAuth2.hs+20−6
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/OAuth2/Types.hs+14−1
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/OAuth2/Types/Product.hs+77−2
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/OAuth2/Types/Sum.hs+24
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/Resource/OAuth2/Userinfo/Get.hs+33−20
This diff is too big to show here.
gogol-oauth2/gen/Network/Google/Resource/OAuth2/Userinfo/V2/Me/Get.hs+31−20
This diff is too big to show here.
gogol-pagespeed/gen/Network/Google/PageSpeed.hs+78−2
This diff is too big to show here.
gogol-pagespeed/gen/Network/Google/PageSpeed/Types.hs+77−1
This diff is too big to show here.
gogol-pagespeed/gen/Network/Google/PageSpeed/Types/Product.hs+633−2
This diff is too big to show here.
gogol-pagespeed/gen/Network/Google/PageSpeed/Types/Sum.hs+53
This diff is too big to show here.
gogol-pagespeed/gen/Network/Google/Resource/Pagespeedonline/Pagespeedapi/Runpagespeed.hs+37−26
This diff is too big to show here.
gogol-partners/gen/Network/Google/Partners.hs+15−8
This diff is too big to show here.
gogol-partners/gen/Network/Google/Partners/Types.hs+5−1
This diff is too big to show here.
gogol-partners/gen/Network/Google/Partners/Types/Product.hs+22
This diff is too big to show here.
gogol-partners/gen/Network/Google/Resource/Partners/ClientMessages/Log.hs+32−18
This diff is too big to show here.
gogol-partners/gen/Network/Google/Resource/Partners/Companies/Get.hs+65−38
This diff is too big to show here.
gogol-partners/gen/Network/Google/Resource/Partners/Companies/Leads/Create.hs+33−18
This diff is too big to show here.
gogol-partners/gen/Network/Google/Resource/Partners/Companies/List.hs+108−57
This diff is too big to show here.
gogol-partners/gen/Network/Google/Resource/Partners/UserEvents/Log.hs+35−18
This diff is too big to show here.
gogol-partners/gen/Network/Google/Resource/Partners/UserStates/List.hs+55−35
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/PlayDeveloper.hs+157−54
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/PlayDeveloper/Types.hs+54−1
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/PlayDeveloper/Types/Product.hs+43
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/PlayDeveloper/Types/Sum.hs+551
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apklistings/Delete.hs+112−104
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apklistings/Deleteall.hs+105−95
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apklistings/Get.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apklistings/List.hs+106−95
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apklistings/Patch.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apklistings/Update.hs+113−103
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apks/Addexternallyhosted.hs+30−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apks/List.hs+97−87
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Apks/Upload.hs+97−87
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Commit.hs+33−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Delete.hs+33−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Details/Get.hs+30−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Details/Patch.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Details/Update.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Expansionfiles/Get.hs+34−24
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Expansionfiles/Patch.hs+35−24
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Expansionfiles/Update.hs+109−106
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Expansionfiles/Upload.hs+35−24
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Get.hs+30−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Images/Delete.hs+123−104
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Images/Deleteall.hs+117−104
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Images/List.hs+36−24
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Images/Upload.hs+35−24
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Insert.hs+32−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Listings/Delete.hs+103−95
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Listings/Deleteall.hs+95−86
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Listings/Get.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Listings/List.hs+30−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Listings/Patch.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Listings/Update.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Testers/Get.hs+34−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Testers/Patch.hs+34−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Testers/Update.hs+34−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Tracks/Get.hs+34−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Tracks/List.hs+31−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Tracks/Patch.hs+32−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Tracks/Update.hs+34−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Edits/Validate.hs+31−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Entitlements/List.hs+33−24
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/Batch.hs+30−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/Delete.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/Get.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/Insert.hs+28−21
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/List.hs+32−23
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/Patch.hs+28−21
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Inappproducts/Update.hs+28−21
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Purchases/Products/Get.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Purchases/Subscriptions/Cancel.hs+31−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Purchases/Subscriptions/Defer.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Purchases/Subscriptions/Get.hs+29−20
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Purchases/Subscriptions/Refund.hs+99−94
This diff is too big to show here.
gogol-play-developer/gen/Network/Google/Resource/Androidpublisher/Purchases/Subscriptions/Revoke.hs+105−88
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/PlayEnterprise.hs+101−58
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/PlayEnterprise/Types.hs+4−1
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/PlayEnterprise/Types/Sum.hs+24
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collections/Delete.hs+93−87
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collections/Get.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collections/Insert.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collections/List.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collections/Patch.hs+28−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collections/Update.hs+93−87
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collectionviewers/Delete.hs+105−91
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collectionviewers/Get.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collectionviewers/List.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collectionviewers/Patch.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Collectionviewers/Update.hs+105−91
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Devices/Get.hs+31−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Devices/GetState.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Devices/List.hs+33−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Devices/SetState.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/Delete.hs+87−75
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/Enroll.hs+28−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/Get.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/Insert.hs+28−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/List.hs+87−74
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/SendTestPushNotification.hs+29−21
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/SetAccount.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Enterprises/Unenroll.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Entitlements/Delete.hs+100−95
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Entitlements/Get.hs+98−95
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Entitlements/List.hs+91−81
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Entitlements/Patch.hs+29−21
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Entitlements/Update.hs+112−103
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Grouplicenses/Get.hs+28−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Grouplicenses/List.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Grouplicenseusers/List.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Installs/Delete.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Installs/Get.hs+32−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Installs/List.hs+32−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Installs/Patch.hs+31−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Installs/Update.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Permissions/Get.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Products/Approve.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Products/GenerateApprovalURL.hs+29−21
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Products/Get.hs+31−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Products/GetAppRestrictionsSchema.hs+30−21
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Products/GetPermissions.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Products/UpdatePermissions.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Users/GenerateToken.hs+29−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Users/Get.hs+31−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Users/GetAvailableProductSet.hs+28−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Users/List.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Users/RevokeToken.hs+30−20
This diff is too big to show here.
gogol-play-enterprise/gen/Network/Google/Resource/Androidenterprise/Users/SetAvailableProductSet.hs+28−20
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/PlayMoviesPartner.hs+15−8
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/PlayMoviesPartner/Types.hs+1−1
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Avails/List.hs+39−24
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/ExperienceLocales/Get.hs+35−18
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/ExperienceLocales/List.hs+41−24
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Orders/Get.hs+33−18
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Orders/List.hs+38−23
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/StoreInfos/Country/Get.hs+35−18
This diff is too big to show here.
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/StoreInfos/List.hs+40−25
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/PlusDomains.hs+367−43
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/PlusDomains/Types.hs+329−21
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Product.hs+2525−149
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Sum.hs+188
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Activities/Get.hs+30−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Activities/Insert.hs+29−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Activities/List.hs+110−101
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Audiences/List.hs+100−89
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/AddPeople.hs+28−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Get.hs+84−76
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Insert.hs+87−71
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/List.hs+101−96
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Patch.hs+31−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Remove.hs+31−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/RemovePeople.hs+28−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Circles/Update.hs+31−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Comments/Get.hs+83−73
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Comments/Insert.hs+29−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Comments/List.hs+117−101
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/Media/Insert.hs+35−23
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/Get.hs+31−20
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/List.hs+40−29
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/ListByActivity.hs+36−26
This diff is too big to show here.
gogol-plus-domains/gen/Network/Google/Resource/PlusDomains/People/ListByCircle.hs+30−22
This diff is too big to show here.
gogol-plus/gen/Network/Google/Plus.hs+322−32
This diff is too big to show here.
gogol-plus/gen/Network/Google/Plus/Types.hs+302−21
This diff is too big to show here.
gogol-plus/gen/Network/Google/Plus/Types/Product.hs+2261−142
This diff is too big to show here.
gogol-plus/gen/Network/Google/Plus/Types/Sum.hs+245
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Activities/Get.hs+30−20
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Activities/List.hs+34−26
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Activities/Search.hs+36−28
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Comments/Get.hs+32−20
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Comments/List.hs+35−26
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Moments/Insert.hs+34−24
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/Moments/List.hs+38−28
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/People/Get.hs+31−20
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/People/List.hs+39−29
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/People/ListByActivity.hs+36−26
This diff is too big to show here.
gogol-plus/gen/Network/Google/Resource/Plus/People/Search.hs+34−24
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Prediction.hs+127−9
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Prediction/Types.hs+111−1
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Prediction/Types/Product.hs+892−10
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Prediction/Types/Sum.hs+24
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Hostedmodels/Predict.hs+29−20
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/Analyze.hs+30−20
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/Delete.hs+29−20
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/Get.hs+29−20
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/Insert.hs+29−20
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/List.hs+30−21
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/Predict.hs+30−20
This diff is too big to show here.
gogol-prediction/gen/Network/Google/Resource/Prediction/Trainedmodels/Update.hs+29−20
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/ProximityBeacon.hs+32−15
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/ProximityBeacon/Types.hs+5−1
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/ProximityBeacon/Types/Product.hs+22
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beaconinfo/Getforobserved.hs+33−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Activate.hs+33−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/BatchDelete.hs+35−19
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/Create.hs+33−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/Delete.hs+32−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Attachments/List.hs+33−19
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Deactivate.hs+142−124
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Decommission.hs+138−128
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Diagnostics/List.hs+35−21
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Get.hs+35−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/List.hs+38−21
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Register.hs+33−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Beacons/Update.hs+35−18
This diff is too big to show here.
gogol-proximitybeacon/gen/Network/Google/Resource/ProximityBeacon/Namespaces/List.hs+34−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/PubSub.hs+49−21
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/PubSub/Types.hs+9−1
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/PubSub/Types/Product.hs+56
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Acknowledge.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Create.hs+34−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Delete.hs+32−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Get.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/GetIAMPolicy.hs+34−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/List.hs+34−20
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/ModifyAckDeadline.hs+32−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/ModifyPushConfig.hs+32−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/Pull.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/SetIAMPolicy.hs+34−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Subscriptions/TestIAMPermissions.hs+35−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Create.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Delete.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Get.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/GetIAMPolicy.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/List.hs+34−20
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Publish.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/SetIAMPolicy.hs+33−18
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/Subscriptions/List.hs+37−20
This diff is too big to show here.
gogol-pubsub/gen/Network/Google/Resource/PubSub/Projects/Topics/TestIAMPermissions.hs+34−18
This diff is too big to show here.
gogol-qpxexpress/gen/Network/Google/QPXExpress.hs+5−2
This diff is too big to show here.
gogol-qpxexpress/gen/Network/Google/QPXExpress/Types.hs+4−1
This diff is too big to show here.
gogol-qpxexpress/gen/Network/Google/QPXExpress/Types/Sum.hs+24
This diff is too big to show here.
gogol-qpxexpress/gen/Network/Google/Resource/QPXExpress/Trips/Search.hs+33−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/InstanceGroupsUpdater.hs+81−11
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/InstanceGroupsUpdater/Types.hs+62−1
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/InstanceGroupsUpdater/Types/Product.hs+490−2
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/InstanceGroupsUpdater/Types/Sum.hs+24
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/Cancel.hs+29−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/Get.hs+28−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/Insert.hs+28−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/List.hs+31−23
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/ListInstanceUpdates.hs+32−23
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/Pause.hs+29−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/Resume.hs+28−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/RollingUpdates/Rollback.hs+29−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/ZoneOperations/Get.hs+28−20
This diff is too big to show here.
gogol-replicapool-updater/gen/Network/Google/Resource/Replicapoolupdater/ZoneOperations/List.hs+30−23
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/InstanceGroupsManager.hs+61−13
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/InstanceGroupsManager/Types.hs+38−1
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/InstanceGroupsManager/Types/Product.hs+200−6
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/InstanceGroupsManager/Types/Sum.hs+157
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/AbandonInstances.hs+29−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/Delete.hs+28−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/DeleteInstances.hs+29−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/Get.hs+29−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/Insert.hs+29−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/List.hs+32−23
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/RecreateInstances.hs+29−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/Resize.hs+29−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/SetInstanceTemplate.hs+30−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/InstanceGroupManagers/SetTargetPools.hs+28−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/ZoneOperations/Get.hs+28−20
This diff is too big to show here.
gogol-replicapool/gen/Network/Google/Resource/Replicapool/ZoneOperations/List.hs+30−23
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Organizations/Get.hs+32−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Organizations/GetIAMPolicy.hs+33−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Organizations/List.hs+35−21
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Organizations/SetIAMPolicy.hs+33−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Organizations/TestIAMPermissions.hs+34−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Organizations/Update.hs+32−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/Create.hs+34−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/Delete.hs+33−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/Get.hs+35−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/GetIAMPolicy.hs+33−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/List.hs+37−21
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/SetIAMPolicy.hs+33−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/TestIAMPermissions.hs+33−18
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/Undelete.hs+141−124
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/Resource/Cloudresourcemanager/Projects/Update.hs+139−127
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/ResourceManager.hs+35−16
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/ResourceManager/Types.hs+5−1
This diff is too big to show here.
gogol-resourcemanager/gen/Network/Google/ResourceManager/Types/Product.hs+29
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/InstanceGroups.hs+60−12
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/InstanceGroups/Types.hs+39−1
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/InstanceGroups/Types/Product.hs+219−2
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/InstanceGroups/Types/Sum.hs+84
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneOperations/Get.hs+28−20
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneOperations/List.hs+30−23
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/AddResources.hs+28−20
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/Delete.hs+29−20
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/Get.hs+30−20
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/GetService.hs+29−21
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/Insert.hs+29−20
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/List.hs+31−22
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/ListResources.hs+43−30
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/RemoveResources.hs+28−20
This diff is too big to show here.
gogol-resourceviews/gen/Network/Google/Resource/Resourceviews/ZoneViews/SetService.hs+28−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Acknowledge.hs+28−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Advancetestorder.hs+29−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Cancel.hs+93−86
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Cancellineitem.hs+95−79
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Createtestorder.hs+81−74
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Custombatch.hs+75−68
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Get.hs+92−86
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Getbymerchantorderid.hs+96−83
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Gettestordertemplate.hs+100−85
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/List.hs+40−30
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Refund.hs+31−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Returnlineitem.hs+29−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Shiplineitems.hs+28−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Updatemerchantorderid.hs+28−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/Updateshipment.hs+29−20
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/ShoppingContent.hs+63−36
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/ShoppingContent/Types.hs+33−21
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/ShoppingContent/Types/Product.hs+146−151
This diff is too big to show here.
gogol-shopping-content/gen/Network/Google/ShoppingContent/Types/Sum.hs+150
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Delete.hs+29−20
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Get.hs+30−20
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/GetToken.hs+30−21
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Insert.hs+30−21
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/List.hs+30−20
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Patch.hs+29−20
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/Resource/SiteVerification/WebResource/Update.hs+29−20
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/SiteVerification.hs+30−8
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/SiteVerification/Types.hs+16−1
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/SiteVerification/Types/Product.hs+108
This diff is too big to show here.
gogol-siteverification/gen/Network/Google/SiteVerification/Types/Sum.hs+24
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/GetSpectrum.hs+31−20
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/GetSpectrumBatch.hs+29−20
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/Init.hs+30−20
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/NotifySpectrumUse.hs+29−20
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/Register.hs+32−20
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Resource/Spectrum/Paws/VerifyDevice.hs+29−20
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Spectrum.hs+15−7
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Spectrum/Types.hs+4−1
This diff is too big to show here.
gogol-spectrum/gen/Network/Google/Spectrum/Types/Sum.hs+29
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/BackupRuns/Delete.hs+28−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/BackupRuns/Get.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/BackupRuns/List.hs+31−22
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Databases/Delete.hs+29−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Databases/Get.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Databases/Insert.hs+91−85
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Databases/List.hs+32−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Databases/Patch.hs+29−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Databases/Update.hs+29−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Flags/List.hs+31−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Clone.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Delete.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Export.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Get.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Import.hs+94−79
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Insert.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/List.hs+33−22
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Patch.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/PromoteReplica.hs+28−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/ResetSSLConfig.hs+29−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Restart.hs+29−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/RestoreBackup.hs+28−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/StartReplica.hs+88−85
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/StopReplica.hs+93−85
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Instances/Update.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Operations/Get.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Operations/List.hs+33−23
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/SSLCerts/CreateEphemeral.hs+29−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/SSLCerts/Delete.hs+28−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/SSLCerts/Get.hs+31−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/SSLCerts/Insert.hs+30−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/SSLCerts/List.hs+31−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Tiers/List.hs+31−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Users/Delete.hs+33−21
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Users/Insert.hs+32−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Users/List.hs+31−20
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/Resource/Sql/Users/Update.hs+33−21
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/SQLAdmin.hs+113−62
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/SQLAdmin/Types.hs+41−21
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/SQLAdmin/Types/Product.hs+286−146
This diff is too big to show here.
gogol-sqladmin/gen/Network/Google/SQLAdmin/Types/Sum.hs+24
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/GetGoogleServiceAccount.hs+34−19
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/GoogleServiceAccounts/Get.hs+33−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/Create.hs+34−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/Get.hs+34−19
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/List.hs+35−21
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferJobs/Patch.hs+34−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Cancel.hs+33−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Delete.hs+33−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Get.hs+33−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/List.hs+35−21
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Pause.hs+33−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/Resource/StorageTransfer/TransferOperations/Resume.hs+33−18
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/StorageTransfer.hs+36−14
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/StorageTransfer/Types.hs+13−1
This diff is too big to show here.
gogol-storage-transfer/gen/Network/Google/StorageTransfer/Types/Product.hs+71−2
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Delete.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Get.hs+29−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Insert.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/List.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Patch.hs+29−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/BucketAccessControls/Update.hs+29−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Delete.hs+31−22
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Get.hs+35−24
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Insert.hs+36−23
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Buckets/List.hs+38−25
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Patch.hs+35−24
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Buckets/Update.hs+36−24
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Channels/Stop.hs+32−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Delete.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Get.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Insert.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/List.hs+31−22
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Patch.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/DefaultObjectAccessControls/Update.hs+30−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Delete.hs+29−20
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Get.hs+30−21
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Insert.hs+30−21
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/List.hs+30−21
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Patch.hs+30−21
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/ObjectAccessControls/Update.hs+30−21
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Compose.hs+30−22
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Copy.hs+56−36
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Delete.hs+34−24
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Get.hs+38−27
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Insert.hs+39−27
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/List.hs+40−27
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Patch.hs+40−28
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/Update.hs+39−27
This diff is too big to show here.
gogol-storage/gen/Network/Google/Resource/Storage/Objects/WatchAll.hs+39−28
This diff is too big to show here.
gogol-storage/gen/Network/Google/Storage.hs+187−38
This diff is too big to show here.
gogol-storage/gen/Network/Google/Storage/Types.hs+121−1
This diff is too big to show here.
gogol-storage/gen/Network/Google/Storage/Types/Product.hs+652−6
This diff is too big to show here.
gogol-storage/gen/Network/Google/Storage/Types/Sum.hs+376
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Create.hs+85−79
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Delete.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Create.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Delete.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Entities/List.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Get.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/List.hs+31−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Folders/Update.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Get.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/List.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MACros/Create.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MACros/Delete.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MACros/Get.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MACros/List.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MACros/Update.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Move_folders/Update.hs+31−22
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Create.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Delete.hs+31−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Get.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/List.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Rules/Update.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Create.hs+98−89
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Delete.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Get.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/List.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Tags/Update.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Create.hs+98−88
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Delete.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Get.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/List.hs+31−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Triggers/Update.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Update.hs+29−21
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Create.hs+98−88
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Delete.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Get.hs+30−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/List.hs+99−88
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Variables/Update.hs+106−106
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Create.hs+98−89
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Delete.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Get.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/List.hs+107−95
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Publish.hs+31−21
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Restore.hs+31−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Undelete.hs+107−98
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Versions/Update.hs+117−102
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Get.hs+31−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/List.hs+32−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Create.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Delete.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Get.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/List.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Permissions/Update.hs+28−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Update.hs+29−20
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/TagManager.hs+138−58
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/TagManager/Types.hs+32−5
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/TagManager/Types/Product.hs+44−43
This diff is too big to show here.
gogol-tagmanager/gen/Network/Google/TagManager/Types/Sum.hs+526
This diff is too big to show here.
gogol-translate/gen/Network/Google/Resource/Language/Detections/List.hs+30−21
This diff is too big to show here.
gogol-translate/gen/Network/Google/Resource/Language/Languages/List.hs+32−21
This diff is too big to show here.
gogol-translate/gen/Network/Google/Resource/Language/Translations/List.hs+36−27
This diff is too big to show here.
gogol-translate/gen/Network/Google/Translate.hs+18−4
This diff is too big to show here.
gogol-translate/gen/Network/Google/Translate/Types.hs+14−1
This diff is too big to show here.
gogol-translate/gen/Network/Google/Translate/Types/Product.hs+59−2
This diff is too big to show here.
gogol-translate/gen/Network/Google/Translate/Types/Sum.hs+53
This diff is too big to show here.
gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/Get.hs+33−23
This diff is too big to show here.
gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/Insert.hs+31−19
This diff is too big to show here.
gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/List.hs+33−24
This diff is too big to show here.
gogol-urlshortener/gen/Network/Google/URLShortener.hs+15−4
This diff is too big to show here.
gogol-urlshortener/gen/Network/Google/URLShortener/Types.hs+10−1
This diff is too big to show here.
gogol-urlshortener/gen/Network/Google/URLShortener/Types/Sum.hs+87
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Searchanalytics/Query.hs+30−20
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/Delete.hs+95−82
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/Get.hs+31−20
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/List.hs+97−83
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sitemaps/Submit.hs+29−20
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/Add.hs+31−20
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/Delete.hs+85−77
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/Get.hs+81−77
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/Sites/List.hs+76−64
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorscounts/Query.hs+39−27
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorssamples/Get.hs+41−28
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorssamples/List.hs+41−28
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorssamples/MarkAsFixed.hs+40−27
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/WebmasterTools.hs+53−17
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types.hs+28−1
This diff is too big to show here.
gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types/Sum.hs+354
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs+30−21
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs+29−22
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/GroupItems/Delete.hs+29−21
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/GroupItems/Insert.hs+28−21
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/GroupItems/List.hs+31−22
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/Delete.hs+31−21
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/Insert.hs+30−21
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/List.hs+33−22
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Groups/Update.hs+30−21
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/Resource/YouTubeAnalytics/Reports/Query.hs+41−30
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics.hs+60−12
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics/Types.hs+42−1
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics/Types/Product.hs+302−8
This diff is too big to show here.
gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics/Types/Sum.hs+29
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Activities/Insert.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Activities/List.hs+37−28
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Delete.hs+31−21
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Download.hs+121−106
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Insert.hs+31−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/List.hs+123−109
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Captions/Update.hs+112−99
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelBanners/Insert.hs+29−21
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/Delete.hs+29−21
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/Insert.hs+31−23
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/List.hs+35−26
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/ChannelSections/Update.hs+30−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Channels/List.hs+176−170
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Channels/Update.hs+96−82
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/CommentThreads/Insert.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/CommentThreads/List.hs+55−40
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/CommentThreads/Update.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/Delete.hs+82−77
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/Insert.hs+81−76
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/List.hs+135−123
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/MarkAsSpam.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/SetModerationStatus.hs+35−25
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Comments/Update.hs+83−76
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/GuideCategories/List.hs+33−24
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/I18nLanguages/List.hs+31−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/I18nRegions/List.hs+32−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Bind.hs+34−25
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Bind_direct.hs+34−25
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Control.hs+36−27
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Delete.hs+30−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Insert.hs+31−23
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/List.hs+41−30
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Transition.hs+39−27
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Update.hs+31−23
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/Delete.hs+30−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/Insert.hs+31−23
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/List.hs+37−27
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveStreams/Update.hs+31−23
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/PlaylistItems/Delete.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/PlaylistItems/Insert.hs+30−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/PlaylistItems/List.hs+36−27
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/PlaylistItems/Update.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Playlists/Delete.hs+30−21
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Playlists/Insert.hs+32−23
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Playlists/List.hs+40−29
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Playlists/Update.hs+31−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Search/List.hs+413−363
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Subscriptions/Delete.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Subscriptions/Insert.hs+29−20
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Subscriptions/List.hs+174−165
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Thumbnails/Set.hs+32−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/VideoAbuseReportReasons/List.hs+30−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/VideoCategories/List.hs+33−24
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Delete.hs+31−21
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/GetRating.hs+31−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Insert.hs+36−25
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/List.hs+45−35
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Rate.hs+93−86
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/ReportAbuse.hs+28−21
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Videos/Update.hs+32−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Set.hs+31−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/Resource/YouTube/Watermarks/Unset.hs+30−22
This diff is too big to show here.
gogol-youtube/gen/Network/Google/YouTube.hs+653−160
This diff is too big to show here.
gogol-youtube/gen/Network/Google/YouTube/Types.hs+530−79
This diff is too big to show here.
gogol-youtube/gen/Network/Google/YouTube/Types/Product.hs+925−756
This diff is too big to show here.
gogol-youtube/gen/Network/Google/YouTube/Types/Sum.hs+5904
This diff is too big to show here.