summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/vytree.ml4
-rw-r--r--test/vyconf_tree_test.ml4
2 files changed, 4 insertions, 4 deletions
diff --git a/src/vytree.ml b/src/vytree.ml
index 1f046dc..8c64fc6 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -22,7 +22,7 @@ let children_of_node node = node.children
let insert_immediate node name data =
let new_node = make name data in
- let children' = node.children @ [new_node] in
+ let children' = new_node :: node.children in
{ node with children = children' }
let delete_immediate node name =
@@ -30,7 +30,7 @@ let delete_immediate node name =
{ node with children = children' }
let adopt node child =
- { node with children = (node.children @ [child]) }
+ { node with children = child :: node.children }
let replace node child =
let children = node.children in
diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml
index bf9f982..3e9a0e0 100644
--- a/test/vyconf_tree_test.ml
+++ b/test/vyconf_tree_test.ml
@@ -28,7 +28,7 @@ let test_insert_multiple_children test_ctxt =
let node' = insert () node ["foo"] () in
let node'' = insert () node' ["bar"] () in
assert_equal (children_of_node node'')
- [make "foo" (); make "bar" ()]
+ [make "bar" (); make "foo" ()]
(* Inserting a child at a two-item path creates a tree
two levels deep *)
@@ -51,7 +51,7 @@ let test_list_children test_ctxt =
let node = make "root" () in
let node' = insert () node ["foo"] () in
let node'' = insert () node' ["bar"] () in
- assert_equal (list_children node'') ["foo"; "bar"]
+ assert_equal (list_children node'') ["bar"; "foo"]
(* Deleting a child, well, deletes it *)
let test_delete_immediate_child test_ctxt =