projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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
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 (>>) #-}
instance Monad (ST s) where
{-# INLINE return #-}
{-# INLINE (>>) #-}