Alpha/Baker: clean up timeouts in main loop
This commit is contained in:
parent
46de116fe7
commit
41a6c7f9b5
@ -648,6 +648,8 @@ let create
|
|||||||
(* event matching *)
|
(* event matching *)
|
||||||
| `Hash (None | Some (Error _)) ->
|
| `Hash (None | Some (Error _)) ->
|
||||||
(* return to restart *)
|
(* return to restart *)
|
||||||
|
Lwt.cancel timeout ;
|
||||||
|
last_get_block := None ;
|
||||||
Lwt.return_unit
|
Lwt.return_unit
|
||||||
|
|
||||||
| `Hash (Some (Ok bi)) -> begin
|
| `Hash (Some (Ok bi)) -> begin
|
||||||
|
Loading…
Reference in New Issue
Block a user