justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2026-04-06 11:43:18 +01:00
parent 21573d0b05
commit 262463c52d
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Input/InGame.hs
+1 -2
View File
@@ -104,8 +104,7 @@ updateMouseHeldInGame cfig w = case w ^. input . mouseContext of
w & input . mouseContext .~ MouseGameRotate (dist (mouseWorldPosW w) (w ^. wCam . camCenter)) w & input . mouseContext .~ MouseGameRotate (dist (mouseWorldPosW w) (w ^. wCam . camCenter))
OverInvDragSelect (Just sstart) _ -> OverInvDragSelect (Just sstart) _ ->
let sss = w ^. hud . diSections let sss = w ^. hud . diSections
msel = inverseSelNumPos cfig invDP (w ^. input . mousePos) sss in case inverseSelNumPos cfig invDP (w ^. input . mousePos) sss of
in case msel of
Nothing -> w & input . mouseContext . mcoSelEnd .~ Nothing Nothing -> w & input . mouseContext . mcoSelEnd .~ Nothing
Just (i, j) Just (i, j)
| i == fst sstart -> w & input . mouseContext . mcoSelEnd ?~ j | i == fst sstart -> w & input . mouseContext . mcoSelEnd ?~ j