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/QSemN.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/QSemN.hs')
-rw-r--r-- | libraries/base/Control/Concurrent/QSemN.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Concurrent/QSemN.hs b/libraries/base/Control/Concurrent/QSemN.hs index ea3236b0a4..1262198796 100644 --- a/libraries/base/Control/Concurrent/QSemN.hs +++ b/libraries/base/Control/Concurrent/QSemN.hs @@ -93,7 +93,7 @@ waitQSemN qs@(QSemN m) sz = mask_ $ do JustMV b -> wait b where wait :: MVar () -> IO () - wait b = do + wait b = takeMVar b `onException` do already_filled <- not <$> tryPutMVar b () when already_filled $ signalQSemN qs sz |