Client/Context_unix: load_file print error

This commit is contained in:
MBourgoin 2018-11-06 13:12:11 +01:00 committed by Grégoire Henry
parent e35e263fd6
commit 527a2fb621
No known key found for this signature in database
GPG Key ID: 50D984F20BD445D2

View File

@ -24,6 +24,9 @@
(*****************************************************************************)
open Client_context
include Tezos_stdlib.Logging.Make_semantic(struct let name = "client.context.unix" end)
let filename_tag = Tag.def ~doc:"Filename" "filename" Format.pp_print_string
class unix_wallet ~base_dir : wallet = object (self)
@ -63,7 +66,13 @@ class unix_wallet ~base_dir : wallet = object (self)
|> generic_trace
"could not read the %s alias file" alias_name >>=? fun json ->
match Data_encoding.Json.destruct encoding json with
| exception _ -> (* TODO print_error *)
| exception e ->
lwt_log_error Tag.DSL.(fun f ->
f "did not understand the %s alias file %s : %a"
-% t event "load error"
-% s filename_tag alias_name
-% s filename_tag filename
-% a exn e) >>= fun () ->
failwith "did not understand the %s alias file %s" alias_name filename
| data ->
return data