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 nodeTypeId :: NodeType -> NodeTypeId
  42 nodeTypeId n =
  43   case n of
  44     NodeUser      -> 1
  45     NodeFolder    -> 2
  46     NodeFolderPrivate -> 20
  47     NodeFolderShared  -> 21
  48     NodeTeam          -> 210
  49     NodeFolderPublic  -> 22
  50     NodeCorpusV3  -> 3
  51     NodeCorpus    -> 30
  52     NodeAnnuaire  -> 31
  53     NodeTexts     -> 40
  54     NodeDocument  -> 4
  55     NodeContact   -> 41
  56   --NodeSwap   -> 19
  57
  58 ----  Lists
  59     NodeList      -> 5
  60     NodeListModel -> 10
  61
  62 ----  Scores
  63 --    NodeOccurrences -> 10
  64     NodeGraph       -> 9
  65     NodePhylo       -> 90
  66     NodeDashboard   -> 7
  67     NodeChart       -> 51
  68     NodeNoteBook    -> 88
  69
  70 --  Cooccurrences -> 9
  71 --
  72 --  Specclusion  -> 11
  73 --  Genclusion   -> 18
  74 --  Cvalue       -> 12
  75 --
  76 --  TfidfCorpus  -> 13
  77 --  TfidfGlobal  -> 14
  78 --
  79 --  TirankLocal  -> 16
  80 --  TirankGlobal -> 17
  81
  82 --  Node management
  83 --  NodeFavorites    -> 15
  84
  85
  86 --
  87 -- | Nodes are typed in the database according to a specific ID
  88 --
  89 nodeTypeInv :: [(NodeTypeId, NodeType)]
  90 nodeTypeInv = map swap nodeTypes
  91
  92 nodeTypes :: [(NodeType, NodeTypeId)]
  93 nodeTypes = [ (n, nodeTypeId n) | n <- allNodeTypes ]
  94
  95 fromNodeTypeId :: NodeTypeId -> NodeType
  96 fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
  97                             (lookup tId nodeTypeInv)