1 2 3
module Make (S : Abstract.Storage.STORAGE) : sig val make : S.connection -> string -> (Protocols.Handle.t, Concepts.Condition.condition) result end