Alpha/Baker: clean up timeouts in main loop

This commit is contained in:
Raphaël Proust 2018-06-13 14:14:24 +08:00 committed by Grégoire Henry
parent 46de116fe7
commit 41a6c7f9b5

View File

@ -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