at a guess the magic take put is:
block ( do
a <- takeMVar x
putMVar x a
)
return aKeean. _______________________________________________ Haskell-Cafe mailing list [EMAIL PROTECTED] http://www.haskell.org/mailman/listinfo/haskell-cafe
