From c1c50915d394fc6a07d5ee35d0fcce30154b85d6 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 14 Dec 2015 16:25:51 -0500 Subject: [PATCH] isSpace, not isSeparator. --- src/Range.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Range.hs b/src/Range.hs index aea5a72b2..f5dfd8817 100644 --- a/src/Range.hs +++ b/src/Range.hs @@ -21,7 +21,7 @@ rangesAndWordsFrom startIndex string = case parse isWord string <|> parse (not . isWordOrSeparator) string of Just parsed -> takeAndContinue parsed Nothing -> - case parse Char.isSeparator string of + case parse Char.isSpace string of Just (space, rest) -> rangesAndWordsFrom (startIndex + length space) rest Nothing -> [] where