From d4e0231ed47221ba334b2b0384d1711bf15fbf68 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 05:14:14 +0000
Subject: [PATCH] [project @ 1997-05-26 05:14:14 by sof] Fluff

---
 ghc/lib/ghc/STBase.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/ghc/STBase.lhs b/ghc/lib/ghc/STBase.lhs
index bdc7a65..1eaa104 100644
--- a/ghc/lib/ghc/STBase.lhs
+++ b/ghc/lib/ghc/STBase.lhs
@@ -43,9 +43,11 @@ instance Monad (ST s) where
 	case (k r) of { ST k2 ->
 	(k2 new_s) }}
 
-{-# INLINE returnST #-}
+
 
 -- here for backward compatibility:
+
+{-# INLINE returnST #-}
 returnST :: a -> ST s a
 thenST	 :: ST s a -> (a -> ST s b) -> ST s b
 seqST	 :: ST s a -> ST s b -> ST s b
-- 
1.7.10.4