Add tilemap floors to rooms

src/Dodge/Room/Treasure.hs

@@ -4,11 +4,12 @@ Typically dead ends.
 -}
 module Dodge.Room.Treasure
     where
-import Geometry
 import Dodge.Data
 import Dodge.Room.Data
 import Dodge.Room.Placement
+import Dodge.Default.Room
 import Dodge.LevelGen.Data
+import Geometry
 
 --import Data.List
 import Control.Monad.State
@@ -21,7 +22,7 @@ triLootRoom
     :: Float    -- Width
     -> Float    -- Height
     -> State g Room
-triLootRoom w h = pure $ Room
+triLootRoom w h = pure $ defaultRoom
     { _rmPolys  = [ tri
                   , base
                     ]