Cleanup

2022-06-11 14:37:05 +01:00
parent 9c9ec9c553
commit de71c61409
18 changed files with 107 additions and 134 deletions
@@ -27,7 +27,7 @@ glassLesson = do
        [ pure $ door & rmConnectsTo .~ fromWest North 1
        , uppers
        , treeFromPost ( (door & rmConnectsTo .~ S.member (OnEdge East)) 
-            : corridors) $ useAll door]
+            : corridors) $ cleatOnward door]
  where 
    fromWest edge i s = S.member (OnEdge edge) s && S.member (FromWest i) s
    uppers = Node (door & rmConnectsTo .~ fromWest North 0) [pure topRoom]
@@ -56,4 +56,4 @@ glassLesson = do
 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
+    f (Node r rs) = Node r $ return (cleatLabel 0 $ door & rmConnectsTo .~ S.member (OnEdge West)) : rs