Remove Annotation datatype

src/Dodge/LevelGen.hs

@@ -1,6 +1,5 @@
 module Dodge.LevelGen (generateWorldFromSeed) where
 
-import Dodge.Annotation.Data
 import Dodge.Layout
 import Data.Preload.Render
 import Control.Lens
@@ -53,8 +52,8 @@ layoutLevelFromSeed i seed = do
     putStrLnAppend "log/attemptedSeeds" $ "Generating level with seed " ++ show seed
     appendFile "log/attemptedSeeds" "\n"
     let g = mkStdGen seed
-    let treecluster = evalState tutRoomTree (LayVars g 0)
-    --let treecluster = evalState initialRoomTree (LayVars g 0)
+    --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:"