mirror of
https://github.com/github/semantic.git
synced 2024-12-22 22:31:36 +03:00
Revert "Skip a recursive call when we haven’t yet exhausted the lines in a child."
This reverts commit 6da256ef89752bf312a0ba40cf571ff8f410c436.
This commit is contained in:
parent
19cc23b51a
commit
8d808e32ca
@ -163,7 +163,7 @@ intersectsChild range child = end (getRange child) <= end range
|
||||
|
||||
spanMergeable :: Join These Range -> [AlignedDiff leaf] -> ([AlignedDiff leaf], [AlignedDiff leaf])
|
||||
spanMergeable ranges children | ((firstChildLine:restChildLines):rest) <- children
|
||||
, ~(merge, nope) <- if null restChildLines then spanMergeable ranges rest else ([], restChildLines : rest)
|
||||
, ~(merge, nope) <- spanMergeable ranges (if null restChildLines then rest else restChildLines : rest)
|
||||
, ~(this, that) <- split firstChildLine
|
||||
= case fromThese False False . runJoin $ intersects ranges firstChildLine of
|
||||
(True, True) -> ([firstChildLine] : merge, nope)
|
||||
|
Loading…
Reference in New Issue
Block a user