Cleanup

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