Allow chunk debris to fall down chasms

src/Dodge/Prop/Draw.hs

@@ -4,7 +4,6 @@ module Dodge.Prop.Draw (
     debrisSPic,
 ) where
 
-import Dodge.Material.Color
 import Dodge.Block.Debris
 import Control.Lens
 import Dodge.Data.Prop
@@ -22,7 +21,7 @@ debrisSPic :: Debris -> SPic
 debrisSPic db = translateSP (_dbPos db) . overPosSP (Q.rotate (_dbRot db)) $
      case db ^. dbType of
         Gib x col -> noPic $ drawGib x col
-        BlockDebris m -> noPic . colorSH (materialColor m) $ cubeShape 4
+        BlockDebris m -> noPic . colorSH m $ cubeShape 4
 
 drawProp :: PropDraw -> Prop -> SPic
 drawProp = \case