Add modules to items, upgrades the can persist through combinations

src/Dodge/Render/HUD.hs

@@ -84,6 +84,11 @@ subInventoryDisplay cfig w = case _inventoryMode w of
     CombineInventory mi -> pictures
         [ invHead cfig "COMBINE"
         , listTextPicturesAt subInvX 60 cfig $ combineListStringPictures w
+        , fromMaybe mempty $ do
+            i <- mi
+            cpos  <- combinePoss  w !? i
+            strs  <- fmap (snd . snd) (combineItemListYou' w !? i)
+            return $ listTextPicturesAtOffset (subInvX + 150) 60 cfig cpos $ map (color red . text) strs
         , fromMaybe mempty $ do
             i <- mi
             cpos  <- combinePoss  w !? i
@@ -290,7 +295,6 @@ itemText it = f $ case _itCurseStatus it of
   where
     thecolor = _itInvColor it
     f = take (itSlotsTaken it) . (++ replicate 10 (color (_itInvColor it) $ text "*"))
-    
 
 openCursorAt 
     :: Float    -- ^ Width