S (Std.Versioned_typed

include Arg

module To_server_msg : Datum

module To_client_msg : Datum

module Server_name : Name

module Client_name : Name

module Mode : Mode

type 'a logfun = [

| `Recv of 'recv

| `Send of 'send

] -> 'remote_name -> time_sent_received:Core.Std.Time.t -> unit constraint 'a = < send : 'send; recv : 'recv; remote_name : 'remote_name >

module Server : sig .. end

module Client : sig .. end

Module type S