Improve rooms

src/Dodge/LevelGen.hs

@@ -31,6 +31,9 @@ layoutLevelFromSeed i seed = do
     let rmtree = inorderNumberTree $ evalState initialRoomTree g
     putStrLn "Abstract layout: "
     putStrLn $ compactDrawTree $ fmap (show . snd) rmtree
+    let nameshow (r,rid) = _rmName r ++ "-" ++ show rid
+    writeFile "aGeneratedRoomLayout" $ drawTree $ fmap nameshow rmtree
+    putStrLn "Layout with room names written to aGeneratedRoomLayout"
     mrs <- positionRoomsFromTree rmtree
     case mrs of
         Just rs -> do