Make display colour for introscan white

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