Allow more drag selection to work

2025-08-25 13:30:04 +01:00
parent a2c32907f0
commit 58c645041f
5 changed files with 72 additions and 57 deletions
@@ -148,8 +148,7 @@ drawDragSelected cfig w = do

 drawDragSelecting :: Configuration -> World -> Maybe Picture
 drawDragSelecting cfig w = do
-    OverInvDragSelect (i, j) mselend <- w ^? input . mouseContext
-    b <- mselend
+    OverInvDragSelect (Just (i, j)) (Just b) <- w ^? input . mouseContext
    sss <- w ^? hud . hudElement . diSections
    let f x = selSecDrawCursorAt invDP BackdropCursor sss (i, x)
    return . translateScreenPos cfig (invDP ^. ldpPos)