Michelson: prepend 0x05 to PACKed data

2018-06-15 00:46:50 +02:00 · 2018-06-15 00:46:50 +02:00 · 7b5e029537
commit 7b5e029537
parent 710998caf4
1 changed files with 1 additions and 0 deletions
--- 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 =