Skip to content
Snippets Groups Projects
Commit 4bd736a5 authored by Virgile Prevosto's avatar Virgile Prevosto
Browse files

[devguide] Fix handling of @plugin development guide for record fields

parent 47a4b9ae
No related branches found
No related tags found
No related merge requests found
PKG ocamldoc
...@@ -223,22 +223,12 @@ module Generator (G : Odoc_html.Html_generator) = struct ...@@ -223,22 +223,12 @@ module Generator (G : Odoc_html.Html_generator) = struct
super#html_of_exception b e super#html_of_exception b e
method private print_record b father l = method private print_record b father l =
last_type <- last_type ^ "{";
let print_one r = let print_one r =
if last_type <> "" && last_name <- father ^ "." ^ r.Type.rf_name;
String.get last_type ((String.length last_type) -1) = '{' last_type <- father ^ " -> " ^ Odoc_info.string_of_type_expr r.Type.rf_type;
then begin
if r.Type.rf_mutable then last_type <- last_type ^ "mutable "
end else begin
if r.Type.rf_mutable then last_type <- last_type ^ "; mutable "
else last_type <- last_type ^ "; "
end;
last_type <- last_type ^ r.Type.rf_name ;
self#html_of_type_expr_3 b father r.Type.rf_type;
self#html_of_info b r.Type.rf_text self#html_of_info b r.Type.rf_text
in in
print_concat b "\n" print_one l; print_concat b "\n" print_one l;
last_type <- last_type ^ "}"
method html_of_type b t = method html_of_type b t =
Odoc_info.reset_type_names (); Odoc_info.reset_type_names ();
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment