Commit 7a050019 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[Cosmetics] minor fix.

parent f8fec2b5
...@@ -147,7 +147,7 @@ instance showNodeType :: Show NodeType where ...@@ -147,7 +147,7 @@ instance showNodeType :: Show NodeType where
show Individu = "individu" show Individu = "individu"
show Project = "project" show Project = "project"
show Tree = "tree" show Tree = "tree"
show Error = "ErrorShowNodeType" show Error = "ErrorNodeType"
readNodeType :: String -> NodeType readNodeType :: String -> NodeType
readNodeType "NodeUser" = NodeUser readNodeType "NodeUser" = NodeUser
......
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