src/Gargantext/Database/Action/Query/Node/Select.hs

   1 {-|
   2 Module      : Gargantext.Database.Node.Select
   3 Description : Main requests of Node to the database
   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 {-# LANGUAGE Arrows            #-}
  13 {-# LANGUAGE FlexibleInstances #-}
  14 {-# LANGUAGE FlexibleContexts  #-}
  15 {-# LANGUAGE RankNTypes        #-}
  16
  17 module Gargantext.Database.Action.Query.Node.Select
  18   where
  19
  20 import Control.Arrow (returnA)
  21 import Gargantext.Core.Types
  22 import Gargantext.Core.Types.Individu (Username)
  23 import Gargantext.Database.Admin.Config
  24 import Gargantext.Database.Admin.Utils
  25 import Gargantext.Database.Schema.Node
  26 import Gargantext.Database.Schema.User
  27 import Opaleye
  28
  29 selectNodesWithUsername :: NodeType -> Username -> Cmd err [NodeId]
  30 selectNodesWithUsername nt u = runOpaQuery (q u)
  31   where
  32     q u' = proc () -> do
  33       (n,usrs) <- join -< ()
  34       restrict -< user_username usrs .== (toNullable $ pgStrictText u')
  35       restrict -< _node_typename n .== (pgInt4 $ nodeTypeId nt)
  36       returnA  -< _node_id n
  37
  38     join :: Query (NodeRead, UserReadNull)
  39     join = leftJoin queryNodeTable queryUserTable on1
  40       where
  41         on1 (n,us) = _node_userId n .== user_id us
  42