Cleanup zoning

src/Dodge/WallCreatureCollisions.hs

@@ -47,8 +47,8 @@ colCrWall w c
     p2  = _crPos c
     ls  = _wlLine <$> wls
     ls' = filter (uncurry $ isLHS p1) ls
-    wls' = S.filter (not . _wlWalkable) $ wallsNearPoint p2 w
-    wls = runIdentity . S.toList_ . S.filter (not . _wlWalkable) $ wallsNearPoint p2 w
+    wls' = S.filter (not . _wlWalkable) $ wlsNearPoint p2 w
+    wls = runIdentity . S.toList_ . S.filter (not . _wlWalkable) $ wlsNearPoint p2 w
     --wallPoints = map fst ls
 
 -- the amount to push creatures out from walls, extra to their radius
@@ -88,7 +88,7 @@ crOnWall :: Creature -> World -> Bool
 crOnWall cr = runIdentity
     . S.any_ (uncurry (circOnSeg p r) . _wlLine)
     . S.filter (not . _wlWalkable) 
-    . wallsNearPoint p
+    . wlsNearPoint p
   where
     p = _crPos cr
     r = _crRad cr