diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-11 04:06:52 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-09-11 01:06:52 -0300 |
| commit | b79224410f469a1cd4ff3be4f8e62d71398109fc (patch) | |
| tree | e025feebbdf9703ce790b4a97cb9997242c9bb4b /test/integration/Registration.ml | |
| parent | efe8032f7e224c29fc67a4f8cfd52db908442eec (diff) | |
| download | RNT-b79224410f469a1cd4ff3be4f8e62d71398109fc.tar.gz RNT-b79224410f469a1cd4ff3be4f8e62d71398109fc.zip | |
Multigroup objects
Diffstat (limited to 'test/integration/Registration.ml')
| -rw-r--r-- | test/integration/Registration.ml | 8 |
1 files changed, 4 insertions, 4 deletions
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 |