Rewrite of item color in inventory, runs slowly

src/Dodge/Combine.hs

@@ -3,6 +3,7 @@ module Dodge.Combine (
     combineList,
 ) where
 
+import Dodge.Item.Grammar
 import Data.Bifunctor
 import Data.Foldable
 import Data.List (sort, sortOn)
@@ -24,7 +25,7 @@ combineList = map f . combineItemListYouX
             { _siPictures = basicItemDisplay itm
             , _siHeight = _itInvSize itm
             , _siIsSelectable = True
-            , _siColor = itemInvColor itm
+            , _siColor = itemInvColor . pciToCI $ basePCI itm
             , _siOffX = 0
             , _siPayload = CombinableItem is itm []
             }