diff options
Diffstat (limited to 'libraries/base/Control/Concurrent/QSem.hs')
| -rw-r--r-- | libraries/base/Control/Concurrent/QSem.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Concurrent/QSem.hs b/libraries/base/Control/Concurrent/QSem.hs index 133d6e2ab8..9f53eef826 100644 --- a/libraries/base/Control/Concurrent/QSem.hs +++ b/libraries/base/Control/Concurrent/QSem.hs @@ -82,7 +82,7 @@ waitQSem (QSem m) = putMVar m (z, b1, b2) return () where - wait b = takeMVar b `onException` do + wait b = takeMVar b `onException` (uninterruptibleMask_ $ do -- Note [signal uninterruptible] (i,b1,b2) <- takeMVar m r <- tryTakeMVar b |