Cleanup

2025-06-14 23:16:29 +01:00
parent 02498e5abb
commit 078a3cc7ea
19 changed files with 29 additions and 60 deletions
@@ -33,7 +33,7 @@ aGib =
        }

 addCrGibs :: Creature -> World -> World
-addCrGibs cr = case damageDirection $ _csDamage $ _crState cr of
+addCrGibs cr = case damageDirection $ _crDamage cr of
    Nothing ->
            addGibAt 25 (_skinHead skin) cpos
            . addGibsAt 3 7 (_skinLower skin) cpos