diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 03:35:20 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 03:51:08 +0000 |
| commit | 8c2f0db7337328570af57461a3d95203537ac185 (patch) | |
| tree | df90400d4719ab5c04fb84530a8a3c0e2eae213e /lib/kernel/Path.ml | |
| parent | df6c0744dc4ebd164cd8a309eef5d2798b2d3e90 (diff) | |
| download | RNT-8c2f0db7337328570af57461a3d95203537ac185.tar.gz RNT-8c2f0db7337328570af57461a3d95203537ac185.zip | |
Use finger trees in more places
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Path.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/kernel/Path.ml b/lib/kernel/Path.ml index 4dfba36..512cfb0 100644 --- a/lib/kernel/Path.ml +++ b/lib/kernel/Path.ml @@ -102,7 +102,7 @@ let assoc_all handle changes = | Some (_, key, _) -> Error (Error.overlapping_change (prefix @ [key])) | None -> let* children = - Utilities.List.concat_map + Utilities.List.concat_mapm (fun (x, beneath) -> let* dir = Handle.require Directory.from node in let* found = Directory.find dir x in @@ -150,7 +150,7 @@ let diff a b = let* left = names a in let* right = names b in List.sort_uniq String.compare (left @ right) - |> Utilities.List.concat_map (fun name -> + |> Utilities.List.concat_mapm (fun name -> let path = prefix @ [name] in let* x = find a name in let* y = find b name in |