From 1259773fac4d7c334351c61ab8cf71231c1af4ef Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 3 Sep 2026 02:23:27 +0000 Subject: Branch registration --- lib/kernel/Initialization.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/kernel/Initialization.ml') diff --git a/lib/kernel/Initialization.ml b/lib/kernel/Initialization.ml index ab91dbc..d213b66 100644 --- a/lib/kernel/Initialization.ml +++ b/lib/kernel/Initialization.ml @@ -6,7 +6,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct let open Protocols in let root = Namespace.make () in let registry = Registry.from root |> Option.get in - let* branch = BM.make conn "rnt-head" in - let* _ = Registry.update registry "branch" None (Some branch) in + let* branch_manager = BM.make conn "rnt-head" in + let* _ = Registry.update registry "branch" None (Some branch_manager) in Ok root end -- cgit v1.2.3