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

fix fut: trigger failing to attach doesn't signal it

Browse source
This commit is contained in:
Simon Cruanes 2024-08-29 09:29:37 -04:00
parent 6e05b928ed
commit b0e4fa4563
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/fut.ml
View file

@ -67,7 +67,7 @@ let on_result (self : _ t) (f : _ waiter) : unit =
let trigger = let trigger =
(Trigger.from_action f self on_result_cb_ [@alert "-handler"]) (Trigger.from_action f self on_result_cb_ [@alert "-handler"])
in in
ignore (C.try_attach self.st trigger : bool) if not (C.try_attach self.st trigger) then on_result_cb_ () f self
let on_result_ignore_cb_ _tr f (self : _ t) = let on_result_ignore_cb_ _tr f (self : _ t) =
f (Picos.Computation.canceled self.st) f (Picos.Computation.canceled self.st)
@ -77,7 +77,7 @@ let on_result_ignore (self : _ t) f : unit =
let trigger = let trigger =
(Trigger.from_action f self on_result_ignore_cb_ [@alert "-handler"]) (Trigger.from_action f self on_result_ignore_cb_ [@alert "-handler"])
in in
ignore (C.try_attach self.st trigger : bool) if not (C.try_attach self.st trigger) then on_result_ignore_cb_ () f self
) else ) else
on_result_ignore_cb_ () f self on_result_ignore_cb_ () f self