From: simonmar <unknown>
Date: Thu, 1 Dec 2005 12:32:24 +0000 (+0000)
Subject: [project @ 2005-12-01 12:32:24 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~15
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=91adf39c07706a188278aa6983e9b4f1ea4f400f;p=haskell-directory.git

[project @ 2005-12-01 12:32:24 by simonmar]
export childHandler
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index f50da8a..2f969da 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -25,6 +25,7 @@ module GHC.Conc
 
 	-- Forking and suchlike
 	, forkIO	-- :: IO a -> IO ThreadId
+	, childHandler  -- :: Exception -> IO ()
 	, myThreadId 	-- :: IO ThreadId
 	, killThread	-- :: ThreadId -> IO ()
 	, throwTo       -- :: ThreadId -> Exception -> IO ()