Don't use Fun.id in tests

zshipko · Aug 2, 2022 · 87f9aa0 · 87f9aa0
1 parent f787b9a
commit 87f9aa0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/src/types.ml b/test/src/types.ml
@@ -95,7 +95,7 @@ let%test "abstract pointer" = Util.check_leaks (fun () ->
 )
 
 let%test "seq sum" = Util.check_leaks (fun () ->
-  let l = List.init 100 Fun.id in
+  let l = List.init 100 (fun x -> x) in
   let s = List.to_seq l in
   let sum = seq_sum s in
   let sum' = List.fold_left ( + ) 0 l in