Fix: rpc json schema output would in some cases not be generated

This commit is contained in:
Vincent Botbol 2018-04-12 11:50:46 +02:00 committed by Benjamin Canou
parent 0940442148
commit 1833434f84

View File

@ -301,7 +301,10 @@ let pp_print_html_tabs fmt { path ; description ; input ; output ; _ (* example
| Some _ ->
fprintf fmt "%a" (pp_print_html_tab_button ~default:false ~shortlabel:"input" ~content:"Input format") path;
| None -> ());
fprintf fmt "%a" (pp_print_html_tab_button ~default:false ~shortlabel:"output" ~content:"Output format") path;
(match output with
| Some _ ->
fprintf fmt "%a" (pp_print_html_tab_button ~default:false ~shortlabel:"output" ~content:"Output format") path;
| None -> ());
(* (match example with
* | Some _ ->
* fprintf fmt "%a" (pp_print_html_tab_button ~default:false ~shortlabel:"example" ~content:"Example") path;