Cleanup item swapping

2026-05-18 08:59:41 +01:00
parent 75734d06af
commit 794d733c83
5 changed files with 11 additions and 28 deletions
@@ -233,7 +233,7 @@ changeSwapOther n f i w = fromMaybe w $ do
            | otherwise = j
    return $
        w
-            & swapAnyExtraSelection 3 i k
+            & hud . diSections . ix 3 . ssSet %~ swapInIntSet i k
            & hud . closeItems %~ swapIndices i k
            & hud . diSelection . _Just . slInt %~ doswap
            & worldEventFlags . at InventoryChange ?~ ()