Commit 3503268a authored by basvandijk's avatar basvandijk

There's no need to explicitly check for blocked status in runInUnboundThread when we have mask

parent 36896b68
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment