module type Error = sig .. end
sig
end
exception E of string
string
val name : OBus_error.name
OBus_error.name