Add tilemap floors to rooms

src/Dodge/Room/Airlock.hs

@@ -5,6 +5,7 @@ module Dodge.Room.Airlock
     where
 import Dodge.Room.Data
 import Dodge.Room.Placement
+import Dodge.Default.Room
 import Dodge.Data
 import Dodge.LevelGen.Data
 import Dodge.LevelGen.Switch
@@ -18,7 +19,7 @@ import Control.Monad.State
 import Control.Lens
 
 airlockOneWay :: Int -> Room
-airlockOneWay n = Room
+airlockOneWay n = defaultRoom
     { _rmPolys = [rectNSWE 90 0 0 40]
     , _rmLinks = lnks
     , _rmPath  = []
@@ -49,7 +50,7 @@ Straight airlock -}
 airlock0 
     :: Int -- ^ Door id
     -> Room
-airlock0 n = Room
+airlock0 n = defaultRoom
     { _rmPolys =
         [ rectNSWE 100 0 0 40
         , rectNSWE 65 35 (-40) 20
@@ -78,7 +79,7 @@ airlock0 n = Room
 airlock90 
     :: Int -- ^ Door id
     -> Room
-airlock90 n = Room
+airlock90 n = defaultRoom
     { _rmPolys =
         [ rectNSWE 100 10 10 100
         , rectNSWE 20  0  20 60
@@ -120,7 +121,7 @@ airlock90 n = Room
 airlockCrystal
     :: Int -- ^ Door id
     -> Room
-airlockCrystal n = Room
+airlockCrystal n = defaultRoom
     { _rmPolys =
         [ rectNSWE 140 0 0 40
         , orderPolygon