From 67a08b3b83ddf24116f45b2817cbc8548f573e89 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Mon, 2 Jan 2017 23:21:40 +0700 Subject: Last missing accessor: value help. --- src/reference_tree.ml | 4 ++++ src/reference_tree.mli | 2 ++ 2 files changed, 6 insertions(+) diff --git a/src/reference_tree.ml b/src/reference_tree.ml index a1240da..84abbd6 100644 --- a/src/reference_tree.ml +++ b/src/reference_tree.ml @@ -215,3 +215,7 @@ let get_help_string reftree path = let data = Vytree.get_data reftree path in data.help +let get_value_help reftree path = + let data = Vytree.get_data reftree path in + data.value_help + diff --git a/src/reference_tree.mli b/src/reference_tree.mli index 8b635d2..05689e6 100644 --- a/src/reference_tree.mli +++ b/src/reference_tree.mli @@ -41,3 +41,5 @@ val get_keep_order : t -> string list -> bool val get_owner : t -> string list -> string option val get_help_string : t -> string list -> string + +val get_value_help : t -> string list -> (string * string) list -- cgit v1.2.3