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

(limited to 'lib/Utilities.ml')

diff --git a/lib/Utilities.ml b/lib/Utilities.ml
index b7fe364..03d1eea 100644
--- a/lib/Utilities.ml
+++ b/lib/Utilities.ml
@@ -55,6 +55,7 @@ module List = struct
 
   include Generic (ListSequence)
 
+  let concat_map f xs = List.map f xs |> sequence |> Stdlib.Result.map List.concat
   let hd_opt = function x :: _ -> Some x | [] -> None
 end
 
-- 
cgit v1.2.3