Alpha: more verbose endorser

This commit is contained in:
Grégoire Henry 2018-06-19 06:02:17 +02:00 committed by Benjamin Canou
parent 1c71b1fafb
commit bb288ac64b

View File

@ -110,7 +110,7 @@ let endorse_for_delegate cctxt block delegate =
inject_endorsement cctxt inject_endorsement cctxt
b hash level b hash level
sk delegate >>=? fun oph -> sk delegate >>=? fun oph ->
lwt_log_info lwt_log_notice
"Injected endorsement for block '%a' \ "Injected endorsement for block '%a' \
(level %a, contract %s) '%a'" (level %a, contract %s) '%a'"
Block_hash.pp_short hash Block_hash.pp_short hash
@ -221,7 +221,7 @@ let create
(* ignition *) (* ignition *)
check_error (prepare_endorsement cctxt ~max_past state bi) >>= fun () -> check_error (prepare_endorsement cctxt ~max_past state bi) >>= fun () ->
lwt_log_info "Starting endorsement daemon" >>= fun () -> lwt_log_notice "Starting endorsement daemon" >>= fun () ->
worker_loop () worker_loop ()
(* A wrapper around the main create function (above) to wait for the initial (* A wrapper around the main create function (above) to wait for the initial