diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2013-09-30 13:54:59 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2013-09-30 13:54:59 +0000 |
| commit | 5f68db9cf0abc36fd0e392e5bc3d426cb6ae7784 (patch) | |
| tree | 9084e2861ff435ced1f15bf1b3dca7effc129109 /ocamldoc/odoc_print.ml | |
| parent | 4c5e9bbe6b98d6138f7943f7b017fbd411f109c8 (diff) | |
| parent | cc31694f7ca1043080fc290e5a82520513cf7f94 (diff) | |
Merge trunk at revision 14200. Now everything works except private types
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/module-alias@14201 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_print.ml')
| -rw-r--r-- | ocamldoc/odoc_print.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ocamldoc/odoc_print.ml b/ocamldoc/odoc_print.ml index d09bc9324..aa6dea128 100644 --- a/ocamldoc/odoc_print.ml +++ b/ocamldoc/odoc_print.ml @@ -84,11 +84,11 @@ let simpl_class_type t = (* on vire les vals et methods pour ne pas qu'elles soient imprimees quand on affichera le type *) let tnil = { Types.desc = Types.Tnil ; Types.level = 0; Types.id = 0 } in - Types.Cty_signature { Types.cty_self = { cs.Types.cty_self with + Types.Cty_signature { Types.csig_self = { cs.Types.csig_self with Types.desc = Types.Tobject (tnil, ref None) }; - Types.cty_vars = Types.Vars.empty ; - Types.cty_concr = Types.Concr.empty ; - Types.cty_inher = [] + csig_vars = Types.Vars.empty ; + csig_concr = Types.Concr.empty ; + csig_inher = [] } | Types.Cty_arrow (l, texp, ct) -> let new_ct = iter ct in |