Make block damages slightly more logical

2022-06-19 16:11:54 +01:00
parent a7e6d6f3cc
commit 4924aa0a57
9 changed files with 148 additions and 117 deletions
@@ -13,4 +13,4 @@ updateWallDamages w = w
  where
    f k dams w' = fromMaybe w' $ do
        wl <- w' ^? walls . ix k
-        return $ foldr (flip damageWall wl) w' dams
+        return $ foldr (`damageWall` wl) w' dams