diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Prototype.ml | 11 | ||||
| -rw-r--r-- | lib/kernel/Prototype.mli | 4 |
2 files changed, 0 insertions, 15 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) diff --git a/lib/kernel/Prototype.mli b/lib/kernel/Prototype.mli index ec1f08e..9890800 100644 --- a/lib/kernel/Prototype.mli +++ b/lib/kernel/Prototype.mli @@ -10,10 +10,6 @@ module Directory : sig (string * (unit -> (Protocols.Handle.t option, Concepts.Condition.condition) result)) list -> Protocols.Handle.protocol - (** the names a directory lists, and what each reaches. *) - val children : - Protocols.Handle.t -> ((string * Protocols.Handle.t) list, Concepts.Condition.condition) result - module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY with type t = string) |