Simplify drag mouse context

2026-05-15 22:17:16 +01:00
parent 3a2e92169b
commit d5ed27f57c
4 changed files with 44 additions and 23 deletions
@@ -426,7 +426,7 @@ updateMouseContext cfig u = case u ^? uvScreenLayers . ix 0 of

 updateMouseContextGame :: Config -> Universe -> MouseContext -> MouseContext
 updateMouseContextGame cfig u = \case
-    OverInvDrag i _ -> OverInvDrag i (inverseSelNumPos cfig invDP mpos disss ^? _Just . nonInf)
+    OverInvDrag i -> OverInvDrag i -- (inverseSelNumPos cfig invDP mpos disss ^? _Just . nonInf)
    x@OverInvDragSelect{} -> x
    MouseGameRotate x
        | ButtonRight `M.member` (w ^. input . mouseButtons) -> MouseGameRotate x