Fix combine item menu

src/Dodge/Event.hs

@@ -98,7 +98,7 @@ handlePressedMouseButton but w
         _ -> Just w
     | otherwise = Just w
 
--- note "reverse" on the inventory indices; otherwise
+-- note "sort" on the inventory indices; otherwise
 -- lower items may be shifted up and items below these removed instead
 doCombine :: Int -> World -> World
 doCombine i w = case combineItemListYou w !? i of
@@ -106,7 +106,7 @@ doCombine i w = case combineItemListYou w !? i of
     Just (is,it) -> enterCombineInv
         . uncurry (putItemInInvID yid)
         . copyItemToFloorID (_crPos $ you w) it
-        $ foldr (rmInvItem yid) w (reverse is) & enterCombineInv
+        $ foldr (rmInvItem yid) w (sort is)
   where
     yid = _yourID w