From 8d69b9e3c5ba1a2239656a97aea02b66b30ae819 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 5 Jul 1997 00:59:39 +0000
Subject: [PATCH] [project @ 1997-07-05 00:56:24 by sof] Use UnsafeST

---
 ghc/lib/glaExts/Foreign.lhs      |    2 +-
 ghc/lib/glaExts/GlaExts.lhs      |    1 +
 ghc/lib/glaExts/PackedString.lhs |    1 +
 ghc/lib/glaExts/ST.lhs           |    1 +
 ghc/lib/required/CPUTime.lhs     |    1 +
 ghc/lib/required/Directory.lhs   |    1 +
 ghc/lib/required/IO.lhs          |    1 +
 ghc/lib/required/Time.lhs        |    1 +
 8 files changed, 8 insertions(+), 1 deletion(-)

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