Tweak item dropping

2024-11-25 15:22:42 +00:00
parent 4e4cc92939
commit bbf95c91d8
3 changed files with 3 additions and 2 deletions
@@ -111,7 +111,7 @@ tryDropSelected mpos w = do
    cr <- w ^? cWorld . lWorld . creatures . ix 0
    (0, _) <- w ^? hud . hudElement . diSelection . _Just
    xs <- w ^? hud . hudElement . diSelectionExtra
-    return $ IS.foldr (dropItem cr) w xs
+    return . foldl' (flip $ dropItem cr) w . IS.toDescList $ xs

 tryPickupSelected :: Int -> Maybe (Int,Int) -> World -> Maybe World
 tryPickupSelected k mpos w = do