Move further towards removing _crInvEquipped

2024-12-19 12:29:17 +00:00
parent 7e0184a54d
commit 80b03e6544
11 changed files with 82 additions and 97 deletions
@@ -22,7 +22,7 @@ itemEquipPict cr itmtree = case itm ^. itUse of
    ituse -> fold $ do
        attachpos <- ituse ^? uequipEffect . eeAttachPos
        i <- itm ^? itLocation . ilInvID
-        epos <- cr ^? crInvEquipped . ix i
+        epos <- cr ^? crInv . ix i . itLocation . ilEquipPosition . _Just
        return $ equipPosition epos cr attachpos (itemSPic itm)
  where
    itm = itmtree ^. ldtValue . _1