balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Mempool: unbox Request message and clarify pp message

Browse Source
This commit is contained in:
Pietro Abate 2018-11-14 15:42:41 +01:00 committed by Benjamin Canou
parent fee5f44d63
commit 98d772cc75
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib_shell/mempool_worker.ml
View File

@ -149,7 +149,7 @@ module Make(Proto: Registered_protocol.T) : T with module Proto = Proto = struct
module Request = 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 type view = View : _ t -> view
@ -163,7 +163,7 @@ module Make(Proto: Registered_protocol.T) : T with module Proto = Proto = struct
operation_encoding operation_encoding
let pp ppf (View (Validate { hash })) = 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 end
module Event = struct module Event = struct