From 8264ec111affa6f9ed576dd17c028e751bec0521 Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Wed, 14 Dec 2016 16:39:42 +0100
Subject: [PATCH] Client: do not eat some error messages.

---
 src/client_main.ml | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/src/client_main.ml b/src/client_main.ml
index 47aaf319e..94e5e35e3 100644
--- a/src/client_main.ml
+++ b/src/client_main.ml
@@ -42,11 +42,14 @@ let main () =
        Lwt.catch
          (fun () ->
             Client_node_rpcs.Blocks.protocol cctxt block)
-         (fun _ ->
-            cctxt.message
-              "\n\
-               The connection to the RPC server failed, \
-               using the default protocol version.\n" >>= fun () ->
+         (fun exn ->
+            cctxt.warning
+              "Error trying to acquire the protocol version from the node: %s."
+              (match exn with
+               | Failure msg -> msg
+               | exn -> Printexc.to_string exn) >>= fun () ->
+            cctxt.warning
+              "Using the default protocol version." >>= fun () ->
             Lwt.return Client_bootstrap.Client_proto_main.protocol)
        >>= fun version ->
        let commands =
@@ -81,7 +84,7 @@ let main () =
           Format.eprintf "Command failed, %s.\n%!" message ;
           Lwt.return 1
       | Failure message ->
-          Format.eprintf "%s\n%!" message ;
+          Format.eprintf "Fatal error: %s\n%!" message ;
           Lwt.return 1
       | exn ->
           Format.printf "Fatal internal error: %s\n%!"