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

Lazily bind the splitting of the first line of the child.

Browse Source
This commit is contained in:
Rob Rix 2016-03-31 17:13:22 -04:00
parent 507595eed5
commit a56219d4d8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Alignment.hs
View File

@ -142,6 +142,7 @@ group2 :: Join These [Range] -> [AlignedDiff leaf] -> (Join These [Range], [Alig
group2 ranges children | Just (headRanges, tailRanges) <- unconsThese ranges group2 ranges children | Just (headRanges, tailRanges) <- unconsThese ranges
, (child:restOfChildren) <- children , (child:restOfChildren) <- children
, (first:rest) <- child , (first:rest) <- child
, ~(l, r) <- split first
= case fromThese False False . runJoin $ intersects headRanges child of = case fromThese False False . runJoin $ intersects headRanges child of
(True, True) -> let (moreRanges, moreChildren, remainingLines) = group2 tailRanges (rest:restOfChildren) in (True, True) -> let (moreRanges, moreChildren, remainingLines) = group2 tailRanges (rest:restOfChildren) in
(moreRanges, moreChildren, pairRangeWithLine headRanges first : remainingLines) (moreRanges, moreChildren, pairRangeWithLine headRanges first : remainingLines)