Use efficient implementation of concat_map

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Sep 25, 2021 · 6299fb3 · 6299fb3
1 parent 8902351
commit 6299fb3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/otherlibs/stdune-unstable/list.ml b/otherlibs/stdune-unstable/list.ml
@@ -37,7 +37,7 @@ let filteri l ~f =
   in
   filteri l 0
 
-let concat_map l ~f = concat (map l ~f)
+let concat_map t ~f = ListLabels.concat_map t ~f
 
 let unordered_concat =
   let rec outer acc = function