Cleanup

2022-06-10 20:53:01 +01:00
parent 1b7463f287
commit 6966e76206
14 changed files with 54 additions and 75 deletions
@@ -50,12 +50,9 @@ longRoom = do
 longRoomRunPast :: RandomGen g => State g (LabTree Room)
 longRoomRunPast = do
    r <- longRoom
-    return (toOnward "longRoomRunPast"
-        , treeFromTrunk [ door]
-        (Node ( r)
-            [ pure door
+    rToOnward "longRoomRunPast"
+        $ treeFromTrunk [ door] $ Node r
+            [ pure $ useAll door
            , treeFromPost [ corridor & rmConnectsTo .~ S.member InLink] 
                (useLabel 0 door)
            ]
-        )
-        )