[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 (file)
--- 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