From a57c1edec1b68ccff45608b733b42e54c4269e5c Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Thu, 21 Jun 2018 00:24:18 +0200 Subject: [PATCH] Client: minor cosmetic change --- src/lib_client_base_unix/client_main_run.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/lib_client_base_unix/client_main_run.ml b/src/lib_client_base_unix/client_main_run.ml index 9b355376b..b3cfe3f2b 100644 --- a/src/lib_client_base_unix/client_main_run.ml +++ b/src/lib_client_base_unix/client_main_run.ml @@ -183,11 +183,13 @@ let main select_commands = Format.eprintf "@{@{Fatal error@}@} unknown protocol version.@." ; Lwt.return 1 | 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 ; Lwt.return 1 | 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) ; Lwt.return 1 end >>= fun retcode ->