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
@@ -53,7 +53,7 @@ glassLesson = do
            , mntLS vShape (V2 180 200) (V3 160 180 50)
            ]
        ]
-glassLessonRunPast :: RandomGen g => State g (LabSubCompTree Room)
+glassLessonRunPast :: RandomGen g => State g (LabTree Room)
 glassLessonRunPast = (f <$> glassLesson) <&> (toOnward "glassLessonRunPast",)
  where
    f (Node r rs) = Node r $ return (useLabel 0 $ door & rmConnectsTo .~ S.member (OnEdge West)) : rs