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