Fix extra item swapping

2022-12-25 23:55:48 +00:00
parent d2141d90ae
commit be1a48062f
2 changed files with 5 additions and 5 deletions
@@ -145,7 +145,7 @@ drawSubInventory subinv cfig w = case subinv of
        extrapics
    closeobjectcursor = case selectedCloseObject w of
        Nothing -> mempty
-        Just (i,co) -> drawCursorAt (invDisplayParams w & ldpCursorType .~ BorderCursor (Set.fromList [North,South])) cfig (Just i) (inventorySelectionList w)
+        Just (i,_) -> drawCursorAt (invDisplayParams w & ldpCursorType .~ BorderCursor (Set.fromList [North,South])) cfig (Just i) (inventorySelectionList w)
 --        Just (i, co) ->
 --            listCursorNS
 --                clObjFloatIn