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 ...@@ -56,16 +56,18 @@ corpusTree :: Tree NodeType NodeType
corpusTree = NodeT Corpus ( [ LeafT Document ] corpusTree = NodeT Corpus ( [ LeafT Document ]
<> [ LeafT Lists ] <> [ LeafT Lists ]
<> [ LeafT Metrics ] <> [ LeafT Metrics ]
<> [ LeafT Favorites] <> [ LeafT Classification]
) )
-- | TODO add Symbolic Node / Document -- | TODO add Symbolic Node / Document
-- TODO make instances of Nodes -- TODO make instances of Nodes
data NodeType = NodeUser | Project | Corpus | Document | DocumentCopy data NodeType = NodeUser | Project | Corpus | Document | DocumentCopy
| Favorites | Classification
| Lists | Lists
| Metrics | Metrics
deriving (Show, Eq) deriving (Show, Read, Eq)
data Classification = Favorites | MyClassifcation
data Lists = StopList | MainList | MapList | GroupList 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