[project @ 1998-02-02 17:27:26 by simonm]

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

diff --git a/ghc/lib/concurrent/Channel.lhs b/ghc/lib/concurrent/Channel.lhs
index e21bca1..6ae4ac8 100644 (file)
--- a/ghc/lib/concurrent/Channel.lhs
+++ b/ghc/lib/concurrent/Channel.lhs
@@ -27,9 +27,9 @@ module Channel
        ) where
 
 import Prelude
-import ConcBase
-import STBase
-import Unsafe ( unsafeInterleaveIO )
+import PrelConc
+import PrelST
+import PrelUnsafe ( unsafeInterleaveIO )
 \end{code}
 
 A channel is represented by two @MVar@s keeping track of the two ends