Hello community, here is the log from the commit of package ghc-gogol-drive for openSUSE:Factory checked in at 2017-08-31 20:53:13 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-drive (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-drive.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-drive" Thu Aug 31 20:53:13 2017 rev:2 rq:513304 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-drive/ghc-gogol-drive.changes 2017-05-10 20:40:46.429339201 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-drive.new/ghc-gogol-drive.changes 2017-08-31 20:53:15.694409445 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:05:38 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-drive-0.1.1.tar.gz New: ---- gogol-drive-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-drive.spec ++++++ --- /var/tmp/diff_new_pack.ZpcPZY/_old 2017-08-31 20:53:16.658274018 +0200 +++ /var/tmp/diff_new_pack.ZpcPZY/_new 2017-08-31 20:53:16.682270646 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-drive Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Drive SDK License: MPL-2.0 ++++++ gogol-drive-0.1.1.tar.gz -> gogol-drive-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-drive-0.1.1/README.md new/gogol-drive-0.3.0/README.md --- old/gogol-drive-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-drive-0.3.0/README.md 2017-07-12 16:45:06.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-drive-0.1.1/gen/Network/Google/Drive/Types/Product.hs new/gogol-drive-0.3.0/gen/Network/Google/Drive/Types/Product.hs --- old/gogol-drive-0.1.1/gen/Network/Google/Drive/Types/Product.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-drive-0.3.0/gen/Network/Google/Drive/Types/Product.hs 2017-07-12 16:45:06.000000000 +0200 @@ -48,7 +48,9 @@ } -- | The page token for the next page of files. This will be absent if the --- end of the files list has been reached. +-- end of the files list has been reached. If the token is rejected for any +-- reason, it should be discarded, and pagination should be restarted from +-- the first page of results. flNextPageToken :: Lens' FileList (Maybe Text) flNextPageToken = lens _flNextPageToken @@ -59,7 +61,8 @@ flKind :: Lens' FileList Text flKind = lens _flKind (\ s a -> s{_flKind = a}) --- | The page of files. +-- | The list of files. If nextPageToken is populated, then this list may be +-- incomplete and an additional page of results should be fetched. flFiles :: Lens' FileList [File] flFiles = lens _flFiles (\ s a -> s{_flFiles = a}) . _Default @@ -475,7 +478,9 @@ } -- | The page token for the next page of replies. This will be absent if the --- end of the replies list has been reached. +-- end of the replies list has been reached. If the token is rejected for +-- any reason, it should be discarded, and pagination should be restarted +-- from the first page of results. rlNextPageToken :: Lens' ReplyList (Maybe Text) rlNextPageToken = lens _rlNextPageToken @@ -486,7 +491,8 @@ rlKind :: Lens' ReplyList Text rlKind = lens _rlKind (\ s a -> s{_rlKind = a}) --- | The page of replies. +-- | The list of replies. If nextPageToken is populated, then this list may +-- be incomplete and an additional page of results should be fetched. rlReplies :: Lens' ReplyList [Reply] rlReplies = lens _rlReplies (\ s a -> s{_rlReplies = a}) . @@ -515,7 +521,7 @@ -- -- /See:/ 'fileContentHintsThumbnail' smart constructor. data FileContentHintsThumbnail = FileContentHintsThumbnail' - { _fchtImage :: !(Maybe Base64) + { _fchtImage :: !(Maybe Bytes) , _fchtMimeType :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -538,7 +544,7 @@ fchtImage :: Lens' FileContentHintsThumbnail (Maybe ByteString) fchtImage = lens _fchtImage (\ s a -> s{_fchtImage = a}) . - mapping _Base64 + mapping _Bytes -- | The MIME type of the thumbnail. fchtMimeType :: Lens' FileContentHintsThumbnail (Maybe Text) @@ -1034,13 +1040,16 @@ (\ s a -> s{_clNewStartPageToken = a}) -- | The page token for the next page of changes. This will be absent if the --- end of the current changes list has been reached. +-- end of the changes list has been reached. If the token is rejected for +-- any reason, it should be discarded, and pagination should be restarted +-- from the first page of results. clNextPageToken :: Lens' ChangeList (Maybe Text) clNextPageToken = lens _clNextPageToken (\ s a -> s{_clNextPageToken = a}) --- | The page of changes. +-- | The list of changes. If nextPageToken is populated, then this list may +-- be incomplete and an additional page of results should be fetched. clChanges :: Lens' ChangeList [Change] clChanges = lens _clChanges (\ s a -> s{_clChanges = a}) . @@ -2246,6 +2255,7 @@ , _fViewedByMe :: !(Maybe Bool) , _fOwners :: !(Maybe [User]) , _fViewedByMeTime :: !(Maybe DateTime') + , _fModifiedByMe :: !(Maybe Bool) , _fSize :: !(Maybe (Textual Int64)) , _fTrashed :: !(Maybe Bool) , _fWebViewLink :: !(Maybe Text) @@ -2254,6 +2264,8 @@ , _fKind :: !Text , _fLastModifyingUser :: !(Maybe User) , _fIconLink :: !(Maybe Text) + , _fHasThumbnail :: !(Maybe Bool) + , _fThumbnailVersion :: !(Maybe (Textual Int64)) , _fImageMediaMetadata :: !(Maybe FileImageMediaMetadata) , _fExplicitlyTrashed :: !(Maybe Bool) , _fShared :: !(Maybe Bool) @@ -2305,6 +2317,8 @@ -- -- * 'fViewedByMeTime' -- +-- * 'fModifiedByMe' +-- -- * 'fSize' -- -- * 'fTrashed' @@ -2321,6 +2335,10 @@ -- -- * 'fIconLink' -- +-- * 'fHasThumbnail' +-- +-- * 'fThumbnailVersion' +-- -- * 'fImageMediaMetadata' -- -- * 'fExplicitlyTrashed' @@ -2387,6 +2405,7 @@ , _fViewedByMe = Nothing , _fOwners = Nothing , _fViewedByMeTime = Nothing + , _fModifiedByMe = Nothing , _fSize = Nothing , _fTrashed = Nothing , _fWebViewLink = Nothing @@ -2395,6 +2414,8 @@ , _fKind = "drive#file" , _fLastModifyingUser = Nothing , _fIconLink = Nothing + , _fHasThumbnail = Nothing + , _fThumbnailVersion = Nothing , _fImageMediaMetadata = Nothing , _fExplicitlyTrashed = Nothing , _fShared = Nothing @@ -2430,7 +2451,8 @@ = lens _fOwnedByMe (\ s a -> s{_fOwnedByMe = a}) -- | A short-lived link to the file\'s thumbnail, if available. Typically --- lasts on the order of hours. +-- lasts on the order of hours. Only populated when the requesting app can +-- access the file\'s content. fThumbnailLink :: Lens' File (Maybe Text) fThumbnailLink = lens _fThumbnailLink @@ -2488,6 +2510,12 @@ (\ s a -> s{_fViewedByMeTime = a}) . mapping _DateTime +-- | Whether the file has been modified by this user. +fModifiedByMe :: Lens' File (Maybe Bool) +fModifiedByMe + = lens _fModifiedByMe + (\ s a -> s{_fModifiedByMe = a}) + -- | The size of the file\'s content in bytes. This is only applicable to -- files with binary content in Drive. fSize :: Lens' File (Maybe Int64) @@ -2537,6 +2565,19 @@ fIconLink = lens _fIconLink (\ s a -> s{_fIconLink = a}) +-- | Whether this file has a thumbnail. +fHasThumbnail :: Lens' File (Maybe Bool) +fHasThumbnail + = lens _fHasThumbnail + (\ s a -> s{_fHasThumbnail = a}) + +-- | The thumbnail version for use in thumbnail cache invalidation. +fThumbnailVersion :: Lens' File (Maybe Int64) +fThumbnailVersion + = lens _fThumbnailVersion + (\ s a -> s{_fThumbnailVersion = a}) + . mapping _Coerce + -- | Additional metadata about image media, if available. fImageMediaMetadata :: Lens' File (Maybe FileImageMediaMetadata) fImageMediaMetadata @@ -2731,6 +2772,7 @@ <*> (o .:? "viewedByMe") <*> (o .:? "owners" .!= mempty) <*> (o .:? "viewedByMeTime") + <*> (o .:? "modifiedByMe") <*> (o .:? "size") <*> (o .:? "trashed") <*> (o .:? "webViewLink") @@ -2739,6 +2781,8 @@ <*> (o .:? "kind" .!= "drive#file") <*> (o .:? "lastModifyingUser") <*> (o .:? "iconLink") + <*> (o .:? "hasThumbnail") + <*> (o .:? "thumbnailVersion") <*> (o .:? "imageMediaMetadata") <*> (o .:? "explicitlyTrashed") <*> (o .:? "shared") @@ -2780,6 +2824,7 @@ ("viewedByMe" .=) <$> _fViewedByMe, ("owners" .=) <$> _fOwners, ("viewedByMeTime" .=) <$> _fViewedByMeTime, + ("modifiedByMe" .=) <$> _fModifiedByMe, ("size" .=) <$> _fSize, ("trashed" .=) <$> _fTrashed, ("webViewLink" .=) <$> _fWebViewLink, ("createdTime" .=) <$> _fCreatedTime, @@ -2787,6 +2832,8 @@ Just ("kind" .= _fKind), ("lastModifyingUser" .=) <$> _fLastModifyingUser, ("iconLink" .=) <$> _fIconLink, + ("hasThumbnail" .=) <$> _fHasThumbnail, + ("thumbnailVersion" .=) <$> _fThumbnailVersion, ("imageMediaMetadata" .=) <$> _fImageMediaMetadata, ("explicitlyTrashed" .=) <$> _fExplicitlyTrashed, ("shared" .=) <$> _fShared, @@ -2901,7 +2948,9 @@ } -- | The page token for the next page of comments. This will be absent if the --- end of the comments list has been reached. +-- end of the comments list has been reached. If the token is rejected for +-- any reason, it should be discarded, and pagination should be restarted +-- from the first page of results. cllNextPageToken :: Lens' CommentList (Maybe Text) cllNextPageToken = lens _cllNextPageToken @@ -2912,7 +2961,8 @@ cllKind :: Lens' CommentList Text cllKind = lens _cllKind (\ s a -> s{_cllKind = a}) --- | The page of comments. +-- | The list of comments. If nextPageToken is populated, then this list may +-- be incomplete and an additional page of results should be fetched. cllComments :: Lens' CommentList [Comment] cllComments = lens _cllComments (\ s a -> s{_cllComments = a}) . @@ -2964,7 +3014,9 @@ } -- | The page token for the next page of revisions. This will be absent if --- the end of the revisions list has been reached. +-- the end of the revisions list has been reached. If the token is rejected +-- for any reason, it should be discarded, and pagination should be +-- restarted from the first page of results. rllNextPageToken :: Lens' RevisionList (Maybe Text) rllNextPageToken = lens _rllNextPageToken @@ -2975,7 +3027,8 @@ rllKind :: Lens' RevisionList Text rllKind = lens _rllKind (\ s a -> s{_rllKind = a}) --- | The full list of revisions. +-- | The list of revisions. If nextPageToken is populated, then this list may +-- be incomplete and an additional page of results should be fetched. rllRevisions :: Lens' RevisionList [Revision] rllRevisions = lens _rllRevisions (\ s a -> s{_rllRevisions = a}) @@ -3027,7 +3080,7 @@ plKind :: Lens' PermissionList Text plKind = lens _plKind (\ s a -> s{_plKind = a}) --- | The full list of permissions. +-- | The list of permissions. plPermissions :: Lens' PermissionList [Permission] plPermissions = lens _plPermissions diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-drive-0.1.1/gen/Network/Google/Drive/Types.hs new/gogol-drive-0.3.0/gen/Network/Google/Drive/Types.hs --- old/gogol-drive-0.1.1/gen/Network/Google/Drive/Types.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-drive-0.3.0/gen/Network/Google/Drive/Types.hs 2017-07-12 16:45:06.000000000 +0200 @@ -281,6 +281,7 @@ , fViewedByMe , fOwners , fViewedByMeTime + , fModifiedByMe , fSize , fTrashed , fWebViewLink @@ -289,6 +290,8 @@ , fKind , fLastModifyingUser , fIconLink + , fHasThumbnail + , fThumbnailVersion , fImageMediaMetadata , fExplicitlyTrashed , fShared diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-drive-0.1.1/gen/Network/Google/Drive.hs new/gogol-drive-0.3.0/gen/Network/Google/Drive.hs --- old/gogol-drive-0.1.1/gen/Network/Google/Drive.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-drive-0.3.0/gen/Network/Google/Drive.hs 2017-07-12 16:45:06.000000000 +0200 @@ -393,6 +393,7 @@ , fViewedByMe , fOwners , fViewedByMeTime + , fModifiedByMe , fSize , fTrashed , fWebViewLink @@ -401,6 +402,8 @@ , fKind , fLastModifyingUser , fIconLink + , fHasThumbnail + , fThumbnailVersion , fImageMediaMetadata , fExplicitlyTrashed , fShared diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-drive-0.1.1/gen/Network/Google/Resource/Drive/Revisions/List.hs new/gogol-drive-0.3.0/gen/Network/Google/Resource/Drive/Revisions/List.hs --- old/gogol-drive-0.1.1/gen/Network/Google/Resource/Drive/Revisions/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-drive-0.3.0/gen/Network/Google/Resource/Drive/Revisions/List.hs 2017-07-12 16:45:06.000000000 +0200 @@ -59,7 +59,7 @@ data RevisionsList = RevisionsList' { _rllPageToken :: !(Maybe Text) , _rllFileId :: !Text - , _rllPageSize :: !(Maybe (Textual Int32)) + , _rllPageSize :: !(Textual Int32) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'RevisionsList' with the minimum fields required to make a request. @@ -78,7 +78,7 @@ RevisionsList' { _rllPageToken = Nothing , _rllFileId = pRllFileId_ - , _rllPageSize = Nothing + , _rllPageSize = 200 } -- | The token for continuing a previous list request on the next page. This @@ -94,10 +94,10 @@ = lens _rllFileId (\ s a -> s{_rllFileId = a}) -- | The maximum number of revisions to return per page. -rllPageSize :: Lens' RevisionsList (Maybe Int32) +rllPageSize :: Lens' RevisionsList Int32 rllPageSize = lens _rllPageSize (\ s a -> s{_rllPageSize = a}) . - mapping _Coerce + _Coerce instance GoogleRequest RevisionsList where type Rs RevisionsList = RevisionList @@ -110,7 +110,7 @@ "https://www.googleapis.com/auth/drive.photos.readonly", "https://www.googleapis.com/auth/drive.readonly"] requestClient RevisionsList'{..} - = go _rllFileId _rllPageToken _rllPageSize + = go _rllFileId _rllPageToken (Just _rllPageSize) (Just AltJSON) driveService where go diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-drive-0.1.1/gogol-drive.cabal new/gogol-drive-0.3.0/gogol-drive.cabal --- old/gogol-drive-0.1.1/gogol-drive.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-drive-0.3.0/gogol-drive.cabal 2017-07-12 16:45:06.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-drive -version: 0.1.1 +version: 0.3.0 synopsis: Google Drive SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -76,5 +76,5 @@ , Network.Google.Drive.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5