diff options
Diffstat (limited to 'ocamldoc/odoc_html.ml')
| -rw-r--r-- | ocamldoc/odoc_html.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml index 8687f3d1d..8f93fcf75 100644 --- a/ocamldoc/odoc_html.ml +++ b/ocamldoc/odoc_html.ml @@ -1367,19 +1367,21 @@ class html = self#html_of_type_expr_param_list b father t; (match t.ty_parameters with [] -> () | _ -> bs b " "); bs b ((Name.simple t.ty_name)^" "); + let priv = t.ty_private = Asttypes.Private in ( match t.ty_manifest with None -> () | Some typ -> bs b "= "; + if priv then bs b "private "; self#html_of_type_expr b father typ; bs b " " ); (match t.ty_kind with Type_abstract -> bs b "</pre>" - | Type_variant (l, priv) -> + | Type_variant l -> bs b "= "; - if priv then bs b "private" ; + if priv then bs b "private "; bs b ( match t.ty_manifest with @@ -1423,7 +1425,7 @@ class html = print_concat b "\n" print_one l; bs b "</table>\n" - | Type_record (l, priv) -> + | Type_record l -> bs b "= "; if priv then bs b "private " ; bs b "{"; @@ -1814,7 +1816,7 @@ class html = (Naming.type_target { ty_name = c.cl_name ; ty_info = None ; ty_parameters = [] ; - ty_kind = Type_abstract ; ty_manifest = None ; + ty_kind = Type_abstract ; ty_private = Asttypes.Public; ty_manifest = None ; ty_loc = Odoc_info.dummy_loc ; ty_code = None ; } @@ -1861,7 +1863,7 @@ class html = (Naming.type_target { ty_name = ct.clt_name ; ty_info = None ; ty_parameters = [] ; - ty_kind = Type_abstract ; ty_manifest = None ; + ty_kind = Type_abstract ; ty_private = Asttypes.Public; ty_manifest = None ; ty_loc = Odoc_info.dummy_loc ; ty_code = None ; } |