Skip to content

H
haskell-gargantext
Commit c5f488c7 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] SQL query OR.

parent e5ad8435
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Database/TextSearch.hs
View file @ c5f488c7
......@@ -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
......
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