This commit is contained in:
2022-02-13 17:29:32 +00:00
parent eba1713895
commit 40f1d987cb
21 changed files with 109 additions and 171 deletions
-2
View File
@@ -96,5 +96,3 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
initialRoomTree :: RandomGen g => State g (Tree Room)
initialRoomTree = do
expandTree <$> mapM anoToRoomTree initialAnoTree