mirror of
https://github.com/c-cube/moonpool.git
synced 2026-03-08 06:48:06 -04:00
23 lines
521 B
OCaml
23 lines
521 B
OCaml
open Types_
|
|
include Runner
|
|
|
|
(* convenient alias *)
|
|
let k_ls = Task_local_storage.Private_.Storage.k_storage
|
|
|
|
let run_async_ ~ls:cur_ls f =
|
|
TLS.set k_ls (Some cur_ls);
|
|
try
|
|
let x = f () in
|
|
TLS.set k_ls None;
|
|
x
|
|
with e ->
|
|
let bt = Printexc.get_raw_backtrace () in
|
|
TLS.set k_ls None;
|
|
Printexc.raise_with_backtrace e bt
|
|
|
|
let runner : t =
|
|
Runner.For_runner_implementors.create
|
|
~size:(fun () -> 0)
|
|
~num_tasks:(fun () -> 0)
|
|
~shutdown:(fun ~wait:_ () -> ())
|
|
~run_async:run_async_ ()
|