Cleanup

2021-11-22 13:21:26 +00:00
parent 09e774d009
commit b4759e4a27
8 changed files with 30 additions and 116 deletions
@@ -21,7 +21,5 @@ branchRectWith t = do
    y <- state $ randomR (100,200)
    b <- t
    root <- randomiseOutLinks $ roomRectAutoLinks x y
-    return $ Node (PassDown root) [Node (UseAll door) [], rToL <$> treeFromTrunk [PassDown door] b]
-  where 
-    rToL (UseAll r) = PassDown r
-    rToL (PassDown r)  = PassDown r
+    return $ Node (PassDown root) [Node (UseAll door) [], changeToPassDown <$> 
+        treeFromTrunk [PassDown door] b]