Temporarily remove ~name argument to Switch.run

Author: Julow

bin/lwt_to_direct_style/concurrency_backend.ml

@@ -257,7 +257,8 @@ let eio ~eio_sw_as_fiber_var ~eio_env_as_fiber_var add_comment =
             in
             mk_apply_ident (switch_ident "run")
               [
-                (Labelled (mk_loc "name"), mk_const_string "main");
+                (* TODO: Add the [~name] argument. Currently commented-out because added in a too recent version of eio.
+                   (Labelled (mk_loc "name"), mk_const_string "main"); *)
                 (Nolabel, fun_sw);
               ]
         | None -> k

test/lwt_to_direct_style/eio-switch.t/run.t

@@ -44,7 +44,7 @@ Make a writable directory tree:
   let () =
     Eio_main.run (fun env ->
         Fiber.with_binding Fiber_var.env env (fun () ->
-            Switch.run ~name:"main" (fun sw ->
+            Switch.run (fun sw ->
                 Fiber.with_binding Fiber_var.sw sw (fun () ->
                     (* TODO: lwt-to-direct-style: [Eio_main.run] argument used to be a [Lwt] promise and is now a [fun]. Make sure no asynchronous or IO calls are done outside of this [fun]. *)
                     main ()))))