Re: [Haskell-cafe] Asynchronous exception wormholes kill modularity

26 Mar 2010


      Matthew Brecknell  writes:
...
And is confirmed by a simple test (with GHC 6.10.4 on Linux):
import Prelude hiding(catch)
import Control.Concurrent
import Control.Exception
main = do
  chan <- newEmptyMVar
  done <- newEmptyMVar
  kill <- block $ forkIO $ do
    (takeMVar chan >>= putMVar done)
      `onException` putMVar done "Exception received during takeMVar"
...
Should this be "forkIO $ block" instead of "block $ forkIO"?

G
-- 
Gregory Collins