Prevalidation: fix preapply where applied operations would be reversed
This commit is contained in:
parent
64fd40b77f
commit
030916ed11
@ -298,6 +298,9 @@ let preapply ~predecessor ~timestamp ~protocol_data operations =
|
||||
(Preapply_result.empty, acc_validation_state)
|
||||
operations
|
||||
>>= fun (new_validation_result, new_validation_state) ->
|
||||
(* Applied operations are reverted ; revert to the initial ordering *)
|
||||
let new_validation_result =
|
||||
{ new_validation_result with applied = List.rev new_validation_result.applied } in
|
||||
Lwt.return (acc_validation_result @ [new_validation_result], new_validation_state)
|
||||
) ([], validation_state) operations
|
||||
>>= fun (validation_result_list, validation_state) ->
|
||||
|
Loading…
Reference in New Issue
Block a user