github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

Always drop the initial range.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 20:21:55 -05:00
parent d99be907d6
commit a69366cf4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Split.hs
View File

@ -299,5 +299,5 @@ actualLines lines = case break (== '\n') lines of
-- | Compute the line ranges within a given range of a string. -- | Compute the line ranges within a given range of a string.
actualLineRanges :: Range -> String -> [Range] actualLineRanges :: Range -> String -> [Range]
actualLineRanges range = scanl toRange (Range (start range) (start range)) . actualLines . substring range actualLineRanges range = drop 1 . scanl toRange (Range (start range) (start range)) . actualLines . substring range
where toRange previous string = Range (end previous) $ end previous + length string where toRange previous string = Range (end previous) $ end previous + length string