From 31fea307499009977fdf3dadedc98cfef986077a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?H=C3=A9cate?= Date: Fri, 18 Sep 2020 20:07:49 +0200 Subject: Remove redundant "do", "return" and language extensions from base --- libraries/base/Control/Concurrent/QSem.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libraries/base/Control/Concurrent/QSem.hs') 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 -- cgit v1.2.1