Control.Concurrent documentation fix

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 45d2029..d9c35b8 100644 (file)
--- 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