Cleanup

2022-06-19 22:46:50 +01:00
parent b3c6944693
commit 8d457033a2
17 changed files with 33 additions and 33 deletions
@@ -8,7 +8,7 @@ import LensHelp
 import qualified Data.Map.Strict as M

 damageCrWall :: Damage -> Either Creature Wall -> World -> World
-damageCrWall dt (Left cr) = creatures . ix (_crID cr) . crState . crDamage .:~ dt
+damageCrWall dt (Left cr) = creatures . ix (_crID cr) . crState . csDamage .:~ dt
 damageCrWall dt (Right wl) = damageWall dt wl

 damageDirection :: [Damage] -> Maybe Float