Fix overlap check

This commit is contained in:
Vidar Holen 2022-07-26 15:33:25 -07:00
parent b5f5e6347d
commit 4a27c9a8d5
1 changed files with 1 additions and 1 deletions

View File

@ -36,7 +36,7 @@ class Ranged a where
end :: a -> Position end :: a -> Position
overlap :: a -> a -> Bool overlap :: a -> a -> Bool
overlap x y = overlap x y =
(yStart >= xStart && yStart < xEnd) || (yStart < xStart && yEnd > xStart) xEnd > yStart && yEnd > xStart
where where
yStart = start y yStart = start y
yEnd = end y yEnd = end y