dev-ml/ocaml-containers/files/seq.patch


1
2
3
4
5
6
7
8
9
10
11
12
13

Index: ocaml-containers-0.22/src/advanced/CCLinq.ml
===================================================================
--- ocaml-containers-0.22.orig/src/advanced/CCLinq.ml
+++ ocaml-containers-0.22/src/advanced/CCLinq.ml
@@ -212,7 +212,7 @@ module PMap = struct
     seq
 
   let flatten_l m =
-    let seq = Sequence.flatMap
+    let seq = Sequence.flat_map
         (fun (k,v) -> Sequence.map (fun v' -> k,v') (Sequence.of_list v))
         m.to_seq
     in