Continue work on generation annotations

2022-06-12 14:37:56 +01:00
parent 2ccb26b289
commit eeec9248bb
4 changed files with 25 additions and 12 deletions
@@ -35,7 +35,7 @@ layoutLevelFromSeed i seed = do
    putStrLn $ "Generating level with seed " ++ show seed
    appendFile "log/attemptedSeeds" $ show seed ++ "\n"
    let g = mkStdGen seed
-    let treecluster = evalState initialRoomTree g
+    let treecluster = evalState initialRoomTree (g,0)
    tc <- composeAndLog $ treecluster
    ----    (strs,tc) = composeTree' treecluster
    ----appendFile "log/TreeCluster" ("Seed: "++ show seed)