Move towards removing Annotation

src/Dodge/LevelGen.hs

@@ -54,6 +54,7 @@ layoutLevelFromSeed i seed = do
     appendFile "log/attemptedSeeds" "\n"
     let g = mkStdGen seed
     let treecluster = evalState tutRoomTree (LayVars g 0)
+    --let treecluster = evalState initialRoomTree (LayVars g 0)
     let labts = decomposeSelfTree $ numSelfTree $ combineTree _rmName treecluster
     appendFile "log/treeCluster" ("Seed: " ++ show seed ++ "\n")
     putStrLn "MetaTree clusters:"