[project @ 1997-12-04 11:05:32 by simonm]

[ghc-hetmet.git] / ghc / lib / ghc / STBase.lhs

diff --git a/ghc/lib/ghc/STBase.lhs b/ghc/lib/ghc/STBase.lhs
index 7f35075..68dd330 100644 (file)
--- a/ghc/lib/ghc/STBase.lhs
+++ b/ghc/lib/ghc/STBase.lhs
@@ -27,10 +27,6 @@ newtype ST s a = ST (State# s -> STret s a)
 
 data STret s a = STret (State# s) a
 
-runST (ST m)
-  = case m realWorld# of
-      STret _ r -> r
-
 instance Monad (ST s) where
     {-# INLINE return #-}
     {-# INLINE (>>)   #-}