diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:53:45 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:53:45 -0300 |
| commit | d4f603fa04283efe54c79b5f7664c4c9bc193857 (patch) | |
| tree | 4d1ad9b273e9cc305bb02d1a9a8127169799d019 /lib/kernel/Scope.ml | |
| parent | 8cddc12efdff4fe1742039df493ab5e425a685c4 (diff) | |
| download | RNT-d4f603fa04283efe54c79b5f7664c4c9bc193857.tar.gz RNT-d4f603fa04283efe54c79b5f7664c4c9bc193857.zip | |
concat map
Diffstat (limited to 'lib/kernel/Scope.ml')
| -rw-r--r-- | lib/kernel/Scope.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/kernel/Scope.ml b/lib/kernel/Scope.ml index 23698ba..8868600 100644 --- a/lib/kernel/Scope.ml +++ b/lib/kernel/Scope.ml @@ -55,9 +55,7 @@ let catalog_of branch = Ok (List.map (name prefix) (BatFingerTree.to_list names)) | Some level, rest -> let* named = Prototype.Directory.children level in - List.map (fun (n, child) -> down (n :: prefix) child rest) named - |> Utilities.List.sequence - |> Result.map List.concat + Utilities.List.concat_map (fun (n, child) -> down (n :: prefix) child rest) named in down [] branch ["multigroup"; "schema"; "relation"] |