From 786b610e5db3c48e145a25f54237a22f48845977 Mon Sep 17 00:00:00 2001 From: Maxence Guesdon Date: Tue, 2 Apr 2002 15:16:31 +0000 Subject: affichage des types de classes, ajout des labels pour les paramètres (pour les classes seulement pour l'instant) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4577 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- ocamldoc/odoc_man.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ocamldoc/odoc_man.ml') diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index d295559d3..b287b8405 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -458,7 +458,8 @@ class man = ( match cco.cco_class with None -> cco.cco_name - | Some cl -> cl.cl_name^" " + | Some (Cl cl) -> cl.cl_name^" " + | Some (Cltype (clt, _)) -> clt.clt_name^" " ) | Class_constraint (ck, ctk) -> (if with_def_syntax then " = " else "")^ -- cgit v1.2.3-70-g09d2