Remove _itInvColor

src/Dodge/Inventory/SelectionList.hs

@@ -9,6 +9,7 @@ import Dodge.Data.SelectionList
 import Dodge.Data.World
 import Dodge.Item.SlotsTaken
 import Dodge.Item.Display
+import Dodge.Item.InventoryColor
 import LensHelp
 import Picture.Base
 
@@ -26,7 +27,7 @@ invSelectionItem cr i it =
   where
     anyhotkey = maybe [] ((' ':) .hotkeyToString) (cr ^? crInvHotkeys . ix i)
     anyequippos = maybe [] (rightPad 8 ' ' . (' ':) . eqPosText) (cr ^? crInvEquipped . ix i)
-    col = _itInvColor it
+    col = itemInvColor it
     (yoff,pics) =  case _itCurseStatus it of
         UndroppableIdentified -> itemDisplayOffset cr it
         _ -> itemDisplayOffset cr it
@@ -64,5 +65,5 @@ closeObjectToSelectionItem e =
 --
 closeObjectToTextPictures :: Either FloorItem Button -> ([String], Color)
 closeObjectToTextPictures e = case e of
-    Left flit -> let it = _flIt flit in (basicItemDisplay it, _itInvColor it)
+    Left flit -> let it = _flIt flit in (basicItemDisplay it, itemInvColor it)
     Right bt -> ([_btText bt], yellow)