on develop help sign in
Regenerating gogol-apps-activity from updated service defintions
8e079fdBrendan Hay
gogol-apps-activity/gen/Network/Google/AppsActivity.hs+1
@@ -90,6 +90,7 @@ module Network.Google.AppsActivity
90 , uPhoto
90 , uPhoto
91 , uIsDeleted
91 , uIsDeleted
92 , uName
92 , uName
93+ , uIsMe
93 , uPermissionId
94 , uPermissionId
94
95
95 -- ** EventAdditionalEventTypesItem
96 -- ** EventAdditionalEventTypesItem
gogol-apps-activity/gen/Network/Google/AppsActivity/Types.hs+1
@@ -78,6 +78,7 @@ module Network.Google.AppsActivity.Types
78 , uPhoto
78 , uPhoto
79 , uIsDeleted
79 , uIsDeleted
80 , uName
80 , uName
81+ , uIsMe
81 , uPermissionId
82 , uPermissionId
82
83
83 -- * EventAdditionalEventTypesItem
84 -- * EventAdditionalEventTypesItem
gogol-apps-activity/gen/Network/Google/AppsActivity/Types/Product.hs+10−1
@@ -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)
363
364
@@ -371,6 +372,8 @@ data User = User'
371--
372--
372-- * 'uName'
373-- * 'uName'
373--
374--
375+-- * 'uIsMe'
376+--
374-- * 'uPermissionId'
377-- * 'uPermissionId'
375user
378user
376 :: User
379 :: User
@@ -379,6 +382,7 @@ user =
379 { _uPhoto = Nothing
382 { _uPhoto = Nothing
380 , _uIsDeleted = Nothing
383 , _uIsDeleted = Nothing
381 , _uName = Nothing
384 , _uName = Nothing
385+ , _uIsMe = Nothing
382 , _uPermissionId = Nothing
386 , _uPermissionId = Nothing
383 }
387 }
384
388
@@ -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})
399
403
404+-- | Whether the user is the authenticated user.
405+uIsMe :: Lens' User (Maybe Bool)
406+uIsMe = lens _uIsMe (\ s a -> s{_uIsMe = a})
407+
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")
423+ <*> (o .:? "isMe")
415 <*> (o .:? "permissionId"))
424 <*> (o .:? "permissionId"))
416
425
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])
425
434
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