From 7b5e0295372061ddc6ec1fbb962b9a07491ac178 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Fri, 15 Jun 2018 00:46:50 +0200 Subject: [PATCH] Michelson: prepend 0x05 to PACKed data --- src/proto_alpha/lib_protocol/src/script_ir_translator.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/src/proto_alpha/lib_protocol/src/script_ir_translator.ml b/src/proto_alpha/lib_protocol/src/script_ir_translator.ml index a5ae2c276..1c779c94b 100644 --- a/src/proto_alpha/lib_protocol/src/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/src/script_ir_translator.ml @@ -2872,6 +2872,7 @@ let pack_data ctxt typ data = unparse_data ctxt Optimized typ data >>=? fun (data, ctxt) -> let unparsed = strip_annotations @@ data in let bytes = Data_encoding.Binary.to_bytes_exn expr_encoding (Micheline.strip_locations unparsed) in + let bytes = MBytes.concat "" [ MBytes.of_string "\005" ; bytes ] in return (bytes, ctxt) let hash_data ctxt typ data =