Source file `config.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
type t = {
  bg_threads: int;
      (** Are there background threads, and how many? Default [4]. This will be
          adjusted to be at least [1] and at most [32]. *)
  ticker_thread: bool;
      (** If true, start a thread that regularly checks if signals should be
          sent to the collector. Default [true] *)
  ticker_interval_ms: int;
      (** Interval for ticker thread, in milliseconds. This is only useful if
          [ticker_thread] is [true]. This will be clamped between [2 ms] and
          some longer interval (maximum [60s] currently). Default 500.
          @since 0.7 *)
  common: Opentelemetry_client.Config.t;
      (** Common configuration options
          @since 0.12*)
}

let pp out self =
  let { bg_threads; ticker_thread; ticker_interval_ms; common } = self in
  Format.fprintf out
    "{@[ bg_threads=%d;@ ticker_thread=%B;@ ticker_interval_ms=%d;@ common=%a \
     @]}"
    bg_threads ticker_thread ticker_interval_ms Opentelemetry_client.Config.pp
    common

module Env = Opentelemetry_client.Config.Env ()

let make =
  Env.make
    (fun
      common
      ?(bg_threads = 4)
      ?(ticker_thread = true)
      ?(ticker_interval_ms = 500)
      ()
    -> { bg_threads; ticker_thread; ticker_interval_ms; common })