WorkerPool
type worker_id = string
type 'a cpanel = {
exit : unit -> unit;
cancelled : unit -> bool;
extra : 'a;
}
module type PoolModel = sig ... end
module Make (Model : PoolModel) : sig ... end