Cleanup

src/Dodge/Floor.hs

@@ -94,7 +94,7 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
 {- | A test level tree. -}
 initialRoomTree :: RandomGen g => State g (Tree Room)
 initialRoomTree = do
-    expandTreeBy id <$> mapM anoToRoomTree initialAnoTree
+    expandTree <$> mapM anoToRoomTree initialAnoTree
 
 layoutLevelFromSeed :: Int -> Int -> IO [Room]
 layoutLevelFromSeed i seed = do