[project @ 1998-05-22 15:58:03 by simonm]

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

diff --git a/ghc/lib/exts/LazyST.lhs b/ghc/lib/exts/LazyST.lhs
index 29c7814..7ba3074 100644 (file)
--- a/ghc/lib/exts/LazyST.lhs
+++ b/ghc/lib/exts/LazyST.lhs
@@ -60,7 +60,7 @@ instance Monad (ST s) where
            in
            k_a new_s
 
--- ToDo: un-inline this, it could cause problems...
+{-# NOINLINE runST #-}
 runST :: (All s => ST s a) -> a
 runST st = case st of ST st -> let (r,_) = st (PrelST.S# realWorld#) in r
 \end{code}