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
@@ -378,7 +378,7 @@ updateMouseContextGame cfig u = case u ^. uvWorld . input . mouseContext of
                return $ OverInvSelect selpos
    overcomb = do
        sss <- w ^? hud . subInventory . ciSections
-        (xl, xr, _) <- w ^? hud . subInventory . ciSelection . _Just
+        Sel xl xr _ <- w ^? hud . subInventory . ciSelection . _Just
        let msel = (xl, xr)
        let mpossel = inverseSelNumPos cfig secondColumnParams sss (w ^. input . mousePos)
        return $ case mpossel of