Remove creature records

2025-06-06 13:36:18 +01:00
parent 73c79f2f4d
commit 0f55257bff
48 changed files with 621 additions and 610 deletions
@@ -1,5 +1,6 @@
 module Dodge.Creature.Damage where

+import Dodge.Creature.Material
 import Dodge.Creature.Mass
 import Color
 import Data.List
@@ -13,7 +14,7 @@ applyNoDamage :: [Damage] -> Creature -> World -> World
 applyNoDamage _ _ = id

 applyCreatureDamage :: [Damage] -> Creature -> World -> World
-applyCreatureDamage dms cr = case _crMaterial cr of
+applyCreatureDamage dms cr = case crMaterial (cr ^. crType) of
    Flesh -> defaultApplyDamage dms cr
    Crystal -> id
    _ -> defaultApplyDamage dms cr