Remove creature records

src/Dodge/Inventory/SelectionList.hs

@@ -8,6 +8,7 @@ module Dodge.Inventory.SelectionList (
     getItemValue,
 ) where
 
+import Dodge.Creature.MaxHP
 import Dodge.Data.Equipment.Misc
 import Numeric
 import Dodge.Inventory.Path
@@ -78,7 +79,7 @@ epText Nothing = " @NOT.EQP"
 introScanValue :: Creature -> IntroScanType -> Either Int String
 introScanValue cr = \case
     HEALTH -> Left $ cr ^. crHP
-    MAXHEALTH -> Left $ cr ^. crMaxHP
+    MAXHEALTH -> Left $ crMaxHP $ cr ^. crType
 
 itemExternalValue :: Item -> World -> Creature -> Maybe (Either Int String)
 itemExternalValue itm w cr