[FIX] multi-term reindex

a2b2e9ca · Alexandre Delanoë · 9863bd4f · a2b2e9ca
Commit a2b2e9ca authored May 04, 2021 by Alexandre Delanoë
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

List.hs src/Gargantext/API/Ngrams/List.hs +1 -1

No files found.
--- a/src/Gargantext/API/Ngrams/List.hs
+++ b/src/Gargantext/API/Ngrams/List.hs
@@ -142,7 +142,7 @@ reIndexWith cId lId nt lts = do
    ngramsByDoc = map (HashMap.fromList)
                $ map (map (\(k,v) -> (SimpleNgrams (text2ngrams k), v)))
                $  map (\doc -> List.zip
-                                (termsInText (buildPatterns $ map (\k -> ([unNgramsTerm k], [])) orphans)
+                                (termsInText (buildPatterns $ map (\k -> (Text.splitOn " " $ unNgramsTerm k, [])) orphans)
                                             $ Text.unlines $ catMaybes
                                               [ doc ^. node_hyperdata . hd_title
                                               , doc ^. node_hyperdata . hd_abstract