install: proposal
[gargantext.git] / src / Gargantext / Text / Terms / WithList.hs
index 183f1036a6fda8de3b70b50e31707d370d6feb35..366b53143fd8a3003474faff4bebc11203300656 100644 (file)
@@ -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