Mempool: unbox Request message and clarify pp message

This commit is contained in:
Pietro Abate 2018-11-14 15:42:41 +01:00 committed by Benjamin Canou
parent fee5f44d63
commit 98d772cc75

View File

@ -149,7 +149,7 @@ module Make(Proto: Registered_protocol.T) : T with module Proto = Proto = struct
module Request = struct
type 'a t = Validate : operation -> result t
type 'a t = Validate : operation -> result t [@@ocaml.unboxed]
type view = View : _ t -> view
@ -163,7 +163,7 @@ module Make(Proto: Registered_protocol.T) : T with module Proto = Proto = struct
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