[FEAT] Folder and not project any more (which is the same but more generic).

88585c12 · Alexandre Delanoë · b679a10b · 88585c12 · 88585c12
Commit 88585c12 authored Sep 25, 2018 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 5 deletions

Main.hs src/Gargantext/Core/Types/Main.hs +3 -4

Node.hs src/Gargantext/Database/Types/Node.hs +1 -1

No files found.
--- a/src/Gargantext/Core/Types/Main.hs
+++ b/src/Gargantext/Core/Types/Main.hs
@@ -60,15 +60,14 @@ userTree = TreeN (NodeTree "user name" NodeUser 1) [annuaireTree, projectTree]
 -- | Project Tree
 projectTree :: Tree NodeTree
-projectTree = TreeN (NodeTree "Project CNRS/IMT" Project 2) [corpusTree 10 "A", corpusTree 20 "B"]
+projectTree = TreeN (NodeTree "Project CNRS/IMT" Folder 2) [corpusTree 10 "A", corpusTree 20 "B"]
 type Individu  = Document
 -- | Corpus Tree
 annuaireTree :: Tree NodeTree
-annuaireTree = TreeN (NodeTree "Annuaire" Annuaire 41) (   [leafT $ NodeTree "IMT"  Individu 42]
+annuaireTree = (leafT $ NodeTree "Annuaire" Annuaire 41)
-                                                        <> [leafT $ NodeTree "CNRS" Individu 43]
-                          )
 corpusTree :: NodeId -> Text -> Tree NodeTree
 corpusTree nId t  = TreeN (NodeTree ("Corpus " <> t)  NodeCorpus nId) (  [ leafT $ NodeTree "Dashboard" Dashboard (nId +1)

--- a/src/Gargantext/Database/Types/Node.hs
+++ b/src/Gargantext/Database/Types/Node.hs
@@ -274,7 +274,7 @@ type NodeCorpus = Node HyperdataCorpus
 type Document   = Node HyperdataDocument
 ------------------------------------------------------------------------
-data NodeType = NodeUser   | Project      | Folder 
+data NodeType = NodeUser   | Folder 
              | NodeCorpus | Annuaire 
              | Document   | Individu 
              | UserPage   | DocumentCopy | Favorites