From f4cadd37a585270aa7513e0eae98eda775796137 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Wed, 13 Jun 2018 12:37:19 +0800 Subject: [PATCH] Alpha/endorser: send client messages on success --- src/proto_alpha/lib_delegate/client_baking_endorsement.ml | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_delegate/client_baking_endorsement.ml b/src/proto_alpha/lib_delegate/client_baking_endorsement.ml index 41ad72a00..ab970b0a1 100644 --- a/src/proto_alpha/lib_delegate/client_baking_endorsement.ml +++ b/src/proto_alpha/lib_delegate/client_baking_endorsement.ml @@ -181,7 +181,13 @@ let endorse_for cctxt = function Block_hash.pp_short hash Raw_level.pp level name - Operation_hash.pp_short oph >>= return + Operation_hash.pp_short oph >>= fun () -> + cctxt#message + "Injected endorsement level %a, contract %s '%a'" + Raw_level.pp level + name + Operation_hash.pp_short oph >>= fun () -> + return () let allowed_to_endorse cctxt state (block: Client_baking_blocks.block_info) delegate time = Client_keys.Public_key_hash.name cctxt delegate >>=? fun name ->