diff options
| author | simonm <unknown> | 1998-05-26 13:00:53 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1998-05-26 13:00:53 +0000 |
| commit | 1dc014c52d3371585fda5ecb188abec598a8c37c (patch) | |
| tree | f9a910d68efaa6a40e403e51ab4bbf4edd1ff443 | |
| parent | 8bdfa4b885118213f8b71a43aeaf875060bd7572 (diff) | |
| download | haskell-1dc014c52d3371585fda5ecb188abec598a8c37c.tar.gz | |
[project @ 1998-05-26 13:00:47 by simonm]
- remove references to PrelUnsafe(ST)
| -rw-r--r-- | ghc/lib/concurrent/Channel.lhs | 2 | ||||
| -rw-r--r-- | ghc/lib/concurrent/Merge.lhs | 1 | ||||
| -rw-r--r-- | ghc/lib/exts/IOExts.lhs | 1 | ||||
| -rw-r--r-- | ghc/lib/exts/ST.lhs | 1 |
4 files changed, 1 insertions, 4 deletions
diff --git a/ghc/lib/concurrent/Channel.lhs b/ghc/lib/concurrent/Channel.lhs index 6ae4ac83ff..ec874797d7 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 a036a052de..39f1c4ce2f 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 4489ba6a99..305b15198a 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 2777fe4a8a..238f713359 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 |