From 1833434f8420632b1069216876f54c07b7449965 Mon Sep 17 00:00:00 2001 From: Vincent Botbol Date: Thu, 12 Apr 2018 11:50:46 +0200 Subject: [PATCH] Fix: rpc json schema output would in some cases not be generated --- docs/doc_gen/rpcs/rpc_doc.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/rpcs/rpc_doc.ml b/docs/doc_gen/rpcs/rpc_doc.ml index bd9ae3a2c..ec5929373 100644 --- a/docs/doc_gen/rpcs/rpc_doc.ml +++ b/docs/doc_gen/rpcs/rpc_doc.ml @@ -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;