Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for the debugger.

master
alainfrisch 2015-12-02 11:43:10 +01:00
parent 10fbfe7643
commit 3f2ffb7197
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
typing/env.ml
View File

@ -286,8 +286,12 @@ let strengthen =
ref ((fun env mty path -> assert false) :
t -> module_type -> Path.t -> module_type)
let deprecated_of_attrs_forward = ref (fun _ -> assert false)
(* to be filled with Typetexp. deprecated_of_attrs *)
let deprecated_of_attrs_forward = ref (fun _ -> None)
(* to be filled with Typetexp.deprecated_of_attrs.
Note: ocamldebug link with Env (and use its lookup functions)
but not Typetexp. So we return None instead of failing
to avoid breaking the debugger. *)
let deprecated_of_attrs attrs = !deprecated_of_attrs_forward attrs
let md md_type =