From 584fbca6d920e9a9f91d451667f9380714ac2175 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 25 Sep 2026 21:51:33 -0300 Subject: dune fmt --- lib/kernel/Storage.mli | 28 ++++++++++++++++++++++------ 1 file changed, 22 insertions(+), 6 deletions(-) (limited to 'lib/kernel/Storage.mli') 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 -- cgit v1.2.3