Make display colour for introscan white

src/Dodge/Data/ComposedItem.hs

@@ -43,6 +43,7 @@ data ItemStructuralFunction
     | GadgetPlatformSF
     | WeaponScopeSF
     | WeaponTargetingSF
+    | IntroScanSF
     | TriggerSF
     | AugmentedHUDSF
     | AmmoMagSF AmmoType

src/Dodge/Item/Grammar.hs

@@ -131,6 +131,7 @@ getAmmoLinks itm =
 
 itemToFunction :: Item -> ItemStructuralFunction
 itemToFunction itm = case itm ^. itType of
+    INTROSCAN {} -> IntroScanSF
     HELD LASER -> WeaponTargetingSF
     HELD{} -> case itm ^? itUseCondition of
         Just UseableWhenAimed -> HeldPlatformSF

src/Dodge/Item/InventoryColor.hs

@@ -8,6 +8,7 @@ import Dodge.Data.ComposedItem
 
 itemInvColor :: ComposedItem -> Color
 itemInvColor ci = case ci ^. _2 of
+    IntroScanSF -> white
     UnloadedWeaponSF -> mixColorsLinear 0.5 0.5 red white
     HeldPlatformSF -> white
     MakeAutoSF -> white