Cleanup

2022-06-19 22:46:50 +01:00
parent b3c6944693
commit 8d457033a2
17 changed files with 33 additions and 33 deletions
@@ -21,7 +21,7 @@ doDamages :: (Particle -> Point2 -> [Damage])
    -> World
    -> World
 doDamages fdm (p,thhit) bt = case thhit of
-    Left cr -> creatures . ix (_crID cr) . crState . crDamage .++~ dams
+    Left cr -> creatures . ix (_crID cr) . crState . csDamage .++~ dams
    Right wl -> wallDamages %~ IM.insertWith (++) (_wlID wl) dams
  where
    dams = fdm bt p