From 8bdfa4b885118213f8b71a43aeaf875060bd7572 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 22 May 1998 15:58:03 +0000
Subject: [PATCH] [project @ 1998-05-22 15:58:03 by simonm] - don't inline
 runST.

---
 ghc/lib/exts/LazyST.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/lib/exts/LazyST.lhs b/ghc/lib/exts/LazyST.lhs
index 29c7814cc6b4..7ba30741f72c 100644
--- 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}
-- 
GitLab