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

🔥 lineAndRemainingWhere.

Browse Source
This commit is contained in:
Rob Rix 2016-05-27 11:00:05 -04:00
parent ac209ea61f
commit c03f32f9c8
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Alignment.hs
View File

@ -161,7 +161,6 @@ alignBranch getRange children ranges = case intersectingChildren of
(leftRange, rightRange) = splitThese headRanges
lineAndRemaining children ranges = let (intersections, remaining) = alignChildren getRange children ranges in
((,) <$> ranges `applyToBoth` intersections, remaining)
lineAndRemainingWhere predicate children = if any predicate children then Just . lineAndRemaining (filter predicate children) else const Nothing
advancePast :: [Join These term] -> ([a] -> [a], [a] -> [a])
advancePast children = fromThese identity identity . runJoin . (drop 1 <$) $ unionThese children