blob: fc58dad9027ff0c3ba2b43b9e7db600ce2dbdc40 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
module Make (S : Abstract.Storage.STORAGE) : sig
type t
val encode : t -> Concepts.Blob.t
val decode : Concepts.Blob.t -> (t, Concepts.Condition.condition) result
val wrap : S.connection -> t -> (Protocols.Handle.t, Concepts.Condition.condition) result
val make : S.connection -> (Protocols.Handle.t, Concepts.Condition.condition) result
end
|
