From 0046bea415b1b5b6027a3e7553e242fb50bbb30e Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 29 Dec 2016 10:43:19 +0100 Subject: [PATCH] bugfix: do not use `Sequence.flatMap` (close #90) the function was deprecated and has been removed in sequence 0.9 --- src/advanced/CCLinq.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/advanced/CCLinq.ml b/src/advanced/CCLinq.ml index 06d2fe0e..a04701c8 100644 --- a/src/advanced/CCLinq.ml +++ b/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