Rework annotations

2022-06-12 13:38:23 +01:00
parent 8b4b6de0c0
commit 2ccb26b289
16 changed files with 161 additions and 154 deletions
@@ -36,7 +36,7 @@ layoutLevelFromSeed i seed = do
    appendFile "log/attemptedSeeds" $ show seed ++ "\n"
    let g = mkStdGen seed
    let treecluster = evalState initialRoomTree g
-    tc <- composeAndLog $ cmpToMT treecluster
+    tc <- composeAndLog $ treecluster
    ----    (strs,tc) = composeTree' treecluster
    ----appendFile "log/TreeCluster" ("Seed: "++ show seed)
    ----mapM_ (appendFile "log/treeCluster" . ('\n':))  strs