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 MBourgoin
parent 34e8a1ce1e
commit e7a967376c
No known key found for this signature in database
GPG Key ID: 4B3F7008ABB5B2D0
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

@ -155,7 +155,7 @@ module Make(Static: STATIC)(Proto: Registered_protocol.T)
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
@ -169,7 +169,7 @@ module Make(Static: STATIC)(Proto: Registered_protocol.T)
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