Move creature mass out of record

src/Dodge/Data/Creature.hs

@@ -41,7 +41,7 @@ data Creature = Creature
     , _crType :: CreatureType
     , _crID :: Int
     , _crRad :: Float
-    , _crMass :: Float
+--    , _crMass :: Float
     , _crHP :: Int
     , _crMaxHP :: Int
     , _crInv :: IM.IntMap Item

src/Dodge/Data/Creature/Misc.hs

@@ -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