From a57c1edec1b68ccff45608b733b42e54c4269e5c Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
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 "@{<error>@{<title>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 ->