From 6e6afabe8a4796c702404e3d34458d518d60f651 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Tue, 27 Sep 2022 16:10:05 +0200
Subject: [PATCH] [FIX] escape char for queries
---
.../Components/Forest/Tree/Node/Action/Search/Types.purs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs b/src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs
index acffbf0da..da3eb1253 100644
--- a/src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs
+++ b/src/Gargantext/Components/Forest/Tree/Node/Action/Search/Types.purs
@@ -261,7 +261,7 @@ instance GT.ToQuery SearchQuery where
[ QP.keyFromString k /\ Just (QP.valueFromString $ show v) ]
instance JSON.WriteForeign SearchQuery where
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
, datafield
, lang: maybe "EN" show lang
--
2.21.0