Cleanup

2022-05-20 21:47:18 +01:00
parent da302aad0c
commit 61fe9b7df4
11 changed files with 36 additions and 30 deletions
@@ -145,7 +145,8 @@ slowDoorRoom = do
 slowDoorRoomRunPast :: RandomGen g => State g (LabSubCompTree Room)
 slowDoorRoomRunPast = do
    r <- slowDoorRoom
-    (return $ treeFromTrunk [PassDown door] $ Node (PassDown r)
+    return (treeFromTrunk [PassDown door] $ Node (PassDown r)
        [ singleUseAll door
        , return (UseLabel 0 $ door & rmConnectsTo .~ S.member InLink)
-        ] ) <&> (,TreeSubLabelling "slowDoorRoomRunPast" Nothing)
+        ] 
+        ,TreeSubLabelling "slowDoorRoomRunPast" Nothing)