@@ -358,6 +358,7 @@ data User = User'
358358 { _uPhoto :: !(Maybe Photo)
359359 , _uIsDeleted :: !(Maybe Bool)
360360 , _uName :: !(Maybe Text)
361+ , _uIsMe :: !(Maybe Bool)
361362 , _uPermissionId :: !(Maybe Text)
362363 } deriving (Eq,Show,Data,Typeable,Generic)
363364
@@ -371,6 +372,8 @@ data User = User'
371372--
372373-- * 'uName'
373374--
375+-- * 'uIsMe'
376+--
374377-- * 'uPermissionId'
375378user
376379 :: User
@@ -379,6 +382,7 @@ user =
379382 { _uPhoto = Nothing
380383 , _uIsDeleted = Nothing
381384 , _uName = Nothing
385+ , _uIsMe = Nothing
382386 , _uPermissionId = Nothing
383387 }
384388
@@ -397,6 +401,10 @@ uIsDeleted
397401uName :: Lens' User (Maybe Text)
398402uName = lens _uName (\ s a -> s{_uName = a})
399403
404+-- | Whether the user is the authenticated user.
405+uIsMe :: Lens' User (Maybe Bool)
406+uIsMe = lens _uIsMe (\ s a -> s{_uIsMe = a})
407+
400408-- | The permission ID associated with this user. Equivalent to the Drive
401409-- API\'s permission ID for this user, returned as part of the Drive
402410-- Permissions resource.
@@ -412,6 +420,7 @@ instance FromJSON User where
412420 User' <$>
413421 (o .:? "photo") <*> (o .:? "isDeleted") <*>
414422 (o .:? "name")
423+ <*> (o .:? "isMe")
415424 <*> (o .:? "permissionId"))
416425
417426instance ToJSON User where
@@ -420,7 +429,7 @@ instance ToJSON User where
420429 (catMaybes
421430 [("photo" .=) <$> _uPhoto,
422431 ("isDeleted" .=) <$> _uIsDeleted,
423− ("name" .=) <$> _uName,
432+ ("name" .=) <$> _uName, ("isMe" .=) <$> _uIsMe,
424433 ("permissionId" .=) <$> _uPermissionId])
425434
426435-- | An Activity resource is a combined view of multiple events. An activity