github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Rename the range to next indices function.

Browse Source
This commit is contained in:
Rob Rix 2016-03-14 15:56:09 -04:00
parent 8c296b83be
commit ec4b30eee7
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/Alignment.hs
View File

@ -92,8 +92,8 @@ childLines sources child (followingLines, next) | or $ (>) . end <$> childRanges
<> followingLines, start <$> childRanges)
where pairWithNothing = fmap (fmap ((,) Nothing))
placeChildAndRangeInContainer = fmap (fmap (first (Just . (<$ child))))
trailingContextLines = linesInRangeOfSource <$> rangeOfContextToNext <*> sources
rangeOfContextToNext = (Range <$> (end <$> childRanges) <*> next)
trailingContextLines = linesInRangeOfSource <$> rangeUntilNext <*> sources
rangeUntilNext = (Range <$> (end <$> childRanges) <*> next)
childRanges = unionLineRangesFrom <$> (rangeAt <$> next) <*> sequenceA (copoint child)
-- | Produce open/closed lines for the portion of the source spanned by a range.