Work on wall materials etc

src/Dodge/Room/Airlock.hs

@@ -3,12 +3,12 @@
 {- Rooms that contain two doors and a switch alternating both.  -}
 module Dodge.Room.Airlock where
 
+import Dodge.Default.Wall
 import Dodge.Room.Path
 import Control.Lens
 import Control.Monad
 import Data.Maybe
 import Dodge.Data.GenWorld
-import Dodge.Default.Door
 import Dodge.Default.Room
 import Dodge.LevelGen.PlacementHelper
 import Dodge.LevelGen.Switch

src/Dodge/Room/Door.hs

@@ -1,9 +1,9 @@
 {- Rooms that connect other rooms, blocking sight.  -}
 module Dodge.Room.Door where
 
+import Dodge.Default.Wall
 import Data.Maybe
 import Dodge.Data.GenWorld
-import Dodge.Default.Door
 import Dodge.Default.Room
 import Dodge.Placement.Instance
 import Dodge.RoomLink

src/Dodge/Room/LongDoor.hs

@@ -2,6 +2,7 @@
 -- | Rooms containing long doors, probably with a big reveal behind them.
 module Dodge.Room.LongDoor where
 
+import Dodge.Default.Wall
 import Control.Monad
 import Dodge.LevelGen.Switch
 import Data.Maybe

src/Dodge/Room/Procedural.hs

@@ -10,6 +10,7 @@ module Dodge.Room.Procedural (
     makeGrid,
 ) where
 
+import Dodge.Default.Wall
 import Control.Monad
 import Tile
 import qualified Data.Set as S