Skip to content

P
purescript-gargantext
Commit 6e6afabe authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] escape char for queries

parent d9c780b5
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs
View file @ 6e6afabe
...@@ -261,7 +261,7 @@ instance GT.ToQuery SearchQuery where ...@@ -261,7 +261,7 @@ instance GT.ToQuery SearchQuery where
[ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ] [ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ]
instance JSON.WriteForeign SearchQuery where instance JSON.WriteForeign SearchQuery where
writeImpl (SearchQuery { databases, datafield, lang, node_id, query, selection }) = writeImpl (SearchQuery { databases, datafield, lang, node_id, query, selection }) =
JSON.writeImpl { query: String.replace (String.Pattern "\"") (String.Replacement "\\\"") query JSON.writeImpl { query: query -- String.replace (String.Pattern "\"") (String.Replacement "\\\"") query
, databases , databases
, datafield , datafield
, lang: maybe "EN" show lang , lang: maybe "EN" show lang
......
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