Allow selecting using mouse click in combine inventory

ghcidOutput

@@ -1 +1 @@
-All good (594 modules, at 00:29:19)
+All good (594 modules, at 00:48:31)

src/Dodge/Update/Input/InGame.hs

@@ -105,10 +105,13 @@ updateCombineInvClick msel sss w = fromMaybe trydocombination $ do
             & hud . hudElement . subInventory . ciFilter .~ Nothing
         _ -> w & hud . hudElement . subInventory . ciFilter ?~ ("<" ++ str)
   where
-    trydocombination = 
-        (worldEventFlags . at InventoryChange ?~ ()) . maybeExitCombine $
-            tryCombine sss msel w
-                & worldEventFlags . at CombineInventoryChange ?~ ()
+    trydocombination = case w ^? hud . hudElement . subInventory . ciMouseOver . _Just of
+        x@Just{} | x /= msel -> w & hud . hudElement . subInventory . ciSelection .~ x
+                    & worldEventFlags . at CombineInventoryChange ?~ ()
+        _ ->
+            (worldEventFlags . at InventoryChange ?~ ()) . maybeExitCombine $
+                tryCombine sss msel w
+                    & worldEventFlags . at CombineInventoryChange ?~ ()
 
 --checkCombineSelectionExists :: SubInventory -> SubInventory
 --checkCombineSelectionExists x@CombineInventory{_ciSections=sss,_ciSelection=msel}