Cleanup zoning

2022-06-28 13:43:37 +01:00
parent e770fba7bf
commit 9801a40b9e
14 changed files with 84 additions and 106 deletions
@@ -335,7 +335,7 @@ anythingHitCirc :: Float -> Point2 -> Point2 -> World -> Bool
 anythingHitCirc rad sp ep w = isJust hitCr || isJust (sequence hitWl)
  where
    hitCr    = collideCircCrsPoint sp ep rad (_creatures w)
-    hitWl    = collideCircWallsStream sp ep rad $ wallsNearPoint ep w
+    hitWl    = collideCircWallsStream sp ep rad $ wlsNearPoint ep w
                                                    -- this should probably be wallsOnLine or something
    
 explodeRemoteRocket