Cleanup

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