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

Client: minor error printing tweaks

Browse Source
This commit is contained in:
Benjamin Canou 2018-05-23 23:26:47 +02:00 committed by Grégoire Henry
parent 51cfa388f8
commit fe435ce114
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib_client_base_unix/client_main_run.ml
View File

@ -143,10 +143,12 @@ let main select_commands =
Format.eprintf "@{<error>@{<title>Fatal error@}@} unknown protocol version.@." ;
Lwt.return 1
| Failure message ->
Format.eprintf "@{<error>@{<title>Fatal error@}@} %s.@." message ;
Format.eprintf "@{<error>@{<title>Fatal error@}@} @[<hov 0>%a@]@."
Format.pp_print_text message ;
Lwt.return 1
| exn ->
Format.printf "@{<error>@{<title>Fatal error@}@} %s.@." (Printexc.to_string exn) ;
Format.printf "@{<error>@{<title>Fatal error@}@} @[<hov 0>%a@]@."
Format.pp_print_text (Printexc.to_string exn) ;
Lwt.return 1
end >>= fun retcode ->
Format.pp_print_flush Format.err_formatter () ;

4
src/lib_error_monad/error_monad.ml
View File

@ -124,7 +124,7 @@ module Make(Prefix : sig val id : string end) = struct
(req "kind" (constant "generic"))
(req "error" string)))
from_error to_error in
let pp = Format.pp_print_string in
let pp ppf s = Format.fprintf ppf "@[<h 0>%a@]" Format.pp_print_text s in
error_kinds :=
Error_kind { id ; title ; description ;
from_error ; category ; encoding_case ; pp } :: !error_kinds
@ -603,7 +603,7 @@ let () =
~id:"failure"
~title:"Generic error"
~description:"Unclassified error"
~pp:Format.pp_print_string
~pp:(fun ppf s -> Format.fprintf ppf "@[<h 0>%a@]" Format.pp_print_text s)
Data_encoding.(obj1 (req "msg" string))
(function
| Exn (Failure msg) -> Some msg