[FIX] isStopTerm.

78a4e5ef · Alexandre Delanoë · 99bfb3cf · 78a4e5ef
Commit 78a4e5ef authored Mar 05, 2019 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

List.hs src/Gargantext/Text/List.hs +6 -1

No files found.
--- a/src/Gargantext/Text/List.hs
+++ b/src/Gargantext/Text/List.hs
@@ -111,6 +111,11 @@ toTermList stop ns =  map (toTermList' stop CandidateTerm) xs
 isStopTerm :: Text -> Bool
 isStopTerm x = Text.length x < 3
-             || not (all Char.isAlpha (Text.unpack x))
+             || not (all Char.isAlpha (Text.unpack x'))
+                where
+                  x' = ( Text.replace "-" ""
+                       . Text.replace " " ""
+                       . Text.replace "/" ""
+                       ) x