Fix drag pickup bug

2025-08-25 10:33:05 +01:00
parent 3f6f1b4019
commit 79abdfb33a
1 changed files with 1 additions and 1 deletions
@@ -138,7 +138,7 @@ tryPickupSelected k mpos w = do
    guard $ nfreeslots >= slotsneeded
    return $ case mpos of
        Just (0, j) ->
-            foldr (pickUpItemAt j 0) w (IS.toList xs)
+            foldr (pickUpItemAt j 0) w (map (_unNInt . _itID) itmstopickup)
                & hud . hudElement . diSelection
                    ?~ ( 0
                       , j