barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-22 21:11:30 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #77 from gamazeps/cancel

Browse Source 
Make cancel blocking
This commit is contained in:
Michael Walker 2017-04-05 20:33:23 +01:00 committed by GitHub
commit dcddfa42a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
concurrency/Control/Concurrent/Classy/Async.hs
View File

@ -292,7 +292,7 @@ waitCatchSTM (Async _ w) = w
-- 'cancel' can of course be obtained by wrapping 'cancel' itself in -- 'cancel' can of course be obtained by wrapping 'cancel' itself in
-- 'async'. -- 'async'.
cancel :: MonadConc m => Async m a -> m () cancel :: MonadConc m => Async m a -> m ()
cancel (Async tid _) = throwTo tid ThreadKilled cancel a@(Async tid _) = throwTo tid ThreadKilled <* waitCatch a
-- | Cancel an asynchronous action by throwing the supplied exception -- | Cancel an asynchronous action by throwing the supplied exception
-- to it. -- to it.