diff --git a/src/proto_alpha/lib_delegate/client_baking_endorsement.ml b/src/proto_alpha/lib_delegate/client_baking_endorsement.ml index 756df70cb..1b44e3904 100644 --- a/src/proto_alpha/lib_delegate/client_baking_endorsement.ml +++ b/src/proto_alpha/lib_delegate/client_baking_endorsement.ml @@ -203,7 +203,10 @@ let endorse_for cctxt = function endorsements in iter_p (endorse_for_delegate cctxt) done_waiting >>=? fun () -> - ignore errored; (* TODO: log *) + Lwt_list.iter_p (fun {timeout} -> + match Lwt.state timeout with + | Lwt.Fail f -> lwt_log_error "Endorsement failure: %s" (Printexc.to_string f) + | _ -> Lwt.return_unit) errored >>= fun () -> return still_waiting