Hide group selection in combine inventory, mempty on combine

src/Dodge/Update/Input/InGame.hs

@@ -268,9 +268,6 @@ shiftInvItems k x ab bn xs ss w = setSelWhileDragging . fromMaybe w $ do
             guard $ Just (k,maxi+1) /= bn
             return $ shiftInvItemsDown k xs w
         _ -> Nothing
---    if x < (k,mini)
---        then 
---        else 
 
 setSelWhileDragging :: World -> World
 setSelWhileDragging w = fromMaybe w $ do
@@ -539,7 +536,6 @@ toggleTweakInv w = case w ^? hud . hudElement . subInventory of
     thepointer = hud . hudElement . subInventory
 
 tryCombine ::
-    --    IM.IntMap (SelectionSection CombinableItem) ->
     (Int, Int) ->
     World ->
     World
@@ -551,6 +547,7 @@ tryCombine (i, j) w = fromMaybe w $ do
         snd (createItemYou it (foldr (destroyInvItem 0) w (sort is)))
             & cWorld . lWorld . creatures . ix 0 . crHammerPosition .~ HammerDown
             & soundStart InventorySound p wrench1S Nothing
+            & hud . hudElement . diSelection . _Just . _3 .~ mempty
 
 maybeExitCombine :: World -> World
 maybeExitCombine w