From 2f9e0c580645fe797e71b6183cb69475915da55b Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sat, 24 Oct 2026 02:52:21 +0000
Subject: Steal a `concat_map` implementation from Karuta

---
 lib/Utilities.mli | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/Utilities.mli')

diff --git a/lib/Utilities.mli b/lib/Utilities.mli
index f220b08..7d41e20 100644
--- a/lib/Utilities.mli
+++ b/lib/Utilities.mli
@@ -36,6 +36,7 @@ module FingerTree : sig
   val foldm_left : ('a -> 'b -> ('a, 'e) result) -> 'a -> 'b BatFingerTree.t -> ('a, 'e) result
   val join : string BatFingerTree.t -> string -> string
   val filter_map : ('a -> 'b option) -> 'a BatFingerTree.t -> 'b BatFingerTree.t
+  val concat_map : ('a -> ('b BatFingerTree.t, 'e) result) -> 'a BatFingerTree.t -> ('b BatFingerTree.t, 'e) result
 end
 
 module Fun : sig
-- 
cgit v1.2.3