blob: 052f9a175ff613dd7e6677be674f3e3d98c16035 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
module Make (S : Abstract.Storage.STORAGE) : sig
type manager
val initialize : S.connection -> string -> (manager, Concepts.Condition.condition) result
val fetch : manager -> string -> (Concepts.Hash.hash option, Concepts.Condition.condition) result
val update : manager -> string -> Concepts.Hash.hash -> Concepts.Hash.hash -> (unit, Concepts.Condition.condition) result
(* TODO: fork, join *)
end
|
