Fix pattern matching...

4c7bf0f4 · Nicolas Pouillard · c3728bf6 · 4c7bf0f4
Unverified Commit 4c7bf0f4 authored Jul 03, 2018 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

WithList.hs src/Gargantext/Text/Terms/WithList.hs +1 -1

No files found.
--- a/src/Gargantext/Text/Terms/WithList.hs
+++ b/src/Gargantext/Text/Terms/WithList.hs
@@ -62,7 +62,7 @@ replaceTerms pats terms = go 0
    m =
      IntMap.fromListWith merge
        [ (ix, (len, term))
-        | Pattern pat len term <- pats, ix <- KMP.match pat (_terms_label term) ]
+        | Pattern pat len term <- pats, ix <- KMP.match pat terms ]

 buildPatterns :: TermList -> Patterns
 buildPatterns = sortWith (Down . _pat_length) . concatMap buildPattern