Mempool: unbox Request message and clarify pp message
This commit is contained in:
parent
fee5f44d63
commit
98d772cc75
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user