From: wolfgang <unknown>
Date: Mon, 22 Sep 2003 10:20:06 +0000 (+0000)
Subject: [project @ 2003-09-22 10:20:06 by wolfgang]
X-Git-Tag: nhc98-1-18-release~505
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fcbbfd2e5830de5dda61981c5f1860c6f331b583;p=haskell-directory.git

[project @ 2003-09-22 10:20:06 by wolfgang]
fix some embarassing typos in the previous commit
---

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index e354c43..9b98930 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -345,8 +345,7 @@ libraries (OpenGL, for example) will not work from a thread created using
 from @main@ or from a @foreign export@.
 -}
 
-#ifdef
- __GLASGOW_HASKELL__
+#ifdef __GLASGOW_HASKELL__
 
 -- | 'True' if bound threads are supported.
 -- If @rtsSupportsBoundThreads@ is 'False', 'isCurrentThreadBound'
@@ -451,9 +450,9 @@ runInUnboundThread action = do
 	if bound
 		then do
 			mv <- newEmptyMVar
-			forkIO (E.try action >>= putMVar mv)
+			forkIO (Exception.try action >>= putMVar mv)
 			takeMVar mv >>= \either -> case either of
-			Left exception -> E.throw exception
+			Left exception -> Exception.throw exception
 			Right result -> return result
 		else action