module Hydro_oa:Object adapterssig
..end
exception Identity_exists of Hydro_types.identity
exception Object_exists of Hydro_lm.interface_base
class type object_adapter_t =object
..end
class object_adapter :unit ->
object_adapter_t
val object_adapter : unit -> object_adapter_t