From 663a221baac4e812ba31c4b598aa6ef1a3907f9d Mon Sep 17 00:00:00 2001 From: "iguerNL@Functori" Date: Tue, 5 Mar 2024 13:27:19 +0100 Subject: [PATCH] Proto/DAL: always save the list of slots waiting attestation, even empty --- src/proto_alpha/lib_protocol/dal_slot_storage.ml | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/proto_alpha/lib_protocol/dal_slot_storage.ml b/src/proto_alpha/lib_protocol/dal_slot_storage.ml index 30520c86d171..944056b4f2b3 100644 --- a/src/proto_alpha/lib_protocol/dal_slot_storage.ml +++ b/src/proto_alpha/lib_protocol/dal_slot_storage.ml @@ -26,11 +26,10 @@ let find_slot_headers ctxt level = Storage.Dal.Slot.Headers.find ctxt level let finalize_current_slot_headers ctxt = - let current_level = Raw_context.current_level ctxt in - let slot_headers = Raw_context.Dal.candidates ctxt in - match slot_headers with - | [] -> Lwt.return ctxt - | _ :: _ -> Storage.Dal.Slot.Headers.add ctxt current_level.level slot_headers + Storage.Dal.Slot.Headers.add + ctxt + (Raw_context.current_level ctxt).level + (Raw_context.Dal.candidates ctxt) let compute_attested_slot_headers ~is_slot_attested seen_slot_headers = let open Dal_slot_repr in -- GitLab