RMCA/Auxiliary/Concurrent.hs

   1 module RMCA.Auxiliary.Concurrent where
   2
   3 import Control.Concurrent
   4 import Control.Concurrent.MVar
   5
   6 forkChild :: IO () -> IO (MVar ())
   7 forkChild io = do
   8   mvar <- newEmptyMVar
   9   forkFinally io (\_ -> putMVar mvar ())
  10   return mvar