Record mouse over combination selections

src/Dodge/Update.hs

@@ -280,6 +280,7 @@ functionalUpdate u =
         . over uvWorld updateWheelEvents
         . over uvWorld (updateMouseInventorySelection (u ^. uvConfig))
         . over uvWorld (updateMouseOverInventory (u ^. uvConfig))
+        . over uvWorld (updateMouseOverCombineInventory (u ^. uvConfig))
         . over uvWorld zoneClouds
         . over uvWorld zoneCreatures
         -- . over uvWorld updateInventorySelectionList
@@ -387,6 +388,15 @@ updateMouseOverInventory cfig w = fromMaybe w $ do
   where
     ldp = invDisplayParams w
 
+updateMouseOverCombineInventory :: Configuration -> World -> World
+updateMouseOverCombineInventory cfig w = fromMaybe w $ do
+    sss <- w ^? hud . hudElement . subInventory . ciSections
+    return $
+        w & hud . hudElement . subInventory . ciMouseOver
+            .~ inverseSelNumPos cfig ldp sss (w ^. input . mousePos)
+  where
+    ldp = secondColumnParams
+
 updateWheelEvents :: World -> World
 updateWheelEvents w
     | yi == 0 = w