From: simonm <unknown>
Date: Mon, 17 Nov 1997 13:55:04 +0000 (+0000)
Subject: [project @ 1997-11-17 13:55:04 by simonm]
X-Git-Tag: Approx_2487_patches~1292
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=13bd5f8673faf47ecde030185e6361e1103905ad;p=ghc-hetmet.git

[project @ 1997-11-17 13:55:04 by simonm]
export runST and fixST.
---

diff --git a/ghc/lib/glaExts/ST.lhs b/ghc/lib/glaExts/ST.lhs
index 3e5220f..ed3474d 100644
--- a/ghc/lib/glaExts/ST.lhs
+++ b/ghc/lib/glaExts/ST.lhs
@@ -10,6 +10,9 @@ module ST (
 
 	ST,
 
+	runST,				-- :: (All s => ST s a) -> a
+	fixST,				-- :: (a -> ST s a) -> ST s a
+
 	unsafeInterleaveST,
 
         -- ST is one, so you'll likely need some Monad bits