Highlighter, tiny refactoring

dd244f3f · Nicolas Pouillard · 794ed1e1 · dd244f3f
Unverified Commit dd244f3f authored May 07, 2019 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

NgramsTable.purs src/Gargantext/Components/NgramsTable.purs +2 -3

No files found.
--- a/src/Gargantext/Components/NgramsTable.purs
+++ b/src/Gargantext/Components/NgramsTable.purs
@@ -226,10 +226,9 @@ highlightNgrams (NgramsTable table) input =
                  crashWith "highlightNgrams: pattern missing from table"
                Just (NgramsElement ne) ->
                  let s1 = S.splitAt (i - i0) s in
-                  let s2 = S.splitAt lpat s1.after in
                  { i0: i + lpat
-                  , s:  s2.after
-                  , l:  Tuple s2.before (Just ne.list) : consNonEmpty s1.before l
+                  , s:  S.drop lpat s1.after
+                  , l:  Tuple pat (Just ne.list) : consNonEmpty s1.before l
                  }

 -----------------------------------------------------------------------------------