[TREE]Config fix NodeTypes id.

src/Gargantext/Database/Config.hs

@@ -33,8 +33,8 @@ nodeTypeId n =
   case n of
     NodeUser   -> 1
     Folder     -> 2
-    NodeCorpus -> 3
-    -- NodeCorpus -> 30 TODO ERRR
+    --NodeCorpus -> 3
+    NodeCorpus -> 30 -- TODO ERRR
     Annuaire   -> 31
     Document   -> 4
     UserPage   -> 41

src/Gargantext/Database/Tree.hs

@@ -100,7 +100,7 @@ dbTree conn rootId = map (\(nId, tId, pId, n) -> DbTreeNode nId tId pId n) <$> q
         UNION ALL
         SELECT n.id, n.typename, n.parent_id, n.name
         FROM nodes AS n JOIN descendants AS d ON n.parent_id = d.id
-        where n.typename in (2,3,31)
+        where n.typename in (2,30,31)
       ),
       ancestors (id, typename, parent_id, name) AS
       (