X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fghc%2FSTBase.lhs;fp=ghc%2Flib%2Fghc%2FSTBase.lhs;h=68dd330dba329b6aaa353d4d3cd0c5587b3d3ff9;hb=86b97832f5ccf79554b630e004f6be1611179e76;hp=7f35075e023f0b5153376e6abf7cdbffacf04f8d;hpb=e12e19567024ade8643918a88cc22a74d879afdb;p=ghc-hetmet.git

diff --git a/ghc/lib/ghc/STBase.lhs b/ghc/lib/ghc/STBase.lhs
index 7f35075..68dd330 100644
--- 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 (>>)   #-}