@@ -48,7 +48,9 @@ fileList =
4848 }
4949
5050-- | The page token for the next page of files. This will be absent if the
51−-- end of the files list has been reached.
51+-- end of the files list has been reached. If the token is rejected for any
52+-- reason, it should be discarded, and pagination should be restarted from
53+-- the first page of results.
5254flNextPageToken :: Lens' FileList (Maybe Text)
5355flNextPageToken
5456 = lens _flNextPageToken
@@ -59,7 +61,8 @@ flNextPageToken
5961flKind :: Lens' FileList Text
6062flKind = lens _flKind (\ s a -> s{_flKind = a})
6163
62−-- | The page of files.
64+-- | The list of files. If nextPageToken is populated, then this list may be
65+-- incomplete and an additional page of results should be fetched.
6366flFiles :: Lens' FileList [File]
6467flFiles
6568 = lens _flFiles (\ s a -> s{_flFiles = a}) . _Default
@@ -475,7 +478,9 @@ replyList =
475478 }
476479
477480-- | The page token for the next page of replies. This will be absent if the
478−-- end of the replies list has been reached.
481+-- end of the replies list has been reached. If the token is rejected for
482+-- any reason, it should be discarded, and pagination should be restarted
483+-- from the first page of results.
479484rlNextPageToken :: Lens' ReplyList (Maybe Text)
480485rlNextPageToken
481486 = lens _rlNextPageToken
@@ -486,7 +491,8 @@ rlNextPageToken
486491rlKind :: Lens' ReplyList Text
487492rlKind = lens _rlKind (\ s a -> s{_rlKind = a})
488493
489−-- | The page of replies.
494+-- | The list of replies. If nextPageToken is populated, then this list may
495+-- be incomplete and an additional page of results should be fetched.
490496rlReplies :: Lens' ReplyList [Reply]
491497rlReplies
492498 = lens _rlReplies (\ s a -> s{_rlReplies = a}) .
@@ -515,7 +521,7 @@ instance ToJSON ReplyList where
515521--
516522-- /See:/ 'fileContentHintsThumbnail' smart constructor.
517523data FileContentHintsThumbnail = FileContentHintsThumbnail'
518− { _fchtImage :: !(Maybe Base64)
524+ { _fchtImage :: !(Maybe Bytes)
519525 , _fchtMimeType :: !(Maybe Text)
520526 } deriving (Eq,Show,Data,Typeable,Generic)
521527
@@ -538,7 +544,7 @@ fileContentHintsThumbnail =
538544fchtImage :: Lens' FileContentHintsThumbnail (Maybe ByteString)
539545fchtImage
540546 = lens _fchtImage (\ s a -> s{_fchtImage = a}) .
541− mapping _Base64
547+ mapping _Bytes
542548
543549-- | The MIME type of the thumbnail.
544550fchtMimeType :: Lens' FileContentHintsThumbnail (Maybe Text)
@@ -1034,13 +1040,16 @@ clNewStartPageToken
10341040 (\ s a -> s{_clNewStartPageToken = a})
10351041
10361042-- | The page token for the next page of changes. This will be absent if the
1037−-- end of the current changes list has been reached.
1043+-- end of the changes list has been reached. If the token is rejected for
1044+-- any reason, it should be discarded, and pagination should be restarted
1045+-- from the first page of results.
10381046clNextPageToken :: Lens' ChangeList (Maybe Text)
10391047clNextPageToken
10401048 = lens _clNextPageToken
10411049 (\ s a -> s{_clNextPageToken = a})
10421050
1043−-- | The page of changes.
1051+-- | The list of changes. If nextPageToken is populated, then this list may
1052+-- be incomplete and an additional page of results should be fetched.
10441053clChanges :: Lens' ChangeList [Change]
10451054clChanges
10461055 = lens _clChanges (\ s a -> s{_clChanges = a}) .
@@ -2246,6 +2255,7 @@ data File = File'
22462255 , _fViewedByMe :: !(Maybe Bool)
22472256 , _fOwners :: !(Maybe [User])
22482257 , _fViewedByMeTime :: !(Maybe DateTime')
2258+ , _fModifiedByMe :: !(Maybe Bool)
22492259 , _fSize :: !(Maybe (Textual Int64))
22502260 , _fTrashed :: !(Maybe Bool)
22512261 , _fWebViewLink :: !(Maybe Text)
@@ -2254,6 +2264,8 @@ data File = File'
22542264 , _fKind :: !Text
22552265 , _fLastModifyingUser :: !(Maybe User)
22562266 , _fIconLink :: !(Maybe Text)
2267+ , _fHasThumbnail :: !(Maybe Bool)
2268+ , _fThumbnailVersion :: !(Maybe (Textual Int64))
22572269 , _fImageMediaMetadata :: !(Maybe FileImageMediaMetadata)
22582270 , _fExplicitlyTrashed :: !(Maybe Bool)
22592271 , _fShared :: !(Maybe Bool)
@@ -2305,6 +2317,8 @@ data File = File'
23052317--
23062318-- * 'fViewedByMeTime'
23072319--
2320+-- * 'fModifiedByMe'
2321+--
23082322-- * 'fSize'
23092323--
23102324-- * 'fTrashed'
@@ -2321,6 +2335,10 @@ data File = File'
23212335--
23222336-- * 'fIconLink'
23232337--
2338+-- * 'fHasThumbnail'
2339+--
2340+-- * 'fThumbnailVersion'
2341+--
23242342-- * 'fImageMediaMetadata'
23252343--
23262344-- * 'fExplicitlyTrashed'
@@ -2387,6 +2405,7 @@ file =
23872405 , _fViewedByMe = Nothing
23882406 , _fOwners = Nothing
23892407 , _fViewedByMeTime = Nothing
2408+ , _fModifiedByMe = Nothing
23902409 , _fSize = Nothing
23912410 , _fTrashed = Nothing
23922411 , _fWebViewLink = Nothing
@@ -2395,6 +2414,8 @@ file =
23952414 , _fKind = "drive#file"
23962415 , _fLastModifyingUser = Nothing
23972416 , _fIconLink = Nothing
2417+ , _fHasThumbnail = Nothing
2418+ , _fThumbnailVersion = Nothing
23982419 , _fImageMediaMetadata = Nothing
23992420 , _fExplicitlyTrashed = Nothing
24002421 , _fShared = Nothing
@@ -2430,7 +2451,8 @@ fOwnedByMe
24302451 = lens _fOwnedByMe (\ s a -> s{_fOwnedByMe = a})
24312452
24322453-- | A short-lived link to the file\'s thumbnail, if available. Typically
2433−-- lasts on the order of hours.
2454+-- lasts on the order of hours. Only populated when the requesting app can
2455+-- access the file\'s content.
24342456fThumbnailLink :: Lens' File (Maybe Text)
24352457fThumbnailLink
24362458 = lens _fThumbnailLink
@@ -2488,6 +2510,12 @@ fViewedByMeTime
24882510 (\ s a -> s{_fViewedByMeTime = a})
24892511 . mapping _DateTime
24902512
2513+-- | Whether the file has been modified by this user.
2514+fModifiedByMe :: Lens' File (Maybe Bool)
2515+fModifiedByMe
2516+ = lens _fModifiedByMe
2517+ (\ s a -> s{_fModifiedByMe = a})
2518+
24912519-- | The size of the file\'s content in bytes. This is only applicable to
24922520-- files with binary content in Drive.
24932521fSize :: Lens' File (Maybe Int64)
@@ -2537,6 +2565,19 @@ fIconLink :: Lens' File (Maybe Text)
25372565fIconLink
25382566 = lens _fIconLink (\ s a -> s{_fIconLink = a})
25392567
2568+-- | Whether this file has a thumbnail.
2569+fHasThumbnail :: Lens' File (Maybe Bool)
2570+fHasThumbnail
2571+ = lens _fHasThumbnail
2572+ (\ s a -> s{_fHasThumbnail = a})
2573+
2574+-- | The thumbnail version for use in thumbnail cache invalidation.
2575+fThumbnailVersion :: Lens' File (Maybe Int64)
2576+fThumbnailVersion
2577+ = lens _fThumbnailVersion
2578+ (\ s a -> s{_fThumbnailVersion = a})
2579+ . mapping _Coerce
2580+
25402581-- | Additional metadata about image media, if available.
25412582fImageMediaMetadata :: Lens' File (Maybe FileImageMediaMetadata)
25422583fImageMediaMetadata
@@ -2731,6 +2772,7 @@ instance FromJSON File where
27312772 <*> (o .:? "viewedByMe")
27322773 <*> (o .:? "owners" .!= mempty)
27332774 <*> (o .:? "viewedByMeTime")
2775+ <*> (o .:? "modifiedByMe")
27342776 <*> (o .:? "size")
27352777 <*> (o .:? "trashed")
27362778 <*> (o .:? "webViewLink")
@@ -2739,6 +2781,8 @@ instance FromJSON File where
27392781 <*> (o .:? "kind" .!= "drive#file")
27402782 <*> (o .:? "lastModifyingUser")
27412783 <*> (o .:? "iconLink")
2784+ <*> (o .:? "hasThumbnail")
2785+ <*> (o .:? "thumbnailVersion")
27422786 <*> (o .:? "imageMediaMetadata")
27432787 <*> (o .:? "explicitlyTrashed")
27442788 <*> (o .:? "shared")
@@ -2780,6 +2824,7 @@ instance ToJSON File where
27802824 ("viewedByMe" .=) <$> _fViewedByMe,
27812825 ("owners" .=) <$> _fOwners,
27822826 ("viewedByMeTime" .=) <$> _fViewedByMeTime,
2827+ ("modifiedByMe" .=) <$> _fModifiedByMe,
27832828 ("size" .=) <$> _fSize, ("trashed" .=) <$> _fTrashed,
27842829 ("webViewLink" .=) <$> _fWebViewLink,
27852830 ("createdTime" .=) <$> _fCreatedTime,
@@ -2787,6 +2832,8 @@ instance ToJSON File where
27872832 Just ("kind" .= _fKind),
27882833 ("lastModifyingUser" .=) <$> _fLastModifyingUser,
27892834 ("iconLink" .=) <$> _fIconLink,
2835+ ("hasThumbnail" .=) <$> _fHasThumbnail,
2836+ ("thumbnailVersion" .=) <$> _fThumbnailVersion,
27902837 ("imageMediaMetadata" .=) <$> _fImageMediaMetadata,
27912838 ("explicitlyTrashed" .=) <$> _fExplicitlyTrashed,
27922839 ("shared" .=) <$> _fShared,
@@ -2901,7 +2948,9 @@ commentList =
29012948 }
29022949
29032950-- | The page token for the next page of comments. This will be absent if the
2904−-- end of the comments list has been reached.
2951+-- end of the comments list has been reached. If the token is rejected for
2952+-- any reason, it should be discarded, and pagination should be restarted
2953+-- from the first page of results.
29052954cllNextPageToken :: Lens' CommentList (Maybe Text)
29062955cllNextPageToken
29072956 = lens _cllNextPageToken
@@ -2912,7 +2961,8 @@ cllNextPageToken
29122961cllKind :: Lens' CommentList Text
29132962cllKind = lens _cllKind (\ s a -> s{_cllKind = a})
29142963
2915−-- | The page of comments.
2964+-- | The list of comments. If nextPageToken is populated, then this list may
2965+-- be incomplete and an additional page of results should be fetched.
29162966cllComments :: Lens' CommentList [Comment]
29172967cllComments
29182968 = lens _cllComments (\ s a -> s{_cllComments = a}) .
@@ -2964,7 +3014,9 @@ revisionList =
29643014 }
29653015
29663016-- | The page token for the next page of revisions. This will be absent if
2967−-- the end of the revisions list has been reached.
3017+-- the end of the revisions list has been reached. If the token is rejected
3018+-- for any reason, it should be discarded, and pagination should be
3019+-- restarted from the first page of results.
29683020rllNextPageToken :: Lens' RevisionList (Maybe Text)
29693021rllNextPageToken
29703022 = lens _rllNextPageToken
@@ -2975,7 +3027,8 @@ rllNextPageToken
29753027rllKind :: Lens' RevisionList Text
29763028rllKind = lens _rllKind (\ s a -> s{_rllKind = a})
29773029
2978−-- | The full list of revisions.
3030+-- | The list of revisions. If nextPageToken is populated, then this list may
3031+-- be incomplete and an additional page of results should be fetched.
29793032rllRevisions :: Lens' RevisionList [Revision]
29803033rllRevisions
29813034 = lens _rllRevisions (\ s a -> s{_rllRevisions = a})
@@ -3027,7 +3080,7 @@ permissionList =
30273080plKind :: Lens' PermissionList Text
30283081plKind = lens _plKind (\ s a -> s{_plKind = a})
30293082
3030−-- | The full list of permissions.
3083+-- | The list of permissions.
30313084plPermissions :: Lens' PermissionList [Permission]
30323085plPermissions
30333086 = lens _plPermissions