github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +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 :: Int -> String -> [(Range, String)]
rangesAndWordsFrom _ "" = [] rangesAndWordsFrom _ "" = []
rangesAndWordsFrom startIndex string = rangesAndWordsFrom startIndex string =
case parse isWord string <|> parse (not . isWordOrSeparator) string of case takeAndContinue <$> (parse isWord string <|> parse (not . isWordOrSeparator) string) of
Just parsed -> takeAndContinue parsed Just a -> a
Nothing -> Nothing ->
case parse Char.isSpace string of case parse Char.isSpace string of
Just parsed -> skipAndContinue parsed Just parsed -> skipAndContinue parsed