diff options
author | Alain Frisch <alain@frisch.fr> | 2013-03-26 08:09:26 +0000 |
---|---|---|
committer | Alain Frisch <alain@frisch.fr> | 2013-03-26 08:09:26 +0000 |
commit | 2ffa26af821985c6520ce59d3c11d1e7590dfa74 (patch) | |
tree | 19fda7d7a95cf5064817315cc2f3fadc1375c5dd /ocamldoc | |
parent | 77d3fce85769e7dea1e403cb1b89b45ee759f139 (diff) | |
download | ocaml-2ffa26af821985c6520ce59d3c11d1e7590dfa74.tar.gz |
Align module binding with Parsetree.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/extension_points@13447 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc')
-rw-r--r-- | ocamldoc/odoc_ast.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ocamldoc/odoc_ast.ml b/ocamldoc/odoc_ast.ml index 47acff9833..292e84b352 100644 --- a/ocamldoc/odoc_ast.ml +++ b/ocamldoc/odoc_ast.ml @@ -64,13 +64,13 @@ module Typedtree_search = let add_to_hashes table table_values tt = match tt with - | Typedtree.Tstr_module (ident, _, _) -> - Hashtbl.add table (M (Name.from_ident ident)) tt + | Typedtree.Tstr_module mb -> + Hashtbl.add table (M (Name.from_ident mb.mb_id)) tt | Typedtree.Tstr_recmodule mods -> List.iter - (fun (ident,ident_loc, _, mod_expr) -> - Hashtbl.add table (M (Name.from_ident ident)) - (Typedtree.Tstr_module (ident,ident_loc, mod_expr)) + (fun mb -> + Hashtbl.add table (M (Name.from_ident mb.mb_id)) + (Typedtree.Tstr_module mb) ) mods | Typedtree.Tstr_modtype (ident, _, _) -> @@ -121,7 +121,7 @@ module Typedtree_search = let search_module table name = match Hashtbl.find table (M name) with - (Typedtree.Tstr_module (_, _, module_expr)) -> module_expr + (Typedtree.Tstr_module mb) -> mb.mb_expr | _ -> assert false let search_module_type table name = |