on develop help sign in
Regenerating all services
58c1320Brendan Hay
core/src/Network/Google/Prelude.hs+27−6
@@ -55,14 +55,14 @@ _Default = iso f Just
55 f (Just x) = x
55 f (Just x) = x
56 f Nothing = mempty
56 f Nothing = mempty
57
57
58−newtype Time = Time Text
58+newtype Time' = Time' Text
59− deriving (Eq, Ord, Show, Read, Generic, Newtype, Typeable, ToText, FromText)
59+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, ToText, FromText)
60
60
61−newtype Date = Date Text
61+newtype Date' = Date' Text
62− deriving (Eq, Ord, Show, Read, Generic, Newtype, Typeable, ToText, FromText)
62+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, ToText, FromText)
63
63
64−newtype DateTime = DateTime Text
64+newtype DateTime' = DateTime' Text
65− deriving (Eq, Ord, Show, Read, Generic, Newtype, Typeable, ToText, FromText)
65+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, ToText, FromText)
66
66
67data AltJSON = AltJSON
67data AltJSON = AltJSON
68 deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)
68 deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)
@@ -105,8 +105,29 @@ instance GoogleAuth a => GoogleAuth (Download a) where
105data Body = Body -- MediaType
105data Body = Body -- MediaType
106 deriving (Eq, Show, Generic, Data, Typeable)
106 deriving (Eq, Show, Generic, Data, Typeable)
107
107
108+
108data MultipartRelated (metatypes :: [*]) meta media
109data MultipartRelated (metatypes :: [*]) meta media
109
110
111+-- IsElem sa (ReqBody y x :> sb) = IsElem sa sb
112+
113+-- instance HasLink sub => HasLink (ReqBody ct a :> sub) where
114+-- type MkLink (ReqBody ct a :> sub) = MkLink sub
115+-- toLink _ = toLink (Proxy :: Proxy sub)
116+
117+-- instance (MimeRender ct a, HasClient sublayout)
118+-- => HasClient (ReqBody (ct ': cts) a :> sublayout) where
119+-- type Client (ReqBody (ct ': cts) a :> sublayout) =
120+-- a -> Client sublayout
121+
122+-- clientWithRoute Proxy req baseurl body =
123+-- clientWithRoute (Proxy :: Proxy sublayout)
124+-- (let ctProxy = Proxy :: Proxy ct
125+-- in setRQBody (mimeRender ctProxy body)
126+-- (contentType ctProxy)
127+-- req
128+-- )
129+-- baseurl
130+
110-- POST /upload/drive/v2/files?uploadType=multipart HTTP/1.1
131-- POST /upload/drive/v2/files?uploadType=multipart HTTP/1.1
111-- Host: www.googleapis.com
132-- Host: www.googleapis.com
112-- Authorization: Bearer your_auth_token
133-- Authorization: Bearer your_auth_token
gen/src/Gen/Syntax.hs+11−8
@@ -388,8 +388,8 @@ externalLit :: Lit -> Type
388externalLit = \case
388externalLit = \case
389 Text -> TyCon "Text"
389 Text -> TyCon "Text"
390 Bool -> TyCon "Bool"
390 Bool -> TyCon "Bool"
391− Time -> TyCon "UTCTime"
391+ Time -> TyCon "TimeOfDay"
392− Date -> TyCon "UTCTime"
392+ Date -> TyCon "LocalTime"
393 DateTime -> TyCon "UTCTime"
393 DateTime -> TyCon "UTCTime"
394 Nat -> TyCon "Natural"
394 Nat -> TyCon "Natural"
395 Float -> TyCon "Float"
395 Float -> TyCon "Float"
@@ -409,9 +409,9 @@ internalLit :: Lit -> Type
409internalLit = \case
409internalLit = \case
410 Text -> TyCon "Text"
410 Text -> TyCon "Text"
411 Bool -> TyCon "Bool"
411 Bool -> TyCon "Bool"
412− Time -> TyCon "Time"
412+ Time -> TyCon "Time'"
413− Date -> TyCon "Date"
413+ Date -> TyCon "Date'"
414− DateTime -> TyCon "DateTime"
414+ DateTime -> TyCon "DateTime'"
415 Nat -> TyCon "Nat"
415 Nat -> TyCon "Nat"
416 Float -> TyCon "Float"
416 Float -> TyCon "Float"
417 Double -> TyCon "Double"
417 Double -> TyCon "Double"
@@ -439,9 +439,12 @@ mapping t e = infixE e "." (go t)
439
439
440iso :: TType -> Maybe Exp
440iso :: TType -> Maybe Exp
441iso = \case
441iso = \case
442− TList {} -> Just (var "_Coerce")
442+ TList {} -> Just (var "_Coerce")
443− TLit Nat -> Just (var "_Nat")
443+ TLit Nat -> Just (var "_Nat")
444+ TLit Time -> Just (var "_Time")
445+ TLit Date -> Just (var "_Date")
446+ TLit DateTime -> Just (var "_DateTime")
444− _ -> Nothing
447+ _ -> Nothing
445
448
446strict :: Type -> Type
449strict :: Type -> Type
447strict = TyBang BangedTy . \case
450strict = TyBang BangedTy . \case
gen/src/Gen/Text.hs+1
@@ -203,6 +203,7 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
203 , ("Os", "OS")
203 , ("Os", "OS")
204 , ("Oob", "OOB")
204 , ("Oob", "OOB")
205 , ("Jwk", "JWK")
205 , ("Jwk", "JWK")
206+ , ("Dto", "DTO")
206
207
207 , ("access", "Access")
208 , ("access", "Access")
208 , ("account", "Account")
209 , ("account", "Account")
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer.hs+142−142
@@ -168,12 +168,12 @@ module Network.Google.AdExchangeBuyer
168
168
169 -- * Types
169 -- * Types
170
170
171− -- ** BrandDto
171+ -- ** BrandDTO
172− , BrandDto
172+ , BrandDTO
173− , brandDto
173+ , brandDTO
174− , bdAdvertiserId
174+ , bdtoAdvertiserId
175− , bdName
175+ , bdtoName
176− , bdId
176+ , bdtoId
177
177
178 -- ** EditAllOrderDealsResponse
178 -- ** EditAllOrderDealsResponse
179 , EditAllOrderDealsResponse
179 , EditAllOrderDealsResponse
@@ -214,36 +214,36 @@ module Network.Google.AdExchangeBuyer
214 , pcdHeight
214 , pcdHeight
215 , pcdWidth
215 , pcdWidth
216
216
217− -- ** TermsDto
217+ -- ** TermsDTO
218− , TermsDto
218+ , TermsDTO
219− , termsDto
219+ , termsDTO
220− , tdFinalizeAutomatically
220+ , tdtoFinalizeAutomatically
221− , tdBuyerBillingType
221+ , tdtoBuyerBillingType
222− , tdTargetingAllAdSlots
222+ , tdtoTargetingAllAdSlots
223− , tdURLs
223+ , tdtoURLs
224− , tdEndDate
224+ , tdtoEndDate
225− , tdCpm
225+ , tdtoCpm
226− , tdEstimatedSpend
226+ , tdtoEstimatedSpend
227− , tdAdvertisers
227+ , tdtoAdvertisers
228− , tdEstimatedImpressionsPerDay
228+ , tdtoEstimatedImpressionsPerDay
229− , tdMonetizerType
229+ , tdtoMonetizerType
230− , tdAudienceSegmentDescription
230+ , tdtoAudienceSegmentDescription
231− , tdCreativeReviewPolicy
231+ , tdtoCreativeReviewPolicy
232− , tdMinimumTrueLooks
232+ , tdtoMinimumTrueLooks
233− , tdStartDate
233+ , tdtoStartDate
234− , tdCreativeBlockingLevel
234+ , tdtoCreativeBlockingLevel
235− , tdSemiTransparent
235+ , tdtoSemiTransparent
236− , tdAudienceSegment
236+ , tdtoAudienceSegment
237− , tdDealPremium
237+ , tdtoDealPremium
238− , tdIsReservation
238+ , tdtoIsReservation
239− , tdAdSlots
239+ , tdtoAdSlots
240− , tdTermsAttributes
240+ , tdtoTermsAttributes
241− , tdInventorySegmentTargeting
241+ , tdtoInventorySegmentTargeting
242− , tdDescriptiveName
242+ , tdtoDescriptiveName
243− , tdMinimumSpendMicros
243+ , tdtoMinimumSpendMicros
244− , tdTargetByDealId
244+ , tdtoTargetByDealId
245− , tdBillingTerms
245+ , tdtoBillingTerms
246− , tdDescription
246+ , tdtoDescription
247
247
248 -- ** CreativesList
248 -- ** CreativesList
249 , CreativesList
249 , CreativesList
@@ -276,14 +276,14 @@ module Network.Google.AdExchangeBuyer
276 , mdpSeller
276 , mdpSeller
277 , mdpBuyer
277 , mdpBuyer
278
278
279− -- ** DealPartyDto
279+ -- ** DealPartyDTO
280− , DealPartyDto
280+ , DealPartyDTO
281− , dealPartyDto
281+ , dealPartyDTO
282− , dpdBuyerSellerRole
282+ , dpdtoBuyerSellerRole
283− , dpdCustomerId
283+ , dpdtoCustomerId
284− , dpdName
284+ , dpdtoName
285− , dpdWebProperty
285+ , dpdtoWebProperty
286− , dpdBuyer
286+ , dpdtoBuyer
287
287
288 -- ** DeliveryControlFrequencyCap
288 -- ** DeliveryControlFrequencyCap
289 , DeliveryControlFrequencyCap
289 , DeliveryControlFrequencyCap
@@ -433,9 +433,9 @@ module Network.Google.AdExchangeBuyer
433 -- ** AdexchangebuyerCreativesListOpenAuctionStatusFilter
433 -- ** AdexchangebuyerCreativesListOpenAuctionStatusFilter
434 , AdexchangebuyerCreativesListOpenAuctionStatusFilter (..)
434 , AdexchangebuyerCreativesListOpenAuctionStatusFilter (..)
435
435
436− -- ** BuyerDto
436+ -- ** BuyerDTO
437− , BuyerDto
437+ , BuyerDTO
438− , buyerDto
438+ , buyerDTO
439 , buySponsorAccountId
439 , buySponsorAccountId
440 , buyEnabledForInterestTargetingDeals
440 , buyEnabledForInterestTargetingDeals
441 , buyCustomerId
441 , buyCustomerId
@@ -449,15 +449,15 @@ module Network.Google.AdExchangeBuyer
449 , dealTermsNonGuaranteedFixedPriceTerms
449 , dealTermsNonGuaranteedFixedPriceTerms
450 , dtngfptFixedPrices
450 , dtngfptFixedPrices
451
451
452− -- ** AdSlotDto
452+ -- ** AdSlotDTO
453− , AdSlotDto
453+ , AdSlotDTO
454− , adSlotDto
454+ , adSlotDTO
455− , asdWebPropertyId
455+ , asdtoWebPropertyId
456− , asdSize
456+ , asdtoSize
457− , asdChannelCode
457+ , asdtoChannelCode
458− , asdChannelId
458+ , asdtoChannelId
459− , asdName
459+ , asdtoName
460− , asdDescription
460+ , asdtoDescription
461
461
462 -- ** PerformanceReport
462 -- ** PerformanceReport
463 , PerformanceReport
463 , PerformanceReport
@@ -583,24 +583,24 @@ module Network.Google.AdExchangeBuyer
583 -- ** AdexchangebuyerMarketplaceOrdersPatchUpdateAction
583 -- ** AdexchangebuyerMarketplaceOrdersPatchUpdateAction
584 , AdexchangebuyerMarketplaceOrdersPatchUpdateAction (..)
584 , AdexchangebuyerMarketplaceOrdersPatchUpdateAction (..)
585
585
586− -- ** NegotiationDto
586+ -- ** NegotiationDTO
587− , NegotiationDto
587+ , NegotiationDTO
588− , negotiationDto
588+ , negotiationDTO
589− , ndNegotiationState
589+ , ndtoNegotiationState
590− , ndExternalDealId
590+ , ndtoExternalDealId
591− , ndStatus
591+ , ndtoStatus
592− , ndDealType
592+ , ndtoDealType
593− , ndNegotiationRounds
593+ , ndtoNegotiationRounds
594− , ndKind
594+ , ndtoKind
595− , ndBilledBuyer
595+ , ndtoBilledBuyer
596− , ndBuyerEmailContacts
596+ , ndtoBuyerEmailContacts
597− , ndStats
597+ , ndtoStats
598− , ndSeller
598+ , ndtoSeller
599− , ndLabelNames
599+ , ndtoLabelNames
600− , ndOfferId
600+ , ndtoOfferId
601− , ndNegotiationId
601+ , ndtoNegotiationId
602− , ndSellerEmailContacts
602+ , ndtoSellerEmailContacts
603− , ndBuyer
603+ , ndtoBuyer
604
604
605 -- ** AudienceSegment
605 -- ** AudienceSegment
606 , AudienceSegment
606 , AudienceSegment
@@ -610,23 +610,23 @@ module Network.Google.AdExchangeBuyer
610 , asId
610 , asId
611 , asDescription
611 , asDescription
612
612
613− -- ** OfferDto
613+ -- ** OfferDTO
614− , OfferDto
614+ , OfferDTO
615− , offerDto
615+ , offerDTO
616− , odCreator
616+ , odtoCreator
617− , odStatus
617+ , odtoStatus
618− , odOfferState
618+ , odtoOfferState
619− , odPointOfContact
619+ , odtoPointOfContact
620− , odTerms
620+ , odtoTerms
621− , odKind
621+ , odtoKind
622− , odBilledBuyer
622+ , odtoBilledBuyer
623− , odOpenToDealParties
623+ , odtoOpenToDealParties
624− , odEmailContacts
624+ , odtoEmailContacts
625− , odLabelNames
625+ , odtoLabelNames
626− , odOfferId
626+ , odtoOfferId
627− , odClosedToDealParties
627+ , odtoClosedToDealParties
628− , odAnonymous
628+ , odtoAnonymous
629− , odIsOpen
629+ , odtoIsOpen
630
630
631 -- ** TargetingValueSize
631 -- ** TargetingValueSize
632 , TargetingValueSize
632 , TargetingValueSize
@@ -673,11 +673,11 @@ module Network.Google.AdExchangeBuyer
673 , addOrderNotesResponse
673 , addOrderNotesResponse
674 , aNotes
674 , aNotes
675
675
676− -- ** MoneyDto
676+ -- ** MoneyDTO
677− , MoneyDto
677+ , MoneyDTO
678− , moneyDto
678+ , moneyDTO
679− , mdCurrencyCode
679+ , mdtoCurrencyCode
680− , mdMicros
680+ , mdtoMicros
681
681
682 -- ** ListClientAccessCapabilitiesResponse
682 -- ** ListClientAccessCapabilitiesResponse
683 , ListClientAccessCapabilitiesResponse
683 , ListClientAccessCapabilitiesResponse
@@ -695,13 +695,13 @@ module Network.Google.AdExchangeBuyer
695 , lorKind
695 , lorKind
696 , lorOffers
696 , lorOffers
697
697
698− -- ** AdvertiserDto
698+ -- ** AdvertiserDTO
699− , AdvertiserDto
699+ , AdvertiserDTO
700− , advertiserDto
700+ , advertiserDTO
701− , adStatus
701+ , adtoStatus
702− , adBrands
702+ , adtoBrands
703− , adName
703+ , adtoName
704− , adId
704+ , adtoId
705
705
706 -- ** TargetingValue
706 -- ** TargetingValue
707 , TargetingValue
707 , TargetingValue
@@ -740,16 +740,16 @@ module Network.Google.AdExchangeBuyer
740 , biAccountId
740 , biAccountId
741 , biBillingId
741 , biBillingId
742
742
743− -- ** WebPropertyDto
743+ -- ** WebPropertyDTO
744− , WebPropertyDto
744+ , WebPropertyDTO
745− , webPropertyDto
745+ , webPropertyDTO
746− , wpdEnabledForPreferredDeals
746+ , wpdtoEnabledForPreferredDeals
747− , wpdSyndicationProduct
747+ , wpdtoSyndicationProduct
748− , wpdName
748+ , wpdtoName
749− , wpdPropertyCode
749+ , wpdtoPropertyCode
750− , wpdId
750+ , wpdtoId
751− , wpdSiteURLs
751+ , wpdtoSiteURLs
752− , wpdAllowInterestTargetedAds
752+ , wpdtoAllowInterestTargetedAds
753
753
754 -- ** TargetingValueDayPartTargeting
754 -- ** TargetingValueDayPartTargeting
755 , TargetingValueDayPartTargeting
755 , TargetingValueDayPartTargeting
@@ -875,28 +875,28 @@ module Network.Google.AdExchangeBuyer
875 , pcpToken
875 , pcpToken
876 , pcpType
876 , pcpType
877
877
878− -- ** NegotiationRoundDto
878+ -- ** NegotiationRoundDTO
879− , NegotiationRoundDto
879+ , NegotiationRoundDTO
880− , negotiationRoundDto
880+ , negotiationRoundDTO
881− , nrdTerms
881+ , nrdtoTerms
882− , nrdKind
882+ , nrdtoKind
883− , nrdOriginatorRole
883+ , nrdtoOriginatorRole
884− , nrdAction
884+ , nrdtoAction
885− , nrdDBmPartnerId
885+ , nrdtoDBmPartnerId
886− , nrdNotes
886+ , nrdtoNotes
887− , nrdNegotiationId
887+ , nrdtoNegotiationId
888− , nrdEditHistory
888+ , nrdtoEditHistory
889− , nrdRoundNumber
889+ , nrdtoRoundNumber
890−
890+
891− -- ** StatsDto
891+ -- ** StatsDTO
892− , StatsDto
892+ , StatsDTO
893− , statsDto
893+ , statsDTO
894− , sdBids
894+ , sdtoBids
895− , sdSpend
895+ , sdtoSpend
896− , sdImpressions
896+ , sdtoImpressions
897− , sdGoodBids
897+ , sdtoGoodBids
898− , sdRevenue
898+ , sdtoRevenue
899− , sdRequests
899+ , sdtoRequests
900
900
901 -- ** GetOffersResponse
901 -- ** GetOffersResponse
902 , GetOffersResponse
902 , GetOffersResponse
@@ -989,13 +989,13 @@ module Network.Google.AdExchangeBuyer
989 , dtGuaranteedFixedPriceTerms
989 , dtGuaranteedFixedPriceTerms
990 , dtDescription
990 , dtDescription
991
991
992− -- ** EditHistoryDto
992+ -- ** EditHistoryDTO
993− , EditHistoryDto
993+ , EditHistoryDTO
994− , editHistoryDto
994+ , editHistoryDTO
995− , ehdLastUpdatedByLoginName
995+ , ehdtoLastUpdatedByLoginName
996− , ehdCreatedByLoginName
996+ , ehdtoCreatedByLoginName
997− , ehdLastUpdateTimeStamp
997+ , ehdtoLastUpdateTimeStamp
998− , ehdCreatedTimeStamp
998+ , ehdtoCreatedTimeStamp
999 ) where
999 ) where
1000
1000
1001import Network.Google.AdExchangeBuyer.Types
1001import Network.Google.AdExchangeBuyer.Types
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types.hs+142−142
@@ -17,12 +17,12 @@ module Network.Google.AdExchangeBuyer.Types
17 -- * Service URL
17 -- * Service URL
18 adExchangeBuyerURL
18 adExchangeBuyerURL
19
19
20− -- * BrandDto
20+ -- * BrandDTO
21− , BrandDto
21+ , BrandDTO
22− , brandDto
22+ , brandDTO
23− , bdAdvertiserId
23+ , bdtoAdvertiserId
24− , bdName
24+ , bdtoName
25− , bdId
25+ , bdtoId
26
26
27 -- * EditAllOrderDealsResponse
27 -- * EditAllOrderDealsResponse
28 , EditAllOrderDealsResponse
28 , EditAllOrderDealsResponse
@@ -63,36 +63,36 @@ module Network.Google.AdExchangeBuyer.Types
63 , pcdHeight
63 , pcdHeight
64 , pcdWidth
64 , pcdWidth
65
65
66− -- * TermsDto
66+ -- * TermsDTO
67− , TermsDto
67+ , TermsDTO
68− , termsDto
68+ , termsDTO
69− , tdFinalizeAutomatically
69+ , tdtoFinalizeAutomatically
70− , tdBuyerBillingType
70+ , tdtoBuyerBillingType
71− , tdTargetingAllAdSlots
71+ , tdtoTargetingAllAdSlots
72− , tdURLs
72+ , tdtoURLs
73− , tdEndDate
73+ , tdtoEndDate
74− , tdCpm
74+ , tdtoCpm
75− , tdEstimatedSpend
75+ , tdtoEstimatedSpend
76− , tdAdvertisers
76+ , tdtoAdvertisers
77− , tdEstimatedImpressionsPerDay
77+ , tdtoEstimatedImpressionsPerDay
78− , tdMonetizerType
78+ , tdtoMonetizerType
79− , tdAudienceSegmentDescription
79+ , tdtoAudienceSegmentDescription
80− , tdCreativeReviewPolicy
80+ , tdtoCreativeReviewPolicy
81− , tdMinimumTrueLooks
81+ , tdtoMinimumTrueLooks
82− , tdStartDate
82+ , tdtoStartDate
83− , tdCreativeBlockingLevel
83+ , tdtoCreativeBlockingLevel
84− , tdSemiTransparent
84+ , tdtoSemiTransparent
85− , tdAudienceSegment
85+ , tdtoAudienceSegment
86− , tdDealPremium
86+ , tdtoDealPremium
87− , tdIsReservation
87+ , tdtoIsReservation
88− , tdAdSlots
88+ , tdtoAdSlots
89− , tdTermsAttributes
89+ , tdtoTermsAttributes
90− , tdInventorySegmentTargeting
90+ , tdtoInventorySegmentTargeting
91− , tdDescriptiveName
91+ , tdtoDescriptiveName
92− , tdMinimumSpendMicros
92+ , tdtoMinimumSpendMicros
93− , tdTargetByDealId
93+ , tdtoTargetByDealId
94− , tdBillingTerms
94+ , tdtoBillingTerms
95− , tdDescription
95+ , tdtoDescription
96
96
97 -- * CreativesList
97 -- * CreativesList
98 , CreativesList
98 , CreativesList
@@ -125,14 +125,14 @@ module Network.Google.AdExchangeBuyer.Types
125 , mdpSeller
125 , mdpSeller
126 , mdpBuyer
126 , mdpBuyer
127
127
128− -- * DealPartyDto
128+ -- * DealPartyDTO
129− , DealPartyDto
129+ , DealPartyDTO
130− , dealPartyDto
130+ , dealPartyDTO
131− , dpdBuyerSellerRole
131+ , dpdtoBuyerSellerRole
132− , dpdCustomerId
132+ , dpdtoCustomerId
133− , dpdName
133+ , dpdtoName
134− , dpdWebProperty
134+ , dpdtoWebProperty
135− , dpdBuyer
135+ , dpdtoBuyer
136
136
137 -- * DeliveryControlFrequencyCap
137 -- * DeliveryControlFrequencyCap
138 , DeliveryControlFrequencyCap
138 , DeliveryControlFrequencyCap
@@ -282,9 +282,9 @@ module Network.Google.AdExchangeBuyer.Types
282 -- * AdexchangebuyerCreativesListOpenAuctionStatusFilter
282 -- * AdexchangebuyerCreativesListOpenAuctionStatusFilter
283 , AdexchangebuyerCreativesListOpenAuctionStatusFilter (..)
283 , AdexchangebuyerCreativesListOpenAuctionStatusFilter (..)
284
284
285− -- * BuyerDto
285+ -- * BuyerDTO
286− , BuyerDto
286+ , BuyerDTO
287− , buyerDto
287+ , buyerDTO
288 , buySponsorAccountId
288 , buySponsorAccountId
289 , buyEnabledForInterestTargetingDeals
289 , buyEnabledForInterestTargetingDeals
290 , buyCustomerId
290 , buyCustomerId
@@ -298,15 +298,15 @@ module Network.Google.AdExchangeBuyer.Types
298 , dealTermsNonGuaranteedFixedPriceTerms
298 , dealTermsNonGuaranteedFixedPriceTerms
299 , dtngfptFixedPrices
299 , dtngfptFixedPrices
300
300
301− -- * AdSlotDto
301+ -- * AdSlotDTO
302− , AdSlotDto
302+ , AdSlotDTO
303− , adSlotDto
303+ , adSlotDTO
304− , asdWebPropertyId
304+ , asdtoWebPropertyId
305− , asdSize
305+ , asdtoSize
306− , asdChannelCode
306+ , asdtoChannelCode
307− , asdChannelId
307+ , asdtoChannelId
308− , asdName
308+ , asdtoName
309− , asdDescription
309+ , asdtoDescription
310
310
311 -- * PerformanceReport
311 -- * PerformanceReport
312 , PerformanceReport
312 , PerformanceReport
@@ -432,24 +432,24 @@ module Network.Google.AdExchangeBuyer.Types
432 -- * AdexchangebuyerMarketplaceOrdersPatchUpdateAction
432 -- * AdexchangebuyerMarketplaceOrdersPatchUpdateAction
433 , AdexchangebuyerMarketplaceOrdersPatchUpdateAction (..)
433 , AdexchangebuyerMarketplaceOrdersPatchUpdateAction (..)
434
434
435− -- * NegotiationDto
435+ -- * NegotiationDTO
436− , NegotiationDto
436+ , NegotiationDTO
437− , negotiationDto
437+ , negotiationDTO
438− , ndNegotiationState
438+ , ndtoNegotiationState
439− , ndExternalDealId
439+ , ndtoExternalDealId
440− , ndStatus
440+ , ndtoStatus
441− , ndDealType
441+ , ndtoDealType
442− , ndNegotiationRounds
442+ , ndtoNegotiationRounds
443− , ndKind
443+ , ndtoKind
444− , ndBilledBuyer
444+ , ndtoBilledBuyer
445− , ndBuyerEmailContacts
445+ , ndtoBuyerEmailContacts
446− , ndStats
446+ , ndtoStats
447− , ndSeller
447+ , ndtoSeller
448− , ndLabelNames
448+ , ndtoLabelNames
449− , ndOfferId
449+ , ndtoOfferId
450− , ndNegotiationId
450+ , ndtoNegotiationId
451− , ndSellerEmailContacts
451+ , ndtoSellerEmailContacts
452− , ndBuyer
452+ , ndtoBuyer
453
453
454 -- * AudienceSegment
454 -- * AudienceSegment
455 , AudienceSegment
455 , AudienceSegment
@@ -459,23 +459,23 @@ module Network.Google.AdExchangeBuyer.Types
459 , asId
459 , asId
460 , asDescription
460 , asDescription
461
461
462− -- * OfferDto
462+ -- * OfferDTO
463− , OfferDto
463+ , OfferDTO
464− , offerDto
464+ , offerDTO
465− , odCreator
465+ , odtoCreator
466− , odStatus
466+ , odtoStatus
467− , odOfferState
467+ , odtoOfferState
468− , odPointOfContact
468+ , odtoPointOfContact
469− , odTerms
469+ , odtoTerms
470− , odKind
470+ , odtoKind
471− , odBilledBuyer
471+ , odtoBilledBuyer
472− , odOpenToDealParties
472+ , odtoOpenToDealParties
473− , odEmailContacts
473+ , odtoEmailContacts
474− , odLabelNames
474+ , odtoLabelNames
475− , odOfferId
475+ , odtoOfferId
476− , odClosedToDealParties
476+ , odtoClosedToDealParties
477− , odAnonymous
477+ , odtoAnonymous
478− , odIsOpen
478+ , odtoIsOpen
479
479
480 -- * TargetingValueSize
480 -- * TargetingValueSize
481 , TargetingValueSize
481 , TargetingValueSize
@@ -522,11 +522,11 @@ module Network.Google.AdExchangeBuyer.Types
522 , addOrderNotesResponse
522 , addOrderNotesResponse
523 , aNotes
523 , aNotes
524
524
525− -- * MoneyDto
525+ -- * MoneyDTO
526− , MoneyDto
526+ , MoneyDTO
527− , moneyDto
527+ , moneyDTO
528− , mdCurrencyCode
528+ , mdtoCurrencyCode
529− , mdMicros
529+ , mdtoMicros
530
530
531 -- * ListClientAccessCapabilitiesResponse
531 -- * ListClientAccessCapabilitiesResponse
532 , ListClientAccessCapabilitiesResponse
532 , ListClientAccessCapabilitiesResponse
@@ -544,13 +544,13 @@ module Network.Google.AdExchangeBuyer.Types
544 , lorKind
544 , lorKind
545 , lorOffers
545 , lorOffers
546
546
547− -- * AdvertiserDto
547+ -- * AdvertiserDTO
548− , AdvertiserDto
548+ , AdvertiserDTO
549− , advertiserDto
549+ , advertiserDTO
550− , adStatus
550+ , adtoStatus
551− , adBrands
551+ , adtoBrands
552− , adName
552+ , adtoName
553− , adId
553+ , adtoId
554
554
555 -- * TargetingValue
555 -- * TargetingValue
556 , TargetingValue
556 , TargetingValue
@@ -589,16 +589,16 @@ module Network.Google.AdExchangeBuyer.Types
589 , biAccountId
589 , biAccountId
590 , biBillingId
590 , biBillingId
591
591
592− -- * WebPropertyDto
592+ -- * WebPropertyDTO
593− , WebPropertyDto
593+ , WebPropertyDTO
594− , webPropertyDto
594+ , webPropertyDTO
595− , wpdEnabledForPreferredDeals
595+ , wpdtoEnabledForPreferredDeals
596− , wpdSyndicationProduct
596+ , wpdtoSyndicationProduct
597− , wpdName
597+ , wpdtoName
598− , wpdPropertyCode
598+ , wpdtoPropertyCode
599− , wpdId
599+ , wpdtoId
600− , wpdSiteURLs
600+ , wpdtoSiteURLs
601− , wpdAllowInterestTargetedAds
601+ , wpdtoAllowInterestTargetedAds
602
602
603 -- * TargetingValueDayPartTargeting
603 -- * TargetingValueDayPartTargeting
604 , TargetingValueDayPartTargeting
604 , TargetingValueDayPartTargeting
@@ -724,28 +724,28 @@ module Network.Google.AdExchangeBuyer.Types
724 , pcpToken
724 , pcpToken
725 , pcpType
725 , pcpType
726
726
727− -- * NegotiationRoundDto
727+ -- * NegotiationRoundDTO
728− , NegotiationRoundDto
728+ , NegotiationRoundDTO
729− , negotiationRoundDto
729+ , negotiationRoundDTO
730− , nrdTerms
730+ , nrdtoTerms
731− , nrdKind
731+ , nrdtoKind
732− , nrdOriginatorRole
732+ , nrdtoOriginatorRole
733− , nrdAction
733+ , nrdtoAction
734− , nrdDBmPartnerId
734+ , nrdtoDBmPartnerId
735− , nrdNotes
735+ , nrdtoNotes
736− , nrdNegotiationId
736+ , nrdtoNegotiationId
737− , nrdEditHistory
737+ , nrdtoEditHistory
738− , nrdRoundNumber
738+ , nrdtoRoundNumber
739−
739+
740− -- * StatsDto
740+ -- * StatsDTO
741− , StatsDto
741+ , StatsDTO
742− , statsDto
742+ , statsDTO
743− , sdBids
743+ , sdtoBids
744− , sdSpend
744+ , sdtoSpend
745− , sdImpressions
745+ , sdtoImpressions
746− , sdGoodBids
746+ , sdtoGoodBids
747− , sdRevenue
747+ , sdtoRevenue
748− , sdRequests
748+ , sdtoRequests
749
749
750 -- * GetOffersResponse
750 -- * GetOffersResponse
751 , GetOffersResponse
751 , GetOffersResponse
@@ -838,13 +838,13 @@ module Network.Google.AdExchangeBuyer.Types
838 , dtGuaranteedFixedPriceTerms
838 , dtGuaranteedFixedPriceTerms
839 , dtDescription
839 , dtDescription
840
840
841− -- * EditHistoryDto
841+ -- * EditHistoryDTO
842− , EditHistoryDto
842+ , EditHistoryDTO
843− , editHistoryDto
843+ , editHistoryDTO
844− , ehdLastUpdatedByLoginName
844+ , ehdtoLastUpdatedByLoginName
845− , ehdCreatedByLoginName
845+ , ehdtoCreatedByLoginName
846− , ehdLastUpdateTimeStamp
846+ , ehdtoLastUpdateTimeStamp
847− , ehdCreatedTimeStamp
847+ , ehdtoCreatedTimeStamp
848 ) where
848 ) where
849
849
850import Network.Google.AdExchangeBuyer.Types.Product
850import Network.Google.AdExchangeBuyer.Types.Product
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Product.hs+944−910
@@ -19,56 +19,56 @@ import Network.Google.AdExchangeBuyer.Types.Sum
19import Network.Google.Prelude
19import Network.Google.Prelude
20
20
21--
21--
22−-- /See:/ 'brandDto' smart constructor.
22+-- /See:/ 'brandDTO' smart constructor.
23−data BrandDto = BrandDto
23+data BrandDTO = BrandDTO
24− { _bdAdvertiserId :: !(Maybe Int64)
24+ { _bdtoAdvertiserId :: !(Maybe Int64)
25− , _bdName :: !(Maybe Text)
25+ , _bdtoName :: !(Maybe Text)
26− , _bdId :: !(Maybe Int64)
26+ , _bdtoId :: !(Maybe Int64)
27 } deriving (Eq,Read,Show,Data,Typeable,Generic)
27 } deriving (Eq,Read,Show,Data,Typeable,Generic)
28
28
29−-- | Creates a value of 'BrandDto' with the minimum fields required to make a request.
29+-- | Creates a value of 'BrandDTO' with the minimum fields required to make a request.
30--
30--
31-- Use one of the following lenses to modify other fields as desired:
31-- Use one of the following lenses to modify other fields as desired:
32--
32--
33−-- * 'bdAdvertiserId'
33+-- * 'bdtoAdvertiserId'
34--
34--
35−-- * 'bdName'
35+-- * 'bdtoName'
36--
36--
37−-- * 'bdId'
37+-- * 'bdtoId'
38−brandDto
38+brandDTO
39− :: BrandDto
39+ :: BrandDTO
40−brandDto =
40+brandDTO =
41− BrandDto
41+ BrandDTO
42− { _bdAdvertiserId = Nothing
42+ { _bdtoAdvertiserId = Nothing
43− , _bdName = Nothing
43+ , _bdtoName = Nothing
44− , _bdId = Nothing
44+ , _bdtoId = Nothing
45 }
45 }
46
46
47−bdAdvertiserId :: Lens' BrandDto (Maybe Int64)
47+bdtoAdvertiserId :: Lens' BrandDTO (Maybe Int64)
48−bdAdvertiserId
48+bdtoAdvertiserId
49− = lens _bdAdvertiserId
49+ = lens _bdtoAdvertiserId
50− (\ s a -> s{_bdAdvertiserId = a})
50+ (\ s a -> s{_bdtoAdvertiserId = a})
51
51
52−bdName :: Lens' BrandDto (Maybe Text)
52+bdtoName :: Lens' BrandDTO (Maybe Text)
53−bdName = lens _bdName (\ s a -> s{_bdName = a})
53+bdtoName = lens _bdtoName (\ s a -> s{_bdtoName = a})
54
54
55−bdId :: Lens' BrandDto (Maybe Int64)
55+bdtoId :: Lens' BrandDTO (Maybe Int64)
56−bdId = lens _bdId (\ s a -> s{_bdId = a})
56+bdtoId = lens _bdtoId (\ s a -> s{_bdtoId = a})
57
57
58−instance FromJSON BrandDto where
58+instance FromJSON BrandDTO where
59 parseJSON
59 parseJSON
60− = withObject "BrandDto"
60+ = withObject "BrandDTO"
61 (\ o ->
61 (\ o ->
62− BrandDto <$>
62+ BrandDTO <$>
63 (o .:? "advertiserId") <*> (o .:? "name") <*>
63 (o .:? "advertiserId") <*> (o .:? "name") <*>
64 (o .:? "id"))
64 (o .:? "id"))
65
65
66−instance ToJSON BrandDto where
66+instance ToJSON BrandDTO where
67− toJSON BrandDto{..}
67+ toJSON BrandDTO{..}
68 = object
68 = object
69 (catMaybes
69 (catMaybes
70− [("advertiserId" .=) <$> _bdAdvertiserId,
70+ [("advertiserId" .=) <$> _bdtoAdvertiserId,
71− ("name" .=) <$> _bdName, ("id" .=) <$> _bdId])
71+ ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
72
72
73--
73--
74-- /See:/ 'editAllOrderDealsResponse' smart constructor.
74-- /See:/ 'editAllOrderDealsResponse' smart constructor.
@@ -434,295 +434,297 @@ instance ToJSON PretargetingConfigDimensions where
434 ("width" .=) <$> _pcdWidth])
434 ("width" .=) <$> _pcdWidth])
435
435
436--
436--
437−-- /See:/ 'termsDto' smart constructor.
437+-- /See:/ 'termsDTO' smart constructor.
438−data TermsDto = TermsDto
438+data TermsDTO = TermsDTO
439− { _tdFinalizeAutomatically :: !(Maybe Bool)
439+ { _tdtoFinalizeAutomatically :: !(Maybe Bool)
440− , _tdBuyerBillingType :: !(Maybe Text)
440+ , _tdtoBuyerBillingType :: !(Maybe Text)
441− , _tdTargetingAllAdSlots :: !(Maybe Bool)
441+ , _tdtoTargetingAllAdSlots :: !(Maybe Bool)
442− , _tdURLs :: !(Maybe [Text])
442+ , _tdtoURLs :: !(Maybe [Text])
443− , _tdEndDate :: !(Maybe DateTime)
443+ , _tdtoEndDate :: !(Maybe DateTime)
444− , _tdCpm :: !(Maybe MoneyDto)
444+ , _tdtoCpm :: !(Maybe MoneyDTO)
445− , _tdEstimatedSpend :: !(Maybe MoneyDto)
445+ , _tdtoEstimatedSpend :: !(Maybe MoneyDTO)
446− , _tdAdvertisers :: !(Maybe [AdvertiserDto])
446+ , _tdtoAdvertisers :: !(Maybe [AdvertiserDTO])
447− , _tdEstimatedImpressionsPerDay :: !(Maybe Int64)
447+ , _tdtoEstimatedImpressionsPerDay :: !(Maybe Int64)
448− , _tdMonetizerType :: !(Maybe Text)
448+ , _tdtoMonetizerType :: !(Maybe Text)
449− , _tdAudienceSegmentDescription :: !(Maybe Text)
449+ , _tdtoAudienceSegmentDescription :: !(Maybe Text)
450− , _tdCreativeReviewPolicy :: !(Maybe Text)
450+ , _tdtoCreativeReviewPolicy :: !(Maybe Text)
451− , _tdMinimumTrueLooks :: !(Maybe Int64)
451+ , _tdtoMinimumTrueLooks :: !(Maybe Int64)
452− , _tdStartDate :: !(Maybe DateTime)
452+ , _tdtoStartDate :: !(Maybe DateTime)
453− , _tdCreativeBlockingLevel :: !(Maybe Text)
453+ , _tdtoCreativeBlockingLevel :: !(Maybe Text)
454− , _tdSemiTransparent :: !(Maybe Bool)
454+ , _tdtoSemiTransparent :: !(Maybe Bool)
455− , _tdAudienceSegment :: !(Maybe AudienceSegment)
455+ , _tdtoAudienceSegment :: !(Maybe AudienceSegment)
456− , _tdDealPremium :: !(Maybe MoneyDto)
456+ , _tdtoDealPremium :: !(Maybe MoneyDTO)
457− , _tdIsReservation :: !(Maybe Bool)
457+ , _tdtoIsReservation :: !(Maybe Bool)
458− , _tdAdSlots :: !(Maybe [AdSlotDto])
458+ , _tdtoAdSlots :: !(Maybe [AdSlotDTO])
459− , _tdTermsAttributes :: !(Maybe [Text])
459+ , _tdtoTermsAttributes :: !(Maybe [Text])
460− , _tdInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
460+ , _tdtoInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
461− , _tdDescriptiveName :: !(Maybe Text)
461+ , _tdtoDescriptiveName :: !(Maybe Text)
462− , _tdMinimumSpendMicros :: !(Maybe Int64)
462+ , _tdtoMinimumSpendMicros :: !(Maybe Int64)
463− , _tdTargetByDealId :: !(Maybe Bool)
463+ , _tdtoTargetByDealId :: !(Maybe Bool)
464− , _tdBillingTerms :: !(Maybe Text)
464+ , _tdtoBillingTerms :: !(Maybe Text)
465− , _tdDescription :: !(Maybe Text)
465+ , _tdtoDescription :: !(Maybe Text)
466 } deriving (Eq,Read,Show,Data,Typeable,Generic)
466 } deriving (Eq,Read,Show,Data,Typeable,Generic)
467
467
468−-- | Creates a value of 'TermsDto' with the minimum fields required to make a request.
468+-- | Creates a value of 'TermsDTO' with the minimum fields required to make a request.
469--
469--
470-- Use one of the following lenses to modify other fields as desired:
470-- Use one of the following lenses to modify other fields as desired:
471--
471--
472−-- * 'tdFinalizeAutomatically'
472+-- * 'tdtoFinalizeAutomatically'
473--
473--
474−-- * 'tdBuyerBillingType'
474+-- * 'tdtoBuyerBillingType'
475--
475--
476−-- * 'tdTargetingAllAdSlots'
476+-- * 'tdtoTargetingAllAdSlots'
477--
477--
478−-- * 'tdURLs'
478+-- * 'tdtoURLs'
479--
479--
480−-- * 'tdEndDate'
480+-- * 'tdtoEndDate'
481--
481--
482−-- * 'tdCpm'
482+-- * 'tdtoCpm'
483--
483--
484−-- * 'tdEstimatedSpend'
484+-- * 'tdtoEstimatedSpend'
485--
485--
486−-- * 'tdAdvertisers'
486+-- * 'tdtoAdvertisers'
487--
487--
488−-- * 'tdEstimatedImpressionsPerDay'
488+-- * 'tdtoEstimatedImpressionsPerDay'
489--
489--
490−-- * 'tdMonetizerType'
490+-- * 'tdtoMonetizerType'
491--
491--
492−-- * 'tdAudienceSegmentDescription'
492+-- * 'tdtoAudienceSegmentDescription'
493--
493--
494−-- * 'tdCreativeReviewPolicy'
494+-- * 'tdtoCreativeReviewPolicy'
495--
495--
496−-- * 'tdMinimumTrueLooks'
496+-- * 'tdtoMinimumTrueLooks'
497--
497--
498−-- * 'tdStartDate'
498+-- * 'tdtoStartDate'
499--
499--
500−-- * 'tdCreativeBlockingLevel'
500+-- * 'tdtoCreativeBlockingLevel'
501--
501--
502−-- * 'tdSemiTransparent'
502+-- * 'tdtoSemiTransparent'
503--
503--
504−-- * 'tdAudienceSegment'
504+-- * 'tdtoAudienceSegment'
505--
505--
506−-- * 'tdDealPremium'
506+-- * 'tdtoDealPremium'
507--
507--
508−-- * 'tdIsReservation'
508+-- * 'tdtoIsReservation'
509--
509--
510−-- * 'tdAdSlots'
510+-- * 'tdtoAdSlots'
511--
511--
512−-- * 'tdTermsAttributes'
512+-- * 'tdtoTermsAttributes'
513--
513--
514−-- * 'tdInventorySegmentTargeting'
514+-- * 'tdtoInventorySegmentTargeting'
515--
515--
516−-- * 'tdDescriptiveName'
516+-- * 'tdtoDescriptiveName'
517--
517--
518−-- * 'tdMinimumSpendMicros'
518+-- * 'tdtoMinimumSpendMicros'
519--
519--
520−-- * 'tdTargetByDealId'
520+-- * 'tdtoTargetByDealId'
521--
521--
522−-- * 'tdBillingTerms'
522+-- * 'tdtoBillingTerms'
523--
523--
524−-- * 'tdDescription'
524+-- * 'tdtoDescription'
525−termsDto
525+termsDTO
526− :: TermsDto
526+ :: TermsDTO
527−termsDto =
527+termsDTO =
528− TermsDto
528+ TermsDTO
529− { _tdFinalizeAutomatically = Nothing
529+ { _tdtoFinalizeAutomatically = Nothing
530− , _tdBuyerBillingType = Nothing
530+ , _tdtoBuyerBillingType = Nothing
531− , _tdTargetingAllAdSlots = Nothing
531+ , _tdtoTargetingAllAdSlots = Nothing
532− , _tdURLs = Nothing
532+ , _tdtoURLs = Nothing
533− , _tdEndDate = Nothing
533+ , _tdtoEndDate = Nothing
534− , _tdCpm = Nothing
534+ , _tdtoCpm = Nothing
535− , _tdEstimatedSpend = Nothing
535+ , _tdtoEstimatedSpend = Nothing
536− , _tdAdvertisers = Nothing
536+ , _tdtoAdvertisers = Nothing
537− , _tdEstimatedImpressionsPerDay = Nothing
537+ , _tdtoEstimatedImpressionsPerDay = Nothing
538− , _tdMonetizerType = Nothing
538+ , _tdtoMonetizerType = Nothing
539− , _tdAudienceSegmentDescription = Nothing
539+ , _tdtoAudienceSegmentDescription = Nothing
540− , _tdCreativeReviewPolicy = Nothing
540+ , _tdtoCreativeReviewPolicy = Nothing
541− , _tdMinimumTrueLooks = Nothing
541+ , _tdtoMinimumTrueLooks = Nothing
542− , _tdStartDate = Nothing
542+ , _tdtoStartDate = Nothing
543− , _tdCreativeBlockingLevel = Nothing
543+ , _tdtoCreativeBlockingLevel = Nothing
544− , _tdSemiTransparent = Nothing
544+ , _tdtoSemiTransparent = Nothing
545− , _tdAudienceSegment = Nothing
545+ , _tdtoAudienceSegment = Nothing
546− , _tdDealPremium = Nothing
546+ , _tdtoDealPremium = Nothing
547− , _tdIsReservation = Nothing
547+ , _tdtoIsReservation = Nothing
548− , _tdAdSlots = Nothing
548+ , _tdtoAdSlots = Nothing
549− , _tdTermsAttributes = Nothing
549+ , _tdtoTermsAttributes = Nothing
550− , _tdInventorySegmentTargeting = Nothing
550+ , _tdtoInventorySegmentTargeting = Nothing
551− , _tdDescriptiveName = Nothing
551+ , _tdtoDescriptiveName = Nothing
552− , _tdMinimumSpendMicros = Nothing
552+ , _tdtoMinimumSpendMicros = Nothing
553− , _tdTargetByDealId = Nothing
553+ , _tdtoTargetByDealId = Nothing
554− , _tdBillingTerms = Nothing
554+ , _tdtoBillingTerms = Nothing
555− , _tdDescription = Nothing
555+ , _tdtoDescription = Nothing
556 }
556 }
557
557
558-- | If true, the offer will finalize automatically when accepted.
558-- | If true, the offer will finalize automatically when accepted.
559−tdFinalizeAutomatically :: Lens' TermsDto (Maybe Bool)
559+tdtoFinalizeAutomatically :: Lens' TermsDTO (Maybe Bool)
560−tdFinalizeAutomatically
560+tdtoFinalizeAutomatically
561− = lens _tdFinalizeAutomatically
561+ = lens _tdtoFinalizeAutomatically
562− (\ s a -> s{_tdFinalizeAutomatically = a})
562+ (\ s a -> s{_tdtoFinalizeAutomatically = a})
563
563
564-- | The buyer billing type.
564-- | The buyer billing type.
565−tdBuyerBillingType :: Lens' TermsDto (Maybe Text)
565+tdtoBuyerBillingType :: Lens' TermsDTO (Maybe Text)
566−tdBuyerBillingType
566+tdtoBuyerBillingType
567− = lens _tdBuyerBillingType
567+ = lens _tdtoBuyerBillingType
568− (\ s a -> s{_tdBuyerBillingType = a})
568+ (\ s a -> s{_tdtoBuyerBillingType = a})
569
569
570-- | If true, the offer targets all ad slots.
570-- | If true, the offer targets all ad slots.
571−tdTargetingAllAdSlots :: Lens' TermsDto (Maybe Bool)
571+tdtoTargetingAllAdSlots :: Lens' TermsDTO (Maybe Bool)
572−tdTargetingAllAdSlots
572+tdtoTargetingAllAdSlots
573− = lens _tdTargetingAllAdSlots
573+ = lens _tdtoTargetingAllAdSlots
574− (\ s a -> s{_tdTargetingAllAdSlots = a})
574+ (\ s a -> s{_tdtoTargetingAllAdSlots = a})
575
575
576-- | The urls applicable to the offer.
576-- | The urls applicable to the offer.
577−tdURLs :: Lens' TermsDto [Text]
577+tdtoURLs :: Lens' TermsDTO [Text]
578−tdURLs
578+tdtoURLs
579+ = lens _tdtoURLs (\ s a -> s{_tdtoURLs = a}) .
579− = lens _tdURLs (\ s a -> s{_tdURLs = a}) . _Default .
580+ _Default
580− _Coerce
581+ . _Coerce
581
582
582-- | The end date for the offer.
583-- | The end date for the offer.
583−tdEndDate :: Lens' TermsDto (Maybe DateTime)
584+tdtoEndDate :: Lens' TermsDTO (Maybe DateTime)
584−tdEndDate
585+tdtoEndDate
585− = lens _tdEndDate (\ s a -> s{_tdEndDate = a})
586+ = lens _tdtoEndDate (\ s a -> s{_tdtoEndDate = a})
586
587
587-- | The cpm terms.
588-- | The cpm terms.
588−tdCpm :: Lens' TermsDto (Maybe MoneyDto)
589+tdtoCpm :: Lens' TermsDTO (Maybe MoneyDTO)
589−tdCpm = lens _tdCpm (\ s a -> s{_tdCpm = a})
590+tdtoCpm = lens _tdtoCpm (\ s a -> s{_tdtoCpm = a})
590
591
591-- | The estimated spend for the offer.
592-- | The estimated spend for the offer.
592−tdEstimatedSpend :: Lens' TermsDto (Maybe MoneyDto)
593+tdtoEstimatedSpend :: Lens' TermsDTO (Maybe MoneyDTO)
593−tdEstimatedSpend
594+tdtoEstimatedSpend
594− = lens _tdEstimatedSpend
595+ = lens _tdtoEstimatedSpend
595− (\ s a -> s{_tdEstimatedSpend = a})
596+ (\ s a -> s{_tdtoEstimatedSpend = a})
596
597
597-- | A list of advertisers for this offer.
598-- | A list of advertisers for this offer.
598−tdAdvertisers :: Lens' TermsDto [AdvertiserDto]
599+tdtoAdvertisers :: Lens' TermsDTO [AdvertiserDTO]
599−tdAdvertisers
600+tdtoAdvertisers
600− = lens _tdAdvertisers
601+ = lens _tdtoAdvertisers
601− (\ s a -> s{_tdAdvertisers = a})
602+ (\ s a -> s{_tdtoAdvertisers = a})
602 . _Default
603 . _Default
603 . _Coerce
604 . _Coerce
604
605
605-- | The estimated daily impressions for the offer.
606-- | The estimated daily impressions for the offer.
606−tdEstimatedImpressionsPerDay :: Lens' TermsDto (Maybe Int64)
607+tdtoEstimatedImpressionsPerDay :: Lens' TermsDTO (Maybe Int64)
607−tdEstimatedImpressionsPerDay
608+tdtoEstimatedImpressionsPerDay
608− = lens _tdEstimatedImpressionsPerDay
609+ = lens _tdtoEstimatedImpressionsPerDay
609− (\ s a -> s{_tdEstimatedImpressionsPerDay = a})
610+ (\ s a -> s{_tdtoEstimatedImpressionsPerDay = a})
610
611
611-- | The monetizer type.
612-- | The monetizer type.
612−tdMonetizerType :: Lens' TermsDto (Maybe Text)
613+tdtoMonetizerType :: Lens' TermsDTO (Maybe Text)
613−tdMonetizerType
614+tdtoMonetizerType
614− = lens _tdMonetizerType
615+ = lens _tdtoMonetizerType
615− (\ s a -> s{_tdMonetizerType = a})
616+ (\ s a -> s{_tdtoMonetizerType = a})
616
617
617-- | A description of the audience segment for the offer.
618-- | A description of the audience segment for the offer.
618−tdAudienceSegmentDescription :: Lens' TermsDto (Maybe Text)
619+tdtoAudienceSegmentDescription :: Lens' TermsDTO (Maybe Text)
619−tdAudienceSegmentDescription
620+tdtoAudienceSegmentDescription
620− = lens _tdAudienceSegmentDescription
621+ = lens _tdtoAudienceSegmentDescription
621− (\ s a -> s{_tdAudienceSegmentDescription = a})
622+ (\ s a -> s{_tdtoAudienceSegmentDescription = a})
622
623
623-- | Whether to use publisher review policy or AdX review policy.
624-- | Whether to use publisher review policy or AdX review policy.
624−tdCreativeReviewPolicy :: Lens' TermsDto (Maybe Text)
625+tdtoCreativeReviewPolicy :: Lens' TermsDTO (Maybe Text)
625−tdCreativeReviewPolicy
626+tdtoCreativeReviewPolicy
626− = lens _tdCreativeReviewPolicy
627+ = lens _tdtoCreativeReviewPolicy
627− (\ s a -> s{_tdCreativeReviewPolicy = a})
628+ (\ s a -> s{_tdtoCreativeReviewPolicy = a})
628
629
629-- | The minimum true looks for the offer.
630-- | The minimum true looks for the offer.
630−tdMinimumTrueLooks :: Lens' TermsDto (Maybe Int64)
631+tdtoMinimumTrueLooks :: Lens' TermsDTO (Maybe Int64)
631−tdMinimumTrueLooks
632+tdtoMinimumTrueLooks
632− = lens _tdMinimumTrueLooks
633+ = lens _tdtoMinimumTrueLooks
633− (\ s a -> s{_tdMinimumTrueLooks = a})
634+ (\ s a -> s{_tdtoMinimumTrueLooks = a})
634
635
635-- | The start date for the offer.
636-- | The start date for the offer.
636−tdStartDate :: Lens' TermsDto (Maybe DateTime)
637+tdtoStartDate :: Lens' TermsDTO (Maybe DateTime)
637−tdStartDate
638+tdtoStartDate
638− = lens _tdStartDate (\ s a -> s{_tdStartDate = a})
639+ = lens _tdtoStartDate
640+ (\ s a -> s{_tdtoStartDate = a})
639
641
640-- | Whether to use or ignore publisher blocking rules.
642-- | Whether to use or ignore publisher blocking rules.
641−tdCreativeBlockingLevel :: Lens' TermsDto (Maybe Text)
643+tdtoCreativeBlockingLevel :: Lens' TermsDTO (Maybe Text)
642−tdCreativeBlockingLevel
644+tdtoCreativeBlockingLevel
643− = lens _tdCreativeBlockingLevel
645+ = lens _tdtoCreativeBlockingLevel
644− (\ s a -> s{_tdCreativeBlockingLevel = a})
646+ (\ s a -> s{_tdtoCreativeBlockingLevel = a})
645
647
646-- | Whether this offer is semi-transparent.
648-- | Whether this offer is semi-transparent.
647−tdSemiTransparent :: Lens' TermsDto (Maybe Bool)
649+tdtoSemiTransparent :: Lens' TermsDTO (Maybe Bool)
648−tdSemiTransparent
650+tdtoSemiTransparent
649− = lens _tdSemiTransparent
651+ = lens _tdtoSemiTransparent
650− (\ s a -> s{_tdSemiTransparent = a})
652+ (\ s a -> s{_tdtoSemiTransparent = a})
651
653
652-- | The audience segment for the offer.
654-- | The audience segment for the offer.
653−tdAudienceSegment :: Lens' TermsDto (Maybe AudienceSegment)
655+tdtoAudienceSegment :: Lens' TermsDTO (Maybe AudienceSegment)
654−tdAudienceSegment
656+tdtoAudienceSegment
655− = lens _tdAudienceSegment
657+ = lens _tdtoAudienceSegment
656− (\ s a -> s{_tdAudienceSegment = a})
658+ (\ s a -> s{_tdtoAudienceSegment = a})
657
659
658-- | The premium terms.
660-- | The premium terms.
659−tdDealPremium :: Lens' TermsDto (Maybe MoneyDto)
661+tdtoDealPremium :: Lens' TermsDTO (Maybe MoneyDTO)
660−tdDealPremium
662+tdtoDealPremium
661− = lens _tdDealPremium
663+ = lens _tdtoDealPremium
662− (\ s a -> s{_tdDealPremium = a})
664+ (\ s a -> s{_tdtoDealPremium = a})
663
665
664-- | Whether the offer is a reservation.
666-- | Whether the offer is a reservation.
665−tdIsReservation :: Lens' TermsDto (Maybe Bool)
667+tdtoIsReservation :: Lens' TermsDTO (Maybe Bool)
666−tdIsReservation
668+tdtoIsReservation
667− = lens _tdIsReservation
669+ = lens _tdtoIsReservation
668− (\ s a -> s{_tdIsReservation = a})
670+ (\ s a -> s{_tdtoIsReservation = a})
669
671
670-- | The particular ad slots targeted by the offer.
672-- | The particular ad slots targeted by the offer.
671−tdAdSlots :: Lens' TermsDto [AdSlotDto]
673+tdtoAdSlots :: Lens' TermsDTO [AdSlotDTO]
672−tdAdSlots
674+tdtoAdSlots
673− = lens _tdAdSlots (\ s a -> s{_tdAdSlots = a}) .
675+ = lens _tdtoAdSlots (\ s a -> s{_tdtoAdSlots = a}) .
674 _Default
676 _Default
675 . _Coerce
677 . _Coerce
676
678
677-- | A list of terms attributes.
679-- | A list of terms attributes.
678−tdTermsAttributes :: Lens' TermsDto [Text]
680+tdtoTermsAttributes :: Lens' TermsDTO [Text]
679−tdTermsAttributes
681+tdtoTermsAttributes
680− = lens _tdTermsAttributes
682+ = lens _tdtoTermsAttributes
681− (\ s a -> s{_tdTermsAttributes = a})
683+ (\ s a -> s{_tdtoTermsAttributes = a})
682 . _Default
684 . _Default
683 . _Coerce
685 . _Coerce
684
686
685-- | The inventory segment targeting for the offer.
687-- | The inventory segment targeting for the offer.
686−tdInventorySegmentTargeting :: Lens' TermsDto (Maybe InventorySegmentTargeting)
688+tdtoInventorySegmentTargeting :: Lens' TermsDTO (Maybe InventorySegmentTargeting)
687−tdInventorySegmentTargeting
689+tdtoInventorySegmentTargeting
688− = lens _tdInventorySegmentTargeting
690+ = lens _tdtoInventorySegmentTargeting
689− (\ s a -> s{_tdInventorySegmentTargeting = a})
691+ (\ s a -> s{_tdtoInventorySegmentTargeting = a})
690
692
691-- | A descriptive name for these terms.
693-- | A descriptive name for these terms.
692−tdDescriptiveName :: Lens' TermsDto (Maybe Text)
694+tdtoDescriptiveName :: Lens' TermsDTO (Maybe Text)
693−tdDescriptiveName
695+tdtoDescriptiveName
694− = lens _tdDescriptiveName
696+ = lens _tdtoDescriptiveName
695− (\ s a -> s{_tdDescriptiveName = a})
697+ (\ s a -> s{_tdtoDescriptiveName = a})
696
698
697-- | The minimum spend for the offer.
699-- | The minimum spend for the offer.
698−tdMinimumSpendMicros :: Lens' TermsDto (Maybe Int64)
700+tdtoMinimumSpendMicros :: Lens' TermsDTO (Maybe Int64)
699−tdMinimumSpendMicros
701+tdtoMinimumSpendMicros
700− = lens _tdMinimumSpendMicros
702+ = lens _tdtoMinimumSpendMicros
701− (\ s a -> s{_tdMinimumSpendMicros = a})
703+ (\ s a -> s{_tdtoMinimumSpendMicros = a})
702
704
703-- | Whether to target by deal id.
705-- | Whether to target by deal id.
704−tdTargetByDealId :: Lens' TermsDto (Maybe Bool)
706+tdtoTargetByDealId :: Lens' TermsDTO (Maybe Bool)
705−tdTargetByDealId
707+tdtoTargetByDealId
706− = lens _tdTargetByDealId
708+ = lens _tdtoTargetByDealId
707− (\ s a -> s{_tdTargetByDealId = a})
709+ (\ s a -> s{_tdtoTargetByDealId = a})
708
710
709-- | The billing terms.
711-- | The billing terms.
710−tdBillingTerms :: Lens' TermsDto (Maybe Text)
712+tdtoBillingTerms :: Lens' TermsDTO (Maybe Text)
711−tdBillingTerms
713+tdtoBillingTerms
712− = lens _tdBillingTerms
714+ = lens _tdtoBillingTerms
713− (\ s a -> s{_tdBillingTerms = a})
715+ (\ s a -> s{_tdtoBillingTerms = a})
714
716
715-- | A description for these terms.
717-- | A description for these terms.
716−tdDescription :: Lens' TermsDto (Maybe Text)
718+tdtoDescription :: Lens' TermsDTO (Maybe Text)
717−tdDescription
719+tdtoDescription
718− = lens _tdDescription
720+ = lens _tdtoDescription
719− (\ s a -> s{_tdDescription = a})
721+ (\ s a -> s{_tdtoDescription = a})
720
722
721−instance FromJSON TermsDto where
723+instance FromJSON TermsDTO where
722 parseJSON
724 parseJSON
723− = withObject "TermsDto"
725+ = withObject "TermsDTO"
724 (\ o ->
726 (\ o ->
725− TermsDto <$>
727+ TermsDTO <$>
726 (o .:? "finalizeAutomatically") <*>
728 (o .:? "finalizeAutomatically") <*>
727 (o .:? "buyerBillingType")
729 (o .:? "buyerBillingType")
728 <*> (o .:? "targetingAllAdSlots")
730 <*> (o .:? "targetingAllAdSlots")
@@ -751,43 +753,45 @@ instance FromJSON TermsDto where
751 <*> (o .:? "billingTerms")
753 <*> (o .:? "billingTerms")
752 <*> (o .:? "description"))
754 <*> (o .:? "description"))
753
755
754−instance ToJSON TermsDto where
756+instance ToJSON TermsDTO where
755− toJSON TermsDto{..}
757+ toJSON TermsDTO{..}
756 = object
758 = object
757 (catMaybes
759 (catMaybes
758 [("finalizeAutomatically" .=) <$>
760 [("finalizeAutomatically" .=) <$>
759− _tdFinalizeAutomatically,
761+ _tdtoFinalizeAutomatically,
760− ("buyerBillingType" .=) <$> _tdBuyerBillingType,
762+ ("buyerBillingType" .=) <$> _tdtoBuyerBillingType,
761 ("targetingAllAdSlots" .=) <$>
763 ("targetingAllAdSlots" .=) <$>
762− _tdTargetingAllAdSlots,
764+ _tdtoTargetingAllAdSlots,
763− ("urls" .=) <$> _tdURLs,
765+ ("urls" .=) <$> _tdtoURLs,
764− ("endDate" .=) <$> _tdEndDate, ("cpm" .=) <$> _tdCpm,
766+ ("endDate" .=) <$> _tdtoEndDate,
767+ ("cpm" .=) <$> _tdtoCpm,
765− ("estimatedSpend" .=) <$> _tdEstimatedSpend,
768+ ("estimatedSpend" .=) <$> _tdtoEstimatedSpend,
766− ("advertisers" .=) <$> _tdAdvertisers,
769+ ("advertisers" .=) <$> _tdtoAdvertisers,
767 ("estimatedImpressionsPerDay" .=) <$>
770 ("estimatedImpressionsPerDay" .=) <$>
768− _tdEstimatedImpressionsPerDay,
771+ _tdtoEstimatedImpressionsPerDay,
769− ("monetizerType" .=) <$> _tdMonetizerType,
772+ ("monetizerType" .=) <$> _tdtoMonetizerType,
770 ("audienceSegmentDescription" .=) <$>
773 ("audienceSegmentDescription" .=) <$>
771− _tdAudienceSegmentDescription,
774+ _tdtoAudienceSegmentDescription,
772 ("creativeReviewPolicy" .=) <$>
775 ("creativeReviewPolicy" .=) <$>
773− _tdCreativeReviewPolicy,
776+ _tdtoCreativeReviewPolicy,
774− ("minimumTrueLooks" .=) <$> _tdMinimumTrueLooks,
777+ ("minimumTrueLooks" .=) <$> _tdtoMinimumTrueLooks,
775− ("startDate" .=) <$> _tdStartDate,
778+ ("startDate" .=) <$> _tdtoStartDate,
776 ("creativeBlockingLevel" .=) <$>
779 ("creativeBlockingLevel" .=) <$>
777− _tdCreativeBlockingLevel,
780+ _tdtoCreativeBlockingLevel,
778− ("semiTransparent" .=) <$> _tdSemiTransparent,
781+ ("semiTransparent" .=) <$> _tdtoSemiTransparent,
779− ("audienceSegment" .=) <$> _tdAudienceSegment,
782+ ("audienceSegment" .=) <$> _tdtoAudienceSegment,
780− ("dealPremium" .=) <$> _tdDealPremium,
783+ ("dealPremium" .=) <$> _tdtoDealPremium,
781− ("isReservation" .=) <$> _tdIsReservation,
784+ ("isReservation" .=) <$> _tdtoIsReservation,
782− ("adSlots" .=) <$> _tdAdSlots,
785+ ("adSlots" .=) <$> _tdtoAdSlots,
783− ("termsAttributes" .=) <$> _tdTermsAttributes,
786+ ("termsAttributes" .=) <$> _tdtoTermsAttributes,
784 ("inventorySegmentTargeting" .=) <$>
787 ("inventorySegmentTargeting" .=) <$>
785− _tdInventorySegmentTargeting,
788+ _tdtoInventorySegmentTargeting,
786− ("descriptiveName" .=) <$> _tdDescriptiveName,
789+ ("descriptiveName" .=) <$> _tdtoDescriptiveName,
787− ("minimumSpendMicros" .=) <$> _tdMinimumSpendMicros,
790+ ("minimumSpendMicros" .=) <$>
791+ _tdtoMinimumSpendMicros,
788− ("targetByDealId" .=) <$> _tdTargetByDealId,
792+ ("targetByDealId" .=) <$> _tdtoTargetByDealId,
789− ("billingTerms" .=) <$> _tdBillingTerms,
793+ ("billingTerms" .=) <$> _tdtoBillingTerms,
790− ("description" .=) <$> _tdDescription])
794+ ("description" .=) <$> _tdtoDescription])
791
795
792-- | The creatives feed lists the active creatives for the Ad Exchange buyer
796-- | The creatives feed lists the active creatives for the Ad Exchange buyer
793-- accounts that the user has access to. Each entry in the feed corresponds
797-- accounts that the user has access to. Each entry in the feed corresponds
@@ -1052,79 +1056,81 @@ instance ToJSON MarketplaceDealParty where
1052 ("buyer" .=) <$> _mdpBuyer])
1056 ("buyer" .=) <$> _mdpBuyer])
1053
1057
1054--
1058--
1055−-- /See:/ 'dealPartyDto' smart constructor.
1059+-- /See:/ 'dealPartyDTO' smart constructor.
1056−data DealPartyDto = DealPartyDto
1060+data DealPartyDTO = DealPartyDTO
1057− { _dpdBuyerSellerRole :: !(Maybe Text)
1061+ { _dpdtoBuyerSellerRole :: !(Maybe Text)
1058− , _dpdCustomerId :: !(Maybe Int32)
1062+ , _dpdtoCustomerId :: !(Maybe Int32)
1059− , _dpdName :: !(Maybe Text)
1063+ , _dpdtoName :: !(Maybe Text)
1060− , _dpdWebProperty :: !(Maybe WebPropertyDto)
1064+ , _dpdtoWebProperty :: !(Maybe WebPropertyDTO)
1061− , _dpdBuyer :: !(Maybe BuyerDto)
1065+ , _dpdtoBuyer :: !(Maybe BuyerDTO)
1062 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1066 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1063
1067
1064−-- | Creates a value of 'DealPartyDto' with the minimum fields required to make a request.
1068+-- | Creates a value of 'DealPartyDTO' with the minimum fields required to make a request.
1065--
1069--
1066-- Use one of the following lenses to modify other fields as desired:
1070-- Use one of the following lenses to modify other fields as desired:
1067--
1071--
1068−-- * 'dpdBuyerSellerRole'
1072+-- * 'dpdtoBuyerSellerRole'
1069--
1073--
1070−-- * 'dpdCustomerId'
1074+-- * 'dpdtoCustomerId'
1071--
1075--
1072−-- * 'dpdName'
1076+-- * 'dpdtoName'
1073--
1077--
1074−-- * 'dpdWebProperty'
1078+-- * 'dpdtoWebProperty'
1075--
1079--
1076−-- * 'dpdBuyer'
1080+-- * 'dpdtoBuyer'
1077−dealPartyDto
1081+dealPartyDTO
1078− :: DealPartyDto
1082+ :: DealPartyDTO
1079−dealPartyDto =
1083+dealPartyDTO =
1080− DealPartyDto
1084+ DealPartyDTO
1081− { _dpdBuyerSellerRole = Nothing
1085+ { _dpdtoBuyerSellerRole = Nothing
1082− , _dpdCustomerId = Nothing
1086+ , _dpdtoCustomerId = Nothing
1083− , _dpdName = Nothing
1087+ , _dpdtoName = Nothing
1084− , _dpdWebProperty = Nothing
1088+ , _dpdtoWebProperty = Nothing
1085− , _dpdBuyer = Nothing
1089+ , _dpdtoBuyer = Nothing
1086 }
1090 }
1087
1091
1088−dpdBuyerSellerRole :: Lens' DealPartyDto (Maybe Text)
1092+dpdtoBuyerSellerRole :: Lens' DealPartyDTO (Maybe Text)
1089−dpdBuyerSellerRole
1093+dpdtoBuyerSellerRole
1090− = lens _dpdBuyerSellerRole
1094+ = lens _dpdtoBuyerSellerRole
1091− (\ s a -> s{_dpdBuyerSellerRole = a})
1095+ (\ s a -> s{_dpdtoBuyerSellerRole = a})
1092
1096
1093−dpdCustomerId :: Lens' DealPartyDto (Maybe Int32)
1097+dpdtoCustomerId :: Lens' DealPartyDTO (Maybe Int32)
1094−dpdCustomerId
1098+dpdtoCustomerId
1095− = lens _dpdCustomerId
1099+ = lens _dpdtoCustomerId
1096− (\ s a -> s{_dpdCustomerId = a})
1100+ (\ s a -> s{_dpdtoCustomerId = a})
1097
1101
1098−dpdName :: Lens' DealPartyDto (Maybe Text)
1102+dpdtoName :: Lens' DealPartyDTO (Maybe Text)
1099−dpdName = lens _dpdName (\ s a -> s{_dpdName = a})
1103+dpdtoName
1104+ = lens _dpdtoName (\ s a -> s{_dpdtoName = a})
1100
1105
1101−dpdWebProperty :: Lens' DealPartyDto (Maybe WebPropertyDto)
1106+dpdtoWebProperty :: Lens' DealPartyDTO (Maybe WebPropertyDTO)
1102−dpdWebProperty
1107+dpdtoWebProperty
1103− = lens _dpdWebProperty
1108+ = lens _dpdtoWebProperty
1104− (\ s a -> s{_dpdWebProperty = a})
1109+ (\ s a -> s{_dpdtoWebProperty = a})
1105
1110
1106−dpdBuyer :: Lens' DealPartyDto (Maybe BuyerDto)
1111+dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO)
1107−dpdBuyer = lens _dpdBuyer (\ s a -> s{_dpdBuyer = a})
1112+dpdtoBuyer
1113+ = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
1108
1114
1109−instance FromJSON DealPartyDto where
1115+instance FromJSON DealPartyDTO where
1110 parseJSON
1116 parseJSON
1111− = withObject "DealPartyDto"
1117+ = withObject "DealPartyDTO"
1112 (\ o ->
1118 (\ o ->
1113− DealPartyDto <$>
1119+ DealPartyDTO <$>
1114 (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1120 (o .:? "buyerSellerRole") <*> (o .:? "customerId")
1115 <*> (o .:? "name")
1121 <*> (o .:? "name")
1116 <*> (o .:? "webProperty")
1122 <*> (o .:? "webProperty")
1117 <*> (o .:? "buyer"))
1123 <*> (o .:? "buyer"))
1118
1124
1119−instance ToJSON DealPartyDto where
1125+instance ToJSON DealPartyDTO where
1120− toJSON DealPartyDto{..}
1126+ toJSON DealPartyDTO{..}
1121 = object
1127 = object
1122 (catMaybes
1128 (catMaybes
1123− [("buyerSellerRole" .=) <$> _dpdBuyerSellerRole,
1129+ [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1124− ("customerId" .=) <$> _dpdCustomerId,
1130+ ("customerId" .=) <$> _dpdtoCustomerId,
1125− ("name" .=) <$> _dpdName,
1131+ ("name" .=) <$> _dpdtoName,
1126− ("webProperty" .=) <$> _dpdWebProperty,
1132+ ("webProperty" .=) <$> _dpdtoWebProperty,
1127− ("buyer" .=) <$> _dpdBuyer])
1133+ ("buyer" .=) <$> _dpdtoBuyer])
1128
1134
1129--
1135--
1130-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
1136-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
@@ -1187,7 +1193,7 @@ instance ToJSON DeliveryControlFrequencyCap where
1187-- /See:/ 'getNegotiationsResponse' smart constructor.
1193-- /See:/ 'getNegotiationsResponse' smart constructor.
1188data GetNegotiationsResponse = GetNegotiationsResponse
1194data GetNegotiationsResponse = GetNegotiationsResponse
1189 { _gnrKind :: !Text
1195 { _gnrKind :: !Text
1190− , _gnrNegotiations :: !(Maybe [NegotiationDto])
1196+ , _gnrNegotiations :: !(Maybe [NegotiationDTO])
1191 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1197 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1192
1198
1193-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.
1199-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.
@@ -1208,7 +1214,7 @@ getNegotiationsResponse =
1208gnrKind :: Lens' GetNegotiationsResponse Text
1214gnrKind :: Lens' GetNegotiationsResponse Text
1209gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})
1215gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})
1210
1216
1211−gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDto]
1217+gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDTO]
1212gnrNegotiations
1218gnrNegotiations
1213 = lens _gnrNegotiations
1219 = lens _gnrNegotiations
1214 (\ s a -> s{_gnrNegotiations = a})
1220 (\ s a -> s{_gnrNegotiations = a})
@@ -1923,7 +1929,7 @@ data Creative = Creative
1923 , _cVersion :: !(Maybe Int32)
1929 , _cVersion :: !(Maybe Int32)
1924 , _cSensitiveCategories :: !(Maybe [Int32])
1930 , _cSensitiveCategories :: !(Maybe [Int32])
1925 , _cVideoURL :: !(Maybe Text)
1931 , _cVideoURL :: !(Maybe Text)
1926− , _cAPIUploadTimestamp :: !(Maybe DateTime)
1932+ , _cAPIUploadTimestamp :: !(Maybe DateTime')
1927 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictions])
1933 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictions])
1928 , _cOpenAuctionStatus :: !(Maybe Text)
1934 , _cOpenAuctionStatus :: !(Maybe Text)
1929 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1935 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -2164,6 +2170,7 @@ cAPIUploadTimestamp :: Lens' Creative (Maybe UTCTime)
2164cAPIUploadTimestamp
2170cAPIUploadTimestamp
2165 = lens _cAPIUploadTimestamp
2171 = lens _cAPIUploadTimestamp
2166 (\ s a -> s{_cAPIUploadTimestamp = a})
2172 (\ s a -> s{_cAPIUploadTimestamp = a})
2173+ . mapping _DateTime
2167
2174
2168-- | The granular status of this ad in specific contexts. A context here
2175-- | The granular status of this ad in specific contexts. A context here
2169-- relates to where something ultimately serves (for example, a physical
2176-- relates to where something ultimately serves (for example, a physical
@@ -2396,8 +2403,8 @@ instance ToJSON CreativeCorrections where
2396 ("details" .=) <$> _ccDetails])
2403 ("details" .=) <$> _ccDetails])
2397
2404
2398--
2405--
2399−-- /See:/ 'buyerDto' smart constructor.
2406+-- /See:/ 'buyerDTO' smart constructor.
2400−data BuyerDto = BuyerDto
2407+data BuyerDTO = BuyerDTO
2401 { _buySponsorAccountId :: !(Maybe Int32)
2408 { _buySponsorAccountId :: !(Maybe Int32)
2402 , _buyEnabledForInterestTargetingDeals :: !(Maybe Bool)
2409 , _buyEnabledForInterestTargetingDeals :: !(Maybe Bool)
2403 , _buyCustomerId :: !(Maybe Int32)
2410 , _buyCustomerId :: !(Maybe Int32)
@@ -2407,7 +2414,7 @@ data BuyerDto = BuyerDto
2407 , _buyId :: !(Maybe Int32)
2414 , _buyId :: !(Maybe Int32)
2408 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2415 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2409
2416
2410−-- | Creates a value of 'BuyerDto' with the minimum fields required to make a request.
2417+-- | Creates a value of 'BuyerDTO' with the minimum fields required to make a request.
2411--
2418--
2412-- Use one of the following lenses to modify other fields as desired:
2419-- Use one of the following lenses to modify other fields as desired:
2413--
2420--
@@ -2424,10 +2431,10 @@ data BuyerDto = BuyerDto
2424-- * 'buyDisplayName'
2431-- * 'buyDisplayName'
2425--
2432--
2426-- * 'buyId'
2433-- * 'buyId'
2427−buyerDto
2434+buyerDTO
2428− :: BuyerDto
2435+ :: BuyerDTO
2429−buyerDto =
2436+buyerDTO =
2430− BuyerDto
2437+ BuyerDTO
2431 { _buySponsorAccountId = Nothing
2438 { _buySponsorAccountId = Nothing
2432 , _buyEnabledForInterestTargetingDeals = Nothing
2439 , _buyEnabledForInterestTargetingDeals = Nothing
2433 , _buyCustomerId = Nothing
2440 , _buyCustomerId = Nothing
@@ -2437,44 +2444,44 @@ buyerDto =
2437 , _buyId = Nothing
2444 , _buyId = Nothing
2438 }
2445 }
2439
2446
2440−buySponsorAccountId :: Lens' BuyerDto (Maybe Int32)
2447+buySponsorAccountId :: Lens' BuyerDTO (Maybe Int32)
2441buySponsorAccountId
2448buySponsorAccountId
2442 = lens _buySponsorAccountId
2449 = lens _buySponsorAccountId
2443 (\ s a -> s{_buySponsorAccountId = a})
2450 (\ s a -> s{_buySponsorAccountId = a})
2444
2451
2445−buyEnabledForInterestTargetingDeals :: Lens' BuyerDto (Maybe Bool)
2452+buyEnabledForInterestTargetingDeals :: Lens' BuyerDTO (Maybe Bool)
2446buyEnabledForInterestTargetingDeals
2453buyEnabledForInterestTargetingDeals
2447 = lens _buyEnabledForInterestTargetingDeals
2454 = lens _buyEnabledForInterestTargetingDeals
2448 (\ s a ->
2455 (\ s a ->
2449 s{_buyEnabledForInterestTargetingDeals = a})
2456 s{_buyEnabledForInterestTargetingDeals = a})
2450
2457
2451−buyCustomerId :: Lens' BuyerDto (Maybe Int32)
2458+buyCustomerId :: Lens' BuyerDTO (Maybe Int32)
2452buyCustomerId
2459buyCustomerId
2453 = lens _buyCustomerId
2460 = lens _buyCustomerId
2454 (\ s a -> s{_buyCustomerId = a})
2461 (\ s a -> s{_buyCustomerId = a})
2455
2462
2456−buyEnabledForPreferredDeals :: Lens' BuyerDto (Maybe Bool)
2463+buyEnabledForPreferredDeals :: Lens' BuyerDTO (Maybe Bool)
2457buyEnabledForPreferredDeals
2464buyEnabledForPreferredDeals
2458 = lens _buyEnabledForPreferredDeals
2465 = lens _buyEnabledForPreferredDeals
2459 (\ s a -> s{_buyEnabledForPreferredDeals = a})
2466 (\ s a -> s{_buyEnabledForPreferredDeals = a})
2460
2467
2461−buyAccountId :: Lens' BuyerDto (Maybe Int32)
2468+buyAccountId :: Lens' BuyerDTO (Maybe Int32)
2462buyAccountId
2469buyAccountId
2463 = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
2470 = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
2464
2471
2465−buyDisplayName :: Lens' BuyerDto (Maybe Text)
2472+buyDisplayName :: Lens' BuyerDTO (Maybe Text)
2466buyDisplayName
2473buyDisplayName
2467 = lens _buyDisplayName
2474 = lens _buyDisplayName
2468 (\ s a -> s{_buyDisplayName = a})
2475 (\ s a -> s{_buyDisplayName = a})
2469
2476
2470−buyId :: Lens' BuyerDto (Maybe Int32)
2477+buyId :: Lens' BuyerDTO (Maybe Int32)
2471buyId = lens _buyId (\ s a -> s{_buyId = a})
2478buyId = lens _buyId (\ s a -> s{_buyId = a})
2472
2479
2473−instance FromJSON BuyerDto where
2480+instance FromJSON BuyerDTO where
2474 parseJSON
2481 parseJSON
2475− = withObject "BuyerDto"
2482+ = withObject "BuyerDTO"
2476 (\ o ->
2483 (\ o ->
2477− BuyerDto <$>
2484+ BuyerDTO <$>
2478 (o .:? "sponsorAccountId") <*>
2485 (o .:? "sponsorAccountId") <*>
2479 (o .:? "enabledForInterestTargetingDeals")
2486 (o .:? "enabledForInterestTargetingDeals")
2480 <*> (o .:? "customerId")
2487 <*> (o .:? "customerId")
@@ -2483,8 +2490,8 @@ instance FromJSON BuyerDto where
2483 <*> (o .:? "displayName")
2490 <*> (o .:? "displayName")
2484 <*> (o .:? "id"))
2491 <*> (o .:? "id"))
2485
2492
2486−instance ToJSON BuyerDto where
2493+instance ToJSON BuyerDTO where
2487− toJSON BuyerDto{..}
2494+ toJSON BuyerDTO{..}
2488 = object
2495 = object
2489 (catMaybes
2496 (catMaybes
2490 [("sponsorAccountId" .=) <$> _buySponsorAccountId,
2497 [("sponsorAccountId" .=) <$> _buySponsorAccountId,
@@ -2539,89 +2546,92 @@ instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
2539 [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2546 [("fixedPrices" .=) <$> _dtngfptFixedPrices])
2540
2547
2541--
2548--
2542−-- /See:/ 'adSlotDto' smart constructor.
2549+-- /See:/ 'adSlotDTO' smart constructor.
2543−data AdSlotDto = AdSlotDto
2550+data AdSlotDTO = AdSlotDTO
2544− { _asdWebPropertyId :: !(Maybe Int32)
2551+ { _asdtoWebPropertyId :: !(Maybe Int32)
2545− , _asdSize :: !(Maybe Text)
2552+ , _asdtoSize :: !(Maybe Text)
2546− , _asdChannelCode :: !(Maybe Text)
2553+ , _asdtoChannelCode :: !(Maybe Text)
2547− , _asdChannelId :: !(Maybe Int32)
2554+ , _asdtoChannelId :: !(Maybe Int32)
2548− , _asdName :: !(Maybe Text)
2555+ , _asdtoName :: !(Maybe Text)
2549− , _asdDescription :: !(Maybe Text)
2556+ , _asdtoDescription :: !(Maybe Text)
2550 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2557 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2551
2558
2552−-- | Creates a value of 'AdSlotDto' with the minimum fields required to make a request.
2559+-- | Creates a value of 'AdSlotDTO' with the minimum fields required to make a request.
2553--
2560--
2554-- Use one of the following lenses to modify other fields as desired:
2561-- Use one of the following lenses to modify other fields as desired:
2555--
2562--
2556−-- * 'asdWebPropertyId'
2563+-- * 'asdtoWebPropertyId'
2557--
2564--
2558−-- * 'asdSize'
2565+-- * 'asdtoSize'
2559--
2566--
2560−-- * 'asdChannelCode'
2567+-- * 'asdtoChannelCode'
2561--
2568--
2562−-- * 'asdChannelId'
2569+-- * 'asdtoChannelId'
2563--
2570--
2564−-- * 'asdName'
2571+-- * 'asdtoName'
2565--
2572--
2566−-- * 'asdDescription'
2573+-- * 'asdtoDescription'
2567−adSlotDto
2574+adSlotDTO
2568− :: AdSlotDto
2575+ :: AdSlotDTO
2569−adSlotDto =
2576+adSlotDTO =
2570− AdSlotDto
2577+ AdSlotDTO
2571− { _asdWebPropertyId = Nothing
2578+ { _asdtoWebPropertyId = Nothing
2572− , _asdSize = Nothing
2579+ , _asdtoSize = Nothing
2573− , _asdChannelCode = Nothing
2580+ , _asdtoChannelCode = Nothing
2574− , _asdChannelId = Nothing
2581+ , _asdtoChannelId = Nothing
2575− , _asdName = Nothing
2582+ , _asdtoName = Nothing
2576− , _asdDescription = Nothing
2583+ , _asdtoDescription = Nothing
2577 }
2584 }
2578
2585
2579−asdWebPropertyId :: Lens' AdSlotDto (Maybe Int32)
2586+asdtoWebPropertyId :: Lens' AdSlotDTO (Maybe Int32)
2580−asdWebPropertyId
2587+asdtoWebPropertyId
2581− = lens _asdWebPropertyId
2588+ = lens _asdtoWebPropertyId
2582− (\ s a -> s{_asdWebPropertyId = a})
2589+ (\ s a -> s{_asdtoWebPropertyId = a})
2583
2590
2584−asdSize :: Lens' AdSlotDto (Maybe Text)
2591+asdtoSize :: Lens' AdSlotDTO (Maybe Text)
2585−asdSize = lens _asdSize (\ s a -> s{_asdSize = a})
2592+asdtoSize
2593+ = lens _asdtoSize (\ s a -> s{_asdtoSize = a})
2586
2594
2587−asdChannelCode :: Lens' AdSlotDto (Maybe Text)
2595+asdtoChannelCode :: Lens' AdSlotDTO (Maybe Text)
2588−asdChannelCode
2596+asdtoChannelCode
2589− = lens _asdChannelCode
2597+ = lens _asdtoChannelCode
2590− (\ s a -> s{_asdChannelCode = a})
2598+ (\ s a -> s{_asdtoChannelCode = a})
2591
2599
2592−asdChannelId :: Lens' AdSlotDto (Maybe Int32)
2600+asdtoChannelId :: Lens' AdSlotDTO (Maybe Int32)
2593−asdChannelId
2601+asdtoChannelId
2594− = lens _asdChannelId (\ s a -> s{_asdChannelId = a})
2602+ = lens _asdtoChannelId
2603+ (\ s a -> s{_asdtoChannelId = a})
2595
2604
2596−asdName :: Lens' AdSlotDto (Maybe Text)
2605+asdtoName :: Lens' AdSlotDTO (Maybe Text)
2597−asdName = lens _asdName (\ s a -> s{_asdName = a})
2606+asdtoName
2607+ = lens _asdtoName (\ s a -> s{_asdtoName = a})
2598
2608
2599−asdDescription :: Lens' AdSlotDto (Maybe Text)
2609+asdtoDescription :: Lens' AdSlotDTO (Maybe Text)
2600−asdDescription
2610+asdtoDescription
2601− = lens _asdDescription
2611+ = lens _asdtoDescription
2602− (\ s a -> s{_asdDescription = a})
2612+ (\ s a -> s{_asdtoDescription = a})
2603
2613
2604−instance FromJSON AdSlotDto where
2614+instance FromJSON AdSlotDTO where
2605 parseJSON
2615 parseJSON
2606− = withObject "AdSlotDto"
2616+ = withObject "AdSlotDTO"
2607 (\ o ->
2617 (\ o ->
2608− AdSlotDto <$>
2618+ AdSlotDTO <$>
2609 (o .:? "webPropertyId") <*> (o .:? "size") <*>
2619 (o .:? "webPropertyId") <*> (o .:? "size") <*>
2610 (o .:? "channelCode")
2620 (o .:? "channelCode")
2611 <*> (o .:? "channelId")
2621 <*> (o .:? "channelId")
2612 <*> (o .:? "name")
2622 <*> (o .:? "name")
2613 <*> (o .:? "description"))
2623 <*> (o .:? "description"))
2614
2624
2615−instance ToJSON AdSlotDto where
2625+instance ToJSON AdSlotDTO where
2616− toJSON AdSlotDto{..}
2626+ toJSON AdSlotDTO{..}
2617 = object
2627 = object
2618 (catMaybes
2628 (catMaybes
2619− [("webPropertyId" .=) <$> _asdWebPropertyId,
2629+ [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2620− ("size" .=) <$> _asdSize,
2630+ ("size" .=) <$> _asdtoSize,
2621− ("channelCode" .=) <$> _asdChannelCode,
2631+ ("channelCode" .=) <$> _asdtoChannelCode,
2622− ("channelId" .=) <$> _asdChannelId,
2632+ ("channelId" .=) <$> _asdtoChannelId,
2623− ("name" .=) <$> _asdName,
2633+ ("name" .=) <$> _asdtoName,
2624− ("description" .=) <$> _asdDescription])
2634+ ("description" .=) <$> _asdtoDescription])
2625
2635
2626-- | The configuration data for an Ad Exchange performance report list.
2636-- | The configuration data for an Ad Exchange performance report list.
2627--
2637--
@@ -3867,168 +3877,173 @@ instance ToJSON PerformanceReportList where
3867 ("performanceReport" .=) <$> _prlPerformanceReport])
3877 ("performanceReport" .=) <$> _prlPerformanceReport])
3868
3878
3869--
3879--
3870−-- /See:/ 'negotiationDto' smart constructor.
3880+-- /See:/ 'negotiationDTO' smart constructor.
3871−data NegotiationDto = NegotiationDto
3881+data NegotiationDTO = NegotiationDTO
3872− { _ndNegotiationState :: !(Maybe Text)
3882+ { _ndtoNegotiationState :: !(Maybe Text)
3873− , _ndExternalDealId :: !(Maybe Int64)
3883+ , _ndtoExternalDealId :: !(Maybe Int64)
3874− , _ndStatus :: !(Maybe Text)
3884+ , _ndtoStatus :: !(Maybe Text)
3875− , _ndDealType :: !(Maybe Text)
3885+ , _ndtoDealType :: !(Maybe Text)
3876− , _ndNegotiationRounds :: !(Maybe [NegotiationRoundDto])
3886+ , _ndtoNegotiationRounds :: !(Maybe [NegotiationRoundDTO])
3877− , _ndKind :: !Text
3887+ , _ndtoKind :: !Text
3878− , _ndBilledBuyer :: !(Maybe DealPartyDto)
3888+ , _ndtoBilledBuyer :: !(Maybe DealPartyDTO)
3879− , _ndBuyerEmailContacts :: !(Maybe [Text])
3889+ , _ndtoBuyerEmailContacts :: !(Maybe [Text])
3880− , _ndStats :: !(Maybe StatsDto)
3890+ , _ndtoStats :: !(Maybe StatsDTO)
3881− , _ndSeller :: !(Maybe DealPartyDto)
3891+ , _ndtoSeller :: !(Maybe DealPartyDTO)
3882− , _ndLabelNames :: !(Maybe [Text])
3892+ , _ndtoLabelNames :: !(Maybe [Text])
3883− , _ndOfferId :: !(Maybe Int64)
3893+ , _ndtoOfferId :: !(Maybe Int64)
3884− , _ndNegotiationId :: !(Maybe Int64)
3894+ , _ndtoNegotiationId :: !(Maybe Int64)
3885− , _ndSellerEmailContacts :: !(Maybe [Text])
3895+ , _ndtoSellerEmailContacts :: !(Maybe [Text])
3886− , _ndBuyer :: !(Maybe DealPartyDto)
3896+ , _ndtoBuyer :: !(Maybe DealPartyDTO)
3887 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3897 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3888
3898
3889−-- | Creates a value of 'NegotiationDto' with the minimum fields required to make a request.
3899+-- | Creates a value of 'NegotiationDTO' with the minimum fields required to make a request.
3890--
3900--
3891-- Use one of the following lenses to modify other fields as desired:
3901-- Use one of the following lenses to modify other fields as desired:
3892--
3902--
3893−-- * 'ndNegotiationState'
3903+-- * 'ndtoNegotiationState'
3894--
3904--
3895−-- * 'ndExternalDealId'
3905+-- * 'ndtoExternalDealId'
3896--
3906--
3897−-- * 'ndStatus'
3907+-- * 'ndtoStatus'
3898--
3908--
3899−-- * 'ndDealType'
3909+-- * 'ndtoDealType'
3900--
3910--
3901−-- * 'ndNegotiationRounds'
3911+-- * 'ndtoNegotiationRounds'
3902--
3912--
3903−-- * 'ndKind'
3913+-- * 'ndtoKind'
3904--
3914--
3905−-- * 'ndBilledBuyer'
3915+-- * 'ndtoBilledBuyer'
3906--
3916--
3907−-- * 'ndBuyerEmailContacts'
3917+-- * 'ndtoBuyerEmailContacts'
3908--
3918--
3909−-- * 'ndStats'
3919+-- * 'ndtoStats'
3910--
3920--
3911−-- * 'ndSeller'
3921+-- * 'ndtoSeller'
3912--
3922--
3913−-- * 'ndLabelNames'
3923+-- * 'ndtoLabelNames'
3914--
3924--
3915−-- * 'ndOfferId'
3925+-- * 'ndtoOfferId'
3916--
3926--
3917−-- * 'ndNegotiationId'
3927+-- * 'ndtoNegotiationId'
3918--
3928--
3919−-- * 'ndSellerEmailContacts'
3929+-- * 'ndtoSellerEmailContacts'
3920--
3930--
3921−-- * 'ndBuyer'
3931+-- * 'ndtoBuyer'
3922−negotiationDto
3932+negotiationDTO
3923− :: NegotiationDto
3933+ :: NegotiationDTO
3924−negotiationDto =
3934+negotiationDTO =
3925− NegotiationDto
3935+ NegotiationDTO
3926− { _ndNegotiationState = Nothing
3936+ { _ndtoNegotiationState = Nothing
3927− , _ndExternalDealId = Nothing
3937+ , _ndtoExternalDealId = Nothing
3928− , _ndStatus = Nothing
3938+ , _ndtoStatus = Nothing
3929− , _ndDealType = Nothing
3939+ , _ndtoDealType = Nothing
3930− , _ndNegotiationRounds = Nothing
3940+ , _ndtoNegotiationRounds = Nothing
3931− , _ndKind = "adexchangebuyer#negotiation"
3941+ , _ndtoKind = "adexchangebuyer#negotiation"
3932− , _ndBilledBuyer = Nothing
3942+ , _ndtoBilledBuyer = Nothing
3933− , _ndBuyerEmailContacts = Nothing
3943+ , _ndtoBuyerEmailContacts = Nothing
3934− , _ndStats = Nothing
3944+ , _ndtoStats = Nothing
3935− , _ndSeller = Nothing
3945+ , _ndtoSeller = Nothing
3936− , _ndLabelNames = Nothing
3946+ , _ndtoLabelNames = Nothing
3937− , _ndOfferId = Nothing
3947+ , _ndtoOfferId = Nothing
3938− , _ndNegotiationId = Nothing
3948+ , _ndtoNegotiationId = Nothing
3939− , _ndSellerEmailContacts = Nothing
3949+ , _ndtoSellerEmailContacts = Nothing
3940− , _ndBuyer = Nothing
3950+ , _ndtoBuyer = Nothing
3941 }
3951 }
3942
3952
3943-- | The state of this negotiation.
3953-- | The state of this negotiation.
3944−ndNegotiationState :: Lens' NegotiationDto (Maybe Text)
3954+ndtoNegotiationState :: Lens' NegotiationDTO (Maybe Text)
3945−ndNegotiationState
3955+ndtoNegotiationState
3946− = lens _ndNegotiationState
3956+ = lens _ndtoNegotiationState
3947− (\ s a -> s{_ndNegotiationState = a})
3957+ (\ s a -> s{_ndtoNegotiationState = a})
3948
3958
3949-- | For finalized negotiations, the ID of the finalized deal.
3959-- | For finalized negotiations, the ID of the finalized deal.
3950−ndExternalDealId :: Lens' NegotiationDto (Maybe Int64)
3960+ndtoExternalDealId :: Lens' NegotiationDTO (Maybe Int64)
3951−ndExternalDealId
3961+ndtoExternalDealId
3952− = lens _ndExternalDealId
3962+ = lens _ndtoExternalDealId
3953− (\ s a -> s{_ndExternalDealId = a})
3963+ (\ s a -> s{_ndtoExternalDealId = a})
3954
3964
3955-- | The status of this negotiation.
3965-- | The status of this negotiation.
3956−ndStatus :: Lens' NegotiationDto (Maybe Text)
3966+ndtoStatus :: Lens' NegotiationDTO (Maybe Text)
3957−ndStatus = lens _ndStatus (\ s a -> s{_ndStatus = a})
3967+ndtoStatus
3968+ = lens _ndtoStatus (\ s a -> s{_ndtoStatus = a})
3958
3969
3959-- | The type of this deal.
3970-- | The type of this deal.
3960−ndDealType :: Lens' NegotiationDto (Maybe Text)
3971+ndtoDealType :: Lens' NegotiationDTO (Maybe Text)
3961−ndDealType
3972+ndtoDealType
3962− = lens _ndDealType (\ s a -> s{_ndDealType = a})
3973+ = lens _ndtoDealType (\ s a -> s{_ndtoDealType = a})
3963
3974
3964-- | The series of negotiation rounds for this negotiation.
3975-- | The series of negotiation rounds for this negotiation.
3965−ndNegotiationRounds :: Lens' NegotiationDto [NegotiationRoundDto]
3976+ndtoNegotiationRounds :: Lens' NegotiationDTO [NegotiationRoundDTO]
3966−ndNegotiationRounds
3977+ndtoNegotiationRounds
3967− = lens _ndNegotiationRounds
3978+ = lens _ndtoNegotiationRounds
3968− (\ s a -> s{_ndNegotiationRounds = a})
3979+ (\ s a -> s{_ndtoNegotiationRounds = a})
3969 . _Default
3980 . _Default
3970 . _Coerce
3981 . _Coerce
3971
3982
3972−ndKind :: Lens' NegotiationDto Text
3983+ndtoKind :: Lens' NegotiationDTO Text
3973−ndKind = lens _ndKind (\ s a -> s{_ndKind = a})
3984+ndtoKind = lens _ndtoKind (\ s a -> s{_ndtoKind = a})
3974
3985
3975-- | The billed buyer; Specified by a buyer buying through an intermediary.
3986-- | The billed buyer; Specified by a buyer buying through an intermediary.
3976−ndBilledBuyer :: Lens' NegotiationDto (Maybe DealPartyDto)
3987+ndtoBilledBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
3977−ndBilledBuyer
3988+ndtoBilledBuyer
3978− = lens _ndBilledBuyer
3989+ = lens _ndtoBilledBuyer
3979− (\ s a -> s{_ndBilledBuyer = a})
3990+ (\ s a -> s{_ndtoBilledBuyer = a})
3980
3991
3981-- | The buyer party\'s contact email.
3992-- | The buyer party\'s contact email.
3982−ndBuyerEmailContacts :: Lens' NegotiationDto [Text]
3993+ndtoBuyerEmailContacts :: Lens' NegotiationDTO [Text]
3983−ndBuyerEmailContacts
3994+ndtoBuyerEmailContacts
3984− = lens _ndBuyerEmailContacts
3995+ = lens _ndtoBuyerEmailContacts
3985− (\ s a -> s{_ndBuyerEmailContacts = a})
3996+ (\ s a -> s{_ndtoBuyerEmailContacts = a})
3986 . _Default
3997 . _Default
3987 . _Coerce
3998 . _Coerce
3988
3999
3989-- | The stats for this negotiation.
4000-- | The stats for this negotiation.
3990−ndStats :: Lens' NegotiationDto (Maybe StatsDto)
4001+ndtoStats :: Lens' NegotiationDTO (Maybe StatsDTO)
3991−ndStats = lens _ndStats (\ s a -> s{_ndStats = a})
4002+ndtoStats
4003+ = lens _ndtoStats (\ s a -> s{_ndtoStats = a})
3992
4004
3993-- | Details of the seller party in this negotiation.
4005-- | Details of the seller party in this negotiation.
3994−ndSeller :: Lens' NegotiationDto (Maybe DealPartyDto)
4006+ndtoSeller :: Lens' NegotiationDTO (Maybe DealPartyDTO)
3995−ndSeller = lens _ndSeller (\ s a -> s{_ndSeller = a})
4007+ndtoSeller
4008+ = lens _ndtoSeller (\ s a -> s{_ndtoSeller = a})
3996
4009
3997-- | A list of label names applicable to this negotiation.
4010-- | A list of label names applicable to this negotiation.
3998−ndLabelNames :: Lens' NegotiationDto [Text]
4011+ndtoLabelNames :: Lens' NegotiationDTO [Text]
3999−ndLabelNames
4012+ndtoLabelNames
4000− = lens _ndLabelNames (\ s a -> s{_ndLabelNames = a})
4013+ = lens _ndtoLabelNames
4014+ (\ s a -> s{_ndtoLabelNames = a})
4001 . _Default
4015 . _Default
4002 . _Coerce
4016 . _Coerce
4003
4017
4004-- | The ID of this negotiation\'s original offer.
4018-- | The ID of this negotiation\'s original offer.
4005−ndOfferId :: Lens' NegotiationDto (Maybe Int64)
4019+ndtoOfferId :: Lens' NegotiationDTO (Maybe Int64)
4006−ndOfferId
4020+ndtoOfferId
4007− = lens _ndOfferId (\ s a -> s{_ndOfferId = a})
4021+ = lens _ndtoOfferId (\ s a -> s{_ndtoOfferId = a})
4008
4022
4009-- | The unique ID of this negotiation.
4023-- | The unique ID of this negotiation.
4010−ndNegotiationId :: Lens' NegotiationDto (Maybe Int64)
4024+ndtoNegotiationId :: Lens' NegotiationDTO (Maybe Int64)
4011−ndNegotiationId
4025+ndtoNegotiationId
4012− = lens _ndNegotiationId
4026+ = lens _ndtoNegotiationId
4013− (\ s a -> s{_ndNegotiationId = a})
4027+ (\ s a -> s{_ndtoNegotiationId = a})
4014
4028
4015-- | The seller party\'s contact email.
4029-- | The seller party\'s contact email.
4016−ndSellerEmailContacts :: Lens' NegotiationDto [Text]
4030+ndtoSellerEmailContacts :: Lens' NegotiationDTO [Text]
4017−ndSellerEmailContacts
4031+ndtoSellerEmailContacts
4018− = lens _ndSellerEmailContacts
4032+ = lens _ndtoSellerEmailContacts
4019− (\ s a -> s{_ndSellerEmailContacts = a})
4033+ (\ s a -> s{_ndtoSellerEmailContacts = a})
4020 . _Default
4034 . _Default
4021 . _Coerce
4035 . _Coerce
4022
4036
4023-- | Details of the buyer party in this negotiation.
4037-- | Details of the buyer party in this negotiation.
4024−ndBuyer :: Lens' NegotiationDto (Maybe DealPartyDto)
4038+ndtoBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4025−ndBuyer = lens _ndBuyer (\ s a -> s{_ndBuyer = a})
4039+ndtoBuyer
4040+ = lens _ndtoBuyer (\ s a -> s{_ndtoBuyer = a})
4026
4041
4027−instance FromJSON NegotiationDto where
4042+instance FromJSON NegotiationDTO where
4028 parseJSON
4043 parseJSON
4029− = withObject "NegotiationDto"
4044+ = withObject "NegotiationDTO"
4030 (\ o ->
4045 (\ o ->
4031− NegotiationDto <$>
4046+ NegotiationDTO <$>
4032 (o .:? "negotiationState") <*>
4047 (o .:? "negotiationState") <*>
4033 (o .:? "externalDealId")
4048 (o .:? "externalDealId")
4034 <*> (o .:? "status")
4049 <*> (o .:? "status")
@@ -4045,26 +4060,27 @@ instance FromJSON NegotiationDto where
4045 <*> (o .:? "sellerEmailContacts" .!= mempty)
4060 <*> (o .:? "sellerEmailContacts" .!= mempty)
4046 <*> (o .:? "buyer"))
4061 <*> (o .:? "buyer"))
4047
4062
4048−instance ToJSON NegotiationDto where
4063+instance ToJSON NegotiationDTO where
4049− toJSON NegotiationDto{..}
4064+ toJSON NegotiationDTO{..}
4050 = object
4065 = object
4051 (catMaybes
4066 (catMaybes
4052− [("negotiationState" .=) <$> _ndNegotiationState,
4067+ [("negotiationState" .=) <$> _ndtoNegotiationState,
4053− ("externalDealId" .=) <$> _ndExternalDealId,
4068+ ("externalDealId" .=) <$> _ndtoExternalDealId,
4054− ("status" .=) <$> _ndStatus,
4069+ ("status" .=) <$> _ndtoStatus,
4055− ("dealType" .=) <$> _ndDealType,
4070+ ("dealType" .=) <$> _ndtoDealType,
4056− ("negotiationRounds" .=) <$> _ndNegotiationRounds,
4071+ ("negotiationRounds" .=) <$> _ndtoNegotiationRounds,
4057− Just ("kind" .= _ndKind),
4072+ Just ("kind" .= _ndtoKind),
4058− ("billedBuyer" .=) <$> _ndBilledBuyer,
4073+ ("billedBuyer" .=) <$> _ndtoBilledBuyer,
4059− ("buyerEmailContacts" .=) <$> _ndBuyerEmailContacts,
4074+ ("buyerEmailContacts" .=) <$>
4060− ("stats" .=) <$> _ndStats,
4075+ _ndtoBuyerEmailContacts,
4061− ("seller" .=) <$> _ndSeller,
4076+ ("stats" .=) <$> _ndtoStats,
4077+ ("seller" .=) <$> _ndtoSeller,
4062− ("labelNames" .=) <$> _ndLabelNames,
4078+ ("labelNames" .=) <$> _ndtoLabelNames,
4063− ("offerId" .=) <$> _ndOfferId,
4079+ ("offerId" .=) <$> _ndtoOfferId,
4064− ("negotiationId" .=) <$> _ndNegotiationId,
4080+ ("negotiationId" .=) <$> _ndtoNegotiationId,
4065 ("sellerEmailContacts" .=) <$>
4081 ("sellerEmailContacts" .=) <$>
4066− _ndSellerEmailContacts,
4082+ _ndtoSellerEmailContacts,
4067− ("buyer" .=) <$> _ndBuyer])
4083+ ("buyer" .=) <$> _ndtoBuyer])
4068
4084
4069--
4085--
4070-- /See:/ 'audienceSegment' smart constructor.
4086-- /See:/ 'audienceSegment' smart constructor.
@@ -4129,159 +4145,165 @@ instance ToJSON AudienceSegment where
4129 ("description" .=) <$> _asDescription])
4145 ("description" .=) <$> _asDescription])
4130
4146
4131--
4147--
4132−-- /See:/ 'offerDto' smart constructor.
4148+-- /See:/ 'offerDTO' smart constructor.
4133−data OfferDto = OfferDto
4149+data OfferDTO = OfferDTO
4134− { _odCreator :: !(Maybe DealPartyDto)
4150+ { _odtoCreator :: !(Maybe DealPartyDTO)
4135− , _odStatus :: !(Maybe Text)
4151+ , _odtoStatus :: !(Maybe Text)
4136− , _odOfferState :: !(Maybe Text)
4152+ , _odtoOfferState :: !(Maybe Text)
4137− , _odPointOfContact :: !(Maybe Text)
4153+ , _odtoPointOfContact :: !(Maybe Text)
4138− , _odTerms :: !(Maybe TermsDto)
4154+ , _odtoTerms :: !(Maybe TermsDTO)
4139− , _odKind :: !Text
4155+ , _odtoKind :: !Text
4140− , _odBilledBuyer :: !(Maybe DealPartyDto)
4156+ , _odtoBilledBuyer :: !(Maybe DealPartyDTO)
4141− , _odOpenToDealParties :: !(Maybe [DealPartyDto])
4157+ , _odtoOpenToDealParties :: !(Maybe [DealPartyDTO])
4142− , _odEmailContacts :: !(Maybe [Text])
4158+ , _odtoEmailContacts :: !(Maybe [Text])
4143− , _odLabelNames :: !(Maybe [Text])
4159+ , _odtoLabelNames :: !(Maybe [Text])
4144− , _odOfferId :: !(Maybe Int64)
4160+ , _odtoOfferId :: !(Maybe Int64)
4145− , _odClosedToDealParties :: !(Maybe [DealPartyDto])
4161+ , _odtoClosedToDealParties :: !(Maybe [DealPartyDTO])
4146− , _odAnonymous :: !(Maybe Bool)
4162+ , _odtoAnonymous :: !(Maybe Bool)
4147− , _odIsOpen :: !(Maybe Bool)
4163+ , _odtoIsOpen :: !(Maybe Bool)
4148 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4164 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4149
4165
4150−-- | Creates a value of 'OfferDto' with the minimum fields required to make a request.
4166+-- | Creates a value of 'OfferDTO' with the minimum fields required to make a request.
4151--
4167--
4152-- Use one of the following lenses to modify other fields as desired:
4168-- Use one of the following lenses to modify other fields as desired:
4153--
4169--
4154−-- * 'odCreator'
4170+-- * 'odtoCreator'
4155--
4171--
4156−-- * 'odStatus'
4172+-- * 'odtoStatus'
4157--
4173--
4158−-- * 'odOfferState'
4174+-- * 'odtoOfferState'
4159--
4175--
4160−-- * 'odPointOfContact'
4176+-- * 'odtoPointOfContact'
4161--
4177--
4162−-- * 'odTerms'
4178+-- * 'odtoTerms'
4163--
4179--
4164−-- * 'odKind'
4180+-- * 'odtoKind'
4165--
4181--
4166−-- * 'odBilledBuyer'
4182+-- * 'odtoBilledBuyer'
4167--
4183--
4168−-- * 'odOpenToDealParties'
4184+-- * 'odtoOpenToDealParties'
4169--
4185--
4170−-- * 'odEmailContacts'
4186+-- * 'odtoEmailContacts'
4171--
4187--
4172−-- * 'odLabelNames'
4188+-- * 'odtoLabelNames'
4173--
4189--
4174−-- * 'odOfferId'
4190+-- * 'odtoOfferId'
4175--
4191--
4176−-- * 'odClosedToDealParties'
4192+-- * 'odtoClosedToDealParties'
4177--
4193--
4178−-- * 'odAnonymous'
4194+-- * 'odtoAnonymous'
4179--
4195--
4180−-- * 'odIsOpen'
4196+-- * 'odtoIsOpen'
4181−offerDto
4197+offerDTO
4182− :: OfferDto
4198+ :: OfferDTO
4183−offerDto =
4199+offerDTO =
4184− OfferDto
4200+ OfferDTO
4185− { _odCreator = Nothing
4201+ { _odtoCreator = Nothing
4186− , _odStatus = Nothing
4202+ , _odtoStatus = Nothing
4187− , _odOfferState = Nothing
4203+ , _odtoOfferState = Nothing
4188− , _odPointOfContact = Nothing
4204+ , _odtoPointOfContact = Nothing
4189− , _odTerms = Nothing
4205+ , _odtoTerms = Nothing
4190− , _odKind = "adexchangebuyer#offer"
4206+ , _odtoKind = "adexchangebuyer#offer"
4191− , _odBilledBuyer = Nothing
4207+ , _odtoBilledBuyer = Nothing
4192− , _odOpenToDealParties = Nothing
4208+ , _odtoOpenToDealParties = Nothing
4193− , _odEmailContacts = Nothing
4209+ , _odtoEmailContacts = Nothing
4194− , _odLabelNames = Nothing
4210+ , _odtoLabelNames = Nothing
4195− , _odOfferId = Nothing
4211+ , _odtoOfferId = Nothing
4196− , _odClosedToDealParties = Nothing
4212+ , _odtoClosedToDealParties = Nothing
4197− , _odAnonymous = Nothing
4213+ , _odtoAnonymous = Nothing
4198− , _odIsOpen = Nothing
4214+ , _odtoIsOpen = Nothing
4199 }
4215 }
4200
4216
4201-- | The creator of this offer.
4217-- | The creator of this offer.
4202−odCreator :: Lens' OfferDto (Maybe DealPartyDto)
4218+odtoCreator :: Lens' OfferDTO (Maybe DealPartyDTO)
4203−odCreator
4219+odtoCreator
4204− = lens _odCreator (\ s a -> s{_odCreator = a})
4220+ = lens _odtoCreator (\ s a -> s{_odtoCreator = a})
4205
4221
4206-- | The status of this offer.
4222-- | The status of this offer.
4207−odStatus :: Lens' OfferDto (Maybe Text)
4223+odtoStatus :: Lens' OfferDTO (Maybe Text)
4208−odStatus = lens _odStatus (\ s a -> s{_odStatus = a})
4224+odtoStatus
4225+ = lens _odtoStatus (\ s a -> s{_odtoStatus = a})
4209
4226
4210-- | The state of this offer.
4227-- | The state of this offer.
4211−odOfferState :: Lens' OfferDto (Maybe Text)
4228+odtoOfferState :: Lens' OfferDTO (Maybe Text)
4212−odOfferState
4229+odtoOfferState
4213− = lens _odOfferState (\ s a -> s{_odOfferState = a})
4230+ = lens _odtoOfferState
4231+ (\ s a -> s{_odtoOfferState = a})
4214
4232
4215-- | The point of contact for this offer.
4233-- | The point of contact for this offer.
4216−odPointOfContact :: Lens' OfferDto (Maybe Text)
4234+odtoPointOfContact :: Lens' OfferDTO (Maybe Text)
4217−odPointOfContact
4235+odtoPointOfContact
4218− = lens _odPointOfContact
4236+ = lens _odtoPointOfContact
4219− (\ s a -> s{_odPointOfContact = a})
4237+ (\ s a -> s{_odtoPointOfContact = a})
4220
4238
4221-- | The terms of this offer.
4239-- | The terms of this offer.
4222−odTerms :: Lens' OfferDto (Maybe TermsDto)
4240+odtoTerms :: Lens' OfferDTO (Maybe TermsDTO)
4223−odTerms = lens _odTerms (\ s a -> s{_odTerms = a})
4241+odtoTerms
4242+ = lens _odtoTerms (\ s a -> s{_odtoTerms = a})
4224
4243
4225−odKind :: Lens' OfferDto Text
4244+odtoKind :: Lens' OfferDTO Text
4226−odKind = lens _odKind (\ s a -> s{_odKind = a})
4245+odtoKind = lens _odtoKind (\ s a -> s{_odtoKind = a})
4227
4246
4228-- | The billed buyer; For buyer initiated offers, buying through an
4247-- | The billed buyer; For buyer initiated offers, buying through an
4229-- intermediary.
4248-- intermediary.
4230−odBilledBuyer :: Lens' OfferDto (Maybe DealPartyDto)
4249+odtoBilledBuyer :: Lens' OfferDTO (Maybe DealPartyDTO)
4231−odBilledBuyer
4250+odtoBilledBuyer
4232− = lens _odBilledBuyer
4251+ = lens _odtoBilledBuyer
4233− (\ s a -> s{_odBilledBuyer = a})
4252+ (\ s a -> s{_odtoBilledBuyer = a})
4234
4253
4235-- | The list of buyer or seller parties this offer is open to.
4254-- | The list of buyer or seller parties this offer is open to.
4236−odOpenToDealParties :: Lens' OfferDto [DealPartyDto]
4255+odtoOpenToDealParties :: Lens' OfferDTO [DealPartyDTO]
4237−odOpenToDealParties
4256+odtoOpenToDealParties
4238− = lens _odOpenToDealParties
4257+ = lens _odtoOpenToDealParties
4239− (\ s a -> s{_odOpenToDealParties = a})
4258+ (\ s a -> s{_odtoOpenToDealParties = a})
4240 . _Default
4259 . _Default
4241 . _Coerce
4260 . _Coerce
4242
4261
4243-- | The list of email contacts for this offer.
4262-- | The list of email contacts for this offer.
4244−odEmailContacts :: Lens' OfferDto [Text]
4263+odtoEmailContacts :: Lens' OfferDTO [Text]
4245−odEmailContacts
4264+odtoEmailContacts
4246− = lens _odEmailContacts
4265+ = lens _odtoEmailContacts
4247− (\ s a -> s{_odEmailContacts = a})
4266+ (\ s a -> s{_odtoEmailContacts = a})
4248 . _Default
4267 . _Default
4249 . _Coerce
4268 . _Coerce
4250
4269
4251-- | The list of label names applicable to this offer.
4270-- | The list of label names applicable to this offer.
4252−odLabelNames :: Lens' OfferDto [Text]
4271+odtoLabelNames :: Lens' OfferDTO [Text]
4253−odLabelNames
4272+odtoLabelNames
4254− = lens _odLabelNames (\ s a -> s{_odLabelNames = a})
4273+ = lens _odtoLabelNames
4274+ (\ s a -> s{_odtoLabelNames = a})
4255 . _Default
4275 . _Default
4256 . _Coerce
4276 . _Coerce
4257
4277
4258-- | The unique ID of this offer.
4278-- | The unique ID of this offer.
4259−odOfferId :: Lens' OfferDto (Maybe Int64)
4279+odtoOfferId :: Lens' OfferDTO (Maybe Int64)
4260−odOfferId
4280+odtoOfferId
4261− = lens _odOfferId (\ s a -> s{_odOfferId = a})
4281+ = lens _odtoOfferId (\ s a -> s{_odtoOfferId = a})
4262
4282
4263-- | The list of buyer or seller parties this offer is closed to.
4283-- | The list of buyer or seller parties this offer is closed to.
4264−odClosedToDealParties :: Lens' OfferDto [DealPartyDto]
4284+odtoClosedToDealParties :: Lens' OfferDTO [DealPartyDTO]
4265−odClosedToDealParties
4285+odtoClosedToDealParties
4266− = lens _odClosedToDealParties
4286+ = lens _odtoClosedToDealParties
4267− (\ s a -> s{_odClosedToDealParties = a})
4287+ (\ s a -> s{_odtoClosedToDealParties = a})
4268 . _Default
4288 . _Default
4269 . _Coerce
4289 . _Coerce
4270
4290
4271-- | Whether this offer is anonymous.
4291-- | Whether this offer is anonymous.
4272−odAnonymous :: Lens' OfferDto (Maybe Bool)
4292+odtoAnonymous :: Lens' OfferDTO (Maybe Bool)
4273−odAnonymous
4293+odtoAnonymous
4274− = lens _odAnonymous (\ s a -> s{_odAnonymous = a})
4294+ = lens _odtoAnonymous
4295+ (\ s a -> s{_odtoAnonymous = a})
4275
4296
4276-- | Whether this offer is open.
4297-- | Whether this offer is open.
4277−odIsOpen :: Lens' OfferDto (Maybe Bool)
4298+odtoIsOpen :: Lens' OfferDTO (Maybe Bool)
4278−odIsOpen = lens _odIsOpen (\ s a -> s{_odIsOpen = a})
4299+odtoIsOpen
4300+ = lens _odtoIsOpen (\ s a -> s{_odtoIsOpen = a})
4279
4301
4280−instance FromJSON OfferDto where
4302+instance FromJSON OfferDTO where
4281 parseJSON
4303 parseJSON
4282− = withObject "OfferDto"
4304+ = withObject "OfferDTO"
4283 (\ o ->
4305 (\ o ->
4284− OfferDto <$>
4306+ OfferDTO <$>
4285 (o .:? "creator") <*> (o .:? "status") <*>
4307 (o .:? "creator") <*> (o .:? "status") <*>
4286 (o .:? "offerState")
4308 (o .:? "offerState")
4287 <*> (o .:? "pointOfContact")
4309 <*> (o .:? "pointOfContact")
@@ -4296,24 +4318,25 @@ instance FromJSON OfferDto where
4296 <*> (o .:? "anonymous")
4318 <*> (o .:? "anonymous")
4297 <*> (o .:? "isOpen"))
4319 <*> (o .:? "isOpen"))
4298
4320
4299−instance ToJSON OfferDto where
4321+instance ToJSON OfferDTO where
4300− toJSON OfferDto{..}
4322+ toJSON OfferDTO{..}
4301 = object
4323 = object
4302 (catMaybes
4324 (catMaybes
4303− [("creator" .=) <$> _odCreator,
4325+ [("creator" .=) <$> _odtoCreator,
4304− ("status" .=) <$> _odStatus,
4326+ ("status" .=) <$> _odtoStatus,
4305− ("offerState" .=) <$> _odOfferState,
4327+ ("offerState" .=) <$> _odtoOfferState,
4306− ("pointOfContact" .=) <$> _odPointOfContact,
4328+ ("pointOfContact" .=) <$> _odtoPointOfContact,
4307− ("terms" .=) <$> _odTerms, Just ("kind" .= _odKind),
4329+ ("terms" .=) <$> _odtoTerms,
4330+ Just ("kind" .= _odtoKind),
4308− ("billedBuyer" .=) <$> _odBilledBuyer,
4331+ ("billedBuyer" .=) <$> _odtoBilledBuyer,
4309− ("openToDealParties" .=) <$> _odOpenToDealParties,
4332+ ("openToDealParties" .=) <$> _odtoOpenToDealParties,
4310− ("emailContacts" .=) <$> _odEmailContacts,
4333+ ("emailContacts" .=) <$> _odtoEmailContacts,
4311− ("labelNames" .=) <$> _odLabelNames,
4334+ ("labelNames" .=) <$> _odtoLabelNames,
4312− ("offerId" .=) <$> _odOfferId,
4335+ ("offerId" .=) <$> _odtoOfferId,
4313 ("closedToDealParties" .=) <$>
4336 ("closedToDealParties" .=) <$>
4314− _odClosedToDealParties,
4337+ _odtoClosedToDealParties,
4315− ("anonymous" .=) <$> _odAnonymous,
4338+ ("anonymous" .=) <$> _odtoAnonymous,
4316− ("isOpen" .=) <$> _odIsOpen])
4339+ ("isOpen" .=) <$> _odtoIsOpen])
4317
4340
4318--
4341--
4319-- /See:/ 'targetingValueSize' smart constructor.
4342-- /See:/ 'targetingValueSize' smart constructor.
@@ -4743,48 +4766,49 @@ instance ToJSON AddOrderNotesResponse where
4743 = object (catMaybes [("notes" .=) <$> _aNotes])
4766 = object (catMaybes [("notes" .=) <$> _aNotes])
4744
4767
4745--
4768--
4746−-- /See:/ 'moneyDto' smart constructor.
4769+-- /See:/ 'moneyDTO' smart constructor.
4747−data MoneyDto = MoneyDto
4770+data MoneyDTO = MoneyDTO
4748− { _mdCurrencyCode :: !(Maybe Text)
4771+ { _mdtoCurrencyCode :: !(Maybe Text)
4749− , _mdMicros :: !(Maybe Int64)
4772+ , _mdtoMicros :: !(Maybe Int64)
4750 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4773 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4751
4774
4752−-- | Creates a value of 'MoneyDto' with the minimum fields required to make a request.
4775+-- | Creates a value of 'MoneyDTO' with the minimum fields required to make a request.
4753--
4776--
4754-- Use one of the following lenses to modify other fields as desired:
4777-- Use one of the following lenses to modify other fields as desired:
4755--
4778--
4756−-- * 'mdCurrencyCode'
4779+-- * 'mdtoCurrencyCode'
4757--
4780--
4758−-- * 'mdMicros'
4781+-- * 'mdtoMicros'
4759−moneyDto
4782+moneyDTO
4760− :: MoneyDto
4783+ :: MoneyDTO
4761−moneyDto =
4784+moneyDTO =
4762− MoneyDto
4785+ MoneyDTO
4763− { _mdCurrencyCode = Nothing
4786+ { _mdtoCurrencyCode = Nothing
4764− , _mdMicros = Nothing
4787+ , _mdtoMicros = Nothing
4765 }
4788 }
4766
4789
4767−mdCurrencyCode :: Lens' MoneyDto (Maybe Text)
4790+mdtoCurrencyCode :: Lens' MoneyDTO (Maybe Text)
4768−mdCurrencyCode
4791+mdtoCurrencyCode
4769− = lens _mdCurrencyCode
4792+ = lens _mdtoCurrencyCode
4770− (\ s a -> s{_mdCurrencyCode = a})
4793+ (\ s a -> s{_mdtoCurrencyCode = a})
4771
4794
4772−mdMicros :: Lens' MoneyDto (Maybe Int64)
4795+mdtoMicros :: Lens' MoneyDTO (Maybe Int64)
4773−mdMicros = lens _mdMicros (\ s a -> s{_mdMicros = a})
4796+mdtoMicros
4797+ = lens _mdtoMicros (\ s a -> s{_mdtoMicros = a})
4774
4798
4775−instance FromJSON MoneyDto where
4799+instance FromJSON MoneyDTO where
4776 parseJSON
4800 parseJSON
4777− = withObject "MoneyDto"
4801+ = withObject "MoneyDTO"
4778 (\ o ->
4802 (\ o ->
4779− MoneyDto <$>
4803+ MoneyDTO <$>
4780 (o .:? "currencyCode") <*> (o .:? "micros"))
4804 (o .:? "currencyCode") <*> (o .:? "micros"))
4781
4805
4782−instance ToJSON MoneyDto where
4806+instance ToJSON MoneyDTO where
4783− toJSON MoneyDto{..}
4807+ toJSON MoneyDTO{..}
4784 = object
4808 = object
4785 (catMaybes
4809 (catMaybes
4786− [("currencyCode" .=) <$> _mdCurrencyCode,
4810+ [("currencyCode" .=) <$> _mdtoCurrencyCode,
4787− ("micros" .=) <$> _mdMicros])
4811+ ("micros" .=) <$> _mdtoMicros])
4788
4812
4789--
4813--
4790-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
4814-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
@@ -4868,7 +4892,7 @@ instance ToJSON GetNegotiationByIdRequest where
4868-- /See:/ 'listOffersResponse' smart constructor.
4892-- /See:/ 'listOffersResponse' smart constructor.
4869data ListOffersResponse = ListOffersResponse
4893data ListOffersResponse = ListOffersResponse
4870 { _lorKind :: !Text
4894 { _lorKind :: !Text
4871− , _lorOffers :: !(Maybe [OfferDto])
4895+ , _lorOffers :: !(Maybe [OfferDTO])
4872 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4896 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4873
4897
4874-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.
4898-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.
@@ -4889,7 +4913,7 @@ listOffersResponse =
4889lorKind :: Lens' ListOffersResponse Text
4913lorKind :: Lens' ListOffersResponse Text
4890lorKind = lens _lorKind (\ s a -> s{_lorKind = a})
4914lorKind = lens _lorKind (\ s a -> s{_lorKind = a})
4891
4915
4892−lorOffers :: Lens' ListOffersResponse [OfferDto]
4916+lorOffers :: Lens' ListOffersResponse [OfferDTO]
4893lorOffers
4917lorOffers
4894 = lens _lorOffers (\ s a -> s{_lorOffers = a}) .
4918 = lens _lorOffers (\ s a -> s{_lorOffers = a}) .
4895 _Default
4919 _Default
@@ -4911,66 +4935,67 @@ instance ToJSON ListOffersResponse where
4911 ("offers" .=) <$> _lorOffers])
4935 ("offers" .=) <$> _lorOffers])
4912
4936
4913--
4937--
4914−-- /See:/ 'advertiserDto' smart constructor.
4938+-- /See:/ 'advertiserDTO' smart constructor.
4915−data AdvertiserDto = AdvertiserDto
4939+data AdvertiserDTO = AdvertiserDTO
4916− { _adStatus :: !(Maybe Text)
4940+ { _adtoStatus :: !(Maybe Text)
4917− , _adBrands :: !(Maybe [BrandDto])
4941+ , _adtoBrands :: !(Maybe [BrandDTO])
4918− , _adName :: !(Maybe Text)
4942+ , _adtoName :: !(Maybe Text)
4919− , _adId :: !(Maybe Int64)
4943+ , _adtoId :: !(Maybe Int64)
4920 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4944 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4921
4945
4922−-- | Creates a value of 'AdvertiserDto' with the minimum fields required to make a request.
4946+-- | Creates a value of 'AdvertiserDTO' with the minimum fields required to make a request.
4923--
4947--
4924-- Use one of the following lenses to modify other fields as desired:
4948-- Use one of the following lenses to modify other fields as desired:
4925--
4949--
4926−-- * 'adStatus'
4950+-- * 'adtoStatus'
4927--
4951--
4928−-- * 'adBrands'
4952+-- * 'adtoBrands'
4929--
4953--
4930−-- * 'adName'
4954+-- * 'adtoName'
4931--
4955--
4932−-- * 'adId'
4956+-- * 'adtoId'
4933−advertiserDto
4957+advertiserDTO
4934− :: AdvertiserDto
4958+ :: AdvertiserDTO
4935−advertiserDto =
4959+advertiserDTO =
4936− AdvertiserDto
4960+ AdvertiserDTO
4937− { _adStatus = Nothing
4961+ { _adtoStatus = Nothing
4938− , _adBrands = Nothing
4962+ , _adtoBrands = Nothing
4939− , _adName = Nothing
4963+ , _adtoName = Nothing
4940− , _adId = Nothing
4964+ , _adtoId = Nothing
4941 }
4965 }
4942
4966
4943−adStatus :: Lens' AdvertiserDto (Maybe Text)
4967+adtoStatus :: Lens' AdvertiserDTO (Maybe Text)
4944−adStatus = lens _adStatus (\ s a -> s{_adStatus = a})
4968+adtoStatus
4969+ = lens _adtoStatus (\ s a -> s{_adtoStatus = a})
4945
4970
4946−adBrands :: Lens' AdvertiserDto [BrandDto]
4971+adtoBrands :: Lens' AdvertiserDTO [BrandDTO]
4947−adBrands
4972+adtoBrands
4948− = lens _adBrands (\ s a -> s{_adBrands = a}) .
4973+ = lens _adtoBrands (\ s a -> s{_adtoBrands = a}) .
4949 _Default
4974 _Default
4950 . _Coerce
4975 . _Coerce
4951
4976
4952−adName :: Lens' AdvertiserDto (Maybe Text)
4977+adtoName :: Lens' AdvertiserDTO (Maybe Text)
4953−adName = lens _adName (\ s a -> s{_adName = a})
4978+adtoName = lens _adtoName (\ s a -> s{_adtoName = a})
4954
4979
4955−adId :: Lens' AdvertiserDto (Maybe Int64)
4980+adtoId :: Lens' AdvertiserDTO (Maybe Int64)
4956−adId = lens _adId (\ s a -> s{_adId = a})
4981+adtoId = lens _adtoId (\ s a -> s{_adtoId = a})
4957
4982
4958−instance FromJSON AdvertiserDto where
4983+instance FromJSON AdvertiserDTO where
4959 parseJSON
4984 parseJSON
4960− = withObject "AdvertiserDto"
4985+ = withObject "AdvertiserDTO"
4961 (\ o ->
4986 (\ o ->
4962− AdvertiserDto <$>
4987+ AdvertiserDTO <$>
4963 (o .:? "status") <*> (o .:? "brands" .!= mempty) <*>
4988 (o .:? "status") <*> (o .:? "brands" .!= mempty) <*>
4964 (o .:? "name")
4989 (o .:? "name")
4965 <*> (o .:? "id"))
4990 <*> (o .:? "id"))
4966
4991
4967−instance ToJSON AdvertiserDto where
4992+instance ToJSON AdvertiserDTO where
4968− toJSON AdvertiserDto{..}
4993+ toJSON AdvertiserDTO{..}
4969 = object
4994 = object
4970 (catMaybes
4995 (catMaybes
4971− [("status" .=) <$> _adStatus,
4996+ [("status" .=) <$> _adtoStatus,
4972− ("brands" .=) <$> _adBrands, ("name" .=) <$> _adName,
4997+ ("brands" .=) <$> _adtoBrands,
4973− ("id" .=) <$> _adId])
4998+ ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
4974
4999
4975--
5000--
4976-- /See:/ 'targetingValue' smart constructor.
5001-- /See:/ 'targetingValue' smart constructor.
@@ -5306,84 +5331,86 @@ instance ToJSON BillingInfo where
5306 ("billingId" .=) <$> _biBillingId])
5331 ("billingId" .=) <$> _biBillingId])
5307
5332
5308--
5333--
5309−-- /See:/ 'webPropertyDto' smart constructor.
5334+-- /See:/ 'webPropertyDTO' smart constructor.
5310−data WebPropertyDto = WebPropertyDto
5335+data WebPropertyDTO = WebPropertyDTO
5311− { _wpdEnabledForPreferredDeals :: !(Maybe Bool)
5336+ { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
5312− , _wpdSyndicationProduct :: !(Maybe Text)
5337+ , _wpdtoSyndicationProduct :: !(Maybe Text)
5313− , _wpdName :: !(Maybe Text)
5338+ , _wpdtoName :: !(Maybe Text)
5314− , _wpdPropertyCode :: !(Maybe Text)
5339+ , _wpdtoPropertyCode :: !(Maybe Text)
5315− , _wpdId :: !(Maybe Int32)
5340+ , _wpdtoId :: !(Maybe Int32)
5316− , _wpdSiteURLs :: !(Maybe [Text])
5341+ , _wpdtoSiteURLs :: !(Maybe [Text])
5317− , _wpdAllowInterestTargetedAds :: !(Maybe Bool)
5342+ , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
5318 } deriving (Eq,Read,Show,Data,Typeable,Generic)
5343 } deriving (Eq,Read,Show,Data,Typeable,Generic)
5319
5344
5320−-- | Creates a value of 'WebPropertyDto' with the minimum fields required to make a request.
5345+-- | Creates a value of 'WebPropertyDTO' with the minimum fields required to make a request.
5321--
5346--
5322-- Use one of the following lenses to modify other fields as desired:
5347-- Use one of the following lenses to modify other fields as desired:
5323--
5348--
5324−-- * 'wpdEnabledForPreferredDeals'
5349+-- * 'wpdtoEnabledForPreferredDeals'
5325--
5350--
5326−-- * 'wpdSyndicationProduct'
5351+-- * 'wpdtoSyndicationProduct'
5327--
5352--
5328−-- * 'wpdName'
5353+-- * 'wpdtoName'
5329--
5354--
5330−-- * 'wpdPropertyCode'
5355+-- * 'wpdtoPropertyCode'
5331--
5356--
5332−-- * 'wpdId'
5357+-- * 'wpdtoId'
5333--
5358--
5334−-- * 'wpdSiteURLs'
5359+-- * 'wpdtoSiteURLs'
5335--
5360--
5336−-- * 'wpdAllowInterestTargetedAds'
5361+-- * 'wpdtoAllowInterestTargetedAds'
5337−webPropertyDto
5362+webPropertyDTO
5338− :: WebPropertyDto
5363+ :: WebPropertyDTO
5339−webPropertyDto =
5364+webPropertyDTO =
5340− WebPropertyDto
5365+ WebPropertyDTO
5341− { _wpdEnabledForPreferredDeals = Nothing
5366+ { _wpdtoEnabledForPreferredDeals = Nothing
5342− , _wpdSyndicationProduct = Nothing
5367+ , _wpdtoSyndicationProduct = Nothing
5343− , _wpdName = Nothing
5368+ , _wpdtoName = Nothing
5344− , _wpdPropertyCode = Nothing
5369+ , _wpdtoPropertyCode = Nothing
5345− , _wpdId = Nothing
5370+ , _wpdtoId = Nothing
5346− , _wpdSiteURLs = Nothing
5371+ , _wpdtoSiteURLs = Nothing
5347− , _wpdAllowInterestTargetedAds = Nothing
5372+ , _wpdtoAllowInterestTargetedAds = Nothing
5348 }
5373 }
5349
5374
5350−wpdEnabledForPreferredDeals :: Lens' WebPropertyDto (Maybe Bool)
5375+wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
5351−wpdEnabledForPreferredDeals
5376+wpdtoEnabledForPreferredDeals
5352− = lens _wpdEnabledForPreferredDeals
5377+ = lens _wpdtoEnabledForPreferredDeals
5353− (\ s a -> s{_wpdEnabledForPreferredDeals = a})
5378+ (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
5354
5379
5355−wpdSyndicationProduct :: Lens' WebPropertyDto (Maybe Text)
5380+wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
5356−wpdSyndicationProduct
5381+wpdtoSyndicationProduct
5357− = lens _wpdSyndicationProduct
5382+ = lens _wpdtoSyndicationProduct
5358− (\ s a -> s{_wpdSyndicationProduct = a})
5383+ (\ s a -> s{_wpdtoSyndicationProduct = a})
5359
5384
5360−wpdName :: Lens' WebPropertyDto (Maybe Text)
5385+wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
5361−wpdName = lens _wpdName (\ s a -> s{_wpdName = a})
5386+wpdtoName
5387+ = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
5362
5388
5363−wpdPropertyCode :: Lens' WebPropertyDto (Maybe Text)
5389+wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
5364−wpdPropertyCode
5390+wpdtoPropertyCode
5365− = lens _wpdPropertyCode
5391+ = lens _wpdtoPropertyCode
5366− (\ s a -> s{_wpdPropertyCode = a})
5392+ (\ s a -> s{_wpdtoPropertyCode = a})
5367
5393
5368−wpdId :: Lens' WebPropertyDto (Maybe Int32)
5394+wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
5369−wpdId = lens _wpdId (\ s a -> s{_wpdId = a})
5395+wpdtoId = lens _wpdtoId (\ s a -> s{_wpdtoId = a})
5370
5396
5371−wpdSiteURLs :: Lens' WebPropertyDto [Text]
5397+wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
5372−wpdSiteURLs
5398+wpdtoSiteURLs
5373− = lens _wpdSiteURLs (\ s a -> s{_wpdSiteURLs = a}) .
5399+ = lens _wpdtoSiteURLs
5400+ (\ s a -> s{_wpdtoSiteURLs = a})
5374− _Default
5401+ . _Default
5375 . _Coerce
5402 . _Coerce
5376
5403
5377−wpdAllowInterestTargetedAds :: Lens' WebPropertyDto (Maybe Bool)
5404+wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
5378−wpdAllowInterestTargetedAds
5405+wpdtoAllowInterestTargetedAds
5379− = lens _wpdAllowInterestTargetedAds
5406+ = lens _wpdtoAllowInterestTargetedAds
5380− (\ s a -> s{_wpdAllowInterestTargetedAds = a})
5407+ (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
5381
5408
5382−instance FromJSON WebPropertyDto where
5409+instance FromJSON WebPropertyDTO where
5383 parseJSON
5410 parseJSON
5384− = withObject "WebPropertyDto"
5411+ = withObject "WebPropertyDTO"
5385 (\ o ->
5412 (\ o ->
5386− WebPropertyDto <$>
5413+ WebPropertyDTO <$>
5387 (o .:? "enabledForPreferredDeals") <*>
5414 (o .:? "enabledForPreferredDeals") <*>
5388 (o .:? "syndicationProduct")
5415 (o .:? "syndicationProduct")
5389 <*> (o .:? "name")
5416 <*> (o .:? "name")
@@ -5392,19 +5419,20 @@ instance FromJSON WebPropertyDto where
5392 <*> (o .:? "siteUrls" .!= mempty)
5419 <*> (o .:? "siteUrls" .!= mempty)
5393 <*> (o .:? "allowInterestTargetedAds"))
5420 <*> (o .:? "allowInterestTargetedAds"))
5394
5421
5395−instance ToJSON WebPropertyDto where
5422+instance ToJSON WebPropertyDTO where
5396− toJSON WebPropertyDto{..}
5423+ toJSON WebPropertyDTO{..}
5397 = object
5424 = object
5398 (catMaybes
5425 (catMaybes
5399 [("enabledForPreferredDeals" .=) <$>
5426 [("enabledForPreferredDeals" .=) <$>
5400− _wpdEnabledForPreferredDeals,
5427+ _wpdtoEnabledForPreferredDeals,
5401− ("syndicationProduct" .=) <$> _wpdSyndicationProduct,
5428+ ("syndicationProduct" .=) <$>
5402− ("name" .=) <$> _wpdName,
5429+ _wpdtoSyndicationProduct,
5430+ ("name" .=) <$> _wpdtoName,
5403− ("propertyCode" .=) <$> _wpdPropertyCode,
5431+ ("propertyCode" .=) <$> _wpdtoPropertyCode,
5404− ("id" .=) <$> _wpdId,
5432+ ("id" .=) <$> _wpdtoId,
5405− ("siteUrls" .=) <$> _wpdSiteURLs,
5433+ ("siteUrls" .=) <$> _wpdtoSiteURLs,
5406 ("allowInterestTargetedAds" .=) <$>
5434 ("allowInterestTargetedAds" .=) <$>
5407− _wpdAllowInterestTargetedAds])
5435+ _wpdtoAllowInterestTargetedAds])
5408
5436
5409--
5437--
5410-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
5438-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
@@ -6680,106 +6708,109 @@ instance ToJSON PretargetingConfigPlacements where
6680 ("type" .=) <$> _pcpType])
6708 ("type" .=) <$> _pcpType])
6681
6709
6682--
6710--
6683−-- /See:/ 'negotiationRoundDto' smart constructor.
6711+-- /See:/ 'negotiationRoundDTO' smart constructor.
6684−data NegotiationRoundDto = NegotiationRoundDto
6712+data NegotiationRoundDTO = NegotiationRoundDTO
6685− { _nrdTerms :: !(Maybe TermsDto)
6713+ { _nrdtoTerms :: !(Maybe TermsDTO)
6686− , _nrdKind :: !Text
6714+ , _nrdtoKind :: !Text
6687− , _nrdOriginatorRole :: !(Maybe Text)
6715+ , _nrdtoOriginatorRole :: !(Maybe Text)
6688− , _nrdAction :: !(Maybe Text)
6716+ , _nrdtoAction :: !(Maybe Text)
6689− , _nrdDBmPartnerId :: !(Maybe Int64)
6717+ , _nrdtoDBmPartnerId :: !(Maybe Int64)
6690− , _nrdNotes :: !(Maybe Text)
6718+ , _nrdtoNotes :: !(Maybe Text)
6691− , _nrdNegotiationId :: !(Maybe Int64)
6719+ , _nrdtoNegotiationId :: !(Maybe Int64)
6692− , _nrdEditHistory :: !(Maybe EditHistoryDto)
6720+ , _nrdtoEditHistory :: !(Maybe EditHistoryDTO)
6693− , _nrdRoundNumber :: !(Maybe Int64)
6721+ , _nrdtoRoundNumber :: !(Maybe Int64)
6694 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6722 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6695
6723
6696−-- | Creates a value of 'NegotiationRoundDto' with the minimum fields required to make a request.
6724+-- | Creates a value of 'NegotiationRoundDTO' with the minimum fields required to make a request.
6697--
6725--
6698-- Use one of the following lenses to modify other fields as desired:
6726-- Use one of the following lenses to modify other fields as desired:
6699--
6727--
6700−-- * 'nrdTerms'
6728+-- * 'nrdtoTerms'
6701--
6729--
6702−-- * 'nrdKind'
6730+-- * 'nrdtoKind'
6703--
6731--
6704−-- * 'nrdOriginatorRole'
6732+-- * 'nrdtoOriginatorRole'
6705--
6733--
6706−-- * 'nrdAction'
6734+-- * 'nrdtoAction'
6707--
6735--
6708−-- * 'nrdDBmPartnerId'
6736+-- * 'nrdtoDBmPartnerId'
6709--
6737--
6710−-- * 'nrdNotes'
6738+-- * 'nrdtoNotes'
6711--
6739--
6712−-- * 'nrdNegotiationId'
6740+-- * 'nrdtoNegotiationId'
6713--
6741--
6714−-- * 'nrdEditHistory'
6742+-- * 'nrdtoEditHistory'
6715--
6743--
6716−-- * 'nrdRoundNumber'
6744+-- * 'nrdtoRoundNumber'
6717−negotiationRoundDto
6745+negotiationRoundDTO
6718− :: NegotiationRoundDto
6746+ :: NegotiationRoundDTO
6719−negotiationRoundDto =
6747+negotiationRoundDTO =
6720− NegotiationRoundDto
6748+ NegotiationRoundDTO
6721− { _nrdTerms = Nothing
6749+ { _nrdtoTerms = Nothing
6722− , _nrdKind = "adexchangebuyer#negotiationRound"
6750+ , _nrdtoKind = "adexchangebuyer#negotiationRound"
6723− , _nrdOriginatorRole = Nothing
6751+ , _nrdtoOriginatorRole = Nothing
6724− , _nrdAction = Nothing
6752+ , _nrdtoAction = Nothing
6725− , _nrdDBmPartnerId = Nothing
6753+ , _nrdtoDBmPartnerId = Nothing
6726− , _nrdNotes = Nothing
6754+ , _nrdtoNotes = Nothing
6727− , _nrdNegotiationId = Nothing
6755+ , _nrdtoNegotiationId = Nothing
6728− , _nrdEditHistory = Nothing
6756+ , _nrdtoEditHistory = Nothing
6729− , _nrdRoundNumber = Nothing
6757+ , _nrdtoRoundNumber = Nothing
6730 }
6758 }
6731
6759
6732-- | The detailed terms proposed in this negotiation round.
6760-- | The detailed terms proposed in this negotiation round.
6733−nrdTerms :: Lens' NegotiationRoundDto (Maybe TermsDto)
6761+nrdtoTerms :: Lens' NegotiationRoundDTO (Maybe TermsDTO)
6734−nrdTerms = lens _nrdTerms (\ s a -> s{_nrdTerms = a})
6762+nrdtoTerms
6763+ = lens _nrdtoTerms (\ s a -> s{_nrdtoTerms = a})
6735
6764
6736−nrdKind :: Lens' NegotiationRoundDto Text
6765+nrdtoKind :: Lens' NegotiationRoundDTO Text
6737−nrdKind = lens _nrdKind (\ s a -> s{_nrdKind = a})
6766+nrdtoKind
6767+ = lens _nrdtoKind (\ s a -> s{_nrdtoKind = a})
6738
6768
6739-- | The role, either buyer or seller, initiating this negotiation round.
6769-- | The role, either buyer or seller, initiating this negotiation round.
6740−nrdOriginatorRole :: Lens' NegotiationRoundDto (Maybe Text)
6770+nrdtoOriginatorRole :: Lens' NegotiationRoundDTO (Maybe Text)
6741−nrdOriginatorRole
6771+nrdtoOriginatorRole
6742− = lens _nrdOriginatorRole
6772+ = lens _nrdtoOriginatorRole
6743− (\ s a -> s{_nrdOriginatorRole = a})
6773+ (\ s a -> s{_nrdtoOriginatorRole = a})
6744
6774
6745-- | The action performed by this negotiation round.
6775-- | The action performed by this negotiation round.
6746−nrdAction :: Lens' NegotiationRoundDto (Maybe Text)
6776+nrdtoAction :: Lens' NegotiationRoundDTO (Maybe Text)
6747−nrdAction
6777+nrdtoAction
6748− = lens _nrdAction (\ s a -> s{_nrdAction = a})
6778+ = lens _nrdtoAction (\ s a -> s{_nrdtoAction = a})
6749
6779
6750-- | Stores DBM partner ID for use by DBM
6780-- | Stores DBM partner ID for use by DBM
6751−nrdDBmPartnerId :: Lens' NegotiationRoundDto (Maybe Int64)
6781+nrdtoDBmPartnerId :: Lens' NegotiationRoundDTO (Maybe Int64)
6752−nrdDBmPartnerId
6782+nrdtoDBmPartnerId
6753− = lens _nrdDBmPartnerId
6783+ = lens _nrdtoDBmPartnerId
6754− (\ s a -> s{_nrdDBmPartnerId = a})
6784+ (\ s a -> s{_nrdtoDBmPartnerId = a})
6755
6785
6756-- | Notes regarding this negotiation round.
6786-- | Notes regarding this negotiation round.
6757−nrdNotes :: Lens' NegotiationRoundDto (Maybe Text)
6787+nrdtoNotes :: Lens' NegotiationRoundDTO (Maybe Text)
6758−nrdNotes = lens _nrdNotes (\ s a -> s{_nrdNotes = a})
6788+nrdtoNotes
6789+ = lens _nrdtoNotes (\ s a -> s{_nrdtoNotes = a})
6759
6790
6760-- | The ID of the negotiation to which this negotiation round applies.
6791-- | The ID of the negotiation to which this negotiation round applies.
6761−nrdNegotiationId :: Lens' NegotiationRoundDto (Maybe Int64)
6792+nrdtoNegotiationId :: Lens' NegotiationRoundDTO (Maybe Int64)
6762−nrdNegotiationId
6793+nrdtoNegotiationId
6763− = lens _nrdNegotiationId
6794+ = lens _nrdtoNegotiationId
6764− (\ s a -> s{_nrdNegotiationId = a})
6795+ (\ s a -> s{_nrdtoNegotiationId = a})
6765
6796
6766-- | The edit history of this negotiation round.
6797-- | The edit history of this negotiation round.
6767−nrdEditHistory :: Lens' NegotiationRoundDto (Maybe EditHistoryDto)
6798+nrdtoEditHistory :: Lens' NegotiationRoundDTO (Maybe EditHistoryDTO)
6768−nrdEditHistory
6799+nrdtoEditHistory
6769− = lens _nrdEditHistory
6800+ = lens _nrdtoEditHistory
6770− (\ s a -> s{_nrdEditHistory = a})
6801+ (\ s a -> s{_nrdtoEditHistory = a})
6771
6802
6772-- | The number of this negotiation round, in sequence.
6803-- | The number of this negotiation round, in sequence.
6773−nrdRoundNumber :: Lens' NegotiationRoundDto (Maybe Int64)
6804+nrdtoRoundNumber :: Lens' NegotiationRoundDTO (Maybe Int64)
6774−nrdRoundNumber
6805+nrdtoRoundNumber
6775− = lens _nrdRoundNumber
6806+ = lens _nrdtoRoundNumber
6776− (\ s a -> s{_nrdRoundNumber = a})
6807+ (\ s a -> s{_nrdtoRoundNumber = a})
6777
6808
6778−instance FromJSON NegotiationRoundDto where
6809+instance FromJSON NegotiationRoundDTO where
6779 parseJSON
6810 parseJSON
6780− = withObject "NegotiationRoundDto"
6811+ = withObject "NegotiationRoundDTO"
6781 (\ o ->
6812 (\ o ->
6782− NegotiationRoundDto <$>
6813+ NegotiationRoundDTO <$>
6783 (o .:? "terms") <*>
6814 (o .:? "terms") <*>
6784 (o .:? "kind" .!= "adexchangebuyer#negotiationRound")
6815 (o .:? "kind" .!= "adexchangebuyer#negotiationRound")
6785 <*> (o .:? "originatorRole")
6816 <*> (o .:? "originatorRole")
@@ -6790,101 +6821,103 @@ instance FromJSON NegotiationRoundDto where
6790 <*> (o .:? "editHistory")
6821 <*> (o .:? "editHistory")
6791 <*> (o .:? "roundNumber"))
6822 <*> (o .:? "roundNumber"))
6792
6823
6793−instance ToJSON NegotiationRoundDto where
6824+instance ToJSON NegotiationRoundDTO where
6794− toJSON NegotiationRoundDto{..}
6825+ toJSON NegotiationRoundDTO{..}
6795 = object
6826 = object
6796 (catMaybes
6827 (catMaybes
6797− [("terms" .=) <$> _nrdTerms,
6828+ [("terms" .=) <$> _nrdtoTerms,
6798− Just ("kind" .= _nrdKind),
6829+ Just ("kind" .= _nrdtoKind),
6799− ("originatorRole" .=) <$> _nrdOriginatorRole,
6830+ ("originatorRole" .=) <$> _nrdtoOriginatorRole,
6800− ("action" .=) <$> _nrdAction,
6831+ ("action" .=) <$> _nrdtoAction,
6801− ("dbmPartnerId" .=) <$> _nrdDBmPartnerId,
6832+ ("dbmPartnerId" .=) <$> _nrdtoDBmPartnerId,
6802− ("notes" .=) <$> _nrdNotes,
6833+ ("notes" .=) <$> _nrdtoNotes,
6803− ("negotiationId" .=) <$> _nrdNegotiationId,
6834+ ("negotiationId" .=) <$> _nrdtoNegotiationId,
6804− ("editHistory" .=) <$> _nrdEditHistory,
6835+ ("editHistory" .=) <$> _nrdtoEditHistory,
6805− ("roundNumber" .=) <$> _nrdRoundNumber])
6836+ ("roundNumber" .=) <$> _nrdtoRoundNumber])
6806−
6837+
6807−--
6838+--
6808−-- /See:/ 'statsDto' smart constructor.
6839+-- /See:/ 'statsDTO' smart constructor.
6809−data StatsDto = StatsDto
6840+data StatsDTO = StatsDTO
6810− { _sdBids :: !(Maybe Int64)
6841+ { _sdtoBids :: !(Maybe Int64)
6811− , _sdSpend :: !(Maybe MoneyDto)
6842+ , _sdtoSpend :: !(Maybe MoneyDTO)
6812− , _sdImpressions :: !(Maybe Int64)
6843+ , _sdtoImpressions :: !(Maybe Int64)
6813− , _sdGoodBids :: !(Maybe Int64)
6844+ , _sdtoGoodBids :: !(Maybe Int64)
6814− , _sdRevenue :: !(Maybe MoneyDto)
6845+ , _sdtoRevenue :: !(Maybe MoneyDTO)
6815− , _sdRequests :: !(Maybe Int64)
6846+ , _sdtoRequests :: !(Maybe Int64)
6816 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6847 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6817
6848
6818−-- | Creates a value of 'StatsDto' with the minimum fields required to make a request.
6849+-- | Creates a value of 'StatsDTO' with the minimum fields required to make a request.
6819--
6850--
6820-- Use one of the following lenses to modify other fields as desired:
6851-- Use one of the following lenses to modify other fields as desired:
6821--
6852--
6822−-- * 'sdBids'
6853+-- * 'sdtoBids'
6823--
6854--
6824−-- * 'sdSpend'
6855+-- * 'sdtoSpend'
6825--
6856--
6826−-- * 'sdImpressions'
6857+-- * 'sdtoImpressions'
6827--
6858--
6828−-- * 'sdGoodBids'
6859+-- * 'sdtoGoodBids'
6829--
6860--
6830−-- * 'sdRevenue'
6861+-- * 'sdtoRevenue'
6831--
6862--
6832−-- * 'sdRequests'
6863+-- * 'sdtoRequests'
6833−statsDto
6864+statsDTO
6834− :: StatsDto
6865+ :: StatsDTO
6835−statsDto =
6866+statsDTO =
6836− StatsDto
6867+ StatsDTO
6837− { _sdBids = Nothing
6868+ { _sdtoBids = Nothing
6838− , _sdSpend = Nothing
6869+ , _sdtoSpend = Nothing
6839− , _sdImpressions = Nothing
6870+ , _sdtoImpressions = Nothing
6840− , _sdGoodBids = Nothing
6871+ , _sdtoGoodBids = Nothing
6841− , _sdRevenue = Nothing
6872+ , _sdtoRevenue = Nothing
6842− , _sdRequests = Nothing
6873+ , _sdtoRequests = Nothing
6843 }
6874 }
6844
6875
6845−sdBids :: Lens' StatsDto (Maybe Int64)
6876+sdtoBids :: Lens' StatsDTO (Maybe Int64)
6846−sdBids = lens _sdBids (\ s a -> s{_sdBids = a})
6877+sdtoBids = lens _sdtoBids (\ s a -> s{_sdtoBids = a})
6847
6878
6848−sdSpend :: Lens' StatsDto (Maybe MoneyDto)
6879+sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6849−sdSpend = lens _sdSpend (\ s a -> s{_sdSpend = a})
6880+sdtoSpend
6881+ = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
6850
6882
6851−sdImpressions :: Lens' StatsDto (Maybe Int64)
6883+sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6852−sdImpressions
6884+sdtoImpressions
6853− = lens _sdImpressions
6885+ = lens _sdtoImpressions
6854− (\ s a -> s{_sdImpressions = a})
6886+ (\ s a -> s{_sdtoImpressions = a})
6855
6887
6856−sdGoodBids :: Lens' StatsDto (Maybe Int64)
6888+sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6857−sdGoodBids
6889+sdtoGoodBids
6858− = lens _sdGoodBids (\ s a -> s{_sdGoodBids = a})
6890+ = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
6859
6891
6860−sdRevenue :: Lens' StatsDto (Maybe MoneyDto)
6892+sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6861−sdRevenue
6893+sdtoRevenue
6862− = lens _sdRevenue (\ s a -> s{_sdRevenue = a})
6894+ = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
6863
6895
6864−sdRequests :: Lens' StatsDto (Maybe Int64)
6896+sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6865−sdRequests
6897+sdtoRequests
6866− = lens _sdRequests (\ s a -> s{_sdRequests = a})
6898+ = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
6867
6899
6868−instance FromJSON StatsDto where
6900+instance FromJSON StatsDTO where
6869 parseJSON
6901 parseJSON
6870− = withObject "StatsDto"
6902+ = withObject "StatsDTO"
6871 (\ o ->
6903 (\ o ->
6872− StatsDto <$>
6904+ StatsDTO <$>
6873 (o .:? "bids") <*> (o .:? "spend") <*>
6905 (o .:? "bids") <*> (o .:? "spend") <*>
6874 (o .:? "impressions")
6906 (o .:? "impressions")
6875 <*> (o .:? "goodBids")
6907 <*> (o .:? "goodBids")
6876 <*> (o .:? "revenue")
6908 <*> (o .:? "revenue")
6877 <*> (o .:? "requests"))
6909 <*> (o .:? "requests"))
6878
6910
6879−instance ToJSON StatsDto where
6911+instance ToJSON StatsDTO where
6880− toJSON StatsDto{..}
6912+ toJSON StatsDTO{..}
6881 = object
6913 = object
6882 (catMaybes
6914 (catMaybes
6883− [("bids" .=) <$> _sdBids, ("spend" .=) <$> _sdSpend,
6915+ [("bids" .=) <$> _sdtoBids,
6916+ ("spend" .=) <$> _sdtoSpend,
6884− ("impressions" .=) <$> _sdImpressions,
6917+ ("impressions" .=) <$> _sdtoImpressions,
6885− ("goodBids" .=) <$> _sdGoodBids,
6918+ ("goodBids" .=) <$> _sdtoGoodBids,
6886− ("revenue" .=) <$> _sdRevenue,
6919+ ("revenue" .=) <$> _sdtoRevenue,
6887− ("requests" .=) <$> _sdRequests])
6920+ ("requests" .=) <$> _sdtoRequests])
6888
6921
6889--
6922--
6890-- /See:/ 'getOffersResponse' smart constructor.
6923-- /See:/ 'getOffersResponse' smart constructor.
@@ -7714,72 +7747,73 @@ instance ToJSON DealTerms where
7714 ("description" .=) <$> _dtDescription])
7747 ("description" .=) <$> _dtDescription])
7715
7748
7716--
7749--
7717−-- /See:/ 'editHistoryDto' smart constructor.
7750+-- /See:/ 'editHistoryDTO' smart constructor.
7718−data EditHistoryDto = EditHistoryDto
7751+data EditHistoryDTO = EditHistoryDTO
7719− { _ehdLastUpdatedByLoginName :: !(Maybe Text)
7752+ { _ehdtoLastUpdatedByLoginName :: !(Maybe Text)
7720− , _ehdCreatedByLoginName :: !(Maybe Text)
7753+ , _ehdtoCreatedByLoginName :: !(Maybe Text)
7721− , _ehdLastUpdateTimeStamp :: !(Maybe Int64)
7754+ , _ehdtoLastUpdateTimeStamp :: !(Maybe Int64)
7722− , _ehdCreatedTimeStamp :: !(Maybe Int64)
7755+ , _ehdtoCreatedTimeStamp :: !(Maybe Int64)
7723 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7756 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7724
7757
7725−-- | Creates a value of 'EditHistoryDto' with the minimum fields required to make a request.
7758+-- | Creates a value of 'EditHistoryDTO' with the minimum fields required to make a request.
7726--
7759--
7727-- Use one of the following lenses to modify other fields as desired:
7760-- Use one of the following lenses to modify other fields as desired:
7728--
7761--
7729−-- * 'ehdLastUpdatedByLoginName'
7762+-- * 'ehdtoLastUpdatedByLoginName'
7730--
7763--
7731−-- * 'ehdCreatedByLoginName'
7764+-- * 'ehdtoCreatedByLoginName'
7732--
7765--
7733−-- * 'ehdLastUpdateTimeStamp'
7766+-- * 'ehdtoLastUpdateTimeStamp'
7734--
7767--
7735−-- * 'ehdCreatedTimeStamp'
7768+-- * 'ehdtoCreatedTimeStamp'
7736−editHistoryDto
7769+editHistoryDTO
7737− :: EditHistoryDto
7770+ :: EditHistoryDTO
7738−editHistoryDto =
7771+editHistoryDTO =
7739− EditHistoryDto
7772+ EditHistoryDTO
7740− { _ehdLastUpdatedByLoginName = Nothing
7773+ { _ehdtoLastUpdatedByLoginName = Nothing
7741− , _ehdCreatedByLoginName = Nothing
7774+ , _ehdtoCreatedByLoginName = Nothing
7742− , _ehdLastUpdateTimeStamp = Nothing
7775+ , _ehdtoLastUpdateTimeStamp = Nothing
7743− , _ehdCreatedTimeStamp = Nothing
7776+ , _ehdtoCreatedTimeStamp = Nothing
7744 }
7777 }
7745
7778
7746−ehdLastUpdatedByLoginName :: Lens' EditHistoryDto (Maybe Text)
7779+ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7747−ehdLastUpdatedByLoginName
7780+ehdtoLastUpdatedByLoginName
7748− = lens _ehdLastUpdatedByLoginName
7781+ = lens _ehdtoLastUpdatedByLoginName
7749− (\ s a -> s{_ehdLastUpdatedByLoginName = a})
7782+ (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
7750
7783
7751−ehdCreatedByLoginName :: Lens' EditHistoryDto (Maybe Text)
7784+ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7752−ehdCreatedByLoginName
7785+ehdtoCreatedByLoginName
7753− = lens _ehdCreatedByLoginName
7786+ = lens _ehdtoCreatedByLoginName
7754− (\ s a -> s{_ehdCreatedByLoginName = a})
7787+ (\ s a -> s{_ehdtoCreatedByLoginName = a})
7755
7788
7756−ehdLastUpdateTimeStamp :: Lens' EditHistoryDto (Maybe Int64)
7789+ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7757−ehdLastUpdateTimeStamp
7790+ehdtoLastUpdateTimeStamp
7758− = lens _ehdLastUpdateTimeStamp
7791+ = lens _ehdtoLastUpdateTimeStamp
7759− (\ s a -> s{_ehdLastUpdateTimeStamp = a})
7792+ (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
7760
7793
7761−ehdCreatedTimeStamp :: Lens' EditHistoryDto (Maybe Int64)
7794+ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7762−ehdCreatedTimeStamp
7795+ehdtoCreatedTimeStamp
7763− = lens _ehdCreatedTimeStamp
7796+ = lens _ehdtoCreatedTimeStamp
7764− (\ s a -> s{_ehdCreatedTimeStamp = a})
7797+ (\ s a -> s{_ehdtoCreatedTimeStamp = a})
7765
7798
7766−instance FromJSON EditHistoryDto where
7799+instance FromJSON EditHistoryDTO where
7767 parseJSON
7800 parseJSON
7768− = withObject "EditHistoryDto"
7801+ = withObject "EditHistoryDTO"
7769 (\ o ->
7802 (\ o ->
7770− EditHistoryDto <$>
7803+ EditHistoryDTO <$>
7771 (o .:? "lastUpdatedByLoginName") <*>
7804 (o .:? "lastUpdatedByLoginName") <*>
7772 (o .:? "createdByLoginName")
7805 (o .:? "createdByLoginName")
7773 <*> (o .:? "lastUpdateTimeStamp")
7806 <*> (o .:? "lastUpdateTimeStamp")
7774 <*> (o .:? "createdTimeStamp"))
7807 <*> (o .:? "createdTimeStamp"))
7775
7808
7776−instance ToJSON EditHistoryDto where
7809+instance ToJSON EditHistoryDTO where
7777− toJSON EditHistoryDto{..}
7810+ toJSON EditHistoryDTO{..}
7778 = object
7811 = object
7779 (catMaybes
7812 (catMaybes
7780 [("lastUpdatedByLoginName" .=) <$>
7813 [("lastUpdatedByLoginName" .=) <$>
7781− _ehdLastUpdatedByLoginName,
7814+ _ehdtoLastUpdatedByLoginName,
7782− ("createdByLoginName" .=) <$> _ehdCreatedByLoginName,
7815+ ("createdByLoginName" .=) <$>
7816+ _ehdtoCreatedByLoginName,
7783 ("lastUpdateTimeStamp" .=) <$>
7817 ("lastUpdateTimeStamp" .=) <$>
7784− _ehdLastUpdateTimeStamp,
7818+ _ehdtoLastUpdateTimeStamp,
7785− ("createdTimeStamp" .=) <$> _ehdCreatedTimeStamp])
7819+ ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Deals/Get.hs+2−2
@@ -57,7 +57,7 @@ type DealsGetResource =
57 QueryParam "alt" AltJSON :>
57 QueryParam "alt" AltJSON :>
58 ReqBody '[JSON]
58 ReqBody '[JSON]
59 GetFinalizedNegotiationByExternalDealIdRequest
59 GetFinalizedNegotiationByExternalDealIdRequest
60− :> Get '[JSON] NegotiationDto
60+ :> Get '[JSON] NegotiationDTO
61
61
62-- | Gets the requested deal.
62-- | Gets the requested deal.
63--
63--
@@ -158,7 +158,7 @@ instance GoogleAuth DealsGet' where
158 authToken = dgOAuthToken . _Just
158 authToken = dgOAuthToken . _Just
159
159
160instance GoogleRequest DealsGet' where
160instance GoogleRequest DealsGet' where
161− type Rs DealsGet' = NegotiationDto
161+ type Rs DealsGet' = NegotiationDTO
162 request = requestWithRoute defReq adExchangeBuyerURL
162 request = requestWithRoute defReq adExchangeBuyerURL
163 requestWithRoute r u DealsGet'{..}
163 requestWithRoute r u DealsGet'{..}
164 = go _dgDealId _dgQuotaUser (Just _dgPrettyPrint)
164 = go _dgDealId _dgQuotaUser (Just _dgPrettyPrint)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/NegotiationRounds/Insert.hs+14−14
@@ -36,7 +36,7 @@ module Network.Google.Resource.AdExchangeBuyer.NegotiationRounds.Insert
36 , nriKey
36 , nriKey
37 , nriOAuthToken
37 , nriOAuthToken
38 , nriNegotiationId
38 , nriNegotiationId
39− , nriNegotiationRoundDto
39+ , nriNegotiationRoundDTO
40 , nriFields
40 , nriFields
41 ) where
41 ) where
42
42
@@ -56,8 +56,8 @@ type NegotiationRoundsInsertResource =
56 QueryParam "key" Key :>
56 QueryParam "key" Key :>
57 QueryParam "oauth_token" OAuthToken :>
57 QueryParam "oauth_token" OAuthToken :>
58 QueryParam "alt" AltJSON :>
58 QueryParam "alt" AltJSON :>
59− ReqBody '[JSON] NegotiationRoundDto :>
59+ ReqBody '[JSON] NegotiationRoundDTO :>
60− Post '[JSON] NegotiationRoundDto
60+ Post '[JSON] NegotiationRoundDTO
61
61
62-- | Adds the requested negotiationRound to the requested negotiation.
62-- | Adds the requested negotiationRound to the requested negotiation.
63--
63--
@@ -69,7 +69,7 @@ data NegotiationRoundsInsert' = NegotiationRoundsInsert'
69 , _nriKey :: !(Maybe Key)
69 , _nriKey :: !(Maybe Key)
70 , _nriOAuthToken :: !(Maybe OAuthToken)
70 , _nriOAuthToken :: !(Maybe OAuthToken)
71 , _nriNegotiationId :: !Int64
71 , _nriNegotiationId :: !Int64
72− , _nriNegotiationRoundDto :: !NegotiationRoundDto
72+ , _nriNegotiationRoundDTO :: !NegotiationRoundDTO
73 , _nriFields :: !(Maybe Text)
73 , _nriFields :: !(Maybe Text)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
74 } deriving (Eq,Read,Show,Data,Typeable,Generic)
75
75
@@ -89,14 +89,14 @@ data NegotiationRoundsInsert' = NegotiationRoundsInsert'
89--
89--
90-- * 'nriNegotiationId'
90-- * 'nriNegotiationId'
91--
91--
92−-- * 'nriNegotiationRoundDto'
92+-- * 'nriNegotiationRoundDTO'
93--
93--
94-- * 'nriFields'
94-- * 'nriFields'
95negotiationRoundsInsert'
95negotiationRoundsInsert'
96 :: Int64 -- ^ 'negotiationId'
96 :: Int64 -- ^ 'negotiationId'
97− -> NegotiationRoundDto -- ^ 'NegotiationRoundDto'
97+ -> NegotiationRoundDTO -- ^ 'NegotiationRoundDTO'
98 -> NegotiationRoundsInsert'
98 -> NegotiationRoundsInsert'
99−negotiationRoundsInsert' pNriNegotiationId_ pNriNegotiationRoundDto_ =
99+negotiationRoundsInsert' pNriNegotiationId_ pNriNegotiationRoundDTO_ =
100 NegotiationRoundsInsert'
100 NegotiationRoundsInsert'
101 { _nriQuotaUser = Nothing
101 { _nriQuotaUser = Nothing
102 , _nriPrettyPrint = True
102 , _nriPrettyPrint = True
@@ -104,7 +104,7 @@ negotiationRoundsInsert' pNriNegotiationId_ pNriNegotiationRoundDto_ =
104 , _nriKey = Nothing
104 , _nriKey = Nothing
105 , _nriOAuthToken = Nothing
105 , _nriOAuthToken = Nothing
106 , _nriNegotiationId = pNriNegotiationId_
106 , _nriNegotiationId = pNriNegotiationId_
107− , _nriNegotiationRoundDto = pNriNegotiationRoundDto_
107+ , _nriNegotiationRoundDTO = pNriNegotiationRoundDTO_
108 , _nriFields = Nothing
108 , _nriFields = Nothing
109 }
109 }
110
110
@@ -145,10 +145,10 @@ nriNegotiationId
145 (\ s a -> s{_nriNegotiationId = a})
145 (\ s a -> s{_nriNegotiationId = a})
146
146
147-- | Multipart request metadata.
147-- | Multipart request metadata.
148−nriNegotiationRoundDto :: Lens' NegotiationRoundsInsert' NegotiationRoundDto
148+nriNegotiationRoundDTO :: Lens' NegotiationRoundsInsert' NegotiationRoundDTO
149−nriNegotiationRoundDto
149+nriNegotiationRoundDTO
150− = lens _nriNegotiationRoundDto
150+ = lens _nriNegotiationRoundDTO
151− (\ s a -> s{_nriNegotiationRoundDto = a})
151+ (\ s a -> s{_nriNegotiationRoundDTO = a})
152
152
153-- | Selector specifying which fields to include in a partial response.
153-- | Selector specifying which fields to include in a partial response.
154nriFields :: Lens' NegotiationRoundsInsert' (Maybe Text)
154nriFields :: Lens' NegotiationRoundsInsert' (Maybe Text)
@@ -161,7 +161,7 @@ instance GoogleAuth NegotiationRoundsInsert' where
161
161
162instance GoogleRequest NegotiationRoundsInsert' where
162instance GoogleRequest NegotiationRoundsInsert' where
163 type Rs NegotiationRoundsInsert' =
163 type Rs NegotiationRoundsInsert' =
164− NegotiationRoundDto
164+ NegotiationRoundDTO
165 request = requestWithRoute defReq adExchangeBuyerURL
165 request = requestWithRoute defReq adExchangeBuyerURL
166 requestWithRoute r u NegotiationRoundsInsert'{..}
166 requestWithRoute r u NegotiationRoundsInsert'{..}
167 = go _nriNegotiationId _nriQuotaUser
167 = go _nriNegotiationId _nriQuotaUser
@@ -171,7 +171,7 @@ instance GoogleRequest NegotiationRoundsInsert' where
171 _nriKey
171 _nriKey
172 _nriOAuthToken
172 _nriOAuthToken
173 (Just AltJSON)
173 (Just AltJSON)
174− _nriNegotiationRoundDto
174+ _nriNegotiationRoundDTO
175 where go
175 where go
176 = clientWithRoute
176 = clientWithRoute
177 (Proxy :: Proxy NegotiationRoundsInsertResource)
177 (Proxy :: Proxy NegotiationRoundsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Get.hs+2−2
@@ -56,7 +56,7 @@ type NegotiationsGetResource =
56 QueryParam "oauth_token" OAuthToken :>
56 QueryParam "oauth_token" OAuthToken :>
57 QueryParam "alt" AltJSON :>
57 QueryParam "alt" AltJSON :>
58 ReqBody '[JSON] GetNegotiationByIdRequest :>
58 ReqBody '[JSON] GetNegotiationByIdRequest :>
59− Get '[JSON] NegotiationDto
59+ Get '[JSON] NegotiationDTO
60
60
61-- | Gets the requested negotiation.
61-- | Gets the requested negotiation.
62--
62--
@@ -156,7 +156,7 @@ instance GoogleAuth NegotiationsGet' where
156 authToken = ngOAuthToken . _Just
156 authToken = ngOAuthToken . _Just
157
157
158instance GoogleRequest NegotiationsGet' where
158instance GoogleRequest NegotiationsGet' where
159− type Rs NegotiationsGet' = NegotiationDto
159+ type Rs NegotiationsGet' = NegotiationDTO
160 request = requestWithRoute defReq adExchangeBuyerURL
160 request = requestWithRoute defReq adExchangeBuyerURL
161 requestWithRoute r u NegotiationsGet'{..}
161 requestWithRoute r u NegotiationsGet'{..}
162 = go _ngNegotiationId _ngQuotaUser
162 = go _ngNegotiationId _ngQuotaUser
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Negotiations/Insert.hs+14−14
@@ -33,7 +33,7 @@ module Network.Google.Resource.AdExchangeBuyer.Negotiations.Insert
33 , niQuotaUser
33 , niQuotaUser
34 , niPrettyPrint
34 , niPrettyPrint
35 , niUserIP
35 , niUserIP
36− , niNegotiationDto
36+ , niNegotiationDTO
37 , niKey
37 , niKey
38 , niOAuthToken
38 , niOAuthToken
39 , niFields
39 , niFields
@@ -53,8 +53,8 @@ type NegotiationsInsertResource =
53 QueryParam "key" Key :>
53 QueryParam "key" Key :>
54 QueryParam "oauth_token" OAuthToken :>
54 QueryParam "oauth_token" OAuthToken :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56− ReqBody '[JSON] NegotiationDto :>
56+ ReqBody '[JSON] NegotiationDTO :>
57− Post '[JSON] NegotiationDto
57+ Post '[JSON] NegotiationDTO
58
58
59-- | Creates or updates the requested negotiation.
59-- | Creates or updates the requested negotiation.
60--
60--
@@ -63,7 +63,7 @@ data NegotiationsInsert' = NegotiationsInsert'
63 { _niQuotaUser :: !(Maybe Text)
63 { _niQuotaUser :: !(Maybe Text)
64 , _niPrettyPrint :: !Bool
64 , _niPrettyPrint :: !Bool
65 , _niUserIP :: !(Maybe Text)
65 , _niUserIP :: !(Maybe Text)
66− , _niNegotiationDto :: !NegotiationDto
66+ , _niNegotiationDTO :: !NegotiationDTO
67 , _niKey :: !(Maybe Key)
67 , _niKey :: !(Maybe Key)
68 , _niOAuthToken :: !(Maybe OAuthToken)
68 , _niOAuthToken :: !(Maybe OAuthToken)
69 , _niFields :: !(Maybe Text)
69 , _niFields :: !(Maybe Text)
@@ -79,7 +79,7 @@ data NegotiationsInsert' = NegotiationsInsert'
79--
79--
80-- * 'niUserIP'
80-- * 'niUserIP'
81--
81--
82−-- * 'niNegotiationDto'
82+-- * 'niNegotiationDTO'
83--
83--
84-- * 'niKey'
84-- * 'niKey'
85--
85--
@@ -87,14 +87,14 @@ data NegotiationsInsert' = NegotiationsInsert'
87--
87--
88-- * 'niFields'
88-- * 'niFields'
89negotiationsInsert'
89negotiationsInsert'
90− :: NegotiationDto -- ^ 'NegotiationDto'
90+ :: NegotiationDTO -- ^ 'NegotiationDTO'
91 -> NegotiationsInsert'
91 -> NegotiationsInsert'
92−negotiationsInsert' pNiNegotiationDto_ =
92+negotiationsInsert' pNiNegotiationDTO_ =
93 NegotiationsInsert'
93 NegotiationsInsert'
94 { _niQuotaUser = Nothing
94 { _niQuotaUser = Nothing
95 , _niPrettyPrint = True
95 , _niPrettyPrint = True
96 , _niUserIP = Nothing
96 , _niUserIP = Nothing
97− , _niNegotiationDto = pNiNegotiationDto_
97+ , _niNegotiationDTO = pNiNegotiationDTO_
98 , _niKey = Nothing
98 , _niKey = Nothing
99 , _niOAuthToken = Nothing
99 , _niOAuthToken = Nothing
100 , _niFields = Nothing
100 , _niFields = Nothing
@@ -119,10 +119,10 @@ niUserIP :: Lens' NegotiationsInsert' (Maybe Text)
119niUserIP = lens _niUserIP (\ s a -> s{_niUserIP = a})
119niUserIP = lens _niUserIP (\ s a -> s{_niUserIP = a})
120
120
121-- | Multipart request metadata.
121-- | Multipart request metadata.
122−niNegotiationDto :: Lens' NegotiationsInsert' NegotiationDto
122+niNegotiationDTO :: Lens' NegotiationsInsert' NegotiationDTO
123−niNegotiationDto
123+niNegotiationDTO
124− = lens _niNegotiationDto
124+ = lens _niNegotiationDTO
125− (\ s a -> s{_niNegotiationDto = a})
125+ (\ s a -> s{_niNegotiationDTO = a})
126
126
127-- | 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
128-- 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
@@ -144,7 +144,7 @@ instance GoogleAuth NegotiationsInsert' where
144 authToken = niOAuthToken . _Just
144 authToken = niOAuthToken . _Just
145
145
146instance GoogleRequest NegotiationsInsert' where
146instance GoogleRequest NegotiationsInsert' where
147− type Rs NegotiationsInsert' = NegotiationDto
147+ type Rs NegotiationsInsert' = NegotiationDTO
148 request = requestWithRoute defReq adExchangeBuyerURL
148 request = requestWithRoute defReq adExchangeBuyerURL
149 requestWithRoute r u NegotiationsInsert'{..}
149 requestWithRoute r u NegotiationsInsert'{..}
150 = go _niQuotaUser (Just _niPrettyPrint) _niUserIP
150 = go _niQuotaUser (Just _niPrettyPrint) _niUserIP
@@ -152,7 +152,7 @@ instance GoogleRequest NegotiationsInsert' where
152 _niKey
152 _niKey
153 _niOAuthToken
153 _niOAuthToken
154 (Just AltJSON)
154 (Just AltJSON)
155− _niNegotiationDto
155+ _niNegotiationDTO
156 where go
156 where go
157 = clientWithRoute
157 = clientWithRoute
158 (Proxy :: Proxy NegotiationsInsertResource)
158 (Proxy :: Proxy NegotiationsInsertResource)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Get.hs+2−2
@@ -53,7 +53,7 @@ type OffersGetResource =
53 QueryParam "fields" Text :>
53 QueryParam "fields" Text :>
54 QueryParam "key" Key :>
54 QueryParam "key" Key :>
55 QueryParam "oauth_token" OAuthToken :>
55 QueryParam "oauth_token" OAuthToken :>
56− QueryParam "alt" AltJSON :> Get '[JSON] OfferDto
56+ QueryParam "alt" AltJSON :> Get '[JSON] OfferDTO
57
57
58-- | Gets the requested offer.
58-- | Gets the requested offer.
59--
59--
@@ -141,7 +141,7 @@ instance GoogleAuth OffersGet' where
141 authToken = ogOAuthToken . _Just
141 authToken = ogOAuthToken . _Just
142
142
143instance GoogleRequest OffersGet' where
143instance GoogleRequest OffersGet' where
144− type Rs OffersGet' = OfferDto
144+ type Rs OffersGet' = OfferDTO
145 request = requestWithRoute defReq adExchangeBuyerURL
145 request = requestWithRoute defReq adExchangeBuyerURL
146 requestWithRoute r u OffersGet'{..}
146 requestWithRoute r u OffersGet'{..}
147 = go _ogOfferId _ogQuotaUser (Just _ogPrettyPrint)
147 = go _ogOfferId _ogQuotaUser (Just _ogPrettyPrint)
gogol-adexchange-buyer/gen/Network/Google/Resource/AdExchangeBuyer/Offers/Insert.hs+12−12
@@ -34,7 +34,7 @@ module Network.Google.Resource.AdExchangeBuyer.Offers.Insert
34 , oiPrettyPrint
34 , oiPrettyPrint
35 , oiUserIP
35 , oiUserIP
36 , oiKey
36 , oiKey
37− , oiOfferDto
37+ , oiOfferDTO
38 , oiOAuthToken
38 , oiOAuthToken
39 , oiFields
39 , oiFields
40 ) where
40 ) where
@@ -53,7 +53,7 @@ type OffersInsertResource =
53 QueryParam "key" Key :>
53 QueryParam "key" Key :>
54 QueryParam "oauth_token" OAuthToken :>
54 QueryParam "oauth_token" OAuthToken :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56− ReqBody '[JSON] OfferDto :> Post '[JSON] OfferDto
56+ ReqBody '[JSON] OfferDTO :> Post '[JSON] OfferDTO
57
57
58-- | Creates or updates the requested offer.
58-- | Creates or updates the requested offer.
59--
59--
@@ -63,7 +63,7 @@ data OffersInsert' = OffersInsert'
63 , _oiPrettyPrint :: !Bool
63 , _oiPrettyPrint :: !Bool
64 , _oiUserIP :: !(Maybe Text)
64 , _oiUserIP :: !(Maybe Text)
65 , _oiKey :: !(Maybe Key)
65 , _oiKey :: !(Maybe Key)
66− , _oiOfferDto :: !OfferDto
66+ , _oiOfferDTO :: !OfferDTO
67 , _oiOAuthToken :: !(Maybe OAuthToken)
67 , _oiOAuthToken :: !(Maybe OAuthToken)
68 , _oiFields :: !(Maybe Text)
68 , _oiFields :: !(Maybe Text)
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -80,21 +80,21 @@ data OffersInsert' = OffersInsert'
80--
80--
81-- * 'oiKey'
81-- * 'oiKey'
82--
82--
83−-- * 'oiOfferDto'
83+-- * 'oiOfferDTO'
84--
84--
85-- * 'oiOAuthToken'
85-- * 'oiOAuthToken'
86--
86--
87-- * 'oiFields'
87-- * 'oiFields'
88offersInsert'
88offersInsert'
89− :: OfferDto -- ^ 'OfferDto'
89+ :: OfferDTO -- ^ 'OfferDTO'
90 -> OffersInsert'
90 -> OffersInsert'
91−offersInsert' pOiOfferDto_ =
91+offersInsert' pOiOfferDTO_ =
92 OffersInsert'
92 OffersInsert'
93 { _oiQuotaUser = Nothing
93 { _oiQuotaUser = Nothing
94 , _oiPrettyPrint = True
94 , _oiPrettyPrint = True
95 , _oiUserIP = Nothing
95 , _oiUserIP = Nothing
96 , _oiKey = Nothing
96 , _oiKey = Nothing
97− , _oiOfferDto = pOiOfferDto_
97+ , _oiOfferDTO = pOiOfferDTO_
98 , _oiOAuthToken = Nothing
98 , _oiOAuthToken = Nothing
99 , _oiFields = Nothing
99 , _oiFields = Nothing
100 }
100 }
@@ -124,9 +124,9 @@ oiKey :: Lens' OffersInsert' (Maybe Key)
124oiKey = lens _oiKey (\ s a -> s{_oiKey = a})
124oiKey = lens _oiKey (\ s a -> s{_oiKey = a})
125
125
126-- | Multipart request metadata.
126-- | Multipart request metadata.
127−oiOfferDto :: Lens' OffersInsert' OfferDto
127+oiOfferDTO :: Lens' OffersInsert' OfferDTO
128−oiOfferDto
128+oiOfferDTO
129− = lens _oiOfferDto (\ s a -> s{_oiOfferDto = a})
129+ = lens _oiOfferDTO (\ s a -> s{_oiOfferDTO = a})
130
130
131-- | OAuth 2.0 token for the current user.
131-- | OAuth 2.0 token for the current user.
132oiOAuthToken :: Lens' OffersInsert' (Maybe OAuthToken)
132oiOAuthToken :: Lens' OffersInsert' (Maybe OAuthToken)
@@ -142,7 +142,7 @@ instance GoogleAuth OffersInsert' where
142 authToken = oiOAuthToken . _Just
142 authToken = oiOAuthToken . _Just
143
143
144instance GoogleRequest OffersInsert' where
144instance GoogleRequest OffersInsert' where
145− type Rs OffersInsert' = OfferDto
145+ type Rs OffersInsert' = OfferDTO
146 request = requestWithRoute defReq adExchangeBuyerURL
146 request = requestWithRoute defReq adExchangeBuyerURL
147 requestWithRoute r u OffersInsert'{..}
147 requestWithRoute r u OffersInsert'{..}
148 = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIP
148 = go _oiQuotaUser (Just _oiPrettyPrint) _oiUserIP
@@ -150,7 +150,7 @@ instance GoogleRequest OffersInsert' where
150 _oiKey
150 _oiKey
151 _oiOAuthToken
151 _oiOAuthToken
152 (Just AltJSON)
152 (Just AltJSON)
153− _oiOfferDto
153+ _oiOfferDTO
154 where go
154 where go
155 = clientWithRoute
155 = clientWithRoute
156 (Proxy :: Proxy OffersInsertResource)
156 (Proxy :: Proxy OffersInsertResource)
gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer/Types/Product.hs+2−1
@@ -229,7 +229,7 @@ data DataTransfer = DataTransfer
229 , _dtOldOwnerUserId :: !(Maybe Text)
229 , _dtOldOwnerUserId :: !(Maybe Text)
230 , _dtKind :: !Text
230 , _dtKind :: !Text
231 , _dtNewOwnerUserId :: !(Maybe Text)
231 , _dtNewOwnerUserId :: !(Maybe Text)
232− , _dtRequestTime :: !(Maybe DateTime)
232+ , _dtRequestTime :: !(Maybe DateTime')
233 , _dtApplicationDataTransfers :: !(Maybe [ApplicationDataTransfer])
233 , _dtApplicationDataTransfers :: !(Maybe [ApplicationDataTransfer])
234 , _dtId :: !(Maybe Text)
234 , _dtId :: !(Maybe Text)
235 , _dtOverallTransferStatusCode :: !(Maybe Text)
235 , _dtOverallTransferStatusCode :: !(Maybe Text)
@@ -293,6 +293,7 @@ dtRequestTime :: Lens' DataTransfer (Maybe UTCTime)
293dtRequestTime
293dtRequestTime
294 = lens _dtRequestTime
294 = lens _dtRequestTime
295 (\ s a -> s{_dtRequestTime = a})
295 (\ s a -> s{_dtRequestTime = a})
296+ . mapping _DateTime
296
297
297-- | List of per application data transfer resources. It contains data
298-- | List of per application data transfer resources. It contains data
298-- transfer details of the applications associated with this transfer
299-- transfer details of the applications associated with this transfer
gogol-admin-directory/gen/Network/Google/AdminDirectory/Types/Product.hs+25−15
@@ -679,7 +679,7 @@ instance ToJSON Group where
679--
679--
680-- /See:/ 'chromeOSDeviceActiveTimeRanges' smart constructor.
680-- /See:/ 'chromeOSDeviceActiveTimeRanges' smart constructor.
681data ChromeOSDeviceActiveTimeRanges = ChromeOSDeviceActiveTimeRanges
681data ChromeOSDeviceActiveTimeRanges = ChromeOSDeviceActiveTimeRanges
682− { _codatrDate :: !(Maybe Date)
682+ { _codatrDate :: !(Maybe Date')
683 , _codatrActiveTime :: !(Maybe Int32)
683 , _codatrActiveTime :: !(Maybe Int32)
684 } deriving (Eq,Read,Show,Data,Typeable,Generic)
684 } deriving (Eq,Read,Show,Data,Typeable,Generic)
685
685
@@ -699,9 +699,10 @@ chromeOSDeviceActiveTimeRanges =
699 }
699 }
700
700
701-- | Date of usage
701-- | Date of usage
702−codatrDate :: Lens' ChromeOSDeviceActiveTimeRanges (Maybe UTCTime)
702+codatrDate :: Lens' ChromeOSDeviceActiveTimeRanges (Maybe LocalTime)
703codatrDate
703codatrDate
704− = lens _codatrDate (\ s a -> s{_codatrDate = a})
704+ = lens _codatrDate (\ s a -> s{_codatrDate = a}) .
705+ mapping _Date
705
706
706-- | Duration in milliseconds
707-- | Duration in milliseconds
707codatrActiveTime :: Lens' ChromeOSDeviceActiveTimeRanges (Maybe Int32)
708codatrActiveTime :: Lens' ChromeOSDeviceActiveTimeRanges (Maybe Int32)
@@ -888,16 +889,16 @@ data ChromeOSDevice = ChromeOSDevice
888 , _codEtag :: !(Maybe Text)
889 , _codEtag :: !(Maybe Text)
889 , _codAnnotatedUser :: !(Maybe Text)
890 , _codAnnotatedUser :: !(Maybe Text)
890 , _codPlatformVersion :: !(Maybe Text)
891 , _codPlatformVersion :: !(Maybe Text)
891− , _codLastSync :: !(Maybe DateTime)
892+ , _codLastSync :: !(Maybe DateTime')
892 , _codActiveTimeRanges :: !(Maybe [ChromeOSDeviceActiveTimeRanges])
893 , _codActiveTimeRanges :: !(Maybe [ChromeOSDeviceActiveTimeRanges])
893 , _codKind :: !Text
894 , _codKind :: !Text
894 , _codEthernetMACAddress :: !(Maybe Text)
895 , _codEthernetMACAddress :: !(Maybe Text)
895− , _codLastEnrollmentTime :: !(Maybe DateTime)
896+ , _codLastEnrollmentTime :: !(Maybe DateTime')
896 , _codAnnotatedLocation :: !(Maybe Text)
897 , _codAnnotatedLocation :: !(Maybe Text)
897 , _codMACAddress :: !(Maybe Text)
898 , _codMACAddress :: !(Maybe Text)
898 , _codOrgUnitPath :: !(Maybe Text)
899 , _codOrgUnitPath :: !(Maybe Text)
899 , _codRecentUsers :: !(Maybe [ChromeOSDeviceRecentUsers])
900 , _codRecentUsers :: !(Maybe [ChromeOSDeviceRecentUsers])
900− , _codSupportEndDate :: !(Maybe DateTime)
901+ , _codSupportEndDate :: !(Maybe DateTime')
901 , _codModel :: !(Maybe Text)
902 , _codModel :: !(Maybe Text)
902 , _codWillAutoRenew :: !(Maybe Bool)
903 , _codWillAutoRenew :: !(Maybe Bool)
903 , _codMeid :: !(Maybe Text)
904 , _codMeid :: !(Maybe Text)
@@ -1020,7 +1021,8 @@ codPlatformVersion
1020-- in the Google Apps administrator control panel (Read-only)
1021-- in the Google Apps administrator control panel (Read-only)
1021codLastSync :: Lens' ChromeOSDevice (Maybe UTCTime)
1022codLastSync :: Lens' ChromeOSDevice (Maybe UTCTime)
1022codLastSync
1023codLastSync
1023− = lens _codLastSync (\ s a -> s{_codLastSync = a})
1024+ = lens _codLastSync (\ s a -> s{_codLastSync = a}) .
1025+ mapping _DateTime
1024
1026
1025-- | List of active time ranges (Read-only)
1027-- | List of active time ranges (Read-only)
1026codActiveTimeRanges :: Lens' ChromeOSDevice [ChromeOSDeviceActiveTimeRanges]
1028codActiveTimeRanges :: Lens' ChromeOSDevice [ChromeOSDeviceActiveTimeRanges]
@@ -1045,6 +1047,7 @@ codLastEnrollmentTime :: Lens' ChromeOSDevice (Maybe UTCTime)
1045codLastEnrollmentTime
1047codLastEnrollmentTime
1046 = lens _codLastEnrollmentTime
1048 = lens _codLastEnrollmentTime
1047 (\ s a -> s{_codLastEnrollmentTime = a})
1049 (\ s a -> s{_codLastEnrollmentTime = a})
1050+ . mapping _DateTime
1048
1051
1049-- | Address or location of the device as noted by the administrator
1052-- | Address or location of the device as noted by the administrator
1050codAnnotatedLocation :: Lens' ChromeOSDevice (Maybe Text)
1053codAnnotatedLocation :: Lens' ChromeOSDevice (Maybe Text)
@@ -1078,6 +1081,7 @@ codSupportEndDate :: Lens' ChromeOSDevice (Maybe UTCTime)
1078codSupportEndDate
1081codSupportEndDate
1079 = lens _codSupportEndDate
1082 = lens _codSupportEndDate
1080 (\ s a -> s{_codSupportEndDate = a})
1083 (\ s a -> s{_codSupportEndDate = a})
1084+ . mapping _DateTime
1081
1085
1082-- | Chromebook Model (Read-only)
1086-- | Chromebook Model (Read-only)
1083codModel :: Lens' ChromeOSDevice (Maybe Text)
1087codModel :: Lens' ChromeOSDevice (Maybe Text)
@@ -1386,7 +1390,7 @@ data Notification = Notification
1386 , _nFromAddress :: !(Maybe Text)
1390 , _nFromAddress :: !(Maybe Text)
1387 , _nIsUnread :: !(Maybe Bool)
1391 , _nIsUnread :: !(Maybe Bool)
1388 , _nNotificationId :: !(Maybe Text)
1392 , _nNotificationId :: !(Maybe Text)
1389− , _nSendTime :: !(Maybe DateTime)
1393+ , _nSendTime :: !(Maybe DateTime')
1390 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1394 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1391
1395
1392-- | Creates a value of 'Notification' with the minimum fields required to make a request.
1396-- | Creates a value of 'Notification' with the minimum fields required to make a request.
@@ -1456,7 +1460,8 @@ nNotificationId
1456-- | Time at which notification was sent (Read-only)
1460-- | Time at which notification was sent (Read-only)
1457nSendTime :: Lens' Notification (Maybe UTCTime)
1461nSendTime :: Lens' Notification (Maybe UTCTime)
1458nSendTime
1462nSendTime
1459− = lens _nSendTime (\ s a -> s{_nSendTime = a})
1463+ = lens _nSendTime (\ s a -> s{_nSendTime = a}) .
1464+ mapping _DateTime
1460
1465
1461instance FromJSON Notification where
1466instance FromJSON Notification where
1462 parseJSON
1467 parseJSON
@@ -2313,8 +2318,8 @@ instance ToJSON MobileDeviceApplications where
2313--
2318--
2314-- /See:/ 'user' smart constructor.
2319-- /See:/ 'user' smart constructor.
2315data User = User
2320data User = User
2316− { _useCreationTime :: !(Maybe DateTime)
2321+ { _useCreationTime :: !(Maybe DateTime')
2317− , _useLastLoginTime :: !(Maybe DateTime)
2322+ , _useLastLoginTime :: !(Maybe DateTime')
2318 , _useThumbnailPhotoEtag :: !(Maybe Text)
2323 , _useThumbnailPhotoEtag :: !(Maybe Text)
2319 , _useEtag :: !(Maybe Text)
2324 , _useEtag :: !(Maybe Text)
2320 , _useIPWhiteListed :: !(Maybe Bool)
2325 , _useIPWhiteListed :: !(Maybe Bool)
@@ -2329,7 +2334,7 @@ data User = User
2329 , _useExternalIds :: !(Maybe JSONValue)
2334 , _useExternalIds :: !(Maybe JSONValue)
2330 , _useSuspended :: !(Maybe Bool)
2335 , _useSuspended :: !(Maybe Bool)
2331 , _useAgreedToTerms :: !(Maybe Bool)
2336 , _useAgreedToTerms :: !(Maybe Bool)
2332− , _useDeletionTime :: !(Maybe DateTime)
2337+ , _useDeletionTime :: !(Maybe DateTime')
2333 , _useNonEditableAliases :: !(Maybe [Text])
2338 , _useNonEditableAliases :: !(Maybe [Text])
2334 , _useOrgUnitPath :: !(Maybe Text)
2339 , _useOrgUnitPath :: !(Maybe Text)
2335 , _useCustomerId :: !(Maybe Text)
2340 , _useCustomerId :: !(Maybe Text)
@@ -2469,12 +2474,14 @@ useCreationTime :: Lens' User (Maybe UTCTime)
2469useCreationTime
2474useCreationTime
2470 = lens _useCreationTime
2475 = lens _useCreationTime
2471 (\ s a -> s{_useCreationTime = a})
2476 (\ s a -> s{_useCreationTime = a})
2477+ . mapping _DateTime
2472
2478
2473-- | User\'s last login time. (Read-only)
2479-- | User\'s last login time. (Read-only)
2474useLastLoginTime :: Lens' User (Maybe UTCTime)
2480useLastLoginTime :: Lens' User (Maybe UTCTime)
2475useLastLoginTime
2481useLastLoginTime
2476 = lens _useLastLoginTime
2482 = lens _useLastLoginTime
2477 (\ s a -> s{_useLastLoginTime = a})
2483 (\ s a -> s{_useLastLoginTime = a})
2484+ . mapping _DateTime
2478
2485
2479-- | ETag of the user\'s photo (Read-only)
2486-- | ETag of the user\'s photo (Read-only)
2480useThumbnailPhotoEtag :: Lens' User (Maybe Text)
2487useThumbnailPhotoEtag :: Lens' User (Maybe Text)
@@ -2553,6 +2560,7 @@ useDeletionTime :: Lens' User (Maybe UTCTime)
2553useDeletionTime
2560useDeletionTime
2554 = lens _useDeletionTime
2561 = lens _useDeletionTime
2555 (\ s a -> s{_useDeletionTime = a})
2562 (\ s a -> s{_useDeletionTime = a})
2563+ . mapping _DateTime
2556
2564
2557-- | List of non editable aliases (Read-only)
2565-- | List of non editable aliases (Read-only)
2558useNonEditableAliases :: Lens' User [Text]
2566useNonEditableAliases :: Lens' User [Text]
@@ -3565,7 +3573,7 @@ data MobileDevice = MobileDevice
3565 , _mobResourceId :: !(Maybe Text)
3573 , _mobResourceId :: !(Maybe Text)
3566 , _mobBuildNumber :: !(Maybe Text)
3574 , _mobBuildNumber :: !(Maybe Text)
3567 , _mobManagedAccountIsOnOwnerProfile :: !(Maybe Bool)
3575 , _mobManagedAccountIsOnOwnerProfile :: !(Maybe Bool)
3568− , _mobLastSync :: !(Maybe DateTime)
3576+ , _mobLastSync :: !(Maybe DateTime')
3569 , _mobOtherAccountsInfo :: !(Maybe [Text])
3577 , _mobOtherAccountsInfo :: !(Maybe [Text])
3570 , _mobKind :: !Text
3578 , _mobKind :: !Text
3571 , _mobAdbStatus :: !(Maybe Bool)
3579 , _mobAdbStatus :: !(Maybe Bool)
@@ -3578,7 +3586,7 @@ data MobileDevice = MobileDevice
3578 , _mobUnknownSourcesStatus :: !(Maybe Bool)
3586 , _mobUnknownSourcesStatus :: !(Maybe Bool)
3579 , _mobMeid :: !(Maybe Text)
3587 , _mobMeid :: !(Maybe Text)
3580 , _mobDeviceId :: !(Maybe Text)
3588 , _mobDeviceId :: !(Maybe Text)
3581− , _mobFirstSync :: !(Maybe DateTime)
3589+ , _mobFirstSync :: !(Maybe DateTime')
3582 , _mobUserAgent :: !(Maybe Text)
3590 , _mobUserAgent :: !(Maybe Text)
3583 , _mobImei :: !(Maybe Text)
3591 , _mobImei :: !(Maybe Text)
3584 , _mobType :: !(Maybe Text)
3592 , _mobType :: !(Maybe Text)
@@ -3733,7 +3741,8 @@ mobManagedAccountIsOnOwnerProfile
3733-- in the Google Apps administrator control panel (Read-only)
3741-- in the Google Apps administrator control panel (Read-only)
3734mobLastSync :: Lens' MobileDevice (Maybe UTCTime)
3742mobLastSync :: Lens' MobileDevice (Maybe UTCTime)
3735mobLastSync
3743mobLastSync
3736− = lens _mobLastSync (\ s a -> s{_mobLastSync = a})
3744+ = lens _mobLastSync (\ s a -> s{_mobLastSync = a}) .
3745+ mapping _DateTime
3737
3746
3738-- | List of accounts added on device (Read-only)
3747-- | List of accounts added on device (Read-only)
3739mobOtherAccountsInfo :: Lens' MobileDevice [Text]
3748mobOtherAccountsInfo :: Lens' MobileDevice [Text]
@@ -3804,6 +3813,7 @@ mobDeviceId
3804mobFirstSync :: Lens' MobileDevice (Maybe UTCTime)
3813mobFirstSync :: Lens' MobileDevice (Maybe UTCTime)
3805mobFirstSync
3814mobFirstSync
3806 = lens _mobFirstSync (\ s a -> s{_mobFirstSync = a})
3815 = lens _mobFirstSync (\ s a -> s{_mobFirstSync = a})
3816+ . mapping _DateTime
3807
3817
3808-- | Mobile Device user agent
3818-- | Mobile Device user agent
3809mobUserAgent :: Lens' MobileDevice (Maybe Text)
3819mobUserAgent :: Lens' MobileDevice (Maybe Text)
gogol-admin-reports/gen/Network/Google/AdminReports/Types/Product.hs+6−3
@@ -163,7 +163,7 @@ instance ToJSON UsageReports where
163--
163--
164-- /See:/ 'activityId' smart constructor.
164-- /See:/ 'activityId' smart constructor.
165data ActivityId = ActivityId
165data ActivityId = ActivityId
166− { _aiTime :: !(Maybe DateTime)
166+ { _aiTime :: !(Maybe DateTime')
167 , _aiUniqueQualifier :: !(Maybe Int64)
167 , _aiUniqueQualifier :: !(Maybe Int64)
168 , _aiCustomerId :: !(Maybe Text)
168 , _aiCustomerId :: !(Maybe Text)
169 , _aiApplicationName :: !(Maybe Text)
169 , _aiApplicationName :: !(Maybe Text)
@@ -192,7 +192,9 @@ activityId =
192
192
193-- | Time of occurrence of the activity.
193-- | Time of occurrence of the activity.
194aiTime :: Lens' ActivityId (Maybe UTCTime)
194aiTime :: Lens' ActivityId (Maybe UTCTime)
195+aiTime
195−aiTime = lens _aiTime (\ s a -> s{_aiTime = a})
196+ = lens _aiTime (\ s a -> s{_aiTime = a}) .
197+ mapping _DateTime
196
198
197-- | Unique qualifier if multiple events have the same time.
199-- | Unique qualifier if multiple events have the same time.
198aiUniqueQualifier :: Lens' ActivityId (Maybe Int64)
200aiUniqueQualifier :: Lens' ActivityId (Maybe Int64)
@@ -983,7 +985,7 @@ instance ToJSON ActivityActor where
983--
985--
984-- /See:/ 'usageReportParameters' smart constructor.
986-- /See:/ 'usageReportParameters' smart constructor.
985data UsageReportParameters = UsageReportParameters
987data UsageReportParameters = UsageReportParameters
986− { _urpDatetimeValue :: !(Maybe DateTime)
988+ { _urpDatetimeValue :: !(Maybe DateTime')
987 , _urpBoolValue :: !(Maybe Bool)
989 , _urpBoolValue :: !(Maybe Bool)
988 , _urpIntValue :: !(Maybe Int64)
990 , _urpIntValue :: !(Maybe Int64)
989 , _urpStringValue :: !(Maybe Text)
991 , _urpStringValue :: !(Maybe Text)
@@ -1023,6 +1025,7 @@ urpDatetimeValue :: Lens' UsageReportParameters (Maybe UTCTime)
1023urpDatetimeValue
1025urpDatetimeValue
1024 = lens _urpDatetimeValue
1026 = lens _urpDatetimeValue
1025 (\ s a -> s{_urpDatetimeValue = a})
1027 (\ s a -> s{_urpDatetimeValue = a})
1028+ . mapping _DateTime
1026
1029
1027-- | Boolean value of the parameter.
1030-- | Boolean value of the parameter.
1028urpBoolValue :: Lens' UsageReportParameters (Maybe Bool)
1031urpBoolValue :: Lens' UsageReportParameters (Maybe Bool)
gogol-affiliates/gen/Network/Google/Affiliates/Types/Product.hs+22−14
@@ -119,7 +119,7 @@ instance ToJSON CcOfferRewards where
119--
119--
120-- /See:/ 'event' smart constructor.
120-- /See:/ 'event' smart constructor.
121data Event = Event
121data Event = Event
122− { _eModifyDate :: !(Maybe DateTime)
122+ { _eModifyDate :: !(Maybe DateTime')
123 , _eStatus :: !(Maybe Text)
123 , _eStatus :: !(Maybe Text)
124 , _eCommissionableSales :: !(Maybe Money)
124 , _eCommissionableSales :: !(Maybe Money)
125 , _eChargeId :: !(Maybe Text)
125 , _eChargeId :: !(Maybe Text)
@@ -129,7 +129,7 @@ data Event = Event
129 , _eKind :: !Text
129 , _eKind :: !Text
130 , _eNetworkFee :: !(Maybe Money)
130 , _eNetworkFee :: !(Maybe Money)
131 , _eAdvertiserId :: !(Maybe Int64)
131 , _eAdvertiserId :: !(Maybe Int64)
132− , _eEventDate :: !(Maybe DateTime)
132+ , _eEventDate :: !(Maybe DateTime')
133 , _eProducts :: !(Maybe [EventProducts])
133 , _eProducts :: !(Maybe [EventProducts])
134 , _ePublisherFee :: !(Maybe Money)
134 , _ePublisherFee :: !(Maybe Money)
135 , _eType :: !(Maybe Text)
135 , _eType :: !(Maybe Text)
@@ -206,7 +206,8 @@ event =
206-- value.
206-- value.
207eModifyDate :: Lens' Event (Maybe UTCTime)
207eModifyDate :: Lens' Event (Maybe UTCTime)
208eModifyDate
208eModifyDate
209− = lens _eModifyDate (\ s a -> s{_eModifyDate = a})
209+ = lens _eModifyDate (\ s a -> s{_eModifyDate = a}) .
210+ mapping _DateTime
210
211
211-- | Status of the event (active|canceled). Only returned for charge and
212-- | Status of the event (active|canceled). Only returned for charge and
212-- conversion events.
213-- conversion events.
@@ -262,7 +263,8 @@ eAdvertiserId
262-- | The date-time this event was initiated as a RFC 3339 date-time value.
263-- | The date-time this event was initiated as a RFC 3339 date-time value.
263eEventDate :: Lens' Event (Maybe UTCTime)
264eEventDate :: Lens' Event (Maybe UTCTime)
264eEventDate
265eEventDate
265− = lens _eEventDate (\ s a -> s{_eEventDate = a})
266+ = lens _eEventDate (\ s a -> s{_eEventDate = a}) .
267+ mapping _DateTime
266
268
267-- | Products associated with the event.
269-- | Products associated with the event.
268eProducts :: Lens' Event [EventProducts]
270eProducts :: Lens' Event [EventProducts]
@@ -353,14 +355,14 @@ data Link = Link
353 { _lAuthorship :: !(Maybe Text)
355 { _lAuthorship :: !(Maybe Text)
354 , _lDestinationURL :: !(Maybe Text)
356 , _lDestinationURL :: !(Maybe Text)
355 , _lClickTrackingURL :: !(Maybe Text)
357 , _lClickTrackingURL :: !(Maybe Text)
356− , _lCreateDate :: !(Maybe DateTime)
358+ , _lCreateDate :: !(Maybe DateTime')
357 , _lKind :: !Text
359 , _lKind :: !Text
358 , _lAdvertiserId :: !(Maybe Int64)
360 , _lAdvertiserId :: !(Maybe Int64)
359− , _lEndDate :: !(Maybe DateTime)
361+ , _lEndDate :: !(Maybe DateTime')
360 , _lImageAltText :: !(Maybe Text)
362 , _lImageAltText :: !(Maybe Text)
361 , _lPromotionType :: !(Maybe Text)
363 , _lPromotionType :: !(Maybe Text)
362 , _lAvailability :: !(Maybe Text)
364 , _lAvailability :: !(Maybe Text)
363− , _lStartDate :: !(Maybe DateTime)
365+ , _lStartDate :: !(Maybe DateTime')
364 , _lName :: !(Maybe Text)
366 , _lName :: !(Maybe Text)
365 , _lImpressionTrackingURL :: !(Maybe Text)
367 , _lImpressionTrackingURL :: !(Maybe Text)
366 , _lSpecialOffers :: !(Maybe LinkSpecialOffers)
368 , _lSpecialOffers :: !(Maybe LinkSpecialOffers)
@@ -465,7 +467,8 @@ lClickTrackingURL
465-- | Date that this link was created.
467-- | Date that this link was created.
466lCreateDate :: Lens' Link (Maybe UTCTime)
468lCreateDate :: Lens' Link (Maybe UTCTime)
467lCreateDate
469lCreateDate
468− = lens _lCreateDate (\ s a -> s{_lCreateDate = a})
470+ = lens _lCreateDate (\ s a -> s{_lCreateDate = a}) .
471+ mapping _DateTime
469
472
470-- | The kind for one entity.
473-- | The kind for one entity.
471lKind :: Lens' Link Text
474lKind :: Lens' Link Text
@@ -479,7 +482,9 @@ lAdvertiserId
479
482
480-- | Date that this link becomes inactive.
483-- | Date that this link becomes inactive.
481lEndDate :: Lens' Link (Maybe UTCTime)
484lEndDate :: Lens' Link (Maybe UTCTime)
485+lEndDate
482−lEndDate = lens _lEndDate (\ s a -> s{_lEndDate = a})
486+ = lens _lEndDate (\ s a -> s{_lEndDate = a}) .
487+ mapping _DateTime
483
488
484-- | image alt text.
489-- | image alt text.
485lImageAltText :: Lens' Link (Maybe Text)
490lImageAltText :: Lens' Link (Maybe Text)
@@ -502,7 +507,8 @@ lAvailability
502-- | Date that this link becomes active.
507-- | Date that this link becomes active.
503lStartDate :: Lens' Link (Maybe UTCTime)
508lStartDate :: Lens' Link (Maybe UTCTime)
504lStartDate
509lStartDate
505− = lens _lStartDate (\ s a -> s{_lStartDate = a})
510+ = lens _lStartDate (\ s a -> s{_lStartDate = a}) .
511+ mapping _DateTime
506
512
507-- | The logical name for this link.
513-- | The logical name for this link.
508lName :: Lens' Link (Maybe Text)
514lName :: Lens' Link (Maybe Text)
@@ -1380,7 +1386,7 @@ data Advertiser = Advertiser
1380 , _advCategory :: !(Maybe Text)
1386 , _advCategory :: !(Maybe Text)
1381 , _advSiteURL :: !(Maybe Text)
1387 , _advSiteURL :: !(Maybe Text)
1382 , _advPayoutRank :: !(Maybe Text)
1388 , _advPayoutRank :: !(Maybe Text)
1383− , _advJoinDate :: !(Maybe DateTime)
1389+ , _advJoinDate :: !(Maybe DateTime')
1384 , _advDefaultLinkId :: !(Maybe Int64)
1390 , _advDefaultLinkId :: !(Maybe Int64)
1385 , _advRedirectDomains :: !(Maybe [Text])
1391 , _advRedirectDomains :: !(Maybe [Text])
1386 , _advName :: !(Maybe Text)
1392 , _advName :: !(Maybe Text)
@@ -1522,7 +1528,8 @@ advPayoutRank
1522-- advertiser.
1528-- advertiser.
1523advJoinDate :: Lens' Advertiser (Maybe UTCTime)
1529advJoinDate :: Lens' Advertiser (Maybe UTCTime)
1524advJoinDate
1530advJoinDate
1525− = lens _advJoinDate (\ s a -> s{_advJoinDate = a})
1531+ = lens _advJoinDate (\ s a -> s{_advJoinDate = a}) .
1532+ mapping _DateTime
1526
1533
1527-- | The default link id for this advertiser.
1534-- | The default link id for this advertiser.
1528advDefaultLinkId :: Lens' Advertiser (Maybe Int64)
1535advDefaultLinkId :: Lens' Advertiser (Maybe Int64)
@@ -2548,7 +2555,7 @@ data Publisher = Publisher
2548 { _pubStatus :: !(Maybe Text)
2555 { _pubStatus :: !(Maybe Text)
2549 , _pubKind :: !Text
2556 , _pubKind :: !Text
2550 , _pubPayoutRank :: !(Maybe Text)
2557 , _pubPayoutRank :: !(Maybe Text)
2551− , _pubJoinDate :: !(Maybe DateTime)
2558+ , _pubJoinDate :: !(Maybe DateTime')
2552 , _pubClassification :: !(Maybe Text)
2559 , _pubClassification :: !(Maybe Text)
2553 , _pubName :: !(Maybe Text)
2560 , _pubName :: !(Maybe Text)
2554 , _pubEpcSevenDayAverage :: !(Maybe Money)
2561 , _pubEpcSevenDayAverage :: !(Maybe Money)
@@ -2622,7 +2629,8 @@ pubPayoutRank
2622-- publisher.
2629-- publisher.
2623pubJoinDate :: Lens' Publisher (Maybe UTCTime)
2630pubJoinDate :: Lens' Publisher (Maybe UTCTime)
2624pubJoinDate
2631pubJoinDate
2625− = lens _pubJoinDate (\ s a -> s{_pubJoinDate = a})
2632+ = lens _pubJoinDate (\ s a -> s{_pubJoinDate = a}) .
2633+ mapping _DateTime
2626
2634
2627-- | Classification that this publisher belongs to. See this link for all
2635-- | Classification that this publisher belongs to. See this link for all
2628-- publisher classifications:
2636-- publisher classifications:
gogol-analytics/gen/Network/Google/Analytics/Types/Product.hs+77−47
@@ -366,14 +366,14 @@ data UnSampledReport = UnSampledReport
366 , _uDriveDownloadDetails :: !(Maybe UnSampledReportDriveDownloadDetails)
366 , _uDriveDownloadDetails :: !(Maybe UnSampledReportDriveDownloadDetails)
367 , _uWebPropertyId :: !(Maybe Text)
367 , _uWebPropertyId :: !(Maybe Text)
368 , _uKind :: !Text
368 , _uKind :: !Text
369− , _uCreated :: !(Maybe DateTime)
369+ , _uCreated :: !(Maybe DateTime')
370 , _uFilters :: !(Maybe Text)
370 , _uFilters :: !(Maybe Text)
371 , _uProfileId :: !(Maybe Text)
371 , _uProfileId :: !(Maybe Text)
372 , _uEndDate :: !(Maybe Text)
372 , _uEndDate :: !(Maybe Text)
373 , _uSelfLink :: !(Maybe Text)
373 , _uSelfLink :: !(Maybe Text)
374 , _uAccountId :: !(Maybe Text)
374 , _uAccountId :: !(Maybe Text)
375 , _uId :: !(Maybe Text)
375 , _uId :: !(Maybe Text)
376− , _uUpdated :: !(Maybe DateTime)
376+ , _uUpdated :: !(Maybe DateTime')
377 , _uTitle :: !(Maybe Text)
377 , _uTitle :: !(Maybe Text)
378 , _uDimensions :: !(Maybe Text)
378 , _uDimensions :: !(Maybe Text)
379 , _uSegment :: !(Maybe Text)
379 , _uSegment :: !(Maybe Text)
@@ -481,7 +481,9 @@ uKind = lens _uKind (\ s a -> s{_uKind = a})
481
481
482-- | Time this unsampled report was created.
482-- | Time this unsampled report was created.
483uCreated :: Lens' UnSampledReport (Maybe UTCTime)
483uCreated :: Lens' UnSampledReport (Maybe UTCTime)
484+uCreated
484−uCreated = lens _uCreated (\ s a -> s{_uCreated = a})
485+ = lens _uCreated (\ s a -> s{_uCreated = a}) .
486+ mapping _DateTime
485
487
486-- | The filters for the unsampled report.
488-- | The filters for the unsampled report.
487uFilters :: Lens' UnSampledReport (Maybe Text)
489uFilters :: Lens' UnSampledReport (Maybe Text)
@@ -512,7 +514,9 @@ uId = lens _uId (\ s a -> s{_uId = a})
512
514
513-- | Time this unsampled report was last modified.
515-- | Time this unsampled report was last modified.
514uUpdated :: Lens' UnSampledReport (Maybe UTCTime)
516uUpdated :: Lens' UnSampledReport (Maybe UTCTime)
517+uUpdated
515−uUpdated = lens _uUpdated (\ s a -> s{_uUpdated = a})
518+ = lens _uUpdated (\ s a -> s{_uUpdated = a}) .
519+ mapping _DateTime
516
520
517-- | Title of the unsampled report.
521-- | Title of the unsampled report.
518uTitle :: Lens' UnSampledReport (Maybe Text)
522uTitle :: Lens' UnSampledReport (Maybe Text)
@@ -3033,14 +3037,14 @@ data Profile = Profile
3033 , _proSiteSearchQueryParameters :: !(Maybe Text)
3037 , _proSiteSearchQueryParameters :: !(Maybe Text)
3034 , _proKind :: !Text
3038 , _proKind :: !Text
3035 , _proDefaultPage :: !(Maybe Text)
3039 , _proDefaultPage :: !(Maybe Text)
3036− , _proCreated :: !(Maybe DateTime)
3040+ , _proCreated :: !(Maybe DateTime')
3037 , _proSelfLink :: !(Maybe Text)
3041 , _proSelfLink :: !(Maybe Text)
3038 , _proAccountId :: !(Maybe Text)
3042 , _proAccountId :: !(Maybe Text)
3039 , _proName :: !(Maybe Text)
3043 , _proName :: !(Maybe Text)
3040 , _proCurrency :: !(Maybe Text)
3044 , _proCurrency :: !(Maybe Text)
3041 , _proInternalWebPropertyId :: !(Maybe Text)
3045 , _proInternalWebPropertyId :: !(Maybe Text)
3042 , _proId :: !(Maybe Text)
3046 , _proId :: !(Maybe Text)
3043− , _proUpdated :: !(Maybe DateTime)
3047+ , _proUpdated :: !(Maybe DateTime')
3044 , _proPermissions :: !(Maybe ProfilePermissions)
3048 , _proPermissions :: !(Maybe ProfilePermissions)
3045 , _proWebsiteURL :: !(Maybe Text)
3049 , _proWebsiteURL :: !(Maybe Text)
3046 , _proType :: !(Maybe Text)
3050 , _proType :: !(Maybe Text)
@@ -3183,7 +3187,8 @@ proDefaultPage
3183-- | Time this view (profile) was created.
3187-- | Time this view (profile) was created.
3184proCreated :: Lens' Profile (Maybe UTCTime)
3188proCreated :: Lens' Profile (Maybe UTCTime)
3185proCreated
3189proCreated
3186− = lens _proCreated (\ s a -> s{_proCreated = a})
3190+ = lens _proCreated (\ s a -> s{_proCreated = a}) .
3191+ mapping _DateTime
3187
3192
3188-- | Link for this view (profile).
3193-- | Link for this view (profile).
3189proSelfLink :: Lens' Profile (Maybe Text)
3194proSelfLink :: Lens' Profile (Maybe Text)
@@ -3220,7 +3225,8 @@ proId = lens _proId (\ s a -> s{_proId = a})
3220-- | Time this view (profile) was last modified.
3225-- | Time this view (profile) was last modified.
3221proUpdated :: Lens' Profile (Maybe UTCTime)
3226proUpdated :: Lens' Profile (Maybe UTCTime)
3222proUpdated
3227proUpdated
3223− = lens _proUpdated (\ s a -> s{_proUpdated = a})
3228+ = lens _proUpdated (\ s a -> s{_proUpdated = a}) .
3229+ mapping _DateTime
3224
3230
3225-- | Permissions the user has for this view (profile).
3231-- | Permissions the user has for this view (profile).
3226proPermissions :: Lens' Profile (Maybe ProfilePermissions)
3232proPermissions :: Lens' Profile (Maybe ProfilePermissions)
@@ -3801,14 +3807,14 @@ data CustomDataSource = CustomDataSource
3801 , _cWebPropertyId :: !(Maybe Text)
3807 , _cWebPropertyId :: !(Maybe Text)
3802 , _cChildLink :: !(Maybe CustomDataSourceChildLink)
3808 , _cChildLink :: !(Maybe CustomDataSourceChildLink)
3803 , _cKind :: !Text
3809 , _cKind :: !Text
3804− , _cCreated :: !(Maybe DateTime)
3810+ , _cCreated :: !(Maybe DateTime')
3805 , _cUploadType :: !(Maybe Text)
3811 , _cUploadType :: !(Maybe Text)
3806 , _cImportBehavior :: !(Maybe Text)
3812 , _cImportBehavior :: !(Maybe Text)
3807 , _cSelfLink :: !(Maybe Text)
3813 , _cSelfLink :: !(Maybe Text)
3808 , _cAccountId :: !(Maybe Text)
3814 , _cAccountId :: !(Maybe Text)
3809 , _cName :: !(Maybe Text)
3815 , _cName :: !(Maybe Text)
3810 , _cId :: !(Maybe Text)
3816 , _cId :: !(Maybe Text)
3811− , _cUpdated :: !(Maybe DateTime)
3817+ , _cUpdated :: !(Maybe DateTime')
3812 , _cType :: !(Maybe Text)
3818 , _cType :: !(Maybe Text)
3813 , _cDescription :: !(Maybe Text)
3819 , _cDescription :: !(Maybe Text)
3814 , _cProfilesLinked :: !(Maybe [Text])
3820 , _cProfilesLinked :: !(Maybe [Text])
@@ -3891,7 +3897,9 @@ cKind = lens _cKind (\ s a -> s{_cKind = a})
3891
3897
3892-- | Time this custom data source was created.
3898-- | Time this custom data source was created.
3893cCreated :: Lens' CustomDataSource (Maybe UTCTime)
3899cCreated :: Lens' CustomDataSource (Maybe UTCTime)
3900+cCreated
3894−cCreated = lens _cCreated (\ s a -> s{_cCreated = a})
3901+ = lens _cCreated (\ s a -> s{_cCreated = a}) .
3902+ mapping _DateTime
3895
3903
3896cUploadType :: Lens' CustomDataSource (Maybe Text)
3904cUploadType :: Lens' CustomDataSource (Maybe Text)
3897cUploadType
3905cUploadType
@@ -3922,7 +3930,9 @@ cId = lens _cId (\ s a -> s{_cId = a})
3922
3930
3923-- | Time this custom data source was last modified.
3931-- | Time this custom data source was last modified.
3924cUpdated :: Lens' CustomDataSource (Maybe UTCTime)
3932cUpdated :: Lens' CustomDataSource (Maybe UTCTime)
3933+cUpdated
3925−cUpdated = lens _cUpdated (\ s a -> s{_cUpdated = a})
3934+ = lens _cUpdated (\ s a -> s{_cUpdated = a}) .
3935+ mapping _DateTime
3926
3936
3927-- | Type of the custom data source.
3937-- | Type of the custom data source.
3928cType :: Lens' CustomDataSource (Maybe Text)
3938cType :: Lens' CustomDataSource (Maybe Text)
@@ -4276,11 +4286,11 @@ instance ToJSON GoalVisitTimeOnSiteDetails where
4276data Account = Account
4286data Account = Account
4277 { _accChildLink :: !(Maybe AccountChildLink)
4287 { _accChildLink :: !(Maybe AccountChildLink)
4278 , _accKind :: !Text
4288 , _accKind :: !Text
4279− , _accCreated :: !(Maybe DateTime)
4289+ , _accCreated :: !(Maybe DateTime')
4280 , _accSelfLink :: !(Maybe Text)
4290 , _accSelfLink :: !(Maybe Text)
4281 , _accName :: !(Maybe Text)
4291 , _accName :: !(Maybe Text)
4282 , _accId :: !(Maybe Text)
4292 , _accId :: !(Maybe Text)
4283− , _accUpdated :: !(Maybe DateTime)
4293+ , _accUpdated :: !(Maybe DateTime')
4284 , _accPermissions :: !(Maybe AccountPermissions)
4294 , _accPermissions :: !(Maybe AccountPermissions)
4285 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4295 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4286
4296
@@ -4330,7 +4340,8 @@ accKind = lens _accKind (\ s a -> s{_accKind = a})
4330-- | Time the account was created.
4340-- | Time the account was created.
4331accCreated :: Lens' Account (Maybe UTCTime)
4341accCreated :: Lens' Account (Maybe UTCTime)
4332accCreated
4342accCreated
4333− = lens _accCreated (\ s a -> s{_accCreated = a})
4343+ = lens _accCreated (\ s a -> s{_accCreated = a}) .
4344+ mapping _DateTime
4334
4345
4335-- | Link for this account.
4346-- | Link for this account.
4336accSelfLink :: Lens' Account (Maybe Text)
4347accSelfLink :: Lens' Account (Maybe Text)
@@ -4348,7 +4359,8 @@ accId = lens _accId (\ s a -> s{_accId = a})
4348-- | Time the account was last modified.
4359-- | Time the account was last modified.
4349accUpdated :: Lens' Account (Maybe UTCTime)
4360accUpdated :: Lens' Account (Maybe UTCTime)
4350accUpdated
4361accUpdated
4351− = lens _accUpdated (\ s a -> s{_accUpdated = a})
4362+ = lens _accUpdated (\ s a -> s{_accUpdated = a}) .
4363+ mapping _DateTime
4352
4364
4353-- | Permissions the user has for this account.
4365-- | Permissions the user has for this account.
4354accPermissions :: Lens' Account (Maybe AccountPermissions)
4366accPermissions :: Lens' Account (Maybe AccountPermissions)
@@ -4566,10 +4578,10 @@ data Experiment = Experiment
4566 , _expEqualWeighting :: !(Maybe Bool)
4578 , _expEqualWeighting :: !(Maybe Bool)
4567 , _expStatus :: !(Maybe Text)
4579 , _expStatus :: !(Maybe Text)
4568 , _expWebPropertyId :: !(Maybe Text)
4580 , _expWebPropertyId :: !(Maybe Text)
4569− , _expStartTime :: !(Maybe DateTime)
4581+ , _expStartTime :: !(Maybe DateTime')
4570 , _expSnippet :: !(Maybe Text)
4582 , _expSnippet :: !(Maybe Text)
4571 , _expKind :: !Text
4583 , _expKind :: !Text
4572− , _expCreated :: !(Maybe DateTime)
4584+ , _expCreated :: !(Maybe DateTime')
4573 , _expReasonExperimentEnded :: !(Maybe Text)
4585 , _expReasonExperimentEnded :: !(Maybe Text)
4574 , _expTrafficCoverage :: !(Maybe Double)
4586 , _expTrafficCoverage :: !(Maybe Double)
4575 , _expEditableInGaUi :: !(Maybe Bool)
4587 , _expEditableInGaUi :: !(Maybe Bool)
@@ -4580,11 +4592,11 @@ data Experiment = Experiment
4580 , _expAccountId :: !(Maybe Text)
4592 , _expAccountId :: !(Maybe Text)
4581 , _expName :: !(Maybe Text)
4593 , _expName :: !(Maybe Text)
4582 , _expWinnerFound :: !(Maybe Bool)
4594 , _expWinnerFound :: !(Maybe Bool)
4583− , _expEndTime :: !(Maybe DateTime)
4595+ , _expEndTime :: !(Maybe DateTime')
4584 , _expVariations :: !(Maybe [ExperimentVariations])
4596 , _expVariations :: !(Maybe [ExperimentVariations])
4585 , _expInternalWebPropertyId :: !(Maybe Text)
4597 , _expInternalWebPropertyId :: !(Maybe Text)
4586 , _expId :: !(Maybe Text)
4598 , _expId :: !(Maybe Text)
4587− , _expUpdated :: !(Maybe DateTime)
4599+ , _expUpdated :: !(Maybe DateTime')
4588 , _expRewriteVariationURLsAsOriginal :: !(Maybe Bool)
4600 , _expRewriteVariationURLsAsOriginal :: !(Maybe Bool)
4589 , _expObjectiveMetric :: !(Maybe Text)
4601 , _expObjectiveMetric :: !(Maybe Text)
4590 , _expWinnerConfidenceLevel :: !(Maybe Double)
4602 , _expWinnerConfidenceLevel :: !(Maybe Double)
@@ -4723,6 +4735,7 @@ expWebPropertyId
4723expStartTime :: Lens' Experiment (Maybe UTCTime)
4735expStartTime :: Lens' Experiment (Maybe UTCTime)
4724expStartTime
4736expStartTime
4725 = lens _expStartTime (\ s a -> s{_expStartTime = a})
4737 = lens _expStartTime (\ s a -> s{_expStartTime = a})
4738+ . mapping _DateTime
4726
4739
4727-- | The snippet of code to include on the control page(s). This field is
4740-- | The snippet of code to include on the control page(s). This field is
4728-- read-only.
4741-- read-only.
@@ -4737,7 +4750,8 @@ expKind = lens _expKind (\ s a -> s{_expKind = a})
4737-- | Time the experiment was created. This field is read-only.
4750-- | Time the experiment was created. This field is read-only.
4738expCreated :: Lens' Experiment (Maybe UTCTime)
4751expCreated :: Lens' Experiment (Maybe UTCTime)
4739expCreated
4752expCreated
4740− = lens _expCreated (\ s a -> s{_expCreated = a})
4753+ = lens _expCreated (\ s a -> s{_expCreated = a}) .
4754+ mapping _DateTime
4741
4755
4742-- | Why the experiment ended. Possible values: \"STOPPED_BY_USER\",
4756-- | Why the experiment ended. Possible values: \"STOPPED_BY_USER\",
4743-- \"WINNER_FOUND\", \"EXPERIMENT_EXPIRED\", \"ENDED_WITH_NO_WINNER\",
4757-- \"WINNER_FOUND\", \"EXPERIMENT_EXPIRED\", \"ENDED_WITH_NO_WINNER\",
@@ -4816,7 +4830,8 @@ expWinnerFound
4816-- ended. This field is read-only.
4830-- ended. This field is read-only.
4817expEndTime :: Lens' Experiment (Maybe UTCTime)
4831expEndTime :: Lens' Experiment (Maybe UTCTime)
4818expEndTime
4832expEndTime
4819− = lens _expEndTime (\ s a -> s{_expEndTime = a})
4833+ = lens _expEndTime (\ s a -> s{_expEndTime = a}) .
4834+ mapping _DateTime
4820
4835
4821-- | Array of variations. The first variation in the array is the original.
4836-- | Array of variations. The first variation in the array is the original.
4822-- The number of variations may not change once an experiment is in the
4837-- The number of variations may not change once an experiment is in the
@@ -4843,7 +4858,8 @@ expId = lens _expId (\ s a -> s{_expId = a})
4843-- | Time the experiment was last modified. This field is read-only.
4858-- | Time the experiment was last modified. This field is read-only.
4844expUpdated :: Lens' Experiment (Maybe UTCTime)
4859expUpdated :: Lens' Experiment (Maybe UTCTime)
4845expUpdated
4860expUpdated
4846− = lens _expUpdated (\ s a -> s{_expUpdated = a})
4861+ = lens _expUpdated (\ s a -> s{_expUpdated = a}) .
4862+ mapping _DateTime
4847
4863
4848-- | Boolean specifying whether variations URLS are rewritten to match those
4864-- | Boolean specifying whether variations URLS are rewritten to match those
4849-- of the original. This field may not be changed for an experiments whose
4865-- of the original. This field may not be changed for an experiments whose
@@ -5577,13 +5593,13 @@ data WebProperty = WebProperty
5577 , _wChildLink :: !(Maybe WebPropertyChildLink)
5593 , _wChildLink :: !(Maybe WebPropertyChildLink)
5578 , _wDefaultProfileId :: !(Maybe Int64)
5594 , _wDefaultProfileId :: !(Maybe Int64)
5579 , _wKind :: !Text
5595 , _wKind :: !Text
5580− , _wCreated :: !(Maybe DateTime)
5596+ , _wCreated :: !(Maybe DateTime')
5581 , _wSelfLink :: !(Maybe Text)
5597 , _wSelfLink :: !(Maybe Text)
5582 , _wAccountId :: !(Maybe Text)
5598 , _wAccountId :: !(Maybe Text)
5583 , _wName :: !(Maybe Text)
5599 , _wName :: !(Maybe Text)
5584 , _wInternalWebPropertyId :: !(Maybe Text)
5600 , _wInternalWebPropertyId :: !(Maybe Text)
5585 , _wId :: !(Maybe Text)
5601 , _wId :: !(Maybe Text)
5586− , _wUpdated :: !(Maybe DateTime)
5602+ , _wUpdated :: !(Maybe DateTime')
5587 , _wProfileCount :: !(Maybe Int32)
5603 , _wProfileCount :: !(Maybe Int32)
5588 , _wPermissions :: !(Maybe WebPropertyPermissions)
5604 , _wPermissions :: !(Maybe WebPropertyPermissions)
5589 , _wWebsiteURL :: !(Maybe Text)
5605 , _wWebsiteURL :: !(Maybe Text)
@@ -5672,7 +5688,9 @@ wKind = lens _wKind (\ s a -> s{_wKind = a})
5672
5688
5673-- | Time this web property was created.
5689-- | Time this web property was created.
5674wCreated :: Lens' WebProperty (Maybe UTCTime)
5690wCreated :: Lens' WebProperty (Maybe UTCTime)
5691+wCreated
5675−wCreated = lens _wCreated (\ s a -> s{_wCreated = a})
5692+ = lens _wCreated (\ s a -> s{_wCreated = a}) .
5693+ mapping _DateTime
5676
5694
5677-- | Link for this web property.
5695-- | Link for this web property.
5678wSelfLink :: Lens' WebProperty (Maybe Text)
5696wSelfLink :: Lens' WebProperty (Maybe Text)
@@ -5700,7 +5718,9 @@ wId = lens _wId (\ s a -> s{_wId = a})
5700
5718
5701-- | Time this web property was last modified.
5719-- | Time this web property was last modified.
5702wUpdated :: Lens' WebProperty (Maybe UTCTime)
5720wUpdated :: Lens' WebProperty (Maybe UTCTime)
5721+wUpdated
5703−wUpdated = lens _wUpdated (\ s a -> s{_wUpdated = a})
5722+ = lens _wUpdated (\ s a -> s{_wUpdated = a}) .
5723+ mapping _DateTime
5704
5724
5705-- | View (Profile) count for this web property.
5725-- | View (Profile) count for this web property.
5706wProfileCount :: Lens' WebProperty (Maybe Int32)
5726wProfileCount :: Lens' WebProperty (Maybe Int32)
@@ -5778,7 +5798,7 @@ data CustomMetric = CustomMetric
5778 , _cusWebPropertyId :: !(Maybe Text)
5798 , _cusWebPropertyId :: !(Maybe Text)
5779 , _cusKind :: !Text
5799 , _cusKind :: !Text
5780 , _cusMaxValue :: !(Maybe Text)
5800 , _cusMaxValue :: !(Maybe Text)
5781− , _cusCreated :: !(Maybe DateTime)
5801+ , _cusCreated :: !(Maybe DateTime')
5782 , _cusMinValue :: !(Maybe Text)
5802 , _cusMinValue :: !(Maybe Text)
5783 , _cusActive :: !(Maybe Bool)
5803 , _cusActive :: !(Maybe Bool)
5784 , _cusSelfLink :: !(Maybe Text)
5804 , _cusSelfLink :: !(Maybe Text)
@@ -5786,7 +5806,7 @@ data CustomMetric = CustomMetric
5786 , _cusName :: !(Maybe Text)
5806 , _cusName :: !(Maybe Text)
5787 , _cusScope :: !(Maybe Text)
5807 , _cusScope :: !(Maybe Text)
5788 , _cusId :: !(Maybe Text)
5808 , _cusId :: !(Maybe Text)
5789− , _cusUpdated :: !(Maybe DateTime)
5809+ , _cusUpdated :: !(Maybe DateTime')
5790 , _cusType :: !(Maybe Text)
5810 , _cusType :: !(Maybe Text)
5791 , _cusIndex :: !(Maybe Int32)
5811 , _cusIndex :: !(Maybe Int32)
5792 } deriving (Eq,Read,Show,Data,Typeable,Generic)
5812 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -5871,7 +5891,8 @@ cusMaxValue
5871-- | Time the custom metric was created.
5891-- | Time the custom metric was created.
5872cusCreated :: Lens' CustomMetric (Maybe UTCTime)
5892cusCreated :: Lens' CustomMetric (Maybe UTCTime)
5873cusCreated
5893cusCreated
5874− = lens _cusCreated (\ s a -> s{_cusCreated = a})
5894+ = lens _cusCreated (\ s a -> s{_cusCreated = a}) .
5895+ mapping _DateTime
5875
5896
5876-- | Min value of custom metric.
5897-- | Min value of custom metric.
5877cusMinValue :: Lens' CustomMetric (Maybe Text)
5898cusMinValue :: Lens' CustomMetric (Maybe Text)
@@ -5908,7 +5929,8 @@ cusId = lens _cusId (\ s a -> s{_cusId = a})
5908-- | Time the custom metric was last modified.
5929-- | Time the custom metric was last modified.
5909cusUpdated :: Lens' CustomMetric (Maybe UTCTime)
5930cusUpdated :: Lens' CustomMetric (Maybe UTCTime)
5910cusUpdated
5931cusUpdated
5911− = lens _cusUpdated (\ s a -> s{_cusUpdated = a})
5932+ = lens _cusUpdated (\ s a -> s{_cusUpdated = a}) .
5933+ mapping _DateTime
5912
5934
5913-- | Data type of custom metric.
5935-- | Data type of custom metric.
5914cusType :: Lens' CustomMetric (Maybe Text)
5936cusType :: Lens' CustomMetric (Maybe Text)
@@ -6956,7 +6978,7 @@ data Goal = Goal
6956 { _goaParentLink :: !(Maybe GoalParentLink)
6978 { _goaParentLink :: !(Maybe GoalParentLink)
6957 , _goaWebPropertyId :: !(Maybe Text)
6979 , _goaWebPropertyId :: !(Maybe Text)
6958 , _goaKind :: !Text
6980 , _goaKind :: !Text
6959− , _goaCreated :: !(Maybe DateTime)
6981+ , _goaCreated :: !(Maybe DateTime')
6960 , _goaValue :: !(Maybe Float)
6982 , _goaValue :: !(Maybe Float)
6961 , _goaProfileId :: !(Maybe Text)
6983 , _goaProfileId :: !(Maybe Text)
6962 , _goaEventDetails :: !(Maybe GoalEventDetails)
6984 , _goaEventDetails :: !(Maybe GoalEventDetails)
@@ -6969,7 +6991,7 @@ data Goal = Goal
6969 , _goaId :: !(Maybe Text)
6991 , _goaId :: !(Maybe Text)
6970 , _goaURLDestinationDetails :: !(Maybe GoalURLDestinationDetails)
6992 , _goaURLDestinationDetails :: !(Maybe GoalURLDestinationDetails)
6971 , _goaVisitNumPagesDetails :: !(Maybe GoalVisitNumPagesDetails)
6993 , _goaVisitNumPagesDetails :: !(Maybe GoalVisitNumPagesDetails)
6972− , _goaUpdated :: !(Maybe DateTime)
6994+ , _goaUpdated :: !(Maybe DateTime')
6973 , _goaType :: !(Maybe Text)
6995 , _goaType :: !(Maybe Text)
6974 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6996 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6975
6997
@@ -7057,7 +7079,8 @@ goaKind = lens _goaKind (\ s a -> s{_goaKind = a})
7057-- | Time this goal was created.
7079-- | Time this goal was created.
7058goaCreated :: Lens' Goal (Maybe UTCTime)
7080goaCreated :: Lens' Goal (Maybe UTCTime)
7059goaCreated
7081goaCreated
7060− = lens _goaCreated (\ s a -> s{_goaCreated = a})
7082+ = lens _goaCreated (\ s a -> s{_goaCreated = a}) .
7083+ mapping _DateTime
7061
7084
7062-- | Goal value.
7085-- | Goal value.
7063goaValue :: Lens' Goal (Maybe Float)
7086goaValue :: Lens' Goal (Maybe Float)
@@ -7124,7 +7147,8 @@ goaVisitNumPagesDetails
7124-- | Time this goal was last modified.
7147-- | Time this goal was last modified.
7125goaUpdated :: Lens' Goal (Maybe UTCTime)
7148goaUpdated :: Lens' Goal (Maybe UTCTime)
7126goaUpdated
7149goaUpdated
7127− = lens _goaUpdated (\ s a -> s{_goaUpdated = a})
7150+ = lens _goaUpdated (\ s a -> s{_goaUpdated = a}) .
7151+ mapping _DateTime
7128
7152
7129-- | Goal type. Possible values are URL_DESTINATION, VISIT_TIME_ON_SITE,
7153-- | Goal type. Possible values are URL_DESTINATION, VISIT_TIME_ON_SITE,
7130-- VISIT_NUM_PAGES, AND EVENT.
7154-- VISIT_NUM_PAGES, AND EVENT.
@@ -7681,14 +7705,14 @@ data Filter = Filter
7681 , _filUppercaseDetails :: !(Maybe FilterUppercaseDetails)
7705 , _filUppercaseDetails :: !(Maybe FilterUppercaseDetails)
7682 , _filLowercaseDetails :: !(Maybe FilterLowercaseDetails)
7706 , _filLowercaseDetails :: !(Maybe FilterLowercaseDetails)
7683 , _filKind :: !Text
7707 , _filKind :: !Text
7684− , _filCreated :: !(Maybe DateTime)
7708+ , _filCreated :: !(Maybe DateTime')
7685 , _filIncludeDetails :: !(Maybe FilterExpression)
7709 , _filIncludeDetails :: !(Maybe FilterExpression)
7686 , _filExcludeDetails :: !(Maybe FilterExpression)
7710 , _filExcludeDetails :: !(Maybe FilterExpression)
7687 , _filSelfLink :: !(Maybe Text)
7711 , _filSelfLink :: !(Maybe Text)
7688 , _filAccountId :: !(Maybe Text)
7712 , _filAccountId :: !(Maybe Text)
7689 , _filName :: !(Maybe Text)
7713 , _filName :: !(Maybe Text)
7690 , _filId :: !(Maybe Text)
7714 , _filId :: !(Maybe Text)
7691− , _filUpdated :: !(Maybe DateTime)
7715+ , _filUpdated :: !(Maybe DateTime')
7692 , _filType :: !(Maybe Text)
7716 , _filType :: !(Maybe Text)
7693 , _filSearchAndReplaceDetails :: !(Maybe FilterSearchAndReplaceDetails)
7717 , _filSearchAndReplaceDetails :: !(Maybe FilterSearchAndReplaceDetails)
7694 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7718 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -7779,7 +7803,8 @@ filKind = lens _filKind (\ s a -> s{_filKind = a})
7779-- | Time this filter was created.
7803-- | Time this filter was created.
7780filCreated :: Lens' Filter (Maybe UTCTime)
7804filCreated :: Lens' Filter (Maybe UTCTime)
7781filCreated
7805filCreated
7782− = lens _filCreated (\ s a -> s{_filCreated = a})
7806+ = lens _filCreated (\ s a -> s{_filCreated = a}) .
7807+ mapping _DateTime
7783
7808
7784-- | Details for the filter of the type INCLUDE.
7809-- | Details for the filter of the type INCLUDE.
7785filIncludeDetails :: Lens' Filter (Maybe FilterExpression)
7810filIncludeDetails :: Lens' Filter (Maybe FilterExpression)
@@ -7814,7 +7839,8 @@ filId = lens _filId (\ s a -> s{_filId = a})
7814-- | Time this filter was last modified.
7839-- | Time this filter was last modified.
7815filUpdated :: Lens' Filter (Maybe UTCTime)
7840filUpdated :: Lens' Filter (Maybe UTCTime)
7816filUpdated
7841filUpdated
7817− = lens _filUpdated (\ s a -> s{_filUpdated = a})
7842+ = lens _filUpdated (\ s a -> s{_filUpdated = a}) .
7843+ mapping _DateTime
7818
7844
7819-- | Type of this filter. Possible values are INCLUDE, EXCLUDE, LOWERCASE,
7845-- | Type of this filter. Possible values are INCLUDE, EXCLUDE, LOWERCASE,
7820-- UPPERCASE, SEARCH_AND_REPLACE and ADVANCED.
7846-- UPPERCASE, SEARCH_AND_REPLACE and ADVANCED.
@@ -8170,11 +8196,11 @@ instance ToJSON ProfileFilterLinks where
8170data Segment = Segment
8196data Segment = Segment
8171 { _segDefinition :: !(Maybe Text)
8197 { _segDefinition :: !(Maybe Text)
8172 , _segKind :: !Text
8198 , _segKind :: !Text
8173− , _segCreated :: !(Maybe DateTime)
8199+ , _segCreated :: !(Maybe DateTime')
8174 , _segSelfLink :: !(Maybe Text)
8200 , _segSelfLink :: !(Maybe Text)
8175 , _segName :: !(Maybe Text)
8201 , _segName :: !(Maybe Text)
8176 , _segId :: !(Maybe Text)
8202 , _segId :: !(Maybe Text)
8177− , _segUpdated :: !(Maybe DateTime)
8203+ , _segUpdated :: !(Maybe DateTime')
8178 , _segType :: !(Maybe Text)
8204 , _segType :: !(Maybe Text)
8179 , _segSegmentId :: !(Maybe Text)
8205 , _segSegmentId :: !(Maybe Text)
8180 } deriving (Eq,Read,Show,Data,Typeable,Generic)
8206 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -8228,7 +8254,8 @@ segKind = lens _segKind (\ s a -> s{_segKind = a})
8228-- | Time the segment was created.
8254-- | Time the segment was created.
8229segCreated :: Lens' Segment (Maybe UTCTime)
8255segCreated :: Lens' Segment (Maybe UTCTime)
8230segCreated
8256segCreated
8231− = lens _segCreated (\ s a -> s{_segCreated = a})
8257+ = lens _segCreated (\ s a -> s{_segCreated = a}) .
8258+ mapping _DateTime
8232
8259
8233-- | Link for this segment.
8260-- | Link for this segment.
8234segSelfLink :: Lens' Segment (Maybe Text)
8261segSelfLink :: Lens' Segment (Maybe Text)
@@ -8246,7 +8273,8 @@ segId = lens _segId (\ s a -> s{_segId = a})
8246-- | Time the segment was last modified.
8273-- | Time the segment was last modified.
8247segUpdated :: Lens' Segment (Maybe UTCTime)
8274segUpdated :: Lens' Segment (Maybe UTCTime)
8248segUpdated
8275segUpdated
8249− = lens _segUpdated (\ s a -> s{_segUpdated = a})
8276+ = lens _segUpdated (\ s a -> s{_segUpdated = a}) .
8277+ mapping _DateTime
8250
8278
8251-- | Type for a segment. Possible values are \"BUILT_IN\" or \"CUSTOM\".
8279-- | Type for a segment. Possible values are \"BUILT_IN\" or \"CUSTOM\".
8252segType :: Lens' Segment (Maybe Text)
8280segType :: Lens' Segment (Maybe Text)
@@ -8565,14 +8593,14 @@ data CustomDimension = CustomDimension
8565 { _cddParentLink :: !(Maybe CustomDimensionParentLink)
8593 { _cddParentLink :: !(Maybe CustomDimensionParentLink)
8566 , _cddWebPropertyId :: !(Maybe Text)
8594 , _cddWebPropertyId :: !(Maybe Text)
8567 , _cddKind :: !Text
8595 , _cddKind :: !Text
8568− , _cddCreated :: !(Maybe DateTime)
8596+ , _cddCreated :: !(Maybe DateTime')
8569 , _cddActive :: !(Maybe Bool)
8597 , _cddActive :: !(Maybe Bool)
8570 , _cddSelfLink :: !(Maybe Text)
8598 , _cddSelfLink :: !(Maybe Text)
8571 , _cddAccountId :: !(Maybe Text)
8599 , _cddAccountId :: !(Maybe Text)
8572 , _cddName :: !(Maybe Text)
8600 , _cddName :: !(Maybe Text)
8573 , _cddScope :: !(Maybe Text)
8601 , _cddScope :: !(Maybe Text)
8574 , _cddId :: !(Maybe Text)
8602 , _cddId :: !(Maybe Text)
8575− , _cddUpdated :: !(Maybe DateTime)
8603+ , _cddUpdated :: !(Maybe DateTime')
8576 , _cddIndex :: !(Maybe Int32)
8604 , _cddIndex :: !(Maybe Int32)
8577 } deriving (Eq,Read,Show,Data,Typeable,Generic)
8605 } deriving (Eq,Read,Show,Data,Typeable,Generic)
8578
8606
@@ -8642,7 +8670,8 @@ cddKind = lens _cddKind (\ s a -> s{_cddKind = a})
8642-- | Time the custom dimension was created.
8670-- | Time the custom dimension was created.
8643cddCreated :: Lens' CustomDimension (Maybe UTCTime)
8671cddCreated :: Lens' CustomDimension (Maybe UTCTime)
8644cddCreated
8672cddCreated
8645− = lens _cddCreated (\ s a -> s{_cddCreated = a})
8673+ = lens _cddCreated (\ s a -> s{_cddCreated = a}) .
8674+ mapping _DateTime
8646
8675
8647-- | Boolean indicating whether the custom dimension is active.
8676-- | Boolean indicating whether the custom dimension is active.
8648cddActive :: Lens' CustomDimension (Maybe Bool)
8677cddActive :: Lens' CustomDimension (Maybe Bool)
@@ -8674,7 +8703,8 @@ cddId = lens _cddId (\ s a -> s{_cddId = a})
8674-- | Time the custom dimension was last modified.
8703-- | Time the custom dimension was last modified.
8675cddUpdated :: Lens' CustomDimension (Maybe UTCTime)
8704cddUpdated :: Lens' CustomDimension (Maybe UTCTime)
8676cddUpdated
8705cddUpdated
8677− = lens _cddUpdated (\ s a -> s{_cddUpdated = a})
8706+ = lens _cddUpdated (\ s a -> s{_cddUpdated = a}) .
8707+ mapping _DateTime
8678
8708
8679-- | Index of the custom dimension.
8709-- | Index of the custom dimension.
8680cddIndex :: Lens' CustomDimension (Maybe Int32)
8710cddIndex :: Lens' CustomDimension (Maybe Int32)
gogol-apps-calendar/gen/Network/Google/AppsCalendar/Types/Product.hs+44−25
@@ -329,7 +329,7 @@ data Event = Event
329 , _eAttendees :: !(Maybe [EventAttendee])
329 , _eAttendees :: !(Maybe [EventAttendee])
330 , _eReminders :: !(Maybe EventReminders)
330 , _eReminders :: !(Maybe EventReminders)
331 , _eKind :: !Text
331 , _eKind :: !Text
332− , _eCreated :: !(Maybe DateTime)
332+ , _eCreated :: !(Maybe DateTime')
333 , _eTransparency :: !Text
333 , _eTransparency :: !Text
334 , _eRecurringEventId :: !(Maybe Text)
334 , _eRecurringEventId :: !(Maybe Text)
335 , _eStart :: !(Maybe EventDateTime)
335 , _eStart :: !(Maybe EventDateTime)
@@ -347,7 +347,7 @@ data Event = Event
347 , _eSource :: !(Maybe EventSource)
347 , _eSource :: !(Maybe EventSource)
348 , _eId :: !(Maybe Text)
348 , _eId :: !(Maybe Text)
349 , _eHTMLLink :: !(Maybe Text)
349 , _eHTMLLink :: !(Maybe Text)
350− , _eUpdated :: !(Maybe DateTime)
350+ , _eUpdated :: !(Maybe DateTime')
351 , _eColorId :: !(Maybe Text)
351 , _eColorId :: !(Maybe Text)
352 , _eAnyoneCanAddSelf :: !Bool
352 , _eAnyoneCanAddSelf :: !Bool
353 , _eGuestsCanSeeOtherGuests :: !Bool
353 , _eGuestsCanSeeOtherGuests :: !Bool
@@ -550,7 +550,9 @@ eKind = lens _eKind (\ s a -> s{_eKind = a})
550
550
551-- | Creation time of the event (as a RFC3339 timestamp). Read-only.
551-- | Creation time of the event (as a RFC3339 timestamp). Read-only.
552eCreated :: Lens' Event (Maybe UTCTime)
552eCreated :: Lens' Event (Maybe UTCTime)
553+eCreated
553−eCreated = lens _eCreated (\ s a -> s{_eCreated = a})
554+ = lens _eCreated (\ s a -> s{_eCreated = a}) .
555+ mapping _DateTime
554
556
555-- | Whether the event blocks time on the calendar. Optional. Possible values
557-- | Whether the event blocks time on the calendar. Optional. Possible values
556-- are: - \"opaque\" - The event blocks time on the calendar. This is the
558-- are: - \"opaque\" - The event blocks time on the calendar. This is the
@@ -687,7 +689,9 @@ eHTMLLink
687
689
688-- | Last modification time of the event (as a RFC3339 timestamp). Read-only.
690-- | Last modification time of the event (as a RFC3339 timestamp). Read-only.
689eUpdated :: Lens' Event (Maybe UTCTime)
691eUpdated :: Lens' Event (Maybe UTCTime)
692+eUpdated
690−eUpdated = lens _eUpdated (\ s a -> s{_eUpdated = a})
693+ = lens _eUpdated (\ s a -> s{_eUpdated = a}) .
694+ mapping _DateTime
691
695
692-- | The color of the event. This is an ID referring to an entry in the event
696-- | The color of the event. This is an ID referring to an entry in the event
693-- section of the colors definition (see the colors endpoint). Optional.
697-- section of the colors definition (see the colors endpoint). Optional.
@@ -1147,8 +1151,8 @@ instance ToJSON EventCreator where
1147--
1151--
1148-- /See:/ 'timePeriod' smart constructor.
1152-- /See:/ 'timePeriod' smart constructor.
1149data TimePeriod = TimePeriod
1153data TimePeriod = TimePeriod
1150− { _tpStart :: !(Maybe DateTime)
1154+ { _tpStart :: !(Maybe DateTime')
1151− , _tpEnd :: !(Maybe DateTime)
1155+ , _tpEnd :: !(Maybe DateTime')
1152 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1156 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1153
1157
1154-- | Creates a value of 'TimePeriod' with the minimum fields required to make a request.
1158-- | Creates a value of 'TimePeriod' with the minimum fields required to make a request.
@@ -1168,11 +1172,15 @@ timePeriod =
1168
1172
1169-- | The (inclusive) start of the time period.
1173-- | The (inclusive) start of the time period.
1170tpStart :: Lens' TimePeriod (Maybe UTCTime)
1174tpStart :: Lens' TimePeriod (Maybe UTCTime)
1175+tpStart
1171−tpStart = lens _tpStart (\ s a -> s{_tpStart = a})
1176+ = lens _tpStart (\ s a -> s{_tpStart = a}) .
1177+ mapping _DateTime
1172
1178
1173-- | The (exclusive) end of the time period.
1179-- | The (exclusive) end of the time period.
1174tpEnd :: Lens' TimePeriod (Maybe UTCTime)
1180tpEnd :: Lens' TimePeriod (Maybe UTCTime)
1181+tpEnd
1175−tpEnd = lens _tpEnd (\ s a -> s{_tpEnd = a})
1182+ = lens _tpEnd (\ s a -> s{_tpEnd = a}) .
1183+ mapping _DateTime
1176
1184
1177instance FromJSON TimePeriod where
1185instance FromJSON TimePeriod where
1178 parseJSON
1186 parseJSON
@@ -1733,7 +1741,7 @@ data Events = Events
1733 , _eveKind :: !Text
1741 , _eveKind :: !Text
1734 , _eveItems :: !(Maybe [Event])
1742 , _eveItems :: !(Maybe [Event])
1735 , _eveDefaultReminders :: !(Maybe [EventReminder])
1743 , _eveDefaultReminders :: !(Maybe [EventReminder])
1736− , _eveUpdated :: !(Maybe DateTime)
1744+ , _eveUpdated :: !(Maybe DateTime')
1737 , _eveAccessRole :: !(Maybe Text)
1745 , _eveAccessRole :: !(Maybe Text)
1738 , _eveTimeZone :: !(Maybe Text)
1746 , _eveTimeZone :: !(Maybe Text)
1739 , _eveNextSyncToken :: !(Maybe Text)
1747 , _eveNextSyncToken :: !(Maybe Text)
@@ -1823,7 +1831,8 @@ eveDefaultReminders
1823-- Read-only.
1831-- Read-only.
1824eveUpdated :: Lens' Events (Maybe UTCTime)
1832eveUpdated :: Lens' Events (Maybe UTCTime)
1825eveUpdated
1833eveUpdated
1826− = lens _eveUpdated (\ s a -> s{_eveUpdated = a})
1834+ = lens _eveUpdated (\ s a -> s{_eveUpdated = a}) .
1835+ mapping _DateTime
1827
1836
1828-- | The user\'s access role for this calendar. Read-only. Possible values
1837-- | The user\'s access role for this calendar. Read-only. Possible values
1829-- are: - \"none\" - The user has no access. - \"freeBusyReader\" - The
1838-- are: - \"none\" - The user has no access. - \"freeBusyReader\" - The
@@ -1945,10 +1954,10 @@ instance ToJSON EventReminder where
1945-- /See:/ 'freeBusyResponse' smart constructor.
1954-- /See:/ 'freeBusyResponse' smart constructor.
1946data FreeBusyResponse = FreeBusyResponse
1955data FreeBusyResponse = FreeBusyResponse
1947 { _fbrGroups :: !(Maybe FreeBusyResponseGroups)
1956 { _fbrGroups :: !(Maybe FreeBusyResponseGroups)
1948− , _fbrTimeMin :: !(Maybe DateTime)
1957+ , _fbrTimeMin :: !(Maybe DateTime')
1949 , _fbrKind :: !Text
1958 , _fbrKind :: !Text
1950 , _fbrCalendars :: !(Maybe FreeBusyResponseCalendars)
1959 , _fbrCalendars :: !(Maybe FreeBusyResponseCalendars)
1951− , _fbrTimeMax :: !(Maybe DateTime)
1960+ , _fbrTimeMax :: !(Maybe DateTime')
1952 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1961 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1953
1962
1954-- | Creates a value of 'FreeBusyResponse' with the minimum fields required to make a request.
1963-- | Creates a value of 'FreeBusyResponse' with the minimum fields required to make a request.
@@ -1983,7 +1992,8 @@ fbrGroups
1983-- | The start of the interval.
1992-- | The start of the interval.
1984fbrTimeMin :: Lens' FreeBusyResponse (Maybe UTCTime)
1993fbrTimeMin :: Lens' FreeBusyResponse (Maybe UTCTime)
1985fbrTimeMin
1994fbrTimeMin
1986− = lens _fbrTimeMin (\ s a -> s{_fbrTimeMin = a})
1995+ = lens _fbrTimeMin (\ s a -> s{_fbrTimeMin = a}) .
1996+ mapping _DateTime
1987
1997
1988-- | Type of the resource (\"calendar#freeBusy\").
1998-- | Type of the resource (\"calendar#freeBusy\").
1989fbrKind :: Lens' FreeBusyResponse Text
1999fbrKind :: Lens' FreeBusyResponse Text
@@ -1997,7 +2007,8 @@ fbrCalendars
1997-- | The end of the interval.
2007-- | The end of the interval.
1998fbrTimeMax :: Lens' FreeBusyResponse (Maybe UTCTime)
2008fbrTimeMax :: Lens' FreeBusyResponse (Maybe UTCTime)
1999fbrTimeMax
2009fbrTimeMax
2000− = lens _fbrTimeMax (\ s a -> s{_fbrTimeMax = a})
2010+ = lens _fbrTimeMax (\ s a -> s{_fbrTimeMax = a}) .
2011+ mapping _DateTime
2001
2012
2002instance FromJSON FreeBusyResponse where
2013instance FromJSON FreeBusyResponse where
2003 parseJSON
2014 parseJSON
@@ -2385,9 +2396,9 @@ instance ToJSON EventOrganizer where
2385--
2396--
2386-- /See:/ 'eventDateTime' smart constructor.
2397-- /See:/ 'eventDateTime' smart constructor.
2387data EventDateTime = EventDateTime
2398data EventDateTime = EventDateTime
2388− { _edtDate :: !(Maybe Date)
2399+ { _edtDate :: !(Maybe Date')
2389 , _edtTimeZone :: !(Maybe Text)
2400 , _edtTimeZone :: !(Maybe Text)
2390− , _edtDateTime :: !(Maybe DateTime)
2401+ , _edtDateTime :: !(Maybe DateTime')
2391 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2402 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2392
2403
2393-- | Creates a value of 'EventDateTime' with the minimum fields required to make a request.
2404-- | Creates a value of 'EventDateTime' with the minimum fields required to make a request.
@@ -2409,8 +2420,10 @@ eventDateTime =
2409 }
2420 }
2410
2421
2411-- | The date, in the format \"yyyy-mm-dd\", if this is an all-day event.
2422-- | The date, in the format \"yyyy-mm-dd\", if this is an all-day event.
2412−edtDate :: Lens' EventDateTime (Maybe UTCTime)
2423+edtDate :: Lens' EventDateTime (Maybe LocalTime)
2424+edtDate
2413−edtDate = lens _edtDate (\ s a -> s{_edtDate = a})
2425+ = lens _edtDate (\ s a -> s{_edtDate = a}) .
2426+ mapping _Date
2414
2427
2415-- | The time zone in which the time is specified. (Formatted as an IANA Time
2428-- | The time zone in which the time is specified. (Formatted as an IANA Time
2416-- Zone Database name, e.g. \"Europe\/Zurich\".) For recurring events this
2429-- Zone Database name, e.g. \"Europe\/Zurich\".) For recurring events this
@@ -2426,7 +2439,8 @@ edtTimeZone
2426-- explicitly specified in timeZone.
2439-- explicitly specified in timeZone.
2427edtDateTime :: Lens' EventDateTime (Maybe UTCTime)
2440edtDateTime :: Lens' EventDateTime (Maybe UTCTime)
2428edtDateTime
2441edtDateTime
2429− = lens _edtDateTime (\ s a -> s{_edtDateTime = a})
2442+ = lens _edtDateTime (\ s a -> s{_edtDateTime = a}) .
2443+ mapping _DateTime
2430
2444
2431instance FromJSON EventDateTime where
2445instance FromJSON EventDateTime where
2432 parseJSON
2446 parseJSON
@@ -2551,11 +2565,11 @@ instance ToJSON CalendarList where
2551-- /See:/ 'freeBusyRequest' smart constructor.
2565-- /See:/ 'freeBusyRequest' smart constructor.
2552data FreeBusyRequest = FreeBusyRequest
2566data FreeBusyRequest = FreeBusyRequest
2553 { _fCalendarExpansionMax :: !(Maybe Int32)
2567 { _fCalendarExpansionMax :: !(Maybe Int32)
2554− , _fTimeMin :: !(Maybe DateTime)
2568+ , _fTimeMin :: !(Maybe DateTime')
2555 , _fItems :: !(Maybe [FreeBusyRequestItem])
2569 , _fItems :: !(Maybe [FreeBusyRequestItem])
2556 , _fGroupExpansionMax :: !(Maybe Int32)
2570 , _fGroupExpansionMax :: !(Maybe Int32)
2557 , _fTimeZone :: !Text
2571 , _fTimeZone :: !Text
2558− , _fTimeMax :: !(Maybe DateTime)
2572+ , _fTimeMax :: !(Maybe DateTime')
2559 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2573 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2560
2574
2561-- | Creates a value of 'FreeBusyRequest' with the minimum fields required to make a request.
2575-- | Creates a value of 'FreeBusyRequest' with the minimum fields required to make a request.
@@ -2594,7 +2608,9 @@ fCalendarExpansionMax
2594
2608
2595-- | The start of the interval for the query.
2609-- | The start of the interval for the query.
2596fTimeMin :: Lens' FreeBusyRequest (Maybe UTCTime)
2610fTimeMin :: Lens' FreeBusyRequest (Maybe UTCTime)
2611+fTimeMin
2597−fTimeMin = lens _fTimeMin (\ s a -> s{_fTimeMin = a})
2612+ = lens _fTimeMin (\ s a -> s{_fTimeMin = a}) .
2613+ mapping _DateTime
2598
2614
2599-- | List of calendars and\/or groups to query.
2615-- | List of calendars and\/or groups to query.
2600fItems :: Lens' FreeBusyRequest [FreeBusyRequestItem]
2616fItems :: Lens' FreeBusyRequest [FreeBusyRequestItem]
@@ -2617,7 +2633,9 @@ fTimeZone
2617
2633
2618-- | The end of the interval for the query.
2634-- | The end of the interval for the query.
2619fTimeMax :: Lens' FreeBusyRequest (Maybe UTCTime)
2635fTimeMax :: Lens' FreeBusyRequest (Maybe UTCTime)
2636+fTimeMax
2620−fTimeMax = lens _fTimeMax (\ s a -> s{_fTimeMax = a})
2637+ = lens _fTimeMax (\ s a -> s{_fTimeMax = a}) .
2638+ mapping _DateTime
2621
2639
2622instance FromJSON FreeBusyRequest where
2640instance FromJSON FreeBusyRequest where
2623 parseJSON
2641 parseJSON
@@ -2884,7 +2902,7 @@ data Colors = Colors
2884 { _colEvent :: !(Maybe ColorsEvent)
2902 { _colEvent :: !(Maybe ColorsEvent)
2885 , _colKind :: !Text
2903 , _colKind :: !Text
2886 , _colCalendar :: !(Maybe ColorsCalendar)
2904 , _colCalendar :: !(Maybe ColorsCalendar)
2887− , _colUpdated :: !(Maybe DateTime)
2905+ , _colUpdated :: !(Maybe DateTime')
2888 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2906 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2889
2907
2890-- | Creates a value of 'Colors' with the minimum fields required to make a request.
2908-- | Creates a value of 'Colors' with the minimum fields required to make a request.
@@ -2929,7 +2947,8 @@ colCalendar
2929-- Read-only.
2947-- Read-only.
2930colUpdated :: Lens' Colors (Maybe UTCTime)
2948colUpdated :: Lens' Colors (Maybe UTCTime)
2931colUpdated
2949colUpdated
2932− = lens _colUpdated (\ s a -> s{_colUpdated = a})
2950+ = lens _colUpdated (\ s a -> s{_colUpdated = a}) .
2951+ mapping _DateTime
2933
2952
2934instance FromJSON Colors where
2953instance FromJSON Colors where
2935 parseJSON
2954 parseJSON
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Instances.hs+8−6
@@ -66,8 +66,8 @@ type EventsInstancesResource =
66 QueryParam "originalStart" Text :>
66 QueryParam "originalStart" Text :>
67 QueryParam "pageToken" Text :>
67 QueryParam "pageToken" Text :>
68 QueryParam "showDeleted" Bool :>
68 QueryParam "showDeleted" Bool :>
69− QueryParam "timeMax" DateTime :>
69+ QueryParam "timeMax" DateTime' :>
70− QueryParam "timeMin" DateTime :>
70+ QueryParam "timeMin" DateTime' :>
71 QueryParam "timeZone" Text :>
71 QueryParam "timeZone" Text :>
72 QueryParam "quotaUser" Text :>
72 QueryParam "quotaUser" Text :>
73 QueryParam "prettyPrint" Bool :>
73 QueryParam "prettyPrint" Bool :>
@@ -86,7 +86,7 @@ data EventsInstances' = EventsInstances'
86 { _eiQuotaUser :: !(Maybe Text)
86 { _eiQuotaUser :: !(Maybe Text)
87 , _eiCalendarId :: !Text
87 , _eiCalendarId :: !Text
88 , _eiPrettyPrint :: !Bool
88 , _eiPrettyPrint :: !Bool
89− , _eiTimeMin :: !(Maybe DateTime)
89+ , _eiTimeMin :: !(Maybe DateTime')
90 , _eiUserIP :: !(Maybe Text)
90 , _eiUserIP :: !(Maybe Text)
91 , _eiShowDeleted :: !(Maybe Bool)
91 , _eiShowDeleted :: !(Maybe Bool)
92 , _eiOriginalStart :: !(Maybe Text)
92 , _eiOriginalStart :: !(Maybe Text)
@@ -97,7 +97,7 @@ data EventsInstances' = EventsInstances'
97 , _eiOAuthToken :: !(Maybe OAuthToken)
97 , _eiOAuthToken :: !(Maybe OAuthToken)
98 , _eiMaxResults :: !(Maybe Int32)
98 , _eiMaxResults :: !(Maybe Int32)
99 , _eiAlwaysIncludeEmail :: !(Maybe Bool)
99 , _eiAlwaysIncludeEmail :: !(Maybe Bool)
100− , _eiTimeMax :: !(Maybe DateTime)
100+ , _eiTimeMax :: !(Maybe DateTime')
101 , _eiEventId :: !Text
101 , _eiEventId :: !Text
102 , _eiFields :: !(Maybe Text)
102 , _eiFields :: !(Maybe Text)
103 } deriving (Eq,Read,Show,Data,Typeable,Generic)
103 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -189,7 +189,8 @@ eiPrettyPrint
189-- with mandatory time zone offset.
189-- with mandatory time zone offset.
190eiTimeMin :: Lens' EventsInstances' (Maybe UTCTime)
190eiTimeMin :: Lens' EventsInstances' (Maybe UTCTime)
191eiTimeMin
191eiTimeMin
192− = lens _eiTimeMin (\ s a -> s{_eiTimeMin = a})
192+ = lens _eiTimeMin (\ s a -> s{_eiTimeMin = a}) .
193+ mapping _DateTime
193
194
194-- | IP address of the site where the request originates. Use this if you
195-- | IP address of the site where the request originates. Use this if you
195-- want to enforce per-user limits.
196-- want to enforce per-user limits.
@@ -263,7 +264,8 @@ eiAlwaysIncludeEmail
263-- timestamp with mandatory time zone offset.
264-- timestamp with mandatory time zone offset.
264eiTimeMax :: Lens' EventsInstances' (Maybe UTCTime)
265eiTimeMax :: Lens' EventsInstances' (Maybe UTCTime)
265eiTimeMax
266eiTimeMax
266− = lens _eiTimeMax (\ s a -> s{_eiTimeMax = a})
267+ = lens _eiTimeMax (\ s a -> s{_eiTimeMax = a}) .
268+ mapping _DateTime
267
269
268-- | Recurring event identifier.
270-- | Recurring event identifier.
269eiEventId :: Lens' EventsInstances' Text
271eiEventId :: Lens' EventsInstances' Text
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/List.hs+11−8
@@ -78,10 +78,10 @@ type EventsListResource =
78 QueryParam "showHiddenInvitations" Bool :>
78 QueryParam "showHiddenInvitations" Bool :>
79 QueryParam "singleEvents" Bool :>
79 QueryParam "singleEvents" Bool :>
80 QueryParam "syncToken" Text :>
80 QueryParam "syncToken" Text :>
81− QueryParam "timeMax" DateTime :>
81+ QueryParam "timeMax" DateTime' :>
82− QueryParam "timeMin" DateTime :>
82+ QueryParam "timeMin" DateTime' :>
83 QueryParam "timeZone" Text :>
83 QueryParam "timeZone" Text :>
84− QueryParam "updatedMin" DateTime :>
84+ QueryParam "updatedMin" DateTime' :>
85 QueryParam "quotaUser" Text :>
85 QueryParam "quotaUser" Text :>
86 QueryParam "prettyPrint" Bool :>
86 QueryParam "prettyPrint" Bool :>
87 QueryParam "userIp" Text :>
87 QueryParam "userIp" Text :>
@@ -102,7 +102,7 @@ data EventsList' = EventsList'
102 , _elQuotaUser :: !(Maybe Text)
102 , _elQuotaUser :: !(Maybe Text)
103 , _elCalendarId :: !Text
103 , _elCalendarId :: !Text
104 , _elPrettyPrint :: !Bool
104 , _elPrettyPrint :: !Bool
105− , _elTimeMin :: !(Maybe DateTime)
105+ , _elTimeMin :: !(Maybe DateTime')
106 , _elOrderBy :: !(Maybe CalendarEventsListOrderBy)
106 , _elOrderBy :: !(Maybe CalendarEventsListOrderBy)
107 , _elSingleEvents :: !(Maybe Bool)
107 , _elSingleEvents :: !(Maybe Bool)
108 , _elPrivateExtendedProperty :: !(Maybe Text)
108 , _elPrivateExtendedProperty :: !(Maybe Text)
@@ -113,14 +113,14 @@ data EventsList' = EventsList'
113 , _elMaxAttendees :: !(Maybe Int32)
113 , _elMaxAttendees :: !(Maybe Int32)
114 , _elKey :: !(Maybe Key)
114 , _elKey :: !(Maybe Key)
115 , _elICalUId :: !(Maybe Text)
115 , _elICalUId :: !(Maybe Text)
116− , _elUpdatedMin :: !(Maybe DateTime)
116+ , _elUpdatedMin :: !(Maybe DateTime')
117 , _elPageToken :: !(Maybe Text)
117 , _elPageToken :: !(Maybe Text)
118 , _elTimeZone :: !(Maybe Text)
118 , _elTimeZone :: !(Maybe Text)
119 , _elOAuthToken :: !(Maybe OAuthToken)
119 , _elOAuthToken :: !(Maybe OAuthToken)
120 , _elShowHiddenInvitations :: !(Maybe Bool)
120 , _elShowHiddenInvitations :: !(Maybe Bool)
121 , _elMaxResults :: !(Maybe Int32)
121 , _elMaxResults :: !(Maybe Int32)
122 , _elAlwaysIncludeEmail :: !(Maybe Bool)
122 , _elAlwaysIncludeEmail :: !(Maybe Bool)
123− , _elTimeMax :: !(Maybe DateTime)
123+ , _elTimeMax :: !(Maybe DateTime')
124 , _elFields :: !(Maybe Text)
124 , _elFields :: !(Maybe Text)
125 } deriving (Eq,Read,Show,Data,Typeable,Generic)
125 } deriving (Eq,Read,Show,Data,Typeable,Generic)
126
126
@@ -249,7 +249,8 @@ elPrettyPrint
249-- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.
249-- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.
250elTimeMin :: Lens' EventsList' (Maybe UTCTime)
250elTimeMin :: Lens' EventsList' (Maybe UTCTime)
251elTimeMin
251elTimeMin
252− = lens _elTimeMin (\ s a -> s{_elTimeMin = a})
252+ = lens _elTimeMin (\ s a -> s{_elTimeMin = a}) .
253+ mapping _DateTime
253
254
254-- | The order of the events returned in the result. Optional. The default is
255-- | The order of the events returned in the result. Optional. The default is
255-- an unspecified, stable order.
256-- an unspecified, stable order.
@@ -329,6 +330,7 @@ elICalUId
329elUpdatedMin :: Lens' EventsList' (Maybe UTCTime)
330elUpdatedMin :: Lens' EventsList' (Maybe UTCTime)
330elUpdatedMin
331elUpdatedMin
331 = lens _elUpdatedMin (\ s a -> s{_elUpdatedMin = a})
332 = lens _elUpdatedMin (\ s a -> s{_elUpdatedMin = a})
333+ . mapping _DateTime
332
334
333-- | Token specifying which result page to return. Optional.
335-- | Token specifying which result page to return. Optional.
334elPageToken :: Lens' EventsList' (Maybe Text)
336elPageToken :: Lens' EventsList' (Maybe Text)
@@ -378,7 +380,8 @@ elAlwaysIncludeEmail
378-- provided but will be ignored.
380-- provided but will be ignored.
379elTimeMax :: Lens' EventsList' (Maybe UTCTime)
381elTimeMax :: Lens' EventsList' (Maybe UTCTime)
380elTimeMax
382elTimeMax
381− = lens _elTimeMax (\ s a -> s{_elTimeMax = a})
383+ = lens _elTimeMax (\ s a -> s{_elTimeMax = a}) .
384+ mapping _DateTime
382
385
383-- | Selector specifying which fields to include in a partial response.
386-- | Selector specifying which fields to include in a partial response.
384elFields :: Lens' EventsList' (Maybe Text)
387elFields :: Lens' EventsList' (Maybe Text)
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Watch.hs+12−8
@@ -80,10 +80,11 @@ type EventsWatchResource =
80 QueryParam "showHiddenInvitations" Bool :>
80 QueryParam "showHiddenInvitations" Bool :>
81 QueryParam "singleEvents" Bool :>
81 QueryParam "singleEvents" Bool :>
82 QueryParam "syncToken" Text :>
82 QueryParam "syncToken" Text :>
83− QueryParam "timeMax" DateTime :>
83+ QueryParam "timeMax" DateTime' :>
84− QueryParam "timeMin" DateTime :>
84+ QueryParam "timeMin" DateTime' :>
85 QueryParam "timeZone" Text :>
85 QueryParam "timeZone" Text :>
86− QueryParam "updatedMin" DateTime :>
86+ QueryParam "updatedMin" DateTime'
87+ :>
87 QueryParam "quotaUser" Text :>
88 QueryParam "quotaUser" Text :>
88 QueryParam "prettyPrint" Bool
89 QueryParam "prettyPrint" Bool
89 :>
90 :>
@@ -111,7 +112,7 @@ data EventsWatch' = EventsWatch'
111 , _ewQuotaUser :: !(Maybe Text)
112 , _ewQuotaUser :: !(Maybe Text)
112 , _ewCalendarId :: !Text
113 , _ewCalendarId :: !Text
113 , _ewPrettyPrint :: !Bool
114 , _ewPrettyPrint :: !Bool
114− , _ewTimeMin :: !(Maybe DateTime)
115+ , _ewTimeMin :: !(Maybe DateTime')
115 , _ewOrderBy :: !(Maybe CalendarEventsWatchOrderBy)
116 , _ewOrderBy :: !(Maybe CalendarEventsWatchOrderBy)
116 , _ewSingleEvents :: !(Maybe Bool)
117 , _ewSingleEvents :: !(Maybe Bool)
117 , _ewPrivateExtendedProperty :: !(Maybe Text)
118 , _ewPrivateExtendedProperty :: !(Maybe Text)
@@ -123,14 +124,14 @@ data EventsWatch' = EventsWatch'
123 , _ewMaxAttendees :: !(Maybe Int32)
124 , _ewMaxAttendees :: !(Maybe Int32)
124 , _ewKey :: !(Maybe Key)
125 , _ewKey :: !(Maybe Key)
125 , _ewICalUId :: !(Maybe Text)
126 , _ewICalUId :: !(Maybe Text)
126− , _ewUpdatedMin :: !(Maybe DateTime)
127+ , _ewUpdatedMin :: !(Maybe DateTime')
127 , _ewPageToken :: !(Maybe Text)
128 , _ewPageToken :: !(Maybe Text)
128 , _ewTimeZone :: !(Maybe Text)
129 , _ewTimeZone :: !(Maybe Text)
129 , _ewOAuthToken :: !(Maybe OAuthToken)
130 , _ewOAuthToken :: !(Maybe OAuthToken)
130 , _ewShowHiddenInvitations :: !(Maybe Bool)
131 , _ewShowHiddenInvitations :: !(Maybe Bool)
131 , _ewMaxResults :: !(Maybe Int32)
132 , _ewMaxResults :: !(Maybe Int32)
132 , _ewAlwaysIncludeEmail :: !(Maybe Bool)
133 , _ewAlwaysIncludeEmail :: !(Maybe Bool)
133− , _ewTimeMax :: !(Maybe DateTime)
134+ , _ewTimeMax :: !(Maybe DateTime')
134 , _ewFields :: !(Maybe Text)
135 , _ewFields :: !(Maybe Text)
135 } deriving (Eq,Read,Show,Data,Typeable,Generic)
136 } deriving (Eq,Read,Show,Data,Typeable,Generic)
136
137
@@ -263,7 +264,8 @@ ewPrettyPrint
263-- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.
264-- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.
264ewTimeMin :: Lens' EventsWatch' (Maybe UTCTime)
265ewTimeMin :: Lens' EventsWatch' (Maybe UTCTime)
265ewTimeMin
266ewTimeMin
266− = lens _ewTimeMin (\ s a -> s{_ewTimeMin = a})
267+ = lens _ewTimeMin (\ s a -> s{_ewTimeMin = a}) .
268+ mapping _DateTime
267
269
268-- | The order of the events returned in the result. Optional. The default is
270-- | The order of the events returned in the result. Optional. The default is
269-- an unspecified, stable order.
271-- an unspecified, stable order.
@@ -348,6 +350,7 @@ ewICalUId
348ewUpdatedMin :: Lens' EventsWatch' (Maybe UTCTime)
350ewUpdatedMin :: Lens' EventsWatch' (Maybe UTCTime)
349ewUpdatedMin
351ewUpdatedMin
350 = lens _ewUpdatedMin (\ s a -> s{_ewUpdatedMin = a})
352 = lens _ewUpdatedMin (\ s a -> s{_ewUpdatedMin = a})
353+ . mapping _DateTime
351
354
352-- | Token specifying which result page to return. Optional.
355-- | Token specifying which result page to return. Optional.
353ewPageToken :: Lens' EventsWatch' (Maybe Text)
356ewPageToken :: Lens' EventsWatch' (Maybe Text)
@@ -397,7 +400,8 @@ ewAlwaysIncludeEmail
397-- provided but will be ignored.
400-- provided but will be ignored.
398ewTimeMax :: Lens' EventsWatch' (Maybe UTCTime)
401ewTimeMax :: Lens' EventsWatch' (Maybe UTCTime)
399ewTimeMax
402ewTimeMax
400− = lens _ewTimeMax (\ s a -> s{_ewTimeMax = a})
403+ = lens _ewTimeMax (\ s a -> s{_ewTimeMax = a}) .
404+ mapping _DateTime
401
405
402-- | Selector specifying which fields to include in a partial response.
406-- | Selector specifying which fields to include in a partial response.
403ewFields :: Lens' EventsWatch' (Maybe Text)
407ewFields :: Lens' EventsWatch' (Maybe Text)
gogol-apps-tasks/gen/Network/Google/AppsTasks/Types/Product.hs+13−8
@@ -214,7 +214,7 @@ data TaskList = TaskList
214 , _tasKind :: !Text
214 , _tasKind :: !Text
215 , _tasSelfLink :: !(Maybe Text)
215 , _tasSelfLink :: !(Maybe Text)
216 , _tasId :: !(Maybe Text)
216 , _tasId :: !(Maybe Text)
217− , _tasUpdated :: !(Maybe DateTime)
217+ , _tasUpdated :: !(Maybe DateTime')
218 , _tasTitle :: !(Maybe Text)
218 , _tasTitle :: !(Maybe Text)
219 } deriving (Eq,Read,Show,Data,Typeable,Generic)
219 } deriving (Eq,Read,Show,Data,Typeable,Generic)
220
220
@@ -266,7 +266,8 @@ tasId = lens _tasId (\ s a -> s{_tasId = a})
266-- | Last modification time of the task list (as a RFC 3339 timestamp).
266-- | Last modification time of the task list (as a RFC 3339 timestamp).
267tasUpdated :: Lens' TaskList (Maybe UTCTime)
267tasUpdated :: Lens' TaskList (Maybe UTCTime)
268tasUpdated
268tasUpdated
269− = lens _tasUpdated (\ s a -> s{_tasUpdated = a})
269+ = lens _tasUpdated (\ s a -> s{_tasUpdated = a}) .
270+ mapping _DateTime
270
271
271-- | Title of the task list.
272-- | Title of the task list.
272tasTitle :: Lens' TaskList (Maybe Text)
273tasTitle :: Lens' TaskList (Maybe Text)
@@ -298,15 +299,15 @@ instance ToJSON TaskList where
298data Task = Task
299data Task = Task
299 { _ttParent :: !(Maybe Text)
300 { _ttParent :: !(Maybe Text)
300 , _ttStatus :: !(Maybe Text)
301 , _ttStatus :: !(Maybe Text)
301− , _ttDue :: !(Maybe DateTime)
302+ , _ttDue :: !(Maybe DateTime')
302 , _ttEtag :: !(Maybe Text)
303 , _ttEtag :: !(Maybe Text)
303 , _ttKind :: !Text
304 , _ttKind :: !Text
304 , _ttSelfLink :: !(Maybe Text)
305 , _ttSelfLink :: !(Maybe Text)
305 , _ttHidden :: !(Maybe Bool)
306 , _ttHidden :: !(Maybe Bool)
306− , _ttCompleted :: !(Maybe DateTime)
307+ , _ttCompleted :: !(Maybe DateTime')
307 , _ttId :: !(Maybe Text)
308 , _ttId :: !(Maybe Text)
308 , _ttDeleted :: !(Maybe Bool)
309 , _ttDeleted :: !(Maybe Bool)
309− , _ttUpdated :: !(Maybe DateTime)
310+ , _ttUpdated :: !(Maybe DateTime')
310 , _ttTitle :: !(Maybe Text)
311 , _ttTitle :: !(Maybe Text)
311 , _ttLinks :: !(Maybe [TaskLinks])
312 , _ttLinks :: !(Maybe [TaskLinks])
312 , _ttNotes :: !(Maybe Text)
313 , _ttNotes :: !(Maybe Text)
@@ -379,7 +380,9 @@ ttStatus = lens _ttStatus (\ s a -> s{_ttStatus = a})
379
380
380-- | Due date of the task (as a RFC 3339 timestamp). Optional.
381-- | Due date of the task (as a RFC 3339 timestamp). Optional.
381ttDue :: Lens' Task (Maybe UTCTime)
382ttDue :: Lens' Task (Maybe UTCTime)
383+ttDue
382−ttDue = lens _ttDue (\ s a -> s{_ttDue = a})
384+ = lens _ttDue (\ s a -> s{_ttDue = a}) .
385+ mapping _DateTime
383
386
384-- | ETag of the resource.
387-- | ETag of the resource.
385ttEtag :: Lens' Task (Maybe Text)
388ttEtag :: Lens' Task (Maybe Text)
@@ -405,7 +408,8 @@ ttHidden = lens _ttHidden (\ s a -> s{_ttHidden = a})
405-- omitted if the task has not been completed.
408-- omitted if the task has not been completed.
406ttCompleted :: Lens' Task (Maybe UTCTime)
409ttCompleted :: Lens' Task (Maybe UTCTime)
407ttCompleted
410ttCompleted
408− = lens _ttCompleted (\ s a -> s{_ttCompleted = a})
411+ = lens _ttCompleted (\ s a -> s{_ttCompleted = a}) .
412+ mapping _DateTime
409
413
410-- | Task identifier.
414-- | Task identifier.
411ttId :: Lens' Task (Maybe Text)
415ttId :: Lens' Task (Maybe Text)
@@ -419,7 +423,8 @@ ttDeleted
419-- | Last modification time of the task (as a RFC 3339 timestamp).
423-- | Last modification time of the task (as a RFC 3339 timestamp).
420ttUpdated :: Lens' Task (Maybe UTCTime)
424ttUpdated :: Lens' Task (Maybe UTCTime)
421ttUpdated
425ttUpdated
422− = lens _ttUpdated (\ s a -> s{_ttUpdated = a})
426+ = lens _ttUpdated (\ s a -> s{_ttUpdated = a}) .
427+ mapping _DateTime
423
428
424-- | Title of the task.
429-- | Title of the task.
425ttTitle :: Lens' Task (Maybe Text)
430ttTitle :: Lens' Task (Maybe Text)
gogol-blogger/gen/Network/Google/Blogger/Types/Product.hs+28−16
@@ -497,7 +497,7 @@ data Post = Post
497 , _posReaderComments :: !(Maybe Text)
497 , _posReaderComments :: !(Maybe Text)
498 , _posLocation :: !(Maybe PostLocation)
498 , _posLocation :: !(Maybe PostLocation)
499 , _posKind :: !Text
499 , _posKind :: !Text
500− , _posPublished :: !(Maybe DateTime)
500+ , _posPublished :: !(Maybe DateTime')
501 , _posURL :: !(Maybe Text)
501 , _posURL :: !(Maybe Text)
502 , _posBlog :: !(Maybe PostBlog)
502 , _posBlog :: !(Maybe PostBlog)
503 , _posCustomMetaData :: !(Maybe Text)
503 , _posCustomMetaData :: !(Maybe Text)
@@ -507,7 +507,7 @@ data Post = Post
507 , _posAuthor :: !(Maybe PostAuthor)
507 , _posAuthor :: !(Maybe PostAuthor)
508 , _posId :: !(Maybe Text)
508 , _posId :: !(Maybe Text)
509 , _posLabels :: !(Maybe [Text])
509 , _posLabels :: !(Maybe [Text])
510− , _posUpdated :: !(Maybe DateTime)
510+ , _posUpdated :: !(Maybe DateTime')
511 , _posTitleLink :: !(Maybe Text)
511 , _posTitleLink :: !(Maybe Text)
512 , _posTitle :: !(Maybe Text)
512 , _posTitle :: !(Maybe Text)
513 } deriving (Eq,Read,Show,Data,Typeable,Generic)
513 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -613,6 +613,7 @@ posKind = lens _posKind (\ s a -> s{_posKind = a})
613posPublished :: Lens' Post (Maybe UTCTime)
613posPublished :: Lens' Post (Maybe UTCTime)
614posPublished
614posPublished
615 = lens _posPublished (\ s a -> s{_posPublished = a})
615 = lens _posPublished (\ s a -> s{_posPublished = a})
616+ . mapping _DateTime
616
617
617-- | The URL where this Post is displayed.
618-- | The URL where this Post is displayed.
618posURL :: Lens' Post (Maybe Text)
619posURL :: Lens' Post (Maybe Text)
@@ -662,7 +663,8 @@ posLabels
662-- | RFC 3339 date-time when this Post was last updated.
663-- | RFC 3339 date-time when this Post was last updated.
663posUpdated :: Lens' Post (Maybe UTCTime)
664posUpdated :: Lens' Post (Maybe UTCTime)
664posUpdated
665posUpdated
665− = lens _posUpdated (\ s a -> s{_posUpdated = a})
666+ = lens _posUpdated (\ s a -> s{_posUpdated = a}) .
667+ mapping _DateTime
666
668
667-- | The title link URL, similar to atom\'s related link.
669-- | The title link URL, similar to atom\'s related link.
668posTitleLink :: Lens' Post (Maybe Text)
670posTitleLink :: Lens' Post (Maybe Text)
@@ -725,14 +727,14 @@ data Page = Page
725 { _pagStatus :: !(Maybe Text)
727 { _pagStatus :: !(Maybe Text)
726 , _pagEtag :: !(Maybe Text)
728 , _pagEtag :: !(Maybe Text)
727 , _pagKind :: !Text
729 , _pagKind :: !Text
728− , _pagPublished :: !(Maybe DateTime)
730+ , _pagPublished :: !(Maybe DateTime')
729 , _pagURL :: !(Maybe Text)
731 , _pagURL :: !(Maybe Text)
730 , _pagBlog :: !(Maybe PageBlog)
732 , _pagBlog :: !(Maybe PageBlog)
731 , _pagContent :: !(Maybe Text)
733 , _pagContent :: !(Maybe Text)
732 , _pagSelfLink :: !(Maybe Text)
734 , _pagSelfLink :: !(Maybe Text)
733 , _pagAuthor :: !(Maybe PageAuthor)
735 , _pagAuthor :: !(Maybe PageAuthor)
734 , _pagId :: !(Maybe Text)
736 , _pagId :: !(Maybe Text)
735− , _pagUpdated :: !(Maybe DateTime)
737+ , _pagUpdated :: !(Maybe DateTime')
736 , _pagTitle :: !(Maybe Text)
738 , _pagTitle :: !(Maybe Text)
737 } deriving (Eq,Read,Show,Data,Typeable,Generic)
739 } deriving (Eq,Read,Show,Data,Typeable,Generic)
738
740
@@ -798,6 +800,7 @@ pagKind = lens _pagKind (\ s a -> s{_pagKind = a})
798pagPublished :: Lens' Page (Maybe UTCTime)
800pagPublished :: Lens' Page (Maybe UTCTime)
799pagPublished
801pagPublished
800 = lens _pagPublished (\ s a -> s{_pagPublished = a})
802 = lens _pagPublished (\ s a -> s{_pagPublished = a})
803+ . mapping _DateTime
801
804
802-- | The URL that this Page is displayed at.
805-- | The URL that this Page is displayed at.
803pagURL :: Lens' Page (Maybe Text)
806pagURL :: Lens' Page (Maybe Text)
@@ -829,7 +832,8 @@ pagId = lens _pagId (\ s a -> s{_pagId = a})
829-- | RFC 3339 date-time when this Page was last updated.
832-- | RFC 3339 date-time when this Page was last updated.
830pagUpdated :: Lens' Page (Maybe UTCTime)
833pagUpdated :: Lens' Page (Maybe UTCTime)
831pagUpdated
834pagUpdated
832− = lens _pagUpdated (\ s a -> s{_pagUpdated = a})
835+ = lens _pagUpdated (\ s a -> s{_pagUpdated = a}) .
836+ mapping _DateTime
833
837
834-- | The title of this entity. This is the name displayed in the Admin user
838-- | The title of this entity. This is the name displayed in the Admin user
835-- interface.
839-- interface.
@@ -1030,13 +1034,13 @@ data Blog = Blog
1030 , _bKind :: !Text
1034 , _bKind :: !Text
1031 , _bPages :: !(Maybe BlogPages)
1035 , _bPages :: !(Maybe BlogPages)
1032 , _bLocale :: !(Maybe BlogLocale)
1036 , _bLocale :: !(Maybe BlogLocale)
1033− , _bPublished :: !(Maybe DateTime)
1037+ , _bPublished :: !(Maybe DateTime')
1034 , _bURL :: !(Maybe Text)
1038 , _bURL :: !(Maybe Text)
1035 , _bCustomMetaData :: !(Maybe Text)
1039 , _bCustomMetaData :: !(Maybe Text)
1036 , _bSelfLink :: !(Maybe Text)
1040 , _bSelfLink :: !(Maybe Text)
1037 , _bName :: !(Maybe Text)
1041 , _bName :: !(Maybe Text)
1038 , _bId :: !(Maybe Text)
1042 , _bId :: !(Maybe Text)
1039− , _bUpdated :: !(Maybe DateTime)
1043+ , _bUpdated :: !(Maybe DateTime')
1040 , _bPosts :: !(Maybe BlogPosts)
1044 , _bPosts :: !(Maybe BlogPosts)
1041 , _bDescription :: !(Maybe Text)
1045 , _bDescription :: !(Maybe Text)
1042 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1046 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -1108,7 +1112,8 @@ bLocale = lens _bLocale (\ s a -> s{_bLocale = a})
1108-- | RFC 3339 date-time when this blog was published.
1112-- | RFC 3339 date-time when this blog was published.
1109bPublished :: Lens' Blog (Maybe UTCTime)
1113bPublished :: Lens' Blog (Maybe UTCTime)
1110bPublished
1114bPublished
1111− = lens _bPublished (\ s a -> s{_bPublished = a})
1115+ = lens _bPublished (\ s a -> s{_bPublished = a}) .
1116+ mapping _DateTime
1112
1117
1113-- | The URL where this blog is published.
1118-- | The URL where this blog is published.
1114bURL :: Lens' Blog (Maybe Text)
1119bURL :: Lens' Blog (Maybe Text)
@@ -1135,7 +1140,9 @@ bId = lens _bId (\ s a -> s{_bId = a})
1135
1140
1136-- | RFC 3339 date-time when this blog was last updated.
1141-- | RFC 3339 date-time when this blog was last updated.
1137bUpdated :: Lens' Blog (Maybe UTCTime)
1142bUpdated :: Lens' Blog (Maybe UTCTime)
1143+bUpdated
1138−bUpdated = lens _bUpdated (\ s a -> s{_bUpdated = a})
1144+ = lens _bUpdated (\ s a -> s{_bUpdated = a}) .
1145+ mapping _DateTime
1139
1146
1140-- | The container of posts in this blog.
1147-- | The container of posts in this blog.
1141bPosts :: Lens' Blog (Maybe BlogPosts)
1148bPosts :: Lens' Blog (Maybe BlogPosts)
@@ -1334,7 +1341,7 @@ instance ToJSON PageList where
1334data User = User
1341data User = User
1335 { _uBlogs :: !(Maybe UserBlogs)
1342 { _uBlogs :: !(Maybe UserBlogs)
1336 , _uKind :: !Text
1343 , _uKind :: !Text
1337− , _uCreated :: !(Maybe DateTime)
1344+ , _uCreated :: !(Maybe DateTime')
1338 , _uLocale :: !(Maybe UserLocale)
1345 , _uLocale :: !(Maybe UserLocale)
1339 , _uURL :: !(Maybe Text)
1346 , _uURL :: !(Maybe Text)
1340 , _uSelfLink :: !(Maybe Text)
1347 , _uSelfLink :: !(Maybe Text)
@@ -1389,7 +1396,9 @@ uKind = lens _uKind (\ s a -> s{_uKind = a})
1389
1396
1390-- | The timestamp of when this profile was created, in seconds since epoch.
1397-- | The timestamp of when this profile was created, in seconds since epoch.
1391uCreated :: Lens' User (Maybe UTCTime)
1398uCreated :: Lens' User (Maybe UTCTime)
1399+uCreated
1392−uCreated = lens _uCreated (\ s a -> s{_uCreated = a})
1400+ = lens _uCreated (\ s a -> s{_uCreated = a}) .
1401+ mapping _DateTime
1393
1402
1394-- | This user\'s locale
1403-- | This user\'s locale
1395uLocale :: Lens' User (Maybe UserLocale)
1404uLocale :: Lens' User (Maybe UserLocale)
@@ -1869,13 +1878,13 @@ data Comment = Comment
1869 { _cStatus :: !(Maybe Text)
1878 { _cStatus :: !(Maybe Text)
1870 , _cPost :: !(Maybe CommentPost)
1879 , _cPost :: !(Maybe CommentPost)
1871 , _cKind :: !Text
1880 , _cKind :: !Text
1872− , _cPublished :: !(Maybe DateTime)
1881+ , _cPublished :: !(Maybe DateTime')
1873 , _cBlog :: !(Maybe CommentBlog)
1882 , _cBlog :: !(Maybe CommentBlog)
1874 , _cContent :: !(Maybe Text)
1883 , _cContent :: !(Maybe Text)
1875 , _cSelfLink :: !(Maybe Text)
1884 , _cSelfLink :: !(Maybe Text)
1876 , _cAuthor :: !(Maybe CommentAuthor)
1885 , _cAuthor :: !(Maybe CommentAuthor)
1877 , _cId :: !(Maybe Text)
1886 , _cId :: !(Maybe Text)
1878− , _cUpdated :: !(Maybe DateTime)
1887+ , _cUpdated :: !(Maybe DateTime')
1879 , _cInReplyTo :: !(Maybe CommentInReplyTo)
1888 , _cInReplyTo :: !(Maybe CommentInReplyTo)
1880 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1889 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1881
1890
@@ -1936,7 +1945,8 @@ cKind = lens _cKind (\ s a -> s{_cKind = a})
1936-- | RFC 3339 date-time when this comment was published.
1945-- | RFC 3339 date-time when this comment was published.
1937cPublished :: Lens' Comment (Maybe UTCTime)
1946cPublished :: Lens' Comment (Maybe UTCTime)
1938cPublished
1947cPublished
1939− = lens _cPublished (\ s a -> s{_cPublished = a})
1948+ = lens _cPublished (\ s a -> s{_cPublished = a}) .
1949+ mapping _DateTime
1940
1950
1941-- | Data about the blog containing this comment.
1951-- | Data about the blog containing this comment.
1942cBlog :: Lens' Comment (Maybe CommentBlog)
1952cBlog :: Lens' Comment (Maybe CommentBlog)
@@ -1961,7 +1971,9 @@ cId = lens _cId (\ s a -> s{_cId = a})
1961
1971
1962-- | RFC 3339 date-time when this comment was last updated.
1972-- | RFC 3339 date-time when this comment was last updated.
1963cUpdated :: Lens' Comment (Maybe UTCTime)
1973cUpdated :: Lens' Comment (Maybe UTCTime)
1974+cUpdated
1964−cUpdated = lens _cUpdated (\ s a -> s{_cUpdated = a})
1975+ = lens _cUpdated (\ s a -> s{_cUpdated = a}) .
1976+ mapping _DateTime
1965
1977
1966-- | Data about the comment this is in reply to.
1978-- | Data about the comment this is in reply to.
1967cInReplyTo :: Lens' Comment (Maybe CommentInReplyTo)
1979cInReplyTo :: Lens' Comment (Maybe CommentInReplyTo)
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/List.hs+8−6
@@ -58,11 +58,11 @@ type CommentsListResource =
58 "posts" :>
58 "posts" :>
59 Capture "postId" Text :>
59 Capture "postId" Text :>
60 "comments" :>
60 "comments" :>
61− QueryParam "endDate" DateTime :>
61+ QueryParam "endDate" DateTime' :>
62 QueryParam "fetchBodies" Bool :>
62 QueryParam "fetchBodies" Bool :>
63 QueryParam "maxResults" Word32 :>
63 QueryParam "maxResults" Word32 :>
64 QueryParam "pageToken" Text :>
64 QueryParam "pageToken" Text :>
65− QueryParam "startDate" DateTime :>
65+ QueryParam "startDate" DateTime' :>
66 QueryParams "status" BloggerCommentsListStatus :>
66 QueryParams "status" BloggerCommentsListStatus :>
67 QueryParam "view" BloggerCommentsListView :>
67 QueryParam "view" BloggerCommentsListView :>
68 QueryParam "quotaUser" Text :>
68 QueryParam "quotaUser" Text :>
@@ -82,9 +82,9 @@ data CommentsList' = CommentsList'
82 , _clQuotaUser :: !(Maybe Text)
82 , _clQuotaUser :: !(Maybe Text)
83 , _clPrettyPrint :: !Bool
83 , _clPrettyPrint :: !Bool
84 , _clUserIP :: !(Maybe Text)
84 , _clUserIP :: !(Maybe Text)
85− , _clEndDate :: !(Maybe DateTime)
85+ , _clEndDate :: !(Maybe DateTime')
86 , _clBlogId :: !Text
86 , _clBlogId :: !Text
87− , _clStartDate :: !(Maybe DateTime)
87+ , _clStartDate :: !(Maybe DateTime')
88 , _clKey :: !(Maybe Key)
88 , _clKey :: !(Maybe Key)
89 , _clFetchBodies :: !(Maybe Bool)
89 , _clFetchBodies :: !(Maybe Bool)
90 , _clView :: !(Maybe BloggerCommentsListView)
90 , _clView :: !(Maybe BloggerCommentsListView)
@@ -175,7 +175,8 @@ clUserIP = lens _clUserIP (\ s a -> s{_clUserIP = a})
175-- | Latest date of comment to fetch, a date-time with RFC 3339 formatting.
175-- | Latest date of comment to fetch, a date-time with RFC 3339 formatting.
176clEndDate :: Lens' CommentsList' (Maybe UTCTime)
176clEndDate :: Lens' CommentsList' (Maybe UTCTime)
177clEndDate
177clEndDate
178− = lens _clEndDate (\ s a -> s{_clEndDate = a})
178+ = lens _clEndDate (\ s a -> s{_clEndDate = a}) .
179+ mapping _DateTime
179
180
180-- | ID of the blog to fetch comments from.
181-- | ID of the blog to fetch comments from.
181clBlogId :: Lens' CommentsList' Text
182clBlogId :: Lens' CommentsList' Text
@@ -184,7 +185,8 @@ clBlogId = lens _clBlogId (\ s a -> s{_clBlogId = a})
184-- | Earliest date of comment to fetch, a date-time with RFC 3339 formatting.
185-- | Earliest date of comment to fetch, a date-time with RFC 3339 formatting.
185clStartDate :: Lens' CommentsList' (Maybe UTCTime)
186clStartDate :: Lens' CommentsList' (Maybe UTCTime)
186clStartDate
187clStartDate
187− = lens _clStartDate (\ s a -> s{_clStartDate = a})
188+ = lens _clStartDate (\ s a -> s{_clStartDate = a}) .
189+ mapping _DateTime
188
190
189-- | API key. Your API key identifies your project and provides you with API
191-- | API key. Your API key identifies your project and provides you with API
190-- access, quota, and reports. Required unless you provide an OAuth 2.0
192-- access, quota, and reports. Required unless you provide an OAuth 2.0
gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs+7−5
@@ -54,11 +54,11 @@ type CommentsListByBlogResource =
54 "blogs" :>
54 "blogs" :>
55 Capture "blogId" Text :>
55 Capture "blogId" Text :>
56 "comments" :>
56 "comments" :>
57− QueryParam "endDate" DateTime :>
57+ QueryParam "endDate" DateTime' :>
58 QueryParam "fetchBodies" Bool :>
58 QueryParam "fetchBodies" Bool :>
59 QueryParam "maxResults" Word32 :>
59 QueryParam "maxResults" Word32 :>
60 QueryParam "pageToken" Text :>
60 QueryParam "pageToken" Text :>
61− QueryParam "startDate" DateTime :>
61+ QueryParam "startDate" DateTime' :>
62 QueryParams "status" BloggerCommentsListByBlogStatus
62 QueryParams "status" BloggerCommentsListByBlogStatus
63 :>
63 :>
64 QueryParam "quotaUser" Text :>
64 QueryParam "quotaUser" Text :>
@@ -78,9 +78,9 @@ data CommentsListByBlog' = CommentsListByBlog'
78 , _clbbQuotaUser :: !(Maybe Text)
78 , _clbbQuotaUser :: !(Maybe Text)
79 , _clbbPrettyPrint :: !Bool
79 , _clbbPrettyPrint :: !Bool
80 , _clbbUserIP :: !(Maybe Text)
80 , _clbbUserIP :: !(Maybe Text)
81− , _clbbEndDate :: !(Maybe DateTime)
81+ , _clbbEndDate :: !(Maybe DateTime')
82 , _clbbBlogId :: !Text
82 , _clbbBlogId :: !Text
83− , _clbbStartDate :: !(Maybe DateTime)
83+ , _clbbStartDate :: !(Maybe DateTime')
84 , _clbbKey :: !(Maybe Key)
84 , _clbbKey :: !(Maybe Key)
85 , _clbbFetchBodies :: !(Maybe Bool)
85 , _clbbFetchBodies :: !(Maybe Bool)
86 , _clbbPageToken :: !(Maybe Text)
86 , _clbbPageToken :: !(Maybe Text)
@@ -165,7 +165,8 @@ clbbUserIP
165-- | Latest date of comment to fetch, a date-time with RFC 3339 formatting.
165-- | Latest date of comment to fetch, a date-time with RFC 3339 formatting.
166clbbEndDate :: Lens' CommentsListByBlog' (Maybe UTCTime)
166clbbEndDate :: Lens' CommentsListByBlog' (Maybe UTCTime)
167clbbEndDate
167clbbEndDate
168− = lens _clbbEndDate (\ s a -> s{_clbbEndDate = a})
168+ = lens _clbbEndDate (\ s a -> s{_clbbEndDate = a}) .
169+ mapping _DateTime
169
170
170-- | ID of the blog to fetch comments from.
171-- | ID of the blog to fetch comments from.
171clbbBlogId :: Lens' CommentsListByBlog' Text
172clbbBlogId :: Lens' CommentsListByBlog' Text
@@ -177,6 +178,7 @@ clbbStartDate :: Lens' CommentsListByBlog' (Maybe UTCTime)
177clbbStartDate
178clbbStartDate
178 = lens _clbbStartDate
179 = lens _clbbStartDate
179 (\ s a -> s{_clbbStartDate = a})
180 (\ s a -> s{_clbbStartDate = a})
181+ . mapping _DateTime
180
182
181-- | API key. Your API key identifies your project and provides you with API
183-- | API key. Your API key identifies your project and provides you with API
182-- access, quota, and reports. Required unless you provide an OAuth 2.0
184-- access, quota, and reports. Required unless you provide an OAuth 2.0
gogol-blogger/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs+7−5
@@ -62,14 +62,14 @@ type PostUserInfosListResource =
62 "blogs" :>
62 "blogs" :>
63 Capture "blogId" Text :>
63 Capture "blogId" Text :>
64 "posts" :>
64 "posts" :>
65− QueryParam "endDate" DateTime :>
65+ QueryParam "endDate" DateTime' :>
66 QueryParam "fetchBodies" Bool :>
66 QueryParam "fetchBodies" Bool :>
67 QueryParam "labels" Text :>
67 QueryParam "labels" Text :>
68 QueryParam "maxResults" Word32 :>
68 QueryParam "maxResults" Word32 :>
69 QueryParam "orderBy" BloggerPostUserInfosListOrderBy
69 QueryParam "orderBy" BloggerPostUserInfosListOrderBy
70 :>
70 :>
71 QueryParam "pageToken" Text :>
71 QueryParam "pageToken" Text :>
72− QueryParam "startDate" DateTime :>
72+ QueryParam "startDate" DateTime' :>
73 QueryParams "status" BloggerPostUserInfosListStatus
73 QueryParams "status" BloggerPostUserInfosListStatus
74 :>
74 :>
75 QueryParam "view" BloggerPostUserInfosListView :>
75 QueryParam "view" BloggerPostUserInfosListView :>
@@ -94,10 +94,10 @@ data PostUserInfosList' = PostUserInfosList'
94 , _puilPrettyPrint :: !Bool
94 , _puilPrettyPrint :: !Bool
95 , _puilOrderBy :: !BloggerPostUserInfosListOrderBy
95 , _puilOrderBy :: !BloggerPostUserInfosListOrderBy
96 , _puilUserIP :: !(Maybe Text)
96 , _puilUserIP :: !(Maybe Text)
97− , _puilEndDate :: !(Maybe DateTime)
97+ , _puilEndDate :: !(Maybe DateTime')
98 , _puilBlogId :: !Text
98 , _puilBlogId :: !Text
99 , _puilUserId :: !Text
99 , _puilUserId :: !Text
100− , _puilStartDate :: !(Maybe DateTime)
100+ , _puilStartDate :: !(Maybe DateTime')
101 , _puilKey :: !(Maybe Key)
101 , _puilKey :: !(Maybe Key)
102 , _puilFetchBodies :: !Bool
102 , _puilFetchBodies :: !Bool
103 , _puilView :: !(Maybe BloggerPostUserInfosListView)
103 , _puilView :: !(Maybe BloggerPostUserInfosListView)
@@ -202,7 +202,8 @@ puilUserIP
202-- | Latest post date to fetch, a date-time with RFC 3339 formatting.
202-- | Latest post date to fetch, a date-time with RFC 3339 formatting.
203puilEndDate :: Lens' PostUserInfosList' (Maybe UTCTime)
203puilEndDate :: Lens' PostUserInfosList' (Maybe UTCTime)
204puilEndDate
204puilEndDate
205− = lens _puilEndDate (\ s a -> s{_puilEndDate = a})
205+ = lens _puilEndDate (\ s a -> s{_puilEndDate = a}) .
206+ mapping _DateTime
206
207
207-- | ID of the blog to fetch posts from.
208-- | ID of the blog to fetch posts from.
208puilBlogId :: Lens' PostUserInfosList' Text
209puilBlogId :: Lens' PostUserInfosList' Text
@@ -220,6 +221,7 @@ puilStartDate :: Lens' PostUserInfosList' (Maybe UTCTime)
220puilStartDate
221puilStartDate
221 = lens _puilStartDate
222 = lens _puilStartDate
222 (\ s a -> s{_puilStartDate = a})
223 (\ s a -> s{_puilStartDate = a})
224+ . mapping _DateTime
223
225
224-- | API key. Your API key identifies your project and provides you with API
226-- | API key. Your API key identifies your project and provides you with API
225-- access, quota, and reports. Required unless you provide an OAuth 2.0
227-- access, quota, and reports. Required unless you provide an OAuth 2.0
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/List.hs+7−5
@@ -58,14 +58,14 @@ type PostsListResource =
58 "blogs" :>
58 "blogs" :>
59 Capture "blogId" Text :>
59 Capture "blogId" Text :>
60 "posts" :>
60 "posts" :>
61− QueryParam "endDate" DateTime :>
61+ QueryParam "endDate" DateTime' :>
62 QueryParam "fetchBodies" Bool :>
62 QueryParam "fetchBodies" Bool :>
63 QueryParam "fetchImages" Bool :>
63 QueryParam "fetchImages" Bool :>
64 QueryParam "labels" Text :>
64 QueryParam "labels" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66 QueryParam "orderBy" BloggerPostsListOrderBy :>
66 QueryParam "orderBy" BloggerPostsListOrderBy :>
67 QueryParam "pageToken" Text :>
67 QueryParam "pageToken" Text :>
68− QueryParam "startDate" DateTime :>
68+ QueryParam "startDate" DateTime' :>
69 QueryParams "status" BloggerPostsListStatus :>
69 QueryParams "status" BloggerPostsListStatus :>
70 QueryParam "view" BloggerPostsListView :>
70 QueryParam "view" BloggerPostsListView :>
71 QueryParam "quotaUser" Text :>
71 QueryParam "quotaUser" Text :>
@@ -87,9 +87,9 @@ data PostsList' = PostsList'
87 , _pllOrderBy :: !BloggerPostsListOrderBy
87 , _pllOrderBy :: !BloggerPostsListOrderBy
88 , _pllUserIP :: !(Maybe Text)
88 , _pllUserIP :: !(Maybe Text)
89 , _pllFetchImages :: !(Maybe Bool)
89 , _pllFetchImages :: !(Maybe Bool)
90− , _pllEndDate :: !(Maybe DateTime)
90+ , _pllEndDate :: !(Maybe DateTime')
91 , _pllBlogId :: !Text
91 , _pllBlogId :: !Text
92− , _pllStartDate :: !(Maybe DateTime)
92+ , _pllStartDate :: !(Maybe DateTime')
93 , _pllKey :: !(Maybe Key)
93 , _pllKey :: !(Maybe Key)
94 , _pllFetchBodies :: !Bool
94 , _pllFetchBodies :: !Bool
95 , _pllView :: !(Maybe BloggerPostsListView)
95 , _pllView :: !(Maybe BloggerPostsListView)
@@ -199,7 +199,8 @@ pllFetchImages
199-- | Latest post date to fetch, a date-time with RFC 3339 formatting.
199-- | Latest post date to fetch, a date-time with RFC 3339 formatting.
200pllEndDate :: Lens' PostsList' (Maybe UTCTime)
200pllEndDate :: Lens' PostsList' (Maybe UTCTime)
201pllEndDate
201pllEndDate
202− = lens _pllEndDate (\ s a -> s{_pllEndDate = a})
202+ = lens _pllEndDate (\ s a -> s{_pllEndDate = a}) .
203+ mapping _DateTime
203
204
204-- | ID of the blog to fetch posts from.
205-- | ID of the blog to fetch posts from.
205pllBlogId :: Lens' PostsList' Text
206pllBlogId :: Lens' PostsList' Text
@@ -210,6 +211,7 @@ pllBlogId
210pllStartDate :: Lens' PostsList' (Maybe UTCTime)
211pllStartDate :: Lens' PostsList' (Maybe UTCTime)
211pllStartDate
212pllStartDate
212 = lens _pllStartDate (\ s a -> s{_pllStartDate = a})
213 = lens _pllStartDate (\ s a -> s{_pllStartDate = a})
214+ . mapping _DateTime
213
215
214-- | API key. Your API key identifies your project and provides you with API
216-- | API key. Your API key identifies your project and provides you with API
215-- access, quota, and reports. Required unless you provide an OAuth 2.0
217-- access, quota, and reports. Required unless you provide an OAuth 2.0
gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/Publish.hs+3−2
@@ -53,7 +53,7 @@ type PostsPublishResource =
53 "posts" :>
53 "posts" :>
54 Capture "postId" Text :>
54 Capture "postId" Text :>
55 "publish" :>
55 "publish" :>
56− QueryParam "publishDate" DateTime :>
56+ QueryParam "publishDate" DateTime' :>
57 QueryParam "quotaUser" Text :>
57 QueryParam "quotaUser" Text :>
58 QueryParam "prettyPrint" Bool :>
58 QueryParam "prettyPrint" Bool :>
59 QueryParam "userIp" Text :>
59 QueryParam "userIp" Text :>
@@ -69,7 +69,7 @@ type PostsPublishResource =
69data PostsPublish' = PostsPublish'
69data PostsPublish' = PostsPublish'
70 { _posQuotaUser :: !(Maybe Text)
70 { _posQuotaUser :: !(Maybe Text)
71 , _posPrettyPrint :: !Bool
71 , _posPrettyPrint :: !Bool
72− , _posPublishDate :: !(Maybe DateTime)
72+ , _posPublishDate :: !(Maybe DateTime')
73 , _posUserIP :: !(Maybe Text)
73 , _posUserIP :: !(Maybe Text)
74 , _posBlogId :: !Text
74 , _posBlogId :: !Text
75 , _posKey :: !(Maybe Key)
75 , _posKey :: !(Maybe Key)
@@ -137,6 +137,7 @@ posPublishDate :: Lens' PostsPublish' (Maybe UTCTime)
137posPublishDate
137posPublishDate
138 = lens _posPublishDate
138 = lens _posPublishDate
139 (\ s a -> s{_posPublishDate = a})
139 (\ s a -> s{_posPublishDate = a})
140+ . mapping _DateTime
140
141
141-- | 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
142-- want to enforce per-user limits.
143-- want to enforce per-user limits.
gogol-books/gen/Network/Google/Books/Types/Product.hs+40−24
@@ -390,7 +390,7 @@ data Annotation = Annotation
390 , _aaPageIds :: !(Maybe [Text])
390 , _aaPageIds :: !(Maybe [Text])
391 , _aaKind :: !Text
391 , _aaKind :: !Text
392 , _aaData :: !(Maybe Text)
392 , _aaData :: !(Maybe Text)
393− , _aaCreated :: !(Maybe DateTime)
393+ , _aaCreated :: !(Maybe DateTime')
394 , _aaAfterSelectedText :: !(Maybe Text)
394 , _aaAfterSelectedText :: !(Maybe Text)
395 , _aaSelfLink :: !(Maybe Text)
395 , _aaSelfLink :: !(Maybe Text)
396 , _aaCurrentVersionRanges :: !(Maybe AnnotationCurrentVersionRanges)
396 , _aaCurrentVersionRanges :: !(Maybe AnnotationCurrentVersionRanges)
@@ -398,7 +398,7 @@ data Annotation = Annotation
398 , _aaBeforeSelectedText :: !(Maybe Text)
398 , _aaBeforeSelectedText :: !(Maybe Text)
399 , _aaId :: !(Maybe Text)
399 , _aaId :: !(Maybe Text)
400 , _aaDeleted :: !(Maybe Bool)
400 , _aaDeleted :: !(Maybe Bool)
401− , _aaUpdated :: !(Maybe DateTime)
401+ , _aaUpdated :: !(Maybe DateTime')
402 , _aaLayerId :: !(Maybe Text)
402 , _aaLayerId :: !(Maybe Text)
403 } deriving (Eq,Read,Show,Data,Typeable,Generic)
403 } deriving (Eq,Read,Show,Data,Typeable,Generic)
404
404
@@ -503,7 +503,8 @@ aaData = lens _aaData (\ s a -> s{_aaData = a})
503-- | Timestamp for the created time of this annotation.
503-- | Timestamp for the created time of this annotation.
504aaCreated :: Lens' Annotation (Maybe UTCTime)
504aaCreated :: Lens' Annotation (Maybe UTCTime)
505aaCreated
505aaCreated
506− = lens _aaCreated (\ s a -> s{_aaCreated = a})
506+ = lens _aaCreated (\ s a -> s{_aaCreated = a}) .
507+ mapping _DateTime
507
508
508-- | Anchor text after excerpt. For requests, if the user bookmarked a screen
509-- | Anchor text after excerpt. For requests, if the user bookmarked a screen
509-- that has no flowing text on it, then this field should be empty.
510-- that has no flowing text on it, then this field should be empty.
@@ -547,7 +548,8 @@ aaDeleted
547-- | Timestamp for the last time this annotation was modified.
548-- | Timestamp for the last time this annotation was modified.
548aaUpdated :: Lens' Annotation (Maybe UTCTime)
549aaUpdated :: Lens' Annotation (Maybe UTCTime)
549aaUpdated
550aaUpdated
550− = lens _aaUpdated (\ s a -> s{_aaUpdated = a})
551+ = lens _aaUpdated (\ s a -> s{_aaUpdated = a}) .
552+ mapping _DateTime
551
553
552-- | The layer this annotation is for.
554-- | The layer this annotation is for.
553aaLayerId :: Lens' Annotation (Maybe Text)
555aaLayerId :: Lens' Annotation (Maybe Text)
@@ -759,7 +761,7 @@ data Layersummary = Layersummary
759 , _lSelfLink :: !(Maybe Text)
761 , _lSelfLink :: !(Maybe Text)
760 , _lVolumeId :: !(Maybe Text)
762 , _lVolumeId :: !(Maybe Text)
761 , _lId :: !(Maybe Text)
763 , _lId :: !(Maybe Text)
762− , _lUpdated :: !(Maybe DateTime)
764+ , _lUpdated :: !(Maybe DateTime')
763 , _lLayerId :: !(Maybe Text)
765 , _lLayerId :: !(Maybe Text)
764 } deriving (Eq,Read,Show,Data,Typeable,Generic)
766 } deriving (Eq,Read,Show,Data,Typeable,Generic)
765
767
@@ -877,7 +879,9 @@ lId = lens _lId (\ s a -> s{_lId = a})
877-- | Timestamp for the last time an item in this layer was updated. (RFC 3339
879-- | Timestamp for the last time an item in this layer was updated. (RFC 3339
878-- UTC date-time format).
880-- UTC date-time format).
879lUpdated :: Lens' Layersummary (Maybe UTCTime)
881lUpdated :: Lens' Layersummary (Maybe UTCTime)
882+lUpdated
880−lUpdated = lens _lUpdated (\ s a -> s{_lUpdated = a})
883+ = lens _lUpdated (\ s a -> s{_lUpdated = a}) .
884+ mapping _DateTime
881
885
882-- | The layer id for this summary.
886-- | The layer id for this summary.
883lLayerId :: Lens' Layersummary (Maybe Text)
887lLayerId :: Lens' Layersummary (Maybe Text)
@@ -933,7 +937,7 @@ data VolumeUserInfo = VolumeUserInfo
933 , _vuiIsPreOrdered :: !(Maybe Bool)
937 , _vuiIsPreOrdered :: !(Maybe Bool)
934 , _vuiReview :: !(Maybe Review)
938 , _vuiReview :: !(Maybe Review)
935 , _vuiRentalPeriod :: !(Maybe VolumeUserInfoRentalPeriod)
939 , _vuiRentalPeriod :: !(Maybe VolumeUserInfoRentalPeriod)
936− , _vuiUpdated :: !(Maybe DateTime)
940+ , _vuiUpdated :: !(Maybe DateTime')
937 , _vuiIsUploaded :: !(Maybe Bool)
941 , _vuiIsUploaded :: !(Maybe Bool)
938 , _vuiIsInMyBooks :: !(Maybe Bool)
942 , _vuiIsInMyBooks :: !(Maybe Bool)
939 , _vuiReadingPosition :: !(Maybe ReadingPosition)
943 , _vuiReadingPosition :: !(Maybe ReadingPosition)
@@ -1026,7 +1030,8 @@ vuiRentalPeriod
1026-- UTC date-time format).
1030-- UTC date-time format).
1027vuiUpdated :: Lens' VolumeUserInfo (Maybe UTCTime)
1031vuiUpdated :: Lens' VolumeUserInfo (Maybe UTCTime)
1028vuiUpdated
1032vuiUpdated
1029− = lens _vuiUpdated (\ s a -> s{_vuiUpdated = a})
1033+ = lens _vuiUpdated (\ s a -> s{_vuiUpdated = a}) .
1034+ mapping _DateTime
1030
1035
1031-- | Whether or not this volume was user uploaded.
1036-- | Whether or not this volume was user uploaded.
1032vuiIsUploaded :: Lens' VolumeUserInfo (Maybe Bool)
1037vuiIsUploaded :: Lens' VolumeUserInfo (Maybe Bool)
@@ -1150,7 +1155,7 @@ data Annotationdata = Annotationdata
1150 , _annnAnnotationType :: !(Maybe Text)
1155 , _annnAnnotationType :: !(Maybe Text)
1151 , _annnVolumeId :: !(Maybe Text)
1156 , _annnVolumeId :: !(Maybe Text)
1152 , _annnId :: !(Maybe Text)
1157 , _annnId :: !(Maybe Text)
1153− , _annnUpdated :: !(Maybe DateTime)
1158+ , _annnUpdated :: !(Maybe DateTime')
1154 , _annnLayerId :: !(Maybe Text)
1159 , _annnLayerId :: !(Maybe Text)
1155 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1160 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1156
1161
@@ -1227,7 +1232,8 @@ annnId = lens _annnId (\ s a -> s{_annnId = a})
1227-- date-time format).
1232-- date-time format).
1228annnUpdated :: Lens' Annotationdata (Maybe UTCTime)
1233annnUpdated :: Lens' Annotationdata (Maybe UTCTime)
1229annnUpdated
1234annnUpdated
1230− = lens _annnUpdated (\ s a -> s{_annnUpdated = a})
1235+ = lens _annnUpdated (\ s a -> s{_annnUpdated = a}) .
1236+ mapping _DateTime
1231
1237
1232-- | The Layer id for this data. *
1238-- | The Layer id for this data. *
1233annnLayerId :: Lens' Annotationdata (Maybe Text)
1239annnLayerId :: Lens' Annotationdata (Maybe Text)
@@ -1278,7 +1284,7 @@ data Volumeannotation = Volumeannotation
1278 , _volVolumeId :: !(Maybe Text)
1284 , _volVolumeId :: !(Maybe Text)
1279 , _volId :: !(Maybe Text)
1285 , _volId :: !(Maybe Text)
1280 , _volDeleted :: !(Maybe Bool)
1286 , _volDeleted :: !(Maybe Bool)
1281− , _volUpdated :: !(Maybe DateTime)
1287+ , _volUpdated :: !(Maybe DateTime')
1282 , _volLayerId :: !(Maybe Text)
1288 , _volLayerId :: !(Maybe Text)
1283 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1289 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1284
1290
@@ -1401,7 +1407,8 @@ volDeleted
1401-- date-time format).
1407-- date-time format).
1402volUpdated :: Lens' Volumeannotation (Maybe UTCTime)
1408volUpdated :: Lens' Volumeannotation (Maybe UTCTime)
1403volUpdated
1409volUpdated
1404− = lens _volUpdated (\ s a -> s{_volUpdated = a})
1410+ = lens _volUpdated (\ s a -> s{_volUpdated = a}) .
1411+ mapping _DateTime
1405
1412
1406-- | The Layer this annotation is for.
1413-- | The Layer this annotation is for.
1407volLayerId :: Lens' Volumeannotation (Maybe Text)
1414volLayerId :: Lens' Volumeannotation (Maybe Text)
@@ -1868,7 +1875,7 @@ instance ToJSON VolumeAccessInfo where
1868data VolumeUserInfoCopy = VolumeUserInfoCopy
1875data VolumeUserInfoCopy = VolumeUserInfoCopy
1869 { _vuicLimitType :: !(Maybe Text)
1876 { _vuicLimitType :: !(Maybe Text)
1870 , _vuicAllowedCharacterCount :: !(Maybe Int32)
1877 , _vuicAllowedCharacterCount :: !(Maybe Int32)
1871− , _vuicUpdated :: !(Maybe DateTime)
1878+ , _vuicUpdated :: !(Maybe DateTime')
1872 , _vuicRemainingCharacterCount :: !(Maybe Int32)
1879 , _vuicRemainingCharacterCount :: !(Maybe Int32)
1873 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1880 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1874
1881
@@ -1905,7 +1912,8 @@ vuicAllowedCharacterCount
1905
1912
1906vuicUpdated :: Lens' VolumeUserInfoCopy (Maybe UTCTime)
1913vuicUpdated :: Lens' VolumeUserInfoCopy (Maybe UTCTime)
1907vuicUpdated
1914vuicUpdated
1908− = lens _vuicUpdated (\ s a -> s{_vuicUpdated = a})
1915+ = lens _vuicUpdated (\ s a -> s{_vuicUpdated = a}) .
1916+ mapping _DateTime
1909
1917
1910vuicRemainingCharacterCount :: Lens' VolumeUserInfoCopy (Maybe Int32)
1918vuicRemainingCharacterCount :: Lens' VolumeUserInfoCopy (Maybe Int32)
1911vuicRemainingCharacterCount
1919vuicRemainingCharacterCount
@@ -2071,13 +2079,13 @@ instance ToJSON DictlayerdataDictWordsExamples where
2071-- /See:/ 'bookshelf' smart constructor.
2079-- /See:/ 'bookshelf' smart constructor.
2072data Bookshelf = Bookshelf
2080data Bookshelf = Bookshelf
2073 { _bAccess :: !(Maybe Text)
2081 { _bAccess :: !(Maybe Text)
2074− , _bVolumesLastUpdated :: !(Maybe DateTime)
2082+ , _bVolumesLastUpdated :: !(Maybe DateTime')
2075 , _bKind :: !Text
2083 , _bKind :: !Text
2076− , _bCreated :: !(Maybe DateTime)
2084+ , _bCreated :: !(Maybe DateTime')
2077 , _bVolumeCount :: !(Maybe Int32)
2085 , _bVolumeCount :: !(Maybe Int32)
2078 , _bSelfLink :: !(Maybe Text)
2086 , _bSelfLink :: !(Maybe Text)
2079 , _bId :: !(Maybe Int32)
2087 , _bId :: !(Maybe Int32)
2080− , _bUpdated :: !(Maybe DateTime)
2088+ , _bUpdated :: !(Maybe DateTime')
2081 , _bTitle :: !(Maybe Text)
2089 , _bTitle :: !(Maybe Text)
2082 , _bDescription :: !(Maybe Text)
2090 , _bDescription :: !(Maybe Text)
2083 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2091 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -2131,6 +2139,7 @@ bVolumesLastUpdated :: Lens' Bookshelf (Maybe UTCTime)
2131bVolumesLastUpdated
2139bVolumesLastUpdated
2132 = lens _bVolumesLastUpdated
2140 = lens _bVolumesLastUpdated
2133 (\ s a -> s{_bVolumesLastUpdated = a})
2141 (\ s a -> s{_bVolumesLastUpdated = a})
2142+ . mapping _DateTime
2134
2143
2135-- | Resource type for bookshelf metadata.
2144-- | Resource type for bookshelf metadata.
2136bKind :: Lens' Bookshelf Text
2145bKind :: Lens' Bookshelf Text
@@ -2139,7 +2148,9 @@ bKind = lens _bKind (\ s a -> s{_bKind = a})
2139-- | Created time for this bookshelf (formatted UTC timestamp with
2148-- | Created time for this bookshelf (formatted UTC timestamp with
2140-- millisecond resolution).
2149-- millisecond resolution).
2141bCreated :: Lens' Bookshelf (Maybe UTCTime)
2150bCreated :: Lens' Bookshelf (Maybe UTCTime)
2151+bCreated
2142−bCreated = lens _bCreated (\ s a -> s{_bCreated = a})
2152+ = lens _bCreated (\ s a -> s{_bCreated = a}) .
2153+ mapping _DateTime
2143
2154
2144-- | Number of volumes in this bookshelf.
2155-- | Number of volumes in this bookshelf.
2145bVolumeCount :: Lens' Bookshelf (Maybe Int32)
2156bVolumeCount :: Lens' Bookshelf (Maybe Int32)
@@ -2158,7 +2169,9 @@ bId = lens _bId (\ s a -> s{_bId = a})
2158-- | Last modified time of this bookshelf (formatted UTC timestamp with
2169-- | Last modified time of this bookshelf (formatted UTC timestamp with
2159-- millisecond resolution).
2170-- millisecond resolution).
2160bUpdated :: Lens' Bookshelf (Maybe UTCTime)
2171bUpdated :: Lens' Bookshelf (Maybe UTCTime)
2172+bUpdated
2161−bUpdated = lens _bUpdated (\ s a -> s{_bUpdated = a})
2173+ = lens _bUpdated (\ s a -> s{_bUpdated = a}) .
2174+ mapping _DateTime
2162
2175
2163-- | Title of this bookshelf.
2176-- | Title of this bookshelf.
2164bTitle :: Lens' Bookshelf (Maybe Text)
2177bTitle :: Lens' Bookshelf (Maybe Text)
@@ -3970,7 +3983,7 @@ instance ToJSON VolumeLayerInfo where
3970-- /See:/ 'volumeSaleInfo' smart constructor.
3983-- /See:/ 'volumeSaleInfo' smart constructor.
3971data VolumeSaleInfo = VolumeSaleInfo
3984data VolumeSaleInfo = VolumeSaleInfo
3972 { _vsiCountry :: !(Maybe Text)
3985 { _vsiCountry :: !(Maybe Text)
3973− , _vsiOnSaleDate :: !(Maybe DateTime)
3986+ , _vsiOnSaleDate :: !(Maybe DateTime')
3974 , _vsiListPrice :: !(Maybe VolumeSaleInfoListPrice)
3987 , _vsiListPrice :: !(Maybe VolumeSaleInfoListPrice)
3975 , _vsiRetailPrice :: !(Maybe VolumeSaleInfoRetailPrice)
3988 , _vsiRetailPrice :: !(Maybe VolumeSaleInfoRetailPrice)
3976 , _vsiOffers :: !(Maybe [VolumeSaleInfoOffers])
3989 , _vsiOffers :: !(Maybe [VolumeSaleInfoOffers])
@@ -4023,6 +4036,7 @@ vsiOnSaleDate :: Lens' VolumeSaleInfo (Maybe UTCTime)
4023vsiOnSaleDate
4036vsiOnSaleDate
4024 = lens _vsiOnSaleDate
4037 = lens _vsiOnSaleDate
4025 (\ s a -> s{_vsiOnSaleDate = a})
4038 (\ s a -> s{_vsiOnSaleDate = a})
4039+ . mapping _DateTime
4026
4040
4027-- | Suggested retail price. (In LITE projection.)
4041-- | Suggested retail price. (In LITE projection.)
4028vsiListPrice :: Lens' VolumeSaleInfo (Maybe VolumeSaleInfoListPrice)
4042vsiListPrice :: Lens' VolumeSaleInfo (Maybe VolumeSaleInfoListPrice)
@@ -4615,7 +4629,7 @@ instance ToJSON AnnotationClientVersionRanges where
4615data AnnotationsSummaryLayers = AnnotationsSummaryLayers
4629data AnnotationsSummaryLayers = AnnotationsSummaryLayers
4616 { _aslLimitType :: !(Maybe Text)
4630 { _aslLimitType :: !(Maybe Text)
4617 , _aslAllowedCharacterCount :: !(Maybe Int32)
4631 , _aslAllowedCharacterCount :: !(Maybe Int32)
4618− , _aslUpdated :: !(Maybe DateTime)
4632+ , _aslUpdated :: !(Maybe DateTime')
4619 , _aslLayerId :: !(Maybe Text)
4633 , _aslLayerId :: !(Maybe Text)
4620 , _aslRemainingCharacterCount :: !(Maybe Int32)
4634 , _aslRemainingCharacterCount :: !(Maybe Int32)
4621 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4635 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -4655,7 +4669,8 @@ aslAllowedCharacterCount
4655
4669
4656aslUpdated :: Lens' AnnotationsSummaryLayers (Maybe UTCTime)
4670aslUpdated :: Lens' AnnotationsSummaryLayers (Maybe UTCTime)
4657aslUpdated
4671aslUpdated
4658− = lens _aslUpdated (\ s a -> s{_aslUpdated = a})
4672+ = lens _aslUpdated (\ s a -> s{_aslUpdated = a}) .
4673+ mapping _DateTime
4659
4674
4660aslLayerId :: Lens' AnnotationsSummaryLayers (Maybe Text)
4675aslLayerId :: Lens' AnnotationsSummaryLayers (Maybe Text)
4661aslLayerId
4676aslLayerId
@@ -4790,7 +4805,7 @@ data ReadingPosition = ReadingPosition
4790 , _rpGbImagePosition :: !(Maybe Text)
4805 , _rpGbImagePosition :: !(Maybe Text)
4791 , _rpPdfPosition :: !(Maybe Text)
4806 , _rpPdfPosition :: !(Maybe Text)
4792 , _rpVolumeId :: !(Maybe Text)
4807 , _rpVolumeId :: !(Maybe Text)
4793− , _rpUpdated :: !(Maybe DateTime)
4808+ , _rpUpdated :: !(Maybe DateTime')
4794 , _rpGbTextPosition :: !(Maybe Text)
4809 , _rpGbTextPosition :: !(Maybe Text)
4795 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4810 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4796
4811
@@ -4855,7 +4870,8 @@ rpVolumeId
4855-- timestamp with millisecond resolution).
4870-- timestamp with millisecond resolution).
4856rpUpdated :: Lens' ReadingPosition (Maybe UTCTime)
4871rpUpdated :: Lens' ReadingPosition (Maybe UTCTime)
4857rpUpdated
4872rpUpdated
4858− = lens _rpUpdated (\ s a -> s{_rpUpdated = a})
4873+ = lens _rpUpdated (\ s a -> s{_rpUpdated = a}) .
4874+ mapping _DateTime
4859
4875
4860-- | Position in a volume for text-based content.
4876-- | Position in a volume for text-based content.
4861rpGbTextPosition :: Lens' ReadingPosition (Maybe Text)
4877rpGbTextPosition :: Lens' ReadingPosition (Maybe Text)
gogol-datastore/gen/Network/Google/Datastore/Types/Product.hs+4−2
@@ -199,7 +199,7 @@ instance ToJSON QueryResultBatch where
199data Property = Property
199data Property = Property
200 { _pKeyValue :: !(Maybe Key)
200 { _pKeyValue :: !(Maybe Key)
201 , _pBlobKeyValue :: !(Maybe Text)
201 , _pBlobKeyValue :: !(Maybe Text)
202− , _pDateTimeValue :: !(Maybe DateTime)
202+ , _pDateTimeValue :: !(Maybe DateTime')
203 , _pIntegerValue :: !(Maybe Int64)
203 , _pIntegerValue :: !(Maybe Int64)
204 , _pEntityValue :: !(Maybe Entity)
204 , _pEntityValue :: !(Maybe Entity)
205 , _pDoubleValue :: !(Maybe Double)
205 , _pDoubleValue :: !(Maybe Double)
@@ -272,6 +272,7 @@ pDateTimeValue :: Lens' Property (Maybe UTCTime)
272pDateTimeValue
272pDateTimeValue
273 = lens _pDateTimeValue
273 = lens _pDateTimeValue
274 (\ s a -> s{_pDateTimeValue = a})
274 (\ s a -> s{_pDateTimeValue = a})
275+ . mapping _DateTime
275
276
276-- | An integer value.
277-- | An integer value.
277pIntegerValue :: Lens' Property (Maybe Int64)
278pIntegerValue :: Lens' Property (Maybe Int64)
@@ -865,7 +866,7 @@ instance ToJSON AllocateIdsResponse where
865data Value = Value
866data Value = Value
866 { _vKeyValue :: !(Maybe Key)
867 { _vKeyValue :: !(Maybe Key)
867 , _vBlobKeyValue :: !(Maybe Text)
868 , _vBlobKeyValue :: !(Maybe Text)
868− , _vDateTimeValue :: !(Maybe DateTime)
869+ , _vDateTimeValue :: !(Maybe DateTime')
869 , _vIntegerValue :: !(Maybe Int64)
870 , _vIntegerValue :: !(Maybe Int64)
870 , _vEntityValue :: !(Maybe Entity)
871 , _vEntityValue :: !(Maybe Entity)
871 , _vDoubleValue :: !(Maybe Double)
872 , _vDoubleValue :: !(Maybe Double)
@@ -938,6 +939,7 @@ vDateTimeValue :: Lens' Value (Maybe UTCTime)
938vDateTimeValue
939vDateTimeValue
939 = lens _vDateTimeValue
940 = lens _vDateTimeValue
940 (\ s a -> s{_vDateTimeValue = a})
941 (\ s a -> s{_vDateTimeValue = a})
942+ . mapping _DateTime
941
943
942-- | An integer value.
944-- | An integer value.
943vIntegerValue :: Lens' Value (Maybe Int64)
945vIntegerValue :: Lens' Value (Maybe Int64)
gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Product.hs+90−62
@@ -3414,9 +3414,9 @@ instance ToJSON FloodlightConfigurationsListResponse
3414-- /See:/ 'dimensionValueRequest' smart constructor.
3414-- /See:/ 'dimensionValueRequest' smart constructor.
3415data DimensionValueRequest = DimensionValueRequest
3415data DimensionValueRequest = DimensionValueRequest
3416 { _dvrKind :: !Text
3416 { _dvrKind :: !Text
3417− , _dvrEndDate :: !(Maybe Date)
3417+ , _dvrEndDate :: !(Maybe Date')
3418 , _dvrFilters :: !(Maybe [DimensionFilter])
3418 , _dvrFilters :: !(Maybe [DimensionFilter])
3419− , _dvrStartDate :: !(Maybe Date)
3419+ , _dvrStartDate :: !(Maybe Date')
3420 , _dvrDimensionName :: !(Maybe Text)
3420 , _dvrDimensionName :: !(Maybe Text)
3421 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3421 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3422
3422
@@ -3451,9 +3451,10 @@ dvrKind = lens _dvrKind (\ s a -> s{_dvrKind = a})
3451
3451
3452-- | The end date of the date range for which to retrieve dimension values. A
3452-- | The end date of the date range for which to retrieve dimension values. A
3453-- string of the format \"yyyy-MM-dd\".
3453-- string of the format \"yyyy-MM-dd\".
3454−dvrEndDate :: Lens' DimensionValueRequest (Maybe UTCTime)
3454+dvrEndDate :: Lens' DimensionValueRequest (Maybe LocalTime)
3455dvrEndDate
3455dvrEndDate
3456− = lens _dvrEndDate (\ s a -> s{_dvrEndDate = a})
3456+ = lens _dvrEndDate (\ s a -> s{_dvrEndDate = a}) .
3457+ mapping _Date
3457
3458
3458-- | The list of filters by which to filter values. The filters are ANDed.
3459-- | The list of filters by which to filter values. The filters are ANDed.
3459dvrFilters :: Lens' DimensionValueRequest [DimensionFilter]
3460dvrFilters :: Lens' DimensionValueRequest [DimensionFilter]
@@ -3464,9 +3465,10 @@ dvrFilters
3464
3465
3465-- | The start date of the date range for which to retrieve dimension values.
3466-- | The start date of the date range for which to retrieve dimension values.
3466-- A string of the format \"yyyy-MM-dd\".
3467-- A string of the format \"yyyy-MM-dd\".
3467−dvrStartDate :: Lens' DimensionValueRequest (Maybe UTCTime)
3468+dvrStartDate :: Lens' DimensionValueRequest (Maybe LocalTime)
3468dvrStartDate
3469dvrStartDate
3469 = lens _dvrStartDate (\ s a -> s{_dvrStartDate = a})
3470 = lens _dvrStartDate (\ s a -> s{_dvrStartDate = a})
3471+ . mapping _Date
3470
3472
3471-- | The name of the dimension for which values should be requested.
3473-- | The name of the dimension for which values should be requested.
3472dvrDimensionName :: Lens' DimensionValueRequest (Maybe Text)
3474dvrDimensionName :: Lens' DimensionValueRequest (Maybe Text)
@@ -3507,7 +3509,7 @@ data Ad = Ad
3507 , _addAudienceSegmentId :: !(Maybe Int64)
3509 , _addAudienceSegmentId :: !(Maybe Int64)
3508 , _addDayPartTargeting :: !(Maybe DayPartTargeting)
3510 , _addDayPartTargeting :: !(Maybe DayPartTargeting)
3509 , _addSize :: !(Maybe Size)
3511 , _addSize :: !(Maybe Size)
3510− , _addStartTime :: !(Maybe DateTime)
3512+ , _addStartTime :: !(Maybe DateTime')
3511 , _addKind :: !Text
3513 , _addKind :: !Text
3512 , _addClickThroughURLSuffixProperties :: !(Maybe ClickThroughURLSuffixProperties)
3514 , _addClickThroughURLSuffixProperties :: !(Maybe ClickThroughURLSuffixProperties)
3513 , _addCampaignIdDimensionValue :: !(Maybe DimensionValue)
3515 , _addCampaignIdDimensionValue :: !(Maybe DimensionValue)
@@ -3523,7 +3525,7 @@ data Ad = Ad
3523 , _addAccountId :: !(Maybe Int64)
3525 , _addAccountId :: !(Maybe Int64)
3524 , _addName :: !(Maybe Text)
3526 , _addName :: !(Maybe Text)
3525 , _addKeyValueTargetingExpression :: !(Maybe KeyValueTargetingExpression)
3527 , _addKeyValueTargetingExpression :: !(Maybe KeyValueTargetingExpression)
3526− , _addEndTime :: !(Maybe DateTime)
3528+ , _addEndTime :: !(Maybe DateTime')
3527 , _addCreateInfo :: !(Maybe LastModifiedInfo)
3529 , _addCreateInfo :: !(Maybe LastModifiedInfo)
3528 , _addLastModifiedInfo :: !(Maybe LastModifiedInfo)
3530 , _addLastModifiedInfo :: !(Maybe LastModifiedInfo)
3529 , _addId :: !(Maybe Int64)
3531 , _addId :: !(Maybe Int64)
@@ -3716,6 +3718,7 @@ addSize = lens _addSize (\ s a -> s{_addSize = a})
3716addStartTime :: Lens' Ad (Maybe UTCTime)
3718addStartTime :: Lens' Ad (Maybe UTCTime)
3717addStartTime
3719addStartTime
3718 = lens _addStartTime (\ s a -> s{_addStartTime = a})
3720 = lens _addStartTime (\ s a -> s{_addStartTime = a})
3721+ . mapping _DateTime
3719
3722
3720-- | Identifies what kind of resource this is. Value: the fixed string
3723-- | Identifies what kind of resource this is. Value: the fixed string
3721-- \"dfareporting#ad\".
3724-- \"dfareporting#ad\".
@@ -3819,7 +3822,8 @@ addKeyValueTargetingExpression
3819-- start time. This is a required field on insertion.
3822-- start time. This is a required field on insertion.
3820addEndTime :: Lens' Ad (Maybe UTCTime)
3823addEndTime :: Lens' Ad (Maybe UTCTime)
3821addEndTime
3824addEndTime
3822− = lens _addEndTime (\ s a -> s{_addEndTime = a})
3825+ = lens _addEndTime (\ s a -> s{_addEndTime = a}) .
3826+ mapping _DateTime
3823
3827
3824-- | Information about the creation of this ad.This is a read-only field.
3828-- | Information about the creation of this ad.This is a read-only field.
3825addCreateInfo :: Lens' Ad (Maybe LastModifiedInfo)
3829addCreateInfo :: Lens' Ad (Maybe LastModifiedInfo)
@@ -4520,10 +4524,10 @@ data Project = Project
4520 , _pBudget :: !(Maybe Int64)
4524 , _pBudget :: !(Maybe Int64)
4521 , _pKind :: !Text
4525 , _pKind :: !Text
4522 , _pAdvertiserId :: !(Maybe Int64)
4526 , _pAdvertiserId :: !(Maybe Int64)
4523− , _pEndDate :: !(Maybe Date)
4527+ , _pEndDate :: !(Maybe Date')
4524 , _pOverview :: !(Maybe Text)
4528 , _pOverview :: !(Maybe Text)
4525 , _pTargetImpressions :: !(Maybe Int64)
4529 , _pTargetImpressions :: !(Maybe Int64)
4526− , _pStartDate :: !(Maybe Date)
4530+ , _pStartDate :: !(Maybe Date')
4527 , _pTargetCpcNanos :: !(Maybe Int64)
4531 , _pTargetCpcNanos :: !(Maybe Int64)
4528 , _pAccountId :: !(Maybe Int64)
4532 , _pAccountId :: !(Maybe Int64)
4529 , _pName :: !(Maybe Text)
4533 , _pName :: !(Maybe Text)
@@ -4651,8 +4655,10 @@ pAdvertiserId
4651 (\ s a -> s{_pAdvertiserId = a})
4655 (\ s a -> s{_pAdvertiserId = a})
4652
4656
4653-- | End date of the project.
4657-- | End date of the project.
4654−pEndDate :: Lens' Project (Maybe UTCTime)
4658+pEndDate :: Lens' Project (Maybe LocalTime)
4659+pEndDate
4655−pEndDate = lens _pEndDate (\ s a -> s{_pEndDate = a})
4660+ = lens _pEndDate (\ s a -> s{_pEndDate = a}) .
4661+ mapping _Date
4656
4662
4657-- | Overview of this project.
4663-- | Overview of this project.
4658pOverview :: Lens' Project (Maybe Text)
4664pOverview :: Lens' Project (Maybe Text)
@@ -4666,9 +4672,10 @@ pTargetImpressions
4666 (\ s a -> s{_pTargetImpressions = a})
4672 (\ s a -> s{_pTargetImpressions = a})
4667
4673
4668-- | Start date of the project.
4674-- | Start date of the project.
4669−pStartDate :: Lens' Project (Maybe UTCTime)
4675+pStartDate :: Lens' Project (Maybe LocalTime)
4670pStartDate
4676pStartDate
4671− = lens _pStartDate (\ s a -> s{_pStartDate = a})
4677+ = lens _pStartDate (\ s a -> s{_pStartDate = a}) .
4678+ mapping _Date
4672
4679
4673-- | CPC that the advertiser is targeting.
4680-- | CPC that the advertiser is targeting.
4674pTargetCpcNanos :: Lens' Project (Maybe Int64)
4681pTargetCpcNanos :: Lens' Project (Maybe Int64)
@@ -4931,11 +4938,11 @@ instance ToJSON PlacementStrategiesListResponse where
4931--
4938--
4932-- /See:/ 'pricingSchedule' smart constructor.
4939-- /See:/ 'pricingSchedule' smart constructor.
4933data PricingSchedule = PricingSchedule
4940data PricingSchedule = PricingSchedule
4934− { _psTestingStartDate :: !(Maybe Date)
4941+ { _psTestingStartDate :: !(Maybe Date')
4935 , _psFloodlightActivityId :: !(Maybe Int64)
4942 , _psFloodlightActivityId :: !(Maybe Int64)
4936− , _psEndDate :: !(Maybe Date)
4943+ , _psEndDate :: !(Maybe Date')
4937 , _psDisregardOverdelivery :: !(Maybe Bool)
4944 , _psDisregardOverdelivery :: !(Maybe Bool)
4938− , _psStartDate :: !(Maybe Date)
4945+ , _psStartDate :: !(Maybe Date')
4939 , _psCapCostOption :: !(Maybe PricingScheduleCapCostOption)
4946 , _psCapCostOption :: !(Maybe PricingScheduleCapCostOption)
4940 , _psPricingType :: !(Maybe PricingSchedulePricingType)
4947 , _psPricingType :: !(Maybe PricingSchedulePricingType)
4941 , _psPricingPeriods :: !(Maybe [PricingSchedulePricingPeriod])
4948 , _psPricingPeriods :: !(Maybe [PricingSchedulePricingPeriod])
@@ -4980,10 +4987,11 @@ pricingSchedule =
4980
4987
4981-- | Testing start date of this placement. The hours, minutes, and seconds of
4988-- | Testing start date of this placement. The hours, minutes, and seconds of
4982-- the start date should not be set, as doing so will result in an error.
4989-- the start date should not be set, as doing so will result in an error.
4983−psTestingStartDate :: Lens' PricingSchedule (Maybe UTCTime)
4990+psTestingStartDate :: Lens' PricingSchedule (Maybe LocalTime)
4984psTestingStartDate
4991psTestingStartDate
4985 = lens _psTestingStartDate
4992 = lens _psTestingStartDate
4986 (\ s a -> s{_psTestingStartDate = a})
4993 (\ s a -> s{_psTestingStartDate = a})
4994+ . mapping _Date
4987
4995
4988-- | Floodlight activity ID associated with this placement. This field should
4996-- | Floodlight activity ID associated with this placement. This field should
4989-- be set when placement pricing type is set to PRICING_TYPE_CPA.
4997-- be set when placement pricing type is set to PRICING_TYPE_CPA.
@@ -4998,9 +5006,10 @@ psFloodlightActivityId
4998-- effective placement date is just that day only, 6\/25\/2015. The hours,
5006-- effective placement date is just that day only, 6\/25\/2015. The hours,
4999-- minutes, and seconds of the end date should not be set, as doing so will
5007-- minutes, and seconds of the end date should not be set, as doing so will
5000-- result in an error. This field is required on insertion.
5008-- result in an error. This field is required on insertion.
5001−psEndDate :: Lens' PricingSchedule (Maybe UTCTime)
5009+psEndDate :: Lens' PricingSchedule (Maybe LocalTime)
5002psEndDate
5010psEndDate
5003− = lens _psEndDate (\ s a -> s{_psEndDate = a})
5011+ = lens _psEndDate (\ s a -> s{_psEndDate = a}) .
5012+ mapping _Date
5004
5013
5005-- | Whether cap costs are ignored by ad serving.
5014-- | Whether cap costs are ignored by ad serving.
5006psDisregardOverdelivery :: Lens' PricingSchedule (Maybe Bool)
5015psDisregardOverdelivery :: Lens' PricingSchedule (Maybe Bool)
@@ -5012,9 +5021,10 @@ psDisregardOverdelivery
5012-- the campaign start date. The hours, minutes, and seconds of the start
5021-- the campaign start date. The hours, minutes, and seconds of the start
5013-- date should not be set, as doing so will result in an error. This field
5022-- date should not be set, as doing so will result in an error. This field
5014-- is required on insertion.
5023-- is required on insertion.
5015−psStartDate :: Lens' PricingSchedule (Maybe UTCTime)
5024+psStartDate :: Lens' PricingSchedule (Maybe LocalTime)
5016psStartDate
5025psStartDate
5017− = lens _psStartDate (\ s a -> s{_psStartDate = a})
5026+ = lens _psStartDate (\ s a -> s{_psStartDate = a}) .
5027+ mapping _Date
5018
5028
5019-- | Placement cap cost option.
5029-- | Placement cap cost option.
5020psCapCostOption :: Lens' PricingSchedule (Maybe PricingScheduleCapCostOption)
5030psCapCostOption :: Lens' PricingSchedule (Maybe PricingScheduleCapCostOption)
@@ -5800,8 +5810,8 @@ instance ToJSON Country where
5800--
5810--
5801-- /See:/ 'pricing' smart constructor.
5811-- /See:/ 'pricing' smart constructor.
5802data Pricing = Pricing
5812data Pricing = Pricing
5803− { _priEndDate :: !(Maybe Date)
5813+ { _priEndDate :: !(Maybe Date')
5804− , _priStartDate :: !(Maybe Date)
5814+ , _priStartDate :: !(Maybe Date')
5805 , _priGroupType :: !(Maybe PricingGroupType)
5815 , _priGroupType :: !(Maybe PricingGroupType)
5806 , _priPricingType :: !(Maybe PricingPricingType)
5816 , _priPricingType :: !(Maybe PricingPricingType)
5807 , _priFlights :: !(Maybe [Flight])
5817 , _priFlights :: !(Maybe [Flight])
@@ -5836,14 +5846,16 @@ pricing =
5836 }
5846 }
5837
5847
5838-- | End date of this inventory item.
5848-- | End date of this inventory item.
5839−priEndDate :: Lens' Pricing (Maybe UTCTime)
5849+priEndDate :: Lens' Pricing (Maybe LocalTime)
5840priEndDate
5850priEndDate
5841− = lens _priEndDate (\ s a -> s{_priEndDate = a})
5851+ = lens _priEndDate (\ s a -> s{_priEndDate = a}) .
5852+ mapping _Date
5842
5853
5843-- | Start date of this inventory item.
5854-- | Start date of this inventory item.
5844−priStartDate :: Lens' Pricing (Maybe UTCTime)
5855+priStartDate :: Lens' Pricing (Maybe LocalTime)
5845priStartDate
5856priStartDate
5846 = lens _priStartDate (\ s a -> s{_priStartDate = a})
5857 = lens _priStartDate (\ s a -> s{_priStartDate = a})
5858+ . mapping _Date
5847
5859
5848-- | Group type of this inventory item if it represents a placement group. Is
5860-- | Group type of this inventory item if it represents a placement group. Is
5849-- null otherwise. There are two type of placement groups:
5861-- null otherwise. There are two type of placement groups:
@@ -6065,8 +6077,8 @@ instance ToJSON Dimension where
6065-- /See:/ 'flight' smart constructor.
6077-- /See:/ 'flight' smart constructor.
6066data Flight = Flight
6078data Flight = Flight
6067 { _fRateOrCost :: !(Maybe Int64)
6079 { _fRateOrCost :: !(Maybe Int64)
6068− , _fEndDate :: !(Maybe Date)
6080+ , _fEndDate :: !(Maybe Date')
6069− , _fStartDate :: !(Maybe Date)
6081+ , _fStartDate :: !(Maybe Date')
6070 , _fUnits :: !(Maybe Int64)
6082 , _fUnits :: !(Maybe Int64)
6071 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6083 } deriving (Eq,Read,Show,Data,Typeable,Generic)
6072
6084
@@ -6097,13 +6109,16 @@ fRateOrCost
6097 = lens _fRateOrCost (\ s a -> s{_fRateOrCost = a})
6109 = lens _fRateOrCost (\ s a -> s{_fRateOrCost = a})
6098
6110
6099-- | Inventory item flight end date.
6111-- | Inventory item flight end date.
6100−fEndDate :: Lens' Flight (Maybe UTCTime)
6112+fEndDate :: Lens' Flight (Maybe LocalTime)
6113+fEndDate
6101−fEndDate = lens _fEndDate (\ s a -> s{_fEndDate = a})
6114+ = lens _fEndDate (\ s a -> s{_fEndDate = a}) .
6115+ mapping _Date
6102
6116
6103-- | Inventory item flight start date.
6117-- | Inventory item flight start date.
6104−fStartDate :: Lens' Flight (Maybe UTCTime)
6118+fStartDate :: Lens' Flight (Maybe LocalTime)
6105fStartDate
6119fStartDate
6106− = lens _fStartDate (\ s a -> s{_fStartDate = a})
6120+ = lens _fStartDate (\ s a -> s{_fStartDate = a}) .
6121+ mapping _Date
6107
6122
6108-- | Units of this flight.
6123-- | Units of this flight.
6109fUnits :: Lens' Flight (Maybe Int64)
6124fUnits :: Lens' Flight (Maybe Int64)
@@ -7372,8 +7387,8 @@ instance ToJSON SiteContact where
7372-- /See:/ 'dateRange' smart constructor.
7387-- /See:/ 'dateRange' smart constructor.
7373data DateRange = DateRange
7388data DateRange = DateRange
7374 { _drKind :: !Text
7389 { _drKind :: !Text
7375− , _drEndDate :: !(Maybe Date)
7390+ , _drEndDate :: !(Maybe Date')
7376− , _drStartDate :: !(Maybe Date)
7391+ , _drStartDate :: !(Maybe Date')
7377 , _drRelativeDateRange :: !(Maybe DateRangeRelativeDateRange)
7392 , _drRelativeDateRange :: !(Maybe DateRangeRelativeDateRange)
7378 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7393 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7379
7394
@@ -7404,15 +7419,17 @@ drKind = lens _drKind (\ s a -> s{_drKind = a})
7404
7419
7405-- | The end date of the date range, inclusive. A string of the format:
7420-- | The end date of the date range, inclusive. A string of the format:
7406-- \"yyyy-MM-dd\".
7421-- \"yyyy-MM-dd\".
7407−drEndDate :: Lens' DateRange (Maybe UTCTime)
7422+drEndDate :: Lens' DateRange (Maybe LocalTime)
7408drEndDate
7423drEndDate
7409− = lens _drEndDate (\ s a -> s{_drEndDate = a})
7424+ = lens _drEndDate (\ s a -> s{_drEndDate = a}) .
7425+ mapping _Date
7410
7426
7411-- | The start date of the date range, inclusive. A string of the format:
7427-- | The start date of the date range, inclusive. A string of the format:
7412-- \"yyyy-MM-dd\".
7428-- \"yyyy-MM-dd\".
7413−drStartDate :: Lens' DateRange (Maybe UTCTime)
7429+drStartDate :: Lens' DateRange (Maybe LocalTime)
7414drStartDate
7430drStartDate
7415− = lens _drStartDate (\ s a -> s{_drStartDate = a})
7431+ = lens _drStartDate (\ s a -> s{_drStartDate = a}) .
7432+ mapping _Date
7416
7433
7417-- | The date range relative to the date of when the report is run.
7434-- | The date range relative to the date of when the report is run.
7418drRelativeDateRange :: Lens' DateRange (Maybe DateRangeRelativeDateRange)
7435drRelativeDateRange :: Lens' DateRange (Maybe DateRangeRelativeDateRange)
@@ -8362,12 +8379,12 @@ data Campaign = Campaign
8362 , _camKind :: !Text
8379 , _camKind :: !Text
8363 , _camClickThroughURLSuffixProperties :: !(Maybe ClickThroughURLSuffixProperties)
8380 , _camClickThroughURLSuffixProperties :: !(Maybe ClickThroughURLSuffixProperties)
8364 , _camAdvertiserId :: !(Maybe Int64)
8381 , _camAdvertiserId :: !(Maybe Int64)
8365− , _camEndDate :: !(Maybe Date)
8382+ , _camEndDate :: !(Maybe Date')
8366 , _camAdvertiserIdDimensionValue :: !(Maybe DimensionValue)
8383 , _camAdvertiserIdDimensionValue :: !(Maybe DimensionValue)
8367 , _camIdDimensionValue :: !(Maybe DimensionValue)
8384 , _camIdDimensionValue :: !(Maybe DimensionValue)
8368 , _camEventTagOverrides :: !(Maybe [EventTagOverride])
8385 , _camEventTagOverrides :: !(Maybe [EventTagOverride])
8369 , _camLookbackConfiguration :: !(Maybe LookbackConfiguration)
8386 , _camLookbackConfiguration :: !(Maybe LookbackConfiguration)
8370− , _camStartDate :: !(Maybe Date)
8387+ , _camStartDate :: !(Maybe Date')
8371 , _camAccountId :: !(Maybe Int64)
8388 , _camAccountId :: !(Maybe Int64)
8372 , _camComscoreVceEnabled :: !(Maybe Bool)
8389 , _camComscoreVceEnabled :: !(Maybe Bool)
8373 , _camName :: !(Maybe Text)
8390 , _camName :: !(Maybe Text)
@@ -8524,9 +8541,10 @@ camAdvertiserId
8524-- day only, 6\/25\/2015. The hours, minutes, and seconds of the end date
8541-- day only, 6\/25\/2015. The hours, minutes, and seconds of the end date
8525-- should not be set, as doing so will result in an error. This is a
8542-- should not be set, as doing so will result in an error. This is a
8526-- required field.
8543-- required field.
8527−camEndDate :: Lens' Campaign (Maybe UTCTime)
8544+camEndDate :: Lens' Campaign (Maybe LocalTime)
8528camEndDate
8545camEndDate
8529− = lens _camEndDate (\ s a -> s{_camEndDate = a})
8546+ = lens _camEndDate (\ s a -> s{_camEndDate = a}) .
8547+ mapping _Date
8530
8548
8531-- | Dimension value for the advertiser ID of this campaign. This is a
8549-- | Dimension value for the advertiser ID of this campaign. This is a
8532-- read-only, auto-generated field.
8550-- read-only, auto-generated field.
@@ -8560,9 +8578,10 @@ camLookbackConfiguration
8560-- | Date on which the campaign starts running. The start date can be any
8578-- | Date on which the campaign starts running. The start date can be any
8561-- date. The hours, minutes, and seconds of the start date should not be
8579-- date. The hours, minutes, and seconds of the start date should not be
8562-- set, as doing so will result in an error. This is a required field.
8580-- set, as doing so will result in an error. This is a required field.
8563−camStartDate :: Lens' Campaign (Maybe UTCTime)
8581+camStartDate :: Lens' Campaign (Maybe LocalTime)
8564camStartDate
8582camStartDate
8565 = lens _camStartDate (\ s a -> s{_camStartDate = a})
8583 = lens _camStartDate (\ s a -> s{_camStartDate = a})
8584+ . mapping _Date
8566
8585
8567-- | Account ID of this campaign. This is a read-only field that can be left
8586-- | Account ID of this campaign. This is a read-only field that can be left
8568-- blank.
8587-- blank.
@@ -12782,7 +12801,7 @@ data ChangeLog = ChangeLog
12782 , _clFieldName :: !(Maybe Text)
12801 , _clFieldName :: !(Maybe Text)
12783 , _clId :: !(Maybe Int64)
12802 , _clId :: !(Maybe Int64)
12784 , _clSubAccountId :: !(Maybe Int64)
12803 , _clSubAccountId :: !(Maybe Int64)
12785− , _clChangeTime :: !(Maybe DateTime)
12804+ , _clChangeTime :: !(Maybe DateTime')
12786 } deriving (Eq,Read,Show,Data,Typeable,Generic)
12805 } deriving (Eq,Read,Show,Data,Typeable,Generic)
12787
12806
12788-- | Creates a value of 'ChangeLog' with the minimum fields required to make a request.
12807-- | Creates a value of 'ChangeLog' with the minimum fields required to make a request.
@@ -12910,6 +12929,7 @@ clSubAccountId
12910clChangeTime :: Lens' ChangeLog (Maybe UTCTime)
12929clChangeTime :: Lens' ChangeLog (Maybe UTCTime)
12911clChangeTime
12930clChangeTime
12912 = lens _clChangeTime (\ s a -> s{_clChangeTime = a})
12931 = lens _clChangeTime (\ s a -> s{_clChangeTime = a})
12932+ . mapping _DateTime
12913
12933
12914instance FromJSON ChangeLog where
12934instance FromJSON ChangeLog where
12915 parseJSON
12935 parseJSON
@@ -14346,9 +14366,9 @@ instance ToJSON DimensionFilter where
14346--
14366--
14347-- /See:/ 'pricingSchedulePricingPeriod' smart constructor.
14367-- /See:/ 'pricingSchedulePricingPeriod' smart constructor.
14348data PricingSchedulePricingPeriod = PricingSchedulePricingPeriod
14368data PricingSchedulePricingPeriod = PricingSchedulePricingPeriod
14349− { _psppEndDate :: !(Maybe Date)
14369+ { _psppEndDate :: !(Maybe Date')
14350 , _psppRateOrCostNanos :: !(Maybe Int64)
14370 , _psppRateOrCostNanos :: !(Maybe Int64)
14351− , _psppStartDate :: !(Maybe Date)
14371+ , _psppStartDate :: !(Maybe Date')
14352 , _psppUnits :: !(Maybe Int64)
14372 , _psppUnits :: !(Maybe Int64)
14353 , _psppPricingComment :: !(Maybe Text)
14373 , _psppPricingComment :: !(Maybe Text)
14354 } deriving (Eq,Read,Show,Data,Typeable,Generic)
14374 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -14384,9 +14404,10 @@ pricingSchedulePricingPeriod =
14384-- the effective pricing period date is just that day only, 6\/25\/2015.
14404-- the effective pricing period date is just that day only, 6\/25\/2015.
14385-- The hours, minutes, and seconds of the end date should not be set, as
14405-- The hours, minutes, and seconds of the end date should not be set, as
14386-- doing so will result in an error.
14406-- doing so will result in an error.
14387−psppEndDate :: Lens' PricingSchedulePricingPeriod (Maybe UTCTime)
14407+psppEndDate :: Lens' PricingSchedulePricingPeriod (Maybe LocalTime)
14388psppEndDate
14408psppEndDate
14389− = lens _psppEndDate (\ s a -> s{_psppEndDate = a})
14409+ = lens _psppEndDate (\ s a -> s{_psppEndDate = a}) .
14410+ mapping _Date
14390
14411
14391-- | Rate or cost of this pricing period.
14412-- | Rate or cost of this pricing period.
14392psppRateOrCostNanos :: Lens' PricingSchedulePricingPeriod (Maybe Int64)
14413psppRateOrCostNanos :: Lens' PricingSchedulePricingPeriod (Maybe Int64)
@@ -14397,10 +14418,11 @@ psppRateOrCostNanos
14397-- | Pricing period start date. This date must be later than, or the same day
14418-- | Pricing period start date. This date must be later than, or the same day
14398-- as, the placement start date. The hours, minutes, and seconds of the
14419-- as, the placement start date. The hours, minutes, and seconds of the
14399-- start date should not be set, as doing so will result in an error.
14420-- start date should not be set, as doing so will result in an error.
14400−psppStartDate :: Lens' PricingSchedulePricingPeriod (Maybe UTCTime)
14421+psppStartDate :: Lens' PricingSchedulePricingPeriod (Maybe LocalTime)
14401psppStartDate
14422psppStartDate
14402 = lens _psppStartDate
14423 = lens _psppStartDate
14403 (\ s a -> s{_psppStartDate = a})
14424 (\ s a -> s{_psppStartDate = a})
14425+ . mapping _Date
14404
14426
14405-- | Units of this pricing period.
14427-- | Units of this pricing period.
14406psppUnits :: Lens' PricingSchedulePricingPeriod (Maybe Int64)
14428psppUnits :: Lens' PricingSchedulePricingPeriod (Maybe Int64)
@@ -14915,7 +14937,7 @@ instance ToJSON RichMediaExitOverride where
14915-- /See:/ 'creativeAssignment' smart constructor.
14937-- /See:/ 'creativeAssignment' smart constructor.
14916data CreativeAssignment = CreativeAssignment
14938data CreativeAssignment = CreativeAssignment
14917 { _caCreativeGroupAssignments :: !(Maybe [CreativeGroupAssignment])
14939 { _caCreativeGroupAssignments :: !(Maybe [CreativeGroupAssignment])
14918− , _caStartTime :: !(Maybe DateTime)
14940+ , _caStartTime :: !(Maybe DateTime')
14919 , _caWeight :: !(Maybe Int32)
14941 , _caWeight :: !(Maybe Int32)
14920 , _caRichMediaExitOverrides :: !(Maybe [RichMediaExitOverride])
14942 , _caRichMediaExitOverrides :: !(Maybe [RichMediaExitOverride])
14921 , _caSSLCompliant :: !(Maybe Bool)
14943 , _caSSLCompliant :: !(Maybe Bool)
@@ -14924,7 +14946,7 @@ data CreativeAssignment = CreativeAssignment
14924 , _caApplyEventTags :: !(Maybe Bool)
14946 , _caApplyEventTags :: !(Maybe Bool)
14925 , _caActive :: !(Maybe Bool)
14947 , _caActive :: !(Maybe Bool)
14926 , _caSequence :: !(Maybe Int32)
14948 , _caSequence :: !(Maybe Int32)
14927− , _caEndTime :: !(Maybe DateTime)
14949+ , _caEndTime :: !(Maybe DateTime')
14928 , _caCompanionCreativeOverrides :: !(Maybe [CompanionClickThroughOverride])
14950 , _caCompanionCreativeOverrides :: !(Maybe [CompanionClickThroughOverride])
14929 , _caCreativeIdDimensionValue :: !(Maybe DimensionValue)
14951 , _caCreativeIdDimensionValue :: !(Maybe DimensionValue)
14930 } deriving (Eq,Read,Show,Data,Typeable,Generic)
14952 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -14990,7 +15012,8 @@ caCreativeGroupAssignments
14990-- | Date and time that the assigned creative should start serving.
15012-- | Date and time that the assigned creative should start serving.
14991caStartTime :: Lens' CreativeAssignment (Maybe UTCTime)
15013caStartTime :: Lens' CreativeAssignment (Maybe UTCTime)
14992caStartTime
15014caStartTime
14993− = lens _caStartTime (\ s a -> s{_caStartTime = a})
15015+ = lens _caStartTime (\ s a -> s{_caStartTime = a}) .
15016+ mapping _DateTime
14994
15017
14995-- | Weight of the creative assignment, applicable when the rotation type is
15018-- | Weight of the creative assignment, applicable when the rotation type is
14996-- CREATIVE_ROTATION_TYPE_RANDOM.
15019-- CREATIVE_ROTATION_TYPE_RANDOM.
@@ -15053,7 +15076,8 @@ caSequence
15053-- later than the start time.
15076-- later than the start time.
15054caEndTime :: Lens' CreativeAssignment (Maybe UTCTime)
15077caEndTime :: Lens' CreativeAssignment (Maybe UTCTime)
15055caEndTime
15078caEndTime
15056− = lens _caEndTime (\ s a -> s{_caEndTime = a})
15079+ = lens _caEndTime (\ s a -> s{_caEndTime = a}) .
15080+ mapping _DateTime
15057
15081
15058-- | Companion creative overrides for this creative assignment. Applicable to
15082-- | Companion creative overrides for this creative assignment. Applicable to
15059-- video ads.
15083-- video ads.
@@ -16530,8 +16554,8 @@ data ReportSchedule = ReportSchedule
16530 { _rsEvery :: !(Maybe Int32)
16554 { _rsEvery :: !(Maybe Int32)
16531 , _rsActive :: !(Maybe Bool)
16555 , _rsActive :: !(Maybe Bool)
16532 , _rsRepeats :: !(Maybe Text)
16556 , _rsRepeats :: !(Maybe Text)
16533− , _rsStartDate :: !(Maybe Date)
16557+ , _rsStartDate :: !(Maybe Date')
16534− , _rsExpirationDate :: !(Maybe Date)
16558+ , _rsExpirationDate :: !(Maybe Date')
16535 , _rsRunsOnDayOfMonth :: !(Maybe ReportScheduleRunsOnDayOfMonth)
16559 , _rsRunsOnDayOfMonth :: !(Maybe ReportScheduleRunsOnDayOfMonth)
16536 , _rsRepeatsOnWeekDays :: !(Maybe [ReportScheduleRepeatsOnWeekDays])
16560 , _rsRepeatsOnWeekDays :: !(Maybe [ReportScheduleRepeatsOnWeekDays])
16537 } deriving (Eq,Read,Show,Data,Typeable,Generic)
16561 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -16586,15 +16610,17 @@ rsRepeats
16586 = lens _rsRepeats (\ s a -> s{_rsRepeats = a})
16610 = lens _rsRepeats (\ s a -> s{_rsRepeats = a})
16587
16611
16588-- | Start date of date range for which scheduled reports should be run.
16612-- | Start date of date range for which scheduled reports should be run.
16589−rsStartDate :: Lens' ReportSchedule (Maybe UTCTime)
16613+rsStartDate :: Lens' ReportSchedule (Maybe LocalTime)
16590rsStartDate
16614rsStartDate
16591− = lens _rsStartDate (\ s a -> s{_rsStartDate = a})
16615+ = lens _rsStartDate (\ s a -> s{_rsStartDate = a}) .
16616+ mapping _Date
16592
16617
16593-- | The expiration date when the scheduled report stops running.
16618-- | The expiration date when the scheduled report stops running.
16594−rsExpirationDate :: Lens' ReportSchedule (Maybe UTCTime)
16619+rsExpirationDate :: Lens' ReportSchedule (Maybe LocalTime)
16595rsExpirationDate
16620rsExpirationDate
16596 = lens _rsExpirationDate
16621 = lens _rsExpirationDate
16597 (\ s a -> s{_rsExpirationDate = a})
16622 (\ s a -> s{_rsExpirationDate = a})
16623+ . mapping _Date
16598
16624
16599-- | Enum to define for \"MONTHLY\" scheduled reports whether reports should
16625-- | Enum to define for \"MONTHLY\" scheduled reports whether reports should
16600-- be repeated on the same day of the month as \"startDate\" or the same
16626-- be repeated on the same day of the month as \"startDate\" or the same
@@ -19462,10 +19488,10 @@ data OrderDocument = OrderDocument
19462 { _odSigned :: !(Maybe Bool)
19488 { _odSigned :: !(Maybe Bool)
19463 , _odKind :: !Text
19489 , _odKind :: !Text
19464 , _odAdvertiserId :: !(Maybe Int64)
19490 , _odAdvertiserId :: !(Maybe Int64)
19465− , _odLastSentTime :: !(Maybe DateTime)
19491+ , _odLastSentTime :: !(Maybe DateTime')
19466 , _odAmendedOrderDocumentId :: !(Maybe Int64)
19492 , _odAmendedOrderDocumentId :: !(Maybe Int64)
19467 , _odLastSentRecipients :: !(Maybe [Text])
19493 , _odLastSentRecipients :: !(Maybe [Text])
19468− , _odEffectiveDate :: !(Maybe Date)
19494+ , _odEffectiveDate :: !(Maybe Date')
19469 , _odApprovedByUserProfileIds :: !(Maybe [Int64])
19495 , _odApprovedByUserProfileIds :: !(Maybe [Int64])
19470 , _odAccountId :: !(Maybe Int64)
19496 , _odAccountId :: !(Maybe Int64)
19471 , _odId :: !(Maybe Int64)
19497 , _odId :: !(Maybe Int64)
@@ -19558,6 +19584,7 @@ odLastSentTime :: Lens' OrderDocument (Maybe UTCTime)
19558odLastSentTime
19584odLastSentTime
19559 = lens _odLastSentTime
19585 = lens _odLastSentTime
19560 (\ s a -> s{_odLastSentTime = a})
19586 (\ s a -> s{_odLastSentTime = a})
19587+ . mapping _DateTime
19561
19588
19562-- | The amended order document ID of this order document. An order document
19589-- | The amended order document ID of this order document. An order document
19563-- can be created by optionally amending another order document so that the
19590-- can be created by optionally amending another order document so that the
@@ -19576,10 +19603,11 @@ odLastSentRecipients
19576 . _Coerce
19603 . _Coerce
19577
19604
19578-- | Effective date of this order document.
19605-- | Effective date of this order document.
19579−odEffectiveDate :: Lens' OrderDocument (Maybe UTCTime)
19606+odEffectiveDate :: Lens' OrderDocument (Maybe LocalTime)
19580odEffectiveDate
19607odEffectiveDate
19581 = lens _odEffectiveDate
19608 = lens _odEffectiveDate
19582 (\ s a -> s{_odEffectiveDate = a})
19609 (\ s a -> s{_odEffectiveDate = a})
19610+ . mapping _Date
19583
19611
19584-- | IDs of users who have approved this order document.
19612-- | IDs of users who have approved this order document.
19585odApprovedByUserProfileIds :: Lens' OrderDocument [Int64]
19613odApprovedByUserProfileIds :: Lens' OrderDocument [Int64]
gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch/Types/Product.hs+4−2
@@ -944,9 +944,9 @@ instance ToJSON ReportAPIColumnSpec where
944-- /See:/ 'reportRequestTimeRange' smart constructor.
944-- /See:/ 'reportRequestTimeRange' smart constructor.
945data ReportRequestTimeRange = ReportRequestTimeRange
945data ReportRequestTimeRange = ReportRequestTimeRange
946 { _rrtrEndDate :: !(Maybe Text)
946 { _rrtrEndDate :: !(Maybe Text)
947− , _rrtrChangedAttributesSinceTimestamp :: !(Maybe DateTime)
947+ , _rrtrChangedAttributesSinceTimestamp :: !(Maybe DateTime')
948 , _rrtrStartDate :: !(Maybe Text)
948 , _rrtrStartDate :: !(Maybe Text)
949− , _rrtrChangedMetricsSinceTimestamp :: !(Maybe DateTime)
949+ , _rrtrChangedMetricsSinceTimestamp :: !(Maybe DateTime')
950 } deriving (Eq,Read,Show,Data,Typeable,Generic)
950 } deriving (Eq,Read,Show,Data,Typeable,Generic)
951
951
952-- | Creates a value of 'ReportRequestTimeRange' with the minimum fields required to make a request.
952-- | Creates a value of 'ReportRequestTimeRange' with the minimum fields required to make a request.
@@ -982,6 +982,7 @@ rrtrChangedAttributesSinceTimestamp
982 = lens _rrtrChangedAttributesSinceTimestamp
982 = lens _rrtrChangedAttributesSinceTimestamp
983 (\ s a ->
983 (\ s a ->
984 s{_rrtrChangedAttributesSinceTimestamp = a})
984 s{_rrtrChangedAttributesSinceTimestamp = a})
985+ . mapping _DateTime
985
986
986-- | Inclusive date in YYYY-MM-DD format.
987-- | Inclusive date in YYYY-MM-DD format.
987rrtrStartDate :: Lens' ReportRequestTimeRange (Maybe Text)
988rrtrStartDate :: Lens' ReportRequestTimeRange (Maybe Text)
@@ -995,6 +996,7 @@ rrtrChangedMetricsSinceTimestamp :: Lens' ReportRequestTimeRange (Maybe UTCTime)
995rrtrChangedMetricsSinceTimestamp
996rrtrChangedMetricsSinceTimestamp
996 = lens _rrtrChangedMetricsSinceTimestamp
997 = lens _rrtrChangedMetricsSinceTimestamp
997 (\ s a -> s{_rrtrChangedMetricsSinceTimestamp = a})
998 (\ s a -> s{_rrtrChangedMetricsSinceTimestamp = a})
999+ . mapping _DateTime
998
1000
999instance FromJSON ReportRequestTimeRange where
1001instance FromJSON ReportRequestTimeRange where
1000 parseJSON
1002 parseJSON
gogol-drive/gen/Network/Google/Drive/Types/Product.hs+24−12
@@ -1094,7 +1094,7 @@ instance ToJSON FileVideoMediaMetadata where
1094data Change = Change
1094data Change = Change
1095 { _chaKind :: !Text
1095 { _chaKind :: !Text
1096 , _chaSelfLink :: !(Maybe Text)
1096 , _chaSelfLink :: !(Maybe Text)
1097− , _chaModificationDate :: !(Maybe DateTime)
1097+ , _chaModificationDate :: !(Maybe DateTime')
1098 , _chaId :: !(Maybe Int64)
1098 , _chaId :: !(Maybe Int64)
1099 , _chaDeleted :: !(Maybe Bool)
1099 , _chaDeleted :: !(Maybe Bool)
1100 , _chaFileId :: !(Maybe Text)
1100 , _chaFileId :: !(Maybe Text)
@@ -1145,6 +1145,7 @@ chaModificationDate :: Lens' Change (Maybe UTCTime)
1145chaModificationDate
1145chaModificationDate
1146 = lens _chaModificationDate
1146 = lens _chaModificationDate
1147 (\ s a -> s{_chaModificationDate = a})
1147 (\ s a -> s{_chaModificationDate = a})
1148+ . mapping _DateTime
1148
1149
1149-- | The ID of the change.
1150-- | The ID of the change.
1150chaId :: Lens' Change (Maybe Int64)
1151chaId :: Lens' Change (Maybe Int64)
@@ -1727,10 +1728,10 @@ data CommentReply = CommentReply
1727 { _comHTMLContent :: !(Maybe Text)
1728 { _comHTMLContent :: !(Maybe Text)
1728 , _comKind :: !Text
1729 , _comKind :: !Text
1729 , _comContent :: !(Maybe Text)
1730 , _comContent :: !(Maybe Text)
1730− , _comCreatedDate :: !(Maybe DateTime)
1731+ , _comCreatedDate :: !(Maybe DateTime')
1731 , _comReplyId :: !(Maybe Text)
1732 , _comReplyId :: !(Maybe Text)
1732 , _comAuthor :: !(Maybe User)
1733 , _comAuthor :: !(Maybe User)
1733− , _comModifiedDate :: !(Maybe DateTime)
1734+ , _comModifiedDate :: !(Maybe DateTime')
1734 , _comDeleted :: !(Maybe Bool)
1735 , _comDeleted :: !(Maybe Bool)
1735 , _comVerb :: !(Maybe Text)
1736 , _comVerb :: !(Maybe Text)
1736 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1737 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -1794,6 +1795,7 @@ comCreatedDate :: Lens' CommentReply (Maybe UTCTime)
1794comCreatedDate
1795comCreatedDate
1795 = lens _comCreatedDate
1796 = lens _comCreatedDate
1796 (\ s a -> s{_comCreatedDate = a})
1797 (\ s a -> s{_comCreatedDate = a})
1798+ . mapping _DateTime
1797
1799
1798-- | The ID of the reply.
1800-- | The ID of the reply.
1799comReplyId :: Lens' CommentReply (Maybe Text)
1801comReplyId :: Lens' CommentReply (Maybe Text)
@@ -1810,6 +1812,7 @@ comModifiedDate :: Lens' CommentReply (Maybe UTCTime)
1810comModifiedDate
1812comModifiedDate
1811 = lens _comModifiedDate
1813 = lens _comModifiedDate
1812 (\ s a -> s{_comModifiedDate = a})
1814 (\ s a -> s{_comModifiedDate = a})
1815+ . mapping _DateTime
1813
1816
1814-- | Whether this reply has been deleted. If a reply has been deleted the
1817-- | Whether this reply has been deleted. If a reply has been deleted the
1815-- content will be cleared and this will only represent a reply that once
1818-- content will be cleared and this will only represent a reply that once
@@ -2886,7 +2889,7 @@ data Revision = Revision
2886 , _rExportLinks :: !(Maybe RevisionExportLinks)
2889 , _rExportLinks :: !(Maybe RevisionExportLinks)
2887 , _rPublishedOutsideDomain :: !(Maybe Bool)
2890 , _rPublishedOutsideDomain :: !(Maybe Bool)
2888 , _rId :: !(Maybe Text)
2891 , _rId :: !(Maybe Text)
2889− , _rModifiedDate :: !(Maybe DateTime)
2892+ , _rModifiedDate :: !(Maybe DateTime')
2890 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2893 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2891
2894
2892-- | Creates a value of 'Revision' with the minimum fields required to make a request.
2895-- | Creates a value of 'Revision' with the minimum fields required to make a request.
@@ -3054,6 +3057,7 @@ rModifiedDate :: Lens' Revision (Maybe UTCTime)
3054rModifiedDate
3057rModifiedDate
3055 = lens _rModifiedDate
3058 = lens _rModifiedDate
3056 (\ s a -> s{_rModifiedDate = a})
3059 (\ s a -> s{_rModifiedDate = a})
3060+ . mapping _DateTime
3057
3061
3058instance FromJSON Revision where
3062instance FromJSON Revision where
3059 parseJSON
3063 parseJSON
@@ -3301,10 +3305,10 @@ data Comment = Comment
3301 , _ccAnchor :: !(Maybe Text)
3305 , _ccAnchor :: !(Maybe Text)
3302 , _ccContent :: !(Maybe Text)
3306 , _ccContent :: !(Maybe Text)
3303 , _ccReplies :: !(Maybe [CommentReply])
3307 , _ccReplies :: !(Maybe [CommentReply])
3304− , _ccCreatedDate :: !(Maybe DateTime)
3308+ , _ccCreatedDate :: !(Maybe DateTime')
3305 , _ccSelfLink :: !(Maybe Text)
3309 , _ccSelfLink :: !(Maybe Text)
3306 , _ccAuthor :: !(Maybe User)
3310 , _ccAuthor :: !(Maybe User)
3307− , _ccModifiedDate :: !(Maybe DateTime)
3311+ , _ccModifiedDate :: !(Maybe DateTime')
3308 , _ccDeleted :: !(Maybe Bool)
3312 , _ccDeleted :: !(Maybe Bool)
3309 , _ccFileId :: !(Maybe Text)
3313 , _ccFileId :: !(Maybe Text)
3310 , _ccCommentId :: !(Maybe Text)
3314 , _ccCommentId :: !(Maybe Text)
@@ -3416,6 +3420,7 @@ ccCreatedDate :: Lens' Comment (Maybe UTCTime)
3416ccCreatedDate
3420ccCreatedDate
3417 = lens _ccCreatedDate
3421 = lens _ccCreatedDate
3418 (\ s a -> s{_ccCreatedDate = a})
3422 (\ s a -> s{_ccCreatedDate = a})
3423+ . mapping _DateTime
3419
3424
3420-- | A link back to this comment.
3425-- | A link back to this comment.
3421ccSelfLink :: Lens' Comment (Maybe Text)
3426ccSelfLink :: Lens' Comment (Maybe Text)
@@ -3431,6 +3436,7 @@ ccModifiedDate :: Lens' Comment (Maybe UTCTime)
3431ccModifiedDate
3436ccModifiedDate
3432 = lens _ccModifiedDate
3437 = lens _ccModifiedDate
3433 (\ s a -> s{_ccModifiedDate = a})
3438 (\ s a -> s{_ccModifiedDate = a})
3439+ . mapping _DateTime
3434
3440
3435-- | Whether this comment has been deleted. If a comment has been deleted the
3441-- | Whether this comment has been deleted. If a comment has been deleted the
3436-- content will be cleared and this will only represent a comment that once
3442-- content will be cleared and this will only represent a comment that once
@@ -3541,7 +3547,7 @@ data File = File
3541 , _fThumbnailLink :: !(Maybe Text)
3547 , _fThumbnailLink :: !(Maybe Text)
3542 , _fFullFileExtension :: !(Maybe Text)
3548 , _fFullFileExtension :: !(Maybe Text)
3543 , _fThumbnail :: !(Maybe FileThumbnail)
3549 , _fThumbnail :: !(Maybe FileThumbnail)
3544− , _fMarkedViewedByMeDate :: !(Maybe DateTime)
3550+ , _fMarkedViewedByMeDate :: !(Maybe DateTime')
3545 , _fEtag :: !(Maybe Text)
3551 , _fEtag :: !(Maybe Text)
3546 , _fFileExtension :: !(Maybe Text)
3552 , _fFileExtension :: !(Maybe Text)
3547 , _fCanComment :: !(Maybe Bool)
3553 , _fCanComment :: !(Maybe Bool)
@@ -3559,13 +3565,13 @@ data File = File
3559 , _fImageMediaMetadata :: !(Maybe FileImageMediaMetadata)
3565 , _fImageMediaMetadata :: !(Maybe FileImageMediaMetadata)
3560 , _fExplicitlyTrashed :: !(Maybe Bool)
3566 , _fExplicitlyTrashed :: !(Maybe Bool)
3561 , _fEditable :: !(Maybe Bool)
3567 , _fEditable :: !(Maybe Bool)
3562− , _fModifiedByMeDate :: !(Maybe DateTime)
3568+ , _fModifiedByMeDate :: !(Maybe DateTime')
3563− , _fLastViewedByMeDate :: !(Maybe DateTime)
3569+ , _fLastViewedByMeDate :: !(Maybe DateTime')
3564 , _fShared :: !(Maybe Bool)
3570 , _fShared :: !(Maybe Bool)
3565 , _fMD5Checksum :: !(Maybe Text)
3571 , _fMD5Checksum :: !(Maybe Text)
3566 , _fFolderColorRgb :: !(Maybe Text)
3572 , _fFolderColorRgb :: !(Maybe Text)
3567 , _fMimeType :: !(Maybe Text)
3573 , _fMimeType :: !(Maybe Text)
3568− , _fCreatedDate :: !(Maybe DateTime)
3574+ , _fCreatedDate :: !(Maybe DateTime')
3569 , _fSelfLink :: !(Maybe Text)
3575 , _fSelfLink :: !(Maybe Text)
3570 , _fLastModifyingUserName :: !(Maybe Text)
3576 , _fLastModifyingUserName :: !(Maybe Text)
3571 , _fShareable :: !(Maybe Bool)
3577 , _fShareable :: !(Maybe Bool)
@@ -3573,7 +3579,7 @@ data File = File
3573 , _fExportLinks :: !(Maybe FileExportLinks)
3579 , _fExportLinks :: !(Maybe FileExportLinks)
3574 , _fCopyable :: !(Maybe Bool)
3580 , _fCopyable :: !(Maybe Bool)
3575 , _fParents :: !(Maybe [ParentReference])
3581 , _fParents :: !(Maybe [ParentReference])
3576− , _fSharedWithMeDate :: !(Maybe DateTime)
3582+ , _fSharedWithMeDate :: !(Maybe DateTime')
3577 , _fSpaces :: !(Maybe [Text])
3583 , _fSpaces :: !(Maybe [Text])
3578 , _fVersion :: !(Maybe Int64)
3584 , _fVersion :: !(Maybe Int64)
3579 , _fUserPermission :: !(Maybe Permission)
3585 , _fUserPermission :: !(Maybe Permission)
@@ -3581,7 +3587,7 @@ data File = File
3581 , _fDefaultOpenWithLink :: !(Maybe Text)
3587 , _fDefaultOpenWithLink :: !(Maybe Text)
3582 , _fId :: !(Maybe Text)
3588 , _fId :: !(Maybe Text)
3583 , _fLabels :: !(Maybe FileLabels)
3589 , _fLabels :: !(Maybe FileLabels)
3584− , _fModifiedDate :: !(Maybe DateTime)
3590+ , _fModifiedDate :: !(Maybe DateTime')
3585 , _fPermissions :: !(Maybe [Permission])
3591 , _fPermissions :: !(Maybe [Permission])
3586 , _fQuotaBytesUsed :: !(Maybe Int64)
3592 , _fQuotaBytesUsed :: !(Maybe Int64)
3587 , _fTitle :: !(Maybe Text)
3593 , _fTitle :: !(Maybe Text)
@@ -3807,6 +3813,7 @@ fMarkedViewedByMeDate :: Lens' File (Maybe UTCTime)
3807fMarkedViewedByMeDate
3813fMarkedViewedByMeDate
3808 = lens _fMarkedViewedByMeDate
3814 = lens _fMarkedViewedByMeDate
3809 (\ s a -> s{_fMarkedViewedByMeDate = a})
3815 (\ s a -> s{_fMarkedViewedByMeDate = a})
3816+ . mapping _DateTime
3810
3817
3811-- | ETag of the file.
3818-- | ETag of the file.
3812fEtag :: Lens' File (Maybe Text)
3819fEtag :: Lens' File (Maybe Text)
@@ -3923,6 +3930,7 @@ fModifiedByMeDate :: Lens' File (Maybe UTCTime)
3923fModifiedByMeDate
3930fModifiedByMeDate
3924 = lens _fModifiedByMeDate
3931 = lens _fModifiedByMeDate
3925 (\ s a -> s{_fModifiedByMeDate = a})
3932 (\ s a -> s{_fModifiedByMeDate = a})
3933+ . mapping _DateTime
3926
3934
3927-- | Last time this file was viewed by the user (formatted RFC 3339
3935-- | Last time this file was viewed by the user (formatted RFC 3339
3928-- timestamp).
3936-- timestamp).
@@ -3930,6 +3938,7 @@ fLastViewedByMeDate :: Lens' File (Maybe UTCTime)
3930fLastViewedByMeDate
3938fLastViewedByMeDate
3931 = lens _fLastViewedByMeDate
3939 = lens _fLastViewedByMeDate
3932 (\ s a -> s{_fLastViewedByMeDate = a})
3940 (\ s a -> s{_fLastViewedByMeDate = a})
3941+ . mapping _DateTime
3933
3942
3934-- | Whether the file has been shared.
3943-- | Whether the file has been shared.
3935fShared :: Lens' File (Maybe Bool)
3944fShared :: Lens' File (Maybe Bool)
@@ -3962,6 +3971,7 @@ fMimeType
3962fCreatedDate :: Lens' File (Maybe UTCTime)
3971fCreatedDate :: Lens' File (Maybe UTCTime)
3963fCreatedDate
3972fCreatedDate
3964 = lens _fCreatedDate (\ s a -> s{_fCreatedDate = a})
3973 = lens _fCreatedDate (\ s a -> s{_fCreatedDate = a})
3974+ . mapping _DateTime
3965
3975
3966-- | A link back to this file.
3976-- | A link back to this file.
3967fSelfLink :: Lens' File (Maybe Text)
3977fSelfLink :: Lens' File (Maybe Text)
@@ -4010,6 +4020,7 @@ fSharedWithMeDate :: Lens' File (Maybe UTCTime)
4010fSharedWithMeDate
4020fSharedWithMeDate
4011 = lens _fSharedWithMeDate
4021 = lens _fSharedWithMeDate
4012 (\ s a -> s{_fSharedWithMeDate = a})
4022 (\ s a -> s{_fSharedWithMeDate = a})
4023+ . mapping _DateTime
4013
4024
4014-- | The list of spaces which contain the file. Supported values are
4025-- | The list of spaces which contain the file. Supported values are
4015-- \'drive\', \'appDataFolder\' and \'photos\'.
4026-- \'drive\', \'appDataFolder\' and \'photos\'.
@@ -4058,6 +4069,7 @@ fModifiedDate :: Lens' File (Maybe UTCTime)
4058fModifiedDate
4069fModifiedDate
4059 = lens _fModifiedDate
4070 = lens _fModifiedDate
4060 (\ s a -> s{_fModifiedDate = a})
4071 (\ s a -> s{_fModifiedDate = a})
4072+ . mapping _DateTime
4061
4073
4062-- | The list of permissions for users with access to this file.
4074-- | The list of permissions for users with access to this file.
4063fPermissions :: Lens' File [Permission]
4075fPermissions :: Lens' File [Permission]
gogol-fonts/gen/Network/Google/Fonts/Types/Product.hs+3−2
@@ -28,7 +28,7 @@ data Webfont = Webfont
28 , _wVersion :: !(Maybe Text)
28 , _wVersion :: !(Maybe Text)
29 , _wFiles :: !(Maybe WebfontFiles)
29 , _wFiles :: !(Maybe WebfontFiles)
30 , _wSubsets :: !(Maybe [Text])
30 , _wSubsets :: !(Maybe [Text])
31− , _wLastModified :: !(Maybe Date)
31+ , _wLastModified :: !(Maybe Date')
32 } deriving (Eq,Read,Show,Data,Typeable,Generic)
32 } deriving (Eq,Read,Show,Data,Typeable,Generic)
33
33
34-- | Creates a value of 'Webfont' with the minimum fields required to make a request.
34-- | Creates a value of 'Webfont' with the minimum fields required to make a request.
@@ -102,10 +102,11 @@ wSubsets
102
102
103-- | The date (format \"yyyy-MM-dd\") the font was modified for the last
103-- | The date (format \"yyyy-MM-dd\") the font was modified for the last
104-- time.
104-- time.
105−wLastModified :: Lens' Webfont (Maybe UTCTime)
105+wLastModified :: Lens' Webfont (Maybe LocalTime)
106wLastModified
106wLastModified
107 = lens _wLastModified
107 = lens _wLastModified
108 (\ s a -> s{_wLastModified = a})
108 (\ s a -> s{_wLastModified = a})
109+ . mapping _Date
109
110
110instance FromJSON Webfont where
111instance FromJSON Webfont where
111 parseJSON
112 parseJSON
gogol-maps-engine/gen/Network/Google/MapsEngine/Types/Product.hs+36−18
@@ -743,12 +743,12 @@ instance ToJSON MapFolder where
743--
743--
744-- /See:/ 'rasterCollection' smart constructor.
744-- /See:/ 'rasterCollection' smart constructor.
745data RasterCollection = RasterCollection
745data RasterCollection = RasterCollection
746− { _rcCreationTime :: !(Maybe DateTime)
746+ { _rcCreationTime :: !(Maybe DateTime')
747 , _rcWritersCanEditPermissions :: !(Maybe Bool)
747 , _rcWritersCanEditPermissions :: !(Maybe Bool)
748 , _rcEtag :: !(Maybe Text)
748 , _rcEtag :: !(Maybe Text)
749 , _rcCreatorEmail :: !(Maybe Text)
749 , _rcCreatorEmail :: !(Maybe Text)
750 , _rcRasterType :: !(Maybe RasterCollectionRasterType)
750 , _rcRasterType :: !(Maybe RasterCollectionRasterType)
751− , _rcLastModifiedTime :: !(Maybe DateTime)
751+ , _rcLastModifiedTime :: !(Maybe DateTime')
752 , _rcLastModifierEmail :: !(Maybe Text)
752 , _rcLastModifierEmail :: !(Maybe Text)
753 , _rcName :: !(Maybe Text)
753 , _rcName :: !(Maybe Text)
754 , _rcBbox :: !(Maybe [Double])
754 , _rcBbox :: !(Maybe [Double])
@@ -828,6 +828,7 @@ rcCreationTime :: Lens' RasterCollection (Maybe UTCTime)
828rcCreationTime
828rcCreationTime
829 = lens _rcCreationTime
829 = lens _rcCreationTime
830 (\ s a -> s{_rcCreationTime = a})
830 (\ s a -> s{_rcCreationTime = a})
831+ . mapping _DateTime
831
832
832-- | If true, WRITERs of the asset are able to edit the asset permissions.
833-- | If true, WRITERs of the asset are able to edit the asset permissions.
833rcWritersCanEditPermissions :: Lens' RasterCollection (Maybe Bool)
834rcWritersCanEditPermissions :: Lens' RasterCollection (Maybe Bool)
@@ -857,6 +858,7 @@ rcLastModifiedTime :: Lens' RasterCollection (Maybe UTCTime)
857rcLastModifiedTime
858rcLastModifiedTime
858 = lens _rcLastModifiedTime
859 = lens _rcLastModifiedTime
859 (\ s a -> s{_rcLastModifiedTime = a})
860 (\ s a -> s{_rcLastModifiedTime = a})
861+ . mapping _DateTime
860
862
861-- | The email address of the last modifier of this raster collection. This
863-- | The email address of the last modifier of this raster collection. This
862-- is only returned on GET requests and not LIST requests.
864-- is only returned on GET requests and not LIST requests.
@@ -1128,11 +1130,11 @@ instance ToJSON Color where
1128--
1130--
1129-- /See:/ 'asset' smart constructor.
1131-- /See:/ 'asset' smart constructor.
1130data Asset = Asset
1132data Asset = Asset
1131− { _aCreationTime :: !(Maybe DateTime)
1133+ { _aCreationTime :: !(Maybe DateTime')
1132 , _aWritersCanEditPermissions :: !(Maybe Bool)
1134 , _aWritersCanEditPermissions :: !(Maybe Bool)
1133 , _aEtag :: !(Maybe Text)
1135 , _aEtag :: !(Maybe Text)
1134 , _aCreatorEmail :: !(Maybe Text)
1136 , _aCreatorEmail :: !(Maybe Text)
1135− , _aLastModifiedTime :: !(Maybe DateTime)
1137+ , _aLastModifiedTime :: !(Maybe DateTime')
1136 , _aLastModifierEmail :: !(Maybe Text)
1138 , _aLastModifierEmail :: !(Maybe Text)
1137 , _aName :: !(Maybe Text)
1139 , _aName :: !(Maybe Text)
1138 , _aBbox :: !(Maybe [Double])
1140 , _aBbox :: !(Maybe [Double])
@@ -1201,6 +1203,7 @@ aCreationTime :: Lens' Asset (Maybe UTCTime)
1201aCreationTime
1203aCreationTime
1202 = lens _aCreationTime
1204 = lens _aCreationTime
1203 (\ s a -> s{_aCreationTime = a})
1205 (\ s a -> s{_aCreationTime = a})
1206+ . mapping _DateTime
1204
1207
1205-- | If true, WRITERs of the asset are able to edit the asset permissions.
1208-- | If true, WRITERs of the asset are able to edit the asset permissions.
1206aWritersCanEditPermissions :: Lens' Asset (Maybe Bool)
1209aWritersCanEditPermissions :: Lens' Asset (Maybe Bool)
@@ -1225,6 +1228,7 @@ aLastModifiedTime :: Lens' Asset (Maybe UTCTime)
1225aLastModifiedTime
1228aLastModifiedTime
1226 = lens _aLastModifiedTime
1229 = lens _aLastModifiedTime
1227 (\ s a -> s{_aLastModifiedTime = a})
1230 (\ s a -> s{_aLastModifiedTime = a})
1231+ . mapping _DateTime
1228
1232
1229-- | The email address of the last modifier of this asset. This is only
1233-- | The email address of the last modifier of this asset. This is only
1230-- returned on GET requests and not LIST requests.
1234-- returned on GET requests and not LIST requests.
@@ -2012,9 +2016,9 @@ instance ToJSON Schema where
2012--
2016--
2013-- /See:/ 'acquisitionTime' smart constructor.
2017-- /See:/ 'acquisitionTime' smart constructor.
2014data AcquisitionTime = AcquisitionTime
2018data AcquisitionTime = AcquisitionTime
2015− { _atStart :: !(Maybe DateTime)
2019+ { _atStart :: !(Maybe DateTime')
2016 , _atPrecision :: !(Maybe AcquisitionTimePrecision)
2020 , _atPrecision :: !(Maybe AcquisitionTimePrecision)
2017− , _atEnd :: !(Maybe DateTime)
2021+ , _atEnd :: !(Maybe DateTime')
2018 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2022 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2019
2023
2020-- | Creates a value of 'AcquisitionTime' with the minimum fields required to make a request.
2024-- | Creates a value of 'AcquisitionTime' with the minimum fields required to make a request.
@@ -2038,7 +2042,9 @@ acquisitionTime =
2038-- | The acquisition time, or start time if acquisition time is a range. The
2042-- | The acquisition time, or start time if acquisition time is a range. The
2039-- value is an RFC 3339 formatted date-time value (1970-01-01T00:00:00Z).
2043-- value is an RFC 3339 formatted date-time value (1970-01-01T00:00:00Z).
2040atStart :: Lens' AcquisitionTime (Maybe UTCTime)
2044atStart :: Lens' AcquisitionTime (Maybe UTCTime)
2045+atStart
2041−atStart = lens _atStart (\ s a -> s{_atStart = a})
2046+ = lens _atStart (\ s a -> s{_atStart = a}) .
2047+ mapping _DateTime
2042
2048
2043-- | The precision of acquisition time.
2049-- | The precision of acquisition time.
2044atPrecision :: Lens' AcquisitionTime (Maybe AcquisitionTimePrecision)
2050atPrecision :: Lens' AcquisitionTime (Maybe AcquisitionTimePrecision)
@@ -2048,7 +2054,9 @@ atPrecision
2048-- | The end time if acquisition time is a range. The value is an RFC 3339
2054-- | The end time if acquisition time is a range. The value is an RFC 3339
2049-- formatted date-time value (1970-01-01T00:00:00Z).
2055-- formatted date-time value (1970-01-01T00:00:00Z).
2050atEnd :: Lens' AcquisitionTime (Maybe UTCTime)
2056atEnd :: Lens' AcquisitionTime (Maybe UTCTime)
2057+atEnd
2051−atEnd = lens _atEnd (\ s a -> s{_atEnd = a})
2058+ = lens _atEnd (\ s a -> s{_atEnd = a}) .
2059+ mapping _DateTime
2052
2060
2053instance FromJSON AcquisitionTime where
2061instance FromJSON AcquisitionTime where
2054 parseJSON
2062 parseJSON
@@ -2125,14 +2133,14 @@ instance ToJSON TablesListResponse where
2125--
2133--
2126-- /See:/ 'map'' smart constructor.
2134-- /See:/ 'map'' smart constructor.
2127data Map = Map
2135data Map = Map
2128− { _mapaCreationTime :: !(Maybe DateTime)
2136+ { _mapaCreationTime :: !(Maybe DateTime')
2129 , _mapaWritersCanEditPermissions :: !(Maybe Bool)
2137 , _mapaWritersCanEditPermissions :: !(Maybe Bool)
2130 , _mapaEtag :: !(Maybe Text)
2138 , _mapaEtag :: !(Maybe Text)
2131 , _mapaDefaultViewport :: !(Maybe [Double])
2139 , _mapaDefaultViewport :: !(Maybe [Double])
2132 , _mapaContents :: !(Maybe [MapItem])
2140 , _mapaContents :: !(Maybe [MapItem])
2133 , _mapaPublishingStatus :: !(Maybe MapPublishingStatus)
2141 , _mapaPublishingStatus :: !(Maybe MapPublishingStatus)
2134 , _mapaCreatorEmail :: !(Maybe Text)
2142 , _mapaCreatorEmail :: !(Maybe Text)
2135− , _mapaLastModifiedTime :: !(Maybe DateTime)
2143+ , _mapaLastModifiedTime :: !(Maybe DateTime')
2136 , _mapaLastModifierEmail :: !(Maybe Text)
2144 , _mapaLastModifierEmail :: !(Maybe Text)
2137 , _mapaVersions :: !(Maybe [Text])
2145 , _mapaVersions :: !(Maybe [Text])
2138 , _mapaName :: !(Maybe Text)
2146 , _mapaName :: !(Maybe Text)
@@ -2218,6 +2226,7 @@ mapaCreationTime :: Lens' Map (Maybe UTCTime)
2218mapaCreationTime
2226mapaCreationTime
2219 = lens _mapaCreationTime
2227 = lens _mapaCreationTime
2220 (\ s a -> s{_mapaCreationTime = a})
2228 (\ s a -> s{_mapaCreationTime = a})
2229+ . mapping _DateTime
2221
2230
2222-- | If true, WRITERs of the asset are able to edit the asset permissions.
2231-- | If true, WRITERs of the asset are able to edit the asset permissions.
2223mapaWritersCanEditPermissions :: Lens' Map (Maybe Bool)
2232mapaWritersCanEditPermissions :: Lens' Map (Maybe Bool)
@@ -2265,6 +2274,7 @@ mapaLastModifiedTime :: Lens' Map (Maybe UTCTime)
2265mapaLastModifiedTime
2274mapaLastModifiedTime
2266 = lens _mapaLastModifiedTime
2275 = lens _mapaLastModifiedTime
2267 (\ s a -> s{_mapaLastModifiedTime = a})
2276 (\ s a -> s{_mapaLastModifiedTime = a})
2277+ . mapping _DateTime
2268
2278
2269-- | The email address of the last modifier of this map. This is only
2279-- | The email address of the last modifier of this map. This is only
2270-- returned on GET requests and not LIST requests.
2280-- returned on GET requests and not LIST requests.
@@ -3014,9 +3024,9 @@ instance ToJSON PublishResponse where
3014--
3024--
3015-- /See:/ 'rasterCollectionsRaster' smart constructor.
3025-- /See:/ 'rasterCollectionsRaster' smart constructor.
3016data RasterCollectionsRaster = RasterCollectionsRaster
3026data RasterCollectionsRaster = RasterCollectionsRaster
3017− { _rcrCreationTime :: !(Maybe DateTime)
3027+ { _rcrCreationTime :: !(Maybe DateTime')
3018 , _rcrRasterType :: !Text
3028 , _rcrRasterType :: !Text
3019− , _rcrLastModifiedTime :: !(Maybe DateTime)
3029+ , _rcrLastModifiedTime :: !(Maybe DateTime')
3020 , _rcrName :: !(Maybe Text)
3030 , _rcrName :: !(Maybe Text)
3021 , _rcrBbox :: !(Maybe [Double])
3031 , _rcrBbox :: !(Maybe [Double])
3022 , _rcrId :: !(Maybe Text)
3032 , _rcrId :: !(Maybe Text)
@@ -3067,6 +3077,7 @@ rcrCreationTime :: Lens' RasterCollectionsRaster (Maybe UTCTime)
3067rcrCreationTime
3077rcrCreationTime
3068 = lens _rcrCreationTime
3078 = lens _rcrCreationTime
3069 (\ s a -> s{_rcrCreationTime = a})
3079 (\ s a -> s{_rcrCreationTime = a})
3080+ . mapping _DateTime
3070
3081
3071-- | The type of this Raster. Always \"image\" today.
3082-- | The type of this Raster. Always \"image\" today.
3072rcrRasterType :: Lens' RasterCollectionsRaster Text
3083rcrRasterType :: Lens' RasterCollectionsRaster Text
@@ -3080,6 +3091,7 @@ rcrLastModifiedTime :: Lens' RasterCollectionsRaster (Maybe UTCTime)
3080rcrLastModifiedTime
3091rcrLastModifiedTime
3081 = lens _rcrLastModifiedTime
3092 = lens _rcrLastModifiedTime
3082 (\ s a -> s{_rcrLastModifiedTime = a})
3093 (\ s a -> s{_rcrLastModifiedTime = a})
3094+ . mapping _DateTime
3083
3095
3084-- | The name of this Raster, supplied by the author.
3096-- | The name of this Raster, supplied by the author.
3085rcrName :: Lens' RasterCollectionsRaster (Maybe Text)
3097rcrName :: Lens' RasterCollectionsRaster (Maybe Text)
@@ -3385,13 +3397,13 @@ instance ToJSON GeoJSONMultiPoint where
3385--
3397--
3386-- /See:/ 'raster' smart constructor.
3398-- /See:/ 'raster' smart constructor.
3387data Raster = Raster
3399data Raster = Raster
3388− { _rrCreationTime :: !(Maybe DateTime)
3400+ { _rrCreationTime :: !(Maybe DateTime')
3389 , _rrWritersCanEditPermissions :: !(Maybe Bool)
3401 , _rrWritersCanEditPermissions :: !(Maybe Bool)
3390 , _rrMaskType :: !Text
3402 , _rrMaskType :: !Text
3391 , _rrEtag :: !(Maybe Text)
3403 , _rrEtag :: !(Maybe Text)
3392 , _rrCreatorEmail :: !(Maybe Text)
3404 , _rrCreatorEmail :: !(Maybe Text)
3393 , _rrRasterType :: !(Maybe RasterRasterType)
3405 , _rrRasterType :: !(Maybe RasterRasterType)
3394− , _rrLastModifiedTime :: !(Maybe DateTime)
3406+ , _rrLastModifiedTime :: !(Maybe DateTime')
3395 , _rrLastModifierEmail :: !(Maybe Text)
3407 , _rrLastModifierEmail :: !(Maybe Text)
3396 , _rrAcquisitionTime :: !(Maybe AcquisitionTime)
3408 , _rrAcquisitionTime :: !(Maybe AcquisitionTime)
3397 , _rrName :: !(Maybe Text)
3409 , _rrName :: !(Maybe Text)
@@ -3478,6 +3490,7 @@ rrCreationTime :: Lens' Raster (Maybe UTCTime)
3478rrCreationTime
3490rrCreationTime
3479 = lens _rrCreationTime
3491 = lens _rrCreationTime
3480 (\ s a -> s{_rrCreationTime = a})
3492 (\ s a -> s{_rrCreationTime = a})
3493+ . mapping _DateTime
3481
3494
3482-- | If true, WRITERs of the asset are able to edit the asset permissions.
3495-- | If true, WRITERs of the asset are able to edit the asset permissions.
3483rrWritersCanEditPermissions :: Lens' Raster (Maybe Bool)
3496rrWritersCanEditPermissions :: Lens' Raster (Maybe Bool)
@@ -3512,6 +3525,7 @@ rrLastModifiedTime :: Lens' Raster (Maybe UTCTime)
3512rrLastModifiedTime
3525rrLastModifiedTime
3513 = lens _rrLastModifiedTime
3526 = lens _rrLastModifiedTime
3514 (\ s a -> s{_rrLastModifiedTime = a})
3527 (\ s a -> s{_rrLastModifiedTime = a})
3528+ . mapping _DateTime
3515
3529
3516-- | The email address of the last modifier of this raster. This is only
3530-- | The email address of the last modifier of this raster. This is only
3517-- returned on GET requests and not LIST requests.
3531-- returned on GET requests and not LIST requests.
@@ -3838,7 +3852,7 @@ instance ToJSON Permission where
3838--
3852--
3839-- /See:/ 'layer' smart constructor.
3853-- /See:/ 'layer' smart constructor.
3840data Layer = Layer
3854data Layer = Layer
3841− { _layaCreationTime :: !(Maybe DateTime)
3855+ { _layaCreationTime :: !(Maybe DateTime')
3842 , _layaWritersCanEditPermissions :: !(Maybe Bool)
3856 , _layaWritersCanEditPermissions :: !(Maybe Bool)
3843 , _layaStyle :: !(Maybe VectorStyle)
3857 , _layaStyle :: !(Maybe VectorStyle)
3844 , _layaEtag :: !(Maybe Text)
3858 , _layaEtag :: !(Maybe Text)
@@ -3846,7 +3860,7 @@ data Layer = Layer
3846 , _layaPublishingStatus :: !(Maybe LayerPublishingStatus)
3860 , _layaPublishingStatus :: !(Maybe LayerPublishingStatus)
3847 , _layaCreatorEmail :: !(Maybe Text)
3861 , _layaCreatorEmail :: !(Maybe Text)
3848 , _layaLayerType :: !(Maybe LayerLayerType)
3862 , _layaLayerType :: !(Maybe LayerLayerType)
3849− , _layaLastModifiedTime :: !(Maybe DateTime)
3863+ , _layaLastModifiedTime :: !(Maybe DateTime')
3850 , _layaDatasources :: !(Maybe [Datasource])
3864 , _layaDatasources :: !(Maybe [Datasource])
3851 , _layaLastModifierEmail :: !(Maybe Text)
3865 , _layaLastModifierEmail :: !(Maybe Text)
3852 , _layaName :: !(Maybe Text)
3866 , _layaName :: !(Maybe Text)
@@ -3935,6 +3949,7 @@ layaCreationTime :: Lens' Layer (Maybe UTCTime)
3935layaCreationTime
3949layaCreationTime
3936 = lens _layaCreationTime
3950 = lens _layaCreationTime
3937 (\ s a -> s{_layaCreationTime = a})
3951 (\ s a -> s{_layaCreationTime = a})
3952+ . mapping _DateTime
3938
3953
3939-- | If true, WRITERs of the asset are able to edit the asset permissions.
3954-- | If true, WRITERs of the asset are able to edit the asset permissions.
3940layaWritersCanEditPermissions :: Lens' Layer (Maybe Bool)
3955layaWritersCanEditPermissions :: Lens' Layer (Maybe Bool)
@@ -3989,6 +4004,7 @@ layaLastModifiedTime :: Lens' Layer (Maybe UTCTime)
3989layaLastModifiedTime
4004layaLastModifiedTime
3990 = lens _layaLastModifiedTime
4005 = lens _layaLastModifiedTime
3991 (\ s a -> s{_layaLastModifiedTime = a})
4006 (\ s a -> s{_layaLastModifiedTime = a})
4007+ . mapping _DateTime
3992
4008
3993-- | An array of datasources used to build this layer. If layerType is
4009-- | An array of datasources used to build this layer. If layerType is
3994-- \"image\", or layerType is not specified and datasourceType is
4010-- \"image\", or layerType is not specified and datasourceType is
@@ -4433,11 +4449,11 @@ instance ToJSON PermissionsBatchDeleteResponse where
4433--
4449--
4434-- /See:/ 'table' smart constructor.
4450-- /See:/ 'table' smart constructor.
4435data Table = Table
4451data Table = Table
4436− { _ttCreationTime :: !(Maybe DateTime)
4452+ { _ttCreationTime :: !(Maybe DateTime')
4437 , _ttWritersCanEditPermissions :: !(Maybe Bool)
4453 , _ttWritersCanEditPermissions :: !(Maybe Bool)
4438 , _ttEtag :: !(Maybe Text)
4454 , _ttEtag :: !(Maybe Text)
4439 , _ttCreatorEmail :: !(Maybe Text)
4455 , _ttCreatorEmail :: !(Maybe Text)
4440− , _ttLastModifiedTime :: !(Maybe DateTime)
4456+ , _ttLastModifiedTime :: !(Maybe DateTime')
4441 , _ttSchema :: !(Maybe Schema)
4457 , _ttSchema :: !(Maybe Schema)
4442 , _ttLastModifierEmail :: !(Maybe Text)
4458 , _ttLastModifierEmail :: !(Maybe Text)
4443 , _ttName :: !(Maybe Text)
4459 , _ttName :: !(Maybe Text)
@@ -4522,6 +4538,7 @@ ttCreationTime :: Lens' Table (Maybe UTCTime)
4522ttCreationTime
4538ttCreationTime
4523 = lens _ttCreationTime
4539 = lens _ttCreationTime
4524 (\ s a -> s{_ttCreationTime = a})
4540 (\ s a -> s{_ttCreationTime = a})
4541+ . mapping _DateTime
4525
4542
4526-- | If true, WRITERs of the asset are able to edit the asset permissions.
4543-- | If true, WRITERs of the asset are able to edit the asset permissions.
4527ttWritersCanEditPermissions :: Lens' Table (Maybe Bool)
4544ttWritersCanEditPermissions :: Lens' Table (Maybe Bool)
@@ -4546,6 +4563,7 @@ ttLastModifiedTime :: Lens' Table (Maybe UTCTime)
4546ttLastModifiedTime
4563ttLastModifiedTime
4547 = lens _ttLastModifiedTime
4564 = lens _ttLastModifiedTime
4548 (\ s a -> s{_ttLastModifiedTime = a})
4565 (\ s a -> s{_ttLastModifiedTime = a})
4566+ . mapping _DateTime
4549
4567
4550-- | The schema for this table. Note: The schema is returned in response to a
4568-- | The schema for this table. Note: The schema is returned in response to a
4551-- get request but not a list request. After requesting a list of tables,
4569-- get request but not a list request. After requesting a list of tables,
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Assets/List.hs+12−8
@@ -59,12 +59,12 @@ import Network.Google.Prelude
59type AssetsListResource =
59type AssetsListResource =
60 "assets" :>
60 "assets" :>
61 QueryParam "bbox" Text :>
61 QueryParam "bbox" Text :>
62− QueryParam "createdAfter" DateTime :>
62+ QueryParam "createdAfter" DateTime' :>
63− QueryParam "createdBefore" DateTime :>
63+ QueryParam "createdBefore" DateTime' :>
64 QueryParam "creatorEmail" Text :>
64 QueryParam "creatorEmail" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66− QueryParam "modifiedAfter" DateTime :>
66+ QueryParam "modifiedAfter" DateTime' :>
67− QueryParam "modifiedBefore" DateTime :>
67+ QueryParam "modifiedBefore" DateTime' :>
68 QueryParam "pageToken" Text :>
68 QueryParam "pageToken" Text :>
69 QueryParam "projectId" Text :>
69 QueryParam "projectId" Text :>
70 QueryParam "role" MapsEngineAssetsListRole :>
70 QueryParam "role" MapsEngineAssetsListRole :>
@@ -85,7 +85,7 @@ type AssetsListResource =
85--
85--
86-- /See:/ 'assetsList'' smart constructor.
86-- /See:/ 'assetsList'' smart constructor.
87data AssetsList' = AssetsList'
87data AssetsList' = AssetsList'
88− { _alCreatedAfter :: !(Maybe DateTime)
88+ { _alCreatedAfter :: !(Maybe DateTime')
89 , _alQuotaUser :: !(Maybe Text)
89 , _alQuotaUser :: !(Maybe Text)
90 , _alPrettyPrint :: !Bool
90 , _alPrettyPrint :: !Bool
91 , _alUserIP :: !(Maybe Text)
91 , _alUserIP :: !(Maybe Text)
@@ -93,8 +93,8 @@ data AssetsList' = AssetsList'
93 , _alRole :: !(Maybe MapsEngineAssetsListRole)
93 , _alRole :: !(Maybe MapsEngineAssetsListRole)
94 , _alKey :: !(Maybe Key)
94 , _alKey :: !(Maybe Key)
95 , _alBbox :: !(Maybe Text)
95 , _alBbox :: !(Maybe Text)
96− , _alModifiedAfter :: !(Maybe DateTime)
96+ , _alModifiedAfter :: !(Maybe DateTime')
97− , _alModifiedBefore :: !(Maybe DateTime)
97+ , _alModifiedBefore :: !(Maybe DateTime')
98 , _alPageToken :: !(Maybe Text)
98 , _alPageToken :: !(Maybe Text)
99 , _alProjectId :: !(Maybe Text)
99 , _alProjectId :: !(Maybe Text)
100 , _alType :: !(Maybe Text)
100 , _alType :: !(Maybe Text)
@@ -103,7 +103,7 @@ data AssetsList' = AssetsList'
103 , _alMaxResults :: !(Maybe Word32)
103 , _alMaxResults :: !(Maybe Word32)
104 , _alTags :: !(Maybe Text)
104 , _alTags :: !(Maybe Text)
105 , _alFields :: !(Maybe Text)
105 , _alFields :: !(Maybe Text)
106− , _alCreatedBefore :: !(Maybe DateTime)
106+ , _alCreatedBefore :: !(Maybe DateTime')
107 } deriving (Eq,Read,Show,Data,Typeable,Generic)
107 } deriving (Eq,Read,Show,Data,Typeable,Generic)
108
108
109-- | Creates a value of 'AssetsList'' with the minimum fields required to make a request.
109-- | Creates a value of 'AssetsList'' with the minimum fields required to make a request.
@@ -178,6 +178,7 @@ alCreatedAfter :: Lens' AssetsList' (Maybe UTCTime)
178alCreatedAfter
178alCreatedAfter
179 = lens _alCreatedAfter
179 = lens _alCreatedAfter
180 (\ s a -> s{_alCreatedAfter = a})
180 (\ s a -> s{_alCreatedAfter = a})
181+ . mapping _DateTime
181
182
182-- | Available to use for quota purposes for server-side applications. Can be
183-- | Available to use for quota purposes for server-side applications. Can be
183-- any arbitrary string assigned to a user, but should not exceed 40
184-- any arbitrary string assigned to a user, but should not exceed 40
@@ -226,6 +227,7 @@ alModifiedAfter :: Lens' AssetsList' (Maybe UTCTime)
226alModifiedAfter
227alModifiedAfter
227 = lens _alModifiedAfter
228 = lens _alModifiedAfter
228 (\ s a -> s{_alModifiedAfter = a})
229 (\ s a -> s{_alModifiedAfter = a})
230+ . mapping _DateTime
229
231
230-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
232-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
231-- Returned assets will have been modified at or before this time.
233-- Returned assets will have been modified at or before this time.
@@ -233,6 +235,7 @@ alModifiedBefore :: Lens' AssetsList' (Maybe UTCTime)
233alModifiedBefore
235alModifiedBefore
234 = lens _alModifiedBefore
236 = lens _alModifiedBefore
235 (\ s a -> s{_alModifiedBefore = a})
237 (\ s a -> s{_alModifiedBefore = a})
238+ . mapping _DateTime
236
239
237-- | The continuation token, used to page through large result sets. To get
240-- | The continuation token, used to page through large result sets. To get
238-- the next page of results, set this parameter to the value of
241-- the next page of results, set this parameter to the value of
@@ -286,6 +289,7 @@ alCreatedBefore :: Lens' AssetsList' (Maybe UTCTime)
286alCreatedBefore
289alCreatedBefore
287 = lens _alCreatedBefore
290 = lens _alCreatedBefore
288 (\ s a -> s{_alCreatedBefore = a})
291 (\ s a -> s{_alCreatedBefore = a})
292+ . mapping _DateTime
289
293
290instance GoogleAuth AssetsList' where
294instance GoogleAuth AssetsList' where
291 authKey = alKey . _Just
295 authKey = alKey . _Just
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Layers/List.hs+12−8
@@ -59,12 +59,12 @@ import Network.Google.Prelude
59type LayersListResource =
59type LayersListResource =
60 "layers" :>
60 "layers" :>
61 QueryParam "bbox" Text :>
61 QueryParam "bbox" Text :>
62− QueryParam "createdAfter" DateTime :>
62+ QueryParam "createdAfter" DateTime' :>
63− QueryParam "createdBefore" DateTime :>
63+ QueryParam "createdBefore" DateTime' :>
64 QueryParam "creatorEmail" Text :>
64 QueryParam "creatorEmail" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66− QueryParam "modifiedAfter" DateTime :>
66+ QueryParam "modifiedAfter" DateTime' :>
67− QueryParam "modifiedBefore" DateTime :>
67+ QueryParam "modifiedBefore" DateTime' :>
68 QueryParam "pageToken" Text :>
68 QueryParam "pageToken" Text :>
69 QueryParam "processingStatus"
69 QueryParam "processingStatus"
70 MapsEngineLayersListProcessingStatus
70 MapsEngineLayersListProcessingStatus
@@ -87,7 +87,7 @@ type LayersListResource =
87--
87--
88-- /See:/ 'layersList'' smart constructor.
88-- /See:/ 'layersList'' smart constructor.
89data LayersList' = LayersList'
89data LayersList' = LayersList'
90− { _llCreatedAfter :: !(Maybe DateTime)
90+ { _llCreatedAfter :: !(Maybe DateTime')
91 , _llQuotaUser :: !(Maybe Text)
91 , _llQuotaUser :: !(Maybe Text)
92 , _llPrettyPrint :: !Bool
92 , _llPrettyPrint :: !Bool
93 , _llUserIP :: !(Maybe Text)
93 , _llUserIP :: !(Maybe Text)
@@ -96,8 +96,8 @@ data LayersList' = LayersList'
96 , _llKey :: !(Maybe Key)
96 , _llKey :: !(Maybe Key)
97 , _llBbox :: !(Maybe Text)
97 , _llBbox :: !(Maybe Text)
98 , _llProcessingStatus :: !(Maybe MapsEngineLayersListProcessingStatus)
98 , _llProcessingStatus :: !(Maybe MapsEngineLayersListProcessingStatus)
99− , _llModifiedAfter :: !(Maybe DateTime)
99+ , _llModifiedAfter :: !(Maybe DateTime')
100− , _llModifiedBefore :: !(Maybe DateTime)
100+ , _llModifiedBefore :: !(Maybe DateTime')
101 , _llPageToken :: !(Maybe Text)
101 , _llPageToken :: !(Maybe Text)
102 , _llProjectId :: !(Maybe Text)
102 , _llProjectId :: !(Maybe Text)
103 , _llOAuthToken :: !(Maybe OAuthToken)
103 , _llOAuthToken :: !(Maybe OAuthToken)
@@ -105,7 +105,7 @@ data LayersList' = LayersList'
105 , _llMaxResults :: !(Maybe Word32)
105 , _llMaxResults :: !(Maybe Word32)
106 , _llTags :: !(Maybe Text)
106 , _llTags :: !(Maybe Text)
107 , _llFields :: !(Maybe Text)
107 , _llFields :: !(Maybe Text)
108− , _llCreatedBefore :: !(Maybe DateTime)
108+ , _llCreatedBefore :: !(Maybe DateTime')
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
110
110
111-- | Creates a value of 'LayersList'' with the minimum fields required to make a request.
111-- | Creates a value of 'LayersList'' with the minimum fields required to make a request.
@@ -180,6 +180,7 @@ llCreatedAfter :: Lens' LayersList' (Maybe UTCTime)
180llCreatedAfter
180llCreatedAfter
181 = lens _llCreatedAfter
181 = lens _llCreatedAfter
182 (\ s a -> s{_llCreatedAfter = a})
182 (\ s a -> s{_llCreatedAfter = a})
183+ . mapping _DateTime
183
184
184-- | Available to use for quota purposes for server-side applications. Can be
185-- | Available to use for quota purposes for server-side applications. Can be
185-- any arbitrary string assigned to a user, but should not exceed 40
186-- any arbitrary string assigned to a user, but should not exceed 40
@@ -233,6 +234,7 @@ llModifiedAfter :: Lens' LayersList' (Maybe UTCTime)
233llModifiedAfter
234llModifiedAfter
234 = lens _llModifiedAfter
235 = lens _llModifiedAfter
235 (\ s a -> s{_llModifiedAfter = a})
236 (\ s a -> s{_llModifiedAfter = a})
237+ . mapping _DateTime
236
238
237-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
239-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
238-- Returned assets will have been modified at or before this time.
240-- Returned assets will have been modified at or before this time.
@@ -240,6 +242,7 @@ llModifiedBefore :: Lens' LayersList' (Maybe UTCTime)
240llModifiedBefore
242llModifiedBefore
241 = lens _llModifiedBefore
243 = lens _llModifiedBefore
242 (\ s a -> s{_llModifiedBefore = a})
244 (\ s a -> s{_llModifiedBefore = a})
245+ . mapping _DateTime
243
246
244-- | The continuation token, used to page through large result sets. To get
247-- | The continuation token, used to page through large result sets. To get
245-- the next page of results, set this parameter to the value of
248-- the next page of results, set this parameter to the value of
@@ -287,6 +290,7 @@ llCreatedBefore :: Lens' LayersList' (Maybe UTCTime)
287llCreatedBefore
290llCreatedBefore
288 = lens _llCreatedBefore
291 = lens _llCreatedBefore
289 (\ s a -> s{_llCreatedBefore = a})
292 (\ s a -> s{_llCreatedBefore = a})
293+ . mapping _DateTime
290
294
291instance GoogleAuth LayersList' where
295instance GoogleAuth LayersList' where
292 authKey = llKey . _Just
296 authKey = llKey . _Just
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Maps/List.hs+12−8
@@ -59,12 +59,12 @@ import Network.Google.Prelude
59type MapsListResource =
59type MapsListResource =
60 "maps" :>
60 "maps" :>
61 QueryParam "bbox" Text :>
61 QueryParam "bbox" Text :>
62− QueryParam "createdAfter" DateTime :>
62+ QueryParam "createdAfter" DateTime' :>
63− QueryParam "createdBefore" DateTime :>
63+ QueryParam "createdBefore" DateTime' :>
64 QueryParam "creatorEmail" Text :>
64 QueryParam "creatorEmail" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66− QueryParam "modifiedAfter" DateTime :>
66+ QueryParam "modifiedAfter" DateTime' :>
67− QueryParam "modifiedBefore" DateTime :>
67+ QueryParam "modifiedBefore" DateTime' :>
68 QueryParam "pageToken" Text :>
68 QueryParam "pageToken" Text :>
69 QueryParam "processingStatus"
69 QueryParam "processingStatus"
70 MapsEngineMapsListProcessingStatus
70 MapsEngineMapsListProcessingStatus
@@ -87,7 +87,7 @@ type MapsListResource =
87--
87--
88-- /See:/ 'mapsList'' smart constructor.
88-- /See:/ 'mapsList'' smart constructor.
89data MapsList' = MapsList'
89data MapsList' = MapsList'
90− { _mapCreatedAfter :: !(Maybe DateTime)
90+ { _mapCreatedAfter :: !(Maybe DateTime')
91 , _mapQuotaUser :: !(Maybe Text)
91 , _mapQuotaUser :: !(Maybe Text)
92 , _mapPrettyPrint :: !Bool
92 , _mapPrettyPrint :: !Bool
93 , _mapUserIP :: !(Maybe Text)
93 , _mapUserIP :: !(Maybe Text)
@@ -96,8 +96,8 @@ data MapsList' = MapsList'
96 , _mapKey :: !(Maybe Key)
96 , _mapKey :: !(Maybe Key)
97 , _mapBbox :: !(Maybe Text)
97 , _mapBbox :: !(Maybe Text)
98 , _mapProcessingStatus :: !(Maybe MapsEngineMapsListProcessingStatus)
98 , _mapProcessingStatus :: !(Maybe MapsEngineMapsListProcessingStatus)
99− , _mapModifiedAfter :: !(Maybe DateTime)
99+ , _mapModifiedAfter :: !(Maybe DateTime')
100− , _mapModifiedBefore :: !(Maybe DateTime)
100+ , _mapModifiedBefore :: !(Maybe DateTime')
101 , _mapPageToken :: !(Maybe Text)
101 , _mapPageToken :: !(Maybe Text)
102 , _mapProjectId :: !(Maybe Text)
102 , _mapProjectId :: !(Maybe Text)
103 , _mapOAuthToken :: !(Maybe OAuthToken)
103 , _mapOAuthToken :: !(Maybe OAuthToken)
@@ -105,7 +105,7 @@ data MapsList' = MapsList'
105 , _mapMaxResults :: !(Maybe Word32)
105 , _mapMaxResults :: !(Maybe Word32)
106 , _mapTags :: !(Maybe Text)
106 , _mapTags :: !(Maybe Text)
107 , _mapFields :: !(Maybe Text)
107 , _mapFields :: !(Maybe Text)
108− , _mapCreatedBefore :: !(Maybe DateTime)
108+ , _mapCreatedBefore :: !(Maybe DateTime')
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
110
110
111-- | Creates a value of 'MapsList'' with the minimum fields required to make a request.
111-- | Creates a value of 'MapsList'' with the minimum fields required to make a request.
@@ -180,6 +180,7 @@ mapCreatedAfter :: Lens' MapsList' (Maybe UTCTime)
180mapCreatedAfter
180mapCreatedAfter
181 = lens _mapCreatedAfter
181 = lens _mapCreatedAfter
182 (\ s a -> s{_mapCreatedAfter = a})
182 (\ s a -> s{_mapCreatedAfter = a})
183+ . mapping _DateTime
183
184
184-- | Available to use for quota purposes for server-side applications. Can be
185-- | Available to use for quota purposes for server-side applications. Can be
185-- any arbitrary string assigned to a user, but should not exceed 40
186-- any arbitrary string assigned to a user, but should not exceed 40
@@ -234,6 +235,7 @@ mapModifiedAfter :: Lens' MapsList' (Maybe UTCTime)
234mapModifiedAfter
235mapModifiedAfter
235 = lens _mapModifiedAfter
236 = lens _mapModifiedAfter
236 (\ s a -> s{_mapModifiedAfter = a})
237 (\ s a -> s{_mapModifiedAfter = a})
238+ . mapping _DateTime
237
239
238-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
240-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
239-- Returned assets will have been modified at or before this time.
241-- Returned assets will have been modified at or before this time.
@@ -241,6 +243,7 @@ mapModifiedBefore :: Lens' MapsList' (Maybe UTCTime)
241mapModifiedBefore
243mapModifiedBefore
242 = lens _mapModifiedBefore
244 = lens _mapModifiedBefore
243 (\ s a -> s{_mapModifiedBefore = a})
245 (\ s a -> s{_mapModifiedBefore = a})
246+ . mapping _DateTime
244
247
245-- | The continuation token, used to page through large result sets. To get
248-- | The continuation token, used to page through large result sets. To get
246-- the next page of results, set this parameter to the value of
249-- the next page of results, set this parameter to the value of
@@ -292,6 +295,7 @@ mapCreatedBefore :: Lens' MapsList' (Maybe UTCTime)
292mapCreatedBefore
295mapCreatedBefore
293 = lens _mapCreatedBefore
296 = lens _mapCreatedBefore
294 (\ s a -> s{_mapCreatedBefore = a})
297 (\ s a -> s{_mapCreatedBefore = a})
298+ . mapping _DateTime
295
299
296instance GoogleAuth MapsList' where
300instance GoogleAuth MapsList' where
297 authKey = mapKey . _Just
301 authKey = mapKey . _Just
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/List.hs+12−8
@@ -59,12 +59,12 @@ import Network.Google.Prelude
59type RasterCollectionsListResource =
59type RasterCollectionsListResource =
60 "rasterCollections" :>
60 "rasterCollections" :>
61 QueryParam "bbox" Text :>
61 QueryParam "bbox" Text :>
62− QueryParam "createdAfter" DateTime :>
62+ QueryParam "createdAfter" DateTime' :>
63− QueryParam "createdBefore" DateTime :>
63+ QueryParam "createdBefore" DateTime' :>
64 QueryParam "creatorEmail" Text :>
64 QueryParam "creatorEmail" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66− QueryParam "modifiedAfter" DateTime :>
66+ QueryParam "modifiedAfter" DateTime' :>
67− QueryParam "modifiedBefore" DateTime :>
67+ QueryParam "modifiedBefore" DateTime' :>
68 QueryParam "pageToken" Text :>
68 QueryParam "pageToken" Text :>
69 QueryParam "processingStatus"
69 QueryParam "processingStatus"
70 MapsEngineRasterCollectionsListProcessingStatus
70 MapsEngineRasterCollectionsListProcessingStatus
@@ -89,7 +89,7 @@ type RasterCollectionsListResource =
89--
89--
90-- /See:/ 'rasterCollectionsList'' smart constructor.
90-- /See:/ 'rasterCollectionsList'' smart constructor.
91data RasterCollectionsList' = RasterCollectionsList'
91data RasterCollectionsList' = RasterCollectionsList'
92− { _rclCreatedAfter :: !(Maybe DateTime)
92+ { _rclCreatedAfter :: !(Maybe DateTime')
93 , _rclQuotaUser :: !(Maybe Text)
93 , _rclQuotaUser :: !(Maybe Text)
94 , _rclPrettyPrint :: !Bool
94 , _rclPrettyPrint :: !Bool
95 , _rclUserIP :: !(Maybe Text)
95 , _rclUserIP :: !(Maybe Text)
@@ -98,8 +98,8 @@ data RasterCollectionsList' = RasterCollectionsList'
98 , _rclKey :: !(Maybe Key)
98 , _rclKey :: !(Maybe Key)
99 , _rclBbox :: !(Maybe Text)
99 , _rclBbox :: !(Maybe Text)
100 , _rclProcessingStatus :: !(Maybe MapsEngineRasterCollectionsListProcessingStatus)
100 , _rclProcessingStatus :: !(Maybe MapsEngineRasterCollectionsListProcessingStatus)
101− , _rclModifiedAfter :: !(Maybe DateTime)
101+ , _rclModifiedAfter :: !(Maybe DateTime')
102− , _rclModifiedBefore :: !(Maybe DateTime)
102+ , _rclModifiedBefore :: !(Maybe DateTime')
103 , _rclPageToken :: !(Maybe Text)
103 , _rclPageToken :: !(Maybe Text)
104 , _rclProjectId :: !(Maybe Text)
104 , _rclProjectId :: !(Maybe Text)
105 , _rclOAuthToken :: !(Maybe OAuthToken)
105 , _rclOAuthToken :: !(Maybe OAuthToken)
@@ -107,7 +107,7 @@ data RasterCollectionsList' = RasterCollectionsList'
107 , _rclMaxResults :: !(Maybe Word32)
107 , _rclMaxResults :: !(Maybe Word32)
108 , _rclTags :: !(Maybe Text)
108 , _rclTags :: !(Maybe Text)
109 , _rclFields :: !(Maybe Text)
109 , _rclFields :: !(Maybe Text)
110− , _rclCreatedBefore :: !(Maybe DateTime)
110+ , _rclCreatedBefore :: !(Maybe DateTime')
111 } deriving (Eq,Read,Show,Data,Typeable,Generic)
111 } deriving (Eq,Read,Show,Data,Typeable,Generic)
112
112
113-- | Creates a value of 'RasterCollectionsList'' with the minimum fields required to make a request.
113-- | Creates a value of 'RasterCollectionsList'' with the minimum fields required to make a request.
@@ -182,6 +182,7 @@ rclCreatedAfter :: Lens' RasterCollectionsList' (Maybe UTCTime)
182rclCreatedAfter
182rclCreatedAfter
183 = lens _rclCreatedAfter
183 = lens _rclCreatedAfter
184 (\ s a -> s{_rclCreatedAfter = a})
184 (\ s a -> s{_rclCreatedAfter = a})
185+ . mapping _DateTime
185
186
186-- | Available to use for quota purposes for server-side applications. Can be
187-- | Available to use for quota purposes for server-side applications. Can be
187-- any arbitrary string assigned to a user, but should not exceed 40
188-- any arbitrary string assigned to a user, but should not exceed 40
@@ -236,6 +237,7 @@ rclModifiedAfter :: Lens' RasterCollectionsList' (Maybe UTCTime)
236rclModifiedAfter
237rclModifiedAfter
237 = lens _rclModifiedAfter
238 = lens _rclModifiedAfter
238 (\ s a -> s{_rclModifiedAfter = a})
239 (\ s a -> s{_rclModifiedAfter = a})
240+ . mapping _DateTime
239
241
240-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
242-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
241-- Returned assets will have been modified at or before this time.
243-- Returned assets will have been modified at or before this time.
@@ -243,6 +245,7 @@ rclModifiedBefore :: Lens' RasterCollectionsList' (Maybe UTCTime)
243rclModifiedBefore
245rclModifiedBefore
244 = lens _rclModifiedBefore
246 = lens _rclModifiedBefore
245 (\ s a -> s{_rclModifiedBefore = a})
247 (\ s a -> s{_rclModifiedBefore = a})
248+ . mapping _DateTime
246
249
247-- | The continuation token, used to page through large result sets. To get
250-- | The continuation token, used to page through large result sets. To get
248-- the next page of results, set this parameter to the value of
251-- the next page of results, set this parameter to the value of
@@ -294,6 +297,7 @@ rclCreatedBefore :: Lens' RasterCollectionsList' (Maybe UTCTime)
294rclCreatedBefore
297rclCreatedBefore
295 = lens _rclCreatedBefore
298 = lens _rclCreatedBefore
296 (\ s a -> s{_rclCreatedBefore = a})
299 (\ s a -> s{_rclCreatedBefore = a})
300+ . mapping _DateTime
297
301
298instance GoogleAuth RasterCollectionsList' where
302instance GoogleAuth RasterCollectionsList' where
299 authKey = rclKey . _Just
303 authKey = rclKey . _Just
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/RasterCollections/Rasters/List.hs+12−8
@@ -60,12 +60,12 @@ type RasterCollectionsRastersListResource =
60 Capture "id" Text :>
60 Capture "id" Text :>
61 "rasters" :>
61 "rasters" :>
62 QueryParam "bbox" Text :>
62 QueryParam "bbox" Text :>
63− QueryParam "createdAfter" DateTime :>
63+ QueryParam "createdAfter" DateTime' :>
64− QueryParam "createdBefore" DateTime :>
64+ QueryParam "createdBefore" DateTime' :>
65 QueryParam "creatorEmail" Text :>
65 QueryParam "creatorEmail" Text :>
66 QueryParam "maxResults" Word32 :>
66 QueryParam "maxResults" Word32 :>
67− QueryParam "modifiedAfter" DateTime :>
67+ QueryParam "modifiedAfter" DateTime' :>
68− QueryParam "modifiedBefore" DateTime :>
68+ QueryParam "modifiedBefore" DateTime' :>
69 QueryParam "pageToken" Text :>
69 QueryParam "pageToken" Text :>
70 QueryParam "role"
70 QueryParam "role"
71 MapsEngineRasterCollectionsRastersListRole
71 MapsEngineRasterCollectionsRastersListRole
@@ -87,7 +87,7 @@ type RasterCollectionsRastersListResource =
87--
87--
88-- /See:/ 'rasterCollectionsRastersList'' smart constructor.
88-- /See:/ 'rasterCollectionsRastersList'' smart constructor.
89data RasterCollectionsRastersList' = RasterCollectionsRastersList'
89data RasterCollectionsRastersList' = RasterCollectionsRastersList'
90− { _rcrlCreatedAfter :: !(Maybe DateTime)
90+ { _rcrlCreatedAfter :: !(Maybe DateTime')
91 , _rcrlQuotaUser :: !(Maybe Text)
91 , _rcrlQuotaUser :: !(Maybe Text)
92 , _rcrlPrettyPrint :: !Bool
92 , _rcrlPrettyPrint :: !Bool
93 , _rcrlUserIP :: !(Maybe Text)
93 , _rcrlUserIP :: !(Maybe Text)
@@ -96,15 +96,15 @@ data RasterCollectionsRastersList' = RasterCollectionsRastersList'
96 , _rcrlKey :: !(Maybe Key)
96 , _rcrlKey :: !(Maybe Key)
97 , _rcrlBbox :: !(Maybe Text)
97 , _rcrlBbox :: !(Maybe Text)
98 , _rcrlId :: !Text
98 , _rcrlId :: !Text
99− , _rcrlModifiedAfter :: !(Maybe DateTime)
99+ , _rcrlModifiedAfter :: !(Maybe DateTime')
100− , _rcrlModifiedBefore :: !(Maybe DateTime)
100+ , _rcrlModifiedBefore :: !(Maybe DateTime')
101 , _rcrlPageToken :: !(Maybe Text)
101 , _rcrlPageToken :: !(Maybe Text)
102 , _rcrlOAuthToken :: !(Maybe OAuthToken)
102 , _rcrlOAuthToken :: !(Maybe OAuthToken)
103 , _rcrlSearch :: !(Maybe Text)
103 , _rcrlSearch :: !(Maybe Text)
104 , _rcrlMaxResults :: !(Maybe Word32)
104 , _rcrlMaxResults :: !(Maybe Word32)
105 , _rcrlTags :: !(Maybe Text)
105 , _rcrlTags :: !(Maybe Text)
106 , _rcrlFields :: !(Maybe Text)
106 , _rcrlFields :: !(Maybe Text)
107− , _rcrlCreatedBefore :: !(Maybe DateTime)
107+ , _rcrlCreatedBefore :: !(Maybe DateTime')
108 } deriving (Eq,Read,Show,Data,Typeable,Generic)
108 } deriving (Eq,Read,Show,Data,Typeable,Generic)
109
109
110-- | Creates a value of 'RasterCollectionsRastersList'' with the minimum fields required to make a request.
110-- | Creates a value of 'RasterCollectionsRastersList'' with the minimum fields required to make a request.
@@ -177,6 +177,7 @@ rcrlCreatedAfter :: Lens' RasterCollectionsRastersList' (Maybe UTCTime)
177rcrlCreatedAfter
177rcrlCreatedAfter
178 = lens _rcrlCreatedAfter
178 = lens _rcrlCreatedAfter
179 (\ s a -> s{_rcrlCreatedAfter = a})
179 (\ s a -> s{_rcrlCreatedAfter = a})
180+ . mapping _DateTime
180
181
181-- | Available to use for quota purposes for server-side applications. Can be
182-- | Available to use for quota purposes for server-side applications. Can be
182-- any arbitrary string assigned to a user, but should not exceed 40
183-- any arbitrary string assigned to a user, but should not exceed 40
@@ -231,6 +232,7 @@ rcrlModifiedAfter :: Lens' RasterCollectionsRastersList' (Maybe UTCTime)
231rcrlModifiedAfter
232rcrlModifiedAfter
232 = lens _rcrlModifiedAfter
233 = lens _rcrlModifiedAfter
233 (\ s a -> s{_rcrlModifiedAfter = a})
234 (\ s a -> s{_rcrlModifiedAfter = a})
235+ . mapping _DateTime
234
236
235-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
237-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
236-- Returned assets will have been modified at or before this time.
238-- Returned assets will have been modified at or before this time.
@@ -238,6 +240,7 @@ rcrlModifiedBefore :: Lens' RasterCollectionsRastersList' (Maybe UTCTime)
238rcrlModifiedBefore
240rcrlModifiedBefore
239 = lens _rcrlModifiedBefore
241 = lens _rcrlModifiedBefore
240 (\ s a -> s{_rcrlModifiedBefore = a})
242 (\ s a -> s{_rcrlModifiedBefore = a})
243+ . mapping _DateTime
241
244
242-- | The continuation token, used to page through large result sets. To get
245-- | The continuation token, used to page through large result sets. To get
243-- the next page of results, set this parameter to the value of
246-- the next page of results, set this parameter to the value of
@@ -282,6 +285,7 @@ rcrlCreatedBefore :: Lens' RasterCollectionsRastersList' (Maybe UTCTime)
282rcrlCreatedBefore
285rcrlCreatedBefore
283 = lens _rcrlCreatedBefore
286 = lens _rcrlCreatedBefore
284 (\ s a -> s{_rcrlCreatedBefore = a})
287 (\ s a -> s{_rcrlCreatedBefore = a})
288+ . mapping _DateTime
285
289
286instance GoogleAuth RasterCollectionsRastersList'
290instance GoogleAuth RasterCollectionsRastersList'
287 where
291 where
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Rasters/List.hs+12−8
@@ -59,12 +59,12 @@ import Network.Google.Prelude
59type RastersListResource =
59type RastersListResource =
60 "rasters" :>
60 "rasters" :>
61 QueryParam "bbox" Text :>
61 QueryParam "bbox" Text :>
62− QueryParam "createdAfter" DateTime :>
62+ QueryParam "createdAfter" DateTime' :>
63− QueryParam "createdBefore" DateTime :>
63+ QueryParam "createdBefore" DateTime' :>
64 QueryParam "creatorEmail" Text :>
64 QueryParam "creatorEmail" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66− QueryParam "modifiedAfter" DateTime :>
66+ QueryParam "modifiedAfter" DateTime' :>
67− QueryParam "modifiedBefore" DateTime :>
67+ QueryParam "modifiedBefore" DateTime' :>
68 QueryParam "pageToken" Text :>
68 QueryParam "pageToken" Text :>
69 QueryParam "processingStatus"
69 QueryParam "processingStatus"
70 MapsEngineRastersListProcessingStatus
70 MapsEngineRastersListProcessingStatus
@@ -87,7 +87,7 @@ type RastersListResource =
87--
87--
88-- /See:/ 'rastersList'' smart constructor.
88-- /See:/ 'rastersList'' smart constructor.
89data RastersList' = RastersList'
89data RastersList' = RastersList'
90− { _rlCreatedAfter :: !(Maybe DateTime)
90+ { _rlCreatedAfter :: !(Maybe DateTime')
91 , _rlQuotaUser :: !(Maybe Text)
91 , _rlQuotaUser :: !(Maybe Text)
92 , _rlPrettyPrint :: !Bool
92 , _rlPrettyPrint :: !Bool
93 , _rlUserIP :: !(Maybe Text)
93 , _rlUserIP :: !(Maybe Text)
@@ -96,8 +96,8 @@ data RastersList' = RastersList'
96 , _rlKey :: !(Maybe Key)
96 , _rlKey :: !(Maybe Key)
97 , _rlBbox :: !(Maybe Text)
97 , _rlBbox :: !(Maybe Text)
98 , _rlProcessingStatus :: !(Maybe MapsEngineRastersListProcessingStatus)
98 , _rlProcessingStatus :: !(Maybe MapsEngineRastersListProcessingStatus)
99− , _rlModifiedAfter :: !(Maybe DateTime)
99+ , _rlModifiedAfter :: !(Maybe DateTime')
100− , _rlModifiedBefore :: !(Maybe DateTime)
100+ , _rlModifiedBefore :: !(Maybe DateTime')
101 , _rlPageToken :: !(Maybe Text)
101 , _rlPageToken :: !(Maybe Text)
102 , _rlProjectId :: !Text
102 , _rlProjectId :: !Text
103 , _rlOAuthToken :: !(Maybe OAuthToken)
103 , _rlOAuthToken :: !(Maybe OAuthToken)
@@ -105,7 +105,7 @@ data RastersList' = RastersList'
105 , _rlMaxResults :: !(Maybe Word32)
105 , _rlMaxResults :: !(Maybe Word32)
106 , _rlTags :: !(Maybe Text)
106 , _rlTags :: !(Maybe Text)
107 , _rlFields :: !(Maybe Text)
107 , _rlFields :: !(Maybe Text)
108− , _rlCreatedBefore :: !(Maybe DateTime)
108+ , _rlCreatedBefore :: !(Maybe DateTime')
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
110
110
111-- | Creates a value of 'RastersList'' with the minimum fields required to make a request.
111-- | Creates a value of 'RastersList'' with the minimum fields required to make a request.
@@ -181,6 +181,7 @@ rlCreatedAfter :: Lens' RastersList' (Maybe UTCTime)
181rlCreatedAfter
181rlCreatedAfter
182 = lens _rlCreatedAfter
182 = lens _rlCreatedAfter
183 (\ s a -> s{_rlCreatedAfter = a})
183 (\ s a -> s{_rlCreatedAfter = a})
184+ . mapping _DateTime
184
185
185-- | Available to use for quota purposes for server-side applications. Can be
186-- | Available to use for quota purposes for server-side applications. Can be
186-- any arbitrary string assigned to a user, but should not exceed 40
187-- any arbitrary string assigned to a user, but should not exceed 40
@@ -234,6 +235,7 @@ rlModifiedAfter :: Lens' RastersList' (Maybe UTCTime)
234rlModifiedAfter
235rlModifiedAfter
235 = lens _rlModifiedAfter
236 = lens _rlModifiedAfter
236 (\ s a -> s{_rlModifiedAfter = a})
237 (\ s a -> s{_rlModifiedAfter = a})
238+ . mapping _DateTime
237
239
238-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
240-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
239-- Returned assets will have been modified at or before this time.
241-- Returned assets will have been modified at or before this time.
@@ -241,6 +243,7 @@ rlModifiedBefore :: Lens' RastersList' (Maybe UTCTime)
241rlModifiedBefore
243rlModifiedBefore
242 = lens _rlModifiedBefore
244 = lens _rlModifiedBefore
243 (\ s a -> s{_rlModifiedBefore = a})
245 (\ s a -> s{_rlModifiedBefore = a})
246+ . mapping _DateTime
244
247
245-- | The continuation token, used to page through large result sets. To get
248-- | The continuation token, used to page through large result sets. To get
246-- the next page of results, set this parameter to the value of
249-- the next page of results, set this parameter to the value of
@@ -288,6 +291,7 @@ rlCreatedBefore :: Lens' RastersList' (Maybe UTCTime)
288rlCreatedBefore
291rlCreatedBefore
289 = lens _rlCreatedBefore
292 = lens _rlCreatedBefore
290 (\ s a -> s{_rlCreatedBefore = a})
293 (\ s a -> s{_rlCreatedBefore = a})
294+ . mapping _DateTime
291
295
292instance GoogleAuth RastersList' where
296instance GoogleAuth RastersList' where
293 authKey = rlKey . _Just
297 authKey = rlKey . _Just
gogol-maps-engine/gen/Network/Google/Resource/MapsEngine/Tables/List.hs+12−8
@@ -59,12 +59,12 @@ import Network.Google.Prelude
59type TablesListResource =
59type TablesListResource =
60 "tables" :>
60 "tables" :>
61 QueryParam "bbox" Text :>
61 QueryParam "bbox" Text :>
62− QueryParam "createdAfter" DateTime :>
62+ QueryParam "createdAfter" DateTime' :>
63− QueryParam "createdBefore" DateTime :>
63+ QueryParam "createdBefore" DateTime' :>
64 QueryParam "creatorEmail" Text :>
64 QueryParam "creatorEmail" Text :>
65 QueryParam "maxResults" Word32 :>
65 QueryParam "maxResults" Word32 :>
66− QueryParam "modifiedAfter" DateTime :>
66+ QueryParam "modifiedAfter" DateTime' :>
67− QueryParam "modifiedBefore" DateTime :>
67+ QueryParam "modifiedBefore" DateTime' :>
68 QueryParam "pageToken" Text :>
68 QueryParam "pageToken" Text :>
69 QueryParam "processingStatus"
69 QueryParam "processingStatus"
70 MapsEngineTablesListProcessingStatus
70 MapsEngineTablesListProcessingStatus
@@ -87,7 +87,7 @@ type TablesListResource =
87--
87--
88-- /See:/ 'tablesList'' smart constructor.
88-- /See:/ 'tablesList'' smart constructor.
89data TablesList' = TablesList'
89data TablesList' = TablesList'
90− { _tlCreatedAfter :: !(Maybe DateTime)
90+ { _tlCreatedAfter :: !(Maybe DateTime')
91 , _tlQuotaUser :: !(Maybe Text)
91 , _tlQuotaUser :: !(Maybe Text)
92 , _tlPrettyPrint :: !Bool
92 , _tlPrettyPrint :: !Bool
93 , _tlUserIP :: !(Maybe Text)
93 , _tlUserIP :: !(Maybe Text)
@@ -96,8 +96,8 @@ data TablesList' = TablesList'
96 , _tlKey :: !(Maybe Key)
96 , _tlKey :: !(Maybe Key)
97 , _tlBbox :: !(Maybe Text)
97 , _tlBbox :: !(Maybe Text)
98 , _tlProcessingStatus :: !(Maybe MapsEngineTablesListProcessingStatus)
98 , _tlProcessingStatus :: !(Maybe MapsEngineTablesListProcessingStatus)
99− , _tlModifiedAfter :: !(Maybe DateTime)
99+ , _tlModifiedAfter :: !(Maybe DateTime')
100− , _tlModifiedBefore :: !(Maybe DateTime)
100+ , _tlModifiedBefore :: !(Maybe DateTime')
101 , _tlPageToken :: !(Maybe Text)
101 , _tlPageToken :: !(Maybe Text)
102 , _tlProjectId :: !(Maybe Text)
102 , _tlProjectId :: !(Maybe Text)
103 , _tlOAuthToken :: !(Maybe OAuthToken)
103 , _tlOAuthToken :: !(Maybe OAuthToken)
@@ -105,7 +105,7 @@ data TablesList' = TablesList'
105 , _tlMaxResults :: !(Maybe Word32)
105 , _tlMaxResults :: !(Maybe Word32)
106 , _tlTags :: !(Maybe Text)
106 , _tlTags :: !(Maybe Text)
107 , _tlFields :: !(Maybe Text)
107 , _tlFields :: !(Maybe Text)
108− , _tlCreatedBefore :: !(Maybe DateTime)
108+ , _tlCreatedBefore :: !(Maybe DateTime')
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
109 } deriving (Eq,Read,Show,Data,Typeable,Generic)
110
110
111-- | Creates a value of 'TablesList'' with the minimum fields required to make a request.
111-- | Creates a value of 'TablesList'' with the minimum fields required to make a request.
@@ -180,6 +180,7 @@ tlCreatedAfter :: Lens' TablesList' (Maybe UTCTime)
180tlCreatedAfter
180tlCreatedAfter
181 = lens _tlCreatedAfter
181 = lens _tlCreatedAfter
182 (\ s a -> s{_tlCreatedAfter = a})
182 (\ s a -> s{_tlCreatedAfter = a})
183+ . mapping _DateTime
183
184
184-- | Available to use for quota purposes for server-side applications. Can be
185-- | Available to use for quota purposes for server-side applications. Can be
185-- any arbitrary string assigned to a user, but should not exceed 40
186-- any arbitrary string assigned to a user, but should not exceed 40
@@ -233,6 +234,7 @@ tlModifiedAfter :: Lens' TablesList' (Maybe UTCTime)
233tlModifiedAfter
234tlModifiedAfter
234 = lens _tlModifiedAfter
235 = lens _tlModifiedAfter
235 (\ s a -> s{_tlModifiedAfter = a})
236 (\ s a -> s{_tlModifiedAfter = a})
237+ . mapping _DateTime
236
238
237-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
239-- | An RFC 3339 formatted date-time value (e.g. 1970-01-01T00:00:00Z).
238-- Returned assets will have been modified at or before this time.
240-- Returned assets will have been modified at or before this time.
@@ -240,6 +242,7 @@ tlModifiedBefore :: Lens' TablesList' (Maybe UTCTime)
240tlModifiedBefore
242tlModifiedBefore
241 = lens _tlModifiedBefore
243 = lens _tlModifiedBefore
242 (\ s a -> s{_tlModifiedBefore = a})
244 (\ s a -> s{_tlModifiedBefore = a})
245+ . mapping _DateTime
243
246
244-- | The continuation token, used to page through large result sets. To get
247-- | The continuation token, used to page through large result sets. To get
245-- the next page of results, set this parameter to the value of
248-- the next page of results, set this parameter to the value of
@@ -287,6 +290,7 @@ tlCreatedBefore :: Lens' TablesList' (Maybe UTCTime)
287tlCreatedBefore
290tlCreatedBefore
288 = lens _tlCreatedBefore
291 = lens _tlCreatedBefore
289 (\ s a -> s{_tlCreatedBefore = a})
292 (\ s a -> s{_tlCreatedBefore = a})
293+ . mapping _DateTime
290
294
291instance GoogleAuth TablesList' where
295instance GoogleAuth TablesList' where
292 authKey = tlKey . _Just
296 authKey = tlKey . _Just
gogol-mirror/gen/Network/Google/Mirror/Types/Product.hs+16−10
@@ -109,7 +109,7 @@ instance ToJSON LocationsListResponse where
109--
109--
110-- /See:/ 'notificationConfig' smart constructor.
110-- /See:/ 'notificationConfig' smart constructor.
111data NotificationConfig = NotificationConfig
111data NotificationConfig = NotificationConfig
112− { _ncDeliveryTime :: !(Maybe DateTime)
112+ { _ncDeliveryTime :: !(Maybe DateTime')
113 , _ncLevel :: !(Maybe Text)
113 , _ncLevel :: !(Maybe Text)
114 } deriving (Eq,Read,Show,Data,Typeable,Generic)
114 } deriving (Eq,Read,Show,Data,Typeable,Generic)
115
115
@@ -133,6 +133,7 @@ ncDeliveryTime :: Lens' NotificationConfig (Maybe UTCTime)
133ncDeliveryTime
133ncDeliveryTime
134 = lens _ncDeliveryTime
134 = lens _ncDeliveryTime
135 (\ s a -> s{_ncDeliveryTime = a})
135 (\ s a -> s{_ncDeliveryTime = a})
136+ . mapping _DateTime
136
137
137-- | Describes how important the notification is. Allowed values are: -
138-- | Describes how important the notification is. Allowed values are: -
138-- DEFAULT - Notifications of default importance. A chime will be played to
139-- DEFAULT - Notifications of default importance. A chime will be played to
@@ -165,7 +166,7 @@ data Location = Location
165 , _lId :: !(Maybe Text)
166 , _lId :: !(Maybe Text)
166 , _lAccuracy :: !(Maybe Double)
167 , _lAccuracy :: !(Maybe Double)
167 , _lLongitude :: !(Maybe Double)
168 , _lLongitude :: !(Maybe Double)
168− , _lTimestamp :: !(Maybe DateTime)
169+ , _lTimestamp :: !(Maybe DateTime')
169 } deriving (Eq,Read,Show,Data,Typeable,Generic)
170 } deriving (Eq,Read,Show,Data,Typeable,Generic)
170
171
171-- | Creates a value of 'Location' with the minimum fields required to make a request.
172-- | Creates a value of 'Location' with the minimum fields required to make a request.
@@ -238,7 +239,8 @@ lLongitude
238-- 3339.
239-- 3339.
239lTimestamp :: Lens' Location (Maybe UTCTime)
240lTimestamp :: Lens' Location (Maybe UTCTime)
240lTimestamp
241lTimestamp
241− = lens _lTimestamp (\ s a -> s{_lTimestamp = a})
242+ = lens _lTimestamp (\ s a -> s{_lTimestamp = a}) .
243+ mapping _DateTime
242
244
243instance FromJSON Location where
245instance FromJSON Location where
244 parseJSON
246 parseJSON
@@ -1259,7 +1261,7 @@ data Subscription = Subscription
1259 , _subVerifyToken :: !(Maybe Text)
1261 , _subVerifyToken :: !(Maybe Text)
1260 , _subUserToken :: !(Maybe Text)
1262 , _subUserToken :: !(Maybe Text)
1261 , _subId :: !(Maybe Text)
1263 , _subId :: !(Maybe Text)
1262− , _subUpdated :: !(Maybe DateTime)
1264+ , _subUpdated :: !(Maybe DateTime')
1263 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1265 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1264
1266
1265-- | Creates a value of 'Subscription' with the minimum fields required to make a request.
1267-- | Creates a value of 'Subscription' with the minimum fields required to make a request.
@@ -1356,7 +1358,8 @@ subId = lens _subId (\ s a -> s{_subId = a})
1356-- according to RFC 3339.
1358-- according to RFC 3339.
1357subUpdated :: Lens' Subscription (Maybe UTCTime)
1359subUpdated :: Lens' Subscription (Maybe UTCTime)
1358subUpdated
1360subUpdated
1359− = lens _subUpdated (\ s a -> s{_subUpdated = a})
1361+ = lens _subUpdated (\ s a -> s{_subUpdated = a}) .
1362+ mapping _DateTime
1360
1363
1361instance FromJSON Subscription where
1364instance FromJSON Subscription where
1362 parseJSON
1365 parseJSON
@@ -1393,7 +1396,7 @@ instance ToJSON Subscription where
1393-- /See:/ 'timelineItem' smart constructor.
1396-- /See:/ 'timelineItem' smart constructor.
1394data TimelineItem = TimelineItem
1397data TimelineItem = TimelineItem
1395 { _tiCreator :: !(Maybe Contact)
1398 { _tiCreator :: !(Maybe Contact)
1396− , _tiDisplayTime :: !(Maybe DateTime)
1399+ , _tiDisplayTime :: !(Maybe DateTime')
1397 , _tiEtag :: !(Maybe Text)
1400 , _tiEtag :: !(Maybe Text)
1398 , _tiIsDeleted :: !(Maybe Bool)
1401 , _tiIsDeleted :: !(Maybe Bool)
1399 , _tiPinScore :: !(Maybe Int32)
1402 , _tiPinScore :: !(Maybe Int32)
@@ -1403,7 +1406,7 @@ data TimelineItem = TimelineItem
1403 , _tiNotification :: !(Maybe NotificationConfig)
1406 , _tiNotification :: !(Maybe NotificationConfig)
1404 , _tiText :: !(Maybe Text)
1407 , _tiText :: !(Maybe Text)
1405 , _tiKind :: !Text
1408 , _tiKind :: !Text
1406− , _tiCreated :: !(Maybe DateTime)
1409+ , _tiCreated :: !(Maybe DateTime')
1407 , _tiSpeakableText :: !(Maybe Text)
1410 , _tiSpeakableText :: !(Maybe Text)
1408 , _tiIsBundleCover :: !(Maybe Bool)
1411 , _tiIsBundleCover :: !(Maybe Bool)
1409 , _tiSpeakableType :: !(Maybe Text)
1412 , _tiSpeakableType :: !(Maybe Text)
@@ -1414,7 +1417,7 @@ data TimelineItem = TimelineItem
1414 , _tiSourceItemId :: !(Maybe Text)
1417 , _tiSourceItemId :: !(Maybe Text)
1415 , _tiId :: !(Maybe Text)
1418 , _tiId :: !(Maybe Text)
1416 , _tiHTML :: !(Maybe Text)
1419 , _tiHTML :: !(Maybe Text)
1417− , _tiUpdated :: !(Maybe DateTime)
1420+ , _tiUpdated :: !(Maybe DateTime')
1418 , _tiRecipients :: !(Maybe [Contact])
1421 , _tiRecipients :: !(Maybe [Contact])
1419 , _tiTitle :: !(Maybe Text)
1422 , _tiTitle :: !(Maybe Text)
1420 , _tiInReplyTo :: !(Maybe Text)
1423 , _tiInReplyTo :: !(Maybe Text)
@@ -1521,6 +1524,7 @@ tiDisplayTime :: Lens' TimelineItem (Maybe UTCTime)
1521tiDisplayTime
1524tiDisplayTime
1522 = lens _tiDisplayTime
1525 = lens _tiDisplayTime
1523 (\ s a -> s{_tiDisplayTime = a})
1526 (\ s a -> s{_tiDisplayTime = a})
1527+ . mapping _DateTime
1524
1528
1525-- | ETag for this item.
1529-- | ETag for this item.
1526tiEtag :: Lens' TimelineItem (Maybe Text)
1530tiEtag :: Lens' TimelineItem (Maybe Text)
@@ -1584,7 +1588,8 @@ tiKind = lens _tiKind (\ s a -> s{_tiKind = a})
1584-- 3339.
1588-- 3339.
1585tiCreated :: Lens' TimelineItem (Maybe UTCTime)
1589tiCreated :: Lens' TimelineItem (Maybe UTCTime)
1586tiCreated
1590tiCreated
1587− = lens _tiCreated (\ s a -> s{_tiCreated = a})
1591+ = lens _tiCreated (\ s a -> s{_tiCreated = a}) .
1592+ mapping _DateTime
1588
1593
1589-- | The speakable version of the content of this item. Along with the
1594-- | The speakable version of the content of this item. Along with the
1590-- READ_ALOUD menu item, use this field to provide text that would be
1595-- READ_ALOUD menu item, use this field to provide text that would be
@@ -1683,7 +1688,8 @@ tiHTML = lens _tiHTML (\ s a -> s{_tiHTML = a})
1683-- RFC 3339.
1688-- RFC 3339.
1684tiUpdated :: Lens' TimelineItem (Maybe UTCTime)
1689tiUpdated :: Lens' TimelineItem (Maybe UTCTime)
1685tiUpdated
1690tiUpdated
1686− = lens _tiUpdated (\ s a -> s{_tiUpdated = a})
1691+ = lens _tiUpdated (\ s a -> s{_tiUpdated = a}) .
1692+ mapping _DateTime
1687
1693
1688-- | A list of users or groups that this item has been shared with.
1694-- | A list of users or groups that this item has been shared with.
1689tiRecipients :: Lens' TimelineItem [Contact]
1695tiRecipients :: Lens' TimelineItem [Contact]
gogol-monitoring/gen/Network/Google/Monitoring/Types/Product.hs+21−12
@@ -76,8 +76,8 @@ instance ToJSON MetricDescriptorTypeDescriptor where
76data ListTimeseriesResponse = ListTimeseriesResponse
76data ListTimeseriesResponse = ListTimeseriesResponse
77 { _ltrNextPageToken :: !(Maybe Text)
77 { _ltrNextPageToken :: !(Maybe Text)
78 , _ltrKind :: !Text
78 , _ltrKind :: !Text
79− , _ltrOldest :: !(Maybe DateTime)
79+ , _ltrOldest :: !(Maybe DateTime')
80− , _ltrYoungest :: !(Maybe DateTime)
80+ , _ltrYoungest :: !(Maybe DateTime')
81 , _ltrTimeseries :: !(Maybe [Timeseries])
81 , _ltrTimeseries :: !(Maybe [Timeseries])
82 } deriving (Eq,Read,Show,Data,Typeable,Generic)
82 } deriving (Eq,Read,Show,Data,Typeable,Generic)
83
83
@@ -124,13 +124,15 @@ ltrKind = lens _ltrKind (\ s a -> s{_ltrKind = a})
124-- string.
124-- string.
125ltrOldest :: Lens' ListTimeseriesResponse (Maybe UTCTime)
125ltrOldest :: Lens' ListTimeseriesResponse (Maybe UTCTime)
126ltrOldest
126ltrOldest
127− = lens _ltrOldest (\ s a -> s{_ltrOldest = a})
127+ = lens _ltrOldest (\ s a -> s{_ltrOldest = a}) .
128+ mapping _DateTime
128
129
129-- | The youngest timestamp of the interval of this query as an RFC 3339
130-- | The youngest timestamp of the interval of this query as an RFC 3339
130-- string.
131-- string.
131ltrYoungest :: Lens' ListTimeseriesResponse (Maybe UTCTime)
132ltrYoungest :: Lens' ListTimeseriesResponse (Maybe UTCTime)
132ltrYoungest
133ltrYoungest
133− = lens _ltrYoungest (\ s a -> s{_ltrYoungest = a})
134+ = lens _ltrYoungest (\ s a -> s{_ltrYoungest = a}) .
135+ mapping _DateTime
134
136
135-- | The returned time series.
137-- | The returned time series.
136ltrTimeseries :: Lens' ListTimeseriesResponse [Timeseries]
138ltrTimeseries :: Lens' ListTimeseriesResponse [Timeseries]
@@ -764,11 +766,11 @@ instance ToJSON PointDistribution where
764-- /See:/ 'point' smart constructor.
766-- /See:/ 'point' smart constructor.
765data Point = Point
767data Point = Point
766 { _pBoolValue :: !(Maybe Bool)
768 { _pBoolValue :: !(Maybe Bool)
767− , _pStart :: !(Maybe DateTime)
769+ , _pStart :: !(Maybe DateTime')
768 , _pDoubleValue :: !(Maybe Double)
770 , _pDoubleValue :: !(Maybe Double)
769 , _pStringValue :: !(Maybe Text)
771 , _pStringValue :: !(Maybe Text)
770 , _pDistributionValue :: !(Maybe PointDistribution)
772 , _pDistributionValue :: !(Maybe PointDistribution)
771− , _pEnd :: !(Maybe DateTime)
773+ , _pEnd :: !(Maybe DateTime')
772 , _pInt64Value :: !(Maybe Int64)
774 , _pInt64Value :: !(Maybe Int64)
773 } deriving (Eq,Read,Show,Data,Typeable,Generic)
775 } deriving (Eq,Read,Show,Data,Typeable,Generic)
774
776
@@ -813,7 +815,9 @@ pBoolValue
813-- metrics (of which deltas and rates are special cases), the interval
815-- metrics (of which deltas and rates are special cases), the interval
814-- should be non-empty. Both start and end are RFC 3339 strings.
816-- should be non-empty. Both start and end are RFC 3339 strings.
815pStart :: Lens' Point (Maybe UTCTime)
817pStart :: Lens' Point (Maybe UTCTime)
818+pStart
816−pStart = lens _pStart (\ s a -> s{_pStart = a})
819+ = lens _pStart (\ s a -> s{_pStart = a}) .
820+ mapping _DateTime
817
821
818-- | The value of this data point as a double-precision floating-point
822-- | The value of this data point as a double-precision floating-point
819-- number.
823-- number.
@@ -841,7 +845,9 @@ pDistributionValue
841-- metrics (of which deltas and rates are special cases), the interval
845-- metrics (of which deltas and rates are special cases), the interval
842-- should be non-empty. Both start and end are RFC 3339 strings.
846-- should be non-empty. Both start and end are RFC 3339 strings.
843pEnd :: Lens' Point (Maybe UTCTime)
847pEnd :: Lens' Point (Maybe UTCTime)
848+pEnd
844−pEnd = lens _pEnd (\ s a -> s{_pEnd = a})
849+ = lens _pEnd (\ s a -> s{_pEnd = a}) .
850+ mapping _DateTime
845
851
846-- | The value of this data point as a 64-bit integer.
852-- | The value of this data point as a 64-bit integer.
847pInt64Value :: Lens' Point (Maybe Int64)
853pInt64Value :: Lens' Point (Maybe Int64)
@@ -930,8 +936,8 @@ instance ToJSON PointDistributionOverflowBucket where
930data ListTimeseriesDescriptorsResponse = ListTimeseriesDescriptorsResponse
936data ListTimeseriesDescriptorsResponse = ListTimeseriesDescriptorsResponse
931 { _lNextPageToken :: !(Maybe Text)
937 { _lNextPageToken :: !(Maybe Text)
932 , _lKind :: !Text
938 , _lKind :: !Text
933− , _lOldest :: !(Maybe DateTime)
939+ , _lOldest :: !(Maybe DateTime')
934− , _lYoungest :: !(Maybe DateTime)
940+ , _lYoungest :: !(Maybe DateTime')
935 , _lTimeseries :: !(Maybe [TimeseriesDescriptor])
941 , _lTimeseries :: !(Maybe [TimeseriesDescriptor])
936 } deriving (Eq,Read,Show,Data,Typeable,Generic)
942 } deriving (Eq,Read,Show,Data,Typeable,Generic)
937
943
@@ -975,13 +981,16 @@ lKind = lens _lKind (\ s a -> s{_lKind = a})
975-- | The oldest timestamp of the interval of this query, as an RFC 3339
981-- | The oldest timestamp of the interval of this query, as an RFC 3339
976-- string.
982-- string.
977lOldest :: Lens' ListTimeseriesDescriptorsResponse (Maybe UTCTime)
983lOldest :: Lens' ListTimeseriesDescriptorsResponse (Maybe UTCTime)
984+lOldest
978−lOldest = lens _lOldest (\ s a -> s{_lOldest = a})
985+ = lens _lOldest (\ s a -> s{_lOldest = a}) .
986+ mapping _DateTime
979
987
980-- | The youngest timestamp of the interval of this query, as an RFC 3339
988-- | The youngest timestamp of the interval of this query, as an RFC 3339
981-- string.
989-- string.
982lYoungest :: Lens' ListTimeseriesDescriptorsResponse (Maybe UTCTime)
990lYoungest :: Lens' ListTimeseriesDescriptorsResponse (Maybe UTCTime)
983lYoungest
991lYoungest
984− = lens _lYoungest (\ s a -> s{_lYoungest = a})
992+ = lens _lYoungest (\ s a -> s{_lYoungest = a}) .
993+ mapping _DateTime
985
994
986-- | The returned time series descriptors.
995-- | The returned time series descriptors.
987lTimeseries :: Lens' ListTimeseriesDescriptorsResponse [TimeseriesDescriptor]
996lTimeseries :: Lens' ListTimeseriesDescriptorsResponse [TimeseriesDescriptor]
gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Product.hs+30−18
@@ -2259,7 +2259,7 @@ data Media = Media
2259 , _mVideoDuration :: !(Maybe Int64)
2259 , _mVideoDuration :: !(Maybe Int64)
2260 , _mVideoStatus :: !(Maybe Text)
2260 , _mVideoStatus :: !(Maybe Text)
2261 , _mKind :: !Text
2261 , _mKind :: !Text
2262− , _mPublished :: !(Maybe DateTime)
2262+ , _mPublished :: !(Maybe DateTime')
2263 , _mURL :: !(Maybe Text)
2263 , _mURL :: !(Maybe Text)
2264 , _mWidth :: !(Maybe Word32)
2264 , _mWidth :: !(Maybe Word32)
2265 , _mMediaURL :: !(Maybe Text)
2265 , _mMediaURL :: !(Maybe Text)
@@ -2268,8 +2268,8 @@ data Media = Media
2268 , _mDisplayName :: !(Maybe Text)
2268 , _mDisplayName :: !(Maybe Text)
2269 , _mAuthor :: !(Maybe MediaAuthor)
2269 , _mAuthor :: !(Maybe MediaAuthor)
2270 , _mId :: !(Maybe Text)
2270 , _mId :: !(Maybe Text)
2271− , _mUpdated :: !(Maybe DateTime)
2271+ , _mUpdated :: !(Maybe DateTime')
2272− , _mMediaCreatedTime :: !(Maybe DateTime)
2272+ , _mMediaCreatedTime :: !(Maybe DateTime')
2273 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2273 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2274
2274
2275-- | Creates a value of 'Media' with the minimum fields required to make a request.
2275-- | Creates a value of 'Media' with the minimum fields required to make a request.
@@ -2375,7 +2375,8 @@ mKind = lens _mKind (\ s a -> s{_mKind = a})
2375-- timestamp.
2375-- timestamp.
2376mPublished :: Lens' Media (Maybe UTCTime)
2376mPublished :: Lens' Media (Maybe UTCTime)
2377mPublished
2377mPublished
2378− = lens _mPublished (\ s a -> s{_mPublished = a})
2378+ = lens _mPublished (\ s a -> s{_mPublished = a}) .
2379+ mapping _DateTime
2379
2380
2380-- | The URL for the page that hosts this media.
2381-- | The URL for the page that hosts this media.
2381mURL :: Lens' Media (Maybe Text)
2382mURL :: Lens' Media (Maybe Text)
@@ -2419,7 +2420,9 @@ mId = lens _mId (\ s a -> s{_mId = a})
2419-- | The time at which this media was last updated. This includes changes to
2420-- | The time at which this media was last updated. This includes changes to
2420-- media metadata. Formatted as an RFC 3339 timestamp.
2421-- media metadata. Formatted as an RFC 3339 timestamp.
2421mUpdated :: Lens' Media (Maybe UTCTime)
2422mUpdated :: Lens' Media (Maybe UTCTime)
2423+mUpdated
2422−mUpdated = lens _mUpdated (\ s a -> s{_mUpdated = a})
2424+ = lens _mUpdated (\ s a -> s{_mUpdated = a}) .
2425+ mapping _DateTime
2423
2426
2424-- | The time at which this media was originally created in UTC. Formatted as
2427-- | The time at which this media was originally created in UTC. Formatted as
2425-- an RFC 3339 timestamp that matches this example:
2428-- an RFC 3339 timestamp that matches this example:
@@ -2428,6 +2431,7 @@ mMediaCreatedTime :: Lens' Media (Maybe UTCTime)
2428mMediaCreatedTime
2431mMediaCreatedTime
2429 = lens _mMediaCreatedTime
2432 = lens _mMediaCreatedTime
2430 (\ s a -> s{_mMediaCreatedTime = a})
2433 (\ s a -> s{_mMediaCreatedTime = a})
2434+ . mapping _DateTime
2431
2435
2432instance FromJSON Media where
2436instance FromJSON Media where
2433 parseJSON
2437 parseJSON
@@ -2551,7 +2555,7 @@ data ActivityFeed = ActivityFeed
2551 , _afItems :: !(Maybe [Activity])
2555 , _afItems :: !(Maybe [Activity])
2552 , _afSelfLink :: !(Maybe Text)
2556 , _afSelfLink :: !(Maybe Text)
2553 , _afId :: !(Maybe Text)
2557 , _afId :: !(Maybe Text)
2554− , _afUpdated :: !(Maybe DateTime)
2558+ , _afUpdated :: !(Maybe DateTime')
2555 , _afTitle :: !(Maybe Text)
2559 , _afTitle :: !(Maybe Text)
2556 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2560 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2557
2561
@@ -2632,7 +2636,8 @@ afId = lens _afId (\ s a -> s{_afId = a})
2632-- Formatted as an RFC 3339 timestamp.
2636-- Formatted as an RFC 3339 timestamp.
2633afUpdated :: Lens' ActivityFeed (Maybe UTCTime)
2637afUpdated :: Lens' ActivityFeed (Maybe UTCTime)
2634afUpdated
2638afUpdated
2635− = lens _afUpdated (\ s a -> s{_afUpdated = a})
2639+ = lens _afUpdated (\ s a -> s{_afUpdated = a}) .
2640+ mapping _DateTime
2636
2641
2637-- | The title of this collection of activities, which is a truncated portion
2642-- | The title of this collection of activities, which is a truncated portion
2638-- of the content.
2643-- of the content.
@@ -3212,13 +3217,13 @@ data Activity = Activity
3212 , _aaGeocode :: !(Maybe Text)
3217 , _aaGeocode :: !(Maybe Text)
3213 , _aaKind :: !Text
3218 , _aaKind :: !Text
3214 , _aaRadius :: !(Maybe Text)
3219 , _aaRadius :: !(Maybe Text)
3215− , _aaPublished :: !(Maybe DateTime)
3220+ , _aaPublished :: !(Maybe DateTime')
3216 , _aaURL :: !(Maybe Text)
3221 , _aaURL :: !(Maybe Text)
3217 , _aaActor :: !(Maybe ActivityActor)
3222 , _aaActor :: !(Maybe ActivityActor)
3218 , _aaAddress :: !(Maybe Text)
3223 , _aaAddress :: !(Maybe Text)
3219 , _aaObject :: !(Maybe ActivityObject)
3224 , _aaObject :: !(Maybe ActivityObject)
3220 , _aaId :: !(Maybe Text)
3225 , _aaId :: !(Maybe Text)
3221− , _aaUpdated :: !(Maybe DateTime)
3226+ , _aaUpdated :: !(Maybe DateTime')
3222 , _aaTitle :: !(Maybe Text)
3227 , _aaTitle :: !(Maybe Text)
3223 , _aaVerb :: !(Maybe Text)
3228 , _aaVerb :: !(Maybe Text)
3224 , _aaCrosspostSource :: !(Maybe Text)
3229 , _aaCrosspostSource :: !(Maybe Text)
@@ -3338,7 +3343,8 @@ aaRadius = lens _aaRadius (\ s a -> s{_aaRadius = a})
3338-- RFC 3339 timestamp.
3343-- RFC 3339 timestamp.
3339aaPublished :: Lens' Activity (Maybe UTCTime)
3344aaPublished :: Lens' Activity (Maybe UTCTime)
3340aaPublished
3345aaPublished
3341− = lens _aaPublished (\ s a -> s{_aaPublished = a})
3346+ = lens _aaPublished (\ s a -> s{_aaPublished = a}) .
3347+ mapping _DateTime
3342
3348
3343-- | The link to this activity.
3349-- | The link to this activity.
3344aaURL :: Lens' Activity (Maybe Text)
3350aaURL :: Lens' Activity (Maybe Text)
@@ -3365,7 +3371,8 @@ aaId = lens _aaId (\ s a -> s{_aaId = a})
3365-- 3339 timestamp.
3371-- 3339 timestamp.
3366aaUpdated :: Lens' Activity (Maybe UTCTime)
3372aaUpdated :: Lens' Activity (Maybe UTCTime)
3367aaUpdated
3373aaUpdated
3368− = lens _aaUpdated (\ s a -> s{_aaUpdated = a})
3374+ = lens _aaUpdated (\ s a -> s{_aaUpdated = a}) .
3375+ mapping _DateTime
3369
3376
3370-- | Title of this activity.
3377-- | Title of this activity.
3371aaTitle :: Lens' Activity (Maybe Text)
3378aaTitle :: Lens' Activity (Maybe Text)
@@ -3683,12 +3690,12 @@ data Comment = Comment
3683 { _comEtag :: !(Maybe Text)
3690 { _comEtag :: !(Maybe Text)
3684 , _comPlusoners :: !(Maybe CommentPlusoners)
3691 , _comPlusoners :: !(Maybe CommentPlusoners)
3685 , _comKind :: !Text
3692 , _comKind :: !Text
3686− , _comPublished :: !(Maybe DateTime)
3693+ , _comPublished :: !(Maybe DateTime')
3687 , _comActor :: !(Maybe CommentActor)
3694 , _comActor :: !(Maybe CommentActor)
3688 , _comSelfLink :: !(Maybe Text)
3695 , _comSelfLink :: !(Maybe Text)
3689 , _comObject :: !(Maybe CommentObject)
3696 , _comObject :: !(Maybe CommentObject)
3690 , _comId :: !(Maybe Text)
3697 , _comId :: !(Maybe Text)
3691− , _comUpdated :: !(Maybe DateTime)
3698+ , _comUpdated :: !(Maybe DateTime')
3692 , _comVerb :: !Text
3699 , _comVerb :: !Text
3693 , _comInReplyTo :: !(Maybe [CommentInReplyTo])
3700 , _comInReplyTo :: !(Maybe [CommentInReplyTo])
3694 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3701 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -3753,6 +3760,7 @@ comKind = lens _comKind (\ s a -> s{_comKind = a})
3753comPublished :: Lens' Comment (Maybe UTCTime)
3760comPublished :: Lens' Comment (Maybe UTCTime)
3754comPublished
3761comPublished
3755 = lens _comPublished (\ s a -> s{_comPublished = a})
3762 = lens _comPublished (\ s a -> s{_comPublished = a})
3763+ . mapping _DateTime
3756
3764
3757-- | The person who posted this comment.
3765-- | The person who posted this comment.
3758comActor :: Lens' Comment (Maybe CommentActor)
3766comActor :: Lens' Comment (Maybe CommentActor)
@@ -3776,7 +3784,8 @@ comId = lens _comId (\ s a -> s{_comId = a})
3776-- 3339 timestamp.
3784-- 3339 timestamp.
3777comUpdated :: Lens' Comment (Maybe UTCTime)
3785comUpdated :: Lens' Comment (Maybe UTCTime)
3778comUpdated
3786comUpdated
3779− = lens _comUpdated (\ s a -> s{_comUpdated = a})
3787+ = lens _comUpdated (\ s a -> s{_comUpdated = a}) .
3788+ mapping _DateTime
3780
3789
3781-- | This comment\'s verb, indicating what action was performed. Possible
3790-- | This comment\'s verb, indicating what action was performed. Possible
3782-- values are: - \"post\" - Publish content to the stream.
3791-- values are: - \"post\" - Publish content to the stream.
@@ -4118,7 +4127,7 @@ instance ToJSON ACL where
4118--
4127--
4119-- /See:/ 'mediaExif' smart constructor.
4128-- /See:/ 'mediaExif' smart constructor.
4120newtype MediaExif = MediaExif
4129newtype MediaExif = MediaExif
4121− { _meTime :: Maybe DateTime
4130+ { _meTime :: Maybe DateTime'
4122 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4131 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4123
4132
4124-- | Creates a value of 'MediaExif' with the minimum fields required to make a request.
4133-- | Creates a value of 'MediaExif' with the minimum fields required to make a request.
@@ -4135,7 +4144,9 @@ mediaExif =
4135
4144
4136-- | The time the media was captured. Formatted as an RFC 3339 timestamp.
4145-- | The time the media was captured. Formatted as an RFC 3339 timestamp.
4137meTime :: Lens' MediaExif (Maybe UTCTime)
4146meTime :: Lens' MediaExif (Maybe UTCTime)
4147+meTime
4138−meTime = lens _meTime (\ s a -> s{_meTime = a})
4148+ = lens _meTime (\ s a -> s{_meTime = a}) .
4149+ mapping _DateTime
4139
4150
4140instance FromJSON MediaExif where
4151instance FromJSON MediaExif where
4141 parseJSON
4152 parseJSON
@@ -4155,7 +4166,7 @@ data CommentFeed = CommentFeed
4155 , _cffKind :: !Text
4166 , _cffKind :: !Text
4156 , _cffItems :: !(Maybe [Comment])
4167 , _cffItems :: !(Maybe [Comment])
4157 , _cffId :: !(Maybe Text)
4168 , _cffId :: !(Maybe Text)
4158− , _cffUpdated :: !(Maybe DateTime)
4169+ , _cffUpdated :: !(Maybe DateTime')
4159 , _cffTitle :: !(Maybe Text)
4170 , _cffTitle :: !(Maybe Text)
4160 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4171 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4161
4172
@@ -4229,7 +4240,8 @@ cffId = lens _cffId (\ s a -> s{_cffId = a})
4229-- Formatted as an RFC 3339 timestamp.
4240-- Formatted as an RFC 3339 timestamp.
4230cffUpdated :: Lens' CommentFeed (Maybe UTCTime)
4241cffUpdated :: Lens' CommentFeed (Maybe UTCTime)
4231cffUpdated
4242cffUpdated
4232− = lens _cffUpdated (\ s a -> s{_cffUpdated = a})
4243+ = lens _cffUpdated (\ s a -> s{_cffUpdated = a}) .
4244+ mapping _DateTime
4233
4245
4234-- | The title of this collection of comments.
4246-- | The title of this collection of comments.
4235cffTitle :: Lens' CommentFeed (Maybe Text)
4247cffTitle :: Lens' CommentFeed (Maybe Text)
gogol-plus/gen/Network/Google/Plus/Types/Product.hs+25−16
@@ -1155,7 +1155,7 @@ instance ToJSON CommentActor where
1155data Moment = Moment
1155data Moment = Moment
1156 { _mKind :: !Text
1156 { _mKind :: !Text
1157 , _mResult :: !(Maybe ItemScope)
1157 , _mResult :: !(Maybe ItemScope)
1158− , _mStartDate :: !(Maybe DateTime)
1158+ , _mStartDate :: !(Maybe DateTime')
1159 , _mObject :: !(Maybe ItemScope)
1159 , _mObject :: !(Maybe ItemScope)
1160 , _mId :: !(Maybe Text)
1160 , _mId :: !(Maybe Text)
1161 , _mType :: !(Maybe Text)
1161 , _mType :: !(Maybe Text)
@@ -1205,7 +1205,8 @@ mResult = lens _mResult (\ s a -> s{_mResult = a})
1205-- | Time stamp of when the action occurred in RFC3339 format.
1205-- | Time stamp of when the action occurred in RFC3339 format.
1206mStartDate :: Lens' Moment (Maybe UTCTime)
1206mStartDate :: Lens' Moment (Maybe UTCTime)
1207mStartDate
1207mStartDate
1208− = lens _mStartDate (\ s a -> s{_mStartDate = a})
1208+ = lens _mStartDate (\ s a -> s{_mStartDate = a}) .
1209+ mapping _DateTime
1209
1210
1210-- | The object on which the action was performed. Specifying this is
1211-- | The object on which the action was performed. Specifying this is
1211-- equivalent with specifying \"target\". Note that responses from the
1212-- equivalent with specifying \"target\". Note that responses from the
@@ -2568,7 +2569,7 @@ data ActivityFeed = ActivityFeed
2568 , _afItems :: !(Maybe [Activity])
2569 , _afItems :: !(Maybe [Activity])
2569 , _afSelfLink :: !(Maybe Text)
2570 , _afSelfLink :: !(Maybe Text)
2570 , _afId :: !(Maybe Text)
2571 , _afId :: !(Maybe Text)
2571− , _afUpdated :: !(Maybe DateTime)
2572+ , _afUpdated :: !(Maybe DateTime')
2572 , _afTitle :: !(Maybe Text)
2573 , _afTitle :: !(Maybe Text)
2573 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2574 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2574
2575
@@ -2649,7 +2650,8 @@ afId = lens _afId (\ s a -> s{_afId = a})
2649-- Formatted as an RFC 3339 timestamp.
2650-- Formatted as an RFC 3339 timestamp.
2650afUpdated :: Lens' ActivityFeed (Maybe UTCTime)
2651afUpdated :: Lens' ActivityFeed (Maybe UTCTime)
2651afUpdated
2652afUpdated
2652− = lens _afUpdated (\ s a -> s{_afUpdated = a})
2653+ = lens _afUpdated (\ s a -> s{_afUpdated = a}) .
2654+ mapping _DateTime
2653
2655
2654-- | The title of this collection of activities, which is a truncated portion
2656-- | The title of this collection of activities, which is a truncated portion
2655-- of the content.
2657-- of the content.
@@ -3121,13 +3123,13 @@ data Activity = Activity
3121 , _aaGeocode :: !(Maybe Text)
3123 , _aaGeocode :: !(Maybe Text)
3122 , _aaKind :: !Text
3124 , _aaKind :: !Text
3123 , _aaRadius :: !(Maybe Text)
3125 , _aaRadius :: !(Maybe Text)
3124− , _aaPublished :: !(Maybe DateTime)
3126+ , _aaPublished :: !(Maybe DateTime')
3125 , _aaURL :: !(Maybe Text)
3127 , _aaURL :: !(Maybe Text)
3126 , _aaActor :: !(Maybe ActivityActor)
3128 , _aaActor :: !(Maybe ActivityActor)
3127 , _aaAddress :: !(Maybe Text)
3129 , _aaAddress :: !(Maybe Text)
3128 , _aaObject :: !(Maybe ActivityObject)
3130 , _aaObject :: !(Maybe ActivityObject)
3129 , _aaId :: !(Maybe Text)
3131 , _aaId :: !(Maybe Text)
3130− , _aaUpdated :: !(Maybe DateTime)
3132+ , _aaUpdated :: !(Maybe DateTime')
3131 , _aaTitle :: !(Maybe Text)
3133 , _aaTitle :: !(Maybe Text)
3132 , _aaVerb :: !(Maybe Text)
3134 , _aaVerb :: !(Maybe Text)
3133 , _aaCrosspostSource :: !(Maybe Text)
3135 , _aaCrosspostSource :: !(Maybe Text)
@@ -3247,7 +3249,8 @@ aaRadius = lens _aaRadius (\ s a -> s{_aaRadius = a})
3247-- RFC 3339 timestamp.
3249-- RFC 3339 timestamp.
3248aaPublished :: Lens' Activity (Maybe UTCTime)
3250aaPublished :: Lens' Activity (Maybe UTCTime)
3249aaPublished
3251aaPublished
3250− = lens _aaPublished (\ s a -> s{_aaPublished = a})
3252+ = lens _aaPublished (\ s a -> s{_aaPublished = a}) .
3253+ mapping _DateTime
3251
3254
3252-- | The link to this activity.
3255-- | The link to this activity.
3253aaURL :: Lens' Activity (Maybe Text)
3256aaURL :: Lens' Activity (Maybe Text)
@@ -3274,7 +3277,8 @@ aaId = lens _aaId (\ s a -> s{_aaId = a})
3274-- 3339 timestamp.
3277-- 3339 timestamp.
3275aaUpdated :: Lens' Activity (Maybe UTCTime)
3278aaUpdated :: Lens' Activity (Maybe UTCTime)
3276aaUpdated
3279aaUpdated
3277− = lens _aaUpdated (\ s a -> s{_aaUpdated = a})
3280+ = lens _aaUpdated (\ s a -> s{_aaUpdated = a}) .
3281+ mapping _DateTime
3278
3282
3279-- | Title of this activity.
3283-- | Title of this activity.
3280aaTitle :: Lens' Activity (Maybe Text)
3284aaTitle :: Lens' Activity (Maybe Text)
@@ -3592,12 +3596,12 @@ data Comment = Comment
3592 { _cEtag :: !(Maybe Text)
3596 { _cEtag :: !(Maybe Text)
3593 , _cPlusoners :: !(Maybe CommentPlusoners)
3597 , _cPlusoners :: !(Maybe CommentPlusoners)
3594 , _cKind :: !Text
3598 , _cKind :: !Text
3595− , _cPublished :: !(Maybe DateTime)
3599+ , _cPublished :: !(Maybe DateTime')
3596 , _cActor :: !(Maybe CommentActor)
3600 , _cActor :: !(Maybe CommentActor)
3597 , _cSelfLink :: !(Maybe Text)
3601 , _cSelfLink :: !(Maybe Text)
3598 , _cObject :: !(Maybe CommentObject)
3602 , _cObject :: !(Maybe CommentObject)
3599 , _cId :: !(Maybe Text)
3603 , _cId :: !(Maybe Text)
3600− , _cUpdated :: !(Maybe DateTime)
3604+ , _cUpdated :: !(Maybe DateTime')
3601 , _cVerb :: !Text
3605 , _cVerb :: !Text
3602 , _cInReplyTo :: !(Maybe [CommentInReplyTo])
3606 , _cInReplyTo :: !(Maybe [CommentInReplyTo])
3603 } deriving (Eq,Read,Show,Data,Typeable,Generic)
3607 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -3661,7 +3665,8 @@ cKind = lens _cKind (\ s a -> s{_cKind = a})
3661-- RFC 3339 timestamp.
3665-- RFC 3339 timestamp.
3662cPublished :: Lens' Comment (Maybe UTCTime)
3666cPublished :: Lens' Comment (Maybe UTCTime)
3663cPublished
3667cPublished
3664− = lens _cPublished (\ s a -> s{_cPublished = a})
3668+ = lens _cPublished (\ s a -> s{_cPublished = a}) .
3669+ mapping _DateTime
3665
3670
3666-- | The person who posted this comment.
3671-- | The person who posted this comment.
3667cActor :: Lens' Comment (Maybe CommentActor)
3672cActor :: Lens' Comment (Maybe CommentActor)
@@ -3683,7 +3688,9 @@ cId = lens _cId (\ s a -> s{_cId = a})
3683-- | The time at which this comment was last updated. Formatted as an RFC
3688-- | The time at which this comment was last updated. Formatted as an RFC
3684-- 3339 timestamp.
3689-- 3339 timestamp.
3685cUpdated :: Lens' Comment (Maybe UTCTime)
3690cUpdated :: Lens' Comment (Maybe UTCTime)
3691+cUpdated
3686−cUpdated = lens _cUpdated (\ s a -> s{_cUpdated = a})
3692+ = lens _cUpdated (\ s a -> s{_cUpdated = a}) .
3693+ mapping _DateTime
3687
3694
3688-- | This comment\'s verb, indicating what action was performed. Possible
3695-- | This comment\'s verb, indicating what action was performed. Possible
3689-- values are: - \"post\" - Publish content to the stream.
3696-- values are: - \"post\" - Publish content to the stream.
@@ -4015,7 +4022,7 @@ data MomentsFeed = MomentsFeed
4015 , _mfKind :: !Text
4022 , _mfKind :: !Text
4016 , _mfItems :: !(Maybe [Moment])
4023 , _mfItems :: !(Maybe [Moment])
4017 , _mfSelfLink :: !(Maybe Text)
4024 , _mfSelfLink :: !(Maybe Text)
4018− , _mfUpdated :: !(Maybe DateTime)
4025+ , _mfUpdated :: !(Maybe DateTime')
4019 , _mfTitle :: !(Maybe Text)
4026 , _mfTitle :: !(Maybe Text)
4020 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4027 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4021
4028
@@ -4089,7 +4096,8 @@ mfSelfLink
4089-- updated.
4096-- updated.
4090mfUpdated :: Lens' MomentsFeed (Maybe UTCTime)
4097mfUpdated :: Lens' MomentsFeed (Maybe UTCTime)
4091mfUpdated
4098mfUpdated
4092− = lens _mfUpdated (\ s a -> s{_mfUpdated = a})
4099+ = lens _mfUpdated (\ s a -> s{_mfUpdated = a}) .
4100+ mapping _DateTime
4093
4101
4094-- | The title of this collection of moments.
4102-- | The title of this collection of moments.
4095mfTitle :: Lens' MomentsFeed (Maybe Text)
4103mfTitle :: Lens' MomentsFeed (Maybe Text)
@@ -4129,7 +4137,7 @@ data CommentFeed = CommentFeed
4129 , _cfKind :: !Text
4137 , _cfKind :: !Text
4130 , _cfItems :: !(Maybe [Comment])
4138 , _cfItems :: !(Maybe [Comment])
4131 , _cfId :: !(Maybe Text)
4139 , _cfId :: !(Maybe Text)
4132− , _cfUpdated :: !(Maybe DateTime)
4140+ , _cfUpdated :: !(Maybe DateTime')
4133 , _cfTitle :: !(Maybe Text)
4141 , _cfTitle :: !(Maybe Text)
4134 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4142 } deriving (Eq,Read,Show,Data,Typeable,Generic)
4135
4143
@@ -4202,7 +4210,8 @@ cfId = lens _cfId (\ s a -> s{_cfId = a})
4202-- Formatted as an RFC 3339 timestamp.
4210-- Formatted as an RFC 3339 timestamp.
4203cfUpdated :: Lens' CommentFeed (Maybe UTCTime)
4211cfUpdated :: Lens' CommentFeed (Maybe UTCTime)
4204cfUpdated
4212cfUpdated
4205− = lens _cfUpdated (\ s a -> s{_cfUpdated = a})
4213+ = lens _cfUpdated (\ s a -> s{_cfUpdated = a}) .
4214+ mapping _DateTime
4206
4215
4207-- | The title of this collection of comments.
4216-- | The title of this collection of comments.
4208cfTitle :: Lens' CommentFeed (Maybe Text)
4217cfTitle :: Lens' CommentFeed (Maybe Text)
gogol-prediction/gen/Network/Google/Prediction/Types/Product.hs+5−3
@@ -368,8 +368,8 @@ data Insert2 = Insert2
368 { _insStorageDataLocation :: !(Maybe Text)
368 { _insStorageDataLocation :: !(Maybe Text)
369 , _insModelType :: !(Maybe Text)
369 , _insModelType :: !(Maybe Text)
370 , _insKind :: !Text
370 , _insKind :: !Text
371− , _insCreated :: !(Maybe DateTime)
371+ , _insCreated :: !(Maybe DateTime')
372− , _insTrainingComplete :: !(Maybe DateTime)
372+ , _insTrainingComplete :: !(Maybe DateTime')
373 , _insSelfLink :: !(Maybe Text)
373 , _insSelfLink :: !(Maybe Text)
374 , _insTrainingStatus :: !(Maybe Text)
374 , _insTrainingStatus :: !(Maybe Text)
375 , _insStoragePMMLModelLocation :: !(Maybe Text)
375 , _insStoragePMMLModelLocation :: !(Maybe Text)
@@ -438,13 +438,15 @@ insKind = lens _insKind (\ s a -> s{_insKind = a})
438-- | Insert time of the model (as a RFC 3339 timestamp).
438-- | Insert time of the model (as a RFC 3339 timestamp).
439insCreated :: Lens' Insert2 (Maybe UTCTime)
439insCreated :: Lens' Insert2 (Maybe UTCTime)
440insCreated
440insCreated
441− = lens _insCreated (\ s a -> s{_insCreated = a})
441+ = lens _insCreated (\ s a -> s{_insCreated = a}) .
442+ mapping _DateTime
442
443
443-- | Training completion time (as a RFC 3339 timestamp).
444-- | Training completion time (as a RFC 3339 timestamp).
444insTrainingComplete :: Lens' Insert2 (Maybe UTCTime)
445insTrainingComplete :: Lens' Insert2 (Maybe UTCTime)
445insTrainingComplete
446insTrainingComplete
446 = lens _insTrainingComplete
447 = lens _insTrainingComplete
447 (\ s a -> s{_insTrainingComplete = a})
448 (\ s a -> s{_insTrainingComplete = a})
449+ . mapping _DateTime
448
450
449-- | A URL to re-request this resource.
451-- | A URL to re-request this resource.
450insSelfLink :: Lens' Insert2 (Maybe Text)
452insSelfLink :: Lens' Insert2 (Maybe Text)
gogol-sqladmin/gen/Network/Google/SQLAdmin/Types/Product.hs+28−16
@@ -28,8 +28,8 @@ data SSLCert = SSLCert
28 , _scSelfLink :: !(Maybe Text)
28 , _scSelfLink :: !(Maybe Text)
29 , _scCert :: !(Maybe Text)
29 , _scCert :: !(Maybe Text)
30 , _scSha1Fingerprint :: !(Maybe Text)
30 , _scSha1Fingerprint :: !(Maybe Text)
31− , _scExpirationTime :: !(Maybe DateTime)
31+ , _scExpirationTime :: !(Maybe DateTime')
32− , _scCreateTime :: !(Maybe DateTime)
32+ , _scCreateTime :: !(Maybe DateTime')
33 , _scInstance :: !(Maybe Text)
33 , _scInstance :: !(Maybe Text)
34 } deriving (Eq,Read,Show,Data,Typeable,Generic)
34 } deriving (Eq,Read,Show,Data,Typeable,Generic)
35
35
@@ -105,12 +105,14 @@ scExpirationTime :: Lens' SSLCert (Maybe UTCTime)
105scExpirationTime
105scExpirationTime
106 = lens _scExpirationTime
106 = lens _scExpirationTime
107 (\ s a -> s{_scExpirationTime = a})
107 (\ s a -> s{_scExpirationTime = a})
108+ . mapping _DateTime
108
109
109-- | The time when the certificate was created in RFC 3339 format, for
110-- | The time when the certificate was created in RFC 3339 format, for
110-- example 2012-11-15T16:19:00.094Z
111-- example 2012-11-15T16:19:00.094Z
111scCreateTime :: Lens' SSLCert (Maybe UTCTime)
112scCreateTime :: Lens' SSLCert (Maybe UTCTime)
112scCreateTime
113scCreateTime
113 = lens _scCreateTime (\ s a -> s{_scCreateTime = a})
114 = lens _scCreateTime (\ s a -> s{_scCreateTime = a})
115+ . mapping _DateTime
114
116
115-- | Name of the database instance.
117-- | Name of the database instance.
116scInstance :: Lens' SSLCert (Maybe Text)
118scInstance :: Lens' SSLCert (Maybe Text)
@@ -781,7 +783,7 @@ instance ToJSON Database where
781-- /See:/ 'ipMapping' smart constructor.
783-- /See:/ 'ipMapping' smart constructor.
782data IPMapping = IPMapping
784data IPMapping = IPMapping
783 { _imIPAddress :: !(Maybe Text)
785 { _imIPAddress :: !(Maybe Text)
784− , _imTimeToRetire :: !(Maybe DateTime)
786+ , _imTimeToRetire :: !(Maybe DateTime')
785 } deriving (Eq,Read,Show,Data,Typeable,Generic)
787 } deriving (Eq,Read,Show,Data,Typeable,Generic)
786
788
787-- | Creates a value of 'IPMapping' with the minimum fields required to make a request.
789-- | Creates a value of 'IPMapping' with the minimum fields required to make a request.
@@ -811,6 +813,7 @@ imTimeToRetire :: Lens' IPMapping (Maybe UTCTime)
811imTimeToRetire
813imTimeToRetire
812 = lens _imTimeToRetire
814 = lens _imTimeToRetire
813 (\ s a -> s{_imTimeToRetire = a})
815 (\ s a -> s{_imTimeToRetire = a})
816+ . mapping _DateTime
814
817
815instance FromJSON IPMapping where
818instance FromJSON IPMapping where
816 parseJSON
819 parseJSON
@@ -836,16 +839,16 @@ data Operation = Operation
836 { _oTargetId :: !(Maybe Text)
839 { _oTargetId :: !(Maybe Text)
837 , _oTargetProject :: !(Maybe Text)
840 , _oTargetProject :: !(Maybe Text)
838 , _oStatus :: !(Maybe Text)
841 , _oStatus :: !(Maybe Text)
839− , _oInsertTime :: !(Maybe DateTime)
842+ , _oInsertTime :: !(Maybe DateTime')
840 , _oImportContext :: !(Maybe ImportContext)
843 , _oImportContext :: !(Maybe ImportContext)
841− , _oStartTime :: !(Maybe DateTime)
844+ , _oStartTime :: !(Maybe DateTime')
842 , _oKind :: !Text
845 , _oKind :: !Text
843 , _oError :: !(Maybe OperationErrors)
846 , _oError :: !(Maybe OperationErrors)
844 , _oExportContext :: !(Maybe ExportContext)
847 , _oExportContext :: !(Maybe ExportContext)
845 , _oUser :: !(Maybe Text)
848 , _oUser :: !(Maybe Text)
846 , _oSelfLink :: !(Maybe Text)
849 , _oSelfLink :: !(Maybe Text)
847 , _oName :: !(Maybe Text)
850 , _oName :: !(Maybe Text)
848− , _oEndTime :: !(Maybe DateTime)
851+ , _oEndTime :: !(Maybe DateTime')
849 , _oOperationType :: !(Maybe Text)
852 , _oOperationType :: !(Maybe Text)
850 , _oTargetLink :: !(Maybe Text)
853 , _oTargetLink :: !(Maybe Text)
851 } deriving (Eq,Read,Show,Data,Typeable,Generic)
854 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -924,7 +927,8 @@ oStatus = lens _oStatus (\ s a -> s{_oStatus = a})
924-- for example 2012-11-15T16:19:00.094Z.
927-- for example 2012-11-15T16:19:00.094Z.
925oInsertTime :: Lens' Operation (Maybe UTCTime)
928oInsertTime :: Lens' Operation (Maybe UTCTime)
926oInsertTime
929oInsertTime
927− = lens _oInsertTime (\ s a -> s{_oInsertTime = a})
930+ = lens _oInsertTime (\ s a -> s{_oInsertTime = a}) .
931+ mapping _DateTime
928
932
929-- | The context for import operation, if applicable.
933-- | The context for import operation, if applicable.
930oImportContext :: Lens' Operation (Maybe ImportContext)
934oImportContext :: Lens' Operation (Maybe ImportContext)
@@ -936,7 +940,8 @@ oImportContext
936-- format, for example 2012-11-15T16:19:00.094Z.
940-- format, for example 2012-11-15T16:19:00.094Z.
937oStartTime :: Lens' Operation (Maybe UTCTime)
941oStartTime :: Lens' Operation (Maybe UTCTime)
938oStartTime
942oStartTime
939− = lens _oStartTime (\ s a -> s{_oStartTime = a})
943+ = lens _oStartTime (\ s a -> s{_oStartTime = a}) .
944+ mapping _DateTime
940
945
941-- | This is always sql#operation.
946-- | This is always sql#operation.
942oKind :: Lens' Operation Text
947oKind :: Lens' Operation Text
@@ -971,7 +976,9 @@ oName = lens _oName (\ s a -> s{_oName = a})
971-- | The time this operation finished in UTC timezone in RFC 3339 format, for
976-- | The time this operation finished in UTC timezone in RFC 3339 format, for
972-- example 2012-11-15T16:19:00.094Z.
977-- example 2012-11-15T16:19:00.094Z.
973oEndTime :: Lens' Operation (Maybe UTCTime)
978oEndTime :: Lens' Operation (Maybe UTCTime)
979+oEndTime
974−oEndTime = lens _oEndTime (\ s a -> s{_oEndTime = a})
980+ = lens _oEndTime (\ s a -> s{_oEndTime = a}) .
981+ mapping _DateTime
975
982
976-- | The type of the operation. Valid values are CREATE, DELETE, UPDATE,
983-- | The type of the operation. Valid values are CREATE, DELETE, UPDATE,
977-- RESTART, IMPORT, EXPORT, BACKUP_VOLUME, RESTORE_VOLUME, CREATE_USER,
984-- RESTART, IMPORT, EXPORT, BACKUP_VOLUME, RESTORE_VOLUME, CREATE_USER,
@@ -2142,14 +2149,14 @@ instance ToJSON CloneContext where
2142-- /See:/ 'backupRun' smart constructor.
2149-- /See:/ 'backupRun' smart constructor.
2143data BackupRun = BackupRun
2150data BackupRun = BackupRun
2144 { _brStatus :: !(Maybe Text)
2151 { _brStatus :: !(Maybe Text)
2145− , _brStartTime :: !(Maybe DateTime)
2152+ , _brStartTime :: !(Maybe DateTime')
2146 , _brKind :: !Text
2153 , _brKind :: !Text
2147 , _brError :: !(Maybe OperationError)
2154 , _brError :: !(Maybe OperationError)
2148− , _brWindowStartTime :: !(Maybe DateTime)
2155+ , _brWindowStartTime :: !(Maybe DateTime')
2149 , _brSelfLink :: !(Maybe Text)
2156 , _brSelfLink :: !(Maybe Text)
2150− , _brEndTime :: !(Maybe DateTime)
2157+ , _brEndTime :: !(Maybe DateTime')
2151 , _brId :: !(Maybe Int64)
2158 , _brId :: !(Maybe Int64)
2152− , _brEnqueuedTime :: !(Maybe DateTime)
2159+ , _brEnqueuedTime :: !(Maybe DateTime')
2153 , _brInstance :: !(Maybe Text)
2160 , _brInstance :: !(Maybe Text)
2154 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2161 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2155
2162
@@ -2200,7 +2207,8 @@ brStatus = lens _brStatus (\ s a -> s{_brStatus = a})
2200-- 3339 format, for example 2012-11-15T16:19:00.094Z.
2207-- 3339 format, for example 2012-11-15T16:19:00.094Z.
2201brStartTime :: Lens' BackupRun (Maybe UTCTime)
2208brStartTime :: Lens' BackupRun (Maybe UTCTime)
2202brStartTime
2209brStartTime
2203− = lens _brStartTime (\ s a -> s{_brStartTime = a})
2210+ = lens _brStartTime (\ s a -> s{_brStartTime = a}) .
2211+ mapping _DateTime
2204
2212
2205-- | This is always sql#backupRun.
2213-- | This is always sql#backupRun.
2206brKind :: Lens' BackupRun Text
2214brKind :: Lens' BackupRun Text
@@ -2217,6 +2225,7 @@ brWindowStartTime :: Lens' BackupRun (Maybe UTCTime)
2217brWindowStartTime
2225brWindowStartTime
2218 = lens _brWindowStartTime
2226 = lens _brWindowStartTime
2219 (\ s a -> s{_brWindowStartTime = a})
2227 (\ s a -> s{_brWindowStartTime = a})
2228+ . mapping _DateTime
2220
2229
2221-- | The URI of this resource.
2230-- | The URI of this resource.
2222brSelfLink :: Lens' BackupRun (Maybe Text)
2231brSelfLink :: Lens' BackupRun (Maybe Text)
@@ -2227,7 +2236,8 @@ brSelfLink
2227-- format, for example 2012-11-15T16:19:00.094Z.
2236-- format, for example 2012-11-15T16:19:00.094Z.
2228brEndTime :: Lens' BackupRun (Maybe UTCTime)
2237brEndTime :: Lens' BackupRun (Maybe UTCTime)
2229brEndTime
2238brEndTime
2230− = lens _brEndTime (\ s a -> s{_brEndTime = a})
2239+ = lens _brEndTime (\ s a -> s{_brEndTime = a}) .
2240+ mapping _DateTime
2231
2241
2232-- | A unique identifier for this backup run. Note that this is unique only
2242-- | A unique identifier for this backup run. Note that this is unique only
2233-- within the scope of a particular Cloud SQL instance.
2243-- within the scope of a particular Cloud SQL instance.
@@ -2240,6 +2250,7 @@ brEnqueuedTime :: Lens' BackupRun (Maybe UTCTime)
2240brEnqueuedTime
2250brEnqueuedTime
2241 = lens _brEnqueuedTime
2251 = lens _brEnqueuedTime
2242 (\ s a -> s{_brEnqueuedTime = a})
2252 (\ s a -> s{_brEnqueuedTime = a})
2253+ . mapping _DateTime
2243
2254
2244-- | Name of the database instance.
2255-- | Name of the database instance.
2245brInstance :: Lens' BackupRun (Maybe Text)
2256brInstance :: Lens' BackupRun (Maybe Text)
@@ -2281,7 +2292,7 @@ data ACLEntry = ACLEntry
2281 { _aeKind :: !Text
2292 { _aeKind :: !Text
2282 , _aeValue :: !(Maybe Text)
2293 , _aeValue :: !(Maybe Text)
2283 , _aeName :: !(Maybe Text)
2294 , _aeName :: !(Maybe Text)
2284− , _aeExpirationTime :: !(Maybe DateTime)
2295+ , _aeExpirationTime :: !(Maybe DateTime')
2285 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2296 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2286
2297
2287-- | Creates a value of 'ACLEntry' with the minimum fields required to make a request.
2298-- | Creates a value of 'ACLEntry' with the minimum fields required to make a request.
@@ -2323,6 +2334,7 @@ aeExpirationTime :: Lens' ACLEntry (Maybe UTCTime)
2323aeExpirationTime
2334aeExpirationTime
2324 = lens _aeExpirationTime
2335 = lens _aeExpirationTime
2325 (\ s a -> s{_aeExpirationTime = a})
2336 (\ s a -> s{_aeExpirationTime = a})
2337+ . mapping _DateTime
2326
2338
2327instance FromJSON ACLEntry where
2339instance FromJSON ACLEntry where
2328 parseJSON
2340 parseJSON
gogol-storage/gen/Network/Google/Storage/Types/Product.hs+10−6
@@ -275,7 +275,7 @@ data BucketLifecycleRuleCondition = BucketLifecycleRuleCondition
275 { _blrcAge :: !(Maybe Int32)
275 { _blrcAge :: !(Maybe Int32)
276 , _blrcIsLive :: !(Maybe Bool)
276 , _blrcIsLive :: !(Maybe Bool)
277 , _blrcNumNewerVersions :: !(Maybe Int32)
277 , _blrcNumNewerVersions :: !(Maybe Int32)
278− , _blrcCreatedBefore :: !(Maybe Date)
278+ , _blrcCreatedBefore :: !(Maybe Date')
279 } deriving (Eq,Read,Show,Data,Typeable,Generic)
279 } deriving (Eq,Read,Show,Data,Typeable,Generic)
280
280
281-- | Creates a value of 'BucketLifecycleRuleCondition' with the minimum fields required to make a request.
281-- | Creates a value of 'BucketLifecycleRuleCondition' with the minimum fields required to make a request.
@@ -322,10 +322,11 @@ blrcNumNewerVersions
322-- | A date in RFC 3339 format with only the date part, e.g. \"2013-01-15\".
322-- | A date in RFC 3339 format with only the date part, e.g. \"2013-01-15\".
323-- This condition is satisfied when an object is created before midnight of
323-- This condition is satisfied when an object is created before midnight of
324-- the specified date in UTC.
324-- the specified date in UTC.
325−blrcCreatedBefore :: Lens' BucketLifecycleRuleCondition (Maybe UTCTime)
325+blrcCreatedBefore :: Lens' BucketLifecycleRuleCondition (Maybe LocalTime)
326blrcCreatedBefore
326blrcCreatedBefore
327 = lens _blrcCreatedBefore
327 = lens _blrcCreatedBefore
328 (\ s a -> s{_blrcCreatedBefore = a})
328 (\ s a -> s{_blrcCreatedBefore = a})
329+ . mapping _Date
329
330
330instance FromJSON BucketLifecycleRuleCondition where
331instance FromJSON BucketLifecycleRuleCondition where
331 parseJSON
332 parseJSON
@@ -663,7 +664,7 @@ data Bucket = Bucket
663 , _bucStorageClass :: !(Maybe Text)
664 , _bucStorageClass :: !(Maybe Text)
664 , _bucVersioning :: !(Maybe BucketVersioning)
665 , _bucVersioning :: !(Maybe BucketVersioning)
665 , _bucCORS :: !(Maybe [BucketCORS])
666 , _bucCORS :: !(Maybe [BucketCORS])
666− , _bucTimeCreated :: !(Maybe DateTime)
667+ , _bucTimeCreated :: !(Maybe DateTime')
667 , _bucId :: !(Maybe Text)
668 , _bucId :: !(Maybe Text)
668 , _bucDefaultObjectACL :: !(Maybe [ObjectAccessControl])
669 , _bucDefaultObjectACL :: !(Maybe [ObjectAccessControl])
669 , _bucMetageneration :: !(Maybe Int64)
670 , _bucMetageneration :: !(Maybe Int64)
@@ -797,6 +798,7 @@ bucTimeCreated :: Lens' Bucket (Maybe UTCTime)
797bucTimeCreated
798bucTimeCreated
798 = lens _bucTimeCreated
799 = lens _bucTimeCreated
799 (\ s a -> s{_bucTimeCreated = a})
800 (\ s a -> s{_bucTimeCreated = a})
801+ . mapping _DateTime
800
802
801-- | The ID of the bucket.
803-- | The ID of the bucket.
802bucId :: Lens' Bucket (Maybe Text)
804bucId :: Lens' Bucket (Maybe Text)
@@ -1417,7 +1419,7 @@ data Object = Object
1417 { _objEtag :: !(Maybe Text)
1419 { _objEtag :: !(Maybe Text)
1418 , _objSize :: !(Maybe Word64)
1420 , _objSize :: !(Maybe Word64)
1419 , _objKind :: !Text
1421 , _objKind :: !Text
1420− , _objTimeDeleted :: !(Maybe DateTime)
1422+ , _objTimeDeleted :: !(Maybe DateTime')
1421 , _objCrc32c :: !(Maybe Text)
1423 , _objCrc32c :: !(Maybe Text)
1422 , _objBucket :: !(Maybe Text)
1424 , _objBucket :: !(Maybe Text)
1423 , _objOwner :: !(Maybe ObjectOwner)
1425 , _objOwner :: !(Maybe ObjectOwner)
@@ -1429,7 +1431,7 @@ data Object = Object
1429 , _objContentEncoding :: !(Maybe Text)
1431 , _objContentEncoding :: !(Maybe Text)
1430 , _objMetadata :: !(Maybe ObjectMetadata)
1432 , _objMetadata :: !(Maybe ObjectMetadata)
1431 , _objId :: !(Maybe Text)
1433 , _objId :: !(Maybe Text)
1432− , _objUpdated :: !(Maybe DateTime)
1434+ , _objUpdated :: !(Maybe DateTime')
1433 , _objContentLanguage :: !(Maybe Text)
1435 , _objContentLanguage :: !(Maybe Text)
1434 , _objCacheControl :: !(Maybe Text)
1436 , _objCacheControl :: !(Maybe Text)
1435 , _objMetageneration :: !(Maybe Int64)
1437 , _objMetageneration :: !(Maybe Int64)
@@ -1539,6 +1541,7 @@ objTimeDeleted :: Lens' Object (Maybe UTCTime)
1539objTimeDeleted
1541objTimeDeleted
1540 = lens _objTimeDeleted
1542 = lens _objTimeDeleted
1541 (\ s a -> s{_objTimeDeleted = a})
1543 (\ s a -> s{_objTimeDeleted = a})
1544+ . mapping _DateTime
1542
1545
1543-- | CRC32c checksum, as described in RFC 4960, Appendix B; encoded using
1546-- | CRC32c checksum, as described in RFC 4960, Appendix B; encoded using
1544-- base64.
1547-- base64.
@@ -1600,7 +1603,8 @@ objId = lens _objId (\ s a -> s{_objId = a})
1600-- | Modification time of the object metadata in RFC 3339 format.
1603-- | Modification time of the object metadata in RFC 3339 format.
1601objUpdated :: Lens' Object (Maybe UTCTime)
1604objUpdated :: Lens' Object (Maybe UTCTime)
1602objUpdated
1605objUpdated
1603− = lens _objUpdated (\ s a -> s{_objUpdated = a})
1606+ = lens _objUpdated (\ s a -> s{_objUpdated = a}) .
1607+ mapping _DateTime
1604
1608
1605-- | Content-Language of the object data.
1609-- | Content-Language of the object data.
1606objContentLanguage :: Lens' Object (Maybe Text)
1610objContentLanguage :: Lens' Object (Maybe Text)
gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types/Product.hs+10−5
@@ -374,7 +374,7 @@ instance ToJSON APIdimensionFilter where
374-- /See:/ 'urlCrawlErrorCount' smart constructor.
374-- /See:/ 'urlCrawlErrorCount' smart constructor.
375data URLCrawlErrorCount = URLCrawlErrorCount
375data URLCrawlErrorCount = URLCrawlErrorCount
376 { _ucecCount :: !(Maybe Int64)
376 { _ucecCount :: !(Maybe Int64)
377− , _ucecTimestamp :: !(Maybe DateTime)
377+ , _ucecTimestamp :: !(Maybe DateTime')
378 } deriving (Eq,Read,Show,Data,Typeable,Generic)
378 } deriving (Eq,Read,Show,Data,Typeable,Generic)
379
379
380-- | Creates a value of 'URLCrawlErrorCount' with the minimum fields required to make a request.
380-- | Creates a value of 'URLCrawlErrorCount' with the minimum fields required to make a request.
@@ -402,6 +402,7 @@ ucecTimestamp :: Lens' URLCrawlErrorCount (Maybe UTCTime)
402ucecTimestamp
402ucecTimestamp
403 = lens _ucecTimestamp
403 = lens _ucecTimestamp
404 (\ s a -> s{_ucecTimestamp = a})
404 (\ s a -> s{_ucecTimestamp = a})
405+ . mapping _DateTime
405
406
406instance FromJSON URLCrawlErrorCount where
407instance FromJSON URLCrawlErrorCount where
407 parseJSON
408 parseJSON
@@ -565,9 +566,9 @@ instance ToJSON URLCrawlErrorsCountsQueryResponse
565data URLCrawlErrorsSample = URLCrawlErrorsSample
566data URLCrawlErrorsSample = URLCrawlErrorsSample
566 { _ucesResponseCode :: !(Maybe Int32)
567 { _ucesResponseCode :: !(Maybe Int32)
567 , _ucesURLDetails :: !(Maybe URLSampleDetails)
568 , _ucesURLDetails :: !(Maybe URLSampleDetails)
568− , _ucesLastCrawled :: !(Maybe DateTime)
569+ , _ucesLastCrawled :: !(Maybe DateTime')
569 , _ucesPageURL :: !(Maybe Text)
570 , _ucesPageURL :: !(Maybe Text)
570− , _ucesFirstDetected :: !(Maybe DateTime)
571+ , _ucesFirstDetected :: !(Maybe DateTime')
571 } deriving (Eq,Read,Show,Data,Typeable,Generic)
572 } deriving (Eq,Read,Show,Data,Typeable,Generic)
572
573
573-- | Creates a value of 'URLCrawlErrorsSample' with the minimum fields required to make a request.
574-- | Creates a value of 'URLCrawlErrorsSample' with the minimum fields required to make a request.
@@ -611,6 +612,7 @@ ucesLastCrawled :: Lens' URLCrawlErrorsSample (Maybe UTCTime)
611ucesLastCrawled
612ucesLastCrawled
612 = lens _ucesLastCrawled
613 = lens _ucesLastCrawled
613 (\ s a -> s{_ucesLastCrawled = a})
614 (\ s a -> s{_ucesLastCrawled = a})
615+ . mapping _DateTime
614
616
615-- | The URL of an error, relative to the site.
617-- | The URL of an error, relative to the site.
616ucesPageURL :: Lens' URLCrawlErrorsSample (Maybe Text)
618ucesPageURL :: Lens' URLCrawlErrorsSample (Maybe Text)
@@ -622,6 +624,7 @@ ucesFirstDetected :: Lens' URLCrawlErrorsSample (Maybe UTCTime)
622ucesFirstDetected
624ucesFirstDetected
623 = lens _ucesFirstDetected
625 = lens _ucesFirstDetected
624 (\ s a -> s{_ucesFirstDetected = a})
626 (\ s a -> s{_ucesFirstDetected = a})
627+ . mapping _DateTime
625
628
626instance FromJSON URLCrawlErrorsSample where
629instance FromJSON URLCrawlErrorsSample where
627 parseJSON
630 parseJSON
@@ -689,9 +692,9 @@ data WmxSitemap = WmxSitemap
689 { _wsContents :: !(Maybe [WmxSitemapContent])
692 { _wsContents :: !(Maybe [WmxSitemapContent])
690 , _wsPath :: !(Maybe Text)
693 , _wsPath :: !(Maybe Text)
691 , _wsIsSitemapsIndex :: !(Maybe Bool)
694 , _wsIsSitemapsIndex :: !(Maybe Bool)
692− , _wsLastSubmitted :: !(Maybe DateTime)
695+ , _wsLastSubmitted :: !(Maybe DateTime')
693 , _wsWarnings :: !(Maybe Int64)
696 , _wsWarnings :: !(Maybe Int64)
694− , _wsLastDownloaded :: !(Maybe DateTime)
697+ , _wsLastDownloaded :: !(Maybe DateTime')
695 , _wsIsPending :: !(Maybe Bool)
698 , _wsIsPending :: !(Maybe Bool)
696 , _wsType :: !(Maybe Text)
699 , _wsType :: !(Maybe Text)
697 , _wsErrors :: !(Maybe Int64)
700 , _wsErrors :: !(Maybe Int64)
@@ -756,6 +759,7 @@ wsLastSubmitted :: Lens' WmxSitemap (Maybe UTCTime)
756wsLastSubmitted
759wsLastSubmitted
757 = lens _wsLastSubmitted
760 = lens _wsLastSubmitted
758 (\ s a -> s{_wsLastSubmitted = a})
761 (\ s a -> s{_wsLastSubmitted = a})
762+ . mapping _DateTime
759
763
760-- | Number of warnings for the sitemap. These are generally non-critical
764-- | Number of warnings for the sitemap. These are generally non-critical
761-- issues with URLs in the sitemaps.
765-- issues with URLs in the sitemaps.
@@ -769,6 +773,7 @@ wsLastDownloaded :: Lens' WmxSitemap (Maybe UTCTime)
769wsLastDownloaded
773wsLastDownloaded
770 = lens _wsLastDownloaded
774 = lens _wsLastDownloaded
771 (\ s a -> s{_wsLastDownloaded = a})
775 (\ s a -> s{_wsLastDownloaded = a})
776+ . mapping _DateTime
772
777
773-- | If true, the sitemap has not been processed.
778-- | If true, the sitemap has not been processed.
774wsIsPending :: Lens' WmxSitemap (Maybe Bool)
779wsIsPending :: Lens' WmxSitemap (Maybe Bool)
gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics/Types/Product.hs+9−5
@@ -337,7 +337,7 @@ instance ToJSON BatchReportDefinition where
337--
337--
338-- /See:/ 'groupSnippet' smart constructor.
338-- /See:/ 'groupSnippet' smart constructor.
339data GroupSnippet = GroupSnippet
339data GroupSnippet = GroupSnippet
340− { _gsPublishedAt :: !(Maybe DateTime)
340+ { _gsPublishedAt :: !(Maybe DateTime')
341 , _gsTitle :: !(Maybe Text)
341 , _gsTitle :: !(Maybe Text)
342 } deriving (Eq,Read,Show,Data,Typeable,Generic)
342 } deriving (Eq,Read,Show,Data,Typeable,Generic)
343
343
@@ -360,6 +360,7 @@ gsPublishedAt :: Lens' GroupSnippet (Maybe UTCTime)
360gsPublishedAt
360gsPublishedAt
361 = lens _gsPublishedAt
361 = lens _gsPublishedAt
362 (\ s a -> s{_gsPublishedAt = a})
362 (\ s a -> s{_gsPublishedAt = a})
363+ . mapping _DateTime
363
364
364gsTitle :: Lens' GroupSnippet (Maybe Text)
365gsTitle :: Lens' GroupSnippet (Maybe Text)
365gsTitle = lens _gsTitle (\ s a -> s{_gsTitle = a})
366gsTitle = lens _gsTitle (\ s a -> s{_gsTitle = a})
@@ -382,7 +383,7 @@ instance ToJSON GroupSnippet where
382--
383--
383-- /See:/ 'batchReport' smart constructor.
384-- /See:/ 'batchReport' smart constructor.
384data BatchReport = BatchReport
385data BatchReport = BatchReport
385− { _brTimeUpdated :: !(Maybe DateTime)
386+ { _brTimeUpdated :: !(Maybe DateTime')
386 , _brKind :: !Text
387 , _brKind :: !Text
387 , _brReportId :: !(Maybe Text)
388 , _brReportId :: !(Maybe Text)
388 , _brTimeSpan :: !(Maybe BatchReportTimeSpan)
389 , _brTimeSpan :: !(Maybe BatchReportTimeSpan)
@@ -422,6 +423,7 @@ brTimeUpdated :: Lens' BatchReport (Maybe UTCTime)
422brTimeUpdated
423brTimeUpdated
423 = lens _brTimeUpdated
424 = lens _brTimeUpdated
424 (\ s a -> s{_brTimeUpdated = a})
425 (\ s a -> s{_brTimeUpdated = a})
426+ . mapping _DateTime
425
427
426-- | This value specifies the type of data of this item. For batch report the
428-- | This value specifies the type of data of this item. For batch report the
427-- kind property value is youtubeAnalytics#batchReport.
429-- kind property value is youtubeAnalytics#batchReport.
@@ -710,8 +712,8 @@ instance ToJSON BatchReportList where
710--
712--
711-- /See:/ 'batchReportTimeSpan' smart constructor.
713-- /See:/ 'batchReportTimeSpan' smart constructor.
712data BatchReportTimeSpan = BatchReportTimeSpan
714data BatchReportTimeSpan = BatchReportTimeSpan
713− { _brtsStartTime :: !(Maybe DateTime)
715+ { _brtsStartTime :: !(Maybe DateTime')
714− , _brtsEndTime :: !(Maybe DateTime)
716+ , _brtsEndTime :: !(Maybe DateTime')
715 } deriving (Eq,Read,Show,Data,Typeable,Generic)
717 } deriving (Eq,Read,Show,Data,Typeable,Generic)
716
718
717-- | Creates a value of 'BatchReportTimeSpan' with the minimum fields required to make a request.
719-- | Creates a value of 'BatchReportTimeSpan' with the minimum fields required to make a request.
@@ -734,12 +736,14 @@ brtsStartTime :: Lens' BatchReportTimeSpan (Maybe UTCTime)
734brtsStartTime
736brtsStartTime
735 = lens _brtsStartTime
737 = lens _brtsStartTime
736 (\ s a -> s{_brtsStartTime = a})
738 (\ s a -> s{_brtsStartTime = a})
739+ . mapping _DateTime
737
740
738-- | End of the period included in the report. Inclusive. For reports
741-- | End of the period included in the report. Inclusive. For reports
739-- containing all entities endTime is not set.
742-- containing all entities endTime is not set.
740brtsEndTime :: Lens' BatchReportTimeSpan (Maybe UTCTime)
743brtsEndTime :: Lens' BatchReportTimeSpan (Maybe UTCTime)
741brtsEndTime
744brtsEndTime
742− = lens _brtsEndTime (\ s a -> s{_brtsEndTime = a})
745+ = lens _brtsEndTime (\ s a -> s{_brtsEndTime = a}) .
746+ mapping _DateTime
743
747
744instance FromJSON BatchReportTimeSpan where
748instance FromJSON BatchReportTimeSpan where
745 parseJSON
749 parseJSON
gogol-youtube/gen/Network/Google/Resource/YouTube/Activities/List.hs+6−4
@@ -63,8 +63,8 @@ type ActivitiesListResource =
63 QueryParam "maxResults" Word32 :>
63 QueryParam "maxResults" Word32 :>
64 QueryParam "mine" Bool :>
64 QueryParam "mine" Bool :>
65 QueryParam "pageToken" Text :>
65 QueryParam "pageToken" Text :>
66− QueryParam "publishedAfter" DateTime :>
66+ QueryParam "publishedAfter" DateTime' :>
67− QueryParam "publishedBefore" DateTime :>
67+ QueryParam "publishedBefore" DateTime' :>
68 QueryParam "regionCode" Text :>
68 QueryParam "regionCode" Text :>
69 QueryParam "part" Text :>
69 QueryParam "part" Text :>
70 QueryParam "quotaUser" Text :>
70 QueryParam "quotaUser" Text :>
@@ -84,7 +84,7 @@ type ActivitiesListResource =
84--
84--
85-- /See:/ 'activitiesList'' smart constructor.
85-- /See:/ 'activitiesList'' smart constructor.
86data ActivitiesList' = ActivitiesList'
86data ActivitiesList' = ActivitiesList'
87− { _alPublishedAfter :: !(Maybe DateTime)
87+ { _alPublishedAfter :: !(Maybe DateTime')
88 , _alQuotaUser :: !(Maybe Text)
88 , _alQuotaUser :: !(Maybe Text)
89 , _alPart :: !Text
89 , _alPart :: !Text
90 , _alPrettyPrint :: !Bool
90 , _alPrettyPrint :: !Bool
@@ -97,7 +97,7 @@ data ActivitiesList' = ActivitiesList'
97 , _alPageToken :: !(Maybe Text)
97 , _alPageToken :: !(Maybe Text)
98 , _alOAuthToken :: !(Maybe OAuthToken)
98 , _alOAuthToken :: !(Maybe OAuthToken)
99 , _alMaxResults :: !Word32
99 , _alMaxResults :: !Word32
100− , _alPublishedBefore :: !(Maybe DateTime)
100+ , _alPublishedBefore :: !(Maybe DateTime')
101 , _alFields :: !(Maybe Text)
101 , _alFields :: !(Maybe Text)
102 } deriving (Eq,Read,Show,Data,Typeable,Generic)
102 } deriving (Eq,Read,Show,Data,Typeable,Generic)
103
103
@@ -166,6 +166,7 @@ alPublishedAfter :: Lens' ActivitiesList' (Maybe UTCTime)
166alPublishedAfter
166alPublishedAfter
167 = lens _alPublishedAfter
167 = lens _alPublishedAfter
168 (\ s a -> s{_alPublishedAfter = a})
168 (\ s a -> s{_alPublishedAfter = a})
169+ . mapping _DateTime
169
170
170-- | Available to use for quota purposes for server-side applications. Can be
171-- | Available to use for quota purposes for server-side applications. Can be
171-- any arbitrary string assigned to a user, but should not exceed 40
172-- any arbitrary string assigned to a user, but should not exceed 40
@@ -255,6 +256,7 @@ alPublishedBefore :: Lens' ActivitiesList' (Maybe UTCTime)
255alPublishedBefore
256alPublishedBefore
256 = lens _alPublishedBefore
257 = lens _alPublishedBefore
257 (\ s a -> s{_alPublishedBefore = a})
258 (\ s a -> s{_alPublishedBefore = a})
259+ . mapping _DateTime
258
260
259-- | Selector specifying which fields to include in a partial response.
261-- | Selector specifying which fields to include in a partial response.
260alFields :: Lens' ActivitiesList' (Maybe Text)
262alFields :: Lens' ActivitiesList' (Maybe Text)
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Control.hs+4−3
@@ -58,7 +58,7 @@ type LiveBroadcastsControlResource =
58 QueryParam "offsetTimeMs" Word64 :>
58 QueryParam "offsetTimeMs" Word64 :>
59 QueryParam "onBehalfOfContentOwner" Text :>
59 QueryParam "onBehalfOfContentOwner" Text :>
60 QueryParam "onBehalfOfContentOwnerChannel" Text :>
60 QueryParam "onBehalfOfContentOwnerChannel" Text :>
61− QueryParam "walltime" DateTime :>
61+ QueryParam "walltime" DateTime' :>
62 QueryParam "id" Text :>
62 QueryParam "id" Text :>
63 QueryParam "part" Text :>
63 QueryParam "part" Text :>
64 QueryParam "quotaUser" Text :>
64 QueryParam "quotaUser" Text :>
@@ -85,7 +85,7 @@ data LiveBroadcastsControl' = LiveBroadcastsControl'
85 , _lbcId :: !Text
85 , _lbcId :: !Text
86 , _lbcDisplaySlate :: !(Maybe Bool)
86 , _lbcDisplaySlate :: !(Maybe Bool)
87 , _lbcOAuthToken :: !(Maybe OAuthToken)
87 , _lbcOAuthToken :: !(Maybe OAuthToken)
88− , _lbcWalltime :: !(Maybe DateTime)
88+ , _lbcWalltime :: !(Maybe DateTime')
89 , _lbcOffsetTimeMs :: !(Maybe Word64)
89 , _lbcOffsetTimeMs :: !(Maybe Word64)
90 , _lbcFields :: !(Maybe Text)
90 , _lbcFields :: !(Maybe Text)
91 } deriving (Eq,Read,Show,Data,Typeable,Generic)
91 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -231,7 +231,8 @@ lbcOAuthToken
231-- (YYYY-MM-DDThh:mm:ss.sssZ) format.
231-- (YYYY-MM-DDThh:mm:ss.sssZ) format.
232lbcWalltime :: Lens' LiveBroadcastsControl' (Maybe UTCTime)
232lbcWalltime :: Lens' LiveBroadcastsControl' (Maybe UTCTime)
233lbcWalltime
233lbcWalltime
234− = lens _lbcWalltime (\ s a -> s{_lbcWalltime = a})
234+ = lens _lbcWalltime (\ s a -> s{_lbcWalltime = a}) .
235+ mapping _DateTime
235
236
236-- | The offsetTimeMs parameter specifies a positive time offset when the
237-- | The offsetTimeMs parameter specifies a positive time offset when the
237-- specified slate change will occur. The value is measured in milliseconds
238-- specified slate change will occur. The value is measured in milliseconds
gogol-youtube/gen/Network/Google/Resource/YouTube/Search/List.hs+6−4
@@ -92,8 +92,8 @@ type SearchListResource =
92 QueryParam "onBehalfOfContentOwner" Text :>
92 QueryParam "onBehalfOfContentOwner" Text :>
93 QueryParam "order" YouTubeSearchListOrder :>
93 QueryParam "order" YouTubeSearchListOrder :>
94 QueryParam "pageToken" Text :>
94 QueryParam "pageToken" Text :>
95− QueryParam "publishedAfter" DateTime :>
95+ QueryParam "publishedAfter" DateTime' :>
96− QueryParam "publishedBefore" DateTime :>
96+ QueryParam "publishedBefore" DateTime' :>
97 QueryParam "q" Text :>
97 QueryParam "q" Text :>
98 QueryParam "regionCode" Text :>
98 QueryParam "regionCode" Text :>
99 QueryParam "relatedToVideoId" Text :>
99 QueryParam "relatedToVideoId" Text :>
@@ -180,7 +180,7 @@ type SearchListResource =
180--
180--
181-- /See:/ 'searchList'' smart constructor.
181-- /See:/ 'searchList'' smart constructor.
182data SearchList' = SearchList'
182data SearchList' = SearchList'
183− { _slPublishedAfter :: !(Maybe DateTime)
183+ { _slPublishedAfter :: !(Maybe DateTime')
184 , _slVideoDefinition :: !(Maybe YouTubeSearchListVideoDefinition)
184 , _slVideoDefinition :: !(Maybe YouTubeSearchListVideoDefinition)
185 , _slQuotaUser :: !(Maybe Text)
185 , _slQuotaUser :: !(Maybe Text)
186 , _slPart :: !Text
186 , _slPart :: !Text
@@ -213,7 +213,7 @@ data SearchList' = SearchList'
213 , _slRelevanceLanguage :: !(Maybe Text)
213 , _slRelevanceLanguage :: !(Maybe Text)
214 , _slOrder :: !YouTubeSearchListOrder
214 , _slOrder :: !YouTubeSearchListOrder
215 , _slMaxResults :: !Word32
215 , _slMaxResults :: !Word32
216− , _slPublishedBefore :: !(Maybe DateTime)
216+ , _slPublishedBefore :: !(Maybe DateTime')
217 , _slVideoType :: !(Maybe YouTubeSearchListVideoType)
217 , _slVideoType :: !(Maybe YouTubeSearchListVideoType)
218 , _slVideoDimension :: !(Maybe YouTubeSearchListVideoDimension)
218 , _slVideoDimension :: !(Maybe YouTubeSearchListVideoDimension)
219 , _slFields :: !(Maybe Text)
219 , _slFields :: !(Maybe Text)
@@ -347,6 +347,7 @@ slPublishedAfter :: Lens' SearchList' (Maybe UTCTime)
347slPublishedAfter
347slPublishedAfter
348 = lens _slPublishedAfter
348 = lens _slPublishedAfter
349 (\ s a -> s{_slPublishedAfter = a})
349 (\ s a -> s{_slPublishedAfter = a})
350+ . mapping _DateTime
350
351
351-- | The videoDefinition parameter lets you restrict a search to only include
352-- | The videoDefinition parameter lets you restrict a search to only include
352-- either high definition (HD) or standard definition (SD) videos. HD
353-- either high definition (HD) or standard definition (SD) videos. HD
@@ -620,6 +621,7 @@ slPublishedBefore :: Lens' SearchList' (Maybe UTCTime)
620slPublishedBefore
621slPublishedBefore
621 = lens _slPublishedBefore
622 = lens _slPublishedBefore
622 (\ s a -> s{_slPublishedBefore = a})
623 (\ s a -> s{_slPublishedBefore = a})
624+ . mapping _DateTime
623
625
624-- | The videoType parameter lets you restrict a search to a particular type
626-- | The videoType parameter lets you restrict a search to a particular type
625-- of videos. If you specify a value for this parameter, you must also set
627-- of videos. If you specify a value for this parameter, you must also set
gogol-youtube/gen/Network/Google/YouTube/Types/Product.hs+48−25
@@ -1023,7 +1023,7 @@ instance ToJSON ChannelStatus where
1023--
1023--
1024-- /See:/ 'liveStreamSnippet' smart constructor.
1024-- /See:/ 'liveStreamSnippet' smart constructor.
1025data LiveStreamSnippet = LiveStreamSnippet
1025data LiveStreamSnippet = LiveStreamSnippet
1026− { _lssPublishedAt :: !(Maybe DateTime)
1026+ { _lssPublishedAt :: !(Maybe DateTime')
1027 , _lssChannelId :: !(Maybe Text)
1027 , _lssChannelId :: !(Maybe Text)
1028 , _lssIsDefaultStream :: !(Maybe Bool)
1028 , _lssIsDefaultStream :: !(Maybe Bool)
1029 , _lssTitle :: !(Maybe Text)
1029 , _lssTitle :: !(Maybe Text)
@@ -1060,6 +1060,7 @@ lssPublishedAt :: Lens' LiveStreamSnippet (Maybe UTCTime)
1060lssPublishedAt
1060lssPublishedAt
1061 = lens _lssPublishedAt
1061 = lens _lssPublishedAt
1062 (\ s a -> s{_lssPublishedAt = a})
1062 (\ s a -> s{_lssPublishedAt = a})
1063+ . mapping _DateTime
1063
1064
1064-- | The ID that YouTube uses to uniquely identify the channel that is
1065-- | The ID that YouTube uses to uniquely identify the channel that is
1065-- transmitting the stream.
1066-- transmitting the stream.
@@ -3050,7 +3051,7 @@ data VideoStatus = VideoStatus
3050 { _vsFailureReason :: !(Maybe VideoStatusFailureReason)
3051 { _vsFailureReason :: !(Maybe VideoStatusFailureReason)
3051 , _vsPublicStatsViewable :: !(Maybe Bool)
3052 , _vsPublicStatsViewable :: !(Maybe Bool)
3052 , _vsRejectionReason :: !(Maybe VideoStatusRejectionReason)
3053 , _vsRejectionReason :: !(Maybe VideoStatusRejectionReason)
3053− , _vsPublishAt :: !(Maybe DateTime)
3054+ , _vsPublishAt :: !(Maybe DateTime')
3054 , _vsUploadStatus :: !(Maybe VideoStatusUploadStatus)
3055 , _vsUploadStatus :: !(Maybe VideoStatusUploadStatus)
3055 , _vsPrivacyStatus :: !(Maybe VideoStatusPrivacyStatus)
3056 , _vsPrivacyStatus :: !(Maybe VideoStatusPrivacyStatus)
3056 , _vsEmbeddable :: !(Maybe Bool)
3057 , _vsEmbeddable :: !(Maybe Bool)
@@ -3118,7 +3119,8 @@ vsRejectionReason
3118-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
3119-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
3119vsPublishAt :: Lens' VideoStatus (Maybe UTCTime)
3120vsPublishAt :: Lens' VideoStatus (Maybe UTCTime)
3120vsPublishAt
3121vsPublishAt
3121− = lens _vsPublishAt (\ s a -> s{_vsPublishAt = a})
3122+ = lens _vsPublishAt (\ s a -> s{_vsPublishAt = a}) .
3123+ mapping _DateTime
3122
3124
3123-- | The status of the uploaded video.
3125-- | The status of the uploaded video.
3124vsUploadStatus :: Lens' VideoStatus (Maybe VideoStatusUploadStatus)
3126vsUploadStatus :: Lens' VideoStatus (Maybe VideoStatusUploadStatus)
@@ -3591,7 +3593,7 @@ instance ToJSON ChannelContentDetails where
3591--
3593--
3592-- /See:/ 'activitySnippet' smart constructor.
3594-- /See:/ 'activitySnippet' smart constructor.
3593data ActivitySnippet = ActivitySnippet
3595data ActivitySnippet = ActivitySnippet
3594− { _asPublishedAt :: !(Maybe DateTime)
3596+ { _asPublishedAt :: !(Maybe DateTime')
3595 , _asChannelTitle :: !(Maybe Text)
3597 , _asChannelTitle :: !(Maybe Text)
3596 , _asChannelId :: !(Maybe Text)
3598 , _asChannelId :: !(Maybe Text)
3597 , _asThumbnails :: !(Maybe ThumbnailDetails)
3599 , _asThumbnails :: !(Maybe ThumbnailDetails)
@@ -3640,6 +3642,7 @@ asPublishedAt :: Lens' ActivitySnippet (Maybe UTCTime)
3640asPublishedAt
3642asPublishedAt
3641 = lens _asPublishedAt
3643 = lens _asPublishedAt
3642 (\ s a -> s{_asPublishedAt = a})
3644 (\ s a -> s{_asPublishedAt = a})
3645+ . mapping _DateTime
3643
3646
3644-- | Channel title for the channel responsible for this activity
3647-- | Channel title for the channel responsible for this activity
3645asChannelTitle :: Lens' ActivitySnippet (Maybe Text)
3648asChannelTitle :: Lens' ActivitySnippet (Maybe Text)
@@ -4504,7 +4507,7 @@ instance ToJSON ChannelSectionListResponse where
4504--
4507--
4505-- /See:/ 'playListSnippet' smart constructor.
4508-- /See:/ 'playListSnippet' smart constructor.
4506data PlayListSnippet = PlayListSnippet
4509data PlayListSnippet = PlayListSnippet
4507− { _plsPublishedAt :: !(Maybe DateTime)
4510+ { _plsPublishedAt :: !(Maybe DateTime')
4508 , _plsChannelTitle :: !(Maybe Text)
4511 , _plsChannelTitle :: !(Maybe Text)
4509 , _plsChannelId :: !(Maybe Text)
4512 , _plsChannelId :: !(Maybe Text)
4510 , _plsThumbnails :: !(Maybe ThumbnailDetails)
4513 , _plsThumbnails :: !(Maybe ThumbnailDetails)
@@ -4557,6 +4560,7 @@ plsPublishedAt :: Lens' PlayListSnippet (Maybe UTCTime)
4557plsPublishedAt
4560plsPublishedAt
4558 = lens _plsPublishedAt
4561 = lens _plsPublishedAt
4559 (\ s a -> s{_plsPublishedAt = a})
4562 (\ s a -> s{_plsPublishedAt = a})
4563+ . mapping _DateTime
4560
4564
4561-- | The channel title of the channel that the video belongs to.
4565-- | The channel title of the channel that the video belongs to.
4562plsChannelTitle :: Lens' PlayListSnippet (Maybe Text)
4566plsChannelTitle :: Lens' PlayListSnippet (Maybe Text)
@@ -5721,7 +5725,7 @@ instance ToJSON ThumbnailDetails where
5721--
5725--
5722-- /See:/ 'channelSnippet' smart constructor.
5726-- /See:/ 'channelSnippet' smart constructor.
5723data ChannelSnippet = ChannelSnippet
5727data ChannelSnippet = ChannelSnippet
5724− { _csPublishedAt :: !(Maybe DateTime)
5728+ { _csPublishedAt :: !(Maybe DateTime')
5725 , _csCountry :: !(Maybe Text)
5729 , _csCountry :: !(Maybe Text)
5726 , _csThumbnails :: !(Maybe ThumbnailDetails)
5730 , _csThumbnails :: !(Maybe ThumbnailDetails)
5727 , _csLocalized :: !(Maybe ChannelLocalization)
5731 , _csLocalized :: !(Maybe ChannelLocalization)
@@ -5766,6 +5770,7 @@ csPublishedAt :: Lens' ChannelSnippet (Maybe UTCTime)
5766csPublishedAt
5770csPublishedAt
5767 = lens _csPublishedAt
5771 = lens _csPublishedAt
5768 (\ s a -> s{_csPublishedAt = a})
5772 (\ s a -> s{_csPublishedAt = a})
5773+ . mapping _DateTime
5769
5774
5770-- | The country of the channel.
5775-- | The country of the channel.
5771csCountry :: Lens' ChannelSnippet (Maybe Text)
5776csCountry :: Lens' ChannelSnippet (Maybe Text)
@@ -6924,7 +6929,7 @@ instance ToJSON WatchSettings where
6924-- /See:/ 'videoSnippet' smart constructor.
6929-- /See:/ 'videoSnippet' smart constructor.
6925data VideoSnippet = VideoSnippet
6930data VideoSnippet = VideoSnippet
6926 { _vsDefaultAudioLanguage :: !(Maybe Text)
6931 { _vsDefaultAudioLanguage :: !(Maybe Text)
6927− , _vsPublishedAt :: !(Maybe DateTime)
6932+ , _vsPublishedAt :: !(Maybe DateTime')
6928 , _vsChannelTitle :: !(Maybe Text)
6933 , _vsChannelTitle :: !(Maybe Text)
6929 , _vsChannelId :: !(Maybe Text)
6934 , _vsChannelId :: !(Maybe Text)
6930 , _vsThumbnails :: !(Maybe ThumbnailDetails)
6935 , _vsThumbnails :: !(Maybe ThumbnailDetails)
@@ -6995,6 +7000,7 @@ vsPublishedAt :: Lens' VideoSnippet (Maybe UTCTime)
6995vsPublishedAt
7000vsPublishedAt
6996 = lens _vsPublishedAt
7001 = lens _vsPublishedAt
6997 (\ s a -> s{_vsPublishedAt = a})
7002 (\ s a -> s{_vsPublishedAt = a})
7003+ . mapping _DateTime
6998
7004
6999-- | Channel title for the channel that the video belongs to.
7005-- | Channel title for the channel that the video belongs to.
7000vsChannelTitle :: Lens' VideoSnippet (Maybe Text)
7006vsChannelTitle :: Lens' VideoSnippet (Maybe Text)
@@ -7422,15 +7428,15 @@ instance ToJSON VideoStatistics where
7422--
7428--
7423-- /See:/ 'liveBroadcastSnippet' smart constructor.
7429-- /See:/ 'liveBroadcastSnippet' smart constructor.
7424data LiveBroadcastSnippet = LiveBroadcastSnippet
7430data LiveBroadcastSnippet = LiveBroadcastSnippet
7425− { _lbsActualEndTime :: !(Maybe DateTime)
7431+ { _lbsActualEndTime :: !(Maybe DateTime')
7426 , _lbsLiveChatId :: !(Maybe Text)
7432 , _lbsLiveChatId :: !(Maybe Text)
7427− , _lbsPublishedAt :: !(Maybe DateTime)
7433+ , _lbsPublishedAt :: !(Maybe DateTime')
7428− , _lbsScheduledEndTime :: !(Maybe DateTime)
7434+ , _lbsScheduledEndTime :: !(Maybe DateTime')
7429 , _lbsChannelId :: !(Maybe Text)
7435 , _lbsChannelId :: !(Maybe Text)
7430− , _lbsScheduledStartTime :: !(Maybe DateTime)
7436+ , _lbsScheduledStartTime :: !(Maybe DateTime')
7431 , _lbsThumbnails :: !(Maybe ThumbnailDetails)
7437 , _lbsThumbnails :: !(Maybe ThumbnailDetails)
7432 , _lbsTitle :: !(Maybe Text)
7438 , _lbsTitle :: !(Maybe Text)
7433− , _lbsActualStartTime :: !(Maybe DateTime)
7439+ , _lbsActualStartTime :: !(Maybe DateTime')
7434 , _lbsIsDefaultBroadcast :: !(Maybe Bool)
7440 , _lbsIsDefaultBroadcast :: !(Maybe Bool)
7435 , _lbsDescription :: !(Maybe Text)
7441 , _lbsDescription :: !(Maybe Text)
7436 } deriving (Eq,Read,Show,Data,Typeable,Generic)
7442 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -7484,6 +7490,7 @@ lbsActualEndTime :: Lens' LiveBroadcastSnippet (Maybe UTCTime)
7484lbsActualEndTime
7490lbsActualEndTime
7485 = lens _lbsActualEndTime
7491 = lens _lbsActualEndTime
7486 (\ s a -> s{_lbsActualEndTime = a})
7492 (\ s a -> s{_lbsActualEndTime = a})
7493+ . mapping _DateTime
7487
7494
7488-- | The id of the live chat for this broadcast.
7495-- | The id of the live chat for this broadcast.
7489lbsLiveChatId :: Lens' LiveBroadcastSnippet (Maybe Text)
7496lbsLiveChatId :: Lens' LiveBroadcastSnippet (Maybe Text)
@@ -7498,6 +7505,7 @@ lbsPublishedAt :: Lens' LiveBroadcastSnippet (Maybe UTCTime)
7498lbsPublishedAt
7505lbsPublishedAt
7499 = lens _lbsPublishedAt
7506 = lens _lbsPublishedAt
7500 (\ s a -> s{_lbsPublishedAt = a})
7507 (\ s a -> s{_lbsPublishedAt = a})
7508+ . mapping _DateTime
7501
7509
7502-- | The date and time that the broadcast is scheduled to end. The value is
7510-- | The date and time that the broadcast is scheduled to end. The value is
7503-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
7511-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
@@ -7505,6 +7513,7 @@ lbsScheduledEndTime :: Lens' LiveBroadcastSnippet (Maybe UTCTime)
7505lbsScheduledEndTime
7513lbsScheduledEndTime
7506 = lens _lbsScheduledEndTime
7514 = lens _lbsScheduledEndTime
7507 (\ s a -> s{_lbsScheduledEndTime = a})
7515 (\ s a -> s{_lbsScheduledEndTime = a})
7516+ . mapping _DateTime
7508
7517
7509-- | The ID that YouTube uses to uniquely identify the channel that is
7518-- | The ID that YouTube uses to uniquely identify the channel that is
7510-- publishing the broadcast.
7519-- publishing the broadcast.
@@ -7518,6 +7527,7 @@ lbsScheduledStartTime :: Lens' LiveBroadcastSnippet (Maybe UTCTime)
7518lbsScheduledStartTime
7527lbsScheduledStartTime
7519 = lens _lbsScheduledStartTime
7528 = lens _lbsScheduledStartTime
7520 (\ s a -> s{_lbsScheduledStartTime = a})
7529 (\ s a -> s{_lbsScheduledStartTime = a})
7530+ . mapping _DateTime
7521
7531
7522-- | A map of thumbnail images associated with the broadcast. For each nested
7532-- | A map of thumbnail images associated with the broadcast. For each nested
7523-- object in this object, the key is the name of the thumbnail image, and
7533-- object in this object, the key is the name of the thumbnail image, and
@@ -7542,6 +7552,7 @@ lbsActualStartTime :: Lens' LiveBroadcastSnippet (Maybe UTCTime)
7542lbsActualStartTime
7552lbsActualStartTime
7543 = lens _lbsActualStartTime
7553 = lens _lbsActualStartTime
7544 (\ s a -> s{_lbsActualStartTime = a})
7554 (\ s a -> s{_lbsActualStartTime = a})
7555+ . mapping _DateTime
7545
7556
7546lbsIsDefaultBroadcast :: Lens' LiveBroadcastSnippet (Maybe Bool)
7557lbsIsDefaultBroadcast :: Lens' LiveBroadcastSnippet (Maybe Bool)
7547lbsIsDefaultBroadcast
7558lbsIsDefaultBroadcast
@@ -8225,7 +8236,7 @@ instance ToJSON PromotedItemId where
8225--
8236--
8226-- /See:/ 'searchResultSnippet' smart constructor.
8237-- /See:/ 'searchResultSnippet' smart constructor.
8227data SearchResultSnippet = SearchResultSnippet
8238data SearchResultSnippet = SearchResultSnippet
8228− { _srsPublishedAt :: !(Maybe DateTime)
8239+ { _srsPublishedAt :: !(Maybe DateTime')
8229 , _srsChannelTitle :: !(Maybe Text)
8240 , _srsChannelTitle :: !(Maybe Text)
8230 , _srsChannelId :: !(Maybe Text)
8241 , _srsChannelId :: !(Maybe Text)
8231 , _srsThumbnails :: !(Maybe ThumbnailDetails)
8242 , _srsThumbnails :: !(Maybe ThumbnailDetails)
@@ -8271,6 +8282,7 @@ srsPublishedAt :: Lens' SearchResultSnippet (Maybe UTCTime)
8271srsPublishedAt
8282srsPublishedAt
8272 = lens _srsPublishedAt
8283 = lens _srsPublishedAt
8273 (\ s a -> s{_srsPublishedAt = a})
8284 (\ s a -> s{_srsPublishedAt = a})
8285+ . mapping _DateTime
8274
8286
8275-- | The title of the channel that published the resource that the search
8287-- | The title of the channel that published the resource that the search
8276-- result identifies.
8288-- result identifies.
@@ -10691,7 +10703,7 @@ instance ToJSON I18nRegionSnippet where
10691data CaptionSnippet = CaptionSnippet
10703data CaptionSnippet = CaptionSnippet
10692 { _csFailureReason :: !(Maybe CaptionSnippetFailureReason)
10704 { _csFailureReason :: !(Maybe CaptionSnippetFailureReason)
10693 , _csStatus :: !(Maybe CaptionSnippetStatus)
10705 , _csStatus :: !(Maybe CaptionSnippetStatus)
10694− , _csLastUpdated :: !(Maybe DateTime)
10706+ , _csLastUpdated :: !(Maybe DateTime')
10695 , _csTrackKind :: !(Maybe CaptionSnippetTrackKind)
10707 , _csTrackKind :: !(Maybe CaptionSnippetTrackKind)
10696 , _csIsDraft :: !(Maybe Bool)
10708 , _csIsDraft :: !(Maybe Bool)
10697 , _csIsCC :: !(Maybe Bool)
10709 , _csIsCC :: !(Maybe Bool)
@@ -10769,6 +10781,7 @@ csLastUpdated :: Lens' CaptionSnippet (Maybe UTCTime)
10769csLastUpdated
10781csLastUpdated
10770 = lens _csLastUpdated
10782 = lens _csLastUpdated
10771 (\ s a -> s{_csLastUpdated = a})
10783 (\ s a -> s{_csLastUpdated = a})
10784+ . mapping _DateTime
10772
10785
10773-- | The caption track\'s type.
10786-- | The caption track\'s type.
10774csTrackKind :: Lens' CaptionSnippet (Maybe CaptionSnippetTrackKind)
10787csTrackKind :: Lens' CaptionSnippet (Maybe CaptionSnippetTrackKind)
@@ -10943,7 +10956,7 @@ instance ToJSON Comment where
10943-- /See:/ 'playListItemSnippet' smart constructor.
10956-- /See:/ 'playListItemSnippet' smart constructor.
10944data PlayListItemSnippet = PlayListItemSnippet
10957data PlayListItemSnippet = PlayListItemSnippet
10945 { _plisResourceId :: !(Maybe ResourceId)
10958 { _plisResourceId :: !(Maybe ResourceId)
10946− , _plisPublishedAt :: !(Maybe DateTime)
10959+ , _plisPublishedAt :: !(Maybe DateTime')
10947 , _plisChannelTitle :: !(Maybe Text)
10960 , _plisChannelTitle :: !(Maybe Text)
10948 , _plisChannelId :: !(Maybe Text)
10961 , _plisChannelId :: !(Maybe Text)
10949 , _plisThumbnails :: !(Maybe ThumbnailDetails)
10962 , _plisThumbnails :: !(Maybe ThumbnailDetails)
@@ -11002,6 +11015,7 @@ plisPublishedAt :: Lens' PlayListItemSnippet (Maybe UTCTime)
11002plisPublishedAt
11015plisPublishedAt
11003 = lens _plisPublishedAt
11016 = lens _plisPublishedAt
11004 (\ s a -> s{_plisPublishedAt = a})
11017 (\ s a -> s{_plisPublishedAt = a})
11018+ . mapping _DateTime
11005
11019
11006-- | Channel title for the channel that the playlist item belongs to.
11020-- | Channel title for the channel that the playlist item belongs to.
11007plisChannelTitle :: Lens' PlayListItemSnippet (Maybe Text)
11021plisChannelTitle :: Lens' PlayListItemSnippet (Maybe Text)
@@ -12207,7 +12221,7 @@ instance ToJSON ContentRating where
12207-- /See:/ 'commentSnippet' smart constructor.
12221-- /See:/ 'commentSnippet' smart constructor.
12208data CommentSnippet = CommentSnippet
12222data CommentSnippet = CommentSnippet
12209 { _cViewerRating :: !(Maybe CommentSnippetViewerRating)
12223 { _cViewerRating :: !(Maybe CommentSnippetViewerRating)
12210− , _cPublishedAt :: !(Maybe DateTime)
12224+ , _cPublishedAt :: !(Maybe DateTime')
12211 , _cAuthorChannelURL :: !(Maybe Text)
12225 , _cAuthorChannelURL :: !(Maybe Text)
12212 , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus)
12226 , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus)
12213 , _cLikeCount :: !(Maybe Word32)
12227 , _cLikeCount :: !(Maybe Word32)
@@ -12217,7 +12231,7 @@ data CommentSnippet = CommentSnippet
12217 , _cTextDisplay :: !(Maybe Text)
12231 , _cTextDisplay :: !(Maybe Text)
12218 , _cAuthorProfileImageURL :: !(Maybe Text)
12232 , _cAuthorProfileImageURL :: !(Maybe Text)
12219 , _cAuthorDisplayName :: !(Maybe Text)
12233 , _cAuthorDisplayName :: !(Maybe Text)
12220− , _cUpdatedAt :: !(Maybe DateTime)
12234+ , _cUpdatedAt :: !(Maybe DateTime')
12221 , _cAuthorChannelId :: !(Maybe ChannelId)
12235 , _cAuthorChannelId :: !(Maybe ChannelId)
12222 , _cCanRate :: !(Maybe Bool)
12236 , _cCanRate :: !(Maybe Bool)
12223 , _cAuthorGoogleplusProfileURL :: !(Maybe Text)
12237 , _cAuthorGoogleplusProfileURL :: !(Maybe Text)
@@ -12294,6 +12308,7 @@ cViewerRating
12294cPublishedAt :: Lens' CommentSnippet (Maybe UTCTime)
12308cPublishedAt :: Lens' CommentSnippet (Maybe UTCTime)
12295cPublishedAt
12309cPublishedAt
12296 = lens _cPublishedAt (\ s a -> s{_cPublishedAt = a})
12310 = lens _cPublishedAt (\ s a -> s{_cPublishedAt = a})
12311+ . mapping _DateTime
12297
12312
12298-- | Link to the author\'s YouTube channel, if any.
12313-- | Link to the author\'s YouTube channel, if any.
12299cAuthorChannelURL :: Lens' CommentSnippet (Maybe Text)
12314cAuthorChannelURL :: Lens' CommentSnippet (Maybe Text)
@@ -12356,7 +12371,8 @@ cAuthorDisplayName
12356-- 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
12371-- 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
12357cUpdatedAt :: Lens' CommentSnippet (Maybe UTCTime)
12372cUpdatedAt :: Lens' CommentSnippet (Maybe UTCTime)
12358cUpdatedAt
12373cUpdatedAt
12359− = lens _cUpdatedAt (\ s a -> s{_cUpdatedAt = a})
12374+ = lens _cUpdatedAt (\ s a -> s{_cUpdatedAt = a}) .
12375+ mapping _DateTime
12360
12376
12361-- | The id of the author\'s YouTube channel, if any.
12377-- | The id of the author\'s YouTube channel, if any.
12362cAuthorChannelId :: Lens' CommentSnippet (Maybe ChannelId)
12378cAuthorChannelId :: Lens' CommentSnippet (Maybe ChannelId)
@@ -12429,7 +12445,7 @@ instance ToJSON CommentSnippet where
12429data VideoRecordingDetails = VideoRecordingDetails
12445data VideoRecordingDetails = VideoRecordingDetails
12430 { _vrdLocation :: !(Maybe GeoPoint)
12446 { _vrdLocation :: !(Maybe GeoPoint)
12431 , _vrdLocationDescription :: !(Maybe Text)
12447 , _vrdLocationDescription :: !(Maybe Text)
12432− , _vrdRecordingDate :: !(Maybe DateTime)
12448+ , _vrdRecordingDate :: !(Maybe DateTime')
12433 } deriving (Eq,Read,Show,Data,Typeable,Generic)
12449 } deriving (Eq,Read,Show,Data,Typeable,Generic)
12434
12450
12435-- | Creates a value of 'VideoRecordingDetails' with the minimum fields required to make a request.
12451-- | Creates a value of 'VideoRecordingDetails' with the minimum fields required to make a request.
@@ -12467,6 +12483,7 @@ vrdRecordingDate :: Lens' VideoRecordingDetails (Maybe UTCTime)
12467vrdRecordingDate
12483vrdRecordingDate
12468 = lens _vrdRecordingDate
12484 = lens _vrdRecordingDate
12469 (\ s a -> s{_vrdRecordingDate = a})
12485 (\ s a -> s{_vrdRecordingDate = a})
12486+ . mapping _DateTime
12470
12487
12471instance FromJSON VideoRecordingDetails where
12488instance FromJSON VideoRecordingDetails where
12472 parseJSON
12489 parseJSON
@@ -12685,7 +12702,7 @@ instance ToJSON ChannelSettings where
12685-- /See:/ 'subscriptionSnippet' smart constructor.
12702-- /See:/ 'subscriptionSnippet' smart constructor.
12686data SubscriptionSnippet = SubscriptionSnippet
12703data SubscriptionSnippet = SubscriptionSnippet
12687 { _ssResourceId :: !(Maybe ResourceId)
12704 { _ssResourceId :: !(Maybe ResourceId)
12688− , _ssPublishedAt :: !(Maybe DateTime)
12705+ , _ssPublishedAt :: !(Maybe DateTime')
12689 , _ssChannelTitle :: !(Maybe Text)
12706 , _ssChannelTitle :: !(Maybe Text)
12690 , _ssChannelId :: !(Maybe Text)
12707 , _ssChannelId :: !(Maybe Text)
12691 , _ssThumbnails :: !(Maybe ThumbnailDetails)
12708 , _ssThumbnails :: !(Maybe ThumbnailDetails)
@@ -12735,6 +12752,7 @@ ssPublishedAt :: Lens' SubscriptionSnippet (Maybe UTCTime)
12735ssPublishedAt
12752ssPublishedAt
12736 = lens _ssPublishedAt
12753 = lens _ssPublishedAt
12737 (\ s a -> s{_ssPublishedAt = a})
12754 (\ s a -> s{_ssPublishedAt = a})
12755+ . mapping _DateTime
12738
12756
12739-- | Channel title for the channel that the subscription belongs to.
12757-- | Channel title for the channel that the subscription belongs to.
12740ssChannelTitle :: Lens' SubscriptionSnippet (Maybe Text)
12758ssChannelTitle :: Lens' SubscriptionSnippet (Maybe Text)
@@ -12840,11 +12858,11 @@ instance ToJSON LiveStreamStatus where
12840--
12858--
12841-- /See:/ 'videoLiveStreamingDetails' smart constructor.
12859-- /See:/ 'videoLiveStreamingDetails' smart constructor.
12842data VideoLiveStreamingDetails = VideoLiveStreamingDetails
12860data VideoLiveStreamingDetails = VideoLiveStreamingDetails
12843− { _vlsdActualEndTime :: !(Maybe DateTime)
12861+ { _vlsdActualEndTime :: !(Maybe DateTime')
12844 , _vlsdConcurrentViewers :: !(Maybe Word64)
12862 , _vlsdConcurrentViewers :: !(Maybe Word64)
12845− , _vlsdScheduledEndTime :: !(Maybe DateTime)
12863+ , _vlsdScheduledEndTime :: !(Maybe DateTime')
12846− , _vlsdScheduledStartTime :: !(Maybe DateTime)
12864+ , _vlsdScheduledStartTime :: !(Maybe DateTime')
12847− , _vlsdActualStartTime :: !(Maybe DateTime)
12865+ , _vlsdActualStartTime :: !(Maybe DateTime')
12848 } deriving (Eq,Read,Show,Data,Typeable,Generic)
12866 } deriving (Eq,Read,Show,Data,Typeable,Generic)
12849
12867
12850-- | Creates a value of 'VideoLiveStreamingDetails' with the minimum fields required to make a request.
12868-- | Creates a value of 'VideoLiveStreamingDetails' with the minimum fields required to make a request.
@@ -12878,6 +12896,7 @@ vlsdActualEndTime :: Lens' VideoLiveStreamingDetails (Maybe UTCTime)
12878vlsdActualEndTime
12896vlsdActualEndTime
12879 = lens _vlsdActualEndTime
12897 = lens _vlsdActualEndTime
12880 (\ s a -> s{_vlsdActualEndTime = a})
12898 (\ s a -> s{_vlsdActualEndTime = a})
12899+ . mapping _DateTime
12881
12900
12882-- | The number of viewers currently watching the broadcast. The property and
12901-- | The number of viewers currently watching the broadcast. The property and
12883-- its value will be present if the broadcast has current viewers and the
12902-- its value will be present if the broadcast has current viewers and the
@@ -12899,6 +12918,7 @@ vlsdScheduledEndTime :: Lens' VideoLiveStreamingDetails (Maybe UTCTime)
12899vlsdScheduledEndTime
12918vlsdScheduledEndTime
12900 = lens _vlsdScheduledEndTime
12919 = lens _vlsdScheduledEndTime
12901 (\ s a -> s{_vlsdScheduledEndTime = a})
12920 (\ s a -> s{_vlsdScheduledEndTime = a})
12921+ . mapping _DateTime
12902
12922
12903-- | The time that the broadcast is scheduled to begin. The value is
12923-- | The time that the broadcast is scheduled to begin. The value is
12904-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
12924-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
@@ -12906,6 +12926,7 @@ vlsdScheduledStartTime :: Lens' VideoLiveStreamingDetails (Maybe UTCTime)
12906vlsdScheduledStartTime
12926vlsdScheduledStartTime
12907 = lens _vlsdScheduledStartTime
12927 = lens _vlsdScheduledStartTime
12908 (\ s a -> s{_vlsdScheduledStartTime = a})
12928 (\ s a -> s{_vlsdScheduledStartTime = a})
12929+ . mapping _DateTime
12909
12930
12910-- | The time that the broadcast actually started. The value is specified in
12931-- | The time that the broadcast actually started. The value is specified in
12911-- ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format. This value will not be
12932-- ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format. This value will not be
@@ -12914,6 +12935,7 @@ vlsdActualStartTime :: Lens' VideoLiveStreamingDetails (Maybe UTCTime)
12914vlsdActualStartTime
12935vlsdActualStartTime
12915 = lens _vlsdActualStartTime
12936 = lens _vlsdActualStartTime
12916 (\ s a -> s{_vlsdActualStartTime = a})
12937 (\ s a -> s{_vlsdActualStartTime = a})
12938+ . mapping _DateTime
12917
12939
12918instance FromJSON VideoLiveStreamingDetails where
12940instance FromJSON VideoLiveStreamingDetails where
12919 parseJSON
12941 parseJSON
@@ -13375,7 +13397,7 @@ instance ToJSON VideoConversionPing where
13375--
13397--
13376-- /See:/ 'channelContentOwnerDetails' smart constructor.
13398-- /See:/ 'channelContentOwnerDetails' smart constructor.
13377data ChannelContentOwnerDetails = ChannelContentOwnerDetails
13399data ChannelContentOwnerDetails = ChannelContentOwnerDetails
13378− { _ccodTimeLinked :: !(Maybe DateTime)
13400+ { _ccodTimeLinked :: !(Maybe DateTime')
13379 , _ccodContentOwner :: !(Maybe Text)
13401 , _ccodContentOwner :: !(Maybe Text)
13380 } deriving (Eq,Read,Show,Data,Typeable,Generic)
13402 } deriving (Eq,Read,Show,Data,Typeable,Generic)
13381
13403
@@ -13400,6 +13422,7 @@ ccodTimeLinked :: Lens' ChannelContentOwnerDetails (Maybe UTCTime)
13400ccodTimeLinked
13422ccodTimeLinked
13401 = lens _ccodTimeLinked
13423 = lens _ccodTimeLinked
13402 (\ s a -> s{_ccodTimeLinked = a})
13424 (\ s a -> s{_ccodTimeLinked = a})
13425+ . mapping _DateTime
13403
13426
13404-- | The ID of the content owner linked to the channel.
13427-- | The ID of the content owner linked to the channel.
13405ccodContentOwner :: Lens' ChannelContentOwnerDetails (Maybe Text)
13428ccodContentOwner :: Lens' ChannelContentOwnerDetails (Maybe Text)