push
buildkite
24544 of 66850 relevant lines covered (36.72%)
20720.94 hits per line
1 |
open Core_kernel |
21✔ |
2 |
include Result |
|
3 |
open Let_syntax |
|
4 |
|
|
5 |
module List = struct
|
|
6 |
let map ls ~f = |
|
7 |
let%map r = |
|
8 |
List.fold_result ls ~init:[] ~f:(fun t el -> |
400✔ |
9 |
let%map h = f el in |
1,120✔ |
10 |
h :: t ) |
1,120✔ |
11 |
in |
|
12 |
List.rev r |
400✔ |
13 |
end |
42✔ |