Cleanup zoning

src/Dodge/Update/Camera.hs

@@ -151,7 +151,7 @@ rotateToOverlappingWall :: World -> World
 rotateToOverlappingWall w = maybe 
     id 
     (doWallRotate . snd)
-    (overlapCircWallsClosest p (_crRad cr + 5) (S.filter _wlRotateTo $ wallsNearPoint p w))
+    (overlapCircWallsClosest p (_crRad cr + 5) (S.filter _wlRotateTo $ wlsNearPoint p w))
     w
   where
     cr = you w
@@ -224,7 +224,7 @@ farWallDistDirection p w = boundPoints
     $ S.map f vps
   where
     f q = runIdentity (S.fold_ findPoint q (rotateV (negate $ _cameraRot w) . (-.- p)) (wls q))
-    wls q = S.filter wlIsOpaque $ wallsAlongLine p q w
+    wls q = S.filter wlIsOpaque $ wlsNearSeg p q w
     findPoint q = fromMaybe q . uncurry (intersectSegSeg p q) . _wlLine
     vps = streamViewpoints p w