[project @ 1999-08-27 08:34:15 by simonmar]

wibble

diff --git a/ghc/lib/concurrent/Concurrent.lhs b/ghc/lib/concurrent/Concurrent.lhs
index 13a2851..132922e 100644 (file)
--- a/ghc/lib/concurrent/Concurrent.lhs
+++ b/ghc/lib/concurrent/Concurrent.lhs
@@ -56,6 +56,7 @@ import Channel
 import Semaphore
 import SampleVar
 import PrelConc
+import PrelHandle       ( topHandler )
 import PrelException
 import PrelIOBase      ( IO(..) )
 import IO