Change foldr to foldl' in some cases

src/Dodge/Block/Debris.hs

@@ -16,6 +16,7 @@ import qualified Quaternion as Q
 
 import qualified Data.IntSet as IS
 import Data.Maybe
+import Data.Foldable
 
 makeDoorDebris :: Door -> World -> World
 makeDoorDebris dr w = w & makeDebris mt col p
@@ -47,7 +48,7 @@ makeDebrisDirected :: Float
     -> Point2 
     -> World -> World
 makeDebrisDirected mindist maxdist arcrad dir bm col p w = w
-        & flip (foldr (plNew props pjID)) thedebris
+        & flip (foldl' (flip $ plNew props pjID)) thedebris
         & randGen .~ newg
         & originsIDsAt [MaterialSound bm i | i <- [0,1,2]] (destroyMatS bm) p
   where