Move towards removing crInvEquipped

2024-12-19 01:49:13 +00:00
parent 8c04a3f968
commit 19e5927934
2 changed files with 7 additions and 3 deletions
@@ -32,7 +32,9 @@ invSelectionItem indent cr i ci =
        }
  where
    anyhotkey = maybe [] ((' ' :) . hotkeyToString) (cr ^? crInvHotkeys . ix i)
-    anyequippos = maybe [] (rightPad 8 ' ' . (' ' :) . eqPosText) (cr ^? crInvEquipped . ix i)
+    anyequippos = maybe [] (rightPad 8 ' ' . (' ' :) . eqPosText) 
+        (ci ^? _1 . itLocation . ilEquipPosition . _Just)
+--        (cr ^? crInvEquipped . ix i)
    col = itemInvColor ci
    pics = itemDisplay cr ci