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/Scope.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

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"]
 
-- 
cgit v1.2.3