Commit before unifying placements in rooms (in/out)

src/TreeHelp.hs

@@ -13,6 +13,7 @@ module TreeHelp
     , applyToSubtree
     , applyToSubforest
     , treeFromPost
+    , treePost
     , treeFromTrunk
     , splitTrunk
     , applyToRandomNode
@@ -36,6 +37,11 @@ Safe.  -}
 treeFromPost :: [a] -> a -> Tree a
 treeFromPost xs = treeFromTrunk xs . pure
 
+{- | Creates a linear tree from a list.
+Unsafe.  -}
+treePost :: [a] -> Tree a
+treePost xs = treeFromPost (init xs) (last xs)
+
 {- | Creates a tree with one trunk branch, 
 input as a list, that ends in another tree.  -}
 treeFromTrunk