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 inconsistency

Browse source
This commit is contained in:
Simon Cruanes 2023-08-03 15:37:02 -04:00
parent 50b4691ab6
commit 1b5e827d65
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/collector.ml
View file

@ -33,7 +33,7 @@ module type S = sig
val enter_manual_span :
parent:explicit_span option ->
?__FUNCTION__:string ->
__FUNCTION__:string option ->
__FILE__:string ->
__LINE__:int ->
data:(string * user_data) list ->

2
src/core/trace_core.ml
View file

@ -31,7 +31,7 @@ let enter_explicit_span_collector_ (module C : Collector.S) ~parent
?__FUNCTION__ ~__FILE__ ~__LINE__ ?(data = fun () -> []) name :
explicit_span =
let data = data () in
C.enter_manual_span ~parent ?__FUNCTION__ ~__FILE__ ~__LINE__ ~data name
C.enter_manual_span ~parent ~__FUNCTION__ ~__FILE__ ~__LINE__ ~data name
let[@inline] enter_manual_sub_span ~parent ?__FUNCTION__ ~__FILE__ ~__LINE__
?data name : explicit_span =

2
src/tef/trace_tef.ml
View file

@ -342,7 +342,7 @@ let collector ~out () : collector =
Fun.protect ~finally (fun () -> f span)
let enter_manual_span ~(parent : explicit_span option) ?__FUNCTION__:_
let enter_manual_span ~(parent : explicit_span option) ~__FUNCTION__:_
~__FILE__:_ ~__LINE__:_ ~data name : explicit_span =
(* get the id, or make a new one *)
let id =