diff --git a/src/Dodge/Update/Input/InGame.hs b/src/Dodge/Update/Input/InGame.hs
index 7d347877a..39b8032dd 100644
--- a/src/Dodge/Update/Input/InGame.hs
+++ b/src/Dodge/Update/Input/InGame.hs
@@ -283,29 +283,7 @@ startDrag (a, b) cfig w = setcontext
     setcontext = input . mouseContext .~ OverInvDrag a (Just (a, b)) above bneath
     above = inverseSelSecYint (yint - 1) =<< w ^? hud . hudElement . diSections
     bneath = inverseSelSecYint (yint + 1) =<< w ^? hud . hudElement . diSections
-    --above = do
-    --    sss <- w ^? hud . hudElement . diSections
-    --    inverseSelSecYint (yint - 1) sss
-    --bneath = do
-    --    sss <- w ^? hud . hudElement . diSections
-    --    inverseSelSecYint (yint + 1) sss
     yint = posSelSecYint cfig invDP (w ^. input . mousePos . _y)
---startDrag :: (Int, Int) -> Configuration -> World -> World
---startDrag (a, b) cfig w = setcontext
---    . fromMaybe (augInvDirectSelect (a, b, IS.singleton b) w)
---    $ do
---        (i, _, xs) <- w ^? hud . hudElement . diSelection . _Just
---        guard $ i == a && b `IS.member` xs
---        return w
---  where
---    setcontext = input . mouseContext .~ OverInvDrag a (Just (a, b)) above bneath
---    above = do
---        sss <- w ^? hud . hudElement . diSections
---        inverseSelSecYint (yint - 1) sss
---    bneath = do
---        sss <- w ^? hud . hudElement . diSections
---        inverseSelSecYint (yint + 1) sss
---    yint = posSelSecYint cfig invDP (w ^. input . mousePos . _y)
 
 concurrentIS :: IS.IntSet -> Bool
 concurrentIS = go . IS.minView