Cleanup

2022-06-19 22:46:50 +01:00
parent b3c6944693
commit 8d457033a2
17 changed files with 33 additions and 33 deletions
@@ -14,6 +14,6 @@ damThingHitWith
    -> World 
    -> World
 damThingHitWith partDT sp ep mayEiCrWl = case mayEiCrWl of
-    Just (hitp,Left  cr) -> creatures . ix (_crID cr) . crState . crDamage .:~ partDT sp hitp ep
+    Just (hitp,Left  cr) -> creatures . ix (_crID cr) . crState . csDamage .:~ partDT sp hitp ep
    Just (hitp,Right wl) -> damageWall (partDT sp hitp ep) wl
    Nothing -> id