Cleanup

src/Dodge/DisplayInventory.hs

@@ -20,7 +20,6 @@ import Dodge.Data.Config
 import Dodge.Data.SelectionList
 import Dodge.Data.Universe
 import Dodge.Inventory.CheckSlots
-import Dodge.Inventory.Color
 import Dodge.Inventory.SelectionList
 import Dodge.SelectionList
 import LensHelp
@@ -130,6 +129,10 @@ updateDisplaySections w cfig sss =
             return $ IM.filter (plainRegex str) itms
         numfiltitems = "  " ++ show (length itms - length itms') ++ " FILTERED"
 
+
+invDimColor :: Color
+invDimColor = greyN 0.7
+
 -- it is annoying that this is necessary
 updateInventorySectionItems :: World -> World
 updateInventorySectionItems w = w