Improve composing tree logging

src/Dodge/LevelGen.hs

@@ -37,6 +37,9 @@ layoutLevelFromSeed i seed = do
     let g = mkStdGen seed
     let treecluster = evalState initialRoomTree (g,0)
     --tc <- composeAndLog [0] (\str -> putStrLn str >> appendFile "log/treeCluster" str) treecluster
+--    let labts = decomposeTree $ numMetaTree treecluster
+    let labts = decomposeSelfTree $ numSelfTree $ combineTree _rmName treecluster
+    mapM_ (putStrLn . drawTree . fmap show) labts
     let tc = composeTree treecluster
     ----    (strs,tc) = composeTree' treecluster
     ----appendFile "log/TreeCluster" ("Seed: "++ show seed)