[NGRAMS-TABLE]: Fix EncodeJson instance for Replace

d4601c54 · Nicolas Pouillard · Alexandre Delanoë · b4bbc9e2 · d4601c54
Commit d4601c54 authored Jan 03, 2019 by Nicolas Pouillard Committed by Alexandre Delanoë Feb 12, 2019
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

NgramsTable.purs src/Gargantext/Components/NgramsTable.purs +4 -1

No files found.
--- a/src/Gargantext/Components/NgramsTable.purs
+++ b/src/Gargantext/Components/NgramsTable.purs
@@ -169,10 +169,13 @@ applyReplace (Replace { old, new }) a
  | otherwise = a

 instance encodeJsonReplace :: EncodeJson a => EncodeJson (Replace a) where
-  encodeJson Keep = jsonEmptyObject
+  encodeJson Keep
+    = "tag" := "Keep"
+   ~> jsonEmptyObject
  encodeJson (Replace {old, new})
    = "old" := old
   ~> "new" := new
+   ~> "tag" := "Replace"
   ~> jsonEmptyObject

 instance decodeJsonReplace :: (DecodeJson a, Eq a) => DecodeJson (Replace a) where