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

Alpha/Baker: more client messages

Browse Source
This commit is contained in:
Raphaël Proust 2018-06-13 14:14:47 +08:00 committed by Grégoire Henry
parent 41a6c7f9b5
commit 99f3b8446c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_delegate/client_baking_forge.ml
View File

@ -623,6 +623,7 @@ let create
(block_stream: Client_baking_blocks.block_info tzresult Lwt_stream.t) (block_stream: Client_baking_blocks.block_info tzresult Lwt_stream.t)
(bi: Client_baking_blocks.block_info) = (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 -> Shell_services.Blocks.hash cctxt ~block:`Genesis () >>=? fun genesis_hash ->
(* statefulness *) (* statefulness *)
@ -678,6 +679,7 @@ let create
(* ignition *) (* ignition *)
lwt_log_info "Starting baking daemon" >>= fun () -> lwt_log_info "Starting baking daemon" >>= fun () ->
cctxt#message "Starting the baker" >>= fun () ->
worker_loop () worker_loop ()