From c13a7135f80c2d268e03616ff53197466b099f1f Mon Sep 17 00:00:00 2001
From: Vincent Botbol <vincent.botbol@tezcore.com>
Date: Mon, 26 Nov 2018 18:39:48 +0100
Subject: [PATCH] Baker: fix inconsistency in logging

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

diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml
index 0be91fb24..2bee95e75 100644
--- a/src/proto_alpha/lib_delegate/client_baking_forge.ml
+++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml
@@ -661,7 +661,7 @@ let forge_block
 
   (* Now for some logging *)
   let total_op_count = List.length operations_arg in
-  let valid_op_count = List.length operations in
+  let valid_op_count = List.length (List.concat operations) in
   lwt_log_info Tag.DSL.(fun f ->
       f "Found %d valid operations (%d refused) for timestamp %a@.Computed fitness %a"
       -% t event "found_valid_operations"