diff options
| author | Hécate <hecate+gitlab@glitchbra.in> | 2020-09-18 20:07:49 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-23 20:44:24 -0400 |
| commit | 31fea307499009977fdf3dadedc98cfef986077a (patch) | |
| tree | cac7edf234b82d16c3edd53fc38539fcc2766cb5 /libraries/base/Control/Concurrent/QSem.hs | |
| parent | a997fa01d907fc1992dc8c3ebc73f98e7a1486f7 (diff) | |
| download | haskell-31fea307499009977fdf3dadedc98cfef986077a.tar.gz | |
Remove redundant "do", "return" and language extensions from base
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 |