Flatten HUDElement

2025-08-26 16:46:02 +01:00
parent 596880f76a
commit 9034c409e1
24 changed files with 255 additions and 270 deletions
@@ -97,7 +97,7 @@ setInvPosFromSS w = w
        & cWorld . lWorld . creatures . ix 0 . crManipulation . manObject .~ thesel
  where
    thesel = fromMaybe SelNothing $ do
-        (i, j, _) <- w ^? hud . hudElement . diSelection . _Just
+        (i, j, _) <- w ^? hud . diSelection . _Just
        case i of
            (-1) -> Just SortInventory
            0 -> do