Fix combine item menu

2022-02-16 22:55:00 +00:00
parent 60463ea9c0
commit 6573b3346e
4 changed files with 6 additions and 6 deletions
@@ -100,8 +100,9 @@ subInventoryDisplay cfig w = case _inventoryMode w of
            return $ listCursorNSW subInvX 60 cfig cpos col 15 csize
        , fromMaybe mempty $ do
            i <- mi
+            cpos <- combinePoss w !? i
            lnks <- combineListLnks w !? i
-            return $ uncurry (lnkMidPosInvSels cfig w) lnks 
+            return $ (lnkMidPosInvSels cfig w) cpos (snd lnks)
                <> foldMap (cursorAtInvSel listCursorNESW cfig w) (snd lnks)
        ]
    InspectInventory -> invHead cfig "INSPECT"