pyrox.dev
lol
1diff --git a/lib/CFStream_stream.ml b/lib/CFStream_stream.ml
2index 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