[TODO] Read Class.

5dbdd5f1 · Alexandre Delanoë · 7a050019 · 5dbdd5f1
Commit 5dbdd5f1 authored Sep 25, 2018 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

Config.purs src/Gargantext/Config.purs +2 -0

No files found.
--- 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