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