simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-09 04:17:56 -04: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 ee8a6d8956
commit 3349b84532
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
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 : val enter_manual_span :
parent:explicit_span option -> parent:explicit_span option ->
?__FUNCTION__:string -> __FUNCTION__:string option ->
__FILE__:string -> __FILE__:string ->
__LINE__:int -> __LINE__:int ->
data:(string * user_data) list -> 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 : ?__FUNCTION__ ~__FILE__ ~__LINE__ ?(data = fun () -> []) name :
explicit_span = explicit_span =
let data = data () in 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__ let[@inline] enter_manual_sub_span ~parent ?__FUNCTION__ ~__FILE__ ~__LINE__
?data name : explicit_span = ?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) 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 = ~__FILE__:_ ~__LINE__:_ ~data name : explicit_span =
(* get the id, or make a new one *) (* get the id, or make a new one *)
let id = let id =