f fix build for older OCaml stdlib

mirage · Mar 27, 2023 · e9daaf7 · e9daaf7
1 parent ba03cd9
commit e9daaf7
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/irmin/import.ml b/src/irmin/import.ml
@@ -132,6 +132,15 @@ module Seq = struct
     match seq1 () with
     | Nil -> seq2 ()
     | Cons (x, next) -> Cons (x, append next seq2)
+
+  (* Since 4.14 *)
+  let rec for_all2 f xs ys =
+    match xs () with
+    | Nil -> true
+    | Cons (x, xs) -> (
+        match ys () with
+        | Nil -> true
+        | Cons (y, ys) -> f x y && for_all2 f xs ys)
 end
 
 let shuffle state arr =