diff --git a/test/t_fib_rec.ml b/test/t_fib_rec.ml index 94e206b7..3495fcae 100644 --- a/test/t_fib_rec.ml +++ b/test/t_fib_rec.ml @@ -16,7 +16,7 @@ let rec fib ~on x : int Fut.t = Atomic.incr n_calls_fib_direct; fib_direct x) 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 t1 + t2 diff --git a/test/t_props.ml b/test/t_props.ml index 698650fd..fe187073 100644 --- a/test/t_props.ml +++ b/test/t_props.ml @@ -27,7 +27,7 @@ let () = Q.(small_list small_int) (fun l -> let@ pool = with_pool ~kind () in - let open Fut.Infix_local in + let open Fut.Infix in let l' = l |> List.map (fun x ->