diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-08-28 07:29:19 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-08-28 07:29:19 +0600 |
| commit | 639f7885aa6c5d1467cd8ceae6f8b00bcecd4613 (patch) | |
| tree | c1e7b47ce94f964ff31669cf751f9bf1848b6da7 | |
| parent | 25138074b99e0bb3dbc89018ca40ddcbc3c6a702 (diff) | |
| download | vyconf-639f7885aa6c5d1467cd8ceae6f8b00bcecd4613.tar.gz vyconf-639f7885aa6c5d1467cd8ceae6f8b00bcecd4613.zip | |
Add missing cases to insert_immediate.
| -rw-r--r-- | src/vytree.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 = |