Fix glassLesson room

2022-03-07 10:42:07 +00:00
parent 81830d87a3
commit 79b5241c32
5 changed files with 78 additions and 27 deletions
@@ -34,6 +34,7 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
    [[AnoApplyInt 0 startRoom]
+    , [SpecificRoom $ glassLesson]
 --    , [SpecificRoom $ fmap (return . PassDown) longRoom]
    , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
    , [SpecificRoom randomChallenges]