From e3b6a0a568e7edd57a26a1a00abb3f895117566f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@tezos.com>
Date: Fri, 1 Jun 2018 00:48:17 +0200
Subject: [PATCH] Alpha: add padding to `Contract.encoding`

---
 src/proto_alpha/lib_protocol/src/contract_repr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/proto_alpha/lib_protocol/src/contract_repr.ml b/src/proto_alpha/lib_protocol/src/contract_repr.ml
index be62d284f..2f33ab9ba 100644
--- a/src/proto_alpha/lib_protocol/src/contract_repr.ml
+++ b/src/proto_alpha/lib_protocol/src/contract_repr.ml
@@ -63,7 +63,7 @@ let encoding =
             Signature.Public_key_hash.encoding
             (function Implicit k -> Some k | _ -> None)
             (fun k -> Implicit k) ;
-          case (Tag 1) Contract_hash.encoding
+          case (Tag 1) (Fixed.add_padding Contract_hash.encoding 1)
             ~title:"Originated"
             (function Originated k -> Some k | _ -> None)
             (fun k -> Originated k) ;