From c5f488c72ad9ea58db22379ffda2b83e1386e7e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org> Date: Thu, 13 Dec 2018 17:56:08 +0100 Subject: [PATCH] [FIX] SQL query OR. --- src/Gargantext/Database/TextSearch.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Gargantext/Database/TextSearch.hs b/src/Gargantext/Database/TextSearch.hs index dc470735..7bff15ea 100644 --- a/src/Gargantext/Database/TextSearch.hs +++ b/src/Gargantext/Database/TextSearch.hs @@ -57,7 +57,7 @@ queryInDatabase _ q = proc () -> do searchInCorpus :: Connection -> CorpusId -> [Text] -> Maybe Offset -> Maybe Limit -> Maybe OrderBy -> IO [FacetDoc] searchInCorpus c cId q o l order = runQuery c (filterWith o l order $ queryInCorpus cId q') where - q' = intercalate " || " $ map stemIt q + q' = intercalate " | " $ map stemIt q queryInCorpus :: CorpusId -> Text -> O.Query FacetDocRead queryInCorpus cId q = proc () -> do @@ -92,7 +92,7 @@ searchInCorpusWithContacts c cId q o l order = take (maybe 5 identity l) <$> dro searchInCorpusWithContacts' :: Connection -> CorpusId -> [Text] -> Maybe Offset -> Maybe Limit -> Maybe OrderBy -> IO [(FacetPaired Int UTCTime HyperdataDocument Int (Pair (Maybe Int) (Maybe Text)))] searchInCorpusWithContacts' c cId q o l order = runQuery c $ queryInCorpusWithContacts cId q' o l order where - q' = intercalate " || " $ map stemIt q + q' = intercalate " | " $ map stemIt q -- 2.21.0