Defunction-ify item modules, requires more cleanup

2022-06-08 12:28:11 +01:00
parent d91a53f76c
commit bcbfd7d2fa
48 changed files with 762 additions and 740 deletions
@@ -15,7 +15,7 @@ strFromEquipment :: Creature -> Int
 strFromEquipment = sum . fmap equipmentStrValue . crCurrentEquipment

 equipmentStrValue :: Item -> Int
-equipmentStrValue itm = case _itType itm of
+equipmentStrValue itm = case _iyBase $ _itType itm of
    FRONTARMOUR -> negate 3
    POWERLEGS   -> 3
    _ -> 0