From eb9f36870d0f16798c98d547a7d8677deedf5e27 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 14 Dec 2015 15:30:53 -0500 Subject: [PATCH] Remove a redundant case. This gets picked up adequately by the next one. --- src/Range.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Range.hs b/src/Range.hs index bf5bc65b1..0dc215512 100644 --- a/src/Range.hs +++ b/src/Range.hs @@ -18,7 +18,6 @@ rangesOfWordsFrom :: Int -> String -> [Range] rangesOfWordsFrom startIndex string = case break (not . isWord) string of ([], []) -> [] ([], rest) -> rangesOfWordsAfterWhitespace startIndex rest - (word, []) -> [ Range startIndex $ startIndex + length word ] (word, rest) -> (Range startIndex $ startIndex + length word) : rangesOfWordsAfterWhitespace (startIndex + length word) rest where rangesOfWordsAfterWhitespace startIndex string | (whitespace, rest) <- break isWord string = rangesOfWordsFrom (startIndex + length whitespace) rest