From 1b52a29d9440882ebbf77ff28d773f97153cb76e Mon Sep 17 00:00:00 2001 From: Maxence Guesdon Date: Tue, 8 Jul 2003 14:00:46 +0000 Subject: [PATCH] back to 1.30 git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5672 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- ocamldoc/odoc_html.ml | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml index 83f426455..8b1480b54 100644 --- a/ocamldoc/odoc_html.ml +++ b/ocamldoc/odoc_html.ml @@ -744,12 +744,11 @@ class html = method constructor s = ""^s^"" (** Output the given ocaml code to the given file name. *) - method private output_code ?head in_title file code = + method private output_code in_title file code = try let chanout = open_out file in let html_code = self#html_of_code code in output_string chanout (""^(self#header (self#inner_title in_title))^"\n"); - (match head with None -> () | Some h -> output_string chanout h); output_string chanout html_code; output_string chanout ""; close_out chanout @@ -865,9 +864,7 @@ class html = None -> Name.simple v.val_name | Some c -> let file = Naming.file_code_value_complete_target v in - self#output_code - ~head: (self#html_of_info v.val_info) - v.val_name (Filename.concat !Args.target_dir file) c; + self#output_code v.val_name (Filename.concat !Args.target_dir file) c; ""^(Name.simple v.val_name)^"" )^" : "^ (self#html_of_type_expr (Name.father v.val_name) v.val_type)^""^