ElEve: alternative split
[gargantext.git] / src / Gargantext / Database / Config.hs
index f3ffe520746ed0237f6cdb559c0706b7c61a3419..568f99e7d01f4bd3568fb581b5cace69d4b590f1 100644 (file)
@@ -14,12 +14,13 @@ TODO: configure nodes table in Haskell (Config typenames etc.)
 -}
 
 {-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Gargantext.Database.Config
     where
 
 
-import Data.Text        (pack)
+import Data.Text        (Text,pack)
 import Data.Tuple.Extra (swap)
 import Data.Maybe       (fromMaybe)
 import Data.List        (lookup)
@@ -27,6 +28,16 @@ import Data.List        (lookup)
 import Gargantext.Database.Types.Node
 import Gargantext.Prelude
 
+-- TODO put this in config.ini file
+corpusMasterName :: Text
+corpusMasterName = "Main"
+
+userMaster :: Text
+userMaster = "gargantua"
+
+userArbitrary :: Text
+userArbitrary = "user1"
+
 nodeTypeId :: NodeType -> NodeTypeId
 nodeTypeId n =
   case n of
@@ -40,12 +51,13 @@ nodeTypeId n =
   --NodeSwap   -> 19
 
 ----  Lists
-    NodeList    -> 5
+    NodeList      -> 5
+    NodeListModel -> 10
 
 ----  Scores
 --    NodeOccurrences -> 10
     NodeGraph       -> 9
-    NodeDashboard   -> 5
+    NodeDashboard   -> 7
     NodeChart       -> 51
 
 --  Cooccurrences -> 9