Fix overlap check
This commit is contained in:
parent
b5f5e6347d
commit
4a27c9a8d5
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue