@@ -54,7 +54,8 @@ flNextPageToken
54 = lens _flNextPageToken
54 = lens _flNextPageToken
55 (\ s a -> s{_flNextPageToken = a})
55 (\ s a -> s{_flNextPageToken = a})
57+-- | Identifies what kind of resource this is. Value: the fixed string
57−-- | This is always drive#fileList.
58+-- \"drive#fileList\".
58flKind :: Lens' FileList Text
59flKind :: Lens' FileList Text
59flKind = lens _flKind (\ s a -> s{_flKind = a})
60flKind = lens _flKind (\ s a -> s{_flKind = a})
@@ -276,7 +277,8 @@ rCreatedTime
276 = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a})
277 = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a})
277 . mapping _DateTime
278 . mapping _DateTime
280+-- | Identifies what kind of resource this is. Value: the fixed string
279−-- | This is always drive#reply.
281+-- \"drive#reply\".
280rKind :: Lens' Reply Text
282rKind :: Lens' Reply Text
281rKind = lens _rKind (\ s a -> s{_rKind = a})
283rKind = lens _rKind (\ s a -> s{_rKind = a})
@@ -479,7 +481,8 @@ rlNextPageToken
479 = lens _rlNextPageToken
481 = lens _rlNextPageToken
480 (\ s a -> s{_rlNextPageToken = a})
482 (\ s a -> s{_rlNextPageToken = a})
484+-- | Identifies what kind of resource this is. Value: the fixed string
482−-- | This is always drive#replyList.
485+-- \"drive#replyList\".
483rlKind :: Lens' ReplyList Text
486rlKind :: Lens' ReplyList Text
484rlKind = lens _rlKind (\ s a -> s{_rlKind = a})
487rlKind = lens _rlKind (\ s a -> s{_rlKind = a})
@@ -833,7 +836,8 @@ chaTime
833 = lens _chaTime (\ s a -> s{_chaTime = a}) .
836 = lens _chaTime (\ s a -> s{_chaTime = a}) .
834 mapping _DateTime
837 mapping _DateTime
839+-- | Identifies what kind of resource this is. Value: the fixed string
836−-- | This is always drive#change.
840+-- \"drive#change\".
837chaKind :: Lens' Change Text
841chaKind :: Lens' Change Text
838chaKind = lens _chaKind (\ s a -> s{_chaKind = a})
842chaKind = lens _chaKind (\ s a -> s{_chaKind = a})
@@ -946,7 +950,8 @@ uPhotoLink
946uMe :: Lens' User (Maybe Bool)
950uMe :: Lens' User (Maybe Bool)
947uMe = lens _uMe (\ s a -> s{_uMe = a})
951uMe = lens _uMe (\ s a -> s{_uMe = a})
953+-- | Identifies what kind of resource this is. Value: the fixed string
949−-- | This is always drive#user.
954+-- \"drive#user\".
950uKind :: Lens' User Text
955uKind :: Lens' User Text
951uKind = lens _uKind (\ s a -> s{_uKind = a})
956uKind = lens _uKind (\ s a -> s{_uKind = a})
@@ -1042,7 +1047,8 @@ clChanges
1042 _Default
1047 _Default
1043 . _Coerce
1048 . _Coerce
1050+-- | Identifies what kind of resource this is. Value: the fixed string
1045−-- | This is always drive#changeList.
1051+-- \"drive#changeList\".
1046clKind :: Lens' ChangeList Text
1052clKind :: Lens' ChangeList Text
1047clKind = lens _clKind (\ s a -> s{_clKind = a})
1053clKind = lens _clKind (\ s a -> s{_clKind = a})
@@ -1287,7 +1293,8 @@ aImportFormats
1287 = lens _aImportFormats
1293 = lens _aImportFormats
1288 (\ s a -> s{_aImportFormats = a})
1294 (\ s a -> s{_aImportFormats = a})
1296+-- | Identifies what kind of resource this is. Value: the fixed string
1290−-- | This is always drive#about.
1297+-- \"drive#about\".
1291aKind :: Lens' About Text
1298aKind :: Lens' About Text
1292aKind = lens _aKind (\ s a -> s{_aKind = a})
1299aKind = lens _aKind (\ s a -> s{_aKind = a})
@@ -1438,7 +1445,8 @@ startPageToken =
1438 , _sptStartPageToken = Nothing
1445 , _sptStartPageToken = Nothing
1448+-- | Identifies what kind of resource this is. Value: the fixed string
1441−-- | This is always drive#startPageToken.
1449+-- \"drive#startPageToken\".
1442sptKind :: Lens' StartPageToken Text
1450sptKind :: Lens' StartPageToken Text
1443sptKind = lens _sptKind (\ s a -> s{_sptKind = a})
1451sptKind = lens _sptKind (\ s a -> s{_sptKind = a})
@@ -1825,7 +1833,8 @@ comCreatedTime
1825 (\ s a -> s{_comCreatedTime = a})
1833 (\ s a -> s{_comCreatedTime = a})
1826 . mapping _DateTime
1834 . mapping _DateTime
1836+-- | Identifies what kind of resource this is. Value: the fixed string
1828−-- | This is always drive#comment.
1837+-- \"drive#comment\".
1829comKind :: Lens' Comment Text
1838comKind :: Lens' Comment Text
1830comKind = lens _comKind (\ s a -> s{_comKind = a})
1839comKind = lens _comKind (\ s a -> s{_comKind = a})
@@ -1993,7 +2002,8 @@ revOriginalFilename
1993 = lens _revOriginalFilename
2002 = lens _revOriginalFilename
1994 (\ s a -> s{_revOriginalFilename = a})
2003 (\ s a -> s{_revOriginalFilename = a})
2005+-- | Identifies what kind of resource this is. Value: the fixed string
1996−-- | This is always drive#revision.
2006+-- \"drive#revision\".
1997revKind :: Lens' Revision Text
2007revKind :: Lens' Revision Text
1998revKind = lens _revKind (\ s a -> s{_revKind = a})
2008revKind = lens _revKind (\ s a -> s{_revKind = a})
@@ -2098,6 +2108,7 @@ data Permission = Permission'
2098 , _pDisplayName :: !(Maybe Text)
2108 , _pDisplayName :: !(Maybe Text)
2099 , _pId :: !(Maybe Text)
2109 , _pId :: !(Maybe Text)
2100 , _pType :: !(Maybe Text)
2110 , _pType :: !(Maybe Text)
2111+ , _pExpirationTime :: !(Maybe DateTime')
2101 } deriving (Eq,Show,Data,Typeable,Generic)
2112 } deriving (Eq,Show,Data,Typeable,Generic)
2103-- | Creates a value of 'Permission' with the minimum fields required to make a request.
2114-- | Creates a value of 'Permission' with the minimum fields required to make a request.
@@ -2121,6 +2132,8 @@ data Permission = Permission'
2121-- * 'pId'
2132-- * 'pId'
2123-- * 'pType'
2134-- * 'pType'
2136+-- * 'pExpirationTime'
2124permission
2137permission
2125 :: Permission
2138 :: Permission
2126permission =
2139permission =
@@ -2134,6 +2147,7 @@ permission =
2134 , _pDisplayName = Nothing
2147 , _pDisplayName = Nothing
2135 , _pId = Nothing
2148 , _pId = Nothing
2136 , _pType = Nothing
2149 , _pType = Nothing
2150+ , _pExpirationTime = Nothing
2139-- | A link to the user\'s profile photo, if available.
2153-- | A link to the user\'s profile photo, if available.
@@ -2141,7 +2155,8 @@ pPhotoLink :: Lens' Permission (Maybe Text)
2141pPhotoLink
2155pPhotoLink
2142 = lens _pPhotoLink (\ s a -> s{_pPhotoLink = a})
2156 = lens _pPhotoLink (\ s a -> s{_pPhotoLink = a})
2158+-- | Identifies what kind of resource this is. Value: the fixed string
2144−-- | This is always drive#permission.
2159+-- \"drive#permission\".
2145pKind :: Lens' Permission Text
2160pKind :: Lens' Permission Text
2146pKind = lens _pKind (\ s a -> s{_pKind = a})
2161pKind = lens _pKind (\ s a -> s{_pKind = a})
@@ -2182,6 +2197,13 @@ pId = lens _pId (\ s a -> s{_pId = a})
2182pType :: Lens' Permission (Maybe Text)
2197pType :: Lens' Permission (Maybe Text)
2183pType = lens _pType (\ s a -> s{_pType = a})
2198pType = lens _pType (\ s a -> s{_pType = a})
2200+-- | The time at which this permission will expire (RFC 3339 date-time).
2201+pExpirationTime :: Lens' Permission (Maybe UTCTime)
2203+ = lens _pExpirationTime
2204+ (\ s a -> s{_pExpirationTime = a})
2205+ . mapping _DateTime
2185instance FromJSON Permission where
2207instance FromJSON Permission where
2186 parseJSON
2208 parseJSON
2187 = withObject "Permission"
2209 = withObject "Permission"
@@ -2195,7 +2217,8 @@ instance FromJSON Permission where
2195 <*> (o .:? "allowFileDiscovery")
2217 <*> (o .:? "allowFileDiscovery")
2196 <*> (o .:? "displayName")
2218 <*> (o .:? "displayName")
2197 <*> (o .:? "id")
2219 <*> (o .:? "id")
2198− <*> (o .:? "type"))
2220+ <*> (o .:? "type")
2221+ <*> (o .:? "expirationTime"))
2200instance ToJSON Permission where
2223instance ToJSON Permission where
2201 toJSON Permission'{..}
2224 toJSON Permission'{..}
@@ -2207,7 +2230,8 @@ instance ToJSON Permission where
2207 ("emailAddress" .=) <$> _pEmailAddress,
2230 ("emailAddress" .=) <$> _pEmailAddress,
2208 ("allowFileDiscovery" .=) <$> _pAllowFileDiscovery,
2231 ("allowFileDiscovery" .=) <$> _pAllowFileDiscovery,
2209 ("displayName" .=) <$> _pDisplayName,
2232 ("displayName" .=) <$> _pDisplayName,
2210− ("id" .=) <$> _pId, ("type" .=) <$> _pType])
2233+ ("id" .=) <$> _pId, ("type" .=) <$> _pType,
2234+ ("expirationTime" .=) <$> _pExpirationTime])
2212-- | The metadata for a file.
2236-- | The metadata for a file.
@@ -2497,7 +2521,8 @@ fOriginalFilename
2497 = lens _fOriginalFilename
2521 = lens _fOriginalFilename
2498 (\ s a -> s{_fOriginalFilename = a})
2522 (\ s a -> s{_fOriginalFilename = a})
2524+-- | Identifies what kind of resource this is. Value: the fixed string
2500−-- | This is always drive#file.
2525+-- \"drive#file\".
2501fKind :: Lens' File Text
2526fKind :: Lens' File Text
2502fKind = lens _fKind (\ s a -> s{_fKind = a})
2527fKind = lens _fKind (\ s a -> s{_fKind = a})
@@ -2821,7 +2846,8 @@ generatedIds =
2821giSpace :: Lens' GeneratedIds (Maybe Text)
2846giSpace :: Lens' GeneratedIds (Maybe Text)
2822giSpace = lens _giSpace (\ s a -> s{_giSpace = a})
2847giSpace = lens _giSpace (\ s a -> s{_giSpace = a})
2849+-- | Identifies what kind of resource this is. Value: the fixed string
2824−-- | This is always drive#generatedIds
2850+-- \"drive#generatedIds\".
2825giKind :: Lens' GeneratedIds Text
2851giKind :: Lens' GeneratedIds Text
2826giKind = lens _giKind (\ s a -> s{_giKind = a})
2852giKind = lens _giKind (\ s a -> s{_giKind = a})
@@ -2881,7 +2907,8 @@ cllNextPageToken
2881 = lens _cllNextPageToken
2907 = lens _cllNextPageToken
2882 (\ s a -> s{_cllNextPageToken = a})
2908 (\ s a -> s{_cllNextPageToken = a})
2910+-- | Identifies what kind of resource this is. Value: the fixed string
2884−-- | This is always drive#commentList.
2911+-- \"drive#commentList\".
2885cllKind :: Lens' CommentList Text
2912cllKind :: Lens' CommentList Text
2886cllKind = lens _cllKind (\ s a -> s{_cllKind = a})
2913cllKind = lens _cllKind (\ s a -> s{_cllKind = a})
@@ -2913,14 +2940,17 @@ instance ToJSON CommentList where
2914-- /See:/ 'revisionList' smart constructor.
2941-- /See:/ 'revisionList' smart constructor.
2915data RevisionList = RevisionList'
2942data RevisionList = RevisionList'
2943+ { _rllNextPageToken :: !(Maybe Text)
2916− { _rllKind :: !Text
2944+ , _rllKind :: !Text
2917− , _rllRevisions :: !(Maybe [Revision])
2945+ , _rllRevisions :: !(Maybe [Revision])
2918 } deriving (Eq,Show,Data,Typeable,Generic)
2946 } deriving (Eq,Show,Data,Typeable,Generic)
2920-- | Creates a value of 'RevisionList' with the minimum fields required to make a request.
2948-- | Creates a value of 'RevisionList' with the minimum fields required to make a request.
2922-- Use one of the following lenses to modify other fields as desired:
2950-- Use one of the following lenses to modify other fields as desired:
2952+-- * 'rllNextPageToken'
2924-- * 'rllKind'
2954-- * 'rllKind'
2926-- * 'rllRevisions'
2956-- * 'rllRevisions'
@@ -2928,11 +2958,20 @@ revisionList
2928 :: RevisionList
2958 :: RevisionList
2929revisionList =
2959revisionList =
2930 RevisionList'
2960 RevisionList'
2961+ { _rllNextPageToken = Nothing
2931− { _rllKind = "drive#revisionList"
2962+ , _rllKind = "drive#revisionList"
2932 , _rllRevisions = Nothing
2963 , _rllRevisions = Nothing
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)
2970+ = lens _rllNextPageToken
2971+ (\ s a -> s{_rllNextPageToken = a})
2973+-- | Identifies what kind of resource this is. Value: the fixed string
2935−-- | This is always drive#revisionList.
2974+-- \"drive#revisionList\".
2936rllKind :: Lens' RevisionList Text
2975rllKind :: Lens' RevisionList Text
2937rllKind = lens _rllKind (\ s a -> s{_rllKind = a})
2976rllKind = lens _rllKind (\ s a -> s{_rllKind = a})
@@ -2948,14 +2987,16 @@ instance FromJSON RevisionList where
2948 = withObject "RevisionList"
2987 = withObject "RevisionList"
2950 RevisionList' <$>
2989 RevisionList' <$>
2990+ (o .:? "nextPageToken") <*>
2951− (o .:? "kind" .!= "drive#revisionList") <*>
2991+ (o .:? "kind" .!= "drive#revisionList")
2952− (o .:? "revisions" .!= mempty))
2992+ <*> (o .:? "revisions" .!= mempty))
2954instance ToJSON RevisionList where
2994instance ToJSON RevisionList where
2955 toJSON RevisionList'{..}
2995 toJSON RevisionList'{..}
2956 = object
2996 = object
2957 (catMaybes
2997 (catMaybes
2998+ [("nextPageToken" .=) <$> _rllNextPageToken,
2958− [Just ("kind" .= _rllKind),
2999+ Just ("kind" .= _rllKind),
2959 ("revisions" .=) <$> _rllRevisions])
3000 ("revisions" .=) <$> _rllRevisions])
2961-- | A list of permissions for a file.
3002-- | A list of permissions for a file.
@@ -2981,7 +3022,8 @@ permissionList =
2981 , _plPermissions = Nothing
3022 , _plPermissions = Nothing
3025+-- | Identifies what kind of resource this is. Value: the fixed string
2984−-- | This is always drive#permissionList.
3026+-- \"drive#permissionList\".
2985plKind :: Lens' PermissionList Text
3027plKind :: Lens' PermissionList Text
2986plKind = lens _plKind (\ s a -> s{_plKind = a})
3028plKind = lens _plKind (\ s a -> s{_plKind = a})