From 4598b50d4003f63e87decd7b39ef04b0186c81a5 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Fri, 13 Feb 2015 23:44:42 +0600
Subject: Bring *_of_node functions back.

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

(limited to 'src')

diff --git a/src/vytree.ml b/src/vytree.ml
index 71a7272..44a2a62 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -4,12 +4,18 @@ type 'a	vyconf_tree = {
     children: 'a vyconf_tree list
 }
 
+type 'a t = 'a vyconf_tree
+
 exception Empty_path
 exception Duplicate_child
 exception Nonexistent_path
 
 let make name data = { name = name; data = data; children = [] }
 
+let name_of_node node = node.name
+let data_of_node node = node.data
+let children_of_node node = node.children
+
 let rec find_child_in_list children name =
     match children with
     | [] -> None
-- 
cgit v1.2.3