From: lewie <unknown>
Date: Fri, 26 Apr 2002 15:39:50 +0000 (+0000)
Subject: [project @ 2002-04-26 15:39:50 by lewie]
X-Git-Tag: nhc98-1-18-release~1044
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f11349b8018da9d15bad37d2d4d7f22d87af0046;p=ghc-base.git

[project @ 2002-04-26 15:39:50 by lewie]
Fix broken def of fixST.
---

diff --git a/Control/Monad/ST/Lazy.hs b/Control/Monad/ST/Lazy.hs
index ea30d20..43c2de7 100644
--- a/Control/Monad/ST/Lazy.hs
+++ b/Control/Monad/ST/Lazy.hs
@@ -71,9 +71,9 @@ fixST :: (a -> ST s a) -> ST s a
 fixST m = ST (\ s -> 
 		let 
 		   ST m_r = m r
-		   (r,s)  = m_r s
+		   (r,s') = m_r s
 		in
-		   (r,s))
+		   (r,s'))
 #endif
 
 -- ---------------------------------------------------------------------------