Fix mouse selection in menus

2023-05-10 12:37:36 +01:00
parent cc42a5e124
commit 69fbf5926a
5 changed files with 16 additions and 24 deletions
@@ -104,7 +104,7 @@ mouseOverSelectionList ldps screen u = fromMaybe u $ do
 --    yupper = floor $ (hh - (15 + y + _ldpPosY ldps)) / 50
 --    xl = _ldpPosX ldps - hw
 --    xr = xl + _ldpScale ldps * 26 * 9
-    V2 x y = u ^. uvWorld . input . mousePos
+    V2 _ y = u ^. uvWorld . input . mousePos
    cfig = u ^. uvConfig
    hh = halfHeight cfig
    hw = halfWidth cfig