simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

try to avoid capture

Browse source
This commit is contained in:
Simon Cruanes 2023-12-22 21:33:30 -05:00
parent a6ba54a817
commit b1ccd58040
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/ppx/ppx_trace.ml
View file

@ -53,9 +53,9 @@ let expand_top_let ~ctxt rec_flag (vbs : _ list) =
Trace_core.enter_span ~__FILE__ ~__LINE__ __FUNCTION__ Trace_core.enter_span ~__FILE__ ~__LINE__ __FUNCTION__
in in
try try
let res = [%e e] in let _trace_ppx_res = [%e e] in
Trace_core.exit_span _trace_span; Trace_core.exit_span _trace_span;
res __trace_ppx_res
with exn -> with exn ->
Trace_core.exit_span _trace_span; Trace_core.exit_span _trace_span;
raise exn] raise exn]