Alpha: add padding to Contract.encoding
This commit is contained in:
parent
9a43902f03
commit
e3b6a0a568
@ -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) ;
|
||||||
|
Loading…
Reference in New Issue
Block a user