Refactor triplet to Selection datatype

2025-08-26 18:13:27 +01:00
parent 9034c409e1
commit b87c3380b8
16 changed files with 127 additions and 135 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 . diSelection . _Just . _1
-        return $ w & hud . diSelection . _Just . _2 +~ 1
+        3 <- w ^? hud . diSelection . _Just . slSec
+        return $ w & hud . diSelection . _Just . slInt +~ 1

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