From: simonmar <unknown>
Date: Mon, 22 Nov 2004 10:26:46 +0000 (+0000)
Subject: [project @ 2004-11-22 10:26:46 by simonmar]
X-Git-Tag: nhc98-1-18-release~178
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1fa05e8e2f40273e8a7f7572220d21037284600b;p=ghc-base.git

[project @ 2004-11-22 10:26:46 by simonmar]
More fixes to the sample code (thanks to Satnam Singh for pointing out
a problem).
---

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index e820d17..3b7f784 100644
--- 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 $