Fix bug in manObject update when dropping items

src/Dodge/Update/Input/InGame.hs

@@ -60,7 +60,7 @@ updateUseInputInGame u = updateFunctionKeys $ case u ^. uvWorld . hud . subInven
     f x y i = u
         & uvWorld . hud %~ dodisplayregexinput x y i
         & uvWorld . worldEventFlags . at InventoryChange ?~ ()
-        & uvWorld %~ setInvPosFromSS
+        & uvWorld %~ setInvPosFromSS -- not sure if this is necessary
     dodisplayregexinput filterprism filterlens x di = fromMaybe di $ do
         sss <- di ^? diSections
         msel <- di ^? diSelection
@@ -153,6 +153,7 @@ tryDropSelected mpos w = do
     xs <- selectionSet w
     let xmin = IS.findMin xs
     return
+        . setInvPosFromSS
         . (hud . diSelection ?~ Sel 3 (j - xmin))
         . foldl' (flip $ dropItem cr) w
         . IS.toDescList
@@ -491,27 +492,17 @@ updateBackspaceRegex w = case di ^? subInventory of
     Just NoSubInventory{}
         | secfocus (-1) 0 ->
             w
-                & hud
-                %~ trybackspace (-1) diInvFilter diInvFilter diSelection
-                & worldEventFlags
-                . at InventoryChange
-                ?~ ()
+                & hud %~ trybackspace (-1) diInvFilter diInvFilter diSelection
+                & worldEventFlags . at InventoryChange ?~ ()
     Just NoSubInventory{}
         | secfocus 2 3 ->
             w
-                & hud
-                %~ trybackspace 2 diCloseFilter diCloseFilter diSelection
-                & worldEventFlags
-                . at InventoryChange
-                ?~ ()
+                & hud %~ trybackspace 2 diCloseFilter diCloseFilter diSelection
+                & worldEventFlags . at InventoryChange ?~ ()
     Just CombineInventory{} ->
         w
-            & hud
-            . subInventory
-            %~ trybackspace (-1) ciFilter ciFilter ciSelection
-            & worldEventFlags
-            . at InventoryChange
-            ?~ ()
+            & hud . subInventory %~ trybackspace (-1) ciFilter ciFilter ciSelection
+            & worldEventFlags . at InventoryChange ?~ ()
     _ -> w
   where
     secfocus a b = fromMaybe False $ do