From 94a3714fc95e7502d333135be2a8bfc6cd3e12bf Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 4 Dec 1997 14:56:40 +0000
Subject: [PATCH] [project @ 1997-12-04 14:56:39 by simonm] Pull runST and
unsafeInterleaveST into new module UnsafeST to avoid recursive dependencies.
Grrrr.
---
ghc/lib/glaExts/LazyST.lhs | 2 +-
ghc/lib/glaExts/ST.lhs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/glaExts/LazyST.lhs b/ghc/lib/glaExts/LazyST.lhs
index 4c44e30ab456..3d457cad3c0d 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 f58832a9eafb..1df58dcca0a2 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
--
GitLab