Skip to content

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

[FIX] SQL query OR.

parent e5ad8435
Pipeline #66 failed with stage
    Hide 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