From 7f07c6badb7bc0f27eab67dcfab0759b1326d5dc Mon Sep 17 00:00:00 2001 From: Vincent Botbol Date: Mon, 6 Aug 2018 15:45:03 +0200 Subject: [PATCH] Baker: ensure shell prevalidation is given a correct list of operations --- src/proto_alpha/lib_delegate/client_baking_forge.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml index 3b2a8f2f7..4c432c358 100644 --- a/src/proto_alpha/lib_delegate/client_baking_forge.ml +++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml @@ -801,9 +801,10 @@ let bake_slot -% t event "client_side_validation_error" -% a errs_tag errs) >>= fun () -> lwt_log_notice Tag.DSL.(fun f -> - f "Building an empty block using shell validation" + f "Building a block using shell validation" -% t event "shell_prevalidation_notice") >>= fun () -> - shell_prevalidation cctxt ~chain ~block seed_nonce_hash operations slot + shell_prevalidation cctxt ~chain ~block seed_nonce_hash + (List.sub operations 4) slot | Ok (final_context, validation_result, operations) -> lwt_debug Tag.DSL.(fun f -> f "Try forging locally the block header for %a (slot %d) for %s (%a)"