diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-23 23:48:31 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-23 23:48:31 -0300 |
| commit | eb7ad043880a0a846864c7b648e59c2a29610c51 (patch) | |
| tree | d0a21edf3ea43f7015412888ebd2f227b279d337 /lib | |
| parent | ff727aac88be9098cbc08e4cf6604d4fc6845f3f (diff) | |
| download | RNT-eb7ad043880a0a846864c7b648e59c2a29610c51.tar.gz RNT-eb7ad043880a0a846864c7b648e59c2a29610c51.zip | |
change call sites Directory
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Branch.ml | 2 | ||||
| -rw-r--r-- | lib/kernel/Multigroup.ml | 4 | ||||
| -rw-r--r-- | lib/kernel/Scope.ml | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/lib/kernel/Branch.ml b/lib/kernel/Branch.ml index 598e102..239afda 100644 --- a/lib/kernel/Branch.ml +++ b/lib/kernel/Branch.ml @@ -132,7 +132,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct Admission.make object method check = - let* named = Prototype.Directory.children multigroups in + let* named = Directory.children multigroups in Utilities.List.concat_map admits named end; Prototype.Associative.( 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 = diff --git a/lib/kernel/Scope.ml b/lib/kernel/Scope.ml index 8868600..cd82b26 100644 --- a/lib/kernel/Scope.ml +++ b/lib/kernel/Scope.ml @@ -54,7 +54,7 @@ let catalog_of branch = let* names = Protocols.Directory.list listing in Ok (List.map (name prefix) (BatFingerTree.to_list names)) | Some level, rest -> - let* named = Prototype.Directory.children level in + let* named = Protocols.Directory.children level in Utilities.List.concat_map (fun (n, child) -> down (n :: prefix) child rest) named in down [] branch ["multigroup"; "schema"; "relation"] |