Shell: preapply should hash instead of commit

This commit is contained in:
Vincent Botbol 2018-08-28 17:46:48 +02:00 committed by Grégoire Henry
parent 8e8fae23fd
commit 9f5a521188
No known key found for this signature in database
GPG Key ID: 50D984F20BD445D2

View File

@ -241,7 +241,7 @@ let preapply ~predecessor ~timestamp ~protocol_data ~sort_operations:sort ops =
NewProto.init context shell_header >>=? fun { context ; message ; _ } ->
return (context, message)
end >>=? fun (context, message) ->
Context.commit ?message ~time:timestamp context >>= fun context ->
Context.hash ?message ~time:timestamp context >>= fun context ->
return ({ shell_header with context }, rs)
let notify_operation (State { proto = (module Proto) ; new_operation_input ; }) result =