From ebea139a01d1ca3f53df9671ff4ebf7990ac26d4 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 20 Aug 2026 00:18:32 +0000 Subject: Make `update` a bit more like compare-and-swap --- lib/kernel/BranchManager.mli | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lib/kernel/BranchManager.mli') diff --git a/lib/kernel/BranchManager.mli b/lib/kernel/BranchManager.mli index 063f8a7..052f9a1 100644 --- a/lib/kernel/BranchManager.mli +++ b/lib/kernel/BranchManager.mli @@ -1,11 +1,9 @@ -type branch = string (* FIXME *) - module Make (S : Abstract.Storage.STORAGE) : sig type manager val initialize : S.connection -> string -> (manager, Concepts.Condition.condition) result - val fetch : manager -> string -> (branch option, Concepts.Condition.condition) result - val update : manager -> string -> (branch -> branch) -> (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 -- cgit v1.2.3