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

shell: Better Logging

Browse Source
This commit is contained in:
Pietro Abate 2019-01-10 11:30:27 +01:00 committed by Grégoire Henry
parent b5499b37d5
commit 5915e98a55
No known key found for this signature in database
GPG Key ID: 50D984F20BD445D2
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/lib_shell/mempool_peer_worker.ml
View File

@ -261,11 +261,13 @@ module Make (Static: STATIC) (Mempool_worker: Mempool_worker.T)
let encoding = let encoding =
let open Data_encoding in let open Data_encoding in
list Operation_hash.encoding list Operation_hash.encoding
let pp ppf os = let pp ppf = function
Format.fprintf ppf |[] -> Format.fprintf ppf "@[<v 2>Request:@, Empty List of Operations@]"
"@[<v 2>Request:@,%a@]" |os ->
(Format.pp_print_list Operation_hash.pp) Format.fprintf ppf
os "@[<v 2>Request:@,%a@]"
(Format.pp_print_list Operation_hash.pp)
os
end end
module Event = struct module Event = struct

2
src/lib_shell/worker.ml
View File

@ -491,7 +491,7 @@ module Make
| Ok () -> | Ok () ->
loop () loop ()
| Error [Canceled | Exn Lwt_pipe.Closed | Exn Lwt_dropbox.Closed ] -> | Error [Canceled | Exn Lwt_pipe.Closed | Exn Lwt_dropbox.Closed ] ->
Logger.lwt_log_notice "Worker terminated" >>= fun () -> Logger.lwt_log_notice "@[Worker terminated [%a] @]" Name.pp w.name >>= fun () ->
do_close None do_close None
| Error errs -> | Error errs ->
begin match w.current_request with begin match w.current_request with