mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-08 20:07:55 -04:00
fa3b863625
This can be done through the API or by setting OTEL_EXPORTER_OTLP_HEADERS Signed-off-by: Pau Ruiz Safont <pau.safont@citrix.com>
41 lines
1.1 KiB
OCaml
41 lines
1.1 KiB
OCaml
|
|
open Common_
|
|
|
|
type t = {
|
|
debug: bool;
|
|
url: string;
|
|
headers: (string * string) list;
|
|
batch_traces: int option;
|
|
batch_metrics: int option;
|
|
batch_timeout_ms: int;
|
|
thread: bool;
|
|
ticker_thread: bool;
|
|
}
|
|
|
|
let pp out self =
|
|
let ppiopt = Format.pp_print_option Format.pp_print_int in
|
|
let pp_header ppf (a, b) =
|
|
Format.fprintf ppf "@[%s: @,%s@]@." a b ;
|
|
in
|
|
let ppheaders = Format.pp_print_list pp_header in
|
|
let {debug; url; headers; batch_traces; batch_metrics;
|
|
batch_timeout_ms; thread; ticker_thread} = self in
|
|
Format.fprintf out
|
|
"{@[ debug=%B;@ url=%S;@ headers=%a;@ \
|
|
batch_traces=%a;@ batch_metrics=%a;@ \
|
|
batch_timeout_ms=%d; thread=%B;@ ticker_thread=%B @]}"
|
|
debug url ppheaders headers ppiopt batch_traces ppiopt batch_metrics
|
|
batch_timeout_ms thread ticker_thread
|
|
|
|
let make
|
|
?(debug= !debug_)
|
|
?(url= get_url())
|
|
?(headers= get_headers ())
|
|
?(batch_traces=Some 400)
|
|
?(batch_metrics=None)
|
|
?(batch_timeout_ms=500)
|
|
?(thread=true)
|
|
?(ticker_thread=true)
|
|
() : t =
|
|
{ debug; url; headers; batch_traces; batch_metrics; batch_timeout_ms;
|
|
thread; ticker_thread; }
|