Change foldr to foldl' in some cases

2022-06-23 21:46:46 +01:00
parent fb3f677957
commit 89dd8502ad
6 changed files with 34 additions and 27 deletions
@@ -38,7 +38,7 @@ colCrWall w c
    --c'  = c & crPos %~ pushOutFromWalls' rad (reverse ls)
    c'  = c & crPos %~ pushOutFromCorners rad ls'
        . pushOutFromWalls rad ls' 
-        . flip (collidePointWalls p1) wls  -- check push throughs
+        . flip (collidePointWalls' p1) wls  -- check push throughs
    rad = _crRad c + wallBuffer
    p1  = _crOldPos c
    p2  = _crPos c