diff options
Diffstat (limited to 'src/reference_tree.ml')
| -rw-r--r-- | src/reference_tree.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/reference_tree.ml b/src/reference_tree.ml index f7a2ffb..28a87a6 100644 --- a/src/reference_tree.ml +++ b/src/reference_tree.ml @@ -167,3 +167,7 @@ let rec validate_path validators node path = | Some c -> aux c ps (p :: acc) | None -> raise (Validation_error ((Printf.sprintf "Path %s is incomplete" (show_path acc)))))) in aux node path [] + +let is_multi reftree path = + let data = Vytree.get_data reftree path in + data.multi |