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

Correct the computation of range intersection.

Browse Source
This commit is contained in:
Rob Rix 2016-05-27 14:22:45 -04:00
parent ccd45ccecb
commit 835f38bdf8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Range.hs
View File

@ -50,8 +50,7 @@ maybeLastIndex (Range _ end) = Just $ end - 1
-- | Test two ranges for intersection.
intersectsRange :: Range -> Range -> Bool
intersectsRange range1 range2 = isWellFormedAndNonEmpty $ intersectionRange range1 range2
where isWellFormedAndNonEmpty range = start range < end range
intersectsRange range1 range2 = (start range1 > start range2 && start range1 < end range2) || (start range2 > start range1 && start range2 < end range1)
-- Return the (possibly empty, possibly ill-formed) intersection of two ranges.
intersectionRange :: Range -> Range -> Range