Alpha/Baker: clean up timeouts in main loop

2018-06-13 14:14:24 +08:00 · 2018-06-13 14:14:24 +08:00 · 41a6c7f9b5
commit 41a6c7f9b5
parent 46de116fe7
1 changed files with 2 additions and 0 deletions
--- a/src/proto_alpha/lib_delegate/client_baking_forge.ml
+++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml
@ -648,6 +648,8 @@ let create
        (* event matching *)
      | `Hash (None | Some (Error _)) ->
          (* return to restart *)
+          Lwt.cancel timeout ;
+          last_get_block := None ;
          Lwt.return_unit

      | `Hash (Some (Ok bi)) -> begin