projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
54fa1fd
)
[project @ 2004-11-22 10:26:46 by simonmar]
author
simonmar
<unknown>
Mon, 22 Nov 2004 10:26:46 +0000
(10:26 +0000)
committer
simonmar
<unknown>
Mon, 22 Nov 2004 10:26:46 +0000
(10:26 +0000)
More fixes to the sample code (thanks to Satnam Singh for pointing out
a problem).
Control/Concurrent.hs
patch
|
blob
|
history
diff --git
a/Control/Concurrent.hs
b/Control/Concurrent.hs
index
e820d17
..
3b7f784
100644
(file)
--- a/
Control/Concurrent.hs
+++ b/
Control/Concurrent.hs
@@
-506,9
+506,9
@@
runInUnboundThread action = do
> forkChild :: IO () -> IO ()
> forkChild io = do
> mvar <- newEmptyMVar
-> forkIO (io `finally` putMVar mvar ())
> childs <- takeMVar children
> putMVar children (mvar:childs)
+> forkIO (io `finally` putMVar mvar ())
>
> main =
> later waitForChildren $