github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

fmap takeAndContinue.

Browse Source
This commit is contained in:
Rob Rix 2015-12-14 16:29:57 -05:00
parent d59d0dbe86
commit 2d2fc220fc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Range.hs
View File

@ -18,8 +18,8 @@ offsetRange i (Range start end) = Range (i + start) (i + end)
rangesAndWordsFrom :: Int -> String -> [(Range, String)]
rangesAndWordsFrom _ "" = []
rangesAndWordsFrom startIndex string =
case parse isWord string <|> parse (not . isWordOrSeparator) string of
Just parsed -> takeAndContinue parsed
case takeAndContinue <$> (parse isWord string <|> parse (not . isWordOrSeparator) string) of
Just a -> a
Nothing ->
case parse Char.isSpace string of
Just parsed -> skipAndContinue parsed