Cleanup item combinations, prevent creation of identical items

src/Dodge/Event.hs

@@ -18,6 +18,7 @@ import Dodge.Combine
 import Dodge.Event.Keyboard
 --import Dodge.Event.Menu
 import Dodge.Base
+import Dodge.Combine.Module
 import Dodge.Data
 --import Dodge.Base.Window
 import Dodge.PreloadData
@@ -109,7 +110,7 @@ doCombine i w = case combineItemListYou w !? i of
     Nothing -> w
     Just (is,it) -> enterCombineInv
         . uncurry (putItemInInvID yid)
-        . copyItemToFloorID (_crPos $ you w) it
+        . copyItemToFloorID (_crPos $ you w) (applyModules it)
         $ foldr (rmInvItem yid) w (sort is)
   where
     yid = _yourID w