Create post world load function

src/Dodge/Layout.hs

@@ -1,6 +1,7 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Layout (
     generateLevelFromRoomList,
+    tilesFromRooms,
 ) where
 
 import Dodge.Path.Translate
@@ -211,6 +212,9 @@ gameRoomFromRoom rm =
 floorsFromRooms :: [Room] -> [(Point3, Point3)]
 floorsFromRooms = concatMap (concatMap tileToRenderList . getTiles . _rmFloor . doRoomShift)
 
+tilesFromRooms :: [Room] -> [Tile]
+tilesFromRooms = concatMap (getTiles . _rmFloor . doRoomShift)
+
 floorsFromGenWorld :: GenWorld -> [(Point3, Point3)]
 floorsFromGenWorld = floorsFromRooms . IM.elems . _genRooms