From: simonm <unknown>
Date: Thu, 4 Dec 1997 11:09:23 +0000 (+0000)
Subject: [project @ 1997-12-04 11:06:41 by simonm]
X-Git-Tag: Approx_2487_patches~1199
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=592a501772db813c1d182a293b59c6d526cd5071;p=ghc-hetmet.git

[project @ 1997-12-04 11:06:41 by simonm]
export freeze/thaw array operations.
---

diff --git a/ghc/lib/glaExts/LazyST.lhs b/ghc/lib/glaExts/LazyST.lhs
index 91c3971..b8480df 100644
--- a/ghc/lib/glaExts/LazyST.lhs
+++ b/ghc/lib/glaExts/LazyST.lhs
@@ -20,8 +20,10 @@ module LazyST (
 	ST.STRef,
 	newSTRef, readSTRef, writeSTRef,
 
-	ST.STArray,
-	newSTArray, readSTArray, writeSTArray, Ix,
+	STArray,
+	newSTArray, readSTArray, writeSTArray, boundsSTArray, 
+	thawSTArray, freezeSTArray, unsafeFreezeSTArray, 
+	Ix,
 
 	strictToLazyST, lazyToStrictST
     ) where
diff --git a/ghc/lib/glaExts/ST.lhs b/ghc/lib/glaExts/ST.lhs
index 6c0efba..f58832a 100644
--- a/ghc/lib/glaExts/ST.lhs
+++ b/ghc/lib/glaExts/ST.lhs
@@ -22,7 +22,9 @@ module ST (
 	newSTRef, readSTRef, writeSTRef,
 
 	STArray,
-	newSTArray, readSTArray, writeSTArray, Ix
+	newSTArray, readSTArray, writeSTArray, boundsSTArray, 
+	thawSTArray, freezeSTArray, unsafeFreezeSTArray, 
+	Ix
 
     ) where