Improve debris slightly

src/Dodge/Data/Machine.hs

@@ -12,6 +12,7 @@ module Dodge.Data.Machine (
     module Dodge.Data.GenParams,
 ) where
 
+import Color.Data
 import ShortShow
 import Dodge.Data.AmmoType
 import Control.Lens

src/Dodge/Data/Prop.hs

@@ -21,6 +21,7 @@ data Prop = ShapeProp
 data DebrisType
     = Gib { _gibSize :: Float , _gibColor :: Color }
     | BlockDebris {_bdColor :: Color}
+    | MetalDebris {_bdColor :: Color}
 
 data Debris = DebrisChunk
     { _dbPos :: Point3