[project @ 1999-01-23 17:46:01 by sof]

[ghc-hetmet.git] / ghc / lib / exts / IOExts.lhs

diff --git a/ghc/lib/exts/IOExts.lhs b/ghc/lib/exts/IOExts.lhs
index 5bbd8f0..612b37d 100644 (file)
--- a/ghc/lib/exts/IOExts.lhs
+++ b/ghc/lib/exts/IOExts.lhs
@@ -48,8 +48,6 @@ module IOExts
 #endif
        
        , unsafePtrEq
-       , unsafeIOToST
-       , stToIO
 
         ) where
 
@@ -161,18 +159,6 @@ trace string expr = unsafePerformIO $ do
 #endif
 \end{code}
 
-\begin{code}
-unsafeIOToST      :: IO a -> ST s a
-#ifdef __HUGS__
-unsafeIOToST = primUnsafeCoerce
-#else
-unsafeIOToST (IO io) = ST $ \ s ->
-    case ((unsafeCoerce# io) s) of
-      (#  new_s, a #) -> unsafeCoerce# (STret new_s a)
---      IOfail new_s e -> error ("I/O Error (unsafeIOToST): " ++ showsPrec 0 e "\n")
-#endif
-\end{code}
-
 Not something you want to call normally, but useful
 in the cases where you do want to flush stuff out of
 the heap or make sure you've got room enough