Rewrite of item color in inventory, runs slowly

src/Dodge/Item/Display.hs

@@ -5,15 +5,18 @@ module Dodge.Item.Display (
     basicItemDisplay,
 ) where
 
+import Dodge.Data.ComposedItem
 import ShortShow
 import Data.Maybe
 import Dodge.Data.Creature
 import LensHelp
 import Padding
 
-itemDisplay :: Creature -> Item -> [String]
-itemDisplay cr itm =
+itemDisplay :: Creature -> ComposedItem -> [String]
+itemDisplay cr ci =
     zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr itm)
+  where
+    itm = _cItem ci
 
 zipWithDefaults :: (a -> c) -> (b -> c) -> (a -> b -> c) -> [a] -> [b] -> [c]
 zipWithDefaults f g h = go