From 639f7885aa6c5d1467cd8ceae6f8b00bcecd4613 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Fri, 28 Aug 2015 07:29:19 +0600
Subject: Add missing cases to insert_immediate.

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

(limited to 'src')

diff --git a/src/vytree.ml b/src/vytree.ml
index b5dcba6..0222cfc 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -27,7 +27,8 @@ let insert_immediate ?(position=Default) node name data =
         match position with
         | Default -> new_node :: node.children
         | End -> node.children @ [new_node]
-        | _ -> assert false
+        | Before s -> Vylist.insert_before (fun x -> x.name = s) new_node node.children
+        | After s -> Vylist.insert_after (fun x -> x.name = s) new_node node.children
     in { node with children = children' }
 
 let delete_immediate node name =
-- 
cgit v1.2.3