]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/Database/Action/User.hs
[FIX] NodeUser name with username
[gargantext.git] / src / Gargantext / Database / Action / User.hs
1 {-|
2 Module : Gargantext.Database.Action.User
3 Description :
4 Copyright : (c) CNRS, 2017-Present
5 License : AGPL + CECILL v3
6 Maintainer : team@gargantext.org
7 Stability : experimental
8 Portability : POSIX
9
10 -}
11
12
13 module Gargantext.Database.Action.User
14 where
15
16 import Data.Text (Text)
17 import Gargantext.Core.Types.Individu (User(..))
18 import Gargantext.Database.Admin.Types.Node
19 import Gargantext.Database.Prelude (Cmd)
20 import Gargantext.Database.Query.Table.Node
21 import Gargantext.Database.Query.Table.User
22 import Gargantext.Database.Query.Table.Node.Error
23 import Gargantext.Database.Schema.Node
24 import Gargantext.Prelude
25
26 ------------------------------------------------------------------------
27 getUserId :: HasNodeError err
28 => User
29 -> Cmd err UserId
30 getUserId (UserDBId uid) = pure uid
31 getUserId (RootId rid) = do
32 n <- getNode rid
33 pure $ _node_userId n
34 getUserId (UserName u ) = do
35 muser <- getUser u
36 case muser of
37 Just user -> pure $ userLight_id user
38 Nothing -> nodeError NoUserFound
39 getUserId UserPublic = nodeError NoUserFound
40
41 ------------------------------------------------------------------------
42 -- | Username = Text
43 -- UserName is User
44 -- that is confusing, we should change this
45 getUsername :: HasNodeError err
46 => User
47 -> Cmd err Text
48 getUsername (UserName u) = pure u
49 getUsername (UserDBId i) = do
50 users <- getUsersWithId i
51 case head users of
52 Just u -> pure $ userLight_username u
53 Nothing -> nodeError $ NodeError "G.D.A.U.getUserName: User not found with that id"
54 getUsername (RootId rid) = do
55 n <- getNode rid
56 getUsername (UserDBId $ _node_userId n)
57 getUsername UserPublic = pure "UserPublic"
58
59 --------------------------------------------------------------------------
60 -- getRootId is in Gargantext.Database.Query.Tree.Root
61