From 79abdfb33aecd67d8e745defb5ae42f72b6089eb Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 25 Aug 2025 10:33:05 +0100
Subject: [PATCH] Fix drag pickup bug

---
 src/Dodge/Update/Input/InGame.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs
index f9b1f5000..d4a599f0a 100644
--- a/src/Dodge/Update/Input/InGame.hs
+++ b/src/Dodge/Update/Input/InGame.hs
@@ -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