@@ -358,6 +358,7 @@ data User = User'
358 { _uPhoto :: !(Maybe Photo)
358 { _uPhoto :: !(Maybe Photo)
359 , _uIsDeleted :: !(Maybe Bool)
359 , _uIsDeleted :: !(Maybe Bool)
360 , _uName :: !(Maybe Text)
360 , _uName :: !(Maybe Text)
361+ , _uIsMe :: !(Maybe Bool)
361 , _uPermissionId :: !(Maybe Text)
362 , _uPermissionId :: !(Maybe Text)
362 } deriving (Eq,Show,Data,Typeable,Generic)
363 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -371,6 +372,8 @@ data User = User'
372-- * 'uName'
373-- * 'uName'
374-- * 'uPermissionId'
377-- * 'uPermissionId'
@@ -379,6 +382,7 @@ user =
379 { _uPhoto = Nothing
382 { _uPhoto = Nothing
380 , _uIsDeleted = Nothing
383 , _uIsDeleted = Nothing
381 , _uName = Nothing
384 , _uName = Nothing
382 , _uPermissionId = Nothing
386 , _uPermissionId = Nothing
@@ -397,6 +401,10 @@ uIsDeleted
397uName :: Lens' User (Maybe Text)
401uName :: Lens' User (Maybe Text)
398uName = lens _uName (\ s a -> s{_uName = a})
402uName = lens _uName (\ s a -> s{_uName = a})
404+-- | Whether the user is the authenticated user.
405+uIsMe :: Lens' User (Maybe Bool)
406+uIsMe = lens _uIsMe (\ s a -> s{_uIsMe = a})
400-- | The permission ID associated with this user. Equivalent to the Drive
408-- | The permission ID associated with this user. Equivalent to the Drive
401-- API\'s permission ID for this user, returned as part of the Drive
409-- API\'s permission ID for this user, returned as part of the Drive
402-- Permissions resource.
410-- Permissions resource.
@@ -412,6 +420,7 @@ instance FromJSON User where
412 User' <$>
420 User' <$>
413 (o .:? "photo") <*> (o .:? "isDeleted") <*>
421 (o .:? "photo") <*> (o .:? "isDeleted") <*>
414 (o .:? "name")
422 (o .:? "name")
415 <*> (o .:? "permissionId"))
424 <*> (o .:? "permissionId"))
417instance ToJSON User where
426instance ToJSON User where
@@ -420,7 +429,7 @@ instance ToJSON User where
420 (catMaybes
429 (catMaybes
421 [("photo" .=) <$> _uPhoto,
430 [("photo" .=) <$> _uPhoto,
422 ("isDeleted" .=) <$> _uIsDeleted,
431 ("isDeleted" .=) <$> _uIsDeleted,
423− ("name" .=) <$> _uName,
432+ ("name" .=) <$> _uName, ("isMe" .=) <$> _uIsMe,
424 ("permissionId" .=) <$> _uPermissionId])
433 ("permissionId" .=) <$> _uPermissionId])
426-- | An Activity resource is a combined view of multiple events. An activity
435-- | An Activity resource is a combined view of multiple events. An activity