Rework annotations

2022-06-12 13:38:23 +01:00
parent 8b4b6de0c0
commit 2ccb26b289
16 changed files with 161 additions and 154 deletions
@@ -53,7 +53,7 @@ glassLesson = do
            , mntLS vShape (V2 180 200) (V3 160 180 50)
            ]
        ]
-glassLessonRunPast :: RandomGen g => State g (LabTree Room)
-glassLessonRunPast = (f <$> glassLesson) <&> (toOnward "glassLessonRunPast",)
+glassLessonRunPast :: RandomGen g => State g (MetaTree Room)
+glassLessonRunPast = (f <$> glassLesson) >>= rToOnward "glassLessonRunPast"
  where
    f (Node r rs) = Node r $ return (cleatLabel 0 $ door & rmConnectsTo .~ S.member (OnEdge West)) : rs