From 99f3b8446cbba61c892e7be0040edb5aff67ad58 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= <code@bnwr.net>
Date: Wed, 13 Jun 2018 14:14:47 +0800
Subject: [PATCH] Alpha/Baker: more client messages

---
 src/proto_alpha/lib_delegate/client_baking_forge.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml
index 6fbec9db2..ef6321d0d 100644
--- a/src/proto_alpha/lib_delegate/client_baking_forge.ml
+++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml
@@ -623,6 +623,7 @@ let create
     (block_stream: Client_baking_blocks.block_info tzresult Lwt_stream.t)
     (bi: Client_baking_blocks.block_info) =
 
+  cctxt#message "Setting up before the baker can start." >>= fun () ->
   Shell_services.Blocks.hash cctxt ~block:`Genesis () >>=? fun genesis_hash ->
 
   (* statefulness *)
@@ -678,6 +679,7 @@ let create
 
   (* ignition *)
   lwt_log_info "Starting baking daemon" >>= fun () ->
+  cctxt#message "Starting the baker" >>= fun () ->
   worker_loop ()