From eb7ad043880a0a846864c7b648e59c2a29610c51 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 23 Oct 2026 23:48:31 -0300 Subject: change call sites Directory --- lib/kernel/Multigroup.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/kernel/Multigroup.ml') diff --git a/lib/kernel/Multigroup.ml b/lib/kernel/Multigroup.ml index 79479d7..7aa1898 100644 --- a/lib/kernel/Multigroup.ml +++ b/lib/kernel/Multigroup.ml @@ -108,7 +108,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct let open Utilities.Result in let* listing = Protocols.Handle.require Protocols.Directory.from h in let* found = Protocols.Directory.find listing property in - let* children = Option.fold ~none:(Ok []) ~some:Prototype.Directory.children found in + let* children = Option.fold ~none:(Ok []) ~some:Protocols.Directory.children found in List.map (fun (name, child) -> Prototype.Associative.admission admit name child |> Result.map (fun p -> name, p) ) @@ -222,7 +222,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct method check = let open Utilities.Result in - let* named = Prototype.Directory.children (relations ?bind storage denial_tree) in + let* named = Protocols.Directory.children (relations ?bind storage denial_tree) in Utilities.List.concat_map (held ?bind) named method protocols : Protocols.Handle.protocol list = -- cgit v1.2.3