simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 11:15:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix task local storage: type was too specific

Browse source
This commit is contained in:
Simon Cruanes 2024-12-04 08:45:26 -05:00
parent fa40cf8825
commit ea1af6ed22
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/hmap_ls_.real.ml
View file

@ -41,7 +41,7 @@ let[@inline] set_in_local_hmap (k : 'a Hmap.key) (v : 'a) : unit =
(** [with_in_local_hmap k v f] calls [f()] in a context (** [with_in_local_hmap k v f] calls [f()] in a context
where [k] is bound to [v] in the local hmap. Then it restores the where [k] is bound to [v] in the local hmap. Then it restores the
previous binding for [k]. *) previous binding for [k]. *)
let with_in_local_hmap (k : 'a Hmap.key) (v : 'a) f : unit = let with_in_local_hmap (k : 'a Hmap.key) (v : 'a) f =
let h = get_local_hmap () in let h = get_local_hmap () in
match Hmap.find k h with match Hmap.find k h with
| None -> | None ->