From 82628a6ca246b267e4203ee138668f14acf9f312 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Thu, 9 Mar 2017 14:35:43 +0100 Subject: [PATCH] Client: avoid unrequired monitor --- .../embedded/alpha/baker/client_mining_daemon.ml | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/client/embedded/alpha/baker/client_mining_daemon.ml b/src/client/embedded/alpha/baker/client_mining_daemon.ml index 4f9136178..fe886dac2 100644 --- a/src/client/embedded/alpha/baker/client_mining_daemon.ml +++ b/src/client/embedded/alpha/baker/client_mining_daemon.ml @@ -28,17 +28,17 @@ let run cctxt ?max_priority ~delay ?min_date delegates = Lwt.return_unit in let forge = - Client_mining_blocks.monitor - cctxt ?min_date ~min_heads:1 () >>= fun block_stream -> - (* Temporary desactivate the monitoring of endorsement: - too slow for now. *) - (* Client_mining_operations.monitor_endorsement *) + if Client_proto_args.Daemon.(!all || !mining) then begin + Client_mining_blocks.monitor + cctxt ?min_date ~min_heads:1 () >>= fun block_stream -> + (* Temporary desactivate the monitoring of endorsement: + too slow for now. *) + (* Client_mining_operations.monitor_endorsement *) (* cctxt >>= fun endorsement_stream -> *) - let endorsement_stream, _push = Lwt_stream.create () in - if Client_proto_args.Daemon.(!all || !mining) then + let endorsement_stream, _push = Lwt_stream.create () in Client_mining_forge.create cctxt ?max_priority delegates block_stream endorsement_stream - else + end else Lwt.return_unit in denunciation >>= fun () ->