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

Revert "🔥 intersectsAnyLine."

Browse Source 
This reverts commit 4d41816d73af05ef46334d579b203ca99976ec2b.
This commit is contained in:
Rob Rix 2016-05-27 13:08:23 -04:00
parent 87ce5de22f
commit 7a7ed3d665
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Alignment.hs
View File

@ -165,6 +165,10 @@ alignBranch getRange children ranges = case intersectingChildren of
intersectsFirstLine :: (term -> Range) -> Join These Range -> [Join These term] -> Join These Bool
intersectsFirstLine getRange ranges = maybe (False <$ ranges) (intersects getRange ranges) . listToMaybe
intersectsAnyLine :: (term -> Range) -> Join These Range -> [Join These term] -> Join These Bool
intersectsAnyLine getRange ranges = foldr (orIntersects ranges) (False <$ ranges)
where orIntersects ranges line next = fromMaybe (False <$ ranges) ((||) <$> intersects getRange ranges line `applyThese` next)
-- | Given a list of aligned children, produce lists of their intersecting first lines, and a list of the remaining lines/nonintersecting first lines.
alignChildren :: (Copointed c, Functor c) => (term -> Range) -> [c [Join These term]] -> Join These Range -> (Both [c term], [c [Join These term]])
alignChildren _ [] _ = (both [] [], [])