]> Git — Sourcephile - tmp/julm/arpeggigon.git/blob - RMCA/Auxiliary/Concurrent.hs
Pieces can now safely be moved without causing crashes or inconsistencies.
[tmp/julm/arpeggigon.git] / 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