diff --git a/src/Gargantext/Config.purs b/src/Gargantext/Config.purs index e20e6965836814026bb56a97badac165d8e414d3..ab57a5bbb30827f343afd14dcb0b002dd939dfc5 100644 --- a/src/Gargantext/Config.purs +++ b/src/Gargantext/Config.purs @@ -149,6 +149,8 @@ instance showNodeType :: Show NodeType where show Tree = "tree" show Error = "ErrorNodeType" +-- | TODO : where is the Read Class ? +-- instance readNodeType :: Read NodeType where readNodeType :: String -> NodeType readNodeType "NodeUser" = NodeUser readNodeType "NodeCorpus" = Corpus