From 03ee2224e8ee28231bfec08c7d124ba68d777a80 Mon Sep 17 00:00:00 2001
From: Pierre Chambart <pierre.chambart@ocamlpro.com>
Date: Tue, 26 Jun 2018 17:46:50 +0200
Subject: [PATCH] Alpha: Add label to baker argument of Apply.mark_skipped

---
 src/proto_alpha/lib_protocol/src/apply.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/proto_alpha/lib_protocol/src/apply.ml b/src/proto_alpha/lib_protocol/src/apply.ml
index 36635b329..82a669c25 100644
--- a/src/proto_alpha/lib_protocol/src/apply.ml
+++ b/src/proto_alpha/lib_protocol/src/apply.ml
@@ -537,8 +537,8 @@ let apply_manager_contents
 
 let rec mark_skipped
   : type kind.
-    Signature.Public_key_hash.t -> Level.t -> kind Kind.manager contents_list ->
-    kind Kind.manager contents_result_list = fun baker level -> function
+    baker : Signature.Public_key_hash.t -> Level.t -> kind Kind.manager contents_list ->
+    kind Kind.manager contents_result_list = fun ~baker level -> function
   | Single (Manager_operation ({ source ; fee } as op)) ->
       Single_result
         (Manager_operation_result
@@ -557,7 +557,7 @@ let rec mark_skipped
                   Rewards (baker, level.cycle), Credited fee ] ;
             operation_result = Skipped (manager_kind op.operation) ;
             internal_operation_results = [] },
-         mark_skipped baker level rest)
+         mark_skipped ~baker level rest)
 
 let rec precheck_manager_contents_list
   : type kind.
@@ -606,7 +606,7 @@ let rec apply_manager_contents_list_rec
                 operation_result ;
                 internal_operation_results ;
               } in
-            Lwt.return (`Failure, Cons_result (result, mark_skipped baker level rest))
+            Lwt.return (`Failure, Cons_result (result, mark_skipped ~baker level rest))
         | (`Success ctxt, operation_result, internal_operation_results) ->
             let result =
               Manager_operation_result {