Implement combining of items

src/Dodge/Event/Keyboard.hs

@@ -3,6 +3,7 @@ module Dodge.Event.Keyboard
     ( handleKeyboardEvent
     ) where
 import Dodge.Data
+import Dodge.Combine
 import Dodge.Save
 import Dodge.Base
 import Dodge.Reloading
@@ -50,7 +51,7 @@ handlePressedKeyInGame scode w = case scode of
     ScancodeR   -> Just $ fromMaybe w $ startReloadingWeapon (you w) w
     ScancodeT   -> Just $ testEvent w
     ScancodeX   -> Just $ w & inventoryMode %~ toggleInv TweakInventory
-    ScancodeC   -> Just $ w & inventoryMode %~ toggleInv CombineInventory
+    ScancodeC   -> Just $ toggleCombineInv w
     ScancodeI   -> Just $ w & inventoryMode %~ toggleInv InspectInventory
     _           -> Just w