From d4f603fa04283efe54c79b5f7664c4c9bc193857 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 12 Oct 2026 11:53:45 -0300
Subject: concat map

---
 lib/kernel/Branch.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/kernel/Branch.ml')

diff --git a/lib/kernel/Branch.ml b/lib/kernel/Branch.ml
index 25c2e7b..561bff3 100644
--- a/lib/kernel/Branch.ml
+++ b/lib/kernel/Branch.ml
@@ -136,7 +136,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct
               object
                 method check =
                   let* named = Prototype.Directory.children multigroups in
-                  List.map admits named |> Utilities.List.sequence |> Result.map List.concat
+                  Utilities.List.concat_map admits named
               end;
             Prototype.Associative.(
               of_properties
-- 
cgit v1.2.3