Make combine and tweak menus servicable

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -16,8 +16,8 @@ import Control.Lens
 {- | Displays the item name, ammo if loaded, and any selected '_itCharMode'.  -}
 basicItemDisplay :: Item -> [String]
 basicItemDisplay it = Prelude.take (itSlotsTaken it) $
-    [midPadL 15 ' ' thename (' ' : thenumber) ++ theparam]
-    ++ repeat "*"
+    (midPadL 15 ' ' thename (' ' : thenumber) ++ theparam)
+    : repeat "*"
   where 
     thename  = _itName it
     thenumber = case it ^? itConsumption of