Make crytal walls destructible by shatterGun

src/Dodge/Room/RoadBlock.hs

@@ -1,5 +1,6 @@
 {- Connecting rooms designed with a pass-through technique in mind.  -}
 module Dodge.Room.RoadBlock where
+import Dodge.Default.Wall
 import Dodge.Cleat
 import Dodge.Data
 import Dodge.RoomLink
@@ -66,7 +67,7 @@ blockedCorridor :: RandomGen g => State g (Tree Room)
 blockedCorridor = longBlockedCorridor 0
 
 dirtPoly :: [Point2] -> PSType
-dirtPoly = PutBlock DirtBlock 1 dirtWall . reverse
+dirtPoly = PutBlock DirtBlock 1 defaultDirtWall . reverse
 
 -- | A single corridor with a destructible block blocking it.
 blockedCorridorCloseBlocks :: RandomGen g => State g Room