Msgpack_debug (p.vcaml.v0.16.0.doc.vcaml.msgpack_debug.Msgpack

Source

module Man_in_the_middle_debugger : 
  Man_in_the_middle_debugger.S with type message := Msgpack.t

Source

val create_debug_printers : 
  ?pp:(Format.formatter -> Msgpack.t -> unit) ->
  ?color:bool ->
  peer1:string ->
  peer2:string ->
  Core.Out_channel.t ->
  [ `Peer_1_to_2 of Msgpack.t -> unit ] * [ `Peer_2_to_1 of Msgpack.t -> unit ]

Returns functions that pretty-print Msgpack.ts sent between peer1 and peer2. The messages have "peer1 -> peer2" or "peer2 -> peer1" headings to indicate the message direction. Useful for debugging communication between two peers.

Source

val command : 
  ?pp:(Format.formatter -> Msgpack.t -> unit) ->
  unit ->
  Async.Command.t