type t = {
ref : int32;
event_channel : int;
protocol : Protocol.t;
}
val keys : string list
val to_string : t -> string
val of_assoc_list : (string * string) list -> (t, [ `Msg of string ]) result
