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