From 9ff3be14b656de4020fe4df4ed4213b25deb01d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@tezos.com>
Date: Thu, 22 Feb 2018 17:13:18 -0500
Subject: [PATCH] Alpha/client: fix baking daemon

Missing classify operation.
---
 src/proto_alpha/lib_baking/client_baking_forge.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/proto_alpha/lib_baking/client_baking_forge.ml b/src/proto_alpha/lib_baking/client_baking_forge.ml
index fe2e3b7cb..705c81b09 100644
--- a/src/proto_alpha/lib_baking/client_baking_forge.ml
+++ b/src/proto_alpha/lib_baking/client_baking_forge.ml
@@ -487,8 +487,9 @@ let bake (cctxt : #Proto_alpha.full) state =
        let request = List.length operations in
        let protocol_data =
          forge_faked_protocol_data ~priority ~seed_nonce_hash in
+       let operations = classify_operations operations in
        Block_services.preapply cctxt block
-         ~timestamp ~sort:true ~protocol_data [operations] >>= function
+         ~timestamp ~sort:true ~protocol_data operations >>= function
        | Error errs ->
            lwt_log_error "Error while prevalidating operations:\n%a"
              pp_print_error