module Server_msg: sig .. end
sig
end
module Control: sig .. end
type ('name, 'data) t =
('name, 'data)
|
Control of 'name Control.t
'name Control.t
Data of ('name, 'data) Versioned_typed_tcp.Read_result.t
('name, 'data) Versioned_typed_tcp.Read_result.t