From b79224410f469a1cd4ff3be4f8e62d71398109fc Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Fri, 11 Sep 2026 04:06:52 +0000 Subject: Multigroup objects --- test/integration/Registration.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test') diff --git a/test/integration/Registration.ml b/test/integration/Registration.ml index 1f1a768..c77a139 100644 --- a/test/integration/Registration.ml +++ b/test/integration/Registration.ml @@ -19,8 +19,8 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let registration = begin let* root = I.initialize conn in - let* root = Directory.from root |> Option.to_result ~none:(Error.not_found ()) in - let* bm = Directory.find root "branch" |> fmap (Option.to_result ~none:(Error.not_found ())) in + let* bm = Kernel.Path.(lookup root ("branch" @/ this)) + |> fmap (Option.to_result ~none:(Error.not_found ())) in let* bm = Registry.from bm |> Option.to_result ~none:(Error.not_found ()) in let* branch = B.make conn in Registry.update bm "master" None (Some branch) @@ -29,8 +29,8 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let presence = begin let* root = I.initialize conn in - let* root = Directory.from root |> Option.to_result ~none:(Error.not_found ()) in - let* bm = Directory.find root "branch" |> fmap (Option.to_result ~none:(Error.not_found ())) in + let* bm = Kernel.Path.(lookup root ("branch" @/ this)) + |> fmap (Option.to_result ~none:(Error.not_found ())) in let* bm = Directory.from bm |> Option.to_result ~none:(Error.not_found ()) in Directory.find bm "master" |> Result.map Option.is_some end -- cgit v1.2.3