removed explicit conversions

ocaml-multicore · Oct 18, 2024 · c75c535 · c75c535
1 parent caec6eb
commit c75c535
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib_eio_linux/eio_linux.ml b/lib_eio_linux/eio_linux.ml
@@ -537,8 +537,8 @@ let run_event_loop (type a) ?fallback config (main : _ -> a) arg : a =
       | Eio_unix.Private.Pipe sw -> Some (fun k ->
           match
             let r, w = Low_level.pipe ~sw in
-            let r = (Flow.of_fd r :> [< Eio_unix.source_ty] Eio.Std.r) in
-            let w = (Flow.of_fd w :> [< Eio_unix.sink_ty] Eio.Std.r) in
+            let r = Flow.of_fd r in
+            let w = Flow.of_fd w in
             (r, w)
           with
           | r -> continue k r