Client: avoid unrequired monitor
This commit is contained in:
parent
556c965af7
commit
82628a6ca2
@ -28,17 +28,17 @@ let run cctxt ?max_priority ~delay ?min_date delegates =
|
|||||||
Lwt.return_unit
|
Lwt.return_unit
|
||||||
in
|
in
|
||||||
let forge =
|
let forge =
|
||||||
Client_mining_blocks.monitor
|
if Client_proto_args.Daemon.(!all || !mining) then begin
|
||||||
cctxt ?min_date ~min_heads:1 () >>= fun block_stream ->
|
Client_mining_blocks.monitor
|
||||||
(* Temporary desactivate the monitoring of endorsement:
|
cctxt ?min_date ~min_heads:1 () >>= fun block_stream ->
|
||||||
too slow for now. *)
|
(* Temporary desactivate the monitoring of endorsement:
|
||||||
(* Client_mining_operations.monitor_endorsement *)
|
too slow for now. *)
|
||||||
|
(* Client_mining_operations.monitor_endorsement *)
|
||||||
(* cctxt >>= fun endorsement_stream -> *)
|
(* cctxt >>= fun endorsement_stream -> *)
|
||||||
let endorsement_stream, _push = Lwt_stream.create () in
|
let endorsement_stream, _push = Lwt_stream.create () in
|
||||||
if Client_proto_args.Daemon.(!all || !mining) then
|
|
||||||
Client_mining_forge.create cctxt
|
Client_mining_forge.create cctxt
|
||||||
?max_priority delegates block_stream endorsement_stream
|
?max_priority delegates block_stream endorsement_stream
|
||||||
else
|
end else
|
||||||
Lwt.return_unit
|
Lwt.return_unit
|
||||||
in
|
in
|
||||||
denunciation >>= fun () ->
|
denunciation >>= fun () ->
|
||||||
|
Loading…
Reference in New Issue
Block a user