Cleanup

src/Dodge/Render/HUD.hs

@@ -144,8 +144,7 @@ drawDragSelected cfig w = do
 drawDragSelecting :: Configuration -> World -> Maybe Picture
 drawDragSelecting cfig w = do
     OverInvDragSelect (i, j) mselend <- w ^? input . mouseContext
-    (a, b) <- mselend
-    guard $ i == a
+    b <- mselend
     sss <- w ^? hud . hudElement . diSections
     let idp = invDisplayParams w
     let f x = selSecDrawCursorAt 15 idp BackdropCursor sss (i, x)