[project @ 1997-07-05 00:56:24 by sof]

Use UnsafeST

8 files changed, 8 insertions, 1 deletions

diff --git a/ghc/lib/glaExts/Foreign.lhs b/ghc/lib/glaExts/Foreign.lhs
index 9ae5d2afd5..d31d7ed9d6 100644
--- a/ghc/lib/glaExts/Foreign.lhs
+++ b/ghc/lib/glaExts/Foreign.lhs
@@ -14,7 +14,7 @@ module Foreign (
    ) where
 
 import STBase
--- import ArrBase
+import UnsafeST	( unsafePerformPrimIO )
 import PrelBase
 import GHC
 \end{code}
diff --git a/ghc/lib/glaExts/GlaExts.lhs b/ghc/lib/glaExts/GlaExts.lhs
index 057a4b937f..eb89c9c439 100644
--- a/ghc/lib/glaExts/GlaExts.lhs
+++ b/ghc/lib/glaExts/GlaExts.lhs
@@ -61,6 +61,7 @@ module GlaExts
 
 import GHC
 import STBase
+import UnsafeST
 import PrelBase
 import ByteArray
 import MutableArray
diff --git a/ghc/lib/glaExts/PackedString.lhs b/ghc/lib/glaExts/PackedString.lhs
index 6816243506..b04a71bef6 100644
--- a/ghc/lib/glaExts/PackedString.lhs
+++ b/ghc/lib/glaExts/PackedString.lhs
@@ -78,6 +78,7 @@ import {-# SOURCE #-}	IOBase	( error )
 import Ix
 import PrelList
 import STBase
+import UnsafeST	( unsafePerformPrimIO )
 import ArrBase
 import PrelBase
 import Foreign	( Addr(..) )
diff --git a/ghc/lib/glaExts/ST.lhs b/ghc/lib/glaExts/ST.lhs
index e025c83f29..4e0d6b9480 100644
--- a/ghc/lib/glaExts/ST.lhs
+++ b/ghc/lib/glaExts/ST.lhs
@@ -33,6 +33,7 @@ module ST (
 import IOBase	( error )	-- [Source not needed]
 import ArrBase
 import STBase
+import UnsafeST	( unsafeInterleaveST )
 import PrelBase	( Int, Bool, ($), ()(..) )
 import GHC	( newArray#, readArray#, writeArray#, sameMutableArray#, sameMutableByteArray# )
 import Monad
diff --git a/ghc/lib/required/CPUTime.lhs b/ghc/lib/required/CPUTime.lhs
index 62644bf312..9968f740cb 100644
--- a/ghc/lib/required/CPUTime.lhs
+++ b/ghc/lib/required/CPUTime.lhs
@@ -16,6 +16,7 @@ import Foreign	( Addr )
 import IOBase
 import IO
 import STBase
+import UnsafeST	( unsafePerformPrimIO )
 import Ratio
 
 \end{code}
diff --git a/ghc/lib/required/Directory.lhs b/ghc/lib/required/Directory.lhs
index d7fdf7da88..72c254f48b 100644
--- a/ghc/lib/required/Directory.lhs
+++ b/ghc/lib/required/Directory.lhs
@@ -43,6 +43,7 @@ import PrelBase
 import Foreign
 import IOBase
 import STBase
+import UnsafeST		( unsafePerformPrimIO )
 import ArrBase
 import PackedString	( packCBytesST, unpackPS, psToByteArrayST )
 import Time             ( ClockTime(..) )
diff --git a/ghc/lib/required/IO.lhs b/ghc/lib/required/IO.lhs
index 3d4bb2f764..cf7d5810b4 100644
--- a/ghc/lib/required/IO.lhs
+++ b/ghc/lib/required/IO.lhs
@@ -34,6 +34,7 @@ module IO (
 
 import Ix
 import STBase
+import UnsafeST		( unsafePerformPrimIO, unsafeInterleavePrimIO )
 import IOBase
 import ArrBase		( MutableByteArray(..), newCharArray )
 import IOHandle		-- much of the real stuff is in here
diff --git a/ghc/lib/required/Time.lhs b/ghc/lib/required/Time.lhs
index 0af39f7da5..d605ad4553 100644
--- a/ghc/lib/required/Time.lhs
+++ b/ghc/lib/required/Time.lhs
@@ -29,6 +29,7 @@ import ST
 import IOBase
 import ArrBase
 import STBase
+import UnsafeST	( unsafePerformPrimIO )
 import ST
 import Ix
 import Foreign( Addr(..) )