From 262463c52d8d5c92cee8de932bfe8cc1d91ec24d Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 6 Apr 2026 11:43:18 +0100 Subject: [PATCH] Cleanup --- src/Dodge/Update/Input/InGame.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs index 5ed853013..9bd19bf83 100644 --- a/src/Dodge/Update/Input/InGame.hs +++ b/src/Dodge/Update/Input/InGame.hs @@ -104,8 +104,7 @@ updateMouseHeldInGame cfig w = case w ^. input . mouseContext of w & input . mouseContext .~ MouseGameRotate (dist (mouseWorldPosW w) (w ^. wCam . camCenter)) OverInvDragSelect (Just sstart) _ -> let sss = w ^. hud . diSections - msel = inverseSelNumPos cfig invDP (w ^. input . mousePos) sss - in case msel of + in case inverseSelNumPos cfig invDP (w ^. input . mousePos) sss of Nothing -> w & input . mouseContext . mcoSelEnd .~ Nothing Just (i, j) | i == fst sstart -> w & input . mouseContext . mcoSelEnd ?~ j