]> Git — Sourcephile - tmp/julm/arpeggigon.git/blob - RMCA/Auxiliary/Concurrent.hs
RMCA/GUI/Board.hs
[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