Client: improve logging on protocol injection

This commit is contained in:
Grégoire Henry 2019-01-24 14:07:45 +01:00
parent b09e89f9f3
commit 4026d6ab58
No known key found for this signature in database
GPG Key ID: 50D984F20BD445D2

View File

@ -57,7 +57,7 @@ let commands () =
Lwt_utils_unix.Protocol.read_dir dirname >>=? fun (_hash, proto) -> Lwt_utils_unix.Protocol.read_dir dirname >>=? fun (_hash, proto) ->
Shell_services.Injection.protocol cctxt proto >>= function Shell_services.Injection.protocol cctxt proto >>= function
| Ok hash -> | Ok hash ->
cctxt#message "Injected protocol %a successfully" Protocol_hash.pp_short hash >>= fun () -> cctxt#message "Injected protocol %a successfully" Protocol_hash.pp hash >>= fun () ->
return_unit return_unit
| Error err -> | Error err ->
cctxt#error "Error while injecting protocol from %s: %a" cctxt#error "Error while injecting protocol from %s: %a"