balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add a safe mode for workers

Browse Source
This commit is contained in:
Vincent Bernardoff 2016-10-10 15:37:01 +02:00
parent 9748ffcda6
commit cc83d8444b
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/utils/lwt_utils.ml
View File

@ -111,11 +111,12 @@ let queue () : ('a -> unit) * (unit -> 'a list Lwt.t) =
queue, wait queue, wait
(* A worker launcher, takes a cancel callback to call upon *) (* A worker launcher, takes a cancel callback to call upon *)
let worker name ~run ~cancel = let worker ?(safe=false) name ~run ~cancel =
let stop = LC.create () in let stop = LC.create () in
let fail e = let fail e =
log_error "%s worker failed with %s" name (Printexc.to_string e) ; log_error "%s worker failed with %s" name (Printexc.to_string e) ;
cancel () >>= fun () -> Lwt.fail e cancel () >>= fun () ->
if safe then Lwt.return_unit else Lwt.fail e
in in
let waiter = LC.wait stop in let waiter = LC.wait stop in
log_info "%s worker started" name ; log_info "%s worker started" name ;

1
src/utils/lwt_utils.mli
View File

@ -15,6 +15,7 @@ val canceler : unit ->
((unit -> unit Lwt.t) -> unit) ((unit -> unit Lwt.t) -> unit)
val worker: val worker:
?safe:bool ->
string -> string ->
run:(unit -> unit Lwt.t) -> run:(unit -> unit Lwt.t) ->
cancel:(unit -> unit Lwt.t) -> cancel:(unit -> unit Lwt.t) ->