Allow for rooms to inherit floor tiling from parents

2021-11-26 13:57:22 +00:00
parent 123bcd2c94
commit 040849a550
9 changed files with 75 additions and 29 deletions
@@ -79,7 +79,7 @@ data Room = Room
    , _rmPartPmnt   :: Maybe ([Placement] -> Placement)
    , _rmExtPmnt    :: Maybe Placement
    , _rmBound      :: [ [Point2] ]
-    , _rmFloor      :: [Tile]
+    , _rmFloor      :: Floor
    , _rmName       :: String
    , _rmShift      :: (Point2, Float)
    , _rmViewpoints :: [Point2]