Cleanup

2022-05-20 21:47:18 +01:00
parent da302aad0c
commit 61fe9b7df4
11 changed files with 36 additions and 30 deletions
@@ -100,7 +100,7 @@ someCrits = do
 corridorBoss :: RandomGen g => Creature -> State g (LabSubCompTree Room)
 corridorBoss cr = do
    endroom <- bossRoom cr
-    (return $ treeFromPost (replicate 5 $ PassDown corridor) 
+    return (treeFromPost (replicate 5 $ PassDown corridor) 
                            (PassDown endroom)
-        ) <&> (,TreeSubLabelling "corridorBoss" Nothing)
+        ,TreeSubLabelling "corridorBoss" Nothing)