diff options
Diffstat (limited to 'lib/protocols')
| -rw-r--r-- | lib/protocols/Directory.ml | 11 | ||||
| -rw-r--r-- | lib/protocols/Directory.mli | 1 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lib/protocols/Directory.ml b/lib/protocols/Directory.ml index 232a47e..b8caca0 100644 --- a/lib/protocols/Directory.ml +++ b/lib/protocols/Directory.ml @@ -10,3 +10,14 @@ let make impl = Directory (impl :> implementation) let from handle = Handle.into handle (function Directory impl -> Some impl | _ -> None) let list i = Handle.invoke i (fun o -> o#list) let find i name = Handle.invoke i (fun o -> o#find name) + +let children directory = + let open Utilities.Result in + let* listing = Handle.require from directory in + let* names = list listing in + BatFingerTree.to_list names + |> List.map (fun name -> + let* found = find listing name in + Ok (Option.map (fun child -> name, child) found) ) + |> Utilities.List.sequence + |> Result.map (List.filter_map Fun.id) diff --git a/lib/protocols/Directory.mli b/lib/protocols/Directory.mli index 0d78887..77cb27a 100644 --- a/lib/protocols/Directory.mli +++ b/lib/protocols/Directory.mli @@ -9,3 +9,4 @@ val make : #implementation -> Handle.protocol val from : Handle.t -> t Handle.interface option val list : t Handle.interface -> (string BatFingerTree.t, Concepts.Condition.condition) result val find : t Handle.interface -> string -> (Handle.t option, Concepts.Condition.condition) result +val children : Handle.t -> ((string * Handle.t) list, Concepts.Condition.condition) result |