Module WorkerPool

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