balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha/Accuser: update logging messages

Browse Source
This commit is contained in:
Vincent Botbol 2018-08-22 16:40:29 +02:00 committed by Grégoire Henry
parent 2e410c7ae9
commit 98120cf068
No known key found for this signature in database
GPG Key ID: 50D984F20BD445D2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/proto_alpha/lib_delegate/client_baking_revelation.ml
View File

@ -23,6 +23,8 @@
(* *) (* *)
(*****************************************************************************) (*****************************************************************************)
include Tezos_stdlib.Logging.Make_semantic(struct let name = "client.nonce_revelation" end)
open Proto_alpha open Proto_alpha
let inject_seed_nonce_revelation rpc_config ?(chain = `Main) block ?async nonces = let inject_seed_nonce_revelation rpc_config ?(chain = `Main) block ?async nonces =
@ -43,8 +45,11 @@ let forge_seed_nonce_revelation
Shell_services.Blocks.hash cctxt ~chain ~block () >>=? fun hash -> Shell_services.Blocks.hash cctxt ~chain ~block () >>=? fun hash ->
match nonces with match nonces with
| [] -> | [] ->
cctxt#message "No nonce to reveal for block %a" lwt_log_info Tag.DSL.(fun f ->
Block_hash.pp_short hash >>= fun () -> f "Nothing to reveal for block %a"
-% t event "no_nonce_reveal"
-% a Block_hash.Logging.tag hash
) >>= fun () ->
return_unit return_unit
| _ -> | _ ->
inject_seed_nonce_revelation cctxt ~chain block nonces >>=? fun oph -> inject_seed_nonce_revelation cctxt ~chain block nonces >>=? fun oph ->