From f53dbe4dda6cecacf66dc6b3187fbf129a370193 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 9 Jul 2025 21:00:11 -0400
Subject: [PATCH] cleanup worker loop

---
 src/core/worker_loop_.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/core/worker_loop_.ml b/src/core/worker_loop_.ml
index c375e8a2..2431b7c2 100644
--- a/src/core/worker_loop_.ml
+++ b/src/core/worker_loop_.ml
@@ -39,8 +39,8 @@ let[@inline] raise_with_bt exn =
   let bt = Printexc.get_raw_backtrace () in
   Printexc.raise_with_backtrace exn bt
 
-let with_handler (type st arg) ~(ops : st ops) (self : st) :
-    (unit -> unit) -> unit =
+let with_handler (type st) ~(ops : st ops) (self : st) : (unit -> unit) -> unit
+    =
   let current =
     Some
       (fun k ->
@@ -145,7 +145,7 @@ module Fine_grained (Args : FINE_GRAINED_ARGS) () = struct
     cur_fiber := _dummy_fiber;
     TLS.set k_cur_fiber _dummy_fiber
 
-  let setup (type st) ~block_signals () : unit =
+  let setup ~block_signals () : unit =
     if !state <> New then invalid_arg "worker_loop.setup: not a new instance";
     state := Ready;