Skip to content

P
purescript-gargantext
Commit d4601c54 authored by Nicolas Pouillard's avatar Nicolas Pouillard Committed by Alexandre Delanoë
Browse files
Options

[NGRAMS-TABLE]: Fix EncodeJson instance for Replace

parent b4bbc9e2
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
src/Gargantext/Components/NgramsTable.purs
View file @ d4601c54
...@@ -169,10 +169,13 @@ applyReplace (Replace { old, new }) a ...@@ -169,10 +169,13 @@ applyReplace (Replace { old, new }) a
| otherwise = a | otherwise = a
instance encodeJsonReplace :: EncodeJson a => EncodeJson (Replace a) where instance encodeJsonReplace :: EncodeJson a => EncodeJson (Replace a) where
encodeJson Keep = jsonEmptyObject encodeJson Keep
= "tag" := "Keep"
~> jsonEmptyObject
encodeJson (Replace {old, new}) encodeJson (Replace {old, new})
= "old" := old = "old" := old
~> "new" := new ~> "new" := new
~> "tag" := "Replace"
~> jsonEmptyObject ~> jsonEmptyObject
instance decodeJsonReplace :: (DecodeJson a, Eq a) => DecodeJson (Replace a) where instance decodeJsonReplace :: (DecodeJson a, Eq a) => DecodeJson (Replace a) where
......
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