From e28406576c50a4814fb9254fefed11292dfedb18 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Fri, 27 Feb 2015 23:16:42 +0600
Subject: Missing expression in delete_child. This is embarassing.

---
 src/vytree.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vytree.ml b/src/vytree.ml
index 3b6819f..1a380e3 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -92,4 +92,6 @@ let rec delete_child node path =
         let next_child = find_child node name in
         match next_child with
         | None -> raise Nonexistent_path
-        | Some next_child' -> delete_child next_child' names
+        | Some next_child' -> 
+            let new_node = delete_child next_child' names in
+            replace_child node new_node
-- 
cgit v1.2.3