From: sof <unknown>
Date: Mon, 26 May 1997 05:14:14 +0000 (+0000)
Subject: [project @ 1997-05-26 05:14:14 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~465
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d4e0231ed47221ba334b2b0384d1711bf15fbf68;p=ghc-hetmet.git

[project @ 1997-05-26 05:14:14 by sof]
Fluff
---

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