Tweak item dropping

ghcidOutput

@@ -1 +1 @@
-All good (594 modules, at 15:00:52)
+All good (594 modules, at 15:18:36)

src/Dodge/FloorItem.hs

@@ -24,6 +24,7 @@ copyItemToFloorID pos it w =
         w'
             & cWorld . lWorld . floorItems . unNIntMap %~ IM.insert flid theflit
             & cWorld . lWorld . itemLocations %~ IM.insert (_unNInt $ _itID it) (OnFloor $ NInt flid)
+            & hud . closeItems %~ (NInt flid:)
   where
     (p', w') = findWallFreeDropPoint (_dimRad $ _itDimension it) pos w
     rot = fst . randomR (- pi, pi) $ _randGen w

src/Dodge/Update/Input/InGame.hs

@@ -111,7 +111,7 @@ tryDropSelected mpos w = do
     cr <- w ^? cWorld . lWorld . creatures . ix 0
     (0, _) <- w ^? hud . hudElement . diSelection . _Just
     xs <- w ^? hud . hudElement . diSelectionExtra
-    return $ IS.foldr (dropItem cr) w xs
+    return . foldl' (flip $ dropItem cr) w . IS.toDescList $ xs
 
 tryPickupSelected :: Int -> Maybe (Int,Int) -> World -> Maybe World
 tryPickupSelected k mpos w = do