diff options
| -rw-r--r-- | src/vytree.ml | 2 | ||||
| -rw-r--r-- | src/vytree.mli | 4 |
2 files changed, 6 insertions, 0 deletions
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 |