src/Gargantext/Database/Config.hs

   1 {-|
   2 Module      : Gargantext.Database
   3 Description : Tools for 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 Target: just import this module and nothing else to work with
  11 Gargantext's database.
  12
  13 TODO: configure nodes table in Haskell (Config typenames etc.)
  14 -}
  15
  16 {-# LANGUAGE NoImplicitPrelude #-}
  17 {-# LANGUAGE OverloadedStrings #-}
  18
  19 module Gargantext.Database.Config
  20     where
  21
  22
  23 import Data.Text        (Text,pack)
  24 import Data.Tuple.Extra (swap)
  25 import Data.Maybe       (fromMaybe)
  26 import Data.List        (lookup)
  27
  28 import Gargantext.Database.Types.Node
  29 import Gargantext.Prelude
  30
  31 -- TODO put this in config.ini file
  32 corpusMasterName :: Text
  33 corpusMasterName = "Main"
  34
  35 userMaster :: Text
  36 userMaster = "gargantua"
  37
  38 userArbitrary :: Text
  39 userArbitrary = "user1"
  40
  41
  42 nodeTypeId :: NodeType -> NodeTypeId
  43 nodeTypeId n =
  44   case n of
  45     NodeUser      -> 1
  46     NodeFolder    -> 2
  47     NodeCorpusV3  -> 3
  48     NodeCorpus    -> 30
  49     NodeAnnuaire  -> 31
  50     NodeDocument  -> 4
  51     NodeContact   -> 41
  52   --NodeSwap   -> 19
  53
  54 ----  Lists
  55     NodeList    -> 5
  56
  57 ----  Scores
  58 --    NodeOccurrences -> 10
  59     NodeGraph       -> 9
  60     NodeDashboard   -> 7
  61     NodeChart       -> 51
  62
  63 --  Cooccurrences -> 9
  64 --
  65 --  Specclusion  -> 11
  66 --  Genclusion   -> 18
  67 --  Cvalue       -> 12
  68 --
  69 --  TfidfCorpus  -> 13
  70 --  TfidfGlobal  -> 14
  71 --
  72 --  TirankLocal  -> 16
  73 --  TirankGlobal -> 17
  74
  75 --  Node management
  76 --  NodeFavorites    -> 15
  77
  78
  79 --
  80 -- | Nodes are typed in the database according to a specific ID
  81 --
  82 nodeTypeInv :: [(NodeTypeId, NodeType)]
  83 nodeTypeInv = map swap nodeTypes
  84
  85 nodeTypes :: [(NodeType, NodeTypeId)]
  86 nodeTypes = [ (n, nodeTypeId n) | n <- allNodeTypes ]
  87
  88 fromNodeTypeId :: NodeTypeId -> NodeType
  89 fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
  90                             (lookup tId nodeTypeInv)