[API][NGRAMS-TABLE] WIP for meeting.

1a307666 · Alexandre Delanoë · 18120559 · 1a307666
Commit 1a307666 authored Oct 29, 2018 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

Main.hs src/Gargantext/Core/Types/Main.hs +4 -0

No files found.
--- a/src/Gargantext/Core/Types/Main.hs
+++ b/src/Gargantext/Core/Types/Main.hs
@@ -79,6 +79,10 @@ corpusTree nId t  = TreeN (NodeTree ("Corpus " <> t)  NodeCorpus nId) (  [ leafT
 --data Classification = Favorites | MyClassifcation

 data ListType  =  Stop  | Candidate | Map
+  deriving (Generic)
+
+instance ToJSON   ListType
+instance FromJSON ListType

 listId :: ListType -> Int
 listId Stop      = 0