Alpha: add padding to Contract.encoding

This commit is contained in:
Grégoire Henry 2018-06-01 00:48:17 +02:00 committed by Benjamin Canou
parent 9a43902f03
commit e3b6a0a568

View File

@ -63,7 +63,7 @@ let encoding =
Signature.Public_key_hash.encoding Signature.Public_key_hash.encoding
(function Implicit k -> Some k | _ -> None) (function Implicit k -> Some k | _ -> None)
(fun k -> Implicit k) ; (fun k -> Implicit k) ;
case (Tag 1) Contract_hash.encoding case (Tag 1) (Fixed.add_padding Contract_hash.encoding 1)
~title:"Originated" ~title:"Originated"
(function Originated k -> Some k | _ -> None) (function Originated k -> Some k | _ -> None)
(fun k -> Originated k) ; (fun k -> Originated k) ;