Cleanup, fix broken records in LeftUse

2024-10-03 10:34:17 +01:00
parent e88b3c7443
commit 1953fb2d0c
19 changed files with 71 additions and 114 deletions
@@ -142,7 +142,7 @@ applyPastDamages cr w
    | otherwise = w

 useEquipment :: Creature -> Int -> World -> World
-useEquipment cr i = useE (_eeUse (_equipEffect $ _itUse itm)) itm cr
+useEquipment cr i = useE (_eeUse (_uequipEffect $ _itUse itm)) itm cr
  where
    itm = _crInv cr IM.! i