Source file `provider_config.ml`

1
2
3
4
5
6
7
8
9
10
11
(** Per-provider batching configuration. *)

type t = {
  batch: int option;
  timeout: Mtime.Span.t;
}

let make ?(batch : int option) ?(timeout = Mtime.Span.(2_000 * ms)) () : t =
  { batch; timeout }

let default : t = make ()