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