Baker: avoid infinite sleep to the past

2018-06-18 18:50:32 +02:00 · 2018-06-18 18:50:32 +02:00 · 93a72ca28d
commit 93a72ca28d
parent cf36510431
1 changed files with 4 additions and 2 deletions
--- a/src/proto_alpha/lib_delegate/client_baking_forge.ml
+++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml
@ -406,8 +406,10 @@ let compute_timeout { future_slots } =
      Lwt_utils.never_ending
  | (timestamp, _) :: _ ->
      match Client_baking_scheduling.sleep_until timestamp with
-      | None -> Lwt_utils.never_ending
-      | Some timeout -> timeout
+      | None ->
+          Lwt.return ()
+      | Some timeout ->
+          timeout

 let get_unrevealed_nonces
    (cctxt : #Proto_alpha.full) ?(force = false) ?(chain = `Main) block =