diff options
Diffstat (limited to 'src/vytree.ml')
| -rw-r--r-- | src/vytree.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vytree.ml b/src/vytree.ml index 44a2a62..22b4a6d 100644 --- a/src/vytree.ml +++ b/src/vytree.ml @@ -12,6 +12,8 @@ exception Nonexistent_path let make name data = { name = name; data = data; children = [] } +let make_full name data children = { name = name; data = data; children = children } + let name_of_node node = node.name let data_of_node node = node.data let children_of_node node = node.children |