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
@@ -447,7 +447,7 @@ aTractorBeam _ cr w = w & plNew props pjID (tractorBeamAt spos outpos dir power)
    spos = cpos +.+ (_crRad cr + 10) *.* unitVectorAtAngle dir
    xpos = cpos +.+ 400 *.* unitVectorAtAngle dir
    dir = _crDir cr
-    outpos = collidePointWalls cpos xpos
+    outpos = collidePointWalls' cpos xpos
        $ wallsAlongLine cpos xpos w
    power = _attractionPower . _itParams $ _crInv cr IM.! crSel cr