Attempt to fix some space leaks, general cleanup

2022-08-23 23:00:12 +01:00
parent 9f00e67298
commit e7e20277e4
12 changed files with 71 additions and 263 deletions
@@ -5,13 +5,14 @@ import Data.Maybe
 import Dodge.Data.World
 import Dodge.Wall.Damage
 import qualified IntMapHelp as IM
+import Data.Foldable

 updateWallDamages :: World -> World
 updateWallDamages w =
    w
        & cWorld . wallDamages .~ IM.empty
-        & flip (IM.foldrWithKey f) (_wallDamages (_cWorld w))
+        & flip (IM.foldlWithKey' f) (_wallDamages (_cWorld w))
  where
-    f k dams w' = fromMaybe w' $ do
+    f w' k dams = fromMaybe w' $ do
        wl <- w' ^? cWorld . walls . ix k
-        return $ foldr (`damageWall` wl) w' dams
+        return $ foldl' (flip (`damageWall` wl)) w' dams