Cleanup

2022-06-11 14:37:05 +01:00
parent 9c9ec9c553
commit de71c61409
18 changed files with 107 additions and 134 deletions
@@ -51,8 +51,7 @@ longRoomRunPast :: RandomGen g => State g (LabTree Room)
 longRoomRunPast = do
    r <- longRoom
    rToOnward "longRoomRunPast"
-        $ treeFromTrunk [ door] $ Node r
-            [ pure $ useAll door
-            , treeFromPost [ corridor & rmConnectsTo .~ S.member InLink] 
-                (useLabel 0 door)
+        $ treeFromTrunk [door] $ Node r
+            [ pure $ cleatOnward door
+            , treePost [ corridor & rmConnectsTo .~ S.member InLink, cleatLabel 0 door ]
            ]