Add unsafeSTToIO :: ST s a -> IO a

[ghc-base.git] / Control / Monad / ST.hs

diff --git a/Control/Monad/ST.hs b/Control/Monad/ST.hs
index 0a40720..d736eb6 100644 (file)
--- a/Control/Monad/ST.hs
+++ b/Control/Monad/ST.hs
@@ -27,7 +27,8 @@ module Control.Monad.ST
 
        -- * Unsafe operations
        unsafeInterleaveST,     -- :: ST s a -> ST s a
-       unsafeIOToST            -- :: IO a -> ST s a
+       unsafeIOToST,           -- :: IO a -> ST s a
+       unsafeSTToIO            -- :: ST s a -> IO a
       ) where
 
 import Prelude
@@ -55,7 +56,7 @@ unsafeInterleaveST =
 #ifdef __GLASGOW_HASKELL__
 import GHC.ST          ( ST, runST, fixST, unsafeInterleaveST )
 import GHC.Base                ( RealWorld )
-import GHC.IOBase      ( stToIO, unsafeIOToST )
+import GHC.IOBase      ( stToIO, unsafeIOToST, unsafeSTToIO )
 #endif
 
 instance MonadFix (ST s) where