[project @ 1997-12-04 14:56:39 by simonm]

Pull runST and unsafeInterleaveST into new module UnsafeST to avoid
recursive dependencies.  Grrrr.

diff --git a/ghc/lib/glaExts/LazyST.lhs b/ghc/lib/glaExts/LazyST.lhs
index 4c44e30..3d457ca 100644 (file)
--- a/ghc/lib/glaExts/LazyST.lhs
+++ b/ghc/lib/glaExts/LazyST.lhs
@@ -31,7 +31,7 @@ module LazyST (
 import qualified ST
 import qualified STBase
 import ArrBase
-import qualified Unsafe   ( unsafeInterleaveST )
+import qualified UnsafeST   ( unsafeInterleaveST )
 import PrelBase        ( Eq(..), Int, Bool, ($), ()(..) )
 import Monad
 import Ix

diff --git a/ghc/lib/glaExts/ST.lhs b/ghc/lib/glaExts/ST.lhs
index f58832a..1df58dc 100644 (file)
--- a/ghc/lib/glaExts/ST.lhs
+++ b/ghc/lib/glaExts/ST.lhs
@@ -29,7 +29,7 @@ module ST (
     ) where
 
 import ArrBase
-import Unsafe   ( unsafeInterleaveST )
+import UnsafeST
 import STBase
 import PrelBase        ( Eq(..), Int, Bool, ($), ()(..) )
 import Monad