There's no need to explicitly check for blocked status in runInUnboundThread when...

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index f509bc0..bd05cdc 100644 (file)
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -430,10 +430,8 @@ runInUnboundThread action = do
     if bound
         then do
             mv <- newEmptyMVar
-            b <- blocked
             _ <- mask $ \restore -> forkIO $
-              Exception.try (if b then action else restore action) >>=
-              putMVar mv
+              Exception.try (restore action) >>= putMVar mv
             takeMVar mv >>= unsafeResult
         else action