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