Add tilemap floors to rooms

src/Dodge/Room/Data.hs

@@ -3,7 +3,9 @@
 module Dodge.Room.Data
   where
 import Dodge.LevelGen.Data
-import Geometry
+--import Geometry
+import Geometry.Data
+import Data.Tile
 
 import Control.Lens
 
@@ -22,5 +24,6 @@ data Room = Room
     , _rmPath :: [(Point2, Point2)]
     , _rmPS :: [Placement]
     , _rmBound :: [ [Point2] ]
+    , _rmFloor :: [Tile]
     }
 makeLenses ''Room