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/Multigroup.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/lib/kernel/Multigroup.ml b/lib/kernel/Multigroup.ml
index 13ca7e0..9fbd386 100644
--- a/lib/kernel/Multigroup.ml
+++ b/lib/kernel/Multigroup.ml
@@ -226,7 +226,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct
       method check =
         let open Utilities.Result in
         let* named = Prototype.Directory.children (relations ?bind storage denial_tree) in
-        List.map (held ?bind) named |> Utilities.List.sequence |> Result.map List.concat
+        Utilities.List.concat_map (held ?bind) named
 
       method protocols : Protocols.Handle.protocol list =
         let open Utilities.Result in
-- 
cgit v1.2.3