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 6ae4ac83ff38..ec874797d78c 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 a036a052de31..39f1c4ce2f97 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 4489ba6a9928..305b15198aac 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 2777fe4a8aad..238f71335935 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
--
GitLab