@@ -54,7 +54,8 @@ flNextPageToken
5454 = lens _flNextPageToken
5555 (\ s a -> s{_flNextPageToken = a})
5656
57−-- | This is always drive#fileList.
57+-- | Identifies what kind of resource this is. Value: the fixed string
58+-- \"drive#fileList\".
5859flKind :: Lens' FileList Text
5960flKind = lens _flKind (\ s a -> s{_flKind = a})
6061
@@ -276,7 +277,8 @@ rCreatedTime
276277 = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a})
277278 . mapping _DateTime
278279
279−-- | This is always drive#reply.
280+-- | Identifies what kind of resource this is. Value: the fixed string
281+-- \"drive#reply\".
280282rKind :: Lens' Reply Text
281283rKind = lens _rKind (\ s a -> s{_rKind = a})
282284
@@ -479,7 +481,8 @@ rlNextPageToken
479481 = lens _rlNextPageToken
480482 (\ s a -> s{_rlNextPageToken = a})
481483
482−-- | This is always drive#replyList.
484+-- | Identifies what kind of resource this is. Value: the fixed string
485+-- \"drive#replyList\".
483486rlKind :: Lens' ReplyList Text
484487rlKind = lens _rlKind (\ s a -> s{_rlKind = a})
485488
@@ -833,7 +836,8 @@ chaTime
833836 = lens _chaTime (\ s a -> s{_chaTime = a}) .
834837 mapping _DateTime
835838
836−-- | This is always drive#change.
839+-- | Identifies what kind of resource this is. Value: the fixed string
840+-- \"drive#change\".
837841chaKind :: Lens' Change Text
838842chaKind = lens _chaKind (\ s a -> s{_chaKind = a})
839843
@@ -946,7 +950,8 @@ uPhotoLink
946950uMe :: Lens' User (Maybe Bool)
947951uMe = lens _uMe (\ s a -> s{_uMe = a})
948952
949−-- | This is always drive#user.
953+-- | Identifies what kind of resource this is. Value: the fixed string
954+-- \"drive#user\".
950955uKind :: Lens' User Text
951956uKind = lens _uKind (\ s a -> s{_uKind = a})
952957
@@ -1042,7 +1047,8 @@ clChanges
10421047 _Default
10431048 . _Coerce
10441049
1045−-- | This is always drive#changeList.
1050+-- | Identifies what kind of resource this is. Value: the fixed string
1051+-- \"drive#changeList\".
10461052clKind :: Lens' ChangeList Text
10471053clKind = lens _clKind (\ s a -> s{_clKind = a})
10481054
@@ -1287,7 +1293,8 @@ aImportFormats
12871293 = lens _aImportFormats
12881294 (\ s a -> s{_aImportFormats = a})
12891295
1290−-- | This is always drive#about.
1296+-- | Identifies what kind of resource this is. Value: the fixed string
1297+-- \"drive#about\".
12911298aKind :: Lens' About Text
12921299aKind = lens _aKind (\ s a -> s{_aKind = a})
12931300
@@ -1438,7 +1445,8 @@ startPageToken =
14381445 , _sptStartPageToken = Nothing
14391446 }
14401447
1441−-- | This is always drive#startPageToken.
1448+-- | Identifies what kind of resource this is. Value: the fixed string
1449+-- \"drive#startPageToken\".
14421450sptKind :: Lens' StartPageToken Text
14431451sptKind = lens _sptKind (\ s a -> s{_sptKind = a})
14441452
@@ -1825,7 +1833,8 @@ comCreatedTime
18251833 (\ s a -> s{_comCreatedTime = a})
18261834 . mapping _DateTime
18271835
1828−-- | This is always drive#comment.
1836+-- | Identifies what kind of resource this is. Value: the fixed string
1837+-- \"drive#comment\".
18291838comKind :: Lens' Comment Text
18301839comKind = lens _comKind (\ s a -> s{_comKind = a})
18311840
@@ -1993,7 +2002,8 @@ revOriginalFilename
19932002 = lens _revOriginalFilename
19942003 (\ s a -> s{_revOriginalFilename = a})
19952004
1996−-- | This is always drive#revision.
2005+-- | Identifies what kind of resource this is. Value: the fixed string
2006+-- \"drive#revision\".
19972007revKind :: Lens' Revision Text
19982008revKind = lens _revKind (\ s a -> s{_revKind = a})
19992009
@@ -2098,6 +2108,7 @@ data Permission = Permission'
20982108 , _pDisplayName :: !(Maybe Text)
20992109 , _pId :: !(Maybe Text)
21002110 , _pType :: !(Maybe Text)
2111+ , _pExpirationTime :: !(Maybe DateTime')
21012112 } deriving (Eq,Show,Data,Typeable,Generic)
21022113
21032114-- | Creates a value of 'Permission' with the minimum fields required to make a request.
@@ -2121,6 +2132,8 @@ data Permission = Permission'
21212132-- * 'pId'
21222133--
21232134-- * 'pType'
2135+--
2136+-- * 'pExpirationTime'
21242137permission
21252138 :: Permission
21262139permission =
@@ -2134,6 +2147,7 @@ permission =
21342147 , _pDisplayName = Nothing
21352148 , _pId = Nothing
21362149 , _pType = Nothing
2150+ , _pExpirationTime = Nothing
21372151 }
21382152
21392153-- | A link to the user\'s profile photo, if available.
@@ -2141,7 +2155,8 @@ pPhotoLink :: Lens' Permission (Maybe Text)
21412155pPhotoLink
21422156 = lens _pPhotoLink (\ s a -> s{_pPhotoLink = a})
21432157
2144−-- | This is always drive#permission.
2158+-- | Identifies what kind of resource this is. Value: the fixed string
2159+-- \"drive#permission\".
21452160pKind :: Lens' Permission Text
21462161pKind = lens _pKind (\ s a -> s{_pKind = a})
21472162
@@ -2182,6 +2197,13 @@ pId = lens _pId (\ s a -> s{_pId = a})
21822197pType :: Lens' Permission (Maybe Text)
21832198pType = lens _pType (\ s a -> s{_pType = a})
21842199
2200+-- | The time at which this permission will expire (RFC 3339 date-time).
2201+pExpirationTime :: Lens' Permission (Maybe UTCTime)
2202+pExpirationTime
2203+ = lens _pExpirationTime
2204+ (\ s a -> s{_pExpirationTime = a})
2205+ . mapping _DateTime
2206+
21852207instance FromJSON Permission where
21862208 parseJSON
21872209 = withObject "Permission"
@@ -2195,7 +2217,8 @@ instance FromJSON Permission where
21952217 <*> (o .:? "allowFileDiscovery")
21962218 <*> (o .:? "displayName")
21972219 <*> (o .:? "id")
2198− <*> (o .:? "type"))
2220+ <*> (o .:? "type")
2221+ <*> (o .:? "expirationTime"))
21992222
22002223instance ToJSON Permission where
22012224 toJSON Permission'{..}
@@ -2207,7 +2230,8 @@ instance ToJSON Permission where
22072230 ("emailAddress" .=) <$> _pEmailAddress,
22082231 ("allowFileDiscovery" .=) <$> _pAllowFileDiscovery,
22092232 ("displayName" .=) <$> _pDisplayName,
2210− ("id" .=) <$> _pId, ("type" .=) <$> _pType])
2233+ ("id" .=) <$> _pId, ("type" .=) <$> _pType,
2234+ ("expirationTime" .=) <$> _pExpirationTime])
22112235
22122236-- | The metadata for a file.
22132237--
@@ -2497,7 +2521,8 @@ fOriginalFilename
24972521 = lens _fOriginalFilename
24982522 (\ s a -> s{_fOriginalFilename = a})
24992523
2500−-- | This is always drive#file.
2524+-- | Identifies what kind of resource this is. Value: the fixed string
2525+-- \"drive#file\".
25012526fKind :: Lens' File Text
25022527fKind = lens _fKind (\ s a -> s{_fKind = a})
25032528
@@ -2821,7 +2846,8 @@ generatedIds =
28212846giSpace :: Lens' GeneratedIds (Maybe Text)
28222847giSpace = lens _giSpace (\ s a -> s{_giSpace = a})
28232848
2824−-- | This is always drive#generatedIds
2849+-- | Identifies what kind of resource this is. Value: the fixed string
2850+-- \"drive#generatedIds\".
28252851giKind :: Lens' GeneratedIds Text
28262852giKind = lens _giKind (\ s a -> s{_giKind = a})
28272853
@@ -2881,7 +2907,8 @@ cllNextPageToken
28812907 = lens _cllNextPageToken
28822908 (\ s a -> s{_cllNextPageToken = a})
28832909
2884−-- | This is always drive#commentList.
2910+-- | Identifies what kind of resource this is. Value: the fixed string
2911+-- \"drive#commentList\".
28852912cllKind :: Lens' CommentList Text
28862913cllKind = lens _cllKind (\ s a -> s{_cllKind = a})
28872914
@@ -2913,14 +2940,17 @@ instance ToJSON CommentList where
29132940--
29142941-- /See:/ 'revisionList' smart constructor.
29152942data RevisionList = RevisionList'
2916− { _rllKind :: !Text
2917− , _rllRevisions :: !(Maybe [Revision])
2943+ { _rllNextPageToken :: !(Maybe Text)
2944+ , _rllKind :: !Text
2945+ , _rllRevisions :: !(Maybe [Revision])
29182946 } deriving (Eq,Show,Data,Typeable,Generic)
29192947
29202948-- | Creates a value of 'RevisionList' with the minimum fields required to make a request.
29212949--
29222950-- Use one of the following lenses to modify other fields as desired:
29232951--
2952+-- * 'rllNextPageToken'
2953+--
29242954-- * 'rllKind'
29252955--
29262956-- * 'rllRevisions'
@@ -2928,11 +2958,20 @@ revisionList
29282958 :: RevisionList
29292959revisionList =
29302960 RevisionList'
2931− { _rllKind = "drive#revisionList"
2961+ { _rllNextPageToken = Nothing
2962+ , _rllKind = "drive#revisionList"
29322963 , _rllRevisions = Nothing
29332964 }
29342965
2935−-- | This is always drive#revisionList.
2966+-- | The page token for the next page of revisions. This will be absent if
2967+-- the end of the revisions list has been reached.
2968+rllNextPageToken :: Lens' RevisionList (Maybe Text)
2969+rllNextPageToken
2970+ = lens _rllNextPageToken
2971+ (\ s a -> s{_rllNextPageToken = a})
2972+
2973+-- | Identifies what kind of resource this is. Value: the fixed string
2974+-- \"drive#revisionList\".
29362975rllKind :: Lens' RevisionList Text
29372976rllKind = lens _rllKind (\ s a -> s{_rllKind = a})
29382977
@@ -2948,14 +2987,16 @@ instance FromJSON RevisionList where
29482987 = withObject "RevisionList"
29492988 (\ o ->
29502989 RevisionList' <$>
2951− (o .:? "kind" .!= "drive#revisionList") <*>
2952− (o .:? "revisions" .!= mempty))
2990+ (o .:? "nextPageToken") <*>
2991+ (o .:? "kind" .!= "drive#revisionList")
2992+ <*> (o .:? "revisions" .!= mempty))
29532993
29542994instance ToJSON RevisionList where
29552995 toJSON RevisionList'{..}
29562996 = object
29572997 (catMaybes
2958− [Just ("kind" .= _rllKind),
2998+ [("nextPageToken" .=) <$> _rllNextPageToken,
2999+ Just ("kind" .= _rllKind),
29593000 ("revisions" .=) <$> _rllRevisions])
29603001
29613002-- | A list of permissions for a file.
@@ -2981,7 +3022,8 @@ permissionList =
29813022 , _plPermissions = Nothing
29823023 }
29833024
2984−-- | This is always drive#permissionList.
3025+-- | Identifies what kind of resource this is. Value: the fixed string
3026+-- \"drive#permissionList\".
29853027plKind :: Lens' PermissionList Text
29863028plKind = lens _plKind (\ s a -> s{_plKind = a})
29873029