Cleanup

src/Dodge/LevelGen.hs

@@ -43,7 +43,7 @@ layoutLevelFromSeed i seed = do
     --putStrLn "Room cluster layout:"
     --putStrLn $ drawTreeSubLabelling $ fmap snd treecluster
     --let rmtree = inorderNumberTree $ expandTree $ fmap fst treecluster
-    let rmtree = inorderNumberTree $ tc
+    let rmtree = inorderNumberTree tc
     putStrLn "Room layout (compact): "
     putStrLn $ compactDrawTree $ fmap (show . snd) rmtree
     let nameshow (r,rid) = _rmName r ++ "-" ++ show rid