[project @ 1997-09-24 00:58:48 by sof]

[ghc-hetmet.git] / ghc / lib / concurrent / Channel.lhs

diff --git a/ghc/lib/concurrent/Channel.lhs b/ghc/lib/concurrent/Channel.lhs
index 2d0c935..417e139 100644 (file)
--- a/ghc/lib/concurrent/Channel.lhs
+++ b/ghc/lib/concurrent/Channel.lhs
@@ -30,6 +30,7 @@ import Prelude
 import IOBase  ( IO(..) )              -- Suspicious!
 import ConcBase
 import STBase
+import UnsafeST ( unsafeInterleavePrimIO )
 \end{code}
 
 A channel is represented by two @MVar@s keeping track of the two ends