balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Michelson: prepend 0x05 to PACKed data

Browse Source
This commit is contained in:
Benjamin Canou 2018-06-15 00:46:50 +02:00
parent 710998caf4
commit 7b5e029537
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/proto_alpha/lib_protocol/src/script_ir_translator.ml
View File

@ -2872,6 +2872,7 @@ let pack_data ctxt typ data =
unparse_data ctxt Optimized typ data >>=? fun (data, ctxt) -> unparse_data ctxt Optimized typ data >>=? fun (data, ctxt) ->
let unparsed = strip_annotations @@ data in let unparsed = strip_annotations @@ data in
let bytes = Data_encoding.Binary.to_bytes_exn expr_encoding (Micheline.strip_locations unparsed) 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) return (bytes, ctxt)
let hash_data ctxt typ data = let hash_data ctxt typ data =