Flatten HUDElement

2025-08-26 16:46:02 +01:00
parent 596880f76a
commit 9034c409e1
24 changed files with 255 additions and 270 deletions
@@ -13,7 +13,7 @@ interactWithCloseObj e w = worldEventFlags . at InventoryChange ?~ () $ case e o

 getSelectedCloseObj :: World -> Maybe (Either (NewInt ItmInt) Button)
 getSelectedCloseObj w = do
-    (i, j, _) <- w ^? hud . hudElement . diSelection . _Just
+    (i, j, _) <- w ^? hud . diSelection . _Just
    case i of
        3 -> Left <$> w ^? hud . closeItems . ix j
        5 -> do