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

Use UnsafeST

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}

ghc/lib/glaExts/GlaExts.lhs

@@ -61,6 +61,7 @@ module GlaExts
 
 import GHC
 import STBase
+import UnsafeST
 import PrelBase
 import ByteArray
 import MutableArray

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(..) )

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

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}

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(..) )

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

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(..) )