Move creature mass out of record

2025-06-06 09:10:03 +01:00
parent aa219acf8d
commit 73c79f2f4d
12 changed files with 76 additions and 67 deletions
@@ -67,12 +67,7 @@ data Pulse = PulseStatus
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data CreatureType
-    = Avatar
--        { _skinHead :: Color
--        , _skinUpper :: Color
--        , _skinLower :: Color
-        { _avatarPulse :: Pulse
-        }
+    = Avatar { _avatarPulse :: Pulse }
    | AvatarDead
    | ChaseCrit
    | SwarmCrit