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

Write intersects in non-tacit style.

Browse Source
This commit is contained in:
Rob Rix 2016-03-28 16:19:08 -04:00
parent ed97e2fa36
commit 71fd74527d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Alignment.hs
View File

@ -139,7 +139,7 @@ groupChildrenByLine ranges children = go (fromThese [] [] $ runJoin ranges) (joi
| otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges
getRange (Free (Annotated (Info range _) _)) = range
getRange (Pure patch) | Info range _ :< _ <- getSplitTerm patch = range
intersects range = (<= end range) . end . getRange
intersects range child = end (getRange child) <= end range
modifyJoin :: (p a a -> q b b) -> Join p a -> Join q b
modifyJoin f = Join . f . runJoin