Polymorphise meta tree labels

src/Dodge/LevelGen.hs

@@ -42,9 +42,6 @@ layoutLevelFromSeed i seed = do
     ----appendFile "log/TreeCluster" ("Seed: "++ show seed)
     ----mapM_ (appendFile "log/treeCluster" . ('\n':))  strs
     ----mapM_ putStrLn strs
-    --putStrLn "Room cluster layout:"
-    --putStrLn $ drawTreeSubLabelling $ fmap snd treecluster
-    --let rmtree = inorderNumberTree $ expandTree $ fmap fst treecluster
     let rmtree = inorderNumberTree tc
     putStrLn "Room layout (compact): "
     putStrLn $ compactDrawTree $ fmap (show . snd) rmtree
@@ -66,13 +63,6 @@ layoutLevelFromSeed i seed = do
             let (seed',_) = random g
             layoutLevelFromSeed i' seed'
 
-drawTreeSubLabelling :: Tree TreeSubLabelling -> String
-drawTreeSubLabelling t = drawTree (fmap _topLabel t)
-    ++ concatMap f (flatten t)
-  where
-    f (TreeSubLabelling _ Nothing) = ""
-    f (TreeSubLabelling l (Just t')) = l ++ ":\n" ++ drawTreeSubLabelling t'
-
 reversePair :: (a,b) -> (b,a)
 reversePair (a,b) = (b,a)