Module WorkerPoolSource

Sourcetype worker_id = string
Sourcetype 'a cpanel = {
  1. exit : unit -> unit;
  2. cancelled : unit -> bool;
  3. extra : 'a;
}
Sourcemodule type PoolModel = sig ... end
Sourcemodule Make (Model : PoolModel) : sig ... end