github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Remove a redundant case.

Browse Source 
This gets picked up adequately by the next one.
This commit is contained in:
Rob Rix 2015-12-14 15:30:53 -05:00
parent 06a826c5f0
commit eb9f36870d
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Range.hs
View File

@ -18,7 +18,6 @@ rangesOfWordsFrom :: Int -> String -> [Range]
rangesOfWordsFrom startIndex string = case break (not . isWord) string of rangesOfWordsFrom startIndex string = case break (not . isWord) string of
([], []) -> [] ([], []) -> []
([], rest) -> rangesOfWordsAfterWhitespace startIndex rest ([], rest) -> rangesOfWordsAfterWhitespace startIndex rest
(word, []) -> [ Range startIndex $ startIndex + length word ]
(word, rest) -> (Range startIndex $ startIndex + length word) : rangesOfWordsAfterWhitespace (startIndex + length word) rest (word, rest) -> (Range startIndex $ startIndex + length word) : rangesOfWordsAfterWhitespace (startIndex + length word) rest
where where
rangesOfWordsAfterWhitespace startIndex string | (whitespace, rest) <- break isWord string = rangesOfWordsFrom (startIndex + length whitespace) rest rangesOfWordsAfterWhitespace startIndex string | (whitespace, rest) <- break isWord string = rangesOfWordsFrom (startIndex + length whitespace) rest