From: ross <unknown>
Date: Tue, 21 Jan 2003 16:33:20 +0000 (+0000)
Subject: [project @ 2003-01-21 16:33:20 by ross]
X-Git-Tag: nhc98-1-18-release~758
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2c6ff024ff27acf667cf4ccb7be686453f4e428b;p=haskell-directory.git

[project @ 2003-01-21 16:33:20 by ross]
add local definitions of unsafeIOToST and stToIO
---

diff --git a/Control/Monad/ST/Lazy.hs b/Control/Monad/ST/Lazy.hs
index ffbb1af..60ff1be 100644
--- a/Control/Monad/ST/Lazy.hs
+++ b/Control/Monad/ST/Lazy.hs
@@ -22,11 +22,11 @@ module Control.Monad.ST.Lazy (
 
 	-- * Unsafe operations
 	unsafeInterleaveST,
-	ST.unsafeIOToST,
+	unsafeIOToST,
 
 	-- * Converting 'ST' To 'IO'
 	RealWorld,
-	ST.stToIO,
+	stToIO,
 
 #ifndef __HUGS__
 	-- * Converting between strict and lazy 'ST'
@@ -46,7 +46,7 @@ import Control.Monad
 #endif
 
 #ifdef __HUGS__
-import Hugs.LazyST as ST
+import Hugs.LazyST
 #endif
 
 #ifdef __GLASGOW_HASKELL__
@@ -118,4 +118,10 @@ lazyToStrictST (ST m) = GHC.ST.ST $ \s ->
 
 unsafeInterleaveST :: ST s a -> ST s a
 unsafeInterleaveST = strictToLazyST . ST.unsafeInterleaveST . lazyToStrictST
+
+unsafeIOToST :: IO a -> ST s a
+unsafeIOToST = strictToLazyST . ST.unsafeIOToST
+
+stToIO :: ST RealWorld a -> IO a
+stToIO = ST.stToIO . lazyToStrictST
 #endif