Tidying

src/Dodge/Inventory.hs

@@ -26,6 +26,7 @@ module Dodge.Inventory (
 ) where
 
 import Color
+import Dodge.Inventory.Color
 import qualified Data.Map.Strict as M
 import Data.Maybe
 import Dodge.Base
@@ -141,9 +142,6 @@ selNumMidHeight cfig w i = V2 (150 - hw) (hh + bump - (20 * fromIntegral ipos +
 selNumCol :: Int -> World -> Color
 selNumCol i w = fromMaybe white $ trimapAugmentInv _itInvColor invDimColor closeObjectCol w IM.!? i
 
-invDimColor :: Color
-invDimColor = greyN 0.7
-
 invSelPos :: World -> Int
 invSelPos w = splitgap + (foldl' (+) 0 . fst $ IM.split invsel (augmentedInvSizes w))
   where