@@ -852,6 +852,39 @@ instance ToJSON ChannelStatus where
852 ("longUploadsStatus" .=) <$> _csLongUploadsStatus,
852 ("longUploadsStatus" .=) <$> _csLongUploadsStatus,
853 ("privacyStatus" .=) <$> _csPrivacyStatus])
853 ("privacyStatus" .=) <$> _csPrivacyStatus])
856+-- /See:/ 'liveChatPollClosedDetails' smart constructor.
857+newtype LiveChatPollClosedDetails = LiveChatPollClosedDetails'
858+ { _lcpcdPollId :: Maybe Text
859+ } deriving (Eq,Show,Data,Typeable,Generic)
861+-- | Creates a value of 'LiveChatPollClosedDetails' with the minimum fields required to make a request.
863+-- Use one of the following lenses to modify other fields as desired:
866+liveChatPollClosedDetails
867+ :: LiveChatPollClosedDetails
868+liveChatPollClosedDetails =
869+ LiveChatPollClosedDetails'
870+ { _lcpcdPollId = Nothing
873+-- | The id of the poll that was closed.
874+lcpcdPollId :: Lens' LiveChatPollClosedDetails (Maybe Text)
876+ = lens _lcpcdPollId (\ s a -> s{_lcpcdPollId = a})
878+instance FromJSON LiveChatPollClosedDetails where
880+ = withObject "LiveChatPollClosedDetails"
882+ LiveChatPollClosedDetails' <$> (o .:? "pollId"))
884+instance ToJSON LiveChatPollClosedDetails where
885+ toJSON LiveChatPollClosedDetails'{..}
886+ = object (catMaybes [("pollId" .=) <$> _lcpcdPollId])
855-- | Describes a single promoted item.
888-- | Describes a single promoted item.
857-- /See:/ 'promotedItem' smart constructor.
890-- /See:/ 'promotedItem' smart constructor.
@@ -4572,6 +4605,61 @@ instance ToJSON ChannelTopicDetails where
4572 = object
4605 = object
4573 (catMaybes [("topicIds" .=) <$> _ctdTopicIds])
4606 (catMaybes [("topicIds" .=) <$> _ctdTopicIds])
4609+-- /See:/ 'liveChatPollEditedDetails' smart constructor.
4610+data LiveChatPollEditedDetails = LiveChatPollEditedDetails'
4611+ { _lcpedPrompt :: !(Maybe Text)
4612+ , _lcpedItems :: !(Maybe [LiveChatPollItem])
4613+ , _lcpedId :: !(Maybe Text)
4614+ } deriving (Eq,Show,Data,Typeable,Generic)
4616+-- | Creates a value of 'LiveChatPollEditedDetails' with the minimum fields required to make a request.
4618+-- Use one of the following lenses to modify other fields as desired:
4625+liveChatPollEditedDetails
4626+ :: LiveChatPollEditedDetails
4627+liveChatPollEditedDetails =
4628+ LiveChatPollEditedDetails'
4629+ { _lcpedPrompt = Nothing
4630+ , _lcpedItems = Nothing
4631+ , _lcpedId = Nothing
4634+lcpedPrompt :: Lens' LiveChatPollEditedDetails (Maybe Text)
4636+ = lens _lcpedPrompt (\ s a -> s{_lcpedPrompt = a})
4638+lcpedItems :: Lens' LiveChatPollEditedDetails [LiveChatPollItem]
4640+ = lens _lcpedItems (\ s a -> s{_lcpedItems = a}) .
4644+lcpedId :: Lens' LiveChatPollEditedDetails (Maybe Text)
4645+lcpedId = lens _lcpedId (\ s a -> s{_lcpedId = a})
4647+instance FromJSON LiveChatPollEditedDetails where
4649+ = withObject "LiveChatPollEditedDetails"
4651+ LiveChatPollEditedDetails' <$>
4652+ (o .:? "prompt") <*> (o .:? "items" .!= mempty) <*>
4655+instance ToJSON LiveChatPollEditedDetails where
4656+ toJSON LiveChatPollEditedDetails'{..}
4659+ [("prompt" .=) <$> _lcpedPrompt,
4660+ ("items" .=) <$> _lcpedItems,
4661+ ("id" .=) <$> _lcpedId])
4576-- /See:/ 'videoCategoryListResponse' smart constructor.
4664-- /See:/ 'videoCategoryListResponse' smart constructor.
4577data VideoCategoryListResponse = VideoCategoryListResponse'
4665data VideoCategoryListResponse = VideoCategoryListResponse'
@@ -6525,9 +6613,13 @@ data LiveChatMessageSnippet = LiveChatMessageSnippet'
6525 { _lcmsMessageDeletedDetails :: !(Maybe LiveChatMessageDeletedDetails)
6613 { _lcmsMessageDeletedDetails :: !(Maybe LiveChatMessageDeletedDetails)
6526 , _lcmsLiveChatId :: !(Maybe Text)
6614 , _lcmsLiveChatId :: !(Maybe Text)
6527 , _lcmsPublishedAt :: !(Maybe DateTime')
6615 , _lcmsPublishedAt :: !(Maybe DateTime')
6616+ , _lcmsPollOpenedDetails :: !(Maybe LiveChatPollOpenedDetails)
6617+ , _lcmsPollVotedDetails :: !(Maybe LiveChatPollVotedDetails)
6528 , _lcmsUserBannedDetails :: !(Maybe LiveChatUserBannedMessageDetails)
6618 , _lcmsUserBannedDetails :: !(Maybe LiveChatUserBannedMessageDetails)
6529 , _lcmsTextMessageDetails :: !(Maybe LiveChatTextMessageDetails)
6619 , _lcmsTextMessageDetails :: !(Maybe LiveChatTextMessageDetails)
6620+ , _lcmsPollClosedDetails :: !(Maybe LiveChatPollClosedDetails)
6530 , _lcmsMessageRetractedDetails :: !(Maybe LiveChatMessageRetractedDetails)
6621 , _lcmsMessageRetractedDetails :: !(Maybe LiveChatMessageRetractedDetails)
6622+ , _lcmsPollEditedDetails :: !(Maybe LiveChatPollEditedDetails)
6531 , _lcmsType :: !(Maybe LiveChatMessageSnippetType)
6623 , _lcmsType :: !(Maybe LiveChatMessageSnippetType)
6532 , _lcmsAuthorChannelId :: !(Maybe Text)
6624 , _lcmsAuthorChannelId :: !(Maybe Text)
6533 , _lcmsFanFundingEventDetails :: !(Maybe LiveChatFanFundingEventDetails)
6625 , _lcmsFanFundingEventDetails :: !(Maybe LiveChatFanFundingEventDetails)
@@ -6545,12 +6637,20 @@ data LiveChatMessageSnippet = LiveChatMessageSnippet'
6546-- * 'lcmsPublishedAt'
6638-- * 'lcmsPublishedAt'
6640+-- * 'lcmsPollOpenedDetails'
6642+-- * 'lcmsPollVotedDetails'
6548-- * 'lcmsUserBannedDetails'
6644-- * 'lcmsUserBannedDetails'
6550-- * 'lcmsTextMessageDetails'
6646-- * 'lcmsTextMessageDetails'
6648+-- * 'lcmsPollClosedDetails'
6552-- * 'lcmsMessageRetractedDetails'
6650-- * 'lcmsMessageRetractedDetails'
6652+-- * 'lcmsPollEditedDetails'
6554-- * 'lcmsType'
6654-- * 'lcmsType'
6556-- * 'lcmsAuthorChannelId'
6656-- * 'lcmsAuthorChannelId'
@@ -6567,9 +6667,13 @@ liveChatMessageSnippet =
6567 { _lcmsMessageDeletedDetails = Nothing
6667 { _lcmsMessageDeletedDetails = Nothing
6568 , _lcmsLiveChatId = Nothing
6668 , _lcmsLiveChatId = Nothing
6569 , _lcmsPublishedAt = Nothing
6669 , _lcmsPublishedAt = Nothing
6670+ , _lcmsPollOpenedDetails = Nothing
6671+ , _lcmsPollVotedDetails = Nothing
6570 , _lcmsUserBannedDetails = Nothing
6672 , _lcmsUserBannedDetails = Nothing
6571 , _lcmsTextMessageDetails = Nothing
6673 , _lcmsTextMessageDetails = Nothing
6674+ , _lcmsPollClosedDetails = Nothing
6572 , _lcmsMessageRetractedDetails = Nothing
6675 , _lcmsMessageRetractedDetails = Nothing
6676+ , _lcmsPollEditedDetails = Nothing
6573 , _lcmsType = Nothing
6677 , _lcmsType = Nothing
6574 , _lcmsAuthorChannelId = Nothing
6678 , _lcmsAuthorChannelId = Nothing
6575 , _lcmsFanFundingEventDetails = Nothing
6679 , _lcmsFanFundingEventDetails = Nothing
@@ -6595,6 +6699,16 @@ lcmsPublishedAt
6595 (\ s a -> s{_lcmsPublishedAt = a})
6699 (\ s a -> s{_lcmsPublishedAt = a})
6596 . mapping _DateTime
6700 . mapping _DateTime
6702+lcmsPollOpenedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatPollOpenedDetails)
6703+lcmsPollOpenedDetails
6704+ = lens _lcmsPollOpenedDetails
6705+ (\ s a -> s{_lcmsPollOpenedDetails = a})
6707+lcmsPollVotedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatPollVotedDetails)
6708+lcmsPollVotedDetails
6709+ = lens _lcmsPollVotedDetails
6710+ (\ s a -> s{_lcmsPollVotedDetails = a})
6598lcmsUserBannedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatUserBannedMessageDetails)
6712lcmsUserBannedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatUserBannedMessageDetails)
6599lcmsUserBannedDetails
6713lcmsUserBannedDetails
6600 = lens _lcmsUserBannedDetails
6714 = lens _lcmsUserBannedDetails
@@ -6607,11 +6721,21 @@ lcmsTextMessageDetails
6607 = lens _lcmsTextMessageDetails
6721 = lens _lcmsTextMessageDetails
6608 (\ s a -> s{_lcmsTextMessageDetails = a})
6722 (\ s a -> s{_lcmsTextMessageDetails = a})
6724+lcmsPollClosedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatPollClosedDetails)
6725+lcmsPollClosedDetails
6726+ = lens _lcmsPollClosedDetails
6727+ (\ s a -> s{_lcmsPollClosedDetails = a})
6610lcmsMessageRetractedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatMessageRetractedDetails)
6729lcmsMessageRetractedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatMessageRetractedDetails)
6611lcmsMessageRetractedDetails
6730lcmsMessageRetractedDetails
6612 = lens _lcmsMessageRetractedDetails
6731 = lens _lcmsMessageRetractedDetails
6613 (\ s a -> s{_lcmsMessageRetractedDetails = a})
6732 (\ s a -> s{_lcmsMessageRetractedDetails = a})
6734+lcmsPollEditedDetails :: Lens' LiveChatMessageSnippet (Maybe LiveChatPollEditedDetails)
6735+lcmsPollEditedDetails
6736+ = lens _lcmsPollEditedDetails
6737+ (\ s a -> s{_lcmsPollEditedDetails = a})
6615-- | The type of message, this will always be present, it determines the
6739-- | The type of message, this will always be present, it determines the
6616-- contents of the message as well as which fields will be present.
6740-- contents of the message as well as which fields will be present.
6617lcmsType :: Lens' LiveChatMessageSnippet (Maybe LiveChatMessageSnippetType)
6741lcmsType :: Lens' LiveChatMessageSnippet (Maybe LiveChatMessageSnippetType)
@@ -6658,9 +6782,13 @@ instance FromJSON LiveChatMessageSnippet where
6658 (o .:? "messageDeletedDetails") <*>
6782 (o .:? "messageDeletedDetails") <*>
6659 (o .:? "liveChatId")
6783 (o .:? "liveChatId")
6660 <*> (o .:? "publishedAt")
6784 <*> (o .:? "publishedAt")
6785+ <*> (o .:? "pollOpenedDetails")
6786+ <*> (o .:? "pollVotedDetails")
6661 <*> (o .:? "userBannedDetails")
6787 <*> (o .:? "userBannedDetails")
6662 <*> (o .:? "textMessageDetails")
6788 <*> (o .:? "textMessageDetails")
6789+ <*> (o .:? "pollClosedDetails")
6663 <*> (o .:? "messageRetractedDetails")
6790 <*> (o .:? "messageRetractedDetails")
6791+ <*> (o .:? "pollEditedDetails")
6664 <*> (o .:? "type")
6792 <*> (o .:? "type")
6665 <*> (o .:? "authorChannelId")
6793 <*> (o .:? "authorChannelId")
6666 <*> (o .:? "fanFundingEventDetails")
6794 <*> (o .:? "fanFundingEventDetails")
@@ -6675,11 +6803,15 @@ instance ToJSON LiveChatMessageSnippet where
6675 _lcmsMessageDeletedDetails,
6803 _lcmsMessageDeletedDetails,
6676 ("liveChatId" .=) <$> _lcmsLiveChatId,
6804 ("liveChatId" .=) <$> _lcmsLiveChatId,
6677 ("publishedAt" .=) <$> _lcmsPublishedAt,
6805 ("publishedAt" .=) <$> _lcmsPublishedAt,
6806+ ("pollOpenedDetails" .=) <$> _lcmsPollOpenedDetails,
6807+ ("pollVotedDetails" .=) <$> _lcmsPollVotedDetails,
6678 ("userBannedDetails" .=) <$> _lcmsUserBannedDetails,
6808 ("userBannedDetails" .=) <$> _lcmsUserBannedDetails,
6679 ("textMessageDetails" .=) <$>
6809 ("textMessageDetails" .=) <$>
6680 _lcmsTextMessageDetails,
6810 _lcmsTextMessageDetails,
6811+ ("pollClosedDetails" .=) <$> _lcmsPollClosedDetails,
6681 ("messageRetractedDetails" .=) <$>
6812 ("messageRetractedDetails" .=) <$>
6682 _lcmsMessageRetractedDetails,
6813 _lcmsMessageRetractedDetails,
6814+ ("pollEditedDetails" .=) <$> _lcmsPollEditedDetails,
6683 ("type" .=) <$> _lcmsType,
6815 ("type" .=) <$> _lcmsType,
6684 ("authorChannelId" .=) <$> _lcmsAuthorChannelId,
6816 ("authorChannelId" .=) <$> _lcmsAuthorChannelId,
6685 ("fanFundingEventDetails" .=) <$>
6817 ("fanFundingEventDetails" .=) <$>
@@ -10432,6 +10564,52 @@ instance ToJSON SearchResultSnippet where
10432 _srsLiveBroadcastContent,
10564 _srsLiveBroadcastContent,
10433 ("description" .=) <$> _srsDescription])
10565 ("description" .=) <$> _srsDescription])
10568+-- /See:/ 'liveChatPollItem' smart constructor.
10569+data LiveChatPollItem = LiveChatPollItem'
10570+ { _lcpiItemId :: !(Maybe Text)
10571+ , _lcpiDescription :: !(Maybe Text)
10572+ } deriving (Eq,Show,Data,Typeable,Generic)
10574+-- | Creates a value of 'LiveChatPollItem' with the minimum fields required to make a request.
10576+-- Use one of the following lenses to modify other fields as desired:
10580+-- * 'lcpiDescription'
10582+ :: LiveChatPollItem
10585+ { _lcpiItemId = Nothing
10586+ , _lcpiDescription = Nothing
10589+lcpiItemId :: Lens' LiveChatPollItem (Maybe Text)
10591+ = lens _lcpiItemId (\ s a -> s{_lcpiItemId = a})
10593+-- | Plain text description of the item.
10594+lcpiDescription :: Lens' LiveChatPollItem (Maybe Text)
10596+ = lens _lcpiDescription
10597+ (\ s a -> s{_lcpiDescription = a})
10599+instance FromJSON LiveChatPollItem where
10601+ = withObject "LiveChatPollItem"
10603+ LiveChatPollItem' <$>
10604+ (o .:? "itemId") <*> (o .:? "description"))
10606+instance ToJSON LiveChatPollItem where
10607+ toJSON LiveChatPollItem'{..}
10610+ [("itemId" .=) <$> _lcpiItemId,
10611+ ("description" .=) <$> _lcpiDescription])
10436-- /See:/ 'sponsorListResponse' smart constructor.
10614-- /See:/ 'sponsorListResponse' smart constructor.
10437data SponsorListResponse = SponsorListResponse'
10615data SponsorListResponse = SponsorListResponse'
@@ -11836,6 +12014,61 @@ instance ToJSON LanguageTag where
11836 toJSON LanguageTag'{..}
12014 toJSON LanguageTag'{..}
11837 = object (catMaybes [("value" .=) <$> _ltValue])
12015 = object (catMaybes [("value" .=) <$> _ltValue])
12018+-- /See:/ 'liveChatPollOpenedDetails' smart constructor.
12019+data LiveChatPollOpenedDetails = LiveChatPollOpenedDetails'
12020+ { _lcpodPrompt :: !(Maybe Text)
12021+ , _lcpodItems :: !(Maybe [LiveChatPollItem])
12022+ , _lcpodId :: !(Maybe Text)
12023+ } deriving (Eq,Show,Data,Typeable,Generic)
12025+-- | Creates a value of 'LiveChatPollOpenedDetails' with the minimum fields required to make a request.
12027+-- Use one of the following lenses to modify other fields as desired:
12034+liveChatPollOpenedDetails
12035+ :: LiveChatPollOpenedDetails
12036+liveChatPollOpenedDetails =
12037+ LiveChatPollOpenedDetails'
12038+ { _lcpodPrompt = Nothing
12039+ , _lcpodItems = Nothing
12040+ , _lcpodId = Nothing
12043+lcpodPrompt :: Lens' LiveChatPollOpenedDetails (Maybe Text)
12045+ = lens _lcpodPrompt (\ s a -> s{_lcpodPrompt = a})
12047+lcpodItems :: Lens' LiveChatPollOpenedDetails [LiveChatPollItem]
12049+ = lens _lcpodItems (\ s a -> s{_lcpodItems = a}) .
12053+lcpodId :: Lens' LiveChatPollOpenedDetails (Maybe Text)
12054+lcpodId = lens _lcpodId (\ s a -> s{_lcpodId = a})
12056+instance FromJSON LiveChatPollOpenedDetails where
12058+ = withObject "LiveChatPollOpenedDetails"
12060+ LiveChatPollOpenedDetails' <$>
12061+ (o .:? "prompt") <*> (o .:? "items" .!= mempty) <*>
12064+instance ToJSON LiveChatPollOpenedDetails where
12065+ toJSON LiveChatPollOpenedDetails'{..}
12068+ [("prompt" .=) <$> _lcpodPrompt,
12069+ ("items" .=) <$> _lcpodItems,
12070+ ("id" .=) <$> _lcpodId])
11839-- | Information about a video stream.
12072-- | Information about a video stream.
11841-- /See:/ 'videoFileDetailsVideoStream' smart constructor.
12074-- /See:/ 'videoFileDetailsVideoStream' smart constructor.
@@ -13322,11 +13555,12 @@ instance ToJSON VideoProjectDetails where
13322 = object (catMaybes [("tags" .=) <$> _vpdTags])
13555 = object (catMaybes [("tags" .=) <$> _vpdTags])
13324-- | Ratings schemes. The country-specific ratings are mostly for movies and
13557-- | Ratings schemes. The country-specific ratings are mostly for movies and
13325−-- shows. NEXT_ID: 67
13558+-- shows. NEXT_ID: 68
13327-- /See:/ 'contentRating' smart constructor.
13560-- /See:/ 'contentRating' smart constructor.
13328data ContentRating = ContentRating'
13561data ContentRating = ContentRating'
13562+ { _crFpbRatingReasons :: !(Maybe [ContentRatingFpbRatingReasonsItem])
13329− { _crPefilmRating :: !(Maybe ContentRatingPefilmRating)
13563+ , _crPefilmRating :: !(Maybe ContentRatingPefilmRating)
13330 , _crCccRating :: !(Maybe ContentRatingCccRating)
13564 , _crCccRating :: !(Maybe ContentRatingCccRating)
13331 , _crAnatelRating :: !(Maybe ContentRatingAnatelRating)
13565 , _crAnatelRating :: !(Maybe ContentRatingAnatelRating)
13332 , _crMpaaRating :: !(Maybe ContentRatingMpaaRating)
13566 , _crMpaaRating :: !(Maybe ContentRatingMpaaRating)
@@ -13398,6 +13632,8 @@ data ContentRating = ContentRating'
13399-- Use one of the following lenses to modify other fields as desired:
13633-- Use one of the following lenses to modify other fields as desired:
13635+-- * 'crFpbRatingReasons'
13401-- * 'crPefilmRating'
13637-- * 'crPefilmRating'
13403-- * 'crCccRating'
13639-- * 'crCccRating'
@@ -13533,7 +13769,8 @@ contentRating
13533 :: ContentRating
13769 :: ContentRating
13534contentRating =
13770contentRating =
13535 ContentRating'
13771 ContentRating'
13772+ { _crFpbRatingReasons = Nothing
13536− { _crPefilmRating = Nothing
13773+ , _crPefilmRating = Nothing
13537 , _crCccRating = Nothing
13774 , _crCccRating = Nothing
13538 , _crAnatelRating = Nothing
13775 , _crAnatelRating = Nothing
13539 , _crMpaaRating = Nothing
13776 , _crMpaaRating = Nothing
@@ -13601,6 +13838,15 @@ contentRating =
13601 , _crKmrbRating = Nothing
13838 , _crKmrbRating = Nothing
13841+-- | Reasons that explain why the video received its FPB (South Africa)
13843+crFpbRatingReasons :: Lens' ContentRating [ContentRatingFpbRatingReasonsItem]
13845+ = lens _crFpbRatingReasons
13846+ (\ s a -> s{_crFpbRatingReasons = a})
13604-- | The video\'s rating in Peru.
13850-- | The video\'s rating in Peru.
13605crPefilmRating :: Lens' ContentRating (Maybe ContentRatingPefilmRating)
13851crPefilmRating :: Lens' ContentRating (Maybe ContentRatingPefilmRating)
13606crPefilmRating
13852crPefilmRating
@@ -14007,8 +14253,10 @@ instance FromJSON ContentRating where
14007 = withObject "ContentRating"
14253 = withObject "ContentRating"
14008 (\ o ->
14254 (\ o ->
14009 ContentRating' <$>
14255 ContentRating' <$>
14256+ (o .:? "fpbRatingReasons" .!= mempty) <*>
14010− (o .:? "pefilmRating") <*> (o .:? "cccRating") <*>
14257+ (o .:? "pefilmRating")
14258+ <*> (o .:? "cccRating")
14011− (o .:? "anatelRating")
14259+ <*> (o .:? "anatelRating")
14012 <*> (o .:? "mpaaRating")
14260 <*> (o .:? "mpaaRating")
14013 <*> (o .:? "cceRating")
14261 <*> (o .:? "cceRating")
14014 <*> (o .:? "mccaaRating")
14262 <*> (o .:? "mccaaRating")
@@ -14077,7 +14325,8 @@ instance ToJSON ContentRating where
14077 toJSON ContentRating'{..}
14325 toJSON ContentRating'{..}
14078 = object
14326 = object
14079 (catMaybes
14327 (catMaybes
14328+ [("fpbRatingReasons" .=) <$> _crFpbRatingReasons,
14080− [("pefilmRating" .=) <$> _crPefilmRating,
14329+ ("pefilmRating" .=) <$> _crPefilmRating,
14081 ("cccRating" .=) <$> _crCccRating,
14330 ("cccRating" .=) <$> _crCccRating,
14082 ("anatelRating" .=) <$> _crAnatelRating,
14331 ("anatelRating" .=) <$> _crAnatelRating,
14083 ("mpaaRating" .=) <$> _crMpaaRating,
14332 ("mpaaRating" .=) <$> _crMpaaRating,
@@ -15308,3 +15557,49 @@ instance ToJSON I18nLanguageSnippet where
15308 = object
15557 = object
15309 (catMaybes
15558 (catMaybes
15310 [("hl" .=) <$> _ilsHl, ("name" .=) <$> _ilsName])
15559 [("hl" .=) <$> _ilsHl, ("name" .=) <$> _ilsName])
15562+-- /See:/ 'liveChatPollVotedDetails' smart constructor.
15563+data LiveChatPollVotedDetails = LiveChatPollVotedDetails'
15564+ { _lcpvdPollId :: !(Maybe Text)
15565+ , _lcpvdItemId :: !(Maybe Text)
15566+ } deriving (Eq,Show,Data,Typeable,Generic)
15568+-- | Creates a value of 'LiveChatPollVotedDetails' with the minimum fields required to make a request.
15570+-- Use one of the following lenses to modify other fields as desired:
15575+liveChatPollVotedDetails
15576+ :: LiveChatPollVotedDetails
15577+liveChatPollVotedDetails =
15578+ LiveChatPollVotedDetails'
15579+ { _lcpvdPollId = Nothing
15580+ , _lcpvdItemId = Nothing
15583+-- | The poll the user voted on.
15584+lcpvdPollId :: Lens' LiveChatPollVotedDetails (Maybe Text)
15586+ = lens _lcpvdPollId (\ s a -> s{_lcpvdPollId = a})
15588+-- | The poll item the user chose.
15589+lcpvdItemId :: Lens' LiveChatPollVotedDetails (Maybe Text)
15591+ = lens _lcpvdItemId (\ s a -> s{_lcpvdItemId = a})
15593+instance FromJSON LiveChatPollVotedDetails where
15595+ = withObject "LiveChatPollVotedDetails"
15597+ LiveChatPollVotedDetails' <$>
15598+ (o .:? "pollId") <*> (o .:? "itemId"))
15600+instance ToJSON LiveChatPollVotedDetails where
15601+ toJSON LiveChatPollVotedDetails'{..}
15604+ [("pollId" .=) <$> _lcpvdPollId,
15605+ ("itemId" .=) <$> _lcpvdItemId])