Flatten HUDElement

2025-08-26 16:46:02 +01:00
parent 596880f76a
commit 9034c409e1
24 changed files with 255 additions and 270 deletions
@@ -188,8 +188,8 @@ dropItem cr invid w' =
        itid <- cr ^? crInv . ix (NInt invid)
        w' ^? cWorld . lWorld . items . ix itid
    maybeshiftseldown w = fromMaybe w $ do
-        3 <- w ^? hud . hudElement . diSelection . _Just . _1
-        return $ w & hud . hudElement . diSelection . _Just . _2 +~ 1
+        3 <- w ^? hud . diSelection . _Just . _1
+        return $ w & hud . diSelection . _Just . _2 +~ 1

 -- | Get your creature to drop the item under the cursor.
 youDropItem :: World -> World