diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-23 23:47:27 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-23 23:47:27 -0300 |
| commit | ff727aac88be9098cbc08e4cf6604d4fc6845f3f (patch) | |
| tree | 7797e3680801c32c30ac24e54d65901abd72d960 /lib/kernel/Prototype.ml | |
| parent | b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71 (diff) | |
| download | RNT-ff727aac88be9098cbc08e4cf6604d4fc6845f3f.tar.gz RNT-ff727aac88be9098cbc08e4cf6604d4fc6845f3f.zip | |
move directory out of prototype
Diffstat (limited to 'lib/kernel/Prototype.ml')
| -rw-r--r-- | lib/kernel/Prototype.ml | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lib/kernel/Prototype.ml b/lib/kernel/Prototype.ml index 185f12c..efff1af 100644 --- a/lib/kernel/Prototype.ml +++ b/lib/kernel/Prototype.ml @@ -98,17 +98,6 @@ module Directory = struct let of_properties props = List.map (fun (p, h) -> p, fun () -> Ok (Some h)) props |> of_properties' - let children directory = - let open Utilities.Result in - let* listing = Protocols.Handle.require Protocols.Directory.from directory in - let* names = Protocols.Directory.list listing in - BatFingerTree.to_list names - |> List.map (fun name -> - let* found = Protocols.Directory.find listing name in - Ok (Option.map (fun child -> name, child) found) ) - |> Utilities.List.sequence - |> Result.map (List.filter_map Fun.id) - module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY with type t = string) |