Allow for rooms to inherit floor tiling from parents

src/Data/Tile.hs

@@ -1,10 +1,14 @@
 {-# LANGUAGE TemplateHaskell #-}
-module Data.Tile
-    where
+--{-# LANGUAGE StrictData #-}
+module Data.Tile where
 import Geometry.Data
 
 import Control.Lens
 
+data Floor 
+    = InheritFloor
+--    | TileWith Float
+    | Tiled { _tiles :: [Tile]}
 data Tile = Tile
     { _tilePoly :: [Point2]
     , _tileZero :: Point2   -- ^ point in the world where tile texture is 0,0
@@ -12,4 +16,5 @@ data Tile = Tile
     , _tileZ    :: Float
     }
   deriving (Eq, Ord, Show)
+makeLenses ''Floor
 makeLenses ''Tile