From f77a2544cc6481770901605175adb82ffad1d393 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Fri, 10 Feb 2017 18:20:35 +0100 Subject: [PATCH] Client/Baker: fix baking of the first block. --- src/client/embedded/bootstrap/baker/client_mining_daemon.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/client/embedded/bootstrap/baker/client_mining_daemon.ml b/src/client/embedded/bootstrap/baker/client_mining_daemon.ml index e352bb003..933e03a37 100644 --- a/src/client/embedded/bootstrap/baker/client_mining_daemon.ml +++ b/src/client/embedded/bootstrap/baker/client_mining_daemon.ml @@ -13,7 +13,7 @@ let run cctxt ?max_priority ~delay ?min_date delegates = (* TODO really detach... *) let endorsement = if Client_proto_args.Daemon.(!all || !endorsement) then - Client_mining_blocks.monitor cctxt ?min_date () >>= fun block_stream -> + Client_mining_blocks.monitor cctxt ?min_date ~min_heads:1 () >>= fun block_stream -> Client_mining_endorsement.create cctxt ~delay delegates block_stream else Lwt.return_unit @@ -26,7 +26,7 @@ let run cctxt ?max_priority ~delay ?min_date delegates = Lwt.return_unit in let forge = - Client_mining_blocks.monitor cctxt ?min_date () >>= fun block_stream -> + Client_mining_blocks.monitor cctxt ?min_date ~min_heads:1 () >>= fun block_stream -> Client_mining_operations.monitor_endorsement cctxt >>= fun endorsement_stream -> if Client_proto_args.Daemon.(!all || !mining) then Client_mining_forge.create cctxt