diff --git a/src/node/node_main.ml b/src/node/node_main.ml index 7e564080..8dbbf8a9 100644 --- a/src/node/node_main.ml +++ b/src/node/node_main.ml @@ -702,7 +702,9 @@ let _main_2 (type s) (fun u -> Lwt_buffer.add u client_buffer) fc), "client_buffer" - | Multi_paxos.FromNode _ + | Multi_paxos.FromNode (m,source) -> + (fun () -> Lwt_buffer.add (Mp_msg.MPMessage.generic_of m, source) node_buffer), + "node_buffer" | Multi_paxos.LeaseExpired _ | Multi_paxos.Quiesce _ | Multi_paxos.Unquiesce