From: shae@ScannedInAvian.com <unknown>
Date: Thu, 24 May 2007 16:33:25 +0000 (+0000)
Subject: Control.Concurrent documentation fix
X-Git-Tag: 2007-09-13~72
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5ba59750c2005575da6d1ab199aae369d3d81c0c;p=ghc-base.git

Control.Concurrent documentation fix
---

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 45d2029..d9c35b8 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -496,7 +496,7 @@ runInUnboundThread action = do
 >    	    takeMVar m
 >    	    waitForChildren
 >    
->    forkChild :: IO () -> IO ()
+>    forkChild :: IO () -> IO ThreadId
 >    forkChild io = do
 >    	 mvar <- newEmptyMVar
 >    	 childs <- takeMVar children