simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2026-01-28 12:14:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: LS.get shouldn't raise

Browse source
This commit is contained in:
Simon Cruanes 2024-08-30 13:28:54 -04:00
parent 3193a259ad
commit 76a881ebc9
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/task_local_storage.ml
View file

@ -20,8 +20,9 @@ let get_opt k =
| exception Not_set -> None)
let[@inline] get k ~default =
let fiber = get_current_fiber_exn () in
PF.FLS.get fiber ~default k
match get_current_fiber () with
| None -> None
| Some fiber -> PF.FLS.get fiber ~default k
let[@inline] set k v : unit =
let fiber = get_current_fiber_exn () in