Bug with BoundingBox union

1
2
3
4
5
6
7
8
9
10
Prelude Data.BoundingBox.B2 Data.Vector.Class> let box1 = bound_corners (vpromote (-2)) (vpromote 2)
Prelude Data.BoundingBox.B2 Data.Vector.Class> let box2 = bound_corners (vpromote (-4)) (vpromote 4)
Prelude Data.BoundingBox.B2 Data.Vector.Class> union box1 box2
BBox2 {minX = -2.0, minY = -2.0, maxX = 4.0, maxY = 4.0}
Prelude Data.BoundingBox.B2 Data.Vector.Class> union box2 box1
BBox2 {minX = -4.0, minY = -4.0, maxX = 4.0, maxY = 4.0}
Prelude Data.BoundingBox.B2 Data.Vector.Class> unions [box1, box2]
BBox2 {minX = -4.0, minY = -4.0, maxX = 4.0, maxY = 4.0}
Prelude Data.BoundingBox.B2 Data.Vector.Class> unions [box2, box1]
BBox2 {minX = -4.0, minY = -4.0, maxX = 4.0, maxY = 4.0}