Move zoning up world spheres

src/Dodge/Zoning/Wall.hs

@@ -1,4 +1,13 @@
-module Dodge.Zoning.Wall where
+module Dodge.Zoning.Wall 
+    ( wlsNearSeg
+    , wlsNearPoint
+    , wlsNearRect
+    , wlsNearCirc
+    , wlsFromIXs
+    , wlZoneSize
+    , zoneWall
+    , deZoneWall
+    ) where
 
 import Control.Lens
 import qualified Data.IntSet as IS
@@ -11,14 +20,14 @@ import qualified IntMapHelp as IM
 import Dodge.Zoning.Common
 
 wlIXsNearPoint :: Point2 -> World -> IS.IntSet
-wlIXsNearPoint = nearPoint wlZoneSize _wlZoning
+wlIXsNearPoint = nearPoint' wlZoneSize _wlZoning
 
 wlIXsNearSeg :: Point2 -> Point2 -> World -> IS.IntSet
 {-# INLINE wlIXsNearSeg #-}
-wlIXsNearSeg = nearSeg wlZoneSize _wlZoning
+wlIXsNearSeg = nearSeg' wlZoneSize _wlZoning
 
 wlIXsNearRect :: Point2 -> Point2 -> World -> IS.IntSet
-wlIXsNearRect = nearRect wlZoneSize _wlZoning
+wlIXsNearRect = nearRect' wlZoneSize _wlZoning
 
 wlIXsNearCirc :: Point2 -> Float -> World -> IS.IntSet
 wlIXsNearCirc p r = wlIXsNearRect (p +.+ V2 r r) (p -.- V2 r r)