Update src/d_pool_.ml

This commit is contained in:
Simon Cruanes 2023-08-29 14:15:20 -04:00
parent c0db72b40c
commit c1b6312cad
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -14,7 +14,7 @@ type worker_state = {
(** Array of (optional) workers.
Workers are started/stop on demand. *)
let domains_ : (worker_state option * unit Domain.t option) Lock.t array =
let domains_ : (worker_state option * unit Domain_.t option) Lock.t array =
(* number of domains we spawn. Note that we spawn n-1 domains
because there already is the main domain running. *)
let n = max 1 (Domain_.recommended_number () - 1) in