More streaming refactoring

2022-06-25 22:31:49 +01:00
parent 4eaa31bf32
commit 3c7ea4d73b
12 changed files with 88 additions and 28 deletions
@@ -336,7 +336,7 @@ anythingHitCirc :: Float -> Point2 -> Point2 -> World -> Bool
 anythingHitCirc rad sp ep w = isJust $ hitCr <|> hitWl
  where
    hitCr    = fst <$> collideCircCrsPoint sp ep rad (_creatures w)
-    hitWl    = fst <$> collideCircWalls sp ep rad (wallsNearPoint ep w) 
+    hitWl    = fst <$> collideCircWallsList sp ep rad (wallsNearPoint' ep w) 
                                                    -- this should probably be wallsOnLine or something
    
 explodeRemoteRocket