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

< != >

Browse Source
This commit is contained in:
Rob Rix 2016-05-17 15:57:18 -04:00
parent 0b45e06c91
commit eeab8580ff
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/Range.hs
View File

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