Attempt to fix some space leaks, general cleanup

src/Dodge/Wall/Dust.hs

@@ -1,5 +1,6 @@
 module Dodge.Wall.Dust where
 
+import Data.Foldable
 import Control.Lens
 import Dodge.Data.World
 import Dodge.WorldEvent.Cloud
@@ -12,9 +13,9 @@ wlDustAt wl = smokeCloudAt dustcol 20 200 1 . addZ 20
     dustcol = _wlColor wl & _4 .~ 1
 
 muchWlDustAt :: Wall -> Point2 -> World -> World
-muchWlDustAt wl p = flip (foldr f) [10, 20 .. 100]
+muchWlDustAt wl p = flip (foldl' f) [10, 20 .. 100]
   where
-    f h w =
+    f w h =
         w
             & smokeCloudAt dustcol 20 200 1 (addZ h (p +.+ off))
             & randGen .~ g