@@ -19,56 +19,56 @@ import Network.Google.AdExchangeBuyer.Types.Sum
1919import Network.Google.Prelude
2020
2121--
22−-- /See:/ 'brandDto' smart constructor.
23−data BrandDto = BrandDto
24− { _bdAdvertiserId :: !(Maybe Int64)
25− , _bdName :: !(Maybe Text)
26− , _bdId :: !(Maybe Int64)
22+-- /See:/ 'brandDTO' smart constructor.
23+data BrandDTO = BrandDTO
24+ { _bdtoAdvertiserId :: !(Maybe Int64)
25+ , _bdtoName :: !(Maybe Text)
26+ , _bdtoId :: !(Maybe Int64)
2727 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2828
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.
3030--
3131-- Use one of the following lenses to modify other fields as desired:
3232--
33−-- * 'bdAdvertiserId'
33+-- * 'bdtoAdvertiserId'
3434--
35−-- * 'bdName'
35+-- * 'bdtoName'
3636--
37−-- * 'bdId'
38−brandDto
39− :: BrandDto
40−brandDto =
41− BrandDto
42− { _bdAdvertiserId = Nothing
43− , _bdName = Nothing
44− , _bdId = Nothing
37+-- * 'bdtoId'
38+brandDTO
39+ :: BrandDTO
40+brandDTO =
41+ BrandDTO
42+ { _bdtoAdvertiserId = Nothing
43+ , _bdtoName = Nothing
44+ , _bdtoId = Nothing
4545 }
4646
47−bdAdvertiserId :: Lens' BrandDto (Maybe Int64)
48−bdAdvertiserId
49− = lens _bdAdvertiserId
50− (\ s a -> s{_bdAdvertiserId = a})
47+bdtoAdvertiserId :: Lens' BrandDTO (Maybe Int64)
48+bdtoAdvertiserId
49+ = lens _bdtoAdvertiserId
50+ (\ s a -> s{_bdtoAdvertiserId = a})
5151
52−bdName :: Lens' BrandDto (Maybe Text)
53−bdName = lens _bdName (\ s a -> s{_bdName = a})
52+bdtoName :: Lens' BrandDTO (Maybe Text)
53+bdtoName = lens _bdtoName (\ s a -> s{_bdtoName = a})
5454
55−bdId :: Lens' BrandDto (Maybe Int64)
56−bdId = lens _bdId (\ s a -> s{_bdId = a})
55+bdtoId :: Lens' BrandDTO (Maybe Int64)
56+bdtoId = lens _bdtoId (\ s a -> s{_bdtoId = a})
5757
58−instance FromJSON BrandDto where
58+instance FromJSON BrandDTO where
5959 parseJSON
60− = withObject "BrandDto"
60+ = withObject "BrandDTO"
6161 (\ o ->
62− BrandDto <$>
62+ BrandDTO <$>
6363 (o .:? "advertiserId") <*> (o .:? "name") <*>
6464 (o .:? "id"))
6565
66−instance ToJSON BrandDto where
67− toJSON BrandDto{..}
66+instance ToJSON BrandDTO where
67+ toJSON BrandDTO{..}
6868 = object
6969 (catMaybes
70− [("advertiserId" .=) <$> _bdAdvertiserId,
71− ("name" .=) <$> _bdName, ("id" .=) <$> _bdId])
70+ [("advertiserId" .=) <$> _bdtoAdvertiserId,
71+ ("name" .=) <$> _bdtoName, ("id" .=) <$> _bdtoId])
7272
7373--
7474-- /See:/ 'editAllOrderDealsResponse' smart constructor.
@@ -434,295 +434,297 @@ instance ToJSON PretargetingConfigDimensions where
434434 ("width" .=) <$> _pcdWidth])
435435
436436--
437−-- /See:/ 'termsDto' smart constructor.
438−data TermsDto = TermsDto
439− { _tdFinalizeAutomatically :: !(Maybe Bool)
440− , _tdBuyerBillingType :: !(Maybe Text)
441− , _tdTargetingAllAdSlots :: !(Maybe Bool)
442− , _tdURLs :: !(Maybe [Text])
443− , _tdEndDate :: !(Maybe DateTime)
444− , _tdCpm :: !(Maybe MoneyDto)
445− , _tdEstimatedSpend :: !(Maybe MoneyDto)
446− , _tdAdvertisers :: !(Maybe [AdvertiserDto])
447− , _tdEstimatedImpressionsPerDay :: !(Maybe Int64)
448− , _tdMonetizerType :: !(Maybe Text)
449− , _tdAudienceSegmentDescription :: !(Maybe Text)
450− , _tdCreativeReviewPolicy :: !(Maybe Text)
451− , _tdMinimumTrueLooks :: !(Maybe Int64)
452− , _tdStartDate :: !(Maybe DateTime)
453− , _tdCreativeBlockingLevel :: !(Maybe Text)
454− , _tdSemiTransparent :: !(Maybe Bool)
455− , _tdAudienceSegment :: !(Maybe AudienceSegment)
456− , _tdDealPremium :: !(Maybe MoneyDto)
457− , _tdIsReservation :: !(Maybe Bool)
458− , _tdAdSlots :: !(Maybe [AdSlotDto])
459− , _tdTermsAttributes :: !(Maybe [Text])
460− , _tdInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
461− , _tdDescriptiveName :: !(Maybe Text)
462− , _tdMinimumSpendMicros :: !(Maybe Int64)
463− , _tdTargetByDealId :: !(Maybe Bool)
464− , _tdBillingTerms :: !(Maybe Text)
465− , _tdDescription :: !(Maybe Text)
437+-- /See:/ 'termsDTO' smart constructor.
438+data TermsDTO = TermsDTO
439+ { _tdtoFinalizeAutomatically :: !(Maybe Bool)
440+ , _tdtoBuyerBillingType :: !(Maybe Text)
441+ , _tdtoTargetingAllAdSlots :: !(Maybe Bool)
442+ , _tdtoURLs :: !(Maybe [Text])
443+ , _tdtoEndDate :: !(Maybe DateTime)
444+ , _tdtoCpm :: !(Maybe MoneyDTO)
445+ , _tdtoEstimatedSpend :: !(Maybe MoneyDTO)
446+ , _tdtoAdvertisers :: !(Maybe [AdvertiserDTO])
447+ , _tdtoEstimatedImpressionsPerDay :: !(Maybe Int64)
448+ , _tdtoMonetizerType :: !(Maybe Text)
449+ , _tdtoAudienceSegmentDescription :: !(Maybe Text)
450+ , _tdtoCreativeReviewPolicy :: !(Maybe Text)
451+ , _tdtoMinimumTrueLooks :: !(Maybe Int64)
452+ , _tdtoStartDate :: !(Maybe DateTime)
453+ , _tdtoCreativeBlockingLevel :: !(Maybe Text)
454+ , _tdtoSemiTransparent :: !(Maybe Bool)
455+ , _tdtoAudienceSegment :: !(Maybe AudienceSegment)
456+ , _tdtoDealPremium :: !(Maybe MoneyDTO)
457+ , _tdtoIsReservation :: !(Maybe Bool)
458+ , _tdtoAdSlots :: !(Maybe [AdSlotDTO])
459+ , _tdtoTermsAttributes :: !(Maybe [Text])
460+ , _tdtoInventorySegmentTargeting :: !(Maybe InventorySegmentTargeting)
461+ , _tdtoDescriptiveName :: !(Maybe Text)
462+ , _tdtoMinimumSpendMicros :: !(Maybe Int64)
463+ , _tdtoTargetByDealId :: !(Maybe Bool)
464+ , _tdtoBillingTerms :: !(Maybe Text)
465+ , _tdtoDescription :: !(Maybe Text)
466466 } deriving (Eq,Read,Show,Data,Typeable,Generic)
467467
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.
469469--
470470-- Use one of the following lenses to modify other fields as desired:
471471--
472−-- * 'tdFinalizeAutomatically'
472+-- * 'tdtoFinalizeAutomatically'
473473--
474−-- * 'tdBuyerBillingType'
474+-- * 'tdtoBuyerBillingType'
475475--
476−-- * 'tdTargetingAllAdSlots'
476+-- * 'tdtoTargetingAllAdSlots'
477477--
478−-- * 'tdURLs'
478+-- * 'tdtoURLs'
479479--
480−-- * 'tdEndDate'
480+-- * 'tdtoEndDate'
481481--
482−-- * 'tdCpm'
482+-- * 'tdtoCpm'
483483--
484−-- * 'tdEstimatedSpend'
484+-- * 'tdtoEstimatedSpend'
485485--
486−-- * 'tdAdvertisers'
486+-- * 'tdtoAdvertisers'
487487--
488−-- * 'tdEstimatedImpressionsPerDay'
488+-- * 'tdtoEstimatedImpressionsPerDay'
489489--
490−-- * 'tdMonetizerType'
490+-- * 'tdtoMonetizerType'
491491--
492−-- * 'tdAudienceSegmentDescription'
492+-- * 'tdtoAudienceSegmentDescription'
493493--
494−-- * 'tdCreativeReviewPolicy'
494+-- * 'tdtoCreativeReviewPolicy'
495495--
496−-- * 'tdMinimumTrueLooks'
496+-- * 'tdtoMinimumTrueLooks'
497497--
498−-- * 'tdStartDate'
498+-- * 'tdtoStartDate'
499499--
500−-- * 'tdCreativeBlockingLevel'
500+-- * 'tdtoCreativeBlockingLevel'
501501--
502−-- * 'tdSemiTransparent'
502+-- * 'tdtoSemiTransparent'
503503--
504−-- * 'tdAudienceSegment'
504+-- * 'tdtoAudienceSegment'
505505--
506−-- * 'tdDealPremium'
506+-- * 'tdtoDealPremium'
507507--
508−-- * 'tdIsReservation'
508+-- * 'tdtoIsReservation'
509509--
510−-- * 'tdAdSlots'
510+-- * 'tdtoAdSlots'
511511--
512−-- * 'tdTermsAttributes'
512+-- * 'tdtoTermsAttributes'
513513--
514−-- * 'tdInventorySegmentTargeting'
514+-- * 'tdtoInventorySegmentTargeting'
515515--
516−-- * 'tdDescriptiveName'
516+-- * 'tdtoDescriptiveName'
517517--
518−-- * 'tdMinimumSpendMicros'
518+-- * 'tdtoMinimumSpendMicros'
519519--
520−-- * 'tdTargetByDealId'
520+-- * 'tdtoTargetByDealId'
521521--
522−-- * 'tdBillingTerms'
522+-- * 'tdtoBillingTerms'
523523--
524−-- * 'tdDescription'
525−termsDto
526− :: TermsDto
527−termsDto =
528− TermsDto
529− { _tdFinalizeAutomatically = Nothing
530− , _tdBuyerBillingType = Nothing
531− , _tdTargetingAllAdSlots = Nothing
532− , _tdURLs = Nothing
533− , _tdEndDate = Nothing
534− , _tdCpm = Nothing
535− , _tdEstimatedSpend = Nothing
536− , _tdAdvertisers = Nothing
537− , _tdEstimatedImpressionsPerDay = Nothing
538− , _tdMonetizerType = Nothing
539− , _tdAudienceSegmentDescription = Nothing
540− , _tdCreativeReviewPolicy = Nothing
541− , _tdMinimumTrueLooks = Nothing
542− , _tdStartDate = Nothing
543− , _tdCreativeBlockingLevel = Nothing
544− , _tdSemiTransparent = Nothing
545− , _tdAudienceSegment = Nothing
546− , _tdDealPremium = Nothing
547− , _tdIsReservation = Nothing
548− , _tdAdSlots = Nothing
549− , _tdTermsAttributes = Nothing
550− , _tdInventorySegmentTargeting = Nothing
551− , _tdDescriptiveName = Nothing
552− , _tdMinimumSpendMicros = Nothing
553− , _tdTargetByDealId = Nothing
554− , _tdBillingTerms = Nothing
555− , _tdDescription = Nothing
524+-- * 'tdtoDescription'
525+termsDTO
526+ :: TermsDTO
527+termsDTO =
528+ TermsDTO
529+ { _tdtoFinalizeAutomatically = Nothing
530+ , _tdtoBuyerBillingType = Nothing
531+ , _tdtoTargetingAllAdSlots = Nothing
532+ , _tdtoURLs = Nothing
533+ , _tdtoEndDate = Nothing
534+ , _tdtoCpm = Nothing
535+ , _tdtoEstimatedSpend = Nothing
536+ , _tdtoAdvertisers = Nothing
537+ , _tdtoEstimatedImpressionsPerDay = Nothing
538+ , _tdtoMonetizerType = Nothing
539+ , _tdtoAudienceSegmentDescription = Nothing
540+ , _tdtoCreativeReviewPolicy = Nothing
541+ , _tdtoMinimumTrueLooks = Nothing
542+ , _tdtoStartDate = Nothing
543+ , _tdtoCreativeBlockingLevel = Nothing
544+ , _tdtoSemiTransparent = Nothing
545+ , _tdtoAudienceSegment = Nothing
546+ , _tdtoDealPremium = Nothing
547+ , _tdtoIsReservation = Nothing
548+ , _tdtoAdSlots = Nothing
549+ , _tdtoTermsAttributes = Nothing
550+ , _tdtoInventorySegmentTargeting = Nothing
551+ , _tdtoDescriptiveName = Nothing
552+ , _tdtoMinimumSpendMicros = Nothing
553+ , _tdtoTargetByDealId = Nothing
554+ , _tdtoBillingTerms = Nothing
555+ , _tdtoDescription = Nothing
556556 }
557557
558558-- | If true, the offer will finalize automatically when accepted.
559−tdFinalizeAutomatically :: Lens' TermsDto (Maybe Bool)
560−tdFinalizeAutomatically
561− = lens _tdFinalizeAutomatically
562− (\ s a -> s{_tdFinalizeAutomatically = a})
559+tdtoFinalizeAutomatically :: Lens' TermsDTO (Maybe Bool)
560+tdtoFinalizeAutomatically
561+ = lens _tdtoFinalizeAutomatically
562+ (\ s a -> s{_tdtoFinalizeAutomatically = a})
563563
564564-- | The buyer billing type.
565−tdBuyerBillingType :: Lens' TermsDto (Maybe Text)
566−tdBuyerBillingType
567− = lens _tdBuyerBillingType
568− (\ s a -> s{_tdBuyerBillingType = a})
565+tdtoBuyerBillingType :: Lens' TermsDTO (Maybe Text)
566+tdtoBuyerBillingType
567+ = lens _tdtoBuyerBillingType
568+ (\ s a -> s{_tdtoBuyerBillingType = a})
569569
570570-- | If true, the offer targets all ad slots.
571−tdTargetingAllAdSlots :: Lens' TermsDto (Maybe Bool)
572−tdTargetingAllAdSlots
573− = lens _tdTargetingAllAdSlots
574− (\ s a -> s{_tdTargetingAllAdSlots = a})
571+tdtoTargetingAllAdSlots :: Lens' TermsDTO (Maybe Bool)
572+tdtoTargetingAllAdSlots
573+ = lens _tdtoTargetingAllAdSlots
574+ (\ s a -> s{_tdtoTargetingAllAdSlots = a})
575575
576576-- | The urls applicable to the offer.
577−tdURLs :: Lens' TermsDto [Text]
578−tdURLs
579− = lens _tdURLs (\ s a -> s{_tdURLs = a}) . _Default .
580− _Coerce
577+tdtoURLs :: Lens' TermsDTO [Text]
578+tdtoURLs
579+ = lens _tdtoURLs (\ s a -> s{_tdtoURLs = a}) .
580+ _Default
581+ . _Coerce
581582
582583-- | The end date for the offer.
583−tdEndDate :: Lens' TermsDto (Maybe DateTime)
584−tdEndDate
585− = lens _tdEndDate (\ s a -> s{_tdEndDate = a})
584+tdtoEndDate :: Lens' TermsDTO (Maybe DateTime)
585+tdtoEndDate
586+ = lens _tdtoEndDate (\ s a -> s{_tdtoEndDate = a})
586587
587588-- | The cpm terms.
588−tdCpm :: Lens' TermsDto (Maybe MoneyDto)
589−tdCpm = lens _tdCpm (\ s a -> s{_tdCpm = a})
589+tdtoCpm :: Lens' TermsDTO (Maybe MoneyDTO)
590+tdtoCpm = lens _tdtoCpm (\ s a -> s{_tdtoCpm = a})
590591
591592-- | The estimated spend for the offer.
592−tdEstimatedSpend :: Lens' TermsDto (Maybe MoneyDto)
593−tdEstimatedSpend
594− = lens _tdEstimatedSpend
595− (\ s a -> s{_tdEstimatedSpend = a})
593+tdtoEstimatedSpend :: Lens' TermsDTO (Maybe MoneyDTO)
594+tdtoEstimatedSpend
595+ = lens _tdtoEstimatedSpend
596+ (\ s a -> s{_tdtoEstimatedSpend = a})
596597
597598-- | A list of advertisers for this offer.
598−tdAdvertisers :: Lens' TermsDto [AdvertiserDto]
599−tdAdvertisers
600− = lens _tdAdvertisers
601− (\ s a -> s{_tdAdvertisers = a})
599+tdtoAdvertisers :: Lens' TermsDTO [AdvertiserDTO]
600+tdtoAdvertisers
601+ = lens _tdtoAdvertisers
602+ (\ s a -> s{_tdtoAdvertisers = a})
602603 . _Default
603604 . _Coerce
604605
605606-- | The estimated daily impressions for the offer.
606−tdEstimatedImpressionsPerDay :: Lens' TermsDto (Maybe Int64)
607−tdEstimatedImpressionsPerDay
608− = lens _tdEstimatedImpressionsPerDay
609− (\ s a -> s{_tdEstimatedImpressionsPerDay = a})
607+tdtoEstimatedImpressionsPerDay :: Lens' TermsDTO (Maybe Int64)
608+tdtoEstimatedImpressionsPerDay
609+ = lens _tdtoEstimatedImpressionsPerDay
610+ (\ s a -> s{_tdtoEstimatedImpressionsPerDay = a})
610611
611612-- | The monetizer type.
612−tdMonetizerType :: Lens' TermsDto (Maybe Text)
613−tdMonetizerType
614− = lens _tdMonetizerType
615− (\ s a -> s{_tdMonetizerType = a})
613+tdtoMonetizerType :: Lens' TermsDTO (Maybe Text)
614+tdtoMonetizerType
615+ = lens _tdtoMonetizerType
616+ (\ s a -> s{_tdtoMonetizerType = a})
616617
617618-- | A description of the audience segment for the offer.
618−tdAudienceSegmentDescription :: Lens' TermsDto (Maybe Text)
619−tdAudienceSegmentDescription
620− = lens _tdAudienceSegmentDescription
621− (\ s a -> s{_tdAudienceSegmentDescription = a})
619+tdtoAudienceSegmentDescription :: Lens' TermsDTO (Maybe Text)
620+tdtoAudienceSegmentDescription
621+ = lens _tdtoAudienceSegmentDescription
622+ (\ s a -> s{_tdtoAudienceSegmentDescription = a})
622623
623624-- | Whether to use publisher review policy or AdX review policy.
624−tdCreativeReviewPolicy :: Lens' TermsDto (Maybe Text)
625−tdCreativeReviewPolicy
626− = lens _tdCreativeReviewPolicy
627− (\ s a -> s{_tdCreativeReviewPolicy = a})
625+tdtoCreativeReviewPolicy :: Lens' TermsDTO (Maybe Text)
626+tdtoCreativeReviewPolicy
627+ = lens _tdtoCreativeReviewPolicy
628+ (\ s a -> s{_tdtoCreativeReviewPolicy = a})
628629
629630-- | The minimum true looks for the offer.
630−tdMinimumTrueLooks :: Lens' TermsDto (Maybe Int64)
631−tdMinimumTrueLooks
632− = lens _tdMinimumTrueLooks
633− (\ s a -> s{_tdMinimumTrueLooks = a})
631+tdtoMinimumTrueLooks :: Lens' TermsDTO (Maybe Int64)
632+tdtoMinimumTrueLooks
633+ = lens _tdtoMinimumTrueLooks
634+ (\ s a -> s{_tdtoMinimumTrueLooks = a})
634635
635636-- | The start date for the offer.
636−tdStartDate :: Lens' TermsDto (Maybe DateTime)
637−tdStartDate
638− = lens _tdStartDate (\ s a -> s{_tdStartDate = a})
637+tdtoStartDate :: Lens' TermsDTO (Maybe DateTime)
638+tdtoStartDate
639+ = lens _tdtoStartDate
640+ (\ s a -> s{_tdtoStartDate = a})
639641
640642-- | Whether to use or ignore publisher blocking rules.
641−tdCreativeBlockingLevel :: Lens' TermsDto (Maybe Text)
642−tdCreativeBlockingLevel
643− = lens _tdCreativeBlockingLevel
644− (\ s a -> s{_tdCreativeBlockingLevel = a})
643+tdtoCreativeBlockingLevel :: Lens' TermsDTO (Maybe Text)
644+tdtoCreativeBlockingLevel
645+ = lens _tdtoCreativeBlockingLevel
646+ (\ s a -> s{_tdtoCreativeBlockingLevel = a})
645647
646648-- | Whether this offer is semi-transparent.
647−tdSemiTransparent :: Lens' TermsDto (Maybe Bool)
648−tdSemiTransparent
649− = lens _tdSemiTransparent
650− (\ s a -> s{_tdSemiTransparent = a})
649+tdtoSemiTransparent :: Lens' TermsDTO (Maybe Bool)
650+tdtoSemiTransparent
651+ = lens _tdtoSemiTransparent
652+ (\ s a -> s{_tdtoSemiTransparent = a})
651653
652654-- | The audience segment for the offer.
653−tdAudienceSegment :: Lens' TermsDto (Maybe AudienceSegment)
654−tdAudienceSegment
655− = lens _tdAudienceSegment
656− (\ s a -> s{_tdAudienceSegment = a})
655+tdtoAudienceSegment :: Lens' TermsDTO (Maybe AudienceSegment)
656+tdtoAudienceSegment
657+ = lens _tdtoAudienceSegment
658+ (\ s a -> s{_tdtoAudienceSegment = a})
657659
658660-- | The premium terms.
659−tdDealPremium :: Lens' TermsDto (Maybe MoneyDto)
660−tdDealPremium
661− = lens _tdDealPremium
662− (\ s a -> s{_tdDealPremium = a})
661+tdtoDealPremium :: Lens' TermsDTO (Maybe MoneyDTO)
662+tdtoDealPremium
663+ = lens _tdtoDealPremium
664+ (\ s a -> s{_tdtoDealPremium = a})
663665
664666-- | Whether the offer is a reservation.
665−tdIsReservation :: Lens' TermsDto (Maybe Bool)
666−tdIsReservation
667− = lens _tdIsReservation
668− (\ s a -> s{_tdIsReservation = a})
667+tdtoIsReservation :: Lens' TermsDTO (Maybe Bool)
668+tdtoIsReservation
669+ = lens _tdtoIsReservation
670+ (\ s a -> s{_tdtoIsReservation = a})
669671
670672-- | The particular ad slots targeted by the offer.
671−tdAdSlots :: Lens' TermsDto [AdSlotDto]
672−tdAdSlots
673− = lens _tdAdSlots (\ s a -> s{_tdAdSlots = a}) .
673+tdtoAdSlots :: Lens' TermsDTO [AdSlotDTO]
674+tdtoAdSlots
675+ = lens _tdtoAdSlots (\ s a -> s{_tdtoAdSlots = a}) .
674676 _Default
675677 . _Coerce
676678
677679-- | A list of terms attributes.
678−tdTermsAttributes :: Lens' TermsDto [Text]
679−tdTermsAttributes
680− = lens _tdTermsAttributes
681− (\ s a -> s{_tdTermsAttributes = a})
680+tdtoTermsAttributes :: Lens' TermsDTO [Text]
681+tdtoTermsAttributes
682+ = lens _tdtoTermsAttributes
683+ (\ s a -> s{_tdtoTermsAttributes = a})
682684 . _Default
683685 . _Coerce
684686
685687-- | The inventory segment targeting for the offer.
686−tdInventorySegmentTargeting :: Lens' TermsDto (Maybe InventorySegmentTargeting)
687−tdInventorySegmentTargeting
688− = lens _tdInventorySegmentTargeting
689− (\ s a -> s{_tdInventorySegmentTargeting = a})
688+tdtoInventorySegmentTargeting :: Lens' TermsDTO (Maybe InventorySegmentTargeting)
689+tdtoInventorySegmentTargeting
690+ = lens _tdtoInventorySegmentTargeting
691+ (\ s a -> s{_tdtoInventorySegmentTargeting = a})
690692
691693-- | A descriptive name for these terms.
692−tdDescriptiveName :: Lens' TermsDto (Maybe Text)
693−tdDescriptiveName
694− = lens _tdDescriptiveName
695− (\ s a -> s{_tdDescriptiveName = a})
694+tdtoDescriptiveName :: Lens' TermsDTO (Maybe Text)
695+tdtoDescriptiveName
696+ = lens _tdtoDescriptiveName
697+ (\ s a -> s{_tdtoDescriptiveName = a})
696698
697699-- | The minimum spend for the offer.
698−tdMinimumSpendMicros :: Lens' TermsDto (Maybe Int64)
699−tdMinimumSpendMicros
700− = lens _tdMinimumSpendMicros
701− (\ s a -> s{_tdMinimumSpendMicros = a})
700+tdtoMinimumSpendMicros :: Lens' TermsDTO (Maybe Int64)
701+tdtoMinimumSpendMicros
702+ = lens _tdtoMinimumSpendMicros
703+ (\ s a -> s{_tdtoMinimumSpendMicros = a})
702704
703705-- | Whether to target by deal id.
704−tdTargetByDealId :: Lens' TermsDto (Maybe Bool)
705−tdTargetByDealId
706− = lens _tdTargetByDealId
707− (\ s a -> s{_tdTargetByDealId = a})
706+tdtoTargetByDealId :: Lens' TermsDTO (Maybe Bool)
707+tdtoTargetByDealId
708+ = lens _tdtoTargetByDealId
709+ (\ s a -> s{_tdtoTargetByDealId = a})
708710
709711-- | The billing terms.
710−tdBillingTerms :: Lens' TermsDto (Maybe Text)
711−tdBillingTerms
712− = lens _tdBillingTerms
713− (\ s a -> s{_tdBillingTerms = a})
712+tdtoBillingTerms :: Lens' TermsDTO (Maybe Text)
713+tdtoBillingTerms
714+ = lens _tdtoBillingTerms
715+ (\ s a -> s{_tdtoBillingTerms = a})
714716
715717-- | A description for these terms.
716−tdDescription :: Lens' TermsDto (Maybe Text)
717−tdDescription
718− = lens _tdDescription
719− (\ s a -> s{_tdDescription = a})
718+tdtoDescription :: Lens' TermsDTO (Maybe Text)
719+tdtoDescription
720+ = lens _tdtoDescription
721+ (\ s a -> s{_tdtoDescription = a})
720722
721−instance FromJSON TermsDto where
723+instance FromJSON TermsDTO where
722724 parseJSON
723− = withObject "TermsDto"
725+ = withObject "TermsDTO"
724726 (\ o ->
725− TermsDto <$>
727+ TermsDTO <$>
726728 (o .:? "finalizeAutomatically") <*>
727729 (o .:? "buyerBillingType")
728730 <*> (o .:? "targetingAllAdSlots")
@@ -751,43 +753,45 @@ instance FromJSON TermsDto where
751753 <*> (o .:? "billingTerms")
752754 <*> (o .:? "description"))
753755
754−instance ToJSON TermsDto where
755− toJSON TermsDto{..}
756+instance ToJSON TermsDTO where
757+ toJSON TermsDTO{..}
756758 = object
757759 (catMaybes
758760 [("finalizeAutomatically" .=) <$>
759− _tdFinalizeAutomatically,
760− ("buyerBillingType" .=) <$> _tdBuyerBillingType,
761+ _tdtoFinalizeAutomatically,
762+ ("buyerBillingType" .=) <$> _tdtoBuyerBillingType,
761763 ("targetingAllAdSlots" .=) <$>
762− _tdTargetingAllAdSlots,
763− ("urls" .=) <$> _tdURLs,
764− ("endDate" .=) <$> _tdEndDate, ("cpm" .=) <$> _tdCpm,
765− ("estimatedSpend" .=) <$> _tdEstimatedSpend,
766− ("advertisers" .=) <$> _tdAdvertisers,
764+ _tdtoTargetingAllAdSlots,
765+ ("urls" .=) <$> _tdtoURLs,
766+ ("endDate" .=) <$> _tdtoEndDate,
767+ ("cpm" .=) <$> _tdtoCpm,
768+ ("estimatedSpend" .=) <$> _tdtoEstimatedSpend,
769+ ("advertisers" .=) <$> _tdtoAdvertisers,
767770 ("estimatedImpressionsPerDay" .=) <$>
768− _tdEstimatedImpressionsPerDay,
769− ("monetizerType" .=) <$> _tdMonetizerType,
771+ _tdtoEstimatedImpressionsPerDay,
772+ ("monetizerType" .=) <$> _tdtoMonetizerType,
770773 ("audienceSegmentDescription" .=) <$>
771− _tdAudienceSegmentDescription,
774+ _tdtoAudienceSegmentDescription,
772775 ("creativeReviewPolicy" .=) <$>
773− _tdCreativeReviewPolicy,
774− ("minimumTrueLooks" .=) <$> _tdMinimumTrueLooks,
775− ("startDate" .=) <$> _tdStartDate,
776+ _tdtoCreativeReviewPolicy,
777+ ("minimumTrueLooks" .=) <$> _tdtoMinimumTrueLooks,
778+ ("startDate" .=) <$> _tdtoStartDate,
776779 ("creativeBlockingLevel" .=) <$>
777− _tdCreativeBlockingLevel,
778− ("semiTransparent" .=) <$> _tdSemiTransparent,
779− ("audienceSegment" .=) <$> _tdAudienceSegment,
780− ("dealPremium" .=) <$> _tdDealPremium,
781− ("isReservation" .=) <$> _tdIsReservation,
782− ("adSlots" .=) <$> _tdAdSlots,
783− ("termsAttributes" .=) <$> _tdTermsAttributes,
780+ _tdtoCreativeBlockingLevel,
781+ ("semiTransparent" .=) <$> _tdtoSemiTransparent,
782+ ("audienceSegment" .=) <$> _tdtoAudienceSegment,
783+ ("dealPremium" .=) <$> _tdtoDealPremium,
784+ ("isReservation" .=) <$> _tdtoIsReservation,
785+ ("adSlots" .=) <$> _tdtoAdSlots,
786+ ("termsAttributes" .=) <$> _tdtoTermsAttributes,
784787 ("inventorySegmentTargeting" .=) <$>
785− _tdInventorySegmentTargeting,
786− ("descriptiveName" .=) <$> _tdDescriptiveName,
787− ("minimumSpendMicros" .=) <$> _tdMinimumSpendMicros,
788− ("targetByDealId" .=) <$> _tdTargetByDealId,
789− ("billingTerms" .=) <$> _tdBillingTerms,
790− ("description" .=) <$> _tdDescription])
788+ _tdtoInventorySegmentTargeting,
789+ ("descriptiveName" .=) <$> _tdtoDescriptiveName,
790+ ("minimumSpendMicros" .=) <$>
791+ _tdtoMinimumSpendMicros,
792+ ("targetByDealId" .=) <$> _tdtoTargetByDealId,
793+ ("billingTerms" .=) <$> _tdtoBillingTerms,
794+ ("description" .=) <$> _tdtoDescription])
791795
792796-- | The creatives feed lists the active creatives for the Ad Exchange buyer
793797-- accounts that the user has access to. Each entry in the feed corresponds
@@ -1052,79 +1056,81 @@ instance ToJSON MarketplaceDealParty where
10521056 ("buyer" .=) <$> _mdpBuyer])
10531057
10541058--
1055−-- /See:/ 'dealPartyDto' smart constructor.
1056−data DealPartyDto = DealPartyDto
1057− { _dpdBuyerSellerRole :: !(Maybe Text)
1058− , _dpdCustomerId :: !(Maybe Int32)
1059− , _dpdName :: !(Maybe Text)
1060− , _dpdWebProperty :: !(Maybe WebPropertyDto)
1061− , _dpdBuyer :: !(Maybe BuyerDto)
1059+-- /See:/ 'dealPartyDTO' smart constructor.
1060+data DealPartyDTO = DealPartyDTO
1061+ { _dpdtoBuyerSellerRole :: !(Maybe Text)
1062+ , _dpdtoCustomerId :: !(Maybe Int32)
1063+ , _dpdtoName :: !(Maybe Text)
1064+ , _dpdtoWebProperty :: !(Maybe WebPropertyDTO)
1065+ , _dpdtoBuyer :: !(Maybe BuyerDTO)
10621066 } deriving (Eq,Read,Show,Data,Typeable,Generic)
10631067
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.
10651069--
10661070-- Use one of the following lenses to modify other fields as desired:
10671071--
1068−-- * 'dpdBuyerSellerRole'
1072+-- * 'dpdtoBuyerSellerRole'
10691073--
1070−-- * 'dpdCustomerId'
1074+-- * 'dpdtoCustomerId'
10711075--
1072−-- * 'dpdName'
1076+-- * 'dpdtoName'
10731077--
1074−-- * 'dpdWebProperty'
1078+-- * 'dpdtoWebProperty'
10751079--
1076−-- * 'dpdBuyer'
1077−dealPartyDto
1078− :: DealPartyDto
1079−dealPartyDto =
1080− DealPartyDto
1081− { _dpdBuyerSellerRole = Nothing
1082− , _dpdCustomerId = Nothing
1083− , _dpdName = Nothing
1084− , _dpdWebProperty = Nothing
1085− , _dpdBuyer = Nothing
1080+-- * 'dpdtoBuyer'
1081+dealPartyDTO
1082+ :: DealPartyDTO
1083+dealPartyDTO =
1084+ DealPartyDTO
1085+ { _dpdtoBuyerSellerRole = Nothing
1086+ , _dpdtoCustomerId = Nothing
1087+ , _dpdtoName = Nothing
1088+ , _dpdtoWebProperty = Nothing
1089+ , _dpdtoBuyer = Nothing
10861090 }
10871091
1088−dpdBuyerSellerRole :: Lens' DealPartyDto (Maybe Text)
1089−dpdBuyerSellerRole
1090− = lens _dpdBuyerSellerRole
1091− (\ s a -> s{_dpdBuyerSellerRole = a})
1092+dpdtoBuyerSellerRole :: Lens' DealPartyDTO (Maybe Text)
1093+dpdtoBuyerSellerRole
1094+ = lens _dpdtoBuyerSellerRole
1095+ (\ s a -> s{_dpdtoBuyerSellerRole = a})
10921096
1093−dpdCustomerId :: Lens' DealPartyDto (Maybe Int32)
1094−dpdCustomerId
1095− = lens _dpdCustomerId
1096− (\ s a -> s{_dpdCustomerId = a})
1097+dpdtoCustomerId :: Lens' DealPartyDTO (Maybe Int32)
1098+dpdtoCustomerId
1099+ = lens _dpdtoCustomerId
1100+ (\ s a -> s{_dpdtoCustomerId = a})
10971101
1098−dpdName :: Lens' DealPartyDto (Maybe Text)
1099−dpdName = lens _dpdName (\ s a -> s{_dpdName = a})
1102+dpdtoName :: Lens' DealPartyDTO (Maybe Text)
1103+dpdtoName
1104+ = lens _dpdtoName (\ s a -> s{_dpdtoName = a})
11001105
1101−dpdWebProperty :: Lens' DealPartyDto (Maybe WebPropertyDto)
1102−dpdWebProperty
1103− = lens _dpdWebProperty
1104− (\ s a -> s{_dpdWebProperty = a})
1106+dpdtoWebProperty :: Lens' DealPartyDTO (Maybe WebPropertyDTO)
1107+dpdtoWebProperty
1108+ = lens _dpdtoWebProperty
1109+ (\ s a -> s{_dpdtoWebProperty = a})
11051110
1106−dpdBuyer :: Lens' DealPartyDto (Maybe BuyerDto)
1107−dpdBuyer = lens _dpdBuyer (\ s a -> s{_dpdBuyer = a})
1111+dpdtoBuyer :: Lens' DealPartyDTO (Maybe BuyerDTO)
1112+dpdtoBuyer
1113+ = lens _dpdtoBuyer (\ s a -> s{_dpdtoBuyer = a})
11081114
1109−instance FromJSON DealPartyDto where
1115+instance FromJSON DealPartyDTO where
11101116 parseJSON
1111− = withObject "DealPartyDto"
1117+ = withObject "DealPartyDTO"
11121118 (\ o ->
1113− DealPartyDto <$>
1119+ DealPartyDTO <$>
11141120 (o .:? "buyerSellerRole") <*> (o .:? "customerId")
11151121 <*> (o .:? "name")
11161122 <*> (o .:? "webProperty")
11171123 <*> (o .:? "buyer"))
11181124
1119−instance ToJSON DealPartyDto where
1120− toJSON DealPartyDto{..}
1125+instance ToJSON DealPartyDTO where
1126+ toJSON DealPartyDTO{..}
11211127 = object
11221128 (catMaybes
1123− [("buyerSellerRole" .=) <$> _dpdBuyerSellerRole,
1124− ("customerId" .=) <$> _dpdCustomerId,
1125− ("name" .=) <$> _dpdName,
1126− ("webProperty" .=) <$> _dpdWebProperty,
1127− ("buyer" .=) <$> _dpdBuyer])
1129+ [("buyerSellerRole" .=) <$> _dpdtoBuyerSellerRole,
1130+ ("customerId" .=) <$> _dpdtoCustomerId,
1131+ ("name" .=) <$> _dpdtoName,
1132+ ("webProperty" .=) <$> _dpdtoWebProperty,
1133+ ("buyer" .=) <$> _dpdtoBuyer])
11281134
11291135--
11301136-- /See:/ 'deliveryControlFrequencyCap' smart constructor.
@@ -1187,7 +1193,7 @@ instance ToJSON DeliveryControlFrequencyCap where
11871193-- /See:/ 'getNegotiationsResponse' smart constructor.
11881194data GetNegotiationsResponse = GetNegotiationsResponse
11891195 { _gnrKind :: !Text
1190− , _gnrNegotiations :: !(Maybe [NegotiationDto])
1196+ , _gnrNegotiations :: !(Maybe [NegotiationDTO])
11911197 } deriving (Eq,Read,Show,Data,Typeable,Generic)
11921198
11931199-- | Creates a value of 'GetNegotiationsResponse' with the minimum fields required to make a request.
@@ -1208,7 +1214,7 @@ getNegotiationsResponse =
12081214gnrKind :: Lens' GetNegotiationsResponse Text
12091215gnrKind = lens _gnrKind (\ s a -> s{_gnrKind = a})
12101216
1211−gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDto]
1217+gnrNegotiations :: Lens' GetNegotiationsResponse [NegotiationDTO]
12121218gnrNegotiations
12131219 = lens _gnrNegotiations
12141220 (\ s a -> s{_gnrNegotiations = a})
@@ -1923,7 +1929,7 @@ data Creative = Creative
19231929 , _cVersion :: !(Maybe Int32)
19241930 , _cSensitiveCategories :: !(Maybe [Int32])
19251931 , _cVideoURL :: !(Maybe Text)
1926− , _cAPIUploadTimestamp :: !(Maybe DateTime)
1932+ , _cAPIUploadTimestamp :: !(Maybe DateTime')
19271933 , _cServingRestrictions :: !(Maybe [CreativeServingRestrictions])
19281934 , _cOpenAuctionStatus :: !(Maybe Text)
19291935 } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -2164,6 +2170,7 @@ cAPIUploadTimestamp :: Lens' Creative (Maybe UTCTime)
21642170cAPIUploadTimestamp
21652171 = lens _cAPIUploadTimestamp
21662172 (\ s a -> s{_cAPIUploadTimestamp = a})
2173+ . mapping _DateTime
21672174
21682175-- | The granular status of this ad in specific contexts. A context here
21692176-- relates to where something ultimately serves (for example, a physical
@@ -2396,8 +2403,8 @@ instance ToJSON CreativeCorrections where
23962403 ("details" .=) <$> _ccDetails])
23972404
23982405--
2399−-- /See:/ 'buyerDto' smart constructor.
2400−data BuyerDto = BuyerDto
2406+-- /See:/ 'buyerDTO' smart constructor.
2407+data BuyerDTO = BuyerDTO
24012408 { _buySponsorAccountId :: !(Maybe Int32)
24022409 , _buyEnabledForInterestTargetingDeals :: !(Maybe Bool)
24032410 , _buyCustomerId :: !(Maybe Int32)
@@ -2407,7 +2414,7 @@ data BuyerDto = BuyerDto
24072414 , _buyId :: !(Maybe Int32)
24082415 } deriving (Eq,Read,Show,Data,Typeable,Generic)
24092416
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.
24112418--
24122419-- Use one of the following lenses to modify other fields as desired:
24132420--
@@ -2424,10 +2431,10 @@ data BuyerDto = BuyerDto
24242431-- * 'buyDisplayName'
24252432--
24262433-- * 'buyId'
2427−buyerDto
2428− :: BuyerDto
2429−buyerDto =
2430− BuyerDto
2434+buyerDTO
2435+ :: BuyerDTO
2436+buyerDTO =
2437+ BuyerDTO
24312438 { _buySponsorAccountId = Nothing
24322439 , _buyEnabledForInterestTargetingDeals = Nothing
24332440 , _buyCustomerId = Nothing
@@ -2437,44 +2444,44 @@ buyerDto =
24372444 , _buyId = Nothing
24382445 }
24392446
2440−buySponsorAccountId :: Lens' BuyerDto (Maybe Int32)
2447+buySponsorAccountId :: Lens' BuyerDTO (Maybe Int32)
24412448buySponsorAccountId
24422449 = lens _buySponsorAccountId
24432450 (\ s a -> s{_buySponsorAccountId = a})
24442451
2445−buyEnabledForInterestTargetingDeals :: Lens' BuyerDto (Maybe Bool)
2452+buyEnabledForInterestTargetingDeals :: Lens' BuyerDTO (Maybe Bool)
24462453buyEnabledForInterestTargetingDeals
24472454 = lens _buyEnabledForInterestTargetingDeals
24482455 (\ s a ->
24492456 s{_buyEnabledForInterestTargetingDeals = a})
24502457
2451−buyCustomerId :: Lens' BuyerDto (Maybe Int32)
2458+buyCustomerId :: Lens' BuyerDTO (Maybe Int32)
24522459buyCustomerId
24532460 = lens _buyCustomerId
24542461 (\ s a -> s{_buyCustomerId = a})
24552462
2456−buyEnabledForPreferredDeals :: Lens' BuyerDto (Maybe Bool)
2463+buyEnabledForPreferredDeals :: Lens' BuyerDTO (Maybe Bool)
24572464buyEnabledForPreferredDeals
24582465 = lens _buyEnabledForPreferredDeals
24592466 (\ s a -> s{_buyEnabledForPreferredDeals = a})
24602467
2461−buyAccountId :: Lens' BuyerDto (Maybe Int32)
2468+buyAccountId :: Lens' BuyerDTO (Maybe Int32)
24622469buyAccountId
24632470 = lens _buyAccountId (\ s a -> s{_buyAccountId = a})
24642471
2465−buyDisplayName :: Lens' BuyerDto (Maybe Text)
2472+buyDisplayName :: Lens' BuyerDTO (Maybe Text)
24662473buyDisplayName
24672474 = lens _buyDisplayName
24682475 (\ s a -> s{_buyDisplayName = a})
24692476
2470−buyId :: Lens' BuyerDto (Maybe Int32)
2477+buyId :: Lens' BuyerDTO (Maybe Int32)
24712478buyId = lens _buyId (\ s a -> s{_buyId = a})
24722479
2473−instance FromJSON BuyerDto where
2480+instance FromJSON BuyerDTO where
24742481 parseJSON
2475− = withObject "BuyerDto"
2482+ = withObject "BuyerDTO"
24762483 (\ o ->
2477− BuyerDto <$>
2484+ BuyerDTO <$>
24782485 (o .:? "sponsorAccountId") <*>
24792486 (o .:? "enabledForInterestTargetingDeals")
24802487 <*> (o .:? "customerId")
@@ -2483,8 +2490,8 @@ instance FromJSON BuyerDto where
24832490 <*> (o .:? "displayName")
24842491 <*> (o .:? "id"))
24852492
2486−instance ToJSON BuyerDto where
2487− toJSON BuyerDto{..}
2493+instance ToJSON BuyerDTO where
2494+ toJSON BuyerDTO{..}
24882495 = object
24892496 (catMaybes
24902497 [("sponsorAccountId" .=) <$> _buySponsorAccountId,
@@ -2539,89 +2546,92 @@ instance ToJSON DealTermsNonGuaranteedFixedPriceTerms
25392546 [("fixedPrices" .=) <$> _dtngfptFixedPrices])
25402547
25412548--
2542−-- /See:/ 'adSlotDto' smart constructor.
2543−data AdSlotDto = AdSlotDto
2544− { _asdWebPropertyId :: !(Maybe Int32)
2545− , _asdSize :: !(Maybe Text)
2546− , _asdChannelCode :: !(Maybe Text)
2547− , _asdChannelId :: !(Maybe Int32)
2548− , _asdName :: !(Maybe Text)
2549− , _asdDescription :: !(Maybe Text)
2549+-- /See:/ 'adSlotDTO' smart constructor.
2550+data AdSlotDTO = AdSlotDTO
2551+ { _asdtoWebPropertyId :: !(Maybe Int32)
2552+ , _asdtoSize :: !(Maybe Text)
2553+ , _asdtoChannelCode :: !(Maybe Text)
2554+ , _asdtoChannelId :: !(Maybe Int32)
2555+ , _asdtoName :: !(Maybe Text)
2556+ , _asdtoDescription :: !(Maybe Text)
25502557 } deriving (Eq,Read,Show,Data,Typeable,Generic)
25512558
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.
25532560--
25542561-- Use one of the following lenses to modify other fields as desired:
25552562--
2556−-- * 'asdWebPropertyId'
2563+-- * 'asdtoWebPropertyId'
25572564--
2558−-- * 'asdSize'
2565+-- * 'asdtoSize'
25592566--
2560−-- * 'asdChannelCode'
2567+-- * 'asdtoChannelCode'
25612568--
2562−-- * 'asdChannelId'
2569+-- * 'asdtoChannelId'
25632570--
2564−-- * 'asdName'
2571+-- * 'asdtoName'
25652572--
2566−-- * 'asdDescription'
2567−adSlotDto
2568− :: AdSlotDto
2569−adSlotDto =
2570− AdSlotDto
2571− { _asdWebPropertyId = Nothing
2572− , _asdSize = Nothing
2573− , _asdChannelCode = Nothing
2574− , _asdChannelId = Nothing
2575− , _asdName = Nothing
2576− , _asdDescription = Nothing
2573+-- * 'asdtoDescription'
2574+adSlotDTO
2575+ :: AdSlotDTO
2576+adSlotDTO =
2577+ AdSlotDTO
2578+ { _asdtoWebPropertyId = Nothing
2579+ , _asdtoSize = Nothing
2580+ , _asdtoChannelCode = Nothing
2581+ , _asdtoChannelId = Nothing
2582+ , _asdtoName = Nothing
2583+ , _asdtoDescription = Nothing
25772584 }
25782585
2579−asdWebPropertyId :: Lens' AdSlotDto (Maybe Int32)
2580−asdWebPropertyId
2581− = lens _asdWebPropertyId
2582− (\ s a -> s{_asdWebPropertyId = a})
2586+asdtoWebPropertyId :: Lens' AdSlotDTO (Maybe Int32)
2587+asdtoWebPropertyId
2588+ = lens _asdtoWebPropertyId
2589+ (\ s a -> s{_asdtoWebPropertyId = a})
25832590
2584−asdSize :: Lens' AdSlotDto (Maybe Text)
2585−asdSize = lens _asdSize (\ s a -> s{_asdSize = a})
2591+asdtoSize :: Lens' AdSlotDTO (Maybe Text)
2592+asdtoSize
2593+ = lens _asdtoSize (\ s a -> s{_asdtoSize = a})
25862594
2587−asdChannelCode :: Lens' AdSlotDto (Maybe Text)
2588−asdChannelCode
2589− = lens _asdChannelCode
2590− (\ s a -> s{_asdChannelCode = a})
2595+asdtoChannelCode :: Lens' AdSlotDTO (Maybe Text)
2596+asdtoChannelCode
2597+ = lens _asdtoChannelCode
2598+ (\ s a -> s{_asdtoChannelCode = a})
25912599
2592−asdChannelId :: Lens' AdSlotDto (Maybe Int32)
2593−asdChannelId
2594− = lens _asdChannelId (\ s a -> s{_asdChannelId = a})
2600+asdtoChannelId :: Lens' AdSlotDTO (Maybe Int32)
2601+asdtoChannelId
2602+ = lens _asdtoChannelId
2603+ (\ s a -> s{_asdtoChannelId = a})
25952604
2596−asdName :: Lens' AdSlotDto (Maybe Text)
2597−asdName = lens _asdName (\ s a -> s{_asdName = a})
2605+asdtoName :: Lens' AdSlotDTO (Maybe Text)
2606+asdtoName
2607+ = lens _asdtoName (\ s a -> s{_asdtoName = a})
25982608
2599−asdDescription :: Lens' AdSlotDto (Maybe Text)
2600−asdDescription
2601− = lens _asdDescription
2602− (\ s a -> s{_asdDescription = a})
2609+asdtoDescription :: Lens' AdSlotDTO (Maybe Text)
2610+asdtoDescription
2611+ = lens _asdtoDescription
2612+ (\ s a -> s{_asdtoDescription = a})
26032613
2604−instance FromJSON AdSlotDto where
2614+instance FromJSON AdSlotDTO where
26052615 parseJSON
2606− = withObject "AdSlotDto"
2616+ = withObject "AdSlotDTO"
26072617 (\ o ->
2608− AdSlotDto <$>
2618+ AdSlotDTO <$>
26092619 (o .:? "webPropertyId") <*> (o .:? "size") <*>
26102620 (o .:? "channelCode")
26112621 <*> (o .:? "channelId")
26122622 <*> (o .:? "name")
26132623 <*> (o .:? "description"))
26142624
2615−instance ToJSON AdSlotDto where
2616− toJSON AdSlotDto{..}
2625+instance ToJSON AdSlotDTO where
2626+ toJSON AdSlotDTO{..}
26172627 = object
26182628 (catMaybes
2619− [("webPropertyId" .=) <$> _asdWebPropertyId,
2620− ("size" .=) <$> _asdSize,
2621− ("channelCode" .=) <$> _asdChannelCode,
2622− ("channelId" .=) <$> _asdChannelId,
2623− ("name" .=) <$> _asdName,
2624− ("description" .=) <$> _asdDescription])
2629+ [("webPropertyId" .=) <$> _asdtoWebPropertyId,
2630+ ("size" .=) <$> _asdtoSize,
2631+ ("channelCode" .=) <$> _asdtoChannelCode,
2632+ ("channelId" .=) <$> _asdtoChannelId,
2633+ ("name" .=) <$> _asdtoName,
2634+ ("description" .=) <$> _asdtoDescription])
26252635
26262636-- | The configuration data for an Ad Exchange performance report list.
26272637--
@@ -3867,168 +3877,173 @@ instance ToJSON PerformanceReportList where
38673877 ("performanceReport" .=) <$> _prlPerformanceReport])
38683878
38693879--
3870−-- /See:/ 'negotiationDto' smart constructor.
3871−data NegotiationDto = NegotiationDto
3872− { _ndNegotiationState :: !(Maybe Text)
3873− , _ndExternalDealId :: !(Maybe Int64)
3874− , _ndStatus :: !(Maybe Text)
3875− , _ndDealType :: !(Maybe Text)
3876− , _ndNegotiationRounds :: !(Maybe [NegotiationRoundDto])
3877− , _ndKind :: !Text
3878− , _ndBilledBuyer :: !(Maybe DealPartyDto)
3879− , _ndBuyerEmailContacts :: !(Maybe [Text])
3880− , _ndStats :: !(Maybe StatsDto)
3881− , _ndSeller :: !(Maybe DealPartyDto)
3882− , _ndLabelNames :: !(Maybe [Text])
3883− , _ndOfferId :: !(Maybe Int64)
3884− , _ndNegotiationId :: !(Maybe Int64)
3885− , _ndSellerEmailContacts :: !(Maybe [Text])
3886− , _ndBuyer :: !(Maybe DealPartyDto)
3880+-- /See:/ 'negotiationDTO' smart constructor.
3881+data NegotiationDTO = NegotiationDTO
3882+ { _ndtoNegotiationState :: !(Maybe Text)
3883+ , _ndtoExternalDealId :: !(Maybe Int64)
3884+ , _ndtoStatus :: !(Maybe Text)
3885+ , _ndtoDealType :: !(Maybe Text)
3886+ , _ndtoNegotiationRounds :: !(Maybe [NegotiationRoundDTO])
3887+ , _ndtoKind :: !Text
3888+ , _ndtoBilledBuyer :: !(Maybe DealPartyDTO)
3889+ , _ndtoBuyerEmailContacts :: !(Maybe [Text])
3890+ , _ndtoStats :: !(Maybe StatsDTO)
3891+ , _ndtoSeller :: !(Maybe DealPartyDTO)
3892+ , _ndtoLabelNames :: !(Maybe [Text])
3893+ , _ndtoOfferId :: !(Maybe Int64)
3894+ , _ndtoNegotiationId :: !(Maybe Int64)
3895+ , _ndtoSellerEmailContacts :: !(Maybe [Text])
3896+ , _ndtoBuyer :: !(Maybe DealPartyDTO)
38873897 } deriving (Eq,Read,Show,Data,Typeable,Generic)
38883898
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.
38903900--
38913901-- Use one of the following lenses to modify other fields as desired:
38923902--
3893−-- * 'ndNegotiationState'
3903+-- * 'ndtoNegotiationState'
38943904--
3895−-- * 'ndExternalDealId'
3905+-- * 'ndtoExternalDealId'
38963906--
3897−-- * 'ndStatus'
3907+-- * 'ndtoStatus'
38983908--
3899−-- * 'ndDealType'
3909+-- * 'ndtoDealType'
39003910--
3901−-- * 'ndNegotiationRounds'
3911+-- * 'ndtoNegotiationRounds'
39023912--
3903−-- * 'ndKind'
3913+-- * 'ndtoKind'
39043914--
3905−-- * 'ndBilledBuyer'
3915+-- * 'ndtoBilledBuyer'
39063916--
3907−-- * 'ndBuyerEmailContacts'
3917+-- * 'ndtoBuyerEmailContacts'
39083918--
3909−-- * 'ndStats'
3919+-- * 'ndtoStats'
39103920--
3911−-- * 'ndSeller'
3921+-- * 'ndtoSeller'
39123922--
3913−-- * 'ndLabelNames'
3923+-- * 'ndtoLabelNames'
39143924--
3915−-- * 'ndOfferId'
3925+-- * 'ndtoOfferId'
39163926--
3917−-- * 'ndNegotiationId'
3927+-- * 'ndtoNegotiationId'
39183928--
3919−-- * 'ndSellerEmailContacts'
3929+-- * 'ndtoSellerEmailContacts'
39203930--
3921−-- * 'ndBuyer'
3922−negotiationDto
3923− :: NegotiationDto
3924−negotiationDto =
3925− NegotiationDto
3926− { _ndNegotiationState = Nothing
3927− , _ndExternalDealId = Nothing
3928− , _ndStatus = Nothing
3929− , _ndDealType = Nothing
3930− , _ndNegotiationRounds = Nothing
3931− , _ndKind = "adexchangebuyer#negotiation"
3932− , _ndBilledBuyer = Nothing
3933− , _ndBuyerEmailContacts = Nothing
3934− , _ndStats = Nothing
3935− , _ndSeller = Nothing
3936− , _ndLabelNames = Nothing
3937− , _ndOfferId = Nothing
3938− , _ndNegotiationId = Nothing
3939− , _ndSellerEmailContacts = Nothing
3940− , _ndBuyer = Nothing
3931+-- * 'ndtoBuyer'
3932+negotiationDTO
3933+ :: NegotiationDTO
3934+negotiationDTO =
3935+ NegotiationDTO
3936+ { _ndtoNegotiationState = Nothing
3937+ , _ndtoExternalDealId = Nothing
3938+ , _ndtoStatus = Nothing
3939+ , _ndtoDealType = Nothing
3940+ , _ndtoNegotiationRounds = Nothing
3941+ , _ndtoKind = "adexchangebuyer#negotiation"
3942+ , _ndtoBilledBuyer = Nothing
3943+ , _ndtoBuyerEmailContacts = Nothing
3944+ , _ndtoStats = Nothing
3945+ , _ndtoSeller = Nothing
3946+ , _ndtoLabelNames = Nothing
3947+ , _ndtoOfferId = Nothing
3948+ , _ndtoNegotiationId = Nothing
3949+ , _ndtoSellerEmailContacts = Nothing
3950+ , _ndtoBuyer = Nothing
39413951 }
39423952
39433953-- | The state of this negotiation.
3944−ndNegotiationState :: Lens' NegotiationDto (Maybe Text)
3945−ndNegotiationState
3946− = lens _ndNegotiationState
3947− (\ s a -> s{_ndNegotiationState = a})
3954+ndtoNegotiationState :: Lens' NegotiationDTO (Maybe Text)
3955+ndtoNegotiationState
3956+ = lens _ndtoNegotiationState
3957+ (\ s a -> s{_ndtoNegotiationState = a})
39483958
39493959-- | For finalized negotiations, the ID of the finalized deal.
3950−ndExternalDealId :: Lens' NegotiationDto (Maybe Int64)
3951−ndExternalDealId
3952− = lens _ndExternalDealId
3953− (\ s a -> s{_ndExternalDealId = a})
3960+ndtoExternalDealId :: Lens' NegotiationDTO (Maybe Int64)
3961+ndtoExternalDealId
3962+ = lens _ndtoExternalDealId
3963+ (\ s a -> s{_ndtoExternalDealId = a})
39543964
39553965-- | The status of this negotiation.
3956−ndStatus :: Lens' NegotiationDto (Maybe Text)
3957−ndStatus = lens _ndStatus (\ s a -> s{_ndStatus = a})
3966+ndtoStatus :: Lens' NegotiationDTO (Maybe Text)
3967+ndtoStatus
3968+ = lens _ndtoStatus (\ s a -> s{_ndtoStatus = a})
39583969
39593970-- | The type of this deal.
3960−ndDealType :: Lens' NegotiationDto (Maybe Text)
3961−ndDealType
3962− = lens _ndDealType (\ s a -> s{_ndDealType = a})
3971+ndtoDealType :: Lens' NegotiationDTO (Maybe Text)
3972+ndtoDealType
3973+ = lens _ndtoDealType (\ s a -> s{_ndtoDealType = a})
39633974
39643975-- | The series of negotiation rounds for this negotiation.
3965−ndNegotiationRounds :: Lens' NegotiationDto [NegotiationRoundDto]
3966−ndNegotiationRounds
3967− = lens _ndNegotiationRounds
3968− (\ s a -> s{_ndNegotiationRounds = a})
3976+ndtoNegotiationRounds :: Lens' NegotiationDTO [NegotiationRoundDTO]
3977+ndtoNegotiationRounds
3978+ = lens _ndtoNegotiationRounds
3979+ (\ s a -> s{_ndtoNegotiationRounds = a})
39693980 . _Default
39703981 . _Coerce
39713982
3972−ndKind :: Lens' NegotiationDto Text
3973−ndKind = lens _ndKind (\ s a -> s{_ndKind = a})
3983+ndtoKind :: Lens' NegotiationDTO Text
3984+ndtoKind = lens _ndtoKind (\ s a -> s{_ndtoKind = a})
39743985
39753986-- | The billed buyer; Specified by a buyer buying through an intermediary.
3976−ndBilledBuyer :: Lens' NegotiationDto (Maybe DealPartyDto)
3977−ndBilledBuyer
3978− = lens _ndBilledBuyer
3979− (\ s a -> s{_ndBilledBuyer = a})
3987+ndtoBilledBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
3988+ndtoBilledBuyer
3989+ = lens _ndtoBilledBuyer
3990+ (\ s a -> s{_ndtoBilledBuyer = a})
39803991
39813992-- | The buyer party\'s contact email.
3982−ndBuyerEmailContacts :: Lens' NegotiationDto [Text]
3983−ndBuyerEmailContacts
3984− = lens _ndBuyerEmailContacts
3985− (\ s a -> s{_ndBuyerEmailContacts = a})
3993+ndtoBuyerEmailContacts :: Lens' NegotiationDTO [Text]
3994+ndtoBuyerEmailContacts
3995+ = lens _ndtoBuyerEmailContacts
3996+ (\ s a -> s{_ndtoBuyerEmailContacts = a})
39863997 . _Default
39873998 . _Coerce
39883999
39894000-- | The stats for this negotiation.
3990−ndStats :: Lens' NegotiationDto (Maybe StatsDto)
3991−ndStats = lens _ndStats (\ s a -> s{_ndStats = a})
4001+ndtoStats :: Lens' NegotiationDTO (Maybe StatsDTO)
4002+ndtoStats
4003+ = lens _ndtoStats (\ s a -> s{_ndtoStats = a})
39924004
39934005-- | Details of the seller party in this negotiation.
3994−ndSeller :: Lens' NegotiationDto (Maybe DealPartyDto)
3995−ndSeller = lens _ndSeller (\ s a -> s{_ndSeller = a})
4006+ndtoSeller :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4007+ndtoSeller
4008+ = lens _ndtoSeller (\ s a -> s{_ndtoSeller = a})
39964009
39974010-- | A list of label names applicable to this negotiation.
3998−ndLabelNames :: Lens' NegotiationDto [Text]
3999−ndLabelNames
4000− = lens _ndLabelNames (\ s a -> s{_ndLabelNames = a})
4011+ndtoLabelNames :: Lens' NegotiationDTO [Text]
4012+ndtoLabelNames
4013+ = lens _ndtoLabelNames
4014+ (\ s a -> s{_ndtoLabelNames = a})
40014015 . _Default
40024016 . _Coerce
40034017
40044018-- | The ID of this negotiation\'s original offer.
4005−ndOfferId :: Lens' NegotiationDto (Maybe Int64)
4006−ndOfferId
4007− = lens _ndOfferId (\ s a -> s{_ndOfferId = a})
4019+ndtoOfferId :: Lens' NegotiationDTO (Maybe Int64)
4020+ndtoOfferId
4021+ = lens _ndtoOfferId (\ s a -> s{_ndtoOfferId = a})
40084022
40094023-- | The unique ID of this negotiation.
4010−ndNegotiationId :: Lens' NegotiationDto (Maybe Int64)
4011−ndNegotiationId
4012− = lens _ndNegotiationId
4013− (\ s a -> s{_ndNegotiationId = a})
4024+ndtoNegotiationId :: Lens' NegotiationDTO (Maybe Int64)
4025+ndtoNegotiationId
4026+ = lens _ndtoNegotiationId
4027+ (\ s a -> s{_ndtoNegotiationId = a})
40144028
40154029-- | The seller party\'s contact email.
4016−ndSellerEmailContacts :: Lens' NegotiationDto [Text]
4017−ndSellerEmailContacts
4018− = lens _ndSellerEmailContacts
4019− (\ s a -> s{_ndSellerEmailContacts = a})
4030+ndtoSellerEmailContacts :: Lens' NegotiationDTO [Text]
4031+ndtoSellerEmailContacts
4032+ = lens _ndtoSellerEmailContacts
4033+ (\ s a -> s{_ndtoSellerEmailContacts = a})
40204034 . _Default
40214035 . _Coerce
40224036
40234037-- | Details of the buyer party in this negotiation.
4024−ndBuyer :: Lens' NegotiationDto (Maybe DealPartyDto)
4025−ndBuyer = lens _ndBuyer (\ s a -> s{_ndBuyer = a})
4038+ndtoBuyer :: Lens' NegotiationDTO (Maybe DealPartyDTO)
4039+ndtoBuyer
4040+ = lens _ndtoBuyer (\ s a -> s{_ndtoBuyer = a})
40264041
4027−instance FromJSON NegotiationDto where
4042+instance FromJSON NegotiationDTO where
40284043 parseJSON
4029− = withObject "NegotiationDto"
4044+ = withObject "NegotiationDTO"
40304045 (\ o ->
4031− NegotiationDto <$>
4046+ NegotiationDTO <$>
40324047 (o .:? "negotiationState") <*>
40334048 (o .:? "externalDealId")
40344049 <*> (o .:? "status")
@@ -4045,26 +4060,27 @@ instance FromJSON NegotiationDto where
40454060 <*> (o .:? "sellerEmailContacts" .!= mempty)
40464061 <*> (o .:? "buyer"))
40474062
4048−instance ToJSON NegotiationDto where
4049− toJSON NegotiationDto{..}
4063+instance ToJSON NegotiationDTO where
4064+ toJSON NegotiationDTO{..}
40504065 = object
40514066 (catMaybes
4052− [("negotiationState" .=) <$> _ndNegotiationState,
4053− ("externalDealId" .=) <$> _ndExternalDealId,
4054− ("status" .=) <$> _ndStatus,
4055− ("dealType" .=) <$> _ndDealType,
4056− ("negotiationRounds" .=) <$> _ndNegotiationRounds,
4057− Just ("kind" .= _ndKind),
4058− ("billedBuyer" .=) <$> _ndBilledBuyer,
4059− ("buyerEmailContacts" .=) <$> _ndBuyerEmailContacts,
4060− ("stats" .=) <$> _ndStats,
4061− ("seller" .=) <$> _ndSeller,
4062− ("labelNames" .=) <$> _ndLabelNames,
4063− ("offerId" .=) <$> _ndOfferId,
4064− ("negotiationId" .=) <$> _ndNegotiationId,
4067+ [("negotiationState" .=) <$> _ndtoNegotiationState,
4068+ ("externalDealId" .=) <$> _ndtoExternalDealId,
4069+ ("status" .=) <$> _ndtoStatus,
4070+ ("dealType" .=) <$> _ndtoDealType,
4071+ ("negotiationRounds" .=) <$> _ndtoNegotiationRounds,
4072+ Just ("kind" .= _ndtoKind),
4073+ ("billedBuyer" .=) <$> _ndtoBilledBuyer,
4074+ ("buyerEmailContacts" .=) <$>
4075+ _ndtoBuyerEmailContacts,
4076+ ("stats" .=) <$> _ndtoStats,
4077+ ("seller" .=) <$> _ndtoSeller,
4078+ ("labelNames" .=) <$> _ndtoLabelNames,
4079+ ("offerId" .=) <$> _ndtoOfferId,
4080+ ("negotiationId" .=) <$> _ndtoNegotiationId,
40654081 ("sellerEmailContacts" .=) <$>
4066− _ndSellerEmailContacts,
4067− ("buyer" .=) <$> _ndBuyer])
4082+ _ndtoSellerEmailContacts,
4083+ ("buyer" .=) <$> _ndtoBuyer])
40684084
40694085--
40704086-- /See:/ 'audienceSegment' smart constructor.
@@ -4129,159 +4145,165 @@ instance ToJSON AudienceSegment where
41294145 ("description" .=) <$> _asDescription])
41304146
41314147--
4132−-- /See:/ 'offerDto' smart constructor.
4133−data OfferDto = OfferDto
4134− { _odCreator :: !(Maybe DealPartyDto)
4135− , _odStatus :: !(Maybe Text)
4136− , _odOfferState :: !(Maybe Text)
4137− , _odPointOfContact :: !(Maybe Text)
4138− , _odTerms :: !(Maybe TermsDto)
4139− , _odKind :: !Text
4140− , _odBilledBuyer :: !(Maybe DealPartyDto)
4141− , _odOpenToDealParties :: !(Maybe [DealPartyDto])
4142− , _odEmailContacts :: !(Maybe [Text])
4143− , _odLabelNames :: !(Maybe [Text])
4144− , _odOfferId :: !(Maybe Int64)
4145− , _odClosedToDealParties :: !(Maybe [DealPartyDto])
4146− , _odAnonymous :: !(Maybe Bool)
4147− , _odIsOpen :: !(Maybe Bool)
4148+-- /See:/ 'offerDTO' smart constructor.
4149+data OfferDTO = OfferDTO
4150+ { _odtoCreator :: !(Maybe DealPartyDTO)
4151+ , _odtoStatus :: !(Maybe Text)
4152+ , _odtoOfferState :: !(Maybe Text)
4153+ , _odtoPointOfContact :: !(Maybe Text)
4154+ , _odtoTerms :: !(Maybe TermsDTO)
4155+ , _odtoKind :: !Text
4156+ , _odtoBilledBuyer :: !(Maybe DealPartyDTO)
4157+ , _odtoOpenToDealParties :: !(Maybe [DealPartyDTO])
4158+ , _odtoEmailContacts :: !(Maybe [Text])
4159+ , _odtoLabelNames :: !(Maybe [Text])
4160+ , _odtoOfferId :: !(Maybe Int64)
4161+ , _odtoClosedToDealParties :: !(Maybe [DealPartyDTO])
4162+ , _odtoAnonymous :: !(Maybe Bool)
4163+ , _odtoIsOpen :: !(Maybe Bool)
41484164 } deriving (Eq,Read,Show,Data,Typeable,Generic)
41494165
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.
41514167--
41524168-- Use one of the following lenses to modify other fields as desired:
41534169--
4154−-- * 'odCreator'
4170+-- * 'odtoCreator'
41554171--
4156−-- * 'odStatus'
4172+-- * 'odtoStatus'
41574173--
4158−-- * 'odOfferState'
4174+-- * 'odtoOfferState'
41594175--
4160−-- * 'odPointOfContact'
4176+-- * 'odtoPointOfContact'
41614177--
4162−-- * 'odTerms'
4178+-- * 'odtoTerms'
41634179--
4164−-- * 'odKind'
4180+-- * 'odtoKind'
41654181--
4166−-- * 'odBilledBuyer'
4182+-- * 'odtoBilledBuyer'
41674183--
4168−-- * 'odOpenToDealParties'
4184+-- * 'odtoOpenToDealParties'
41694185--
4170−-- * 'odEmailContacts'
4186+-- * 'odtoEmailContacts'
41714187--
4172−-- * 'odLabelNames'
4188+-- * 'odtoLabelNames'
41734189--
4174−-- * 'odOfferId'
4190+-- * 'odtoOfferId'
41754191--
4176−-- * 'odClosedToDealParties'
4192+-- * 'odtoClosedToDealParties'
41774193--
4178−-- * 'odAnonymous'
4194+-- * 'odtoAnonymous'
41794195--
4180−-- * 'odIsOpen'
4181−offerDto
4182− :: OfferDto
4183−offerDto =
4184− OfferDto
4185− { _odCreator = Nothing
4186− , _odStatus = Nothing
4187− , _odOfferState = Nothing
4188− , _odPointOfContact = Nothing
4189− , _odTerms = Nothing
4190− , _odKind = "adexchangebuyer#offer"
4191− , _odBilledBuyer = Nothing
4192− , _odOpenToDealParties = Nothing
4193− , _odEmailContacts = Nothing
4194− , _odLabelNames = Nothing
4195− , _odOfferId = Nothing
4196− , _odClosedToDealParties = Nothing
4197− , _odAnonymous = Nothing
4198− , _odIsOpen = Nothing
4196+-- * 'odtoIsOpen'
4197+offerDTO
4198+ :: OfferDTO
4199+offerDTO =
4200+ OfferDTO
4201+ { _odtoCreator = Nothing
4202+ , _odtoStatus = Nothing
4203+ , _odtoOfferState = Nothing
4204+ , _odtoPointOfContact = Nothing
4205+ , _odtoTerms = Nothing
4206+ , _odtoKind = "adexchangebuyer#offer"
4207+ , _odtoBilledBuyer = Nothing
4208+ , _odtoOpenToDealParties = Nothing
4209+ , _odtoEmailContacts = Nothing
4210+ , _odtoLabelNames = Nothing
4211+ , _odtoOfferId = Nothing
4212+ , _odtoClosedToDealParties = Nothing
4213+ , _odtoAnonymous = Nothing
4214+ , _odtoIsOpen = Nothing
41994215 }
42004216
42014217-- | The creator of this offer.
4202−odCreator :: Lens' OfferDto (Maybe DealPartyDto)
4203−odCreator
4204− = lens _odCreator (\ s a -> s{_odCreator = a})
4218+odtoCreator :: Lens' OfferDTO (Maybe DealPartyDTO)
4219+odtoCreator
4220+ = lens _odtoCreator (\ s a -> s{_odtoCreator = a})
42054221
42064222-- | The status of this offer.
4207−odStatus :: Lens' OfferDto (Maybe Text)
4208−odStatus = lens _odStatus (\ s a -> s{_odStatus = a})
4223+odtoStatus :: Lens' OfferDTO (Maybe Text)
4224+odtoStatus
4225+ = lens _odtoStatus (\ s a -> s{_odtoStatus = a})
42094226
42104227-- | The state of this offer.
4211−odOfferState :: Lens' OfferDto (Maybe Text)
4212−odOfferState
4213− = lens _odOfferState (\ s a -> s{_odOfferState = a})
4228+odtoOfferState :: Lens' OfferDTO (Maybe Text)
4229+odtoOfferState
4230+ = lens _odtoOfferState
4231+ (\ s a -> s{_odtoOfferState = a})
42144232
42154233-- | The point of contact for this offer.
4216−odPointOfContact :: Lens' OfferDto (Maybe Text)
4217−odPointOfContact
4218− = lens _odPointOfContact
4219− (\ s a -> s{_odPointOfContact = a})
4234+odtoPointOfContact :: Lens' OfferDTO (Maybe Text)
4235+odtoPointOfContact
4236+ = lens _odtoPointOfContact
4237+ (\ s a -> s{_odtoPointOfContact = a})
42204238
42214239-- | The terms of this offer.
4222−odTerms :: Lens' OfferDto (Maybe TermsDto)
4223−odTerms = lens _odTerms (\ s a -> s{_odTerms = a})
4240+odtoTerms :: Lens' OfferDTO (Maybe TermsDTO)
4241+odtoTerms
4242+ = lens _odtoTerms (\ s a -> s{_odtoTerms = a})
42244243
4225−odKind :: Lens' OfferDto Text
4226−odKind = lens _odKind (\ s a -> s{_odKind = a})
4244+odtoKind :: Lens' OfferDTO Text
4245+odtoKind = lens _odtoKind (\ s a -> s{_odtoKind = a})
42274246
42284247-- | The billed buyer; For buyer initiated offers, buying through an
42294248-- intermediary.
4230−odBilledBuyer :: Lens' OfferDto (Maybe DealPartyDto)
4231−odBilledBuyer
4232− = lens _odBilledBuyer
4233− (\ s a -> s{_odBilledBuyer = a})
4249+odtoBilledBuyer :: Lens' OfferDTO (Maybe DealPartyDTO)
4250+odtoBilledBuyer
4251+ = lens _odtoBilledBuyer
4252+ (\ s a -> s{_odtoBilledBuyer = a})
42344253
42354254-- | The list of buyer or seller parties this offer is open to.
4236−odOpenToDealParties :: Lens' OfferDto [DealPartyDto]
4237−odOpenToDealParties
4238− = lens _odOpenToDealParties
4239− (\ s a -> s{_odOpenToDealParties = a})
4255+odtoOpenToDealParties :: Lens' OfferDTO [DealPartyDTO]
4256+odtoOpenToDealParties
4257+ = lens _odtoOpenToDealParties
4258+ (\ s a -> s{_odtoOpenToDealParties = a})
42404259 . _Default
42414260 . _Coerce
42424261
42434262-- | The list of email contacts for this offer.
4244−odEmailContacts :: Lens' OfferDto [Text]
4245−odEmailContacts
4246− = lens _odEmailContacts
4247− (\ s a -> s{_odEmailContacts = a})
4263+odtoEmailContacts :: Lens' OfferDTO [Text]
4264+odtoEmailContacts
4265+ = lens _odtoEmailContacts
4266+ (\ s a -> s{_odtoEmailContacts = a})
42484267 . _Default
42494268 . _Coerce
42504269
42514270-- | The list of label names applicable to this offer.
4252−odLabelNames :: Lens' OfferDto [Text]
4253−odLabelNames
4254− = lens _odLabelNames (\ s a -> s{_odLabelNames = a})
4271+odtoLabelNames :: Lens' OfferDTO [Text]
4272+odtoLabelNames
4273+ = lens _odtoLabelNames
4274+ (\ s a -> s{_odtoLabelNames = a})
42554275 . _Default
42564276 . _Coerce
42574277
42584278-- | The unique ID of this offer.
4259−odOfferId :: Lens' OfferDto (Maybe Int64)
4260−odOfferId
4261− = lens _odOfferId (\ s a -> s{_odOfferId = a})
4279+odtoOfferId :: Lens' OfferDTO (Maybe Int64)
4280+odtoOfferId
4281+ = lens _odtoOfferId (\ s a -> s{_odtoOfferId = a})
42624282
42634283-- | The list of buyer or seller parties this offer is closed to.
4264−odClosedToDealParties :: Lens' OfferDto [DealPartyDto]
4265−odClosedToDealParties
4266− = lens _odClosedToDealParties
4267− (\ s a -> s{_odClosedToDealParties = a})
4284+odtoClosedToDealParties :: Lens' OfferDTO [DealPartyDTO]
4285+odtoClosedToDealParties
4286+ = lens _odtoClosedToDealParties
4287+ (\ s a -> s{_odtoClosedToDealParties = a})
42684288 . _Default
42694289 . _Coerce
42704290
42714291-- | Whether this offer is anonymous.
4272−odAnonymous :: Lens' OfferDto (Maybe Bool)
4273−odAnonymous
4274− = lens _odAnonymous (\ s a -> s{_odAnonymous = a})
4292+odtoAnonymous :: Lens' OfferDTO (Maybe Bool)
4293+odtoAnonymous
4294+ = lens _odtoAnonymous
4295+ (\ s a -> s{_odtoAnonymous = a})
42754296
42764297-- | Whether this offer is open.
4277−odIsOpen :: Lens' OfferDto (Maybe Bool)
4278−odIsOpen = lens _odIsOpen (\ s a -> s{_odIsOpen = a})
4298+odtoIsOpen :: Lens' OfferDTO (Maybe Bool)
4299+odtoIsOpen
4300+ = lens _odtoIsOpen (\ s a -> s{_odtoIsOpen = a})
42794301
4280−instance FromJSON OfferDto where
4302+instance FromJSON OfferDTO where
42814303 parseJSON
4282− = withObject "OfferDto"
4304+ = withObject "OfferDTO"
42834305 (\ o ->
4284− OfferDto <$>
4306+ OfferDTO <$>
42854307 (o .:? "creator") <*> (o .:? "status") <*>
42864308 (o .:? "offerState")
42874309 <*> (o .:? "pointOfContact")
@@ -4296,24 +4318,25 @@ instance FromJSON OfferDto where
42964318 <*> (o .:? "anonymous")
42974319 <*> (o .:? "isOpen"))
42984320
4299−instance ToJSON OfferDto where
4300− toJSON OfferDto{..}
4321+instance ToJSON OfferDTO where
4322+ toJSON OfferDTO{..}
43014323 = object
43024324 (catMaybes
4303− [("creator" .=) <$> _odCreator,
4304− ("status" .=) <$> _odStatus,
4305− ("offerState" .=) <$> _odOfferState,
4306− ("pointOfContact" .=) <$> _odPointOfContact,
4307− ("terms" .=) <$> _odTerms, Just ("kind" .= _odKind),
4308− ("billedBuyer" .=) <$> _odBilledBuyer,
4309− ("openToDealParties" .=) <$> _odOpenToDealParties,
4310− ("emailContacts" .=) <$> _odEmailContacts,
4311− ("labelNames" .=) <$> _odLabelNames,
4312− ("offerId" .=) <$> _odOfferId,
4325+ [("creator" .=) <$> _odtoCreator,
4326+ ("status" .=) <$> _odtoStatus,
4327+ ("offerState" .=) <$> _odtoOfferState,
4328+ ("pointOfContact" .=) <$> _odtoPointOfContact,
4329+ ("terms" .=) <$> _odtoTerms,
4330+ Just ("kind" .= _odtoKind),
4331+ ("billedBuyer" .=) <$> _odtoBilledBuyer,
4332+ ("openToDealParties" .=) <$> _odtoOpenToDealParties,
4333+ ("emailContacts" .=) <$> _odtoEmailContacts,
4334+ ("labelNames" .=) <$> _odtoLabelNames,
4335+ ("offerId" .=) <$> _odtoOfferId,
43134336 ("closedToDealParties" .=) <$>
4314− _odClosedToDealParties,
4315− ("anonymous" .=) <$> _odAnonymous,
4316− ("isOpen" .=) <$> _odIsOpen])
4337+ _odtoClosedToDealParties,
4338+ ("anonymous" .=) <$> _odtoAnonymous,
4339+ ("isOpen" .=) <$> _odtoIsOpen])
43174340
43184341--
43194342-- /See:/ 'targetingValueSize' smart constructor.
@@ -4743,48 +4766,49 @@ instance ToJSON AddOrderNotesResponse where
47434766 = object (catMaybes [("notes" .=) <$> _aNotes])
47444767
47454768--
4746−-- /See:/ 'moneyDto' smart constructor.
4747−data MoneyDto = MoneyDto
4748− { _mdCurrencyCode :: !(Maybe Text)
4749− , _mdMicros :: !(Maybe Int64)
4769+-- /See:/ 'moneyDTO' smart constructor.
4770+data MoneyDTO = MoneyDTO
4771+ { _mdtoCurrencyCode :: !(Maybe Text)
4772+ , _mdtoMicros :: !(Maybe Int64)
47504773 } deriving (Eq,Read,Show,Data,Typeable,Generic)
47514774
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.
47534776--
47544777-- Use one of the following lenses to modify other fields as desired:
47554778--
4756−-- * 'mdCurrencyCode'
4779+-- * 'mdtoCurrencyCode'
47574780--
4758−-- * 'mdMicros'
4759−moneyDto
4760− :: MoneyDto
4761−moneyDto =
4762− MoneyDto
4763− { _mdCurrencyCode = Nothing
4764− , _mdMicros = Nothing
4781+-- * 'mdtoMicros'
4782+moneyDTO
4783+ :: MoneyDTO
4784+moneyDTO =
4785+ MoneyDTO
4786+ { _mdtoCurrencyCode = Nothing
4787+ , _mdtoMicros = Nothing
47654788 }
47664789
4767−mdCurrencyCode :: Lens' MoneyDto (Maybe Text)
4768−mdCurrencyCode
4769− = lens _mdCurrencyCode
4770− (\ s a -> s{_mdCurrencyCode = a})
4790+mdtoCurrencyCode :: Lens' MoneyDTO (Maybe Text)
4791+mdtoCurrencyCode
4792+ = lens _mdtoCurrencyCode
4793+ (\ s a -> s{_mdtoCurrencyCode = a})
47714794
4772−mdMicros :: Lens' MoneyDto (Maybe Int64)
4773−mdMicros = lens _mdMicros (\ s a -> s{_mdMicros = a})
4795+mdtoMicros :: Lens' MoneyDTO (Maybe Int64)
4796+mdtoMicros
4797+ = lens _mdtoMicros (\ s a -> s{_mdtoMicros = a})
47744798
4775−instance FromJSON MoneyDto where
4799+instance FromJSON MoneyDTO where
47764800 parseJSON
4777− = withObject "MoneyDto"
4801+ = withObject "MoneyDTO"
47784802 (\ o ->
4779− MoneyDto <$>
4803+ MoneyDTO <$>
47804804 (o .:? "currencyCode") <*> (o .:? "micros"))
47814805
4782−instance ToJSON MoneyDto where
4783− toJSON MoneyDto{..}
4806+instance ToJSON MoneyDTO where
4807+ toJSON MoneyDTO{..}
47844808 = object
47854809 (catMaybes
4786− [("currencyCode" .=) <$> _mdCurrencyCode,
4787− ("micros" .=) <$> _mdMicros])
4810+ [("currencyCode" .=) <$> _mdtoCurrencyCode,
4811+ ("micros" .=) <$> _mdtoMicros])
47884812
47894813--
47904814-- /See:/ 'listClientAccessCapabilitiesResponse' smart constructor.
@@ -4868,7 +4892,7 @@ instance ToJSON GetNegotiationByIdRequest where
48684892-- /See:/ 'listOffersResponse' smart constructor.
48694893data ListOffersResponse = ListOffersResponse
48704894 { _lorKind :: !Text
4871− , _lorOffers :: !(Maybe [OfferDto])
4895+ , _lorOffers :: !(Maybe [OfferDTO])
48724896 } deriving (Eq,Read,Show,Data,Typeable,Generic)
48734897
48744898-- | Creates a value of 'ListOffersResponse' with the minimum fields required to make a request.
@@ -4889,7 +4913,7 @@ listOffersResponse =
48894913lorKind :: Lens' ListOffersResponse Text
48904914lorKind = lens _lorKind (\ s a -> s{_lorKind = a})
48914915
4892−lorOffers :: Lens' ListOffersResponse [OfferDto]
4916+lorOffers :: Lens' ListOffersResponse [OfferDTO]
48934917lorOffers
48944918 = lens _lorOffers (\ s a -> s{_lorOffers = a}) .
48954919 _Default
@@ -4911,66 +4935,67 @@ instance ToJSON ListOffersResponse where
49114935 ("offers" .=) <$> _lorOffers])
49124936
49134937--
4914−-- /See:/ 'advertiserDto' smart constructor.
4915−data AdvertiserDto = AdvertiserDto
4916− { _adStatus :: !(Maybe Text)
4917− , _adBrands :: !(Maybe [BrandDto])
4918− , _adName :: !(Maybe Text)
4919− , _adId :: !(Maybe Int64)
4938+-- /See:/ 'advertiserDTO' smart constructor.
4939+data AdvertiserDTO = AdvertiserDTO
4940+ { _adtoStatus :: !(Maybe Text)
4941+ , _adtoBrands :: !(Maybe [BrandDTO])
4942+ , _adtoName :: !(Maybe Text)
4943+ , _adtoId :: !(Maybe Int64)
49204944 } deriving (Eq,Read,Show,Data,Typeable,Generic)
49214945
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.
49234947--
49244948-- Use one of the following lenses to modify other fields as desired:
49254949--
4926−-- * 'adStatus'
4950+-- * 'adtoStatus'
49274951--
4928−-- * 'adBrands'
4952+-- * 'adtoBrands'
49294953--
4930−-- * 'adName'
4954+-- * 'adtoName'
49314955--
4932−-- * 'adId'
4933−advertiserDto
4934− :: AdvertiserDto
4935−advertiserDto =
4936− AdvertiserDto
4937− { _adStatus = Nothing
4938− , _adBrands = Nothing
4939− , _adName = Nothing
4940− , _adId = Nothing
4956+-- * 'adtoId'
4957+advertiserDTO
4958+ :: AdvertiserDTO
4959+advertiserDTO =
4960+ AdvertiserDTO
4961+ { _adtoStatus = Nothing
4962+ , _adtoBrands = Nothing
4963+ , _adtoName = Nothing
4964+ , _adtoId = Nothing
49414965 }
49424966
4943−adStatus :: Lens' AdvertiserDto (Maybe Text)
4944−adStatus = lens _adStatus (\ s a -> s{_adStatus = a})
4967+adtoStatus :: Lens' AdvertiserDTO (Maybe Text)
4968+adtoStatus
4969+ = lens _adtoStatus (\ s a -> s{_adtoStatus = a})
49454970
4946−adBrands :: Lens' AdvertiserDto [BrandDto]
4947−adBrands
4948− = lens _adBrands (\ s a -> s{_adBrands = a}) .
4971+adtoBrands :: Lens' AdvertiserDTO [BrandDTO]
4972+adtoBrands
4973+ = lens _adtoBrands (\ s a -> s{_adtoBrands = a}) .
49494974 _Default
49504975 . _Coerce
49514976
4952−adName :: Lens' AdvertiserDto (Maybe Text)
4953−adName = lens _adName (\ s a -> s{_adName = a})
4977+adtoName :: Lens' AdvertiserDTO (Maybe Text)
4978+adtoName = lens _adtoName (\ s a -> s{_adtoName = a})
49544979
4955−adId :: Lens' AdvertiserDto (Maybe Int64)
4956−adId = lens _adId (\ s a -> s{_adId = a})
4980+adtoId :: Lens' AdvertiserDTO (Maybe Int64)
4981+adtoId = lens _adtoId (\ s a -> s{_adtoId = a})
49574982
4958−instance FromJSON AdvertiserDto where
4983+instance FromJSON AdvertiserDTO where
49594984 parseJSON
4960− = withObject "AdvertiserDto"
4985+ = withObject "AdvertiserDTO"
49614986 (\ o ->
4962− AdvertiserDto <$>
4987+ AdvertiserDTO <$>
49634988 (o .:? "status") <*> (o .:? "brands" .!= mempty) <*>
49644989 (o .:? "name")
49654990 <*> (o .:? "id"))
49664991
4967−instance ToJSON AdvertiserDto where
4968− toJSON AdvertiserDto{..}
4992+instance ToJSON AdvertiserDTO where
4993+ toJSON AdvertiserDTO{..}
49694994 = object
49704995 (catMaybes
4971− [("status" .=) <$> _adStatus,
4972− ("brands" .=) <$> _adBrands, ("name" .=) <$> _adName,
4973− ("id" .=) <$> _adId])
4996+ [("status" .=) <$> _adtoStatus,
4997+ ("brands" .=) <$> _adtoBrands,
4998+ ("name" .=) <$> _adtoName, ("id" .=) <$> _adtoId])
49744999
49755000--
49765001-- /See:/ 'targetingValue' smart constructor.
@@ -5306,84 +5331,86 @@ instance ToJSON BillingInfo where
53065331 ("billingId" .=) <$> _biBillingId])
53075332
53085333--
5309−-- /See:/ 'webPropertyDto' smart constructor.
5310−data WebPropertyDto = WebPropertyDto
5311− { _wpdEnabledForPreferredDeals :: !(Maybe Bool)
5312− , _wpdSyndicationProduct :: !(Maybe Text)
5313− , _wpdName :: !(Maybe Text)
5314− , _wpdPropertyCode :: !(Maybe Text)
5315− , _wpdId :: !(Maybe Int32)
5316− , _wpdSiteURLs :: !(Maybe [Text])
5317− , _wpdAllowInterestTargetedAds :: !(Maybe Bool)
5334+-- /See:/ 'webPropertyDTO' smart constructor.
5335+data WebPropertyDTO = WebPropertyDTO
5336+ { _wpdtoEnabledForPreferredDeals :: !(Maybe Bool)
5337+ , _wpdtoSyndicationProduct :: !(Maybe Text)
5338+ , _wpdtoName :: !(Maybe Text)
5339+ , _wpdtoPropertyCode :: !(Maybe Text)
5340+ , _wpdtoId :: !(Maybe Int32)
5341+ , _wpdtoSiteURLs :: !(Maybe [Text])
5342+ , _wpdtoAllowInterestTargetedAds :: !(Maybe Bool)
53185343 } deriving (Eq,Read,Show,Data,Typeable,Generic)
53195344
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.
53215346--
53225347-- Use one of the following lenses to modify other fields as desired:
53235348--
5324−-- * 'wpdEnabledForPreferredDeals'
5349+-- * 'wpdtoEnabledForPreferredDeals'
53255350--
5326−-- * 'wpdSyndicationProduct'
5351+-- * 'wpdtoSyndicationProduct'
53275352--
5328−-- * 'wpdName'
5353+-- * 'wpdtoName'
53295354--
5330−-- * 'wpdPropertyCode'
5355+-- * 'wpdtoPropertyCode'
53315356--
5332−-- * 'wpdId'
5357+-- * 'wpdtoId'
53335358--
5334−-- * 'wpdSiteURLs'
5359+-- * 'wpdtoSiteURLs'
53355360--
5336−-- * 'wpdAllowInterestTargetedAds'
5337−webPropertyDto
5338− :: WebPropertyDto
5339−webPropertyDto =
5340− WebPropertyDto
5341− { _wpdEnabledForPreferredDeals = Nothing
5342− , _wpdSyndicationProduct = Nothing
5343− , _wpdName = Nothing
5344− , _wpdPropertyCode = Nothing
5345− , _wpdId = Nothing
5346− , _wpdSiteURLs = Nothing
5347− , _wpdAllowInterestTargetedAds = Nothing
5361+-- * 'wpdtoAllowInterestTargetedAds'
5362+webPropertyDTO
5363+ :: WebPropertyDTO
5364+webPropertyDTO =
5365+ WebPropertyDTO
5366+ { _wpdtoEnabledForPreferredDeals = Nothing
5367+ , _wpdtoSyndicationProduct = Nothing
5368+ , _wpdtoName = Nothing
5369+ , _wpdtoPropertyCode = Nothing
5370+ , _wpdtoId = Nothing
5371+ , _wpdtoSiteURLs = Nothing
5372+ , _wpdtoAllowInterestTargetedAds = Nothing
53485373 }
53495374
5350−wpdEnabledForPreferredDeals :: Lens' WebPropertyDto (Maybe Bool)
5351−wpdEnabledForPreferredDeals
5352− = lens _wpdEnabledForPreferredDeals
5353− (\ s a -> s{_wpdEnabledForPreferredDeals = a})
5375+wpdtoEnabledForPreferredDeals :: Lens' WebPropertyDTO (Maybe Bool)
5376+wpdtoEnabledForPreferredDeals
5377+ = lens _wpdtoEnabledForPreferredDeals
5378+ (\ s a -> s{_wpdtoEnabledForPreferredDeals = a})
53545379
5355−wpdSyndicationProduct :: Lens' WebPropertyDto (Maybe Text)
5356−wpdSyndicationProduct
5357− = lens _wpdSyndicationProduct
5358− (\ s a -> s{_wpdSyndicationProduct = a})
5380+wpdtoSyndicationProduct :: Lens' WebPropertyDTO (Maybe Text)
5381+wpdtoSyndicationProduct
5382+ = lens _wpdtoSyndicationProduct
5383+ (\ s a -> s{_wpdtoSyndicationProduct = a})
53595384
5360−wpdName :: Lens' WebPropertyDto (Maybe Text)
5361−wpdName = lens _wpdName (\ s a -> s{_wpdName = a})
5385+wpdtoName :: Lens' WebPropertyDTO (Maybe Text)
5386+wpdtoName
5387+ = lens _wpdtoName (\ s a -> s{_wpdtoName = a})
53625388
5363−wpdPropertyCode :: Lens' WebPropertyDto (Maybe Text)
5364−wpdPropertyCode
5365− = lens _wpdPropertyCode
5366− (\ s a -> s{_wpdPropertyCode = a})
5389+wpdtoPropertyCode :: Lens' WebPropertyDTO (Maybe Text)
5390+wpdtoPropertyCode
5391+ = lens _wpdtoPropertyCode
5392+ (\ s a -> s{_wpdtoPropertyCode = a})
53675393
5368−wpdId :: Lens' WebPropertyDto (Maybe Int32)
5369−wpdId = lens _wpdId (\ s a -> s{_wpdId = a})
5394+wpdtoId :: Lens' WebPropertyDTO (Maybe Int32)
5395+wpdtoId = lens _wpdtoId (\ s a -> s{_wpdtoId = a})
53705396
5371−wpdSiteURLs :: Lens' WebPropertyDto [Text]
5372−wpdSiteURLs
5373− = lens _wpdSiteURLs (\ s a -> s{_wpdSiteURLs = a}) .
5374− _Default
5397+wpdtoSiteURLs :: Lens' WebPropertyDTO [Text]
5398+wpdtoSiteURLs
5399+ = lens _wpdtoSiteURLs
5400+ (\ s a -> s{_wpdtoSiteURLs = a})
5401+ . _Default
53755402 . _Coerce
53765403
5377−wpdAllowInterestTargetedAds :: Lens' WebPropertyDto (Maybe Bool)
5378−wpdAllowInterestTargetedAds
5379− = lens _wpdAllowInterestTargetedAds
5380− (\ s a -> s{_wpdAllowInterestTargetedAds = a})
5404+wpdtoAllowInterestTargetedAds :: Lens' WebPropertyDTO (Maybe Bool)
5405+wpdtoAllowInterestTargetedAds
5406+ = lens _wpdtoAllowInterestTargetedAds
5407+ (\ s a -> s{_wpdtoAllowInterestTargetedAds = a})
53815408
5382−instance FromJSON WebPropertyDto where
5409+instance FromJSON WebPropertyDTO where
53835410 parseJSON
5384− = withObject "WebPropertyDto"
5411+ = withObject "WebPropertyDTO"
53855412 (\ o ->
5386− WebPropertyDto <$>
5413+ WebPropertyDTO <$>
53875414 (o .:? "enabledForPreferredDeals") <*>
53885415 (o .:? "syndicationProduct")
53895416 <*> (o .:? "name")
@@ -5392,19 +5419,20 @@ instance FromJSON WebPropertyDto where
53925419 <*> (o .:? "siteUrls" .!= mempty)
53935420 <*> (o .:? "allowInterestTargetedAds"))
53945421
5395−instance ToJSON WebPropertyDto where
5396− toJSON WebPropertyDto{..}
5422+instance ToJSON WebPropertyDTO where
5423+ toJSON WebPropertyDTO{..}
53975424 = object
53985425 (catMaybes
53995426 [("enabledForPreferredDeals" .=) <$>
5400− _wpdEnabledForPreferredDeals,
5401− ("syndicationProduct" .=) <$> _wpdSyndicationProduct,
5402− ("name" .=) <$> _wpdName,
5403− ("propertyCode" .=) <$> _wpdPropertyCode,
5404− ("id" .=) <$> _wpdId,
5405− ("siteUrls" .=) <$> _wpdSiteURLs,
5427+ _wpdtoEnabledForPreferredDeals,
5428+ ("syndicationProduct" .=) <$>
5429+ _wpdtoSyndicationProduct,
5430+ ("name" .=) <$> _wpdtoName,
5431+ ("propertyCode" .=) <$> _wpdtoPropertyCode,
5432+ ("id" .=) <$> _wpdtoId,
5433+ ("siteUrls" .=) <$> _wpdtoSiteURLs,
54065434 ("allowInterestTargetedAds" .=) <$>
5407− _wpdAllowInterestTargetedAds])
5435+ _wpdtoAllowInterestTargetedAds])
54085436
54095437--
54105438-- /See:/ 'targetingValueDayPartTargeting' smart constructor.
@@ -6680,106 +6708,109 @@ instance ToJSON PretargetingConfigPlacements where
66806708 ("type" .=) <$> _pcpType])
66816709
66826710--
6683−-- /See:/ 'negotiationRoundDto' smart constructor.
6684−data NegotiationRoundDto = NegotiationRoundDto
6685− { _nrdTerms :: !(Maybe TermsDto)
6686− , _nrdKind :: !Text
6687− , _nrdOriginatorRole :: !(Maybe Text)
6688− , _nrdAction :: !(Maybe Text)
6689− , _nrdDBmPartnerId :: !(Maybe Int64)
6690− , _nrdNotes :: !(Maybe Text)
6691− , _nrdNegotiationId :: !(Maybe Int64)
6692− , _nrdEditHistory :: !(Maybe EditHistoryDto)
6693− , _nrdRoundNumber :: !(Maybe Int64)
6711+-- /See:/ 'negotiationRoundDTO' smart constructor.
6712+data NegotiationRoundDTO = NegotiationRoundDTO
6713+ { _nrdtoTerms :: !(Maybe TermsDTO)
6714+ , _nrdtoKind :: !Text
6715+ , _nrdtoOriginatorRole :: !(Maybe Text)
6716+ , _nrdtoAction :: !(Maybe Text)
6717+ , _nrdtoDBmPartnerId :: !(Maybe Int64)
6718+ , _nrdtoNotes :: !(Maybe Text)
6719+ , _nrdtoNegotiationId :: !(Maybe Int64)
6720+ , _nrdtoEditHistory :: !(Maybe EditHistoryDTO)
6721+ , _nrdtoRoundNumber :: !(Maybe Int64)
66946722 } deriving (Eq,Read,Show,Data,Typeable,Generic)
66956723
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.
66976725--
66986726-- Use one of the following lenses to modify other fields as desired:
66996727--
6700−-- * 'nrdTerms'
6728+-- * 'nrdtoTerms'
67016729--
6702−-- * 'nrdKind'
6730+-- * 'nrdtoKind'
67036731--
6704−-- * 'nrdOriginatorRole'
6732+-- * 'nrdtoOriginatorRole'
67056733--
6706−-- * 'nrdAction'
6734+-- * 'nrdtoAction'
67076735--
6708−-- * 'nrdDBmPartnerId'
6736+-- * 'nrdtoDBmPartnerId'
67096737--
6710−-- * 'nrdNotes'
6738+-- * 'nrdtoNotes'
67116739--
6712−-- * 'nrdNegotiationId'
6740+-- * 'nrdtoNegotiationId'
67136741--
6714−-- * 'nrdEditHistory'
6742+-- * 'nrdtoEditHistory'
67156743--
6716−-- * 'nrdRoundNumber'
6717−negotiationRoundDto
6718− :: NegotiationRoundDto
6719−negotiationRoundDto =
6720− NegotiationRoundDto
6721− { _nrdTerms = Nothing
6722− , _nrdKind = "adexchangebuyer#negotiationRound"
6723− , _nrdOriginatorRole = Nothing
6724− , _nrdAction = Nothing
6725− , _nrdDBmPartnerId = Nothing
6726− , _nrdNotes = Nothing
6727− , _nrdNegotiationId = Nothing
6728− , _nrdEditHistory = Nothing
6729− , _nrdRoundNumber = Nothing
6744+-- * 'nrdtoRoundNumber'
6745+negotiationRoundDTO
6746+ :: NegotiationRoundDTO
6747+negotiationRoundDTO =
6748+ NegotiationRoundDTO
6749+ { _nrdtoTerms = Nothing
6750+ , _nrdtoKind = "adexchangebuyer#negotiationRound"
6751+ , _nrdtoOriginatorRole = Nothing
6752+ , _nrdtoAction = Nothing
6753+ , _nrdtoDBmPartnerId = Nothing
6754+ , _nrdtoNotes = Nothing
6755+ , _nrdtoNegotiationId = Nothing
6756+ , _nrdtoEditHistory = Nothing
6757+ , _nrdtoRoundNumber = Nothing
67306758 }
67316759
67326760-- | The detailed terms proposed in this negotiation round.
6733−nrdTerms :: Lens' NegotiationRoundDto (Maybe TermsDto)
6734−nrdTerms = lens _nrdTerms (\ s a -> s{_nrdTerms = a})
6761+nrdtoTerms :: Lens' NegotiationRoundDTO (Maybe TermsDTO)
6762+nrdtoTerms
6763+ = lens _nrdtoTerms (\ s a -> s{_nrdtoTerms = a})
67356764
6736−nrdKind :: Lens' NegotiationRoundDto Text
6737−nrdKind = lens _nrdKind (\ s a -> s{_nrdKind = a})
6765+nrdtoKind :: Lens' NegotiationRoundDTO Text
6766+nrdtoKind
6767+ = lens _nrdtoKind (\ s a -> s{_nrdtoKind = a})
67386768
67396769-- | The role, either buyer or seller, initiating this negotiation round.
6740−nrdOriginatorRole :: Lens' NegotiationRoundDto (Maybe Text)
6741−nrdOriginatorRole
6742− = lens _nrdOriginatorRole
6743− (\ s a -> s{_nrdOriginatorRole = a})
6770+nrdtoOriginatorRole :: Lens' NegotiationRoundDTO (Maybe Text)
6771+nrdtoOriginatorRole
6772+ = lens _nrdtoOriginatorRole
6773+ (\ s a -> s{_nrdtoOriginatorRole = a})
67446774
67456775-- | The action performed by this negotiation round.
6746−nrdAction :: Lens' NegotiationRoundDto (Maybe Text)
6747−nrdAction
6748− = lens _nrdAction (\ s a -> s{_nrdAction = a})
6776+nrdtoAction :: Lens' NegotiationRoundDTO (Maybe Text)
6777+nrdtoAction
6778+ = lens _nrdtoAction (\ s a -> s{_nrdtoAction = a})
67496779
67506780-- | Stores DBM partner ID for use by DBM
6751−nrdDBmPartnerId :: Lens' NegotiationRoundDto (Maybe Int64)
6752−nrdDBmPartnerId
6753− = lens _nrdDBmPartnerId
6754− (\ s a -> s{_nrdDBmPartnerId = a})
6781+nrdtoDBmPartnerId :: Lens' NegotiationRoundDTO (Maybe Int64)
6782+nrdtoDBmPartnerId
6783+ = lens _nrdtoDBmPartnerId
6784+ (\ s a -> s{_nrdtoDBmPartnerId = a})
67556785
67566786-- | Notes regarding this negotiation round.
6757−nrdNotes :: Lens' NegotiationRoundDto (Maybe Text)
6758−nrdNotes = lens _nrdNotes (\ s a -> s{_nrdNotes = a})
6787+nrdtoNotes :: Lens' NegotiationRoundDTO (Maybe Text)
6788+nrdtoNotes
6789+ = lens _nrdtoNotes (\ s a -> s{_nrdtoNotes = a})
67596790
67606791-- | The ID of the negotiation to which this negotiation round applies.
6761−nrdNegotiationId :: Lens' NegotiationRoundDto (Maybe Int64)
6762−nrdNegotiationId
6763− = lens _nrdNegotiationId
6764− (\ s a -> s{_nrdNegotiationId = a})
6792+nrdtoNegotiationId :: Lens' NegotiationRoundDTO (Maybe Int64)
6793+nrdtoNegotiationId
6794+ = lens _nrdtoNegotiationId
6795+ (\ s a -> s{_nrdtoNegotiationId = a})
67656796
67666797-- | The edit history of this negotiation round.
6767−nrdEditHistory :: Lens' NegotiationRoundDto (Maybe EditHistoryDto)
6768−nrdEditHistory
6769− = lens _nrdEditHistory
6770− (\ s a -> s{_nrdEditHistory = a})
6798+nrdtoEditHistory :: Lens' NegotiationRoundDTO (Maybe EditHistoryDTO)
6799+nrdtoEditHistory
6800+ = lens _nrdtoEditHistory
6801+ (\ s a -> s{_nrdtoEditHistory = a})
67716802
67726803-- | The number of this negotiation round, in sequence.
6773−nrdRoundNumber :: Lens' NegotiationRoundDto (Maybe Int64)
6774−nrdRoundNumber
6775− = lens _nrdRoundNumber
6776− (\ s a -> s{_nrdRoundNumber = a})
6804+nrdtoRoundNumber :: Lens' NegotiationRoundDTO (Maybe Int64)
6805+nrdtoRoundNumber
6806+ = lens _nrdtoRoundNumber
6807+ (\ s a -> s{_nrdtoRoundNumber = a})
67776808
6778−instance FromJSON NegotiationRoundDto where
6809+instance FromJSON NegotiationRoundDTO where
67796810 parseJSON
6780− = withObject "NegotiationRoundDto"
6811+ = withObject "NegotiationRoundDTO"
67816812 (\ o ->
6782− NegotiationRoundDto <$>
6813+ NegotiationRoundDTO <$>
67836814 (o .:? "terms") <*>
67846815 (o .:? "kind" .!= "adexchangebuyer#negotiationRound")
67856816 <*> (o .:? "originatorRole")
@@ -6790,101 +6821,103 @@ instance FromJSON NegotiationRoundDto where
67906821 <*> (o .:? "editHistory")
67916822 <*> (o .:? "roundNumber"))
67926823
6793−instance ToJSON NegotiationRoundDto where
6794− toJSON NegotiationRoundDto{..}
6824+instance ToJSON NegotiationRoundDTO where
6825+ toJSON NegotiationRoundDTO{..}
67956826 = object
67966827 (catMaybes
6797− [("terms" .=) <$> _nrdTerms,
6798− Just ("kind" .= _nrdKind),
6799− ("originatorRole" .=) <$> _nrdOriginatorRole,
6800− ("action" .=) <$> _nrdAction,
6801− ("dbmPartnerId" .=) <$> _nrdDBmPartnerId,
6802− ("notes" .=) <$> _nrdNotes,
6803− ("negotiationId" .=) <$> _nrdNegotiationId,
6804− ("editHistory" .=) <$> _nrdEditHistory,
6805− ("roundNumber" .=) <$> _nrdRoundNumber])
6806−
6807−--
6808−-- /See:/ 'statsDto' smart constructor.
6809−data StatsDto = StatsDto
6810− { _sdBids :: !(Maybe Int64)
6811− , _sdSpend :: !(Maybe MoneyDto)
6812− , _sdImpressions :: !(Maybe Int64)
6813− , _sdGoodBids :: !(Maybe Int64)
6814− , _sdRevenue :: !(Maybe MoneyDto)
6815− , _sdRequests :: !(Maybe Int64)
6828+ [("terms" .=) <$> _nrdtoTerms,
6829+ Just ("kind" .= _nrdtoKind),
6830+ ("originatorRole" .=) <$> _nrdtoOriginatorRole,
6831+ ("action" .=) <$> _nrdtoAction,
6832+ ("dbmPartnerId" .=) <$> _nrdtoDBmPartnerId,
6833+ ("notes" .=) <$> _nrdtoNotes,
6834+ ("negotiationId" .=) <$> _nrdtoNegotiationId,
6835+ ("editHistory" .=) <$> _nrdtoEditHistory,
6836+ ("roundNumber" .=) <$> _nrdtoRoundNumber])
6837+
6838+--
6839+-- /See:/ 'statsDTO' smart constructor.
6840+data StatsDTO = StatsDTO
6841+ { _sdtoBids :: !(Maybe Int64)
6842+ , _sdtoSpend :: !(Maybe MoneyDTO)
6843+ , _sdtoImpressions :: !(Maybe Int64)
6844+ , _sdtoGoodBids :: !(Maybe Int64)
6845+ , _sdtoRevenue :: !(Maybe MoneyDTO)
6846+ , _sdtoRequests :: !(Maybe Int64)
68166847 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68176848
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.
68196850--
68206851-- Use one of the following lenses to modify other fields as desired:
68216852--
6822−-- * 'sdBids'
6853+-- * 'sdtoBids'
68236854--
6824−-- * 'sdSpend'
6855+-- * 'sdtoSpend'
68256856--
6826−-- * 'sdImpressions'
6857+-- * 'sdtoImpressions'
68276858--
6828−-- * 'sdGoodBids'
6859+-- * 'sdtoGoodBids'
68296860--
6830−-- * 'sdRevenue'
6861+-- * 'sdtoRevenue'
68316862--
6832−-- * 'sdRequests'
6833−statsDto
6834− :: StatsDto
6835−statsDto =
6836− StatsDto
6837− { _sdBids = Nothing
6838− , _sdSpend = Nothing
6839− , _sdImpressions = Nothing
6840− , _sdGoodBids = Nothing
6841− , _sdRevenue = Nothing
6842− , _sdRequests = Nothing
6863+-- * 'sdtoRequests'
6864+statsDTO
6865+ :: StatsDTO
6866+statsDTO =
6867+ StatsDTO
6868+ { _sdtoBids = Nothing
6869+ , _sdtoSpend = Nothing
6870+ , _sdtoImpressions = Nothing
6871+ , _sdtoGoodBids = Nothing
6872+ , _sdtoRevenue = Nothing
6873+ , _sdtoRequests = Nothing
68436874 }
68446875
6845−sdBids :: Lens' StatsDto (Maybe Int64)
6846−sdBids = lens _sdBids (\ s a -> s{_sdBids = a})
6876+sdtoBids :: Lens' StatsDTO (Maybe Int64)
6877+sdtoBids = lens _sdtoBids (\ s a -> s{_sdtoBids = a})
68476878
6848−sdSpend :: Lens' StatsDto (Maybe MoneyDto)
6849−sdSpend = lens _sdSpend (\ s a -> s{_sdSpend = a})
6879+sdtoSpend :: Lens' StatsDTO (Maybe MoneyDTO)
6880+sdtoSpend
6881+ = lens _sdtoSpend (\ s a -> s{_sdtoSpend = a})
68506882
6851−sdImpressions :: Lens' StatsDto (Maybe Int64)
6852−sdImpressions
6853− = lens _sdImpressions
6854− (\ s a -> s{_sdImpressions = a})
6883+sdtoImpressions :: Lens' StatsDTO (Maybe Int64)
6884+sdtoImpressions
6885+ = lens _sdtoImpressions
6886+ (\ s a -> s{_sdtoImpressions = a})
68556887
6856−sdGoodBids :: Lens' StatsDto (Maybe Int64)
6857−sdGoodBids
6858− = lens _sdGoodBids (\ s a -> s{_sdGoodBids = a})
6888+sdtoGoodBids :: Lens' StatsDTO (Maybe Int64)
6889+sdtoGoodBids
6890+ = lens _sdtoGoodBids (\ s a -> s{_sdtoGoodBids = a})
68596891
6860−sdRevenue :: Lens' StatsDto (Maybe MoneyDto)
6861−sdRevenue
6862− = lens _sdRevenue (\ s a -> s{_sdRevenue = a})
6892+sdtoRevenue :: Lens' StatsDTO (Maybe MoneyDTO)
6893+sdtoRevenue
6894+ = lens _sdtoRevenue (\ s a -> s{_sdtoRevenue = a})
68636895
6864−sdRequests :: Lens' StatsDto (Maybe Int64)
6865−sdRequests
6866− = lens _sdRequests (\ s a -> s{_sdRequests = a})
6896+sdtoRequests :: Lens' StatsDTO (Maybe Int64)
6897+sdtoRequests
6898+ = lens _sdtoRequests (\ s a -> s{_sdtoRequests = a})
68676899
6868−instance FromJSON StatsDto where
6900+instance FromJSON StatsDTO where
68696901 parseJSON
6870− = withObject "StatsDto"
6902+ = withObject "StatsDTO"
68716903 (\ o ->
6872− StatsDto <$>
6904+ StatsDTO <$>
68736905 (o .:? "bids") <*> (o .:? "spend") <*>
68746906 (o .:? "impressions")
68756907 <*> (o .:? "goodBids")
68766908 <*> (o .:? "revenue")
68776909 <*> (o .:? "requests"))
68786910
6879−instance ToJSON StatsDto where
6880− toJSON StatsDto{..}
6911+instance ToJSON StatsDTO where
6912+ toJSON StatsDTO{..}
68816913 = object
68826914 (catMaybes
6883− [("bids" .=) <$> _sdBids, ("spend" .=) <$> _sdSpend,
6884− ("impressions" .=) <$> _sdImpressions,
6885− ("goodBids" .=) <$> _sdGoodBids,
6886− ("revenue" .=) <$> _sdRevenue,
6887− ("requests" .=) <$> _sdRequests])
6915+ [("bids" .=) <$> _sdtoBids,
6916+ ("spend" .=) <$> _sdtoSpend,
6917+ ("impressions" .=) <$> _sdtoImpressions,
6918+ ("goodBids" .=) <$> _sdtoGoodBids,
6919+ ("revenue" .=) <$> _sdtoRevenue,
6920+ ("requests" .=) <$> _sdtoRequests])
68886921
68896922--
68906923-- /See:/ 'getOffersResponse' smart constructor.
@@ -7714,72 +7747,73 @@ instance ToJSON DealTerms where
77147747 ("description" .=) <$> _dtDescription])
77157748
77167749--
7717−-- /See:/ 'editHistoryDto' smart constructor.
7718−data EditHistoryDto = EditHistoryDto
7719− { _ehdLastUpdatedByLoginName :: !(Maybe Text)
7720− , _ehdCreatedByLoginName :: !(Maybe Text)
7721− , _ehdLastUpdateTimeStamp :: !(Maybe Int64)
7722− , _ehdCreatedTimeStamp :: !(Maybe Int64)
7750+-- /See:/ 'editHistoryDTO' smart constructor.
7751+data EditHistoryDTO = EditHistoryDTO
7752+ { _ehdtoLastUpdatedByLoginName :: !(Maybe Text)
7753+ , _ehdtoCreatedByLoginName :: !(Maybe Text)
7754+ , _ehdtoLastUpdateTimeStamp :: !(Maybe Int64)
7755+ , _ehdtoCreatedTimeStamp :: !(Maybe Int64)
77237756 } deriving (Eq,Read,Show,Data,Typeable,Generic)
77247757
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.
77267759--
77277760-- Use one of the following lenses to modify other fields as desired:
77287761--
7729−-- * 'ehdLastUpdatedByLoginName'
7762+-- * 'ehdtoLastUpdatedByLoginName'
77307763--
7731−-- * 'ehdCreatedByLoginName'
7764+-- * 'ehdtoCreatedByLoginName'
77327765--
7733−-- * 'ehdLastUpdateTimeStamp'
7766+-- * 'ehdtoLastUpdateTimeStamp'
77347767--
7735−-- * 'ehdCreatedTimeStamp'
7736−editHistoryDto
7737− :: EditHistoryDto
7738−editHistoryDto =
7739− EditHistoryDto
7740− { _ehdLastUpdatedByLoginName = Nothing
7741− , _ehdCreatedByLoginName = Nothing
7742− , _ehdLastUpdateTimeStamp = Nothing
7743− , _ehdCreatedTimeStamp = Nothing
7768+-- * 'ehdtoCreatedTimeStamp'
7769+editHistoryDTO
7770+ :: EditHistoryDTO
7771+editHistoryDTO =
7772+ EditHistoryDTO
7773+ { _ehdtoLastUpdatedByLoginName = Nothing
7774+ , _ehdtoCreatedByLoginName = Nothing
7775+ , _ehdtoLastUpdateTimeStamp = Nothing
7776+ , _ehdtoCreatedTimeStamp = Nothing
77447777 }
77457778
7746−ehdLastUpdatedByLoginName :: Lens' EditHistoryDto (Maybe Text)
7747−ehdLastUpdatedByLoginName
7748− = lens _ehdLastUpdatedByLoginName
7749− (\ s a -> s{_ehdLastUpdatedByLoginName = a})
7779+ehdtoLastUpdatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7780+ehdtoLastUpdatedByLoginName
7781+ = lens _ehdtoLastUpdatedByLoginName
7782+ (\ s a -> s{_ehdtoLastUpdatedByLoginName = a})
77507783
7751−ehdCreatedByLoginName :: Lens' EditHistoryDto (Maybe Text)
7752−ehdCreatedByLoginName
7753− = lens _ehdCreatedByLoginName
7754− (\ s a -> s{_ehdCreatedByLoginName = a})
7784+ehdtoCreatedByLoginName :: Lens' EditHistoryDTO (Maybe Text)
7785+ehdtoCreatedByLoginName
7786+ = lens _ehdtoCreatedByLoginName
7787+ (\ s a -> s{_ehdtoCreatedByLoginName = a})
77557788
7756−ehdLastUpdateTimeStamp :: Lens' EditHistoryDto (Maybe Int64)
7757−ehdLastUpdateTimeStamp
7758− = lens _ehdLastUpdateTimeStamp
7759− (\ s a -> s{_ehdLastUpdateTimeStamp = a})
7789+ehdtoLastUpdateTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7790+ehdtoLastUpdateTimeStamp
7791+ = lens _ehdtoLastUpdateTimeStamp
7792+ (\ s a -> s{_ehdtoLastUpdateTimeStamp = a})
77607793
7761−ehdCreatedTimeStamp :: Lens' EditHistoryDto (Maybe Int64)
7762−ehdCreatedTimeStamp
7763− = lens _ehdCreatedTimeStamp
7764− (\ s a -> s{_ehdCreatedTimeStamp = a})
7794+ehdtoCreatedTimeStamp :: Lens' EditHistoryDTO (Maybe Int64)
7795+ehdtoCreatedTimeStamp
7796+ = lens _ehdtoCreatedTimeStamp
7797+ (\ s a -> s{_ehdtoCreatedTimeStamp = a})
77657798
7766−instance FromJSON EditHistoryDto where
7799+instance FromJSON EditHistoryDTO where
77677800 parseJSON
7768− = withObject "EditHistoryDto"
7801+ = withObject "EditHistoryDTO"
77697802 (\ o ->
7770− EditHistoryDto <$>
7803+ EditHistoryDTO <$>
77717804 (o .:? "lastUpdatedByLoginName") <*>
77727805 (o .:? "createdByLoginName")
77737806 <*> (o .:? "lastUpdateTimeStamp")
77747807 <*> (o .:? "createdTimeStamp"))
77757808
7776−instance ToJSON EditHistoryDto where
7777− toJSON EditHistoryDto{..}
7809+instance ToJSON EditHistoryDTO where
7810+ toJSON EditHistoryDTO{..}
77787811 = object
77797812 (catMaybes
77807813 [("lastUpdatedByLoginName" .=) <$>
7781− _ehdLastUpdatedByLoginName,
7782− ("createdByLoginName" .=) <$> _ehdCreatedByLoginName,
7814+ _ehdtoLastUpdatedByLoginName,
7815+ ("createdByLoginName" .=) <$>
7816+ _ehdtoCreatedByLoginName,
77837817 ("lastUpdateTimeStamp" .=) <$>
7784− _ehdLastUpdateTimeStamp,
7785− ("createdTimeStamp" .=) <$> _ehdCreatedTimeStamp])
7818+ _ehdtoLastUpdateTimeStamp,
7819+ ("createdTimeStamp" .=) <$> _ehdtoCreatedTimeStamp])