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
overlap :: a -> a -> Bool
overlap x y =
(yStart >= xStart && yStart < xEnd) || (yStart < xStart && yEnd > xStart)
xEnd > yStart && yEnd > xStart
where
yStart = start y
yEnd = end y