diff options
author | Pierre Weis <Pierre.Weis@inria.fr> | 2007-10-09 10:29:37 +0000 |
---|---|---|
committer | Pierre Weis <Pierre.Weis@inria.fr> | 2007-10-09 10:29:37 +0000 |
commit | 59e0723455fc8b847a1303bfc73db5968d666eee (patch) | |
tree | 29b21992d5428948131f66b950ec4e8ed48f0166 /ocamldoc/odoc_html.ml | |
parent | 00f4865bad9838add05d832a05b19fb68da47043 (diff) |
It works: compilers and camlp4 are fully bootstrapped. The ast magic number is not yet changed.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8418 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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 ; } |