From 457fee326e56dad421c1ac7e92dad60064c57c71 Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Fri, 15 Jun 2018 17:22:04 +0200
Subject: [PATCH] Alpha: allow serialization of failed manager operations

---
 .../lib_protocol/src/apply_operation_result.ml | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/proto_alpha/lib_protocol/src/apply_operation_result.ml b/src/proto_alpha/lib_protocol/src/apply_operation_result.ml
index c54af4568..5a4e2aea9 100644
--- a/src/proto_alpha/lib_protocol/src/apply_operation_result.ml
+++ b/src/proto_alpha/lib_protocol/src/apply_operation_result.ml
@@ -532,7 +532,23 @@ module Encoding = struct
                           { op with operation_result = Applied res })
               | None -> None
             end
-          | _ -> None) ;
+          | Contents_result
+              (Manager_operation_result
+                 ({ operation_result = Skipped _ ; _ } as op)) ->
+                  Some (Manager_operation_result
+                          { op with operation_result = Skipped res_case.kind })
+          | Contents_result
+              (Manager_operation_result
+                 ({ operation_result = Failed (_, errs) ; _ } as op)) ->
+                  Some (Manager_operation_result
+                          { op with operation_result = Failed (res_case.kind, errs) })
+          | Contents_result Ballot_result -> None
+          | Contents_result (Endorsements_result _) -> None
+          | Contents_result (Seed_nonce_revelation_result _) -> None
+          | Contents_result (Double_endorsement_evidence_result _) -> None
+          | Contents_result (Double_baking_evidence_result _) -> None
+          | Contents_result (Activate_account_result _) -> None
+          | Contents_result Proposals_result -> None) ;
       mselect ;
       proj =
         (fun (Manager_operation_result