simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 03:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warnings

Browse source
This commit is contained in:
Simon Cruanes 2023-11-07 20:48:04 -05:00
parent 62e8336d84
commit 989c012f77
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/t_fib_rec.ml
View file

@ -16,7 +16,7 @@ let rec fib ~on x : int Fut.t =
Atomic.incr n_calls_fib_direct; Atomic.incr n_calls_fib_direct;
fib_direct x) fib_direct x)
else else
let open Fut.Infix_local in let open Fut.Infix in
let+ t1 = fib ~on (x - 1) and+ t2 = fib ~on (x - 2) in let+ t1 = fib ~on (x - 1) and+ t2 = fib ~on (x - 2) in
t1 + t2 t1 + t2

2
test/t_props.ml
View file

@ -27,7 +27,7 @@ let () =
Q.(small_list small_int) Q.(small_list small_int)
(fun l -> (fun l ->
let@ pool = with_pool ~kind () in let@ pool = with_pool ~kind () in
let open Fut.Infix_local in let open Fut.Infix in
let l' = let l' =
l l
|> List.map (fun x -> |> List.map (fun x ->