From aed10315b97f770e07bf1acbf2f4cb7aa64b81ae Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Thu, 2 Apr 2015 11:52:00 +0600
Subject: Fix Vytree.update and its unit test.

---
 src/vytree.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/vytree.ml b/src/vytree.ml
index 89743fb..ed1a23e 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -87,8 +87,10 @@ let delete node path =
     do_with_child delete_immediate node path
 
 let update node path data =
-    let update_data data' node' dummy =
-        {node' with data=data'}
+    let update_data data' node' name =
+        let child = find_or_fail node' name in
+        let child = { child with data=data' } in
+        replace node' child
     in do_with_child (update_data data) node path
 
 let rec get node path =
-- 
cgit v1.2.3