From 7fd7552fd0d912d3b2e5685a42c19cd7557a3ac9 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Mon, 13 Apr 2015 20:01:36 +0600
Subject: Expose node_type and position types.

---
 src/vytree.ml  | 2 ++
 src/vytree.mli | 4 ++++
 2 files changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/vytree.ml b/src/vytree.ml
index a439ec1..6eccc55 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -6,6 +6,8 @@ type 'a	t = {
 
 type position = Before of string | After of string | Default
 
+type node_type = Leaf | Tag | Other
+
 exception Empty_path
 exception Duplicate_child
 exception Nonexistent_path
diff --git a/src/vytree.mli b/src/vytree.mli
index e990d1d..d268db4 100644
--- a/src/vytree.mli
+++ b/src/vytree.mli
@@ -4,6 +4,10 @@ exception Empty_path
 exception Duplicate_child
 exception Nonexistent_path
 
+type position = Before of string | After of string | Default
+
+type node_type = Leaf | Tag | Other
+
 val make : 'a -> string -> 'a t
 val make_full : 'a -> string -> ('a t) list -> 'a t
 
-- 
cgit v1.2.3