simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-05-05 17:04:52 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

config: better defaults in Sdk, have batching enabled by default

Browse source
This commit is contained in:
Simon Cruanes 2026-04-10 14:29:08 -04:00
parent 7a93a2582b
commit 9cb9c1081c
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/lib/sdk.ml
View file

@ -54,8 +54,9 @@ let run_tick_callbacks : unit -> unit = Globals.run_tick_callbacks
from their ticker. *) from their ticker. *)
let tick : unit -> unit = Globals.run_tick_callbacks let tick : unit -> unit = Globals.run_tick_callbacks
let set ?(traces = Provider_config.default) ?(metrics = Provider_config.default) let set ?(traces = Provider_config.make ~batch:400 ())
?(logs = Provider_config.default) (exp : Exporter.t) : unit = ?(metrics = Provider_config.make ~batch:200 ())
?(logs = Provider_config.make ~batch:400 ()) (exp : Exporter.t) : unit =
Self_debug.log Info (fun () -> "opentelemetry: SDK set up"); Self_debug.log Info (fun () -> "opentelemetry: SDK set up");
Atomic.set exporter (Some exp); Atomic.set exporter (Some exp);
let tracer : Tracer.t = let tracer : Tracer.t =

6
tests/implicit_scope/sync/test_implicit_scope_sync.ml
View file

@ -19,7 +19,11 @@ let test_exporter : Otel.Exporter.t =
let with_test_exporter f = let with_test_exporter f =
(* uncomment for eprintf debugging: *) (* uncomment for eprintf debugging: *)
(* let test_exporter = Opentelemetry_client.Exporter_debug.debug test_exporter in*) (* let test_exporter = Opentelemetry_client.Exporter_debug.debug test_exporter in*)
Otel.Sdk.set test_exporter; Otel.Sdk.set
~traces:(Otel.Provider_config.make ())
~metrics:(Otel.Provider_config.make ())
~logs:(Otel.Provider_config.make ())
test_exporter;
Fun.protect f ~finally:(fun () -> Fun.protect f ~finally:(fun () ->
let sq = Opentelemetry_client_sync.Sync_queue.create () in let sq = Opentelemetry_client_sync.Sync_queue.create () in
Otel.Sdk.remove Otel.Sdk.remove