From 59db458fec7d894e57eb11e23474150636654f2d Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 9 Sep 2024 14:44:13 -0400
Subject: [PATCH] tef: expose `subscriber_jsonl`

---
 src/tef/trace_tef.ml  | 3 +++
 src/tef/trace_tef.mli | 6 ++++++
 2 files changed, 9 insertions(+)

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 ] ->