diff --git a/src/lib/log_provider.ml b/src/lib/log_provider.ml index 587a7a82..b4e30378 100644 --- a/src/lib/log_provider.ml +++ b/src/lib/log_provider.ml @@ -6,9 +6,13 @@ end let get () : Logger.t = Atomic.get provider_ -let set (t : Logger.t) : unit = Atomic.set provider_ t +let set (t : Logger.t) : unit = + Self_debug.log Info (fun () -> "otel: log provider installed"); + Atomic.set provider_ t -let clear () : unit = Atomic.set provider_ Logger.dummy +let clear () : unit = + Self_debug.log Info (fun () -> "otel: log provider removed"); + Atomic.set provider_ Logger.dummy (** Get a logger pre-configured with a fixed set of attributes added to every log record it emits, forwarding to the current global logger. Intended to be diff --git a/src/lib/meter_provider.ml b/src/lib/meter_provider.ml index b7bb209c..a2481c64 100644 --- a/src/lib/meter_provider.ml +++ b/src/lib/meter_provider.ml @@ -6,9 +6,13 @@ end let get () : Meter.t = Atomic.get provider_ -let set (t : Meter.t) : unit = Atomic.set provider_ t +let set (t : Meter.t) : unit = + Self_debug.log Info (fun () -> "otel: meter provider installed"); + Atomic.set provider_ t -let clear () : unit = Atomic.set provider_ Meter.dummy +let clear () : unit = + Self_debug.log Info (fun () -> "otel: meter provider removed"); + Atomic.set provider_ Meter.dummy (** Get a meter pre-configured with a fixed set of attributes added to every metric it emits, forwarding to the current global meter. Intended to be diff --git a/src/lib/trace_provider.ml b/src/lib/trace_provider.ml index b4097531..479cd447 100644 --- a/src/lib/trace_provider.ml +++ b/src/lib/trace_provider.ml @@ -9,11 +9,15 @@ end let get () : Tracer.t = Atomic.get provider_ (** Set current tracer *) -let set (t : Tracer.t) : unit = Atomic.set provider_ t +let set (t : Tracer.t) : unit = + Self_debug.log Info (fun () -> "otel: trace provider installed"); + Atomic.set provider_ t (** Replace current tracer by the dummy one. All spans will be discarded from now on. *) -let clear () : unit = Atomic.set provider_ Tracer.dummy +let clear () : unit = + Self_debug.log Info (fun () -> "otel: trace provider removed"); + Atomic.set provider_ Tracer.dummy (** Get a tracer pre-configured with a fixed set of attributes added to every span it emits, forwarding to the current global tracer. Intended to be