diff options
| -rw-r--r-- | src/vytree.ml | 4 | ||||
| -rw-r--r-- | test/vyconf_tree_test.ml | 4 |
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 = |