From bf85f6a275ea2967bc39fdc6ddc5c96e929188e8 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Sun, 27 Oct 2019 14:23:12 +0100 Subject: Expose the JSON AST export function. --- src/config_tree.ml | 2 ++ src/config_tree.mli | 2 ++ 2 files changed, 4 insertions(+) (limited to 'src') diff --git a/src/config_tree.ml b/src/config_tree.ml index a9dd61e..31c0d76 100644 --- a/src/config_tree.ml +++ b/src/config_tree.ml @@ -252,3 +252,5 @@ let render_commands node path = let render_config = Renderer.render_config let render_json = JSONRenderer.render_json + +let render_json_ast c = to_yojson c |> Yojson.Safe.to_string diff --git a/src/config_tree.mli b/src/config_tree.mli index a0607e3..730b32f 100644 --- a/src/config_tree.mli +++ b/src/config_tree.mli @@ -38,3 +38,5 @@ val render_commands : t -> string list -> string val render_config : t -> string val render_json : t -> string + +val render_json_ast : t -> string -- cgit v1.2.3