Commit 73447a4d authored by Alexandre Delanoë's avatar Alexandre Delanoë

[SPEC] Typed tree with classification/favorites added.

parent 8fb8da94
......@@ -56,16 +56,18 @@ corpusTree :: Tree NodeType NodeType
corpusTree = NodeT Corpus ( [ LeafT Document ]
<> [ LeafT Lists ]
<> [ LeafT Metrics ]
<> [ LeafT Favorites]
<> [ LeafT Classification]
)
-- | TODO add Symbolic Node / Document
-- TODO make instances of Nodes
data NodeType = NodeUser | Project | Corpus | Document | DocumentCopy
| Favorites
| Classification
| Lists
| Metrics
deriving (Show, Eq)
deriving (Show, Read, Eq)
data Classification = Favorites | MyClassifcation
data Lists = StopList | MainList | MapList | GroupList
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment