mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-13 14:06:32 -04:00
8 lines
313 B
OCaml
8 lines
313 B
OCaml
open Common_.OTEL
|
|
|
|
let add_interval_limiter il (e : _ Emitter.t) : _ Emitter.t =
|
|
let emit xs = if Interval_limiter.make_attempt il then Emitter.emit e xs in
|
|
{ e with emit }
|
|
|
|
let limit_interval ~min_interval (e : _ Emitter.t) : _ Emitter.t =
|
|
add_interval_limiter (Interval_limiter.create ~min_interval ()) e
|