Commit mid big tree composing change

2022-06-09 21:25:22 +01:00
parent 8fb80f9691
commit 3edc7a0a58
20 changed files with 263 additions and 248 deletions
@@ -15,7 +15,7 @@ import Geometry

 import Data.List

-roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (LabSubCompTree Room)
+roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (LabTree Room)
 roomsContaining crs its = do
    endroom <- join $ takeOne
        [ randomFourCornerRoomCrsIts crs its