pkgs/development/ocaml-modules/cfstream/janestreet-0.16.patch

   1 diff --git a/lib/CFStream_stream.ml b/lib/CFStream_stream.ml
   2 index 25c0e5a..94da2e3 100644
   3 --- a/lib/CFStream_stream.ml
   4 +++ b/lib/CFStream_stream.ml
   5 @@ -287,7 +287,7 @@ let group_aux xs map eq =
   6  ;;
   7
   8  let group xs ~f = group_aux xs f Poly.( = )
   9 -let group_by xs ~eq = group_aux xs ident eq
  10 +let group_by xs ~eq = group_aux xs Fn.id eq
  11
  12  let chunk2 xs =
  13    from (fun _ ->
  14 @@ -615,11 +615,11 @@ let to_hashtbl xs =
  15  let of_map t = of_list (Map.to_alist t)
  16
  17  let to_map xs =
  18 -  fold xs ~init:Map.Poly.empty ~f:(fun accu (key, data) -> Map.Poly.set accu ~key ~data)
  19 +  fold xs ~init:Map.Poly.empty ~f:(fun accu (key, data) -> Map.set accu ~key ~data)
  20  ;;
  21
  22  let of_set t = of_list (Set.to_list t)
  23 -let to_set xs = fold xs ~init:Set.Poly.empty ~f:(fun accu e -> Set.Poly.add accu e)
  24 +let to_set xs = fold xs ~init:Set.Poly.empty ~f:(fun accu e -> Set.add accu e)
  25
  26  module Infix = struct
  27    let ( -- ) x y = range x ~until:y
  28 @@ -660,7 +660,7 @@ module Result = struct
  29        | M.E e -> Result.Error e
  30      ;;
  31
  32 -    let all xs ~f = all_gen ident xs ~f
  33 +    let all xs ~f = all_gen Fn.id xs ~f
  34      let all' xs ~f = all_gen (fun x -> Ok x) xs ~f
  35      let to_exn = result_to_exn
  36