From 2f9e0c580645fe797e71b6183cb69475915da55b Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 02:52:21 +0000 Subject: Steal a `concat_map` implementation from Karuta --- lib/Utilities.ml | 4 ++++ lib/Utilities.mli | 1 + 2 files changed, 5 insertions(+) (limited to 'lib') diff --git a/lib/Utilities.ml b/lib/Utilities.ml index 8b6b08e..dcf4417 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -92,6 +92,10 @@ module FingerTree = struct (fun acc elem -> match f elem with None -> acc | Some result -> BatFingerTree.snoc acc result) BatFingerTree.empty + + let concat_map f = + BatFingerTree.fold_left (fun acc elem -> BatFingerTree.append acc @@ f elem) BatFingerTree.empty + end module Atomic = struct 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