diff options
| -rw-r--r-- | tools/ocamlprof.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index 5c22884e8..aa71db3b1 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -239,6 +239,9 @@ and rewrite_annotate_exp_list l = rewrite_exp scond; insert_profile sbody.pexp_loc; rewrite_exp sbody + | {pexp_desc = Pexp_constraint(sbody, _, _)} -> (* let f x : t = e *) + insert_profile sbody.pexp_loc; + rewrite_exp sbody | sexp -> insert_profile sexp.pexp_loc; rewrite_exp sexp) |