Module Limiter.Throttle

module Throttle: sig .. end

Implements a basic throttle. Users of the throttle must successfully call start_job before beginning work and must call finish_job once, and only once, when a job is completed.

type t = private Limiter.limiter

val create_exn : now:Time.t -> max_concurrent_jobs:int -> t

val try_start_job : t -> now:Time.t -> [ `Max_concurrent_jobs_running | `Start ]

val finish_job : t -> now:Time.t -> unit