From 5409cf8e1bc21d062a7ea3f5737c8a1767f11e6d Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 25 Oct 2023 23:50:34 -0400 Subject: [PATCH] compat 4.08 --- src/ws_pool.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ws_pool.ml b/src/ws_pool.ml index fcf5eed9..e3b8bb71 100644 --- a/src/ws_pool.ml +++ b/src/ws_pool.ml @@ -18,7 +18,7 @@ type mut_cond = { } type state = { - active: bool Atomic.t; (** Becomes [false] when the pool is shutdown. *) + active: bool A.t; (** Becomes [false] when the pool is shutdown. *) workers: worker_state array; (** Fixed set of workers. *) main_q: task Queue.t; (** Main queue for tasks coming from the outside *) mc: mut_cond; (** Used to block on [main_q] *)