diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2015-01-16 20:01:40 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2015-01-16 20:01:40 +0000 |
| commit | 6a358c7ee7b51c8a9a88def5ef42c64566d36c2a (patch) | |
| tree | d7bf67358871ec87be5def71fba5393fb53ee59f /ocamldoc/odoc_ast.ml | |
| parent | 64ee2135ded944021f9e0bbf3e1dc65fcd60b6c9 (diff) | |
| download | ocaml-6a358c7ee7b51c8a9a88def5ef42c64566d36c2a.tar.gz | |
add change that is missing from commit 15776
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15777 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_ast.ml')
| -rw-r--r-- | ocamldoc/odoc_ast.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ocamldoc/odoc_ast.ml b/ocamldoc/odoc_ast.ml index 5bb5567e2d..3515df8d22 100644 --- a/ocamldoc/odoc_ast.ml +++ b/ocamldoc/odoc_ast.ml @@ -91,9 +91,9 @@ module Typedtree_search = ident_type_decl_list | Typedtree.Tstr_class info_list -> List.iter - (fun (ci, m, s) -> + (fun (ci, s) -> Hashtbl.add table (C (Name.from_ident ci.ci_id_class)) - (Typedtree.Tstr_class [ci, m, s])) + (Typedtree.Tstr_class [ci, s])) info_list | Typedtree.Tstr_class_type info_list -> List.iter @@ -150,7 +150,7 @@ module Typedtree_search = let search_class_exp table name = match Hashtbl.find table (C name) with - | (Typedtree.Tstr_class [(ci, _, _ )]) -> + | (Typedtree.Tstr_class [(ci, _ )]) -> let ce = ci.ci_expr in ( try |