Hello community, here is the log from the commit of package ghc-gogol-youtube for openSUSE:Factory checked in at 2017-08-31 20:55:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-youtube (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-youtube.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-youtube" Thu Aug 31 20:55:26 2017 rev:2 rq:513355 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-youtube/ghc-gogol-youtube.changes 2017-05-10 20:44:41.224209896 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-youtube.new/ghc-gogol-youtube.changes 2017-08-31 20:55:28.431759342 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:05:48 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-youtube-0.1.1.tar.gz New: ---- gogol-youtube-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-youtube.spec ++++++ --- /var/tmp/diff_new_pack.K0EC6m/_old 2017-08-31 20:55:29.411621669 +0200 +++ /var/tmp/diff_new_pack.K0EC6m/_new 2017-08-31 20:55:29.411621669 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-youtube Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google YouTube Data SDK License: MPL-2.0 ++++++ gogol-youtube-0.1.1.tar.gz -> gogol-youtube-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/README.md new/gogol-youtube-0.3.0/README.md --- old/gogol-youtube-0.1.1/README.md 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/README.md 2017-07-12 16:51:30.000000000 +0200 @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.3.0` ## Description diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , PlayListItemsDelete -- * Request Lenses + , plidOnBehalfOfContentOwner , plidId ) where @@ -46,28 +47,48 @@ "v3" :> "playlistItems" :> QueryParam "id" Text :> - QueryParam "alt" AltJSON :> Delete '[JSON] () + QueryParam "onBehalfOfContentOwner" Text :> + QueryParam "alt" AltJSON :> Delete '[JSON] () -- | Deletes a playlist item. -- -- /See:/ 'playListItemsDelete' smart constructor. -newtype PlayListItemsDelete = PlayListItemsDelete' - { _plidId :: Text +data PlayListItemsDelete = PlayListItemsDelete' + { _plidOnBehalfOfContentOwner :: !(Maybe Text) + , _plidId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PlayListItemsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'plidOnBehalfOfContentOwner' +-- -- * 'plidId' playListItemsDelete :: Text -- ^ 'plidId' -> PlayListItemsDelete playListItemsDelete pPlidId_ = PlayListItemsDelete' - { _plidId = pPlidId_ + { _plidOnBehalfOfContentOwner = Nothing + , _plidId = pPlidId_ } +-- | Note: This parameter is intended exclusively for YouTube content +-- partners. The onBehalfOfContentOwner parameter indicates that the +-- request\'s authorization credentials identify a YouTube CMS user who is +-- acting on behalf of the content owner specified in the parameter value. +-- This parameter is intended for YouTube content partners that own and +-- manage many different YouTube channels. It allows content owners to +-- authenticate once and get access to all their video and channel data, +-- without having to provide authentication credentials for each individual +-- channel. The CMS account that the user authenticates with must be linked +-- to the specified YouTube content owner. +plidOnBehalfOfContentOwner :: Lens' PlayListItemsDelete (Maybe Text) +plidOnBehalfOfContentOwner + = lens _plidOnBehalfOfContentOwner + (\ s a -> s{_plidOnBehalfOfContentOwner = a}) + -- | The id parameter specifies the YouTube playlist item ID for the playlist -- item that is being deleted. In a playlistItem resource, the id property -- specifies the playlist item\'s ID. @@ -81,7 +102,9 @@ "https://www.googleapis.com/auth/youtube.force-ssl", "https://www.googleapis.com/auth/youtubepartner"] requestClient PlayListItemsDelete'{..} - = go (Just _plidId) (Just AltJSON) youTubeService + = go (Just _plidId) _plidOnBehalfOfContentOwner + (Just AltJSON) + youTubeService where go = buildClient (Proxy :: Proxy PlayListItemsDeleteResource) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs 2017-07-12 16:51:30.000000000 +0200 @@ -36,6 +36,7 @@ -- * Request Lenses , pliuPart , pliuPayload + , pliuOnBehalfOfContentOwner ) where import Network.Google.Prelude @@ -48,17 +49,19 @@ "v3" :> "playlistItems" :> QueryParam "part" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] PlayListItem :> - Put '[JSON] PlayListItem + QueryParam "onBehalfOfContentOwner" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] PlayListItem :> + Put '[JSON] PlayListItem -- | Modifies a playlist item. For example, you could update the item\'s -- position in the playlist. -- -- /See:/ 'playListItemsUpdate' smart constructor. data PlayListItemsUpdate = PlayListItemsUpdate' - { _pliuPart :: !Text - , _pliuPayload :: !PlayListItem + { _pliuPart :: !Text + , _pliuPayload :: !PlayListItem + , _pliuOnBehalfOfContentOwner :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PlayListItemsUpdate' with the minimum fields required to make a request. @@ -68,6 +71,8 @@ -- * 'pliuPart' -- -- * 'pliuPayload' +-- +-- * 'pliuOnBehalfOfContentOwner' playListItemsUpdate :: Text -- ^ 'pliuPart' -> PlayListItem -- ^ 'pliuPayload' @@ -76,6 +81,7 @@ PlayListItemsUpdate' { _pliuPart = pPliuPart_ , _pliuPayload = pPliuPayload_ + , _pliuOnBehalfOfContentOwner = Nothing } -- | The part parameter serves two purposes in this operation. It identifies @@ -99,6 +105,21 @@ pliuPayload = lens _pliuPayload (\ s a -> s{_pliuPayload = a}) +-- | Note: This parameter is intended exclusively for YouTube content +-- partners. The onBehalfOfContentOwner parameter indicates that the +-- request\'s authorization credentials identify a YouTube CMS user who is +-- acting on behalf of the content owner specified in the parameter value. +-- This parameter is intended for YouTube content partners that own and +-- manage many different YouTube channels. It allows content owners to +-- authenticate once and get access to all their video and channel data, +-- without having to provide authentication credentials for each individual +-- channel. The CMS account that the user authenticates with must be linked +-- to the specified YouTube content owner. +pliuOnBehalfOfContentOwner :: Lens' PlayListItemsUpdate (Maybe Text) +pliuOnBehalfOfContentOwner + = lens _pliuOnBehalfOfContentOwner + (\ s a -> s{_pliuOnBehalfOfContentOwner = a}) + instance GoogleRequest PlayListItemsUpdate where type Rs PlayListItemsUpdate = PlayListItem type Scopes PlayListItemsUpdate = @@ -106,7 +127,9 @@ "https://www.googleapis.com/auth/youtube.force-ssl", "https://www.googleapis.com/auth/youtubepartner"] requestClient PlayListItemsUpdate'{..} - = go (Just _pliuPart) (Just AltJSON) _pliuPayload + = go (Just _pliuPart) _pliuOnBehalfOfContentOwner + (Just AltJSON) + _pliuPayload youTubeService where go = buildClient diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/Videos/List.hs new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/Videos/List.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/Videos/List.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/Videos/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -38,9 +38,11 @@ , vlRegionCode , vlLocale , vlMyRating + , vlMaxHeight , vlHl , vlOnBehalfOfContentOwner , vlVideoCategoryId + , vlMaxWidth , vlId , vlPageToken , vlMaxResults @@ -60,14 +62,16 @@ QueryParam "regionCode" Text :> QueryParam "locale" Text :> QueryParam "myRating" VideosListMyRating :> - QueryParam "hl" Text :> - QueryParam "onBehalfOfContentOwner" Text :> - QueryParam "videoCategoryId" Text :> - QueryParam "id" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] VideoListResponse + QueryParam "maxHeight" (Textual Word32) :> + QueryParam "hl" Text :> + QueryParam "onBehalfOfContentOwner" Text :> + QueryParam "videoCategoryId" Text :> + QueryParam "maxWidth" (Textual Word32) :> + QueryParam "id" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] VideoListResponse -- | Returns a list of videos that match the API request parameters. -- @@ -78,9 +82,11 @@ , _vlRegionCode :: !(Maybe Text) , _vlLocale :: !(Maybe Text) , _vlMyRating :: !(Maybe VideosListMyRating) + , _vlMaxHeight :: !(Maybe (Textual Word32)) , _vlHl :: !(Maybe Text) , _vlOnBehalfOfContentOwner :: !(Maybe Text) , _vlVideoCategoryId :: !Text + , _vlMaxWidth :: !(Maybe (Textual Word32)) , _vlId :: !(Maybe Text) , _vlPageToken :: !(Maybe Text) , _vlMaxResults :: !(Textual Word32) @@ -100,12 +106,16 @@ -- -- * 'vlMyRating' -- +-- * 'vlMaxHeight' +-- -- * 'vlHl' -- -- * 'vlOnBehalfOfContentOwner' -- -- * 'vlVideoCategoryId' -- +-- * 'vlMaxWidth' +-- -- * 'vlId' -- -- * 'vlPageToken' @@ -121,9 +131,11 @@ , _vlRegionCode = Nothing , _vlLocale = Nothing , _vlMyRating = Nothing + , _vlMaxHeight = Nothing , _vlHl = Nothing , _vlOnBehalfOfContentOwner = Nothing , _vlVideoCategoryId = "0" + , _vlMaxWidth = Nothing , _vlId = Nothing , _vlPageToken = Nothing , _vlMaxResults = 5 @@ -161,6 +173,14 @@ vlMyRating = lens _vlMyRating (\ s a -> s{_vlMyRating = a}) +-- | The maxHeight parameter specifies a maximum height of the embedded +-- player. If maxWidth is provided, maxHeight may not be reached in order +-- to not violate the width request. +vlMaxHeight :: Lens' VideosList (Maybe Word32) +vlMaxHeight + = lens _vlMaxHeight (\ s a -> s{_vlMaxHeight = a}) . + mapping _Coerce + -- | The hl parameter instructs the API to retrieve localized resource -- metadata for a specific application language that the YouTube website -- supports. The parameter value must be a language code included in the @@ -196,6 +216,14 @@ = lens _vlVideoCategoryId (\ s a -> s{_vlVideoCategoryId = a}) +-- | The maxWidth parameter specifies a maximum width of the embedded player. +-- If maxHeight is provided, maxWidth may not be reached in order to not +-- violate the height request. +vlMaxWidth :: Lens' VideosList (Maybe Word32) +vlMaxWidth + = lens _vlMaxWidth (\ s a -> s{_vlMaxWidth = a}) . + mapping _Coerce + -- | The id parameter specifies a comma-separated list of the YouTube video -- ID(s) for the resource(s) that are being retrieved. In a video resource, -- the id property specifies the video\'s ID. @@ -206,16 +234,16 @@ -- that should be returned. In an API response, the nextPageToken and -- prevPageToken properties identify other pages that could be retrieved. -- Note: This parameter is supported for use in conjunction with the --- myRating parameter, but it is not supported for use in conjunction with --- the id parameter. +-- myRating and chart parameters, but it is not supported for use in +-- conjunction with the id parameter. vlPageToken :: Lens' VideosList (Maybe Text) vlPageToken = lens _vlPageToken (\ s a -> s{_vlPageToken = a}) -- | The maxResults parameter specifies the maximum number of items that -- should be returned in the result set. Note: This parameter is supported --- for use in conjunction with the myRating parameter, but it is not --- supported for use in conjunction with the id parameter. +-- for use in conjunction with the myRating and chart parameters, but it is +-- not supported for use in conjunction with the id parameter. vlMaxResults :: Lens' VideosList Word32 vlMaxResults = lens _vlMaxResults (\ s a -> s{_vlMaxResults = a}) @@ -231,9 +259,11 @@ requestClient VideosList'{..} = go (Just _vlPart) _vlChart _vlRegionCode _vlLocale _vlMyRating + _vlMaxHeight _vlHl _vlOnBehalfOfContentOwner (Just _vlVideoCategoryId) + _vlMaxWidth _vlId _vlPageToken (Just _vlMaxResults) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Product.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Product.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Product.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -2469,6 +2469,7 @@ -- /See:/ 'videoContentDetails' smart constructor. data VideoContentDetails = VideoContentDetails' { _vcdCountryRestriction :: !(Maybe AccessPolicy) + , _vcdHasCustomThumbnail :: !(Maybe Bool) , _vcdDefinition :: !(Maybe VideoContentDetailsDefinition) , _vcdDimension :: !(Maybe Text) , _vcdCaption :: !(Maybe VideoContentDetailsCaption) @@ -2485,6 +2486,8 @@ -- -- * 'vcdCountryRestriction' -- +-- * 'vcdHasCustomThumbnail' +-- -- * 'vcdDefinition' -- -- * 'vcdDimension' @@ -2505,6 +2508,7 @@ videoContentDetails = VideoContentDetails' { _vcdCountryRestriction = Nothing + , _vcdHasCustomThumbnail = Nothing , _vcdDefinition = Nothing , _vcdDimension = Nothing , _vcdCaption = Nothing @@ -2522,6 +2526,14 @@ = lens _vcdCountryRestriction (\ s a -> s{_vcdCountryRestriction = a}) +-- | Indicates whether the video uploader has provided a custom thumbnail +-- image for the video. This property is only visible to the video +-- uploader. +vcdHasCustomThumbnail :: Lens' VideoContentDetails (Maybe Bool) +vcdHasCustomThumbnail + = lens _vcdHasCustomThumbnail + (\ s a -> s{_vcdHasCustomThumbnail = a}) + -- | The value of definition indicates whether the video is available in high -- definition or only in standard definition. vcdDefinition :: Lens' VideoContentDetails (Maybe VideoContentDetailsDefinition) @@ -2585,7 +2597,9 @@ = withObject "VideoContentDetails" (\ o -> VideoContentDetails' <$> - (o .:? "countryRestriction") <*> (o .:? "definition") + (o .:? "countryRestriction") <*> + (o .:? "hasCustomThumbnail") + <*> (o .:? "definition") <*> (o .:? "dimension") <*> (o .:? "caption") <*> (o .:? "regionRestriction") @@ -2600,6 +2614,7 @@ (catMaybes [("countryRestriction" .=) <$> _vcdCountryRestriction, + ("hasCustomThumbnail" .=) <$> _vcdHasCustomThumbnail, ("definition" .=) <$> _vcdDefinition, ("dimension" .=) <$> _vcdDimension, ("caption" .=) <$> _vcdCaption, @@ -3645,16 +3660,15 @@ -- -- /See:/ 'videoFileDetails' smart constructor. data VideoFileDetails = VideoFileDetails' - { _vfdBitrateBps :: !(Maybe (Textual Word64)) - , _vfdCreationTime :: !(Maybe Text) - , _vfdRecordingLocation :: !(Maybe GeoPoint) - , _vfdDurationMs :: !(Maybe (Textual Word64)) - , _vfdFileSize :: !(Maybe (Textual Word64)) - , _vfdFileType :: !(Maybe VideoFileDetailsFileType) - , _vfdContainer :: !(Maybe Text) - , _vfdVideoStreams :: !(Maybe [VideoFileDetailsVideoStream]) - , _vfdAudioStreams :: !(Maybe [VideoFileDetailsAudioStream]) - , _vfdFileName :: !(Maybe Text) + { _vfdBitrateBps :: !(Maybe (Textual Word64)) + , _vfdCreationTime :: !(Maybe Text) + , _vfdDurationMs :: !(Maybe (Textual Word64)) + , _vfdFileSize :: !(Maybe (Textual Word64)) + , _vfdFileType :: !(Maybe VideoFileDetailsFileType) + , _vfdContainer :: !(Maybe Text) + , _vfdVideoStreams :: !(Maybe [VideoFileDetailsVideoStream]) + , _vfdAudioStreams :: !(Maybe [VideoFileDetailsAudioStream]) + , _vfdFileName :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'VideoFileDetails' with the minimum fields required to make a request. @@ -3665,8 +3679,6 @@ -- -- * 'vfdCreationTime' -- --- * 'vfdRecordingLocation' --- -- * 'vfdDurationMs' -- -- * 'vfdFileSize' @@ -3686,7 +3698,6 @@ VideoFileDetails' { _vfdBitrateBps = Nothing , _vfdCreationTime = Nothing - , _vfdRecordingLocation = Nothing , _vfdDurationMs = Nothing , _vfdFileSize = Nothing , _vfdFileType = Nothing @@ -3713,13 +3724,6 @@ = lens _vfdCreationTime (\ s a -> s{_vfdCreationTime = a}) --- | Geographic coordinates that identify the place where the uploaded video --- was recorded. Coordinates are defined using WGS 84. -vfdRecordingLocation :: Lens' VideoFileDetails (Maybe GeoPoint) -vfdRecordingLocation - = lens _vfdRecordingLocation - (\ s a -> s{_vfdRecordingLocation = a}) - -- | The length of the uploaded video in milliseconds. vfdDurationMs :: Lens' VideoFileDetails (Maybe Word64) vfdDurationMs @@ -3776,8 +3780,7 @@ (\ o -> VideoFileDetails' <$> (o .:? "bitrateBps") <*> (o .:? "creationTime") <*> - (o .:? "recordingLocation") - <*> (o .:? "durationMs") + (o .:? "durationMs") <*> (o .:? "fileSize") <*> (o .:? "fileType") <*> (o .:? "container") @@ -3791,7 +3794,6 @@ (catMaybes [("bitrateBps" .=) <$> _vfdBitrateBps, ("creationTime" .=) <$> _vfdCreationTime, - ("recordingLocation" .=) <$> _vfdRecordingLocation, ("durationMs" .=) <$> _vfdDurationMs, ("fileSize" .=) <$> _vfdFileSize, ("fileType" .=) <$> _vfdFileType, @@ -4013,9 +4015,8 @@ -- | Details about the content of a channel. -- -- /See:/ 'channelContentDetails' smart constructor. -data ChannelContentDetails = ChannelContentDetails' - { _ccdRelatedPlayLists :: !(Maybe ChannelContentDetailsRelatedPlayLists) - , _ccdGooglePlusUserId :: !(Maybe Text) +newtype ChannelContentDetails = ChannelContentDetails' + { _ccdRelatedPlayLists :: Maybe ChannelContentDetailsRelatedPlayLists } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ChannelContentDetails' with the minimum fields required to make a request. @@ -4023,14 +4024,11 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'ccdRelatedPlayLists' --- --- * 'ccdGooglePlusUserId' channelContentDetails :: ChannelContentDetails channelContentDetails = ChannelContentDetails' { _ccdRelatedPlayLists = Nothing - , _ccdGooglePlusUserId = Nothing } ccdRelatedPlayLists :: Lens' ChannelContentDetails (Maybe ChannelContentDetailsRelatedPlayLists) @@ -4038,27 +4036,18 @@ = lens _ccdRelatedPlayLists (\ s a -> s{_ccdRelatedPlayLists = a}) --- | The googlePlusUserId object identifies the Google+ profile ID associated --- with this channel. -ccdGooglePlusUserId :: Lens' ChannelContentDetails (Maybe Text) -ccdGooglePlusUserId - = lens _ccdGooglePlusUserId - (\ s a -> s{_ccdGooglePlusUserId = a}) - instance FromJSON ChannelContentDetails where parseJSON = withObject "ChannelContentDetails" (\ o -> ChannelContentDetails' <$> - (o .:? "relatedPlaylists") <*> - (o .:? "googlePlusUserId")) + (o .:? "relatedPlaylists")) instance ToJSON ChannelContentDetails where toJSON ChannelContentDetails'{..} = object (catMaybes - [("relatedPlaylists" .=) <$> _ccdRelatedPlayLists, - ("googlePlusUserId" .=) <$> _ccdGooglePlusUserId]) + [("relatedPlaylists" .=) <$> _ccdRelatedPlayLists]) -- | Details about a resource which was added to a channel. -- @@ -10091,22 +10080,42 @@ -- | Player to be used for a video playback. -- -- /See:/ 'videoPlayer' smart constructor. -newtype VideoPlayer = VideoPlayer' - { _vpEmbedHTML :: Maybe Text +data VideoPlayer = VideoPlayer' + { _vpEmbedHeight :: !(Maybe (Textual Int64)) + , _vpEmbedWidth :: !(Maybe (Textual Int64)) + , _vpEmbedHTML :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'VideoPlayer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'vpEmbedHeight' +-- +-- * 'vpEmbedWidth' +-- -- * 'vpEmbedHTML' videoPlayer :: VideoPlayer videoPlayer = VideoPlayer' - { _vpEmbedHTML = Nothing + { _vpEmbedHeight = Nothing + , _vpEmbedWidth = Nothing + , _vpEmbedHTML = Nothing } +vpEmbedHeight :: Lens' VideoPlayer (Maybe Int64) +vpEmbedHeight + = lens _vpEmbedHeight + (\ s a -> s{_vpEmbedHeight = a}) + . mapping _Coerce + +-- | The embed width +vpEmbedWidth :: Lens' VideoPlayer (Maybe Int64) +vpEmbedWidth + = lens _vpEmbedWidth (\ s a -> s{_vpEmbedWidth = a}) + . mapping _Coerce + -- | An -- tag that embeds a player that will play the video. vpEmbedHTML :: Lens' VideoPlayer (Maybe Text) @@ -10116,12 +10125,18 @@ instance FromJSON VideoPlayer where parseJSON = withObject "VideoPlayer" - (\ o -> VideoPlayer' <$> (o .:? "embedHtml")) + (\ o -> + VideoPlayer' <$> + (o .:? "embedHeight") <*> (o .:? "embedWidth") <*> + (o .:? "embedHtml")) instance ToJSON VideoPlayer where toJSON VideoPlayer'{..} = object - (catMaybes [("embedHtml" .=) <$> _vpEmbedHTML]) + (catMaybes + [("embedHeight" .=) <$> _vpEmbedHeight, + ("embedWidth" .=) <$> _vpEmbedWidth, + ("embedHtml" .=) <$> _vpEmbedHTML]) -- | Describes a single promoted item id. It is a union of various possible -- types. @@ -10944,7 +10959,7 @@ { _ibImageURL :: !(Maybe Text) , _ibTargetChannelId :: !(Maybe Text) , _ibTiming :: !(Maybe InvideoTiming) - , _ibImageBytes :: !(Maybe Base64) + , _ibImageBytes :: !(Maybe Bytes) , _ibPosition :: !(Maybe InvideoPosition) } deriving (Eq,Show,Data,Typeable,Generic) @@ -10987,7 +11002,7 @@ ibImageBytes :: Lens' InvideoBranding (Maybe ByteString) ibImageBytes = lens _ibImageBytes (\ s a -> s{_ibImageBytes = a}) - . mapping _Base64 + . mapping _Bytes ibPosition :: Lens' InvideoBranding (Maybe InvideoPosition) ibPosition @@ -11845,10 +11860,11 @@ -- -- /See:/ 'playListItemContentDetails' smart constructor. data PlayListItemContentDetails = PlayListItemContentDetails' - { _plicdStartAt :: !(Maybe Text) - , _plicdNote :: !(Maybe Text) - , _plicdVideoId :: !(Maybe Text) - , _plicdEndAt :: !(Maybe Text) + { _plicdStartAt :: !(Maybe Text) + , _plicdNote :: !(Maybe Text) + , _plicdVideoPublishedAt :: !(Maybe DateTime') + , _plicdVideoId :: !(Maybe Text) + , _plicdEndAt :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PlayListItemContentDetails' with the minimum fields required to make a request. @@ -11859,6 +11875,8 @@ -- -- * 'plicdNote' -- +-- * 'plicdVideoPublishedAt' +-- -- * 'plicdVideoId' -- -- * 'plicdEndAt' @@ -11868,6 +11886,7 @@ PlayListItemContentDetails' { _plicdStartAt = Nothing , _plicdNote = Nothing + , _plicdVideoPublishedAt = Nothing , _plicdVideoId = Nothing , _plicdEndAt = Nothing } @@ -11885,6 +11904,14 @@ plicdNote = lens _plicdNote (\ s a -> s{_plicdNote = a}) +-- | The date and time that the video was published to YouTube. The value is +-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format. +plicdVideoPublishedAt :: Lens' PlayListItemContentDetails (Maybe UTCTime) +plicdVideoPublishedAt + = lens _plicdVideoPublishedAt + (\ s a -> s{_plicdVideoPublishedAt = a}) + . mapping _DateTime + -- | The ID that YouTube uses to uniquely identify a video. To retrieve the -- video resource, set the id query parameter to this value in your API -- request. @@ -11907,7 +11934,8 @@ (\ o -> PlayListItemContentDetails' <$> (o .:? "startAt") <*> (o .:? "note") <*> - (o .:? "videoId") + (o .:? "videoPublishedAt") + <*> (o .:? "videoId") <*> (o .:? "endAt")) instance ToJSON PlayListItemContentDetails where @@ -11916,6 +11944,7 @@ (catMaybes [("startAt" .=) <$> _plicdStartAt, ("note" .=) <$> _plicdNote, + ("videoPublishedAt" .=) <$> _plicdVideoPublishedAt, ("videoId" .=) <$> _plicdVideoId, ("endAt" .=) <$> _plicdEndAt]) @@ -13000,22 +13029,21 @@ -- -- /See:/ 'commentSnippet' smart constructor. data CommentSnippet = CommentSnippet' - { _cViewerRating :: !(Maybe CommentSnippetViewerRating) - , _cPublishedAt :: !(Maybe DateTime') - , _cAuthorChannelURL :: !(Maybe Text) - , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus) - , _cLikeCount :: !(Maybe (Textual Word32)) - , _cChannelId :: !(Maybe Text) - , _cTextOriginal :: !(Maybe Text) - , _cVideoId :: !(Maybe Text) - , _cTextDisplay :: !(Maybe Text) - , _cAuthorProFileImageURL :: !(Maybe Text) - , _cAuthorDisplayName :: !(Maybe Text) - , _cUpdatedAt :: !(Maybe DateTime') - , _cAuthorChannelId :: !(Maybe JSONValue) - , _cCanRate :: !(Maybe Bool) - , _cAuthorGoogleplusProFileURL :: !(Maybe Text) - , _cParentId :: !(Maybe Text) + { _cViewerRating :: !(Maybe CommentSnippetViewerRating) + , _cPublishedAt :: !(Maybe DateTime') + , _cAuthorChannelURL :: !(Maybe Text) + , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus) + , _cLikeCount :: !(Maybe (Textual Word32)) + , _cChannelId :: !(Maybe Text) + , _cTextOriginal :: !(Maybe Text) + , _cVideoId :: !(Maybe Text) + , _cTextDisplay :: !(Maybe Text) + , _cAuthorProFileImageURL :: !(Maybe Text) + , _cAuthorDisplayName :: !(Maybe Text) + , _cUpdatedAt :: !(Maybe DateTime') + , _cAuthorChannelId :: !(Maybe JSONValue) + , _cCanRate :: !(Maybe Bool) + , _cParentId :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'CommentSnippet' with the minimum fields required to make a request. @@ -13050,8 +13078,6 @@ -- -- * 'cCanRate' -- --- * 'cAuthorGoogleplusProFileURL' --- -- * 'cParentId' commentSnippet :: CommentSnippet @@ -13071,7 +13097,6 @@ , _cUpdatedAt = Nothing , _cAuthorChannelId = Nothing , _cCanRate = Nothing - , _cAuthorGoogleplusProFileURL = Nothing , _cParentId = Nothing } @@ -13165,12 +13190,6 @@ cCanRate :: Lens' CommentSnippet (Maybe Bool) cCanRate = lens _cCanRate (\ s a -> s{_cCanRate = a}) --- | Link to the author\'s Google+ profile, if any. -cAuthorGoogleplusProFileURL :: Lens' CommentSnippet (Maybe Text) -cAuthorGoogleplusProFileURL - = lens _cAuthorGoogleplusProFileURL - (\ s a -> s{_cAuthorGoogleplusProFileURL = a}) - -- | The unique id of the parent comment, only set for replies. cParentId :: Lens' CommentSnippet (Maybe Text) cParentId @@ -13194,7 +13213,6 @@ <*> (o .:? "updatedAt") <*> (o .:? "authorChannelId") <*> (o .:? "canRate") - <*> (o .:? "authorGoogleplusProfileUrl") <*> (o .:? "parentId")) instance ToJSON CommentSnippet where @@ -13216,8 +13234,6 @@ ("updatedAt" .=) <$> _cUpdatedAt, ("authorChannelId" .=) <$> _cAuthorChannelId, ("canRate" .=) <$> _cCanRate, - ("authorGoogleplusProfileUrl" .=) <$> - _cAuthorGoogleplusProFileURL, ("parentId" .=) <$> _cParentId]) -- | Brief description of the live stream status. @@ -13555,7 +13571,7 @@ = object (catMaybes [("tags" .=) <$> _vpdTags]) -- | Ratings schemes. The country-specific ratings are mostly for movies and --- shows. NEXT_ID: 68 +-- shows. NEXT_ID: 69 -- -- /See:/ 'contentRating' smart constructor. data ContentRating = ContentRating' @@ -13581,6 +13597,7 @@ , _crSmsaRating :: !(Maybe ContentRatingSmsaRating) , _crChvrsRating :: !(Maybe ContentRatingChvrsRating) , _crIncaaRating :: !(Maybe ContentRatingIncaaRating) + , _crMcstRating :: !(Maybe ContentRatingMcstRating) , _crNfrcRating :: !(Maybe ContentRatingNfrcRating) , _crCsaRating :: !(Maybe ContentRatingCsaRating) , _crMocRating :: !(Maybe ContentRatingMocRating) @@ -13676,6 +13693,8 @@ -- -- * 'crIncaaRating' -- +-- * 'crMcstRating' +-- -- * 'crNfrcRating' -- -- * 'crCsaRating' @@ -13791,6 +13810,7 @@ , _crSmsaRating = Nothing , _crChvrsRating = Nothing , _crIncaaRating = Nothing + , _crMcstRating = Nothing , _crNfrcRating = Nothing , _crCsaRating = Nothing , _crMocRating = Nothing @@ -13978,6 +13998,11 @@ = lens _crIncaaRating (\ s a -> s{_crIncaaRating = a}) +-- | The video\'s rating system for Vietnam - MCST +crMcstRating :: Lens' ContentRating (Maybe ContentRatingMcstRating) +crMcstRating + = lens _crMcstRating (\ s a -> s{_crMcstRating = a}) + -- | The video\'s rating from the Bulgarian National Film Center. crNfrcRating :: Lens' ContentRating (Maybe ContentRatingNfrcRating) crNfrcRating @@ -14275,6 +14300,7 @@ <*> (o .:? "smsaRating") <*> (o .:? "chvrsRating") <*> (o .:? "incaaRating") + <*> (o .:? "mcstRating") <*> (o .:? "nfrcRating") <*> (o .:? "csaRating") <*> (o .:? "mocRating") @@ -14347,6 +14373,7 @@ ("smsaRating" .=) <$> _crSmsaRating, ("chvrsRating" .=) <$> _crChvrsRating, ("incaaRating" .=) <$> _crIncaaRating, + ("mcstRating" .=) <$> _crMcstRating, ("nfrcRating" .=) <$> _crNfrcRating, ("csaRating" .=) <$> _crCsaRating, ("mocRating" .=) <$> _crMocRating, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Sum.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Sum.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Sum.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Sum.hs 2017-07-12 16:51:30.000000000 +0200 @@ -915,6 +915,8 @@ -- ^ @1080p@ | CSR1440p -- ^ @1440p@ + | CSR2160p + -- ^ @2160p@ | CSR240p -- ^ @240p@ | CSR360p @@ -931,6 +933,7 @@ parseQueryParam = \case "1080p" -> Right CSR1080p "1440p" -> Right CSR1440p + "2160p" -> Right CSR2160p "240p" -> Right CSR240p "360p" -> Right CSR360p "480p" -> Right CSR480p @@ -941,6 +944,7 @@ toQueryParam = \case CSR1080p -> "1080p" CSR1440p -> "1440p" + CSR2160p -> "2160p" CSR240p -> "240p" CSR360p -> "360p" CSR480p -> "480p" @@ -4920,6 +4924,10 @@ data VideoSuggestionsProcessingHintsItem = NonStreamableMov -- ^ @nonStreamableMov@ + | ProcsesingHintSpatialAudio + -- ^ @procsesingHintSpatialAudio@ + | ProcsesingHintSphericalVideo + -- ^ @procsesingHintSphericalVideo@ | SendBestQualityVideo -- ^ @sendBestQualityVideo@ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) @@ -4929,12 +4937,16 @@ instance FromHttpApiData VideoSuggestionsProcessingHintsItem where parseQueryParam = \case "nonStreamableMov" -> Right NonStreamableMov + "procsesingHintSpatialAudio" -> Right ProcsesingHintSpatialAudio + "procsesingHintSphericalVideo" -> Right ProcsesingHintSphericalVideo "sendBestQualityVideo" -> Right SendBestQualityVideo x -> Left ("Unable to parse VideoSuggestionsProcessingHintsItem from: " <> x) instance ToHttpApiData VideoSuggestionsProcessingHintsItem where toQueryParam = \case NonStreamableMov -> "nonStreamableMov" + ProcsesingHintSpatialAudio -> "procsesingHintSpatialAudio" + ProcsesingHintSphericalVideo -> "procsesingHintSphericalVideo" SendBestQualityVideo -> "sendBestQualityVideo" instance FromJSON VideoSuggestionsProcessingHintsItem where @@ -5135,6 +5147,57 @@ instance ToJSON SearchListVideoEmbeddable where toJSON = toJSONText +-- | The video\'s rating system for Vietnam - MCST +data ContentRatingMcstRating + = MCST0 + -- ^ @mcst0@ + | Mcst16plus + -- ^ @mcst16plus@ + | MCSTC13 + -- ^ @mcstC13@ + | MCSTC16 + -- ^ @mcstC16@ + | MCSTC18 + -- ^ @mcstC18@ + | McstGPg + -- ^ @mcstGPg@ + | McstP + -- ^ @mcstP@ + | McstUnrated + -- ^ @mcstUnrated@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ContentRatingMcstRating + +instance FromHttpApiData ContentRatingMcstRating where + parseQueryParam = \case + "mcst0" -> Right MCST0 + "mcst16plus" -> Right Mcst16plus + "mcstC13" -> Right MCSTC13 + "mcstC16" -> Right MCSTC16 + "mcstC18" -> Right MCSTC18 + "mcstGPg" -> Right McstGPg + "mcstP" -> Right McstP + "mcstUnrated" -> Right McstUnrated + x -> Left ("Unable to parse ContentRatingMcstRating from: " <> x) + +instance ToHttpApiData ContentRatingMcstRating where + toQueryParam = \case + MCST0 -> "mcst0" + Mcst16plus -> "mcst16plus" + MCSTC13 -> "mcstC13" + MCSTC16 -> "mcstC16" + MCSTC18 -> "mcstC18" + McstGPg -> "mcstGPg" + McstP -> "mcstP" + McstUnrated -> "mcstUnrated" + +instance FromJSON ContentRatingMcstRating where + parseJSON = parseJSONText "ContentRatingMcstRating" + +instance ToJSON ContentRatingMcstRating where + toJSON = toJSONText + -- | The eventType parameter restricts a search to broadcast events. If you -- specify a value for this parameter, you must also set the type -- parameter\'s value to video. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types.hs 2017-07-12 16:51:30.000000000 +0200 @@ -374,6 +374,7 @@ , VideoContentDetails , videoContentDetails , vcdCountryRestriction + , vcdHasCustomThumbnail , vcdDefinition , vcdDimension , vcdCaption @@ -525,7 +526,6 @@ , videoFileDetails , vfdBitrateBps , vfdCreationTime - , vfdRecordingLocation , vfdDurationMs , vfdFileSize , vfdFileType @@ -563,7 +563,6 @@ , ChannelContentDetails , channelContentDetails , ccdRelatedPlayLists - , ccdGooglePlusUserId -- * SearchListVideoDefinition , SearchListVideoDefinition (..) @@ -1385,6 +1384,8 @@ -- * VideoPlayer , VideoPlayer , videoPlayer + , vpEmbedHeight + , vpEmbedWidth , vpEmbedHTML -- * PromotedItemId @@ -1644,6 +1645,7 @@ , playListItemContentDetails , plicdStartAt , plicdNote + , plicdVideoPublishedAt , plicdVideoId , plicdEndAt @@ -1672,6 +1674,9 @@ -- * SearchListVideoEmbeddable , SearchListVideoEmbeddable (..) + -- * ContentRatingMcstRating + , ContentRatingMcstRating (..) + -- * LanguageTag , LanguageTag , languageTag @@ -1841,7 +1846,6 @@ , cUpdatedAt , cAuthorChannelId , cCanRate - , cAuthorGoogleplusProFileURL , cParentId -- * LiveStreamStatus @@ -1908,6 +1912,7 @@ , crSmsaRating , crChvrsRating , crIncaaRating + , crMcstRating , crNfrcRating , crCsaRating , crMocRating diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube.hs 2017-07-12 16:51:30.000000000 +0200 @@ -597,6 +597,7 @@ , VideoContentDetails , videoContentDetails , vcdCountryRestriction + , vcdHasCustomThumbnail , vcdDefinition , vcdDimension , vcdCaption @@ -748,7 +749,6 @@ , videoFileDetails , vfdBitrateBps , vfdCreationTime - , vfdRecordingLocation , vfdDurationMs , vfdFileSize , vfdFileType @@ -786,7 +786,6 @@ , ChannelContentDetails , channelContentDetails , ccdRelatedPlayLists - , ccdGooglePlusUserId -- ** SearchListVideoDefinition , SearchListVideoDefinition (..) @@ -1608,6 +1607,8 @@ -- ** VideoPlayer , VideoPlayer , videoPlayer + , vpEmbedHeight + , vpEmbedWidth , vpEmbedHTML -- ** PromotedItemId @@ -1867,6 +1868,7 @@ , playListItemContentDetails , plicdStartAt , plicdNote + , plicdVideoPublishedAt , plicdVideoId , plicdEndAt @@ -1895,6 +1897,9 @@ -- ** SearchListVideoEmbeddable , SearchListVideoEmbeddable (..) + -- ** ContentRatingMcstRating + , ContentRatingMcstRating (..) + -- ** LanguageTag , LanguageTag , languageTag @@ -2064,7 +2069,6 @@ , cUpdatedAt , cAuthorChannelId , cCanRate - , cAuthorGoogleplusProFileURL , cParentId -- ** LiveStreamStatus @@ -2131,6 +2135,7 @@ , crSmsaRating , crChvrsRating , crIncaaRating + , crMcstRating , crNfrcRating , crCsaRating , crMocRating diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gogol-youtube.cabal new/gogol-youtube-0.3.0/gogol-youtube.cabal --- old/gogol-youtube-0.1.1/gogol-youtube.cabal 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gogol-youtube.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-youtube -version: 0.1.1 +version: 0.3.0 synopsis: Google YouTube Data SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -113,5 +113,5 @@ , Network.Google.YouTube.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5