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
@@ -21,7 +21,7 @@ itemEquipPict cr itmtree = case itm ^. itUse of
    UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
        -> overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)
    ituse -> fromMaybe mempty $ do
-        attachpos <- ituse ^? equipEffect . eeAttachPos
+        attachpos <- ituse ^? uequipEffect . eeAttachPos
        i <- itm ^? itLocation . ilInvID
        epos <- cr ^? crInvEquipped . ix i
        return $ equipPosition epos cr attachpos (itemSPic itm)