Cleanup

2022-06-11 14:37:05 +01:00
parent 9c9ec9c553
commit de71c61409
18 changed files with 107 additions and 134 deletions
@@ -23,6 +23,6 @@ branchRectWith t = do
    b <- t
    rt <- shuffleLinks $ roomRectAutoLinks x y
    return $ Node rt 
-        [ Node (useAll door) []
+        [ pure $ cleatOnward door
        , treeFromTrunk [door] b
        ]