From 6682f05ec96405035862f087166090d4f2868798 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Mon, 18 Jun 2018 23:14:04 +0200 Subject: [PATCH] Baker: do not compare Lwt threads --- src/proto_alpha/lib_delegate/client_baking_endorsement.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_delegate/client_baking_endorsement.ml b/src/proto_alpha/lib_delegate/client_baking_endorsement.ml index 27a4bd0ee..17e32698c 100644 --- a/src/proto_alpha/lib_delegate/client_baking_endorsement.ml +++ b/src/proto_alpha/lib_delegate/client_baking_endorsement.ml @@ -193,7 +193,9 @@ let allowed_to_endorse cctxt state (block: Client_baking_blocks.block_info) dele | Some old -> if Fitness.compare old.block.fitness neu.block.fitness < 0 then begin let without_old = - List.filter (fun to_end -> to_end <> old) state.to_endorse in + List.filter (fun to_end -> + to_end.block.hash <> old.block.hash) + state.to_endorse in state.to_endorse <- neu :: without_old; return () end else