Reimplement dragging upwards with mouse

src/Dodge/Inventory/Location.hs

@@ -10,7 +10,6 @@ import qualified Data.IntSet as IS
 import Data.Maybe
 import Dodge.Base.You
 import Dodge.Data.Item.Use.Consumption.LoadAction
-import Dodge.Data.SelectionList
 import Dodge.Data.World
 import Dodge.Item.Grammar
 import qualified IntMapHelp as IM
@@ -72,7 +71,6 @@ setInvPosFromSS w =
         & cWorld . lWorld . creatures . ix 0 . crManipulation . manObject .~ thesel
   where
     thesel = fromMaybe SelNothing $ do
-        sss <- w ^? hud . hudElement . diSections
         (i, j) <- w ^? hud . hudElement . diSelection . _Just
         case i of
             (-1) -> Just SortInventory