diff options
Diffstat (limited to 'ocaml-namespaces/ocamldoc')
| -rw-r--r-- | ocaml-namespaces/ocamldoc/odoc_analyse.ml | 2 | ||||
| -rw-r--r-- | ocaml-namespaces/ocamldoc/odoc_ast.ml | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/ocaml-namespaces/ocamldoc/odoc_analyse.ml b/ocaml-namespaces/ocamldoc/odoc_analyse.ml index 2091dd3967..5987152252 100644 --- a/ocaml-namespaces/ocamldoc/odoc_analyse.ml +++ b/ocaml-namespaces/ocamldoc/odoc_analyse.ml @@ -139,7 +139,7 @@ let process_interface_file ppf sourcefile = Env.set_unit_name modulename; let inputfile = preprocess sourcefile in let ast = parse_file inputfile Parse.interface ast_intf_magic_number in - let sg = Typemod.transl_signature (initial_env()) ast in + let sg = Typemod.transl_interface inputfile (initial_env()) ast in Warnings.check_fatal (); (ast, sg, inputfile) diff --git a/ocaml-namespaces/ocamldoc/odoc_ast.ml b/ocaml-namespaces/ocamldoc/odoc_ast.ml index c497794184..25f68ce394 100644 --- a/ocaml-namespaces/ocamldoc/odoc_ast.ml +++ b/ocaml-namespaces/ocamldoc/odoc_ast.ml @@ -1381,7 +1381,9 @@ module Analyser = in (0, new_env2, [ Element_module_type mt ]) - | Parsetree.Pstr_open longident -> + | Parsetree.Pstr_open (longident,Some _) -> assert false (* TODO *) + + | Parsetree.Pstr_open (longident,None) -> (* A VOIR : enrichir l'environnement quand open ? *) let ele_comments = match comment_opt with None -> [] |