From e7a967376cbd46831f08ba48f577b60c1806fd6a Mon Sep 17 00:00:00 2001 From: Pietro Abate Date: Wed, 14 Nov 2018 15:42:41 +0100 Subject: [PATCH] Mempool: unbox Request message and clarify pp message --- src/lib_shell/mempool_worker.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lib_shell/mempool_worker.ml b/src/lib_shell/mempool_worker.ml index 40a3bedb8..9cc1b8997 100644 --- a/src/lib_shell/mempool_worker.ml +++ b/src/lib_shell/mempool_worker.ml @@ -155,7 +155,7 @@ module Make(Static: STATIC)(Proto: Registered_protocol.T) module Request = struct - type 'a t = Validate : operation -> result t + type 'a t = Validate : operation -> result t [@@ocaml.unboxed] type view = View : _ t -> view @@ -169,7 +169,7 @@ module Make(Static: STATIC)(Proto: Registered_protocol.T) operation_encoding let pp ppf (View (Validate { hash })) = - Format.fprintf ppf "New parsed operation hash %a" Operation_hash.pp hash + Format.fprintf ppf "Validating new operation %a" Operation_hash.pp hash end module Event = struct