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