Cleanup

2024-10-25 21:05:32 +01:00
parent 6424899afd
commit f6c136cfd6
25 changed files with 334 additions and 333 deletions
@@ -217,7 +217,7 @@ changeSwapWith f w = case w ^? hud . hudElement . diSelection . _Just of
 augInvDirectSelect :: (Int, Int) -> World -> World
 augInvDirectSelect (i, j) w =
    w
-        & hud . hudElement . diSelection .~ Just (i, j)
+        & hud . hudElement . diSelection ?~ (i, j)
        & worldEventFlags . at InventoryChange ?~ ()
        & setInvPosFromSS
        & cWorld . lWorld %~ crUpdateItemLocations 0