From 1dc014c52d3371585fda5ecb188abec598a8c37c Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 26 May 1998 13:00:53 +0000
Subject: [PATCH] [project @ 1998-05-26 13:00:47 by simonm] - remove
 references to PrelUnsafe(ST)

---
 ghc/lib/concurrent/Channel.lhs |    2 +-
 ghc/lib/concurrent/Merge.lhs   |    1 -
 ghc/lib/exts/IOExts.lhs        |    1 -
 ghc/lib/exts/ST.lhs            |    1 -
 4 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/ghc/lib/concurrent/Channel.lhs b/ghc/lib/concurrent/Channel.lhs
index 6ae4ac8..ec87479 100644
--- a/ghc/lib/concurrent/Channel.lhs
+++ b/ghc/lib/concurrent/Channel.lhs
@@ -29,7 +29,7 @@ module Channel
 import Prelude
 import PrelConc
 import PrelST
-import PrelUnsafe ( unsafeInterleaveIO )
+import PrelIOBase ( unsafeInterleaveIO )
 \end{code}
 
 A channel is represented by two @MVar@s keeping track of the two ends
diff --git a/ghc/lib/concurrent/Merge.lhs b/ghc/lib/concurrent/Merge.lhs
index a036a05..39f1c4c 100644
--- a/ghc/lib/concurrent/Merge.lhs
+++ b/ghc/lib/concurrent/Merge.lhs
@@ -16,7 +16,6 @@ module Merge
 
 import Semaphore
 import PrelConc
-import PrelUnsafe  ( unsafeInterleaveIO )
 import PrelIOBase
 
 max_buff_size = 1
diff --git a/ghc/lib/exts/IOExts.lhs b/ghc/lib/exts/IOExts.lhs
index 4489ba6..305b151 100644
--- a/ghc/lib/exts/IOExts.lhs
+++ b/ghc/lib/exts/IOExts.lhs
@@ -44,7 +44,6 @@ import PrelBase
 import PrelIOBase
 import PrelHandle ( openFileEx, IOModeEx(..) )
 import PrelST
-import PrelUnsafe
 import PrelArr
 import PrelGHC
 import Ix
diff --git a/ghc/lib/exts/ST.lhs b/ghc/lib/exts/ST.lhs
index 2777fe4..238f713 100644
--- a/ghc/lib/exts/ST.lhs
+++ b/ghc/lib/exts/ST.lhs
@@ -29,7 +29,6 @@ module ST (
     ) where
 
 import PrelArr
-import PrelUnsafeST
 import PrelST
 import PrelBase	( Eq(..), Int, Bool, ($), ()(..) )
 import Monad
-- 
1.7.10.4