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
@@ -132,7 +132,7 @@ showEquipmentNumber _ itm = case _eeUse ee of
    EBatterySource{_euseBatteryAmount = x} -> [show x]
    _ -> [""]
  where
-    ee = itm ^?! itUse . equipEffect
+    ee = itm ^?! itUse . uequipEffect

 maybeWarmupStatus :: Item -> Maybe String
 maybeWarmupStatus it = case it ^? itUse . heldDelay . warmMax of