diff --git a/src/tef/trace_tef.ml b/src/tef/trace_tef.ml index 2bfc00d..b79ac1a 100644 --- a/src/tef/trace_tef.ml +++ b/src/tef/trace_tef.ml @@ -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 () diff --git a/src/tef/trace_tef.mli b/src/tef/trace_tef.mli index a1009e1..d9529b5 100644 --- a/src/tef/trace_tef.mli +++ b/src/tef/trace_tef.mli @@ -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 ] ->