Remove _itInvColor

src/Dodge/Default/Item.hs

@@ -4,7 +4,6 @@ module Dodge.Default.Item (
     module Dodge.Default.Item.Effect,
 ) where
 
-import Color
 import Control.Lens
 import qualified Data.Map.Strict as M
 import Dodge.Data.Item
@@ -27,7 +26,7 @@ defaultItem =
         , _itEffect = defaultItEffect
         , _itID = 0
         , _itIsHeld = False
-        , _itInvColor = yellow
+--        , _itInvColor = yellow
         , _itInvSize = 1
         , _itLocation = InVoid
         , _itDimension = defaultItemDimension
@@ -40,22 +39,13 @@ defaultItem =
         }
 
 defaultLeftItem :: Item
-defaultLeftItem =
-    defaultItem
-        & itUse .~ defaultLeftUse
-        & itInvColor .~ cyan
+defaultLeftItem = defaultItem & itUse .~ defaultLeftUse
 
 defaultHeldItem :: Item
-defaultHeldItem =
-    defaultItem
-        & itInvColor .~ white
-        & itUse .~ defaultHeldUse
+defaultHeldItem = defaultItem & itUse .~ defaultHeldUse
 
 defaultCraftItem :: Item
-defaultCraftItem =
-    defaultItem
-        & itUse .~ CraftUse 1
-        & itInvColor .~ green
+defaultCraftItem = defaultItem & itUse .~ CraftUse 1
 
 defaultItemType :: ItemType
 defaultItemType = ItemType NoItemType mempty
@@ -73,7 +63,6 @@ defaultWeapon :: Item
 defaultWeapon =
     defaultHeldItem
         & itUse .~ defaultHeldUse
-        & itInvColor .~ white
         & itType . iyModules
             .~ M.fromList
                 [ (ModTarget, EMPTYMODULE)
@@ -81,8 +70,5 @@ defaultWeapon =
                 ]
 
 defaultConsumable :: Item
-defaultConsumable =
-    defaultItem
-        & itUse .~ ConsumeUse CDoNothing 1
-        & itInvColor .~ blue
+defaultConsumable = defaultItem & itUse .~ ConsumeUse CDoNothing 1