From: simonm <unknown>
Date: Thu, 4 Dec 1997 14:56:40 +0000 (+0000)
Subject: [project @ 1997-12-04 14:56:39 by simonm]
X-Git-Tag: Approx_2487_patches~1193
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=94a3714fc95e7502d333135be2a8bfc6cd3e12bf;p=ghc-hetmet.git

[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
--- 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
--- 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