Add modules to items, upgrades the can persist through combinations

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -17,8 +17,9 @@ import Control.Lens
 basicItemDisplay :: Item -> [String]
 basicItemDisplay it = Prelude.take (itSlotsTaken it) $
     (midPadL 15 ' ' thename (' ' : thenumber) ++ theparam)
-    : repeat "*"
+    : moduleStrings ++ repeat "*"
   where 
+    moduleStrings = fromMaybe [] $ it ^? itModules . modHitEffect . modName
     thename  = _itName it
     thenumber = case it ^? itConsumption of
         Just am@LoadableAmmo{} -> case _reloadState am of