Cleanup

2022-05-20 21:47:18 +01:00
parent da302aad0c
commit 61fe9b7df4
11 changed files with 36 additions and 30 deletions
@@ -21,7 +21,8 @@ roomsContaining crs its = do
        [ randomFourCornerRoomCrsIts crs its 
        , tanksRoom crs its
        ]
-    (return $ treeFromPost [] $ UseAll endroom) <&> (,TreeSubLabelling "roomsContaining" Nothing)
+    return (treeFromPost [] $ UseAll endroom
+        ,TreeSubLabelling "roomsContaining" Nothing)

 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do