tef: expose subscriber_jsonl

This commit is contained in:
Simon Cruanes 2024-09-09 14:44:13 -04:00
parent bebd037803
commit 59db458fec
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 9 additions and 0 deletions

View file

@ -408,6 +408,9 @@ module Private_ = struct
let on_tracing_error = on_tracing_error
let subscriber_jsonl ~finally ~out () =
subscriber_ ~finally ~mode:`Jsonl ~out ()
let collector_jsonl ~finally ~out () : collector =
collector_ ~finally ~mode:`Jsonl ~out ()

View file

@ -48,6 +48,12 @@ module Private_ : sig
val on_tracing_error : (string -> unit) ref
val subscriber_jsonl :
finally:(unit -> unit) ->
out:[ `File_append of string | `Output of out_channel ] ->
unit ->
Trace_subscriber.t
val collector_jsonl :
finally:(unit -> unit) ->
out:[ `File_append of string | `Output of out_channel ] ->