Add tilemap floors to rooms

src/Dodge/Room/Boss.hs

@@ -4,6 +4,7 @@ Rooms containing particularly challenging creatures, that may drop useful loot.
 module Dodge.Room.Boss
   where
 import Dodge.Data
+import Dodge.Default.Room
 import Dodge.Room.Data
 import Dodge.Room.Procedural
 import Dodge.Room.Placement
@@ -23,7 +24,7 @@ import System.Random
 roomGlassOctogon
     :: Float    -- ^ Size
     -> Room
-roomGlassOctogon x = Room
+roomGlassOctogon x = defaultRoom
     { _rmPolys = [rectNSWE x (-x) (-x) x
                  ,rectNSWE 0 (-(x + 40)) (-20) 20
                  ]
@@ -74,7 +75,7 @@ roomCross
     :: Float -- ^ First width/2
     -> Float -- ^ Second width/2
     -> Room
-roomCross x y = Room
+roomCross x y = defaultRoom
     { _rmPolys = [rectNSWE y (-y) (-x) x
                  ,rectNSWE (-x) x y (-y)
                  ]
@@ -112,7 +113,7 @@ roomShuriken x y =
             , (x,y)
             , (0,x)
             ]   ]
-        corner = Room
+        corner = defaultRoom
             { _rmPolys  = ps
             , _rmLinks  = [((x-1,y-20),negate $ pi/2)]
             , _rmPath   = []
@@ -136,7 +137,7 @@ roomTwistCross x y z =
                 ]   
             , rectNSWE (x-5) 0 0 (x-5)
             ]
-        corner = Room
+        corner = defaultRoom
             { _rmPolys  = ps
             , _rmLinks  = [((z,y-20), pi/2)]
             , _rmPath   = []