barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2025-01-01 18:22:35 +03:00
Code Issues Projects Releases Wiki Activity

Implement IO's 'spawn' in terms of other conc primitives

Browse Source
This commit is contained in:
Michael Walker 2014-12-19 06:24:50 +00:00
parent 9361499b01
commit 070d034de9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Control/Monad/Conc/Class.hs
View File

@ -35,9 +35,9 @@ class Monad m => ConcFuture future m | m -> future where
instance ConcFuture MVar IO where
spawn ma = do
mvar <- newEmptyMVar
void . forkIO $ ma >>= putMVar mvar
return mvar
cvar <- new
fork $ ma >>= put cvar
return cvar
get = readMVar