Commit 9982eb4c authored by Alexandre Delanoë's avatar Alexandre Delanoë

[PHYLO] Node type.

parent 579f9673
......@@ -238,6 +238,7 @@ data NodeType = NodeUser
| Error
| Folder
| Graph
| Phylo
| Individu
| Node
| Nodes
......@@ -255,6 +256,7 @@ instance showNodeType :: Show NodeType where
show Error = "NodeError"
show Folder = "NodeFolder"
show Graph = "NodeGraph"
show Phylo = "NodePhylo"
show Individu = "NodeIndividu"
show Node = "Node"
show Nodes = "Nodes"
......@@ -267,6 +269,7 @@ readNodeType "NodeDashboard" = Dashboard
readNodeType "Document" = Url_Document
readNodeType "NodeFolder" = Folder
readNodeType "NodeGraph" = Graph
readNodeType "NodePhylo" = Phylo
readNodeType "Individu" = Individu
readNodeType "Node" = Node
readNodeType "Nodes" = Nodes
......@@ -303,6 +306,7 @@ nodeTypeUrl Url_Document = "document"
nodeTypeUrl Error = "ErrorNodeType"
nodeTypeUrl Folder = "folder"
nodeTypeUrl Graph = "graph"
nodeTypeUrl Phylo = "phylo"
nodeTypeUrl Individu = "individu"
nodeTypeUrl Node = "node"
nodeTypeUrl Nodes = "nodes"
......
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