@@ -2469,6 +2469,7 @@ instance ToJSON ActivityContentDetailsFavorite where
24692469-- /See:/ 'videoContentDetails' smart constructor.
24702470data VideoContentDetails = VideoContentDetails'
24712471 { _vcdCountryRestriction :: !(Maybe AccessPolicy)
2472+ , _vcdHasCustomThumbnail :: !(Maybe Bool)
24722473 , _vcdDefinition :: !(Maybe VideoContentDetailsDefinition)
24732474 , _vcdDimension :: !(Maybe Text)
24742475 , _vcdCaption :: !(Maybe VideoContentDetailsCaption)
@@ -2485,6 +2486,8 @@ data VideoContentDetails = VideoContentDetails'
24852486--
24862487-- * 'vcdCountryRestriction'
24872488--
2489+-- * 'vcdHasCustomThumbnail'
2490+--
24882491-- * 'vcdDefinition'
24892492--
24902493-- * 'vcdDimension'
@@ -2505,6 +2508,7 @@ videoContentDetails
25052508videoContentDetails =
25062509 VideoContentDetails'
25072510 { _vcdCountryRestriction = Nothing
2511+ , _vcdHasCustomThumbnail = Nothing
25082512 , _vcdDefinition = Nothing
25092513 , _vcdDimension = Nothing
25102514 , _vcdCaption = Nothing
@@ -2522,6 +2526,14 @@ vcdCountryRestriction
25222526 = lens _vcdCountryRestriction
25232527 (\ s a -> s{_vcdCountryRestriction = a})
25242528
2529+-- | Indicates whether the video uploader has provided a custom thumbnail
2530+-- image for the video. This property is only visible to the video
2531+-- uploader.
2532+vcdHasCustomThumbnail :: Lens' VideoContentDetails (Maybe Bool)
2533+vcdHasCustomThumbnail
2534+ = lens _vcdHasCustomThumbnail
2535+ (\ s a -> s{_vcdHasCustomThumbnail = a})
2536+
25252537-- | The value of definition indicates whether the video is available in high
25262538-- definition or only in standard definition.
25272539vcdDefinition :: Lens' VideoContentDetails (Maybe VideoContentDetailsDefinition)
@@ -2585,7 +2597,9 @@ instance FromJSON VideoContentDetails where
25852597 = withObject "VideoContentDetails"
25862598 (\ o ->
25872599 VideoContentDetails' <$>
2588− (o .:? "countryRestriction") <*> (o .:? "definition")
2600+ (o .:? "countryRestriction") <*>
2601+ (o .:? "hasCustomThumbnail")
2602+ <*> (o .:? "definition")
25892603 <*> (o .:? "dimension")
25902604 <*> (o .:? "caption")
25912605 <*> (o .:? "regionRestriction")
@@ -2600,6 +2614,7 @@ instance ToJSON VideoContentDetails where
26002614 (catMaybes
26012615 [("countryRestriction" .=) <$>
26022616 _vcdCountryRestriction,
2617+ ("hasCustomThumbnail" .=) <$> _vcdHasCustomThumbnail,
26032618 ("definition" .=) <$> _vcdDefinition,
26042619 ("dimension" .=) <$> _vcdDimension,
26052620 ("caption" .=) <$> _vcdCaption,
@@ -3645,16 +3660,15 @@ instance ToJSON VideoStatus where
36453660--
36463661-- /See:/ 'videoFileDetails' smart constructor.
36473662data VideoFileDetails = VideoFileDetails'
3648− { _vfdBitrateBps :: !(Maybe (Textual Word64))
3649− , _vfdCreationTime :: !(Maybe Text)
3650− , _vfdRecordingLocation :: !(Maybe GeoPoint)
3651− , _vfdDurationMs :: !(Maybe (Textual Word64))
3652− , _vfdFileSize :: !(Maybe (Textual Word64))
3653− , _vfdFileType :: !(Maybe VideoFileDetailsFileType)
3654− , _vfdContainer :: !(Maybe Text)
3655− , _vfdVideoStreams :: !(Maybe [VideoFileDetailsVideoStream])
3656− , _vfdAudioStreams :: !(Maybe [VideoFileDetailsAudioStream])
3657− , _vfdFileName :: !(Maybe Text)
3663+ { _vfdBitrateBps :: !(Maybe (Textual Word64))
3664+ , _vfdCreationTime :: !(Maybe Text)
3665+ , _vfdDurationMs :: !(Maybe (Textual Word64))
3666+ , _vfdFileSize :: !(Maybe (Textual Word64))
3667+ , _vfdFileType :: !(Maybe VideoFileDetailsFileType)
3668+ , _vfdContainer :: !(Maybe Text)
3669+ , _vfdVideoStreams :: !(Maybe [VideoFileDetailsVideoStream])
3670+ , _vfdAudioStreams :: !(Maybe [VideoFileDetailsAudioStream])
3671+ , _vfdFileName :: !(Maybe Text)
36583672 } deriving (Eq,Show,Data,Typeable,Generic)
36593673
36603674-- | Creates a value of 'VideoFileDetails' with the minimum fields required to make a request.
@@ -3665,8 +3679,6 @@ data VideoFileDetails = VideoFileDetails'
36653679--
36663680-- * 'vfdCreationTime'
36673681--
3668−-- * 'vfdRecordingLocation'
3669−--
36703682-- * 'vfdDurationMs'
36713683--
36723684-- * 'vfdFileSize'
@@ -3686,7 +3698,6 @@ videoFileDetails =
36863698 VideoFileDetails'
36873699 { _vfdBitrateBps = Nothing
36883700 , _vfdCreationTime = Nothing
3689− , _vfdRecordingLocation = Nothing
36903701 , _vfdDurationMs = Nothing
36913702 , _vfdFileSize = Nothing
36923703 , _vfdFileType = Nothing
@@ -3713,13 +3724,6 @@ vfdCreationTime
37133724 = lens _vfdCreationTime
37143725 (\ s a -> s{_vfdCreationTime = a})
37153726
3716−-- | Geographic coordinates that identify the place where the uploaded video
3717−-- was recorded. Coordinates are defined using WGS 84.
3718−vfdRecordingLocation :: Lens' VideoFileDetails (Maybe GeoPoint)
3719−vfdRecordingLocation
3720− = lens _vfdRecordingLocation
3721− (\ s a -> s{_vfdRecordingLocation = a})
3722−
37233727-- | The length of the uploaded video in milliseconds.
37243728vfdDurationMs :: Lens' VideoFileDetails (Maybe Word64)
37253729vfdDurationMs
@@ -3776,8 +3780,7 @@ instance FromJSON VideoFileDetails where
37763780 (\ o ->
37773781 VideoFileDetails' <$>
37783782 (o .:? "bitrateBps") <*> (o .:? "creationTime") <*>
3779− (o .:? "recordingLocation")
3780− <*> (o .:? "durationMs")
3783+ (o .:? "durationMs")
37813784 <*> (o .:? "fileSize")
37823785 <*> (o .:? "fileType")
37833786 <*> (o .:? "container")
@@ -3791,7 +3794,6 @@ instance ToJSON VideoFileDetails where
37913794 (catMaybes
37923795 [("bitrateBps" .=) <$> _vfdBitrateBps,
37933796 ("creationTime" .=) <$> _vfdCreationTime,
3794− ("recordingLocation" .=) <$> _vfdRecordingLocation,
37953797 ("durationMs" .=) <$> _vfdDurationMs,
37963798 ("fileSize" .=) <$> _vfdFileSize,
37973799 ("fileType" .=) <$> _vfdFileType,
@@ -4013,9 +4015,8 @@ instance ToJSON LiveBroadcastListResponse where
40134015-- | Details about the content of a channel.
40144016--
40154017-- /See:/ 'channelContentDetails' smart constructor.
4016−data ChannelContentDetails = ChannelContentDetails'
4017− { _ccdRelatedPlayLists :: !(Maybe ChannelContentDetailsRelatedPlayLists)
4018− , _ccdGooglePlusUserId :: !(Maybe Text)
4018+newtype ChannelContentDetails = ChannelContentDetails'
4019+ { _ccdRelatedPlayLists :: Maybe ChannelContentDetailsRelatedPlayLists
40194020 } deriving (Eq,Show,Data,Typeable,Generic)
40204021
40214022-- | Creates a value of 'ChannelContentDetails' with the minimum fields required to make a request.
@@ -4023,14 +4024,11 @@ data ChannelContentDetails = ChannelContentDetails'
40234024-- Use one of the following lenses to modify other fields as desired:
40244025--
40254026-- * 'ccdRelatedPlayLists'
4026−--
4027−-- * 'ccdGooglePlusUserId'
40284027channelContentDetails
40294028 :: ChannelContentDetails
40304029channelContentDetails =
40314030 ChannelContentDetails'
40324031 { _ccdRelatedPlayLists = Nothing
4033− , _ccdGooglePlusUserId = Nothing
40344032 }
40354033
40364034ccdRelatedPlayLists :: Lens' ChannelContentDetails (Maybe ChannelContentDetailsRelatedPlayLists)
@@ -4038,27 +4036,18 @@ ccdRelatedPlayLists
40384036 = lens _ccdRelatedPlayLists
40394037 (\ s a -> s{_ccdRelatedPlayLists = a})
40404038
4041−-- | The googlePlusUserId object identifies the Google+ profile ID associated
4042−-- with this channel.
4043−ccdGooglePlusUserId :: Lens' ChannelContentDetails (Maybe Text)
4044−ccdGooglePlusUserId
4045− = lens _ccdGooglePlusUserId
4046− (\ s a -> s{_ccdGooglePlusUserId = a})
4047−
40484039instance FromJSON ChannelContentDetails where
40494040 parseJSON
40504041 = withObject "ChannelContentDetails"
40514042 (\ o ->
40524043 ChannelContentDetails' <$>
4053− (o .:? "relatedPlaylists") <*>
4054− (o .:? "googlePlusUserId"))
4044+ (o .:? "relatedPlaylists"))
40554045
40564046instance ToJSON ChannelContentDetails where
40574047 toJSON ChannelContentDetails'{..}
40584048 = object
40594049 (catMaybes
4060− [("relatedPlaylists" .=) <$> _ccdRelatedPlayLists,
4061− ("googlePlusUserId" .=) <$> _ccdGooglePlusUserId])
4050+ [("relatedPlaylists" .=) <$> _ccdRelatedPlayLists])
40624051
40634052-- | Details about a resource which was added to a channel.
40644053--
@@ -10091,22 +10080,42 @@ instance ToJSON CommentListResponse where
1009110080-- | Player to be used for a video playback.
1009210081--
1009310082-- /See:/ 'videoPlayer' smart constructor.
10094−newtype VideoPlayer = VideoPlayer'
10095− { _vpEmbedHTML :: Maybe Text
10083+data VideoPlayer = VideoPlayer'
10084+ { _vpEmbedHeight :: !(Maybe (Textual Int64))
10085+ , _vpEmbedWidth :: !(Maybe (Textual Int64))
10086+ , _vpEmbedHTML :: !(Maybe Text)
1009610087 } deriving (Eq,Show,Data,Typeable,Generic)
1009710088
1009810089-- | Creates a value of 'VideoPlayer' with the minimum fields required to make a request.
1009910090--
1010010091-- Use one of the following lenses to modify other fields as desired:
1010110092--
10093+-- * 'vpEmbedHeight'
10094+--
10095+-- * 'vpEmbedWidth'
10096+--
1010210097-- * 'vpEmbedHTML'
1010310098videoPlayer
1010410099 :: VideoPlayer
1010510100videoPlayer =
1010610101 VideoPlayer'
10107− { _vpEmbedHTML = Nothing
10102+ { _vpEmbedHeight = Nothing
10103+ , _vpEmbedWidth = Nothing
10104+ , _vpEmbedHTML = Nothing
1010810105 }
1010910106
10107+vpEmbedHeight :: Lens' VideoPlayer (Maybe Int64)
10108+vpEmbedHeight
10109+ = lens _vpEmbedHeight
10110+ (\ s a -> s{_vpEmbedHeight = a})
10111+ . mapping _Coerce
10112+
10113+-- | The embed width
10114+vpEmbedWidth :: Lens' VideoPlayer (Maybe Int64)
10115+vpEmbedWidth
10116+ = lens _vpEmbedWidth (\ s a -> s{_vpEmbedWidth = a})
10117+ . mapping _Coerce
10118+
1011010119-- | An
1011110120-- tag that embeds a player that will play the video.
1011210121vpEmbedHTML :: Lens' VideoPlayer (Maybe Text)
@@ -10116,12 +10125,18 @@ vpEmbedHTML
1011610125instance FromJSON VideoPlayer where
1011710126 parseJSON
1011810127 = withObject "VideoPlayer"
10119− (\ o -> VideoPlayer' <$> (o .:? "embedHtml"))
10128+ (\ o ->
10129+ VideoPlayer' <$>
10130+ (o .:? "embedHeight") <*> (o .:? "embedWidth") <*>
10131+ (o .:? "embedHtml"))
1012010132
1012110133instance ToJSON VideoPlayer where
1012210134 toJSON VideoPlayer'{..}
1012310135 = object
10124− (catMaybes [("embedHtml" .=) <$> _vpEmbedHTML])
10136+ (catMaybes
10137+ [("embedHeight" .=) <$> _vpEmbedHeight,
10138+ ("embedWidth" .=) <$> _vpEmbedWidth,
10139+ ("embedHtml" .=) <$> _vpEmbedHTML])
1012510140
1012610141-- | Describes a single promoted item id. It is a union of various possible
1012710142-- types.
@@ -10944,7 +10959,7 @@ data InvideoBranding = InvideoBranding'
1094410959 { _ibImageURL :: !(Maybe Text)
1094510960 , _ibTargetChannelId :: !(Maybe Text)
1094610961 , _ibTiming :: !(Maybe InvideoTiming)
10947− , _ibImageBytes :: !(Maybe Base64)
10962+ , _ibImageBytes :: !(Maybe Bytes)
1094810963 , _ibPosition :: !(Maybe InvideoPosition)
1094910964 } deriving (Eq,Show,Data,Typeable,Generic)
1095010965
@@ -10987,7 +11002,7 @@ ibTiming = lens _ibTiming (\ s a -> s{_ibTiming = a})
1098711002ibImageBytes :: Lens' InvideoBranding (Maybe ByteString)
1098811003ibImageBytes
1098911004 = lens _ibImageBytes (\ s a -> s{_ibImageBytes = a})
10990− . mapping _Base64
11005+ . mapping _Bytes
1099111006
1099211007ibPosition :: Lens' InvideoBranding (Maybe InvideoPosition)
1099311008ibPosition
@@ -11845,10 +11860,11 @@ instance ToJSON ChannelLocalization where
1184511860--
1184611861-- /See:/ 'playListItemContentDetails' smart constructor.
1184711862data PlayListItemContentDetails = PlayListItemContentDetails'
11848− { _plicdStartAt :: !(Maybe Text)
11849− , _plicdNote :: !(Maybe Text)
11850− , _plicdVideoId :: !(Maybe Text)
11851− , _plicdEndAt :: !(Maybe Text)
11863+ { _plicdStartAt :: !(Maybe Text)
11864+ , _plicdNote :: !(Maybe Text)
11865+ , _plicdVideoPublishedAt :: !(Maybe DateTime')
11866+ , _plicdVideoId :: !(Maybe Text)
11867+ , _plicdEndAt :: !(Maybe Text)
1185211868 } deriving (Eq,Show,Data,Typeable,Generic)
1185311869
1185411870-- | Creates a value of 'PlayListItemContentDetails' with the minimum fields required to make a request.
@@ -11859,6 +11875,8 @@ data PlayListItemContentDetails = PlayListItemContentDetails'
1185911875--
1186011876-- * 'plicdNote'
1186111877--
11878+-- * 'plicdVideoPublishedAt'
11879+--
1186211880-- * 'plicdVideoId'
1186311881--
1186411882-- * 'plicdEndAt'
@@ -11868,6 +11886,7 @@ playListItemContentDetails =
1186811886 PlayListItemContentDetails'
1186911887 { _plicdStartAt = Nothing
1187011888 , _plicdNote = Nothing
11889+ , _plicdVideoPublishedAt = Nothing
1187111890 , _plicdVideoId = Nothing
1187211891 , _plicdEndAt = Nothing
1187311892 }
@@ -11885,6 +11904,14 @@ plicdNote :: Lens' PlayListItemContentDetails (Maybe Text)
1188511904plicdNote
1188611905 = lens _plicdNote (\ s a -> s{_plicdNote = a})
1188711906
11907+-- | The date and time that the video was published to YouTube. The value is
11908+-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format.
11909+plicdVideoPublishedAt :: Lens' PlayListItemContentDetails (Maybe UTCTime)
11910+plicdVideoPublishedAt
11911+ = lens _plicdVideoPublishedAt
11912+ (\ s a -> s{_plicdVideoPublishedAt = a})
11913+ . mapping _DateTime
11914+
1188811915-- | The ID that YouTube uses to uniquely identify a video. To retrieve the
1188911916-- video resource, set the id query parameter to this value in your API
1189011917-- request.
@@ -11907,7 +11934,8 @@ instance FromJSON PlayListItemContentDetails where
1190711934 (\ o ->
1190811935 PlayListItemContentDetails' <$>
1190911936 (o .:? "startAt") <*> (o .:? "note") <*>
11910− (o .:? "videoId")
11937+ (o .:? "videoPublishedAt")
11938+ <*> (o .:? "videoId")
1191111939 <*> (o .:? "endAt"))
1191211940
1191311941instance ToJSON PlayListItemContentDetails where
@@ -11916,6 +11944,7 @@ instance ToJSON PlayListItemContentDetails where
1191611944 (catMaybes
1191711945 [("startAt" .=) <$> _plicdStartAt,
1191811946 ("note" .=) <$> _plicdNote,
11947+ ("videoPublishedAt" .=) <$> _plicdVideoPublishedAt,
1191911948 ("videoId" .=) <$> _plicdVideoId,
1192011949 ("endAt" .=) <$> _plicdEndAt])
1192111950
@@ -13000,22 +13029,21 @@ instance ToJSON VideoRating where
1300013029--
1300113030-- /See:/ 'commentSnippet' smart constructor.
1300213031data CommentSnippet = CommentSnippet'
13003− { _cViewerRating :: !(Maybe CommentSnippetViewerRating)
13004− , _cPublishedAt :: !(Maybe DateTime')
13005− , _cAuthorChannelURL :: !(Maybe Text)
13006− , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus)
13007− , _cLikeCount :: !(Maybe (Textual Word32))
13008− , _cChannelId :: !(Maybe Text)
13009− , _cTextOriginal :: !(Maybe Text)
13010− , _cVideoId :: !(Maybe Text)
13011− , _cTextDisplay :: !(Maybe Text)
13012− , _cAuthorProFileImageURL :: !(Maybe Text)
13013− , _cAuthorDisplayName :: !(Maybe Text)
13014− , _cUpdatedAt :: !(Maybe DateTime')
13015− , _cAuthorChannelId :: !(Maybe JSONValue)
13016− , _cCanRate :: !(Maybe Bool)
13017− , _cAuthorGoogleplusProFileURL :: !(Maybe Text)
13018− , _cParentId :: !(Maybe Text)
13032+ { _cViewerRating :: !(Maybe CommentSnippetViewerRating)
13033+ , _cPublishedAt :: !(Maybe DateTime')
13034+ , _cAuthorChannelURL :: !(Maybe Text)
13035+ , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus)
13036+ , _cLikeCount :: !(Maybe (Textual Word32))
13037+ , _cChannelId :: !(Maybe Text)
13038+ , _cTextOriginal :: !(Maybe Text)
13039+ , _cVideoId :: !(Maybe Text)
13040+ , _cTextDisplay :: !(Maybe Text)
13041+ , _cAuthorProFileImageURL :: !(Maybe Text)
13042+ , _cAuthorDisplayName :: !(Maybe Text)
13043+ , _cUpdatedAt :: !(Maybe DateTime')
13044+ , _cAuthorChannelId :: !(Maybe JSONValue)
13045+ , _cCanRate :: !(Maybe Bool)
13046+ , _cParentId :: !(Maybe Text)
1301913047 } deriving (Eq,Show,Data,Typeable,Generic)
1302013048
1302113049-- | Creates a value of 'CommentSnippet' with the minimum fields required to make a request.
@@ -13050,8 +13078,6 @@ data CommentSnippet = CommentSnippet'
1305013078--
1305113079-- * 'cCanRate'
1305213080--
13053−-- * 'cAuthorGoogleplusProFileURL'
13054−--
1305513081-- * 'cParentId'
1305613082commentSnippet
1305713083 :: CommentSnippet
@@ -13071,7 +13097,6 @@ commentSnippet =
1307113097 , _cUpdatedAt = Nothing
1307213098 , _cAuthorChannelId = Nothing
1307313099 , _cCanRate = Nothing
13074− , _cAuthorGoogleplusProFileURL = Nothing
1307513100 , _cParentId = Nothing
1307613101 }
1307713102
@@ -13165,12 +13190,6 @@ cAuthorChannelId
1316513190cCanRate :: Lens' CommentSnippet (Maybe Bool)
1316613191cCanRate = lens _cCanRate (\ s a -> s{_cCanRate = a})
1316713192
13168−-- | Link to the author\'s Google+ profile, if any.
13169−cAuthorGoogleplusProFileURL :: Lens' CommentSnippet (Maybe Text)
13170−cAuthorGoogleplusProFileURL
13171− = lens _cAuthorGoogleplusProFileURL
13172− (\ s a -> s{_cAuthorGoogleplusProFileURL = a})
13173−
1317413193-- | The unique id of the parent comment, only set for replies.
1317513194cParentId :: Lens' CommentSnippet (Maybe Text)
1317613195cParentId
@@ -13194,7 +13213,6 @@ instance FromJSON CommentSnippet where
1319413213 <*> (o .:? "updatedAt")
1319513214 <*> (o .:? "authorChannelId")
1319613215 <*> (o .:? "canRate")
13197− <*> (o .:? "authorGoogleplusProfileUrl")
1319813216 <*> (o .:? "parentId"))
1319913217
1320013218instance ToJSON CommentSnippet where
@@ -13216,8 +13234,6 @@ instance ToJSON CommentSnippet where
1321613234 ("updatedAt" .=) <$> _cUpdatedAt,
1321713235 ("authorChannelId" .=) <$> _cAuthorChannelId,
1321813236 ("canRate" .=) <$> _cCanRate,
13219− ("authorGoogleplusProfileUrl" .=) <$>
13220− _cAuthorGoogleplusProFileURL,
1322113237 ("parentId" .=) <$> _cParentId])
1322213238
1322313239-- | Brief description of the live stream status.
@@ -13555,7 +13571,7 @@ instance ToJSON VideoProjectDetails where
1355513571 = object (catMaybes [("tags" .=) <$> _vpdTags])
1355613572
1355713573-- | Ratings schemes. The country-specific ratings are mostly for movies and
13558−-- shows. NEXT_ID: 68
13574+-- shows. NEXT_ID: 69
1355913575--
1356013576-- /See:/ 'contentRating' smart constructor.
1356113577data ContentRating = ContentRating'
@@ -13581,6 +13597,7 @@ data ContentRating = ContentRating'
1358113597 , _crSmsaRating :: !(Maybe ContentRatingSmsaRating)
1358213598 , _crChvrsRating :: !(Maybe ContentRatingChvrsRating)
1358313599 , _crIncaaRating :: !(Maybe ContentRatingIncaaRating)
13600+ , _crMcstRating :: !(Maybe ContentRatingMcstRating)
1358413601 , _crNfrcRating :: !(Maybe ContentRatingNfrcRating)
1358513602 , _crCsaRating :: !(Maybe ContentRatingCsaRating)
1358613603 , _crMocRating :: !(Maybe ContentRatingMocRating)
@@ -13676,6 +13693,8 @@ data ContentRating = ContentRating'
1367613693--
1367713694-- * 'crIncaaRating'
1367813695--
13696+-- * 'crMcstRating'
13697+--
1367913698-- * 'crNfrcRating'
1368013699--
1368113700-- * 'crCsaRating'
@@ -13791,6 +13810,7 @@ contentRating =
1379113810 , _crSmsaRating = Nothing
1379213811 , _crChvrsRating = Nothing
1379313812 , _crIncaaRating = Nothing
13813+ , _crMcstRating = Nothing
1379413814 , _crNfrcRating = Nothing
1379513815 , _crCsaRating = Nothing
1379613816 , _crMocRating = Nothing
@@ -13978,6 +13998,11 @@ crIncaaRating
1397813998 = lens _crIncaaRating
1397913999 (\ s a -> s{_crIncaaRating = a})
1398014000
14001+-- | The video\'s rating system for Vietnam - MCST
14002+crMcstRating :: Lens' ContentRating (Maybe ContentRatingMcstRating)
14003+crMcstRating
14004+ = lens _crMcstRating (\ s a -> s{_crMcstRating = a})
14005+
1398114006-- | The video\'s rating from the Bulgarian National Film Center.
1398214007crNfrcRating :: Lens' ContentRating (Maybe ContentRatingNfrcRating)
1398314008crNfrcRating
@@ -14275,6 +14300,7 @@ instance FromJSON ContentRating where
1427514300 <*> (o .:? "smsaRating")
1427614301 <*> (o .:? "chvrsRating")
1427714302 <*> (o .:? "incaaRating")
14303+ <*> (o .:? "mcstRating")
1427814304 <*> (o .:? "nfrcRating")
1427914305 <*> (o .:? "csaRating")
1428014306 <*> (o .:? "mocRating")
@@ -14347,6 +14373,7 @@ instance ToJSON ContentRating where
1434714373 ("smsaRating" .=) <$> _crSmsaRating,
1434814374 ("chvrsRating" .=) <$> _crChvrsRating,
1434914375 ("incaaRating" .=) <$> _crIncaaRating,
14376+ ("mcstRating" .=) <$> _crMcstRating,
1435014377 ("nfrcRating" .=) <$> _crNfrcRating,
1435114378 ("csaRating" .=) <$> _crCsaRating,
1435214379 ("mocRating" .=) <$> _crMocRating,