diff options
Diffstat (limited to 'Spear/Math/Octree.hs')
-rw-r--r-- | Spear/Math/Octree.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Spear/Math/Octree.hs b/Spear/Math/Octree.hs index 1e257eb..15f7dde 100644 --- a/Spear/Math/Octree.hs +++ b/Spear/Math/Octree.hs | |||
@@ -11,9 +11,9 @@ module Spear.Math.Octree | |||
11 | ) | 11 | ) |
12 | where | 12 | where |
13 | 13 | ||
14 | import Spear.Collision.AABB as AABB | ||
15 | import Spear.Collision.Types | 14 | import Spear.Collision.Types |
16 | import Spear.Math.Vector3 as Vector | 15 | import Spear.Math.AABB |
16 | import Spear.Math.Vector3 | ||
17 | 17 | ||
18 | import Control.Applicative ((<*>)) | 18 | import Control.Applicative ((<*>)) |
19 | import Data.List | 19 | import Data.List |
@@ -93,7 +93,7 @@ clone (Octree root ents c1 c2 c3 c4 c5 c6 c7 c8) = Octree root [] c1' c2' c3' c4 | |||
93 | 93 | ||
94 | 94 | ||
95 | keep :: (e -> AABB -> CollisionType) -> AABB -> e -> Bool | 95 | keep :: (e -> AABB -> CollisionType) -> AABB -> e -> Bool |
96 | keep testAABB aabb e = test == FullyContainedBy || test == Equal | 96 | keep testAABB aabb e = test == FullyContainedBy |
97 | where test = e `testAABB` aabb | 97 | where test = e `testAABB` aabb |
98 | 98 | ||
99 | 99 | ||