import Gargantext.Database.Schema.Node
import Gargantext.Prelude
+------------------------------------------------------------------------
+getUserLightWithId :: HasNodeError err => Int -> Cmd err UserLight
+getUserLightWithId i = do
+ candidates <- head <$> getUsersWithId i
+ case candidates of
+ Nothing -> nodeError NoUserFound
+ Just u -> pure u
+
+getUserLightDB :: HasNodeError err => User -> Cmd err UserLight
+getUserLightDB u = do
+ userId <- getUserId u
+ userLight <- getUserLightWithId userId
+ pure userLight
+
------------------------------------------------------------------------
getUserId :: HasNodeError err
=> User
getUserId' (UserDBId uid) = pure (Just uid)
getUserId' (RootId rid) = do
n <- getNode rid
- pure $ Just $ _node_userId n
+ pure $ Just $ _node_user_id n
getUserId' (UserName u ) = do
muser <- getUser u
case muser of
Nothing -> nodeError $ NodeError "G.D.A.U.getUserName: User not found with that id"
getUsername (RootId rid) = do
n <- getNode rid
- getUsername (UserDBId $ _node_userId n)
+ getUsername (UserDBId $ _node_user_id n)
getUsername UserPublic = pure "UserPublic"
--------------------------------------------------------------------------