Alpha/Endorser: Log timeout errors

2018-06-14 09:30:35 +02:00 · 2018-06-14 09:30:35 +02:00 · 669b1b02e7
commit 669b1b02e7
parent b9d97a7a94
1 changed files with 4 additions and 1 deletions
--- 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