]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/Database/Config.hs
fix the weightedlogjaccard
[gargantext.git] / 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 NodeNoteBook -> 88
65
66 -- Cooccurrences -> 9
67 --
68 -- Specclusion -> 11
69 -- Genclusion -> 18
70 -- Cvalue -> 12
71 --
72 -- TfidfCorpus -> 13
73 -- TfidfGlobal -> 14
74 --
75 -- TirankLocal -> 16
76 -- TirankGlobal -> 17
77
78 -- Node management
79 -- NodeFavorites -> 15
80
81
82 --
83 -- | Nodes are typed in the database according to a specific ID
84 --
85 nodeTypeInv :: [(NodeTypeId, NodeType)]
86 nodeTypeInv = map swap nodeTypes
87
88 nodeTypes :: [(NodeType, NodeTypeId)]
89 nodeTypes = [ (n, nodeTypeId n) | n <- allNodeTypes ]
90
91 fromNodeTypeId :: NodeTypeId -> NodeType
92 fromNodeTypeId tId = fromMaybe (panic $ pack $ "Type Id " <> show tId <> " does not exist")
93 (lookup tId nodeTypeInv)