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

Client: minor cosmetic change

Browse Source
This commit is contained in:
Benjamin Canou 2018-06-21 00:24:18 +02:00
parent 89c018f31b
commit a57c1edec1
1 changed files with 4 additions and 2 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

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