Fix 4.08/4.09 build

dra27 · Nov 8, 2023 · b5f0a35 · b5f0a35
1 parent c111084
commit b5f0a35
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/src/core/opamCompat.ml b/src/core/opamCompat.ml
@@ -147,3 +147,15 @@ Quoting commands for execution by cmd.exe is difficult.
 
   include Stdlib.Filename
 end
+
+module List = struct
+  [@@@warning "-32"]
+
+  let concat_map f l =
+    let rec aux f acc = function
+      | [] -> List.rev acc
+      | x :: l ->
+         let xs = f x in
+         aux f (List.rev_append xs acc) l
+    in aux f [] l
+end
diff --git a/src/core/opamCompat.mli b/src/core/opamCompat.mli
@@ -38,3 +38,8 @@ module Filename: sig
     string -> ?stdin:string -> ?stdout:string -> ?stderr:string
     -> string list -> string
 end
+
+module List : sig
+  (* NOTE: OCaml >= 4.10 *)
+  val concat_map : ('a -> 'b list) -> 'a list -> 'b list
+end