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

Use UnsafeST

diff --git a/ghc/lib/glaExts/Foreign.lhs b/ghc/lib/glaExts/Foreign.lhs
index 9ae5d2a..d31d7ed 100644 (file)
--- 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 057a4b9..eb89c9c 100644 (file)
--- 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 6816243..b04a71b 100644 (file)
--- 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 e025c83..4e0d6b9 100644 (file)
--- 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 62644bf..9968f74 100644 (file)
--- 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 d7fdf7d..72c254f 100644 (file)
--- 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 3d4bb2f..cf7d581 100644 (file)
--- 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 0af39f7..d605ad4 100644 (file)
--- 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(..) )