Remove more (dead) Streaming code

2022-08-21 22:03:15 +01:00
parent cccab45650
commit c35dbf1ba8
12 changed files with 24 additions and 93 deletions
@@ -35,7 +35,7 @@ defaultArcStep itparams w (ArcStep p dir _) = do
        mwl =
            listToMaybe
                . sortOn (dist p . fst)
-                . mapMaybe (\q -> sequence $ collidePointWallsFilterStream (const True) p (center +.+ q) w)
+                . mapMaybe (\q -> sequence $ collidePointWallsFilter (const True) p (center +.+ q) w)
                -- collidePointWallsWall and wlsnearpoint
                $ polyCirc 6 csize
        f (q, wl) = ArcStep q dir (WlID $ _wlID wl)