Cleanup

2022-06-10 20:53:01 +01:00
parent 1b7463f287
commit 6966e76206
14 changed files with 54 additions and 75 deletions
@@ -115,7 +115,5 @@ someCrits = do
 corridorBoss :: RandomGen g => Creature -> State g (LabTree Room)
 corridorBoss cr = do
    endroom <- bossRoom cr
-    return ( toOnward ("corridorBoss-"++_crName cr)
-        , treeFromPost (replicate 5 $  corridor) ( endroom)
-        )
-
+    rToOnward ("corridorBoss-"++_crName cr)
+        $ treeFromPost (replicate 5 corridor) endroom