simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: better retrocompat for enter_manual_{toplevel,sub}_span

Browse source
This commit is contained in:
Simon Cruanes 2025-05-02 09:19:35 -04:00
parent 3c1360677a
commit 384dca93e2
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/trace_core.ml
View file

@ -84,8 +84,9 @@ let[@inline] enter_manual_toplevel_span ?flavor ?level ?__FUNCTION__ ~__FILE__
let[@inline] enter_manual_sub_span ~parent ?flavor ?level ?__FUNCTION__ let[@inline] enter_manual_sub_span ~parent ?flavor ?level ?__FUNCTION__
~__FILE__ ~__LINE__ ?data name : explicit_span = ~__FILE__ ~__LINE__ ?data name : explicit_span =
enter_manual_span ~parent:(Some parent) ?flavor ?level ?__FUNCTION__ ~__FILE__ enter_manual_span
~__LINE__ ?data name ~parent:(Some (ctx_of_span parent))
?flavor ?level ?__FUNCTION__ ~__FILE__ ~__LINE__ ?data name
let[@inline] exit_manual_span espan : unit = let[@inline] exit_manual_span espan : unit =
if espan != Collector.dummy_explicit_span then ( if espan != Collector.dummy_explicit_span then (

2
src/core/trace_core.mli
View file

@ -114,7 +114,7 @@ val enter_manual_span :
@since NEXT_RELEASE *) @since NEXT_RELEASE *)
val enter_manual_sub_span : val enter_manual_sub_span :
parent:explicit_span_ctx -> parent:explicit_span ->
?flavor:[ `Sync | `Async ] -> ?flavor:[ `Sync | `Async ] ->
?level:Level.t -> ?level:Level.t ->
?__FUNCTION__:string -> ?__FUNCTION__:string ->