Merge branch 'dev' of https://gitlab.iscpif.fr/gargantext/haskell-gargantext into dev

f1e910bf · Nicolas Pouillard · 45d78285 · 78a4e5ef · f1e910bf
Unverified Commit f1e910bf authored Mar 05, 2019 by Nicolas Pouillard
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