diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
| commit | 584fbca6d920e9a9f91d451667f9380714ac2175 (patch) | |
| tree | a163b916a6f8cb550c8b38ceb01ab01558687a40 /lib/kernel/Storage.mli | |
| parent | c7b754e96714eeeb9d315ee3de402d73a27d47db (diff) | |
| download | RNT-584fbca6d920e9a9f91d451667f9380714ac2175.tar.gz RNT-584fbca6d920e9a9f91d451667f9380714ac2175.zip | |
dune fmt
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Storage.mli | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/lib/kernel/Storage.mli b/lib/kernel/Storage.mli index 53bb666..92f602d 100644 --- a/lib/kernel/Storage.mli +++ b/lib/kernel/Storage.mli @@ -2,7 +2,9 @@ module Make : functor (S : Abstract.Storage.STORAGE) -> sig module Pointer : sig type 'a t - val make : (S.transaction -> S.address -> ('a, Concepts.Condition.condition) result) -> S.address -> 'a t + val make : + (S.transaction -> S.address -> ('a, Concepts.Condition.condition) result) -> S.address -> 'a t + val address_of : 'a t -> S.address val swap : 'a t -> S.address -> 'a t val deref : S.transaction -> 'a t -> ('a, Concepts.Condition.condition) result @@ -10,9 +12,23 @@ module Make : functor (S : Abstract.Storage.STORAGE) -> sig val as_hash : S.address -> Concepts.Hash.hash - val finish : S.transaction -> ('a, Concepts.Condition.condition) result -> ('a, Concepts.Condition.condition) result - val with_transaction : S.connection -> (S.transaction -> ('a, Concepts.Condition.condition) result) -> ('a, Concepts.Condition.condition) result - val with_read : S.connection -> (S.transaction -> ('a, Concepts.Condition.condition) result) -> ('a, Concepts.Condition.condition) result - val store_blob : S.transaction -> Concepts.Blob.t -> (Concepts.Hash.hash, Concepts.Condition.condition) result - val get_req: S.transaction -> S.address -> (Concepts.Blob.t, Concepts.Condition.condition) result + val finish : + S.transaction -> + ('a, Concepts.Condition.condition) result -> + ('a, Concepts.Condition.condition) result + + val with_transaction : + S.connection -> + (S.transaction -> ('a, Concepts.Condition.condition) result) -> + ('a, Concepts.Condition.condition) result + + val with_read : + S.connection -> + (S.transaction -> ('a, Concepts.Condition.condition) result) -> + ('a, Concepts.Condition.condition) result + + val store_blob : + S.transaction -> Concepts.Blob.t -> (Concepts.Hash.hash, Concepts.Condition.condition) result + + val get_req : S.transaction -> S.address -> (Concepts.Blob.t, Concepts.Condition.condition) result end |