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