sig type t = { set_thread_name_to : string option; doit : unit -> [ `Continue | `Stop ]; } val sexp_of_t : Block_group.Work.t -> Sexplib.Sexp.t end