Logging.MakeFunctor that creates an implementation for Logger, given the Message and Event modules.
module Message : Events.Messagemodule Event : Events.Event with type msg = Message.ttype ev = Event.tThe type of events being logged.
val log_event : ev -> unitLogs an event to the JSON log.
Print that the head of a node's chain as been updated.
Receives a JSON string with the per node statistics and logs them.