diff options
Diffstat (limited to 'ocamldoc/odoc_man.ml')
| -rw-r--r-- | ocamldoc/odoc_man.ml | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index 66232db589..12dc054a94 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -269,6 +269,10 @@ class man = bs b "^{"; self#man_of_text2 b t | Odoc_info.Subscript t -> bs b "_{"; self#man_of_text2 b t + | Odoc_info.Module_list _ -> + () + | Odoc_info.Index_list -> + () (** Print groff string to display code. *) method man_of_code b s = self#man_of_text b [ Code s ] @@ -311,8 +315,8 @@ class man = bs b "\n" (** Print groff string to display a [Types.type_expr list].*) - method man_of_type_expr_list b m_name sep l = - let s = Odoc_str.string_of_type_list sep l in + method man_of_type_expr_list ?par b m_name sep l = + let s = Odoc_str.string_of_type_list ?par sep l in let s2 = Str.global_replace (Str.regexp "\n") "\n.B " s in bs b "\n.B "; bs b (self#relative_idents m_name s2); @@ -361,7 +365,9 @@ class man = [] -> () | _ -> bs b ".B of "; - self#man_of_type_expr_list b (Name.father e.ex_name) " * " e.ex_args + self#man_of_type_expr_list + ~par: false + b (Name.father e.ex_name) " * " e.ex_args ); ( match e.ex_alias with @@ -418,11 +424,11 @@ class man = bs b " *)\n " | l, None -> bs b "\n.B of "; - self#man_of_type_expr_list b father " * " l; + self#man_of_type_expr_list ~par: false b father " * " l; bs b " " | l, (Some t) -> bs b "\n.B of "; - self#man_of_type_expr_list b father " * " l; + self#man_of_type_expr_list ~par: false b father " * " l; bs b ".I \" \"\n"; bs b "(* "; self#man_of_text b t; |